Atari 8-bit Source code

10GRAPHICS7:SETCOLOR2,0,0:POKE752,1:?"Getreadytoplay!":GOSUB209:GOSUB112:Y1=181:GOTOC
20IFX1=JTHENIFY1>AANDY1<=BORY1>CANDY1<=DORY1>EANDY1<=ITHENY1=Y1-3:RETURN
21IFX1=LTHENIFY1>AANDY1<=EORY1>FANDY1<=ITHENY1=Y1-3:RETURN
22IFX1=KTHENIFY1>AANDY1<=GTHENY1=Y1-3:RETURN
23RETURN
30IFX1=JTHENIFY1>=AANDY1<BORY1>=CANDY1<DORY1>=EANDY1<ITHENY1=Y1+3:RETURN
31IFX1=KTHENIFY1>=AANDY1<GTHENY1=Y1+3:RETURN
32IFX1=LTHENIFY1>=AANDY1<EORY1>=FANDY1<ITHENY1=Y1+3
33RETURN
37IFY5=IORY5=HORY5=GORY5=FORY5=EORY5=DORY5=CORY5=BORY5=ATHENGOSUB42:RETURN
41RETURN
42Z=INT(RND(0)*3):IFZ=0THENIFY5=IORY5=HORY5=GORY5=FORY5=DORY5=BTHENX9=0:Y9=-3:RETURN
43IFZ=1THENIFY5=AORY5=CORY5=EORY5=FORY5=GORY5=HTHENX9=0:Y9=3:RETURN
44X9=4:Y9=0:RETURN
55IFY5=IORY5=HORY5=GORY5=FORY5=EORY5=DORY5=CORY5=BORY5=ATHENGOSUB57
56RETURN
57IFY5>Y1THENIFY5=BORY5=CORY5=DORY5=EORY5=GORY5=HORY5=ITHENX9=0:Y9=-3:RETURN
58IFY5<Y1THENIFY5=AORY5=BORY5=CORY5=DORY5=FORY5=GORY5=HTHENX9=0:Y9=3:RETURN
59X9=-4:Y9=0:RETURN
60IFY5=GORY5=FORY5=EORY5=DORY5=CORY5=BORY5=ATHENGOSUB62
61RETURN
62Z=INT(RND(0)*4):IFZ=0THENIFY5=EORY5=FORY5=DORY5=CORY5=BORY5=ATHENX9=0:Y9=3:RETURN
63IFZ=1THENIFY5=BORY5=CORY5=DORY5=EORY5=GORY5=FTHENX9=0:Y9=-3:RETURN
64IFZ=2THENX9=-4:Y9=0:RETURN
65X9=4:Y9=0:RETURN
73S=STICK(0):IFS=14ORS=10ORS=6THENGOSUB20
74IFS=13ORS=9ORS=5THENGOSUB30
75IFS=7ANDX1<LTHENIFY1=AORY1=BORY1=CORY1=DORY1=EORY1=FORY1=GORY1=HORY1=ITHENX1=X1+4
76IFS=11ANDX1>JTHENIFY1=AORY1=BORY1=CORY1=DORY1=EORY1=FORY1=GORY1=HORY1=ITHENX1=X1-4
78Q=X1-42:R=(Y1-25)/2:LOCATEQ,R,Z:IFZ=1THENCOLOR4:PLOTQ,R:T=T+1:T1=T1+1:?"BYTESRECOVERED=";:?T;"K"
79IFT1>T2THENGOSUB100
80POKE77,0:POKEM,X1:POKEN,Y1:SOUND0,Y1,10,7:IFX2=JTHENY5=Y2:X9=X7:Y9=Y7:GOSUBA:X7=X9:Y7=Y9
81IFX2=KTHENY5=Y2:X9=X7:Y9=Y7:GOSUB60:X7=X9:Y7=Y9
82IFX2=LTHENY5=Y2:X9=X7:Y9=Y7:GOSUBB:X7=X9:Y7=Y9
84X2=X2+X7:Y2=Y2+Y7:POKEM+1,X2:POKEN+1,Y2:IFX3=JTHENY5=Y3:X9=X8:Y9=Y8:GOSUBA:X8=X9:Y8=Y9
85IFX3=KTHENY5=Y3:X9=X8:Y9=Y8:GOSUB60:X8=X9:Y8=Y9
86IFX3=LTHENY5=Y3:X9=X8:Y9=Y8:GOSUBB:X8=X9:Y8=Y9
87X3=X3+X8:Y3=Y3+Y8:POKEM+2,X3:POKEN+2,Y3:IFX4=JTHENY5=Y4:X9=X6:Y9=Y6:GOSUBA:X6=X9:Y6=Y9
88SOUND0,0,0,0:IFX4=KTHENY5=Y4:X9=X6:Y9=Y6:GOSUB60:X6=X9:Y6=Y9
89IFX4=LTHENY5=Y4:X9=X6:Y9=Y6:GOSUBB:X6=X9:Y6=Y9
90X4=X4+X6:Y4=Y4+Y6:POKEM+3,X4:POKEN+3,Y4:IFSTRIG(0)=0ANDT>25THENIFY1=Y2ORY1=Y3ORY1=Y4THENGOSUBH
93IFY1=Y2AND70>ABS(X1-X2)THENU=X2-44:V=(Y2-31)/2:GOSUBE
94IFY1=Y3AND60>ABS(X1-X3)THENU=X3-44:V=(Y3-31)/2:GOSUBE
95IFY1=Y4AND55>ABS(X1-X4)THENU=X4-44:V=(Y4-31)/2:GOSUBE
96IFPEEK(19)>A1THENGOSUB105
97GOTOC
100SOUND0,0,0,0:COLOR1:SETCOLOR0,C1,9
101FORY=6TO79STEP9:FORW=16TO148STEP4:PLOTW,Y:NEXTW:NEXTY:T1=0:RETURN
105C1=INT(RND(0)*15):SETCOLOR1,C1,8:COLOR4:PLOT0,V1:DRAWTO3,V1:A1=A1+1:V1=V1+2:IFA1<>41THENRETURN
106IFT<T3THENGOSUB112:RETURN
107?"EXTRA3.5MIN":T3=T3+T4:?"NEXTBONUSAT";:?T3:T4=T4+100
108COLOR2:FORY=0TO78STEP2:PLOT0,Y:DRAWTO3,Y:NEXTY:A1=1:V1=0:POKE19,0:POKE20,0:RETURN
109SOUND0,2,6,15:COLOR2:PLOTU,V:DRAWTOQ,R:POKEM,1:POKEN,247:COLOR4:PLOTU,V:DRAWTOQ,R
112SOUND0,0,0,0:GOSUB216:GOSUB100:?:?"TOTALBYTESRECOVEREDINGAME=";:?T;"K":T=0:?"Toplay-Press"
113IFSTRIG(0)<>0THEN113
114?"*ExtraTIMEat200K":GOSUB108:T=0:T3=200:T4=300:RETURN
163W=0:T=T-25:?"BYTESRECOVERED=";:?T;"K":IFY1=Y2THENU=X2-44:V=(Y2-31)/2:I1=M+1:J1=N+1:GOSUBI:Y2=Z:X2=L:RETURN
164IFY1=Y3THENU=X3-44:V=(Y3-31)/2:I1=M+2:J1=N+2:GOSUBI:Y3=Z:X3=L:RETURN
165IFY1=Y4THENU=X4-44:V=(Y4-31)/2:I1=M+3:J1=N+3:GOSUBI:Y4=Z:X4=L:RETURN
181SOUND0,1,6,15:COLOR1:PLOTQ,R:DRAWTOU,V:COLOR4:PLOTQ,R:DRAWTOU,V:SOUND0,0,0,0:POKEI1,1:POKEJ1,247
189Z=V*2+67:IFZ=AORZ=BORZ=CORZ=DORZ=EORZ=FORZ=IORZ=GTHENGOSUBT2:RETURN
190V=3:GOTO189
209A=37:B=55:C=73:D=91:E=109:F=127:G=145:H=163:I=181:J=54:K=126:L=198:M=53248:N=1780:O=1784:P=704:T2=220
210?"Pleasewait...":FORY=1536TO1706:READZ:POKEY,Z:NEXTY:FORY=1774TO1787:POKEY,0:NEXTY:PM=PEEK(106)-32
211PMBASE=256*PM:FORY=PMBASE+1023TOPMBASE+2047:POKEY,0:NEXTY:FORY=PMBASE+1025TOPMBASE+1032:READZ
212POKEY,Z:NEXTY:FORY=PMBASE+1281TOPMBASE+1288:READZ:POKEY,Z:NEXTY:FORY=PMBASE+1537TOPMBASE+1544
213READZ:POKEY,Z:NEXTY:FORY=PMBASE+1793TOPMBASE+1800:READZ:POKEY,Z:NEXTY:POKEP+2,76:POKEP+3,204
214POKEP,252:POKEP+1,140:POKE559,62:POKE623,1:POKE1788,PM+4:POKE53277,3:POKE54279,PM:X=USR(1696)
215POKEO,8:POKEO+1,8:POKEO+2,8:POKEO+3,8:RETURN
216X1=J:Y1=I:Y2=B:X2=62:Y3=E:X3=154:Y4=G:X4=122:X6=4:Y6=0:X7=-4:Y7=0:X8=-4:Y8=0
220COLOR3:SETCOLOR2,15-C1,5:FORY=7TO79STEP9:PLOT4,Y:DRAWTO159,Y:NEXTY
221PLOT4,0:DRAWTO4,79:PLOT159,0:DRAWTO159,79:PLOT149,79:DRAWTO149,52:FORY=52TO79STEP3:PLOT149,Y
222DRAWTO159,Y:NEXTY:PLOT14,79:DRAWTO14,43:FORY=43TO79STEP3:PLOT4,Y:DRAWTO14,Y:NEXTY:PLOT149,43
223DRAWTO149,7:FORY=7TO43STEP3:PLOT149,Y:DRAWTO159,Y:NEXTY:PLOT14,7:DRAWTO14,16:FORY=7TO16STEP3
224PLOT4,Y:DRAWTO14,Y:NEXTY:PLOT77,7:DRAWTO77,61:PLOT87,7:DRAWTO87,61:FORY=7TO61STEP3
225PLOT77,Y:DRAWTO87,Y:NEXTY:PLOT14,25:DRAWTO14,34:FORY=25TO34STEP3:PLOT4,Y:DRAWTO14,Y:NEXTY:RETURN
230DATA162,3,189,244,6,240,89,56,221,240,6,240,83,141,254,6,106,141,255,6,142,253,6,24,169,0,109,253,6,24,109
231DATA252,6,133,204,133,206,189,240,6,133,203,173,254,6,133,205,189,248,6,170,232,46,255,6,144,16,168,177,203
232DATA145,205,169,0,145,203,136,202,208,244,76,87,6,160,0,177,203,145,205,169,0,145,203,200,202,208,244,174
234DATA253,6,173,254,6,157,240,6,189,236,6,240,48,133,203,24,138,141,253,6,109,235,6,133,204,24,173,253,6,109
235DATA252,6,133,206,189,240,6,133,205,189,248,6,170,160,0,177,203,145,205,200,202,208,248,174,253,6,169,0,157
236DATA236,6,202,48,3,76,2,6,76,98,228,0,0,104,169,7,162,6,160,0,32,92,228,96,56,56,16,124,16,16,40,68
237DATA126,189,60,126,189,60,126,129,60,231,255,129,129,129,195,231,219,153,189,153,153,189,153,219
327DATA24,60,126,90,126,126,126,126,24,60,126,90,126,126,126,126,24,60,126,90,126,126,126,126	

• Download link 1

• Download link 1