Atari 8-bit Source code

10DIMH(200),A$(7),L$(7),R$(7),A(1),V(1)
20RAD:GRAPHICS7:SETCOLOR4,0,10:POKE752,1
30SETCOLOR1,8,6:SETCOLOR0,4,6:SETCOLOR2,13,8
50A(0)=60:A(1)=60:V(0)=60:V(1)=60:P=1:IF0.5>RND(0)THENP=2
60GOSUB900:PRINT"ENTERNAMEOFPLAYERONTHE:"
64PRINT"LEFT";:INPUTL$
66PRINT"RIGHT";:INPUTR$
70LS=0:RS=0:GOTO200
100GRAPHICS7:SETCOLOR4,0,10:POKE752,1
102SETCOLOR1,8,6:SETCOLOR0,4,6:SETCOLOR2,13,8
110GOSUB900:PT=0
200SETCOLOR4,0,10:PT=PT+1:A1=0
205IFPT=10THEN?:?:?"NOSCORE"
206IFPT=10THENSETCOLOR4,0,0:FORI=1TO300:SOUND0,200,12,4:NEXTI:GOTO100
210COLORP:FORI=75TO79:PLOT0,I:DRAWTO159,I:NEXTI
220A1=A(P-1):A$=L$:IFP=2THENA$=R$
221GOSUB800:PRINT,"SELECTYOUR:";A1;
222A=STICK(P-1):IFA=15ORA=11ORA=7THEN254
240IF(A=14ORA=10ORA=6)ANDA1<90THENA1=A1+1
242IF(A=13ORA=9ORA=5)ANDA1>45THENA1=A1-1
250PRINT"";A1;
254SOUND0,0,0,0:IFSTRIG(P-1)THEN222
270A(P-1)=A1:FORI=1TO100:SOUND0,I,10,4:NEXTI:V1=V(P-1):GOSUB800:PRINT,"SELECTYOUR:";V1;
271V=STICK(P-1):IFV=15ORV=11ORV=7THEN294
272IF(V=14ORV=10ORV=6)ANDV1<99THENV1=V1+1
274IF(V=13ORV=9ORV=5)ANDV1>10THENV1=V1-1
280PRINT"";V1;
294SOUND0,0,0,0:IFSTRIG(P-1)THEN271
350V(P-1)=V1:A=A1*0.0175:V=V1
352S=SIN(A):C=COS(A)
354R=V*S:Q=V*C
360K=L1:L=L2-5:IFP=2THENQ=-Q:K=R1:L=R2-5
365T=0.05:H=0:L=79-L
400T=T+0.07:X=K+Q*T
410IFX<0ORX>159THEN500
420Y=79-(R-16*T)*T-L:Y=Y*0.9:IFY<0THEN400
430IFY>74THEN500
440H=H+2:H(H)=X:H(H+1)=Y
450LOCATEX,Y,Z
455IFZ=0THEN480
460IFZ=1ANDP=2THEN600
462IFZ=2ANDP=1THEN630
470GOTO500
480SOUND0,Y,8,6
490PLOTX,Y:GOTO400
500SETCOLOR4,7,4
520COLOR0:FORI=2TOHSTEP2
521SOUND0,I,10,10
522PLOTH(I),H(I+1):NEXTI
530IFP=1THENP=2:GOTO200
532P=1:GOTO200
600RS=RS+10-PT
602GOSUB700
610IFRS>29THEN680
620GOTO650
630LS=LS+10-PT
632GOSUB700
634IFLS>29THEN680
650GOTO100
680PRINT"ENDOFCONTEST"
682PRINTL$;"";LS,R$;"";RS
684PRINT"PushtheFIREbuttonfornextgame?"
690IFPTRIG(0)=0ORPTRIG(1)=0THENRUN
692SOUND0,RND(0)*200,14,4:GOTO690
700SETCOLOR4,5,10
701IFX>154THENX=154
705FORI=1TO35:SOUND0,RND(0)*30+30,4,14
706SOUND1,RND(0)*50+150,4,14
707A=X+RND(0)*50-25:IFA<0ORA>159THEN707
708B=Y-RND(0)*70:IFB<0THEN708
709PLOTX+RND(0)*5,Y+RND(0)*7:DRAWTOA,B
710SETCOLOR4,RND(0)*16,10:NEXTI
712SOUND1,0,0,0:RETURN
800POKE77,0:PRINT:PRINTL$;":";LS;"";R$;":";RS;"SHOT:";PT
810PRINT"`````";A$;"'sTURN";"`````":PRINT:RETURN
900COLOR3:PRINT""
905L=INT(RND(0)*40)+25:R=INT(RND(0)*40)+25
906IFRND(0)<0.5THENL=71:GOTO910
907R=71
910A=15+INT(RND(0)*60):B=85+INT(RND(0)*60)
912C=INT(RND(0)*(B-A)+1)+A:IFC<A+2ORC>B+2THEN912
914D=INT(RND(0)*70)+1
916L2=L:L1=A-11:R2=R:R1=B+6
930FORI=1TO9
932PLOT0,L:DRAWTOA,L:DRAWTOC,D:DRAWTOB,R:DRAWTO159,R
934L=L+1:D=D+1:R=R+1:NEXTI
952X=L1:Y=L2:COLOR1:GOSUB990
954X=R1:Y=R2:COLOR2:GOSUB990
960R1=R1+5:R2=R2+2:L2=L2+2:L1=L1+2
989RETURN
990PLOTX,Y-1:DRAWTOX,Y+3:PLOTX+7,Y-1:DRAWTOX+7,Y+3:FORI=3TO4:PLOTX+I,Y-5:DRAWTOX+I,Y+2:NEXTI
992PLOTX+1,Y+1:DRAWTOX+6,Y+1
999RETURN	

• Download link 1

• Download link 1
• Download link 2