Atari 8-bit Source code

1REM***BYM.L.Clayton***
2REM***Copyright1982***
3DIMCP$(102),SN1$(8),SN2$(8),SN3$(8),NUST$(182),MESS$(54),R(262),FS$(58),RC(3):POKE559,0:GOSUB1200
4GOSUB1050
5GOTO75
6IFTR=636THENPAD=PEEK(PO)
7PU=PEEK(TR):IFTR=644ANDPEEK(SK)<13ANDVEL>0THENPAD=PAD-22*SGN(N8-PEEK(SK))
8OFF=(PAD-114)/3.3000000000000003:A=(N1-PU)*N4-N2:VEL=VEL+A*1.5:IFPUTHENVEL=VEL-N2:COLORZ
9IFVEL<ZTHENVEL=Z
10IFVEL>120THENVEL=120
11IFPUTHENPOKE1638,50:PLOTENOM,N38:IFENOM<77THENPLOTENOM+N1,N38:DRAWTOENOM+N3,N38
12IFPU=ZTHENPOKE1638,Z:COLORN3:PLOTENOM,N38:IFENOM<SNTHENPLOTENOM+N1,N38:V=VEL/20
13ENOM=INT(VEL*GT/301):SOUNDZ,50,N4,V*N2+N2:SOUNDN2,GT+N32,N2,V*2.5:SOUNDN3,60,N6,V*2.5:B=B+VEL/N50:BU=INT(B)
14RC(N1)=N2:RC(N2)=N2:A=INT((B-BU)*N8)+N1:IFVEL>N60THENSOUNDN1,76-INT((VEL-N60)/N3)*N2,N2,INT((VEL-N60)/N4)
15RC(N3)=N2:BU=BU-INT(BU/HU)*HU:BU=BU-INT(BU/N10)*N10:IFBU>0ANDBU<4THENRC(BU)=N1
16IFA=N1THENY1L=N8:Y1AL=N8:Y2L=N10:Y2AL=11:Y3L=13:Y3AL=15:Y4L=17:Y4AL=20:Y5L=21:Y5AL=26:J1=2.5:J2=2.6:J3=2.7600000000000002
17IFA=N1THENL1=N38:R1=42:L2=36:R2=44:L3=N32:R3=48:L4=25:R4=55:L5=16:R5=64:J4=2.95:J5=3.3000000000000003:GOTON32
18IFA=N2THENY1L=N8:Y1AL=N8:Y2L=10:Y2AL=11:Y3L=13:Y3AL=15:Y4L=17:Y4AL=21:Y5L=21:Y5AL=27:J1=2.52:J2=2.62:J3=2.7800000000000002
19IFA=N2THENL1=N38:R1=42:L2=36:R2=44:L3=32:R3=48:L4=24:R4=56:L5=15:R5=65:J4=2.98:J5=3.35:GOTON32
20IFA=N3THENY1L=N9:Y1AL=N9:Y2L=11:Y2AL=12:Y3L=13:Y3AL=16:Y4L=18:Y4AL=22:Y5L=22:Y5AL=27:J1=2.5300000000000002:J2=2.64:J3=2.81
21IFA=N3THENL1=N38:R1=42:L2=35:R2=45:L3=31:R3=49:L4=23:R4=57:L5=13:R5=67:J4=3.02:J5=3.4:GOTON32
22IFA=N4THENY1L=N9:Y1AL=N9:Y2L=11:Y2AL=12:Y3L=14:Y3AL=17:Y4L=18:Y4AL=22:Y5L=23:Y5AL=27:J1=2.54:J2=2.66:J3=2.83
23IFA=N4THENL1=N38:R1=42:L2=35:R2=45:L3=30:R3=50:L4=22:R4=58:L5=12:R5=68:J4=3.06:J5=3.45:GOTON32
24IFA=N5THENY1L=N9:Y1AL=N9:Y2L=12:Y2AL=13:Y3L=15:Y3AL=18:Y4L=19:Y4AL=23:Y5L=24:Y5AL=27:J1=2.56:J2=2.68:J3=2.85
25IFA=N5THENL1=37:R1=43:L2=34:R2=46:L3=29:R3=51:L4=21:R4=59:L5=10:R5=70:J4=3.1:J5=3.5:GOTON32
26IFA=N6THENY1L=N9:Y1AL=N9:Y2L=12:Y2AL=13:Y3L=15:Y3AL=18:Y4L=19:Y4AL=23:Y5L=25:Y5AL=27:J1=2.57:J2=2.72:J3=2.9
27IFA=N6THENL1=37:R1=43:L2=34:R2=46:L3=28:R3=52:L4=20:R4=60:L5=9:R5=71:J4=3.15:J5=3.6:GOTON32
28IFA=N7THENY1L=N10:Y1AL=N10:Y2L=12:Y2AL=14:Y3L=16:Y3AL=19:Y4L=20:Y4AL=24:Y5L=26:Y5AL=27:J1=2.58:J2=2.72
29IFA=N7THENL1=37:R1=43:L2=33:R2=47:L3=27:R3=53:L4=19:R4=61:L5=7:R5=73:J3=2.9:J4=3.2:J5=3.7:GOTON32
30Y1L=N10:Y1AL=N10:Y2L=12:Y2AL=14:Y3L=16:Y3AL=19:Y4L=20:Y4AL=25:Y5L=27:Y5AL=27:J1=2.59:J2=2.74:J3=2.92:J4=3.25
31L1=37:R1=43:L2=N32:R2=48:L3=26:R3=54:L4=18:R4=62:L5=N4:R5=76:J5=3.8000000000000003
32Y1R=Y1L:Y1AR=Y1AL:Y2R=Y2L:Y2AR=Y2AL:Y3R=Y3L:Y3AR=Y3AL:Y4R=Y4L:Y4AR=Y4AL:Y5R=Y5L:Y5AR=Y5AL
33L1=L1+OFF+R(B+N4)*J1:R1=R1+OFF+R(B+N4)*J1:L2=L2+OFF+R(B+N3)*J2:R2=R2+OFF+R(B+N3)*J2:L3=L3+OFF+R(B+N2)*J3
34R3=R3+OFF+R(B+N2)*J3:L4=L4+OFF+R(B+N1)*J4:R4=R4+OFF+R(B+N1)*J4:L5=L5+OFF+R(B)*J5:R5=R5+OFF+R(B)*J5
35SN1=INT(B/HU):SN2=INT((B-SN1*HU)/N10):SN3=INT(B-SN1*HU-SN2*N10)
36SN1$=NUST$(SN1*N8+N1,SN1*N8+N8):SN2$=NUST$(SN2*N8+N1,SN2*N8+N8):SN3$=NUST$(SN3*N8+N1,SN3*N8+N8)
47IFL1<ZORL1>SNTHENY1L=N6:Y1AL=N6:L1=39+N8*SGN(L1)
48IFL2<ZORL2>SNTHENY2L=N6:Y2AL=N6:L2=39+N8*SGN(L2)
49IFL3<ZORL3>SNTHENY3L=N6:Y3AL=N6:L3=39+N8*SGN(L3)
50IFL4<ZORL4>SNTHENY4L=N6:Y4AL=N6:L4=39+N8*SGN(L4)
51IFL5<ZORL5>SNTHENY5L=N6:Y5AL=N6:L5=39+N8*SGN(L5)
53IFR1>SNORR1<ZTHENY1R=N6:Y1AR=N6:R1=39+N8*SGN(R1)
54IFR2>SNORR2<ZTHENY2R=N6:Y2AR=N6:R2=39+N8*SGN(R2)
55IFR3>SNORR3<ZTHENY3R=N6:Y3AR=N6:R3=39+N8*SGN(R3)
56IFR4>SNORR4<ZTHENY4R=N6:Y4AR=N6:R4=39+N8*SGN(R4)
57IFR5>SNORR5<ZTHENY5R=N6:Y5AR=N6:R5=39+N8*SGN(R5)
58POKEML,12:POKEMR,Z:FILL=USR(ADR(FS$),MEM1,MEM2,Z)
60COLORRC(N1):IFY1L>N6ANDY2L>N6ANDB<252THENPLOTL1,Y1AL:DRAWTOL2,Y2AL
61IFY1R>N6ANDY2R>N6ANDB<252THENPLOTR1,Y1AR:DRAWTOR2,Y2AR
62COLORRC(N2):IFY2L>N6ANDY3L>N6ANDB<253THENPLOTL2,Y2AL:DRAWTOL3,Y3AL
63IFY2R>N6ANDY3R>N6ANDB<253THENPLOTR2,Y2AR:DRAWTOR3,Y3AR
64COLORRC(N3):IFY3L>N6ANDY4L>N6ANDB<254THENPLOTL3,Y3AL:DRAWTOL4,Y4AL
65IFY3R>N6ANDY4R>N6ANDB<254THENPLOTR3,Y3AR:DRAWTOR4,Y4AR
66COLORN1:PLOTL5,Y5L:DRAWTOL5,Y5AL:PLOTR5,Y5R:DRAWTOR5,Y5AR:IFB<252THENPLOTL1,Y1L:PLOTR1,Y1R
67IFB<253THENPLOTL2,Y2L:DRAWTOL2,Y2AL:PLOTR2,Y2R:DRAWTOR2,Y2AR
68IFB<TFTHENPLOTL4,Y4L:DRAWTOL4,Y4AL:PLOTR4,Y4R:DRAWTOR4,Y4AR
69IFB<254THENPLOTL3,Y3L:DRAWTOL3,Y3AL:PLOTR3,Y3R:DRAWTOR3,Y3AR
70IFB>=TFTHENSOUNDN1,N50,N10,N10:COLORZ:PLOTL5,Y5L:DRAWTOL5,Y5AL:PLOTR5,Y5R:DRAWTOR5,Y5AR
71IFB>=TFTHENPOKE1613,Z:POKESH+N1,Z:POKESH+N2,Z:POKESH+N3,Z:FORI=FTTTOFTT+N2:POKEI,Z:NEXTI
72IFB>=TFTHENFORI=N1TON5*N6:NEXTI:SOUNDN1,Z,Z,Z:LM=PMB*E:UM=LM+TTT:FI=Z:GOSUBFG:GOTO3000
73T=T+N1:IFL5<35ANDR5>46THENGOTON6
74POKE1613,Z:POKESH+N1,Z:POKESH+N2,Z:POKESH+N3,Z:POKEFTT,Z:POKEFTT+N1,Z:POKEFTT+N2,Z:GOTOFG/N10
75RESTOREHU*N5*N2:FORI=ZTON24:READN:POKE1536+I,N:POKE1561+I,N:POKE1586+I,N:POKE1611+I,N:POKE1636+I,N
76NEXTI:POKE1563,198:POKE1575,N50:POKE1588,82:POKE1600,75:POKE1625,HU
77POKE1650,Z:POKE1572,22:POKE1597,24:POKE1622,23:POKE1647,24:FORI=SHTO707:POKEI,Z:POKE52544+I,Z:NEXTI
78GRAPHICSN2*N10+N1:POKESH+N4,N10:POKESH+N5,224:POKESH+N6,148:POKESH+N8,Z
79DL=PEEK(560)+E*PEEK(561)
80POKEDL+N32,138:POKEDL+41,138:POKEDL+42,134:POKEDL+44,138:POKEDL+45,138
81FORI=N1TON3:POKEDL+N50+N1+I,PEEK(DL+N50+N2+I):NEXTI
83POKE512,Z:POKE513,N6:POKE54286,192
84SRS=PEEK(DL+N4)+E*PEEK(DL+N5):MEM1=SRS+N8*N2*N10:MEM2=SRS+559:ML=SRS+127:MR=ML+N4:VEL=Z:ENOM=Z
85SD=SRS+740:POKESD,N4*N4:POKESD+N4,19:POKESD+N5,N4*N4:POKESD+N4+N5,22:POKESD+N5+N5,N4*N4
86POKESD+14,25:POKESD+15,16:POKESD+17,17:POKESD+18,18:POKESD+19,16
87COLORN2:PLOT29,N4:DRAWTO33,Z:DRAWTON1,Z:POSITIONN5,N4:POKE765,N2:XION3*N6,#6,Z,Z,"S:":PLOTSN,N9*N4
88PLOT73,N4:DRAWTO77,Z:DRAWTO45,Z:POSITION49,N4:XIO18,#6,Z,Z,"S:"
89COLORN3:PLOTN39,Z:DRAWTON39,N3:DRAWTO31,N3:DRAWTO30,N7:PLOT40,N3:DRAWTO47,N3:DRAWTO48,N7:DRAWTO30,N7
90COLORN2:PLOTZ,35:DRAWTON5,32:DRAWTO33,29:DRAWTO46,29:DRAWTO74,32:DRAWTO79,35:DRAWTOZ,35:DRAWTOZ,36
91PLOT39,28:PLOT40,28:PLOT79,36:PLOTN3,34:DRAWTO76,34:PLOT74,33:DRAWTO5,33:PLOTN10,32:DRAWTO69,N32
92PLOT19,31:DRAWTO59,31:PLOT29,30:DRAWTON50,30
93COLORZ:PLOT39,29:DRAWTO39,34:DRAWTO40,34:DRAWTO40,29:POKE1613,Z:POKE1638,Z
94COLORN2:PLOTN38,46:DRAWTON38,42:DRAWTO40,41:DRAWTO41,42:DRAWTO41,46
95COLORN3:PLOTN9,43:PLOTN9,44:PLOTN10,43:PLOTN10,44
96PLOT13,44:PLOT13,45:PLOT14,44:PLOT14,45
97PLOT17,43:PLOT17,44:PLOT18,43:PLOT18,44
98PLOT60,43:PLOT60,44:PLOT61,43:PLOT61,44
99PLOT64,44:PLOT64,45:PLOT65,44:PLOT65,45
100PLOT68,43:PLOT68,44:PLOT69,43:PLOT69,44
401IFTR=PTTHENPOS=PEEK(PO):IFPOS<76ORPOS>153THENPOKE1613,N50:GOTO401
403POKE1613,210:IFPEEK(TR)<>ZTHENGOTO401
404POKE1613,Z:PAD=HU+N7+N7+R(Z)*N6*N3
405LM=PMB*E:UM=LM+TTT:FI=Z:GOSUBFG
406POKE559,46:FORI=SH+N1TOSH+N3:POKEI,230:NEXTI
407POKEFTT,86:POKEFTT+N1,111:POKEFTT+N2,136
409FORI=FTT+N8TOFTT+N10:POKEI,N3:NEXTI:POKEFTT+N24+N4,N3
410GOTON6
500R1=N3*N3+INT(RND(Z)*17):R2=30+INT(RND(Z)*20):COLORN3:FORI=N5*N5*N3TO45STEP-N2:SOUNDZ,N4*N5,N4*N2,I/N5
501POKESH+N4,RND(Z)*TF:POKESH+N5,RND(Z)*TF:SOUNDN1,N3*N5*N5,N4+N4,I/N5+N3:SOUNDN2,HU+N5*N5*N3,N4+N4,I/N5
502SOUNDN3,TF,N4+N4,I/N5+N5:POKE1538,RND(Z)*TF:POKE1563,RND(Z)*TF
503A=INT(RND(Z)*SN):V=9+INT(RND(Z)*17):PLOTR2,R1:DRAWTOA,V
504POKE1588,RND(Z)*TF:POKE1638,RND(Z)*TF:NEXTI:POKE559,Z
505LM=PMB*E:UM=LM+TTT:FI=Z:GOSUBFG
507FORI=N50TOZSTEP-N2:SOUNDZ,58,N8,I/N3:SOUNDN1,GT-N8,N3*N4,I/N3:NEXTI
508GRAPHICSN3*N6:POSITIONN1,Z:?#6;"WEHAVECONTACT!!":FORI=ZTON3:SOUNDI,Z,Z,Z:NEXTI
509POSITIONZ,N2:?#6;"";INT(VEL);""
511POSITIONN1,N4:?#6;"PYLON";INT(B)
512OFF=INT(B/E*FG*N2+(125*(B/E)-T)*N7*N8+INT(VEL)):IFOFF<ZTHENOFF=Z
513L1=Z:GOTO3008
600DATA205,181,165,181,205,1,0,14,10,14,2,2,2,0,28,20,28,20,20,28,0,112,16,16,112,64,120,0,0
601DATA255,219,219,219,195,195,195,231,0,224,192,192,192,192,192,193,255,0,255,193
602DATA192,192,192,192,193,255,0,16,16,16,16,16,16,0,120,72,8,120,72,120,8,0,68,68
603DATA124,8,8,8,56,0,16,120,16,16,16,16,24,0,124,68,68,68,68,68,124,0,64,68,100,84,76,68,68,
900DATA0,0,0,0,0,1,2,3,4,5,6,7,9,10,8,7
901DATA5,4,3,2,1,0,-1,-2,-3,-4,-3,-2,-1,-1,0,1
902DATA0,1,2,3,4,5,7,8,9,11,13,14,15,15,13,12
903DATA10,9,8,6,5,3,1,-1,-2,-3,-3,-2,-1,0,0,1
904DATA1,2,2,1,0,2,4,3,1,0,-2,-4,-6,-7,-8,-10
905DATA-11,-12,-14,-15,-15,-14,-13,-15,-14,-12,-10,-8,-6,-4,-2,-1
906DATA0,2,3,5,6,7,8,9,10,9,10,11,12,14,14,15
907DATA14,15,16,16,15,13,12,10,9,7,6,5,4,3,2,1
908DATA-1,-2,-4,-5,-7,-8,-9,-9,-8,-8,-8,-9,-9,-8,-7,-6
909DATA-5,-4,-2,-0,-1,-2,-3,-3,-2,-1,-1,0,-1,-2,-2,-1
910DATA0,1,2,3,4,4,5,6,7,8,9,8,6,5,3,3
911DATA3,3,5,6,7,8,9,8,9,10,9,7,6,5,3,1
912DATA1,2,1,0,-1,-2,-3,-4,-6,-7,-8,-9,-10,-12,-11,-11
913DATA-10,-10,-9,-8,-7,-6,-6,-7,-6,-5,-4,-4,-3,-2,-1,0
914DATA-1,-3,-2,-1,1,0,2,3,4,5,4,4,5,5,4,4
915DATA4,2,1,0,-1,-3,-4,-5,-5,-5,-4,-3,-2,-1,1,0
1000DATA72,169,2,69,79,37,78,141,10,212,141,23,208,169,25,141,0,2,169,6,141,1,2,104,64
1050GRAPHICSN3*N6
1055PMB=PEEK(106)-N6-N6:POKE559,46:POKE54279,PMB:POKE623,N1
1056POKESH,HU+N2:POKESH+N1,148:POKESH+N2,N6*N3:POKESH+N3,N2
1057POKE53256,N1:POKE53257,N3:POKE53258,N3:POKE53259,N3
1060VT=PEEK(134)+PEEK(135)*E
1065AT=PEEK(140)+PEEK(141)*E
1070VEL=PMB*E+524-AT:POKEVT+N3,INT(VEL/E):POKEVT+N2,VEL-PEEK(VT+N3)*E
1075R1=VEL+217:R2=R1+128:R3=R2+128
1080POKEVT+N5+N5,R1-INT(R1/E)*E:POKEVT+N5+N6,INT(R1/E)
1081POKEVT+18,R2-INT(R2/E)*E:POKEVT+19,INT(R2/E)
1082POKEVT+26,R3-INT(R3/E)*E:POKEVT+27,INT(R3/E)
1085POKEFTT-N1,188:POKEFTT,15:POKEFTT+N1,HU+N2:POKEFTT+N2,183
1093POKESH+N5,66:POKESH+N7,194:POKE77,Z:POSITIONZ,Z:?#6;"":POSITIONN2,N1
1094POKESH+N4,234:?#6;"MIDNIGHT","STRIP":POSITIONZ,N3:?#6;""
1095POSITIONN1,N5:?#6;"random","":POSITION4,9:?#6;"[]"
1096LM=PMB*E:UM=LM+1023:FI=Z:GOSUBFG
1097CP$=NUST$(N9*N9,182):DL=PMB*E:LM=DL+658:POKELM,N3:POKELM+N3,N3:POKELM+N24,N3:POKELM+N24+N3,N3
1098LM=DL+768:UM=LM+N8*N2:FI=170:GOSUBFG:LM=LM+47:UM=LM+N8:GOSUBFG
1099LM=LM+33:UM=LM+N7:GOSUBFG:LM=LM+N24:UM=LM+N7+N8:GOSUBFG
1100LM=PMB*E+896:UM=PMB*E+TTT:FI=TF:GOSUBFG:POKE53277,N3
1101TR=PT:JUMP=1102:IFPEEK(PO)+PEEK(PO+N1)=456THENTR=ST:JUMP=1104:GOTOJUMP
1102IFPEEK(PO)>114THENPOKESH+N5,76:POKESH+N7,194:CH=Z:GOTO1106
1103CH=N1:POKESH+N7,204:POKESH+N5,66:GOTO1106
1104IFPEEK(SK)=N6+N7THENPOKESH+N5,76:POKESH+N7,194:CH=Z:GOTO1106
1105CH=N1:POKESH+N7,GT+N4:POKESH+N5,66
1106IFPEEK(77)<N10THENSOUNDZ,121-CH*61,N10,N2:GOTO1109
1107SOUNDZ,Z,Z,Z:GOTO1109
1109POKESH,RND(Z)*255:IFPEEK(TR)THENGOTOJUMP
1110POSITIONN4,N4+N5:?#6;"YOUR","":SOUNDZ,Z,Z,Z:FORI=N1TOHU:NEXTI
1111IFSRS>ZANDCHTHENA=R(N3)+R(56)+R(77)+R(156)+R(N2*HU):IFA=-N4*N4THENGOTO1116
1112IFCH=ZTHENV=-N1:GOTO1114
1113RESTORE900:FORI=ZTOTF:READN:R(I)=N:SOUNDZ,ABS(N*(N7+N8)),N8,N4:NEXTI:GOTO1116
1114FORI=ZTON6+N1:RESTOREINT(RND(Z)*16/N2)*N2+900:FORCH=ZTO31:V=V+N1:READN:R(V)=N:SOUNDZ,ABS(N*15),N8,N4
1115NEXTCH:NEXTI
1116A=Z:FORI=ZTON32-N1:A=N1-A:SOUNDZ,N50,A,(N3*N5)-INT(I/N3):NEXTI
1117SOUNDZ,N50,N4,N2:SOUNDN1,GT,N6,N4:B=Z:T=Z:POKE77,Z:RETURN
1200Z=0:N1=1:N8=8:N10=10:N50=50:HU=100:FG=N50*HU:SH=704:TF=255:TJ=3013:SOUNDZ,243,N10,N10:GOSUB1214
1201FORI=N1TO80:NEXTI:SN=79:GT=200:SK=632:PT=636:ST=644:PO=624:E=256:FTT=53249
1202SOUNDZ,136,N10,N10:FORI=N1TON50:NEXTI:GOSUB1214
1205N2=2:N3=3:N4=4:N5=5:N6=6:N7=7:N8=8:N9=9:N24=24:N32=32:N38=38:N39=39:N60=60:TTT=1023:HI=Z:OT=Z
1207SOUNDZ,121,N10,N10:FORI=N1TOHU:NEXTI:GOSUB1214
1210MESS$="TRYAGAINPATHETIC!FINISHED!GOODJOB!EXCELLENTAMAZING!!"
1211FS$="hhhhhhh8`ee"
1212SOUNDZ,162,N10,N10:FORI=N1TON50:NEXTI:GOSUB1214:SOUNDN1,HU+N2,N10,N8:GOTO1215
1214POKESH+N8,RND(Z)*TF:RETURN
1215L1=PEEK(756)*E:FORI=N1TO80:NUST$(I,I)=CHR$(PEEK(L1+127+I))
1216IFI=30THENSOUNDN3,91,N10,N10:GOSUB1214
1217IFI=70THENFORA=ZTO15STEPN3:FORN=ZTOESTEPN32:SOUNDN3,N,N10,A:NEXTN:NEXTA
1218NEXTI:SOUNDZ,136,N10,N10:GOSUB1214
1220FORI=N1TOHU+N2:READN:NUST$(I+80,I+80)=CHR$(N):IFI=30THENSOUNDN3,136,N10,N7*N2:GOSUB1214
1221IFI=45THENSOUNDN3,91,N10,N10:GOSUB1214
1222IFI=60THENSOUNDN3,243,N10,N7*N2:GOSUB1214
1223IFI=77THENSOUNDN3,45,N10,N8:GOSUB1214
1224IFI=HUTHENSOUNDN3,Z,Z,Z:GOSUB1214
1225NEXTI:SOUNDN1,121,N10,N10:FORI=N1TON50:NEXTI:SOUNDZ,243,N10,N8:FORI=N1TON50:NEXTI:POKESH+N8,Z
1226FORI=243TO60STEP-N1:SOUNDN1,I,N10,N10:NEXTI:SOUNDZ,Z,Z,Z:SOUNDN1,Z,Z,Z:RETURN
3000SOUNDN2,Z,Z,Z:FORI=INT(VEL/N8)TOZSTEP-N1:POKESH+N4,I:POKESH+N5,I:POKESH+N6,I:POKE1563,I:POKE1588,I
3001POKE1613,I:POKE1538,I:POKE1638,I:SOUNDZ,N50,N4,I:SOUNDN3,GT,N6,I:FORA=ZTON6*N3:NEXTA:NEXTI
3002FORI=ZTON50:NEXTI:OFF=FG*N2-HU-N10*N2+(125-T)*N7*N8+INT(VEL):IFOFF<ZTHENOFF=Z
3003ENOM=INT(ABS(OFF+N50)/2000):IFOFF>7999ANDOFF<9000THENENOM=ENOM-N1
3004L1=Z:IFOFF>9500THENL1=N1:IFOFF>9700THENL1=N2:IFOFF>9800THENL1=N3:IFOFF>9900THENL1=N4
3005GRAPHICSN6*N3:FORI=ZTON3:SOUNDI,Z,Z,Z:NEXTI:IFOFF>ZTHENPOSITIONN5,Z:?#6;MESS$(ENOM*9+N1,ENOM*N9+9)
3006POSITIONZ,N2:?#6;"";INT(VEL);""
3008POSITIONN1,N5:?#6;"","";OFF:IFL1>ZTHENGOSUBFG-HU*N10
3009IFTR=STTHENPOSITIONN5,N7:?#6;"(JOYSTICK)":GOTO3011
3010POSITIONN6,N7:?#6;"(PADDLE)"
3011FORI=ZTOE:NEXTI:POSITIONN2,N10:?#6;"":POSITIONZ,N3*N3
3012?#6;"":A=Z:IFHI<OFFTHENHI=OFF:OT=TR
3013FORI=N1TOHU:IFPEEK(PT)=ZORPEEK(ST)=ZTHEN4
3014NEXTI
3016A=N1-A:IFA=N1ANDOT>0THENPOSITIONN1,N5:?#6;"","";HI;""
3017IFA=N1ANDOT=STTHENPOSITIONN5,N7:?#6;"(JOYSTICK)":GOTOTJ
3018IFA=N1ANDOT>0THENPOSITIONN5,N7:?#6;"(PADDLE)":GOTOTJ
3020POSITIONN1,N5:?#6;"","";OFF;""
3021IFTR=STTHENPOSITIONN5,N7:?#6;"(JOYSTICK)":GOTOTJ
3022POSITIONN5,N7:?#6;"(PADDLE)":GOTOTJ
4000FORL3=N7*(N1+L1)TOZSTEP-N2:FORL4=N10+N5TOGT-N5STEPN10:POKESH+N8,RND(Z)*TF:SOUNDZ,L3,N10,L4
4001NEXTL4:NEXTL3:POKESH+N8,Z:SOUNDZ,Z,Z,Z:RETURN
5000FILL=USR(ADR(FS$),LM,UM,FI):RETURN	

• Download link 1

• Download link 1
• Download link 2