Atari 8-bit Source code

10GRAPHICS0:POKE752,1:GOTO50
20X=INT(RND(0)*X+1):RETURN
30Z=INT(SQR((EX(G)-6)^2+(EY(G)-6)^2)):RETURN
40Z=INT(1/(ED(G))*100+(C/2)):RETURN
50DIMS$(11),R$(40):OPEN#1,4,0,"K:":G=1
51DIMET(5),EH(5),EX(5),EE(5),EY(5),ED(5)
52R$="":R$(40)="":R$(2)=R$
53S$=R$(1,11)
55C=99:G=1:GOSUB8000:GOSUB5110:GOSUB2000:GOSUB7000
200GOSUB5000:GOSUB1000:GOSUB6000:GOSUB3000:GOSUB4000
210GOTO200
1000POSITION2,1:?""
1020?"TYPE";
1030FORG=1TO4
1040IFET(G)=0THEN?"";
1050IFET(G)=1THEN?"LIGHT";
1060IFET(G)=2THEN?"MEDIUM";
1070IFET(G)=3THEN?"HEAVY";
1080NEXTG
1100?:?"Distance":?"Prob.":?"Energy"
1120FORG=1TO4
1122X=G*7+5
1124?""
1126?R$(1,X);ED(G);""
1128?R$(1,X);EH(G);""
1130?R$(1,X);EE(G);""
1140NEXTG:?:POKE201,11
1150FORI=8TO19:POSITION2,I:?,:NEXTI:POSITION2,8
1300?S$;""
1305?S$;"":?
1310?S$;"ENERGY";E
1320?S$;"COMPUTER";C
1330?S$;"AIN";M
1340?S$;"ECONDARY";S
1350?S$;"ORPS";T
1360?S$;"V.P.";VP
1400?S$;"=CHARGEENERGY":?:?
1500POSITION2,8
1510A=0
1520FORY=1TO11
1530FORX=1TO11
1540FORG=1TO5
1550IFY<>EY(G)THEN1620
1560IFX<>EX(G)THEN1620
1570A=1:IFG<>5THEN?G;:FORW=150TO0STEP-10:SOUND0,W,12,W:NEXTW
1610IFG=5THEN?"";:FORW=150TO0STEP-10:SOUND0,I,10,W/10:NEXTW
1620NEXTG
1630IFX=6ANDY=6THEN?"";:A=1
1640IFA=1THENA=0:GOTO1660
1650?"+";:POKE53279,0
1660SOUND0,0,0,0:NEXTX
1670?
1680NEXTY
1690POSITION2,6
1700FORA=1TO11
1710?R$(1,11);""
1720NEXTA
1990?:RETURN
2000ET(5)=0:EX(5)=0:EY(5)=0
2010E=99:M=99:S=99
2020T=T+5
2030RETURN
3000FORG=1TO5:IFET(G)>0THEN3100
3010NEXTG:RETURN
3100IFG<5ANDINT(9*RND(0)+1)>5THEN3010
3200IFEX(G)>6THENEX(G)=EX(G)-1
3210IFEX(G)<6THENEX(G)=EX(G)+1
3220IFEY(G)<6THENEY(G)=EY(G)+1
3230IFEY(G)>6THENEY(G)=EY(G)-1
3240IFET(5)=5ANDEY(5)=6ANDEX(5)=6THENGOSUB2000
3250IFEY(G)=6ANDEX(G)=6THEN9500
3265IFG<5ANDEX(G)=EX(5)ANDEY(G)=EY(5)THENET(5)=0:EX(5)=0:EY(5)=0
3300GOSUB30:ED(G)=Z
3330GOSUB40:EH(G)=Z:IFEH(G)>99THENEH(G)=99
3400GOTO3010
4000?"ENEMYFIRING&MOVING"
4010FORG=1TO4:IFET(G)<>0THEN4100
4020NEXTG:RETURN
4100IFINT(99*RND(0)+1)>(EE(G)+INT(30*RND(0)+1))OREE(G)<10THEN4020
4110E=E-INT(0.5*RND(0)+1)*ET(G)
4150EE(G)=EE(G)-INT(10*RND(0)+1)
4160IFRND(1)<0.01THENC=C-INT(5*RND(0)+1):IFC<1THEN9500
4170IFRND(1)<0.1THENM=M-INT(25*RND(0)+1):IFM<0THENM=0
4180IFRND(1)<0.1THENS=S-INT(25*RND(0)+1):IFS<0THENS=0
4200IFE<0THEN9500
4210GOTO4020
5000G=INT(5*RND(0)+1)
5005IFG=5ANDET(5)=0ANDINT(4*RND(0)+1)>1THENET(5)=5:GOTO5160
5010IFG=5ORET(G)<>0ORINT(9*RND(0)+1)>6THEN5400
5110A=4-INT(LOG(INT(50*RND(0)+1)+2))
5120ET(G)=A:EE(G)=99
5160EX(G)=INT(11*RND(0)+1)
5170EY(G)=INT(11*RND(0)+1)
5180A=INT(4*RND(0)+1):IFA=1THENEY(G)=1
5190IFA=2THENEY(G)=11
5200IFA=3THENEX(G)=11
5210IFA=4THENEX(G)=1
5300GOSUB30:ED(G)=Z
5320GOSUB40:EH(G)=Z:IFEH(G)>99THENEH(G)=99
5400RETURN
6000?:?:?"COMMAND:":A=0
6010TRAP6010:GET#1,K:TRAP40000
6020IFK=ASC("M")ANDM>0THENA=6:M=M-INT(5*RND(0)+1):IFM<0THENM=0
6025IFK=ASC("C")THENE=E+INT(20*RND(0)+1):GOSUB10800
6030IFK=ASC("C")THENRETURN
6035IFK=ASC("S")ANDS>0THENA=4:S=S-INT(5*RND(0)+1):IFS<0THENS=0
6040IFK=ASC("T")ANDT>0THENA=9:T=T-1
6060IFA<3THEN?"BADINPUT!COMMAND:":GOTO6010
6100?"TARGETN0:"
6120TRAP6120:GET#1,K:TRAP40000
6125B=K-48:B=B*(B>=1ANDB<=4)
6130IFET(B)=0THEN?"BADDATA!TARGET:":GOTO6120
6140IFA=6THENGOSUB10600
6150IFA=4THENGOSUB10500
6160IFA=9THENGOSUB10400
6200IFINT(99*RND(0)+1)>EH(B)THEN?"MISSED!":GOSUB10100:RETURN
6210EE(B)=INT(EE(B)-((A*2*INT(15*RND(0)+1))/ET(B)))
6215?"TARGET":GOSUB10200
6220IFEE(B)<1THEN6500
6230E=E-INT(0.5*RND(0)+1)
6300RETURN
6500VP=VP+ET(B)
6505EX(B)=0:EY(B)=0
6510ET(B)=0:EH(B)=0:ED(B)=0:EE(B)=0
6570?"":GOSUB10300
6580RETURN
7000REM
7005POKE559,46:PMB=PEEK(106)-16:POKE54279,PMB:PMB=PMB*256+512
7010POKE53248,0:POKE53249,0
7020POKE704,192:POKE705,192:P=47
7030POKE53256,0:POKE53237,3
7035FORI=0TO63:POKEPMB+I,0:POKEPMB+64+I,0:POKEPMB+128+I,0:POKEPMB+192+I,0:NEXTI
7040FORI=0TO44:POKEPMB+P+I,255:POKEPMB+128+P+I,255:NEXTI
7050POKE53277,3:POKE53248,48:POKE53249,100
7060RETURN
8000FORI=0TO5:ET(I)=0:EH(I)=0:EX(I)=0:EY(I)=0:ED(I)=0:EE(I)=0:NEXTI:RETURN
9500GOSUB10700
9510?"Youhavebeen"
9520POKE53248,0:POKE53249,0
9530POKE53277,0:POKE559,34
9550?"SCORE=";VP:?:?
9560IFVP>HSTHENHS=VP
9580?"***********************"
9590?"HighScore=";HS
9600?"***********************"
9605?"AnotherGame?(Y/N)";
9630TRAP9630:GET#1,K:TRAP40000
9640IFK=ASC("Y")THENRUN
9650END
10000REM
10100REMMISSED
10110FORW=100TO200STEP2:SOUND0,W,10,4:NEXTW:SOUND0,0,0,0:RETURN
10200REMHIT
10210FORW=0TO30:SOUND0,W*8,8,15-W/2:SOUND1,W*8,16,15-W/2:POKE712,PEEK(53770):NEXTW
10220POKE712,0:RETURN
10300REMENEMYDESTROYED
10310FORW=0TO255STEP10
10320POKE704,PEEK(53770):POKE705,PEEK(704)
10330SOUND0,W,8,W/15:SOUND1,PEEK(53770),0,15*RND(1)
10340NEXTW:SOUND0,0,0,0:SOUND1,0,0,0
10350POKE704,192:POKE705,192
10360RETURN
10400REMPHOTONTORPEDO
10410FORW=200TO100STEP-2:SOUND0,W,2,4:NEXTW:FORW=0TO100STEP6:SOUND0,W,2,8:NEXTW
10420SOUND0,0,0,0:RETURN
10500REMSECONDARYFIRE
10510FORI=1TO10:FORW=0TO3:SOUND0,W,2,8:NEXTW:NEXTI:SOUND0,0,0,0:RETURN
10600REMMAINFIRE
10610FORI=1TO10:FORW=0TO3:SOUND0,W,2,8:SOUND1,W*3,2,8:NEXTW:NEXTI:SOUND0,0,0,0:SOUND1,0,0,0:RETURN
10700REMYOURDEATHKNELL
10710FORW=0TO255STEP10
10720POKE710,PEEK(53770):POKE712,PEEK(53770)
10730SOUND0,W,0,15-W/17:SOUND1,128+W/2,8,8+7*RND(1)
10740NEXTW:FORW=0TO10:POKE710,68:FORI=0TO5:NEXTI:POKE710,0:NEXTW
10780SOUND0,0,0,0:SOUND1,0,0,0
10790SETCOLOR2,9,4:SETCOLOR4,0,0:RETURN
10800REMRECHARGE
10810FORW=1TO20:SOUND0,5+5*RND(0),10,8:NEXTW
10820SOUND0,0,0,0:RETURN	

• Download link 1

• Download link 1