Atari 8-bit Source code

0POKE82,2:POKE83,40:GRAPHICS0:SETCOLOR2,1,4:SETCOLOR1,1,10
1PRINT"******"
2POKE752,1:PRINT"YOURMISSIONISTOBLOWUPTHEOTHERGUYBEFOREHEDOESTHESAMETOYOU."
3PRINT"ENTERDATAINTHEFOLLOWINGFORMAT:":PRINT"ANGLETOFIRE,NO#OFBAGSPOWDER":?
4?"example55,8":PRINT"***STANDBY***"
8FORI=0TO3000:NEXTI:DIMYY(280):P1=99:PI=3.14159265/180
10GRAPHICS7:SETCOLOR2,1,6
15P1=-P1:COLOR3:P=RND(1)*10+70
20FORI=0TO70:PLOTI,P:DRAWTOI,79:YY(I)=P:NEXTI
25HG=RND(1)*25+10
30FORI=71TO89:HX=SIN(((I-70)*9+180)*PI)*HG:YY(I)=HX+P:PLOTI,HX+P:DRAWTOI,79:NEXTI
40FORI=90TO159:PLOTI,P:DRAWTOI,79:YY(I)=P:NEXTI
45WIND=INT(RND(1)*10):IFRND(1)*100>50THENWIND=-WIND
47COLOR3:PLOT75,2:DRAWTO85,2
48IFWIND>0THENPLOT75,2:DRAWTO77,0
49PRINT"WIND:";ABS(WIND)
50IFWIND<0THENPLOT85,2:DRAWTO83,0
51B1=RND(1)*5+35-2*WIND:B2=RND(1)*5+124+2*WIND:COLOR1:SETCOLOR0,8,4
52PLOTB1-1,P-2:DRAWTOB1+1,P-2:DRAWTOB1+1,P:DRAWTOB1-1,P:DRAWTOB1-1,P-2
53PLOTB2-1,P-2:DRAWTOB2+1,P-2:DRAWTOB2+1,P:DRAWTOB2-1,P:DRAWTOB2-1,P-2
54IFP1=99THEN120
55PRINT"ANG,BG";:POKE752,0:INPUTAN,BG:BG=BG*10:POKE752,1
56IFP1=-99THENPX=B1
58IFP1=99THENPX=B2
59PRINT"WIND:";ABS(WIND)
60I=0
61I=I+0.1:X=BG*I*COS(AN*PI)
62SOUND1,100,10,6
63IFP1=-99THENX=B1+X
64IFP1=99THENX=B2+X
65SOUND1,0,0,0:Y=BG*I*SIN(AN*PI)-16*I^2
66X=X-WIND*I^2
67IFP1=99THENY=BG*I*(-SIN(AN*PI))-16*I^2
68COLOR0:PLOTPX,PY
69IFX<0ORX>159ORP-Y<0THEN115
70IFYY(X)<P-YTHEN100
72COLOR3:PLOTX,P-Y
73PX=X:PY=P-Y
77GOTO61
100IFABS(X-B1)<3THEN200
101IFABS(X-B2)<3THEN210
105IFX<3ORX>159THEN115
108COLOR0:FORI=1TO25:BX=X-3+RND(1)*6:BY=YY(BX)+RND(1)*3:SOUND1,200,6,4:PLOTBX,BY
110NEXTI:SOUND1,0,0,0
112FORI=X-3TOX+3:YY(I)=YY(I)+3:NEXTI
115P1=-P1:IFP1=-99THEN55
120PRINT"ANG,BG";:POKE752,0:INPUTAN,BG:BG=BG*10:PRINT"":POKE752,1
130AN=AN+180
135PY=P-5
140GOTO56
200GX=B1:GOTO220
210GX=B2
220SETCOLOR1,3,4:COLOR2:FORI=GX-10TOGX+10STEP2:PLOTI,P-10:DRAWTOGX,P:NEXTI
230FORA=140TO0STEP-1:SOUND1,250,6,A/10:NEXTA:SOUND1,0,0,0
240FORA=0TO1000:NEXTA:GOTO10	

• Download link 1

• Download link 1