Atari 8-bit Source code

5REMBIGTOP
6REMBYDAVIDPLOTKIN
7REMWRITTENFORANTICMAGAZINE
10GOSUB10500:GOSUB11000:GOSUB12000:GOSUB13000:GOSUB32000:HISCORE=0
20B=2:SCORE=0:CLOWNS=3:GOSUB10000
30IFSTRIG(0)=1THENGOTO30
40PXP2=PEEK(1662)+4:POKE53249,PXP2:YDIR=1:XDIR=B*(B<=8)+8*(B>8):YP2=20:SOUND1,YP2*10,10,6
100PXP2=PXP2+XDIR:D=USR(ADR(UP$)*(YDIR=1)+ADR(DOWN$)*(YDIR=-1),PM+656):POKE53249,PXP2
110D=USR(ADR(MOVE$)):POKE53278,0:YP2=YP2-YDIR:POKE53762,YP2*10:IFYP2>22THENGOTO400
120IFPEEK(53253)=0ORPXP2>198THENGOTO170
130XP2=INT((PXP2-48)/4):COLOR32:PLOTXP2,YP2:PLOTXP2,YP2+1:PLOTXP2-1,YP2:PLOTXP2-1,YP2+1
140PLOTXP2+1,YP2:PLOTXP2+1,YP2+1:FORW=1TO10:SOUND0,W*10,8,10:NEXTW:SOUND0,0,0,0
150SCORE=SCORE+10:POSITION15,0:PRINTSCORE;:POKE53278,0:YDIR=-YDIR:IFRND(0)<0.5THENXDIR=-XDIR
160HITS=HITS+1:IFHITS=(B/2)*9THENGOTO300
170IF(PXP2>199)OR(PXP2<52)THENXDIR=-ABS(XDIR)*(PXP2>199)+ABS(XDIR)*(PXP2<52):SOUND1,200,10,6
180IFYP2=1THENYDIR=-1:SOUND1,240,10,6
190IFPEEK(53260)=0THENGOTO100
200YDIR=1:IF(XDIR>0AND(PXP2-PEEK(1662)>3))OR(XDIR<0AND(PXP2-PEEK(1662)<6))THENPOKE77,0:GOTO100
210XDIR=-XDIR:GOTO100
300B=B+2:IFB>16THENB=16
310POKE53249,0:PYP2=YP2*4+656:D=USR(ADR(JUMP$),PM+736,PM+PYP2):D=USR(ADR(JUMP$),PM+PYP2,PM+640)
320SOUND1,0,0,0:GOSUB10005:HITS=0:GOTO30
400PYP2=YP2*4+656:FORW=0TO5:POKEPYP2+PM+W-4,PEEK(53770):NEXTW
410FORW=100TO200STEP2:SOUND1,W,10,6:NEXTW:SOUND1,0,0,0
420FORW=1TO150:NEXTW:FORW=0TO7:POKEPYP2+PM+W-4,0:NEXTW:RESTORE12070:POKE53249,0
430FORJ=PM+736TOPM+741:READA:POKEJ,A:NEXTJ:POKE53278,0
440CLOWNS=CLOWNS-1:POSITION7,0:PRINTCLOWNS;:IFCLOWNS>0THENGOTO30
500GOSUB2200
510POSITION0,0:PRINT"";:POSITION0,0:PRINT"GAMEOVER";:FORW=1TO150:NEXTW
520IFSCORE>HISCORETHENHISCORE=SCORE
530POSITION0,0:PRINT"SCORE";SCORE;:FORW=1TO150:NEXTW
540POSITION0,0:PRINT"HIGHSCORE";HISCORE;:FORW=1TO150:NEXTW
550POSITION0,0:PRINT"PRESSTRIGGER"
560IFSTRIG(0)=1THEN560
570B=2:CLOWNS=3:HITS=0:SCORE=0:GOSUB10005:GOTO40
2000READBYTE$:A1=ASC(BYTE$)-48:IFA1>10THENA1=A1-7
2010A2=ASC(BYTE$(2,2))-48:IFA2>10THENA2=A2-7
2020A$=CHR$(A1*16+A2):RETURN
2100FORJ=0TO3:A2=INT(A1/256):A3=A1-A2*256:POKEA,A2:POKEA+1,A3
2120A=A+3:A1=A1+80:NEXTJ:RETURN
2200COLOR32:FORJ=1TO23:PLOT1,J:DRAWTO39,J:NEXTJ:POSITION0,0:RETURN
10000DIMZ$(1)
10005FORLINE=2TOBSTEP2:Z$=CHR$(LINE/2-1):FORCOLUMN=3TO36STEP4
10010POSITIONCOLUMN,LINE:PRINTZ$
10020NEXTCOLUMN:NEXTLINE:RESTORE10100:FORJ=1TO8:READA:POKE1663+J*3,A:NEXTJ
10030POSITION0,0:?"CLOWNS";CLOWNS;"SCORE";SCORE
10050RETURN
10100DATA0,2,0,2,0,2,0,2
10500RESTORE10510:FORI=1536TO1611:READA:POKEI,A:NEXTI
10510DATA104,173,34,2,141,74
10520DATA6,173,35,2,141,75
10530DATA6,169,6,162,6,160
10540DATA23,32,92,228,96,24
10550DATA173,126,6,141,0,208
10560DATA173,124,2,208,6,206
10570DATA126,6,206,126,6,173
10580DATA125,2,208,6,238,126
10590DATA6,238,126,6,173,126
10600DATA6,201,50,176,5,169
10610DATA50,141,126,6,201,190
10620DATA144,5,169,190,141,126
10630DATA6,76,73,6
10640IFPEEK(547)<>6THENDUM=USR(1536)
10650RETURN
11000GRAPHICS21:POKE752,1:POKE87,0:C=0:RESTORE11160
11010DL=PEEK(560)+256*PEEK(561)+4
11020MEM=PEEK(DL)+256*PEEK(DL+1)+40
11030MH=INT(MEM/256):ML=MEM-MH*256
11040POKEDL-1,198:POKEDL+2,68:POKEDL+3,ML:POKEDL+4,MH
11050FORJ=5TO26:POKEDL+J,4:NEXTJ
11060FORJ=7TO20STEP4:POKEDL+J,132:NEXTJ
11070POKEDL+27,65
11080POKEDL+28,PEEK(560)
11090POKEDL+29,PEEK(561)
11100READA:IFA=999THEN11120
11110POKE1744+C,A:C=C+1:GOTO11100
11120POKE512,208:POKE513,6
11130POKE1774,56:POKE1775,74:POKE1776,104:POKE1777,88:POKE1778,170
11150POKE1783,0:POKE54286,192
11160DATA72,138,72,174,247,6,189,238,6,141,10,212,141,26,208,232
11170DATA224,5,144,2,162,0,138,141
11180DATA247,6,104,170,104,64,999
11190POSITION0,0:PRINT"INITIALIZING":RETURN
12000A=PEEK(106)-12:POKE54279,A:PM=256*A:POKE106,A:POKE623,0:POKE708,248:POKE709,86:POKE710,198
12010POKE559,46:POKE53277,3:POKE704,4:POKE705,50:POKE706,200:POKE707,200:POKE53256,1
12020FORI=PM+512TOPM+1024:POKEI,0:NEXTI
12030FORJ=PM+615TOPM+620:READA:POKEJ,A:NEXTJ
12040DATA129,255,255,36,66,129
12050PXP1=100:POKE53248,PXP1:POKE1662,PXP1
12060FORJ=PM+736TOPM+741:READA:POKEJ,A:NEXTJ
12070DATA56,16,124,124,40,40
12080PXP2=0:POKE53249,PXP2:YP2=20:POKE53250,42:POKE53251,202
12090FORJ=788TO895STEP3:POKEPM+J,9:POKEPM+J+128,9
12100POKEPM+J+1,15:POKEPM+J+129,15:POKEPM+J+2,9:POKEPM+J+130,9:NEXTJ
12110RETURN
13000DIMMOVE$(200),BYTE$(2),A$(40),UP$(28),DOWN$(28),JUMP$(26):FORJ=1TO171:GOSUB2000:MOVE$(J,J)=A$:NEXTJ
13010SC=PEEK(88)+PEEK(89)*256:A=1664
13020A1=SC+2+80:GOSUB2100
13030A1=SC+2+40*10:GOSUB2100
13040POKEA,0
13045DATAD8,A9,80,85,CD,A9,06,85,CE
13050DATA38,B0,3D,60,A0,00,B1,CB
13055DATA48,A2,25,C8,B1,CB,88,91
13060DATACB,C8,CA,D0,F6,68,A0,25
13065DATA91,CB,38,B0,27,A0,00,B1
13070DATACB,48,C8,B1,CB,48,A2,24
13075DATAC8,B1,CB,88,88,91,CB,C8
13080DATAC8,CA,D0,F4,68,A0,25,91
13085DATACB,68,88,91,CB,38,B0,04
13090DATAD8,68,C6,CD,E6,CD,A0,00
13095DATAB1,CD,F0,B7,85,CC,E6,CD
13100DATAB1,CD,85,CB,E6,CD,B1,CD,F0,0C
13105DATAC9,01,EA,F0,20,C9,02,EA
13110DATAF0,A0,D0,B7,A0,25,B1,CB
13115DATA48,A2,25,88,B1,CB,C8,91
13120DATACB,88,CA,D0,F6,68,A0,00
13125DATA91,CB,38,B0,C5,A0,25,B1
13130DATACB,48,88,B1,CB,48,A2,24
13140DATA88,B1,CB,C8,C8,91,CB,88,88,CA
13145DATAD0,F4,68,A0,00,91,CB,68
13150DATAC8,91,CB,38,B0,A2
13200FORJ=1TO28:GOSUB2000:UP$(J,J)=A$:NEXTJ
13210DATA68,68,85,CC,68,85,CB,A2
13220DATA60,A0,00,C8,C8,C8,C8,B1
13230DATACB,88,88,88,88,91,CB,C8
13240DATACA,D0,F0,60
13300DOWN$=UP$:DOWN$(11,11)=CHR$(94):FORJ=12TO15:DOWN$(J,J)=CHR$(136):NEXTJ
13310FORJ=18TO21:DOWN$(J,J)=CHR$(200):NEXTJ:DOWN$(24,24)=CHR$(136)
13320FORJ=1TO25:READAA:JUMP$(J,J)=CHR$(AA):NEXTJ:RETURN
13330DATA104,104,133,204,104,133,203,104,133,207,104,133,206,160,0,177,206,145,203,200,192,8,208,247,96
32000POKE106,PEEK(106)-5:START=(PEEK(106)+1)*256:POKE756,START/256:POKE752,1
32010DIMXFR$(38):XFR$="hji`"
32020Z=USR(ADR(XFR$)):RESTORE32100
32030READX:IFX=-1THENRESTORE:RETURN
32040FORY=0TO7:READZ:POKEX+Y+START,Z:NEXTY:GOTO32030
32100DATA512,40,170,162,170,170,170,40,10
32101DATA520,20,85,81,85,85,85,20,5
32102DATA528,40,170,255,170,255,170,40,10
32103DATA536,20,85,255,85,255,85,20,5
32104DATA544,40,170,85,85,85,170,40,10
32105DATA552,20,85,170,170,170,85,20,5
32106DATA560,40,170,255,85,255,170,40,10
32107DATA568,20,85,255,170,255,85,20,5
32108DATA-1	

• Download link 1

• Download link 1