Atari 8-bit Source code

0REM
1GRAPHICS0:SETCOLOR2,0,10:SETCOLOR1,1,1:SETCOLOR4,0,14:POKE82,2:POKE83,37
2DIMN$(16),O$(65),Z$(21),NN$(15),C$(10),A$(1),D$(15),E$(15),F$(15),U$(15),X$(10),X(4),S(4),M$(15)
3DIMZ(4)
96?M$
99?:?:?:?:?:?:?:?
100?"SPACE...THEFINALFRONTIER."
101?:?"Thisisthevoyageofthestarship"
110FORI=1TOINT(RND(1)*16+1)
111READN$
112NEXTI
114?N$;
115?",It'sfiveyearmission,"
116?"toexplorestrangenewworlds,to"
117?"seeknewlifeandnewcivilizations."
118?"Toboldlygowherenomanhasgone"
119?"before........."
120FORTIM=1TO3000:NEXTTIM
130GRAPHICS2:SETCOLOR4,14,6:SETCOLOR2,14,6:SETCOLOR1,14,6:SETCOLOR0,14,1
131NN$(1,8)="STARWARP":?NN$
132FORX=1TO8
133COLORASC(NN$(X,X))
134IFX<5THENPLOTX+6,4:GOTO136
135PLOTX+2,6
136NEXTX
139FORX=1TO1000:NEXTX:GRAPHICS0
500BG=INT(RND(1)*15):BT=INT(RND(1)*15)
510SETCOLOR2,1,13:SETCOLOR4,2,13:SETCOLOR1,1,2
520H1=H1+V
870?"YEOMAN:SIR--ENTERYOURNAMEFORTHELOG."
880INPUTC$
890?"DOYOUWANTALISTOFTHEPOSSIBLECOMMANDS,SIR";
900INPUTA$
920IFA$<>"Y"THEN5870
930GOSUB5530
940GOTO5870
950?
1010?C$;":Captain'slog,StarDate"
1011?INT(RND(1)*9999)*0.1;".Wearepresentlyoncourse"
1020RESTORE:FORX=1TO16+INT(RND(1)*8+1):READD$:NEXTX
1030?"for";D$;
1031RESTORE:FORX=1TO24+INT(RND(1)*3+1):READE$:NEXTX
1033ONINT(RND(1)*5+1)GOTO1040,1070,1100,1120,1140
1040?"torescueminers"
1041?"underattackby";E$;"Battle"
1050?"Cruisers.":GOTO1150
1070?"withacargo":?"ofDilithiumCrystalstopowerthe":?"colonistsstation.":GOTO1150
1100?"tosearchfor":?"newmineralsforthefederation.":GOTO1150
1120?"withtheMartian":?"flu-cure.":GOTO1150
1140?"forobservation":?"ofBlackHoles.":GOTO1150
1150?:?"SULU:Sir,I'mpickingupavesselonanattackvectorwiththe"
1160?N$;"."
1170?:?"SPOCK:Ship'scomputersindicatethatitisthe";E$;"vessel"
1171RESTORE:FORX=1TO27+INT(RND(1)*5+1):READF$:NEXTX
1172RESTORE:FORX=1TO32+INT(RND(1)*5+1):READU$:NEXTX
1180?"'";F$;"',underthecommandof":?U$;"."
1190?:?C$;":Soundtheredalert,"
1200?"LieutenantUhura."
1210?:?"UHURA:Aye,Sir."
1220IFRND(1)>0.5THEN1250
1230X$="SULU"
1240GOTO1260
1250X$="CHEKOV"
1260H1=0:H2=0:G=0:X=0:S=0
1270P=0
1280FORI=1TO4
1290Z(I)=100:S(I)=100
1310NEXTI
1320R=INT((1000-100*RND(1))*1000)/1000
1330B=INT((360*(RND(1)-0.5))*1000)/1000
1340B1=INT((360*(RND(1)-0.5))*1000)/1000
1350GOTO1380
1360IFI<7THEN1390
1370IFI>12THEN1390
1380GOSUB5810
1390?:?X$;":Whatareyourorders,Sir";
1395RESTORE:FORXX=1TO37:READM$:NEXTXX
1400INPUTM$
1410FORI=1TO21
1420READZ$:IFZ$=M$THENM=I:GOTO1520
1430NEXTI
1440?:?X$;":Troublehearingyou,"
1450?"Captain";C$;"!"
1460GOTO1390
1520?:?C$;":";
1521FORXX=1TO21:READO$:NEXTXX:?O$
1530IFI>12THEN1570
1540IFI>6THEN1560
1550ONIGOTO1380,1580,1610,1640,1670,1700
1560ON(I-6)GOTO1730,1730,1760,1760,2670,1730
1570ON(I-12)GOTO2780,2900,2920,1790,3710,3540,3630,6180,6210
1580IFH1<7THEN1900
1590?:?"CHEKOV:Forwardphasersaredead,Sir.":GOTO3710
1610IFH1<6THEN2320
1620?:?"CHEKOV:Rearphaserisdead,Sir.":GOTO3710
1640IFH1<9THEN2340
1650?:?"CHEKOV:Forwardphotontorpedoesaredead,Sir.":GOTO3710
1670IFH1<8THEN2410
1680?:?"CHEKOV:Rearphotontorpedoesaredead,Sir.":GOTO3710
1700IFH1<11THEN2430
1710?:?"CHEKOV:Probelauncherisdead,Sir.":GOTO3710
1730IFH1<14THEN2520
1740?:?"SULU:Impulseenginesaredead,Sir.":GOTO3710
1760IFH1<11THEN2520
1770?:?"SULU:Warpdriveisdead,Sir.":GOTO3710
1790IFH2<11THEN1820
1800?:?"SPOCK:The";E$;"hasno"
1801?"engines,Captain";C$;".":GOTO3710
1820IFG=0THEN3270
1830?:?"SPOCK:Idonotbelievethatthe":?E$;"willbefooledbythat"
1840?"maneuveragain,Sir.":GOTO3710
1860IFABS(B)<90THEN1890
1870?:?"CHEKOV:Incorrectvector,Sir.":GOTO3710
1890?:?"CHEKOV:Phasersfiring,Sir."
1900R9=R:B9=B:GOSUB6130
1930IFRND(1)<F8THEN1960
1940?:?"CHEKOV:Missedhim,Sir.":GOTO3710
1960IFRND(1)<0.2THEN2140
1970V=0.5
1980K=1
1990FORK1=2TO4:IFS(K)>=S(K1)THEN2020
2010K=K1
2020NEXTK1
2030IFS(K)>50THEN2050
2040K=INT(RND(1)*4+1)
2050H2=H2+V
2060?:?"SPOCK:Ahitonshield#";K
2070IFS(K)=0THEN2170
2080S(K)=S(K)-30*V*(RND(1)+0.1)
2100IFS(K)>0THEN2130
2110?"whichisnowgone."
2120S(K)=0
2130GOTO3710
2140V=1:?:?"CHEKOV:Directhit,Sir.":GOTO1980
2170?:?"CHEKOV:Gothim,Sir."
2180IFRND(1)<0.5THEN5440
2190?:?"SPOCK:The";E$;"vesselremains":?"intact,Captain."
2200?:?C$;":Openahailingfrequency,":?"Lieutenant."
2220?:?C$;":ThisisCAPTAIN";C$:?"oftheStarship";N$;"Prepare"
2230?"tocommencebeamingoversurvivors."
2240IFRND(1)<0.5THEN2300
2250?:?U$;":I'mafraidthatwill":?"bequiteimpossible,Captain,since"
2260?"wejustinitiatedourauto-destruct."
2270GOSUB20000:?:GOTO5440
2300?:?U$;":Verywell,Captain.Our":?"shieldshavebeende-activated.":GOTO5840
2320IFABS(B)<90THEN1870
2330GOTO1890
2340IFABS(B)>=90THEN1870
2350R9=R:B9=B
2370GOSUB6080
2380IFRND(1)>F9THEN1940
2390IFRND(1)<0.25THEN1970
2400GOTO2140
2410IFABS(B)<90THEN1870
2420GOTO2350
2430IFX<10THEN2460
2440?:?"CHEKOV:Wehavenomoreprobes,Sir."
2450GOTO3720
2460X=X+1
2470NN=INT(RND(1)*100):IFNN<7THEN2500
2480?:?"SPOCK:Probelost,Captain."
2490GOTO3710
2500?:?"SPOCK:Probeishominginonthe":?F$;",Sir."
2510GOTO5440
2520ON(I-6)GOTO2530,2560,2600,2630,2670,2740
2530GOSUB4880
2540R=ABS(R-Y):GOTO3710
2560GOSUB4940
2570R=ABS(R+Y)
2580IFR>5000THEN4780
2590GOTO3710
2600GOSUB4980
2610R=ABS(R-2*Y):GOTO3710
2630GOSUB5040
2640R=ABS(R+2*Y)
2650IFR>5000THEN4780
2660GOTO3710
2670S=1:FORJ=2TO4:IFZ(J)<=Z(S)THEN2710
2680S=J
2710NEXTJ
2720?:?"SULU:Shield#";S;"isin":?"position,Sir.":GOTO1390
2740B=B+180
2750IFB<=180THEN3710
2760B=B-360:GOTO3710
2780?:?"SPOCK:Atrange";INT(R*1000)/1000;",Iwould","estimatetheprobabilityofa"
2790R9=R:B9=B:GOSUB6130
2820F8=F8*100:?"phaserhitat";INT(F8*1000)/1000;"and":?"theprobabilityofaphoton"
2821R9=R:B9=B:GOSUB6080
2822?"torpedoat";INT(F9*1000)/1000;".":GOTO1390
2900GOSUB5530:GOTO1390
2920?:?"SPOCK:Damagesareasfollows:"
2930?""
2940?:?"shield#";N$;"";F$
2950FORJ=1TO4:?J,INT(Z(J)*1000)/1000,,INT(S(J)*1000)/1000
2960NEXTJ
2965?:?"PRESS'RETURN'KEYFORMOREDAMAGES":INPUTNN$
2970?:?N$;"damage-"
2971IFH1>5.5THEN3020
2975?"":GOTO3141
3020?"":IFH1<7THEN3140
3040?"":IFH1<8THEN3140
3050?"":IFH1<9THEN3140
3060?"":IFH1<10THEN3140
3070?"":IFH1<11THEN3140
3080?"":IFH1<14THEN3140
3090?""
3140REM
3141?:?F$;"damage-"
3150IFH2>5.5THEN3180
3160?"":GOTO3250
3180?"":IFH2<9THEN3250
3200?"":IFH2<11THEN3250
3220?"":IFH2<14THEN3250
3240?""
3250?:GOTO1390
3270?"UHURA:Aye,Sir.....Goahead,Sir."
3280?:?C$;":ThisisCaptain";C$
3290?"oftheStarship";N$;".We":?"arecurrentlyunderattackbythe"
3300?E$;"ship'";F$;"'.":?"Inordertopreventthe";N$:?"fromfallingintoenemyhands,we"
3310?"areactivatingtheCorbomitedevice.":?"Sincethiswillresultinthecom-"
3320?"pleteannihilationofallmatter":?"within500MGM.,allvesselsshould"
3330?"bewarnedtostayclearofthis":?"areaforthenext";INT(RND(1)*4)+2;"SolarYears."
3440G=1:IFRND(1)>0.2THEN3500
3450?:?"SULU:";E$;"ismovingaway":?"atWarp10,Sir.Thetacticappears"
3460?"tohavebeeneffective,Sir.":?"PRESS'RETURN'TOCONTINUE";:INPUTNN$:GOTO4780
3500?:?"SULU:Noimmediatechangeinthe",E$;"courseandspeed,Sir."
3510?"SPOCK:Itappears,Captain,thattheyhave,asyouhumanscallit,calledourbluff."
3520?:?"PRESS'RETURN'TOCONTINUE";:INPUTNN$:GOTO3710
3540?"COMPUTER:":GOSUB20000:?"The";N$;"hasbeendestroyed.":Q=200*RND(1)
3550?:?"RADIUSOFEXPLOSION-";INT(Q);"MGM"
3580IFQ>=RTHEN3610
3590?:?"";E$;"vesselremainsintact.":GOTO5840
3610?:?"";E$;"vesseldestroyed.":GOTO5840
3630IFE$<>"Romulan"THEN3660
3640?:?"UHURA:Noanswerfromthe";F$;"Sir.":GOTO3710
3660?:?C$;":ThisisCAPTAIN";C$:?"oftheStarship";N$;".Willyou"
3670?"acceptourunconditionalsurrender?":?:?U$;":Onbehalfofthe";E$
3680?"empire,Iacceptyoursurrender.Prepareforboarding...":GOTO5840
3710IFH2<9THEN4030
3720IFH2<11THEN3870
3730IFH2>13.9THEN4670
3740IFH1>10.9THEN4780
3760IFH1>8.9THEN3820
3770IFR<130*RND(1)THEN4830
3780GOSUB4880
3790R=ABS(R+Y):IFR>5000THEN4780
3800GOTO1380
3820IFRND(1)<0.5THEN3780
3830GOSUB4940:R=ABS(R-Y):IFR>5000THEN4780
3860GOTO1380
3870IFH1<7THEN4000
3880IFH1<9THEN3770
3890IFH1>10.9THEN4780
3900IFRND(1)<0.5THEN3820
3910IFRND(1)<0.5THEN3960
3920GOSUB4980
3930R=ABS(R+2*Y)
3940IFR>5000THEN4780
3950GOTO1380
3960GOSUB5040
3970R=ABS(R-2*Y)
3980IFR>5000THEN4780
3990GOTO1380
4000IFR>700THEN3960
4010IFR>200THEN3920
4020GOTO3770
4030IFH2<6THEN4200
4040IFH1<7THEN4120
4050IFR<300THEN3960
4060IFR>700THEN3920
4070IFH1>7.9THEN4090
4080IFINT(ABS(B1/90))>INT(ABS(B/90))THEN3960
4090IFABS(B1-90)>=ABS(B-90)-20THEN5080
4100IFRND(1)<0.5THEN3960
4110GOTO3920
4120R9=R
4130B9=B1
4140GOSUB6130
4150R9=R
4160B9=B1
4170GOSUB6080
4180IFF8>F9THEN3960
4190GOTO4050
4200IFH1<7THEN4290
4210IFR>150THEN4240
4220IFRND(1)<0.5THEN3830
4230GOTO3960
4240IFR>=400THEN4270
4250IFABS(B1)<30THEN5150
4260GOTO3830
4270IFR>700THEN3920
4280GOTO4080
4290IFR>700THEN3920
4300R9=R
4310B9=B1
4320GOSUB6080
4330R9=R
4340B9=B1
4350GOSUB6130
4360IFF9>F8THEN4080
4370IFH1>6.9THEN4390
4380IFINT(ABS(B1/90))>INT(ABS(B/90))THEN3960
4390IFABS(B1-90)>=ABS(B-90)-20THEN5150
4400GOTO3960
4410IFH1<6THEN4660
4420T=H1-V
4430IFABS(T-6)<0.1THEN4470
4440IFABS(H1-6.26)>0.3THEN4470
4450?:?"CHEKOV:Rearphaserdead,Sir."
4460GOTO4660
4470IFABS(T-7)<0.1THEN4510
4480IFABS(H1-7.25)>0.3THEN4510
4490?:?"CHEKOV:Forwardphasersdead,Sir."
4500GOTO4660
4510IFABS(T-8)<0.1THEN4550
4520IFABS(H1-8.25)>0.3THEN4550
4530?:?"CHEKOV:Rearphotontorpedoesdead,Sir."
4540GOTO4660
4550IFABS(T-9)<0.1THEN4590
4560IFABS(H1-9.25)>0.3THEN4590
4570?:?"CHEKOV:Forwardphotontorpedoesdead,Sir."
4580GOTO4660
4590IFABS(T-11)<0.1THEN4630
4600IFABS(H1-11.25)>0.3THEN4630
4610?:?"CHEKOV:ProbelauncherandWarpdrivegone,Sir."
4620GOTO4660
4630IFABS(T-14)<0.1THEN4660
4640IFABS(H1-14.25)>0.3THEN4660
4650?:?"CHEKOV:Impulseenginesdead,Sir."
4660RETURN
4670IFP>0THEN1360
4680P=1
4690?:?"SPOCK:The";E$;"shipiscomp-pletelycrippled,Sir.Doyouwantthemtosurrender";
4700INPUTA$
4710IFA$="Y"THEN2200
4730?:?"SPOCK:Doyouwishtodestroythe";F$;",Captain";C$;
4740INPUTA$:IFA$="Y"THEN1390
4750GOTO4790
4770REM
4780?:?"SULU:Contactwiththe";E$:?"vesselhasbeenbroken,Sir."
4790?:?C$;":Resumecourse":?"for";D$;",Mr.Sulu."
4800?:?"SULU:Aye,Sir."
4810GOTO5840
4820REM
4830?:?"SPOCK:Sensorsindicatethatthe";F$;"isoverloadingwhatremains"
4840?"ofit'sAnti-MatterPods..........Undoubtedlyasuicidalmove,"
4845?"Captain.Podswillself-destructintenseconds."
4850GOSUB20000
4860GOTO5440
4880R=R-200*(RND(1)*0.5):B=360*(RND(1)-0.5):B1=360*(RND(1)-0.05):IFR>0THEN4930
4930RETURN
4940R=R+200*(RND(1)+0.5):B=360*(RND(1)-0.5):B1=360*(RND(1)-0.5):RETURN
4980R=R-400*(RND(1)+0.5):B=360*(RND(1)-0.5):B1=360*(RND(1)-0.05):IFR>0THEN5030
5020R=-R
5030RETURN
5040R=R+400*(RND(1)+0.5):B=360*(RND(1)-0.5):B1=360*(RND(1)-0.5):RETURN
5050INPUTA$:IFA$<>"Y"THEN6260
5080?:?"SPOCK:The";E$;"isfiring":?"photontorpedoesatus,Sir."
5090R9=R
5100B9=B1
5110GOSUB6080
5120IFRND(1)>F9THEN5420
5130IFRND(1)<0.4THEN5360
5140GOTO5210
5150?:?"SPOCK:The";E$;"isfiring":?"phasersatus,Sir."
5160R9=R:B9=B1
5180GOSUB6130
5190IFRND(1)>F8THEN5420
5200IFRND(1)<0.2THEN5360
5210V=0.5:K=INT(RND(1)*4)+1:IFS=0THEN5250
5240K=S
5250?:?"AhitonShield#";K;"."
5260IFZ(K)<=0THEN5340
5270Z(K)=Z(K)-30*V*(RND(1)+0.1)
5280H1=H1+V
5290GOSUB4410
5300IFZ(K)>0THEN1360
5310Z(K)=0
5320?:?"Shield#";K;"isgone."
5330GOTO1360
5340?:?"COMPUTER:The";N$;"hasbeen":?"destroyed.":GOTO5840
5360V=1:K=INT(RND(1)*4)+1
5380IFS=0THEN5400
5390K=S
5400?:?"AdirecthitonShield#";K;".":GOTO5260
5420?"Evasivemaneuverswereeffected.Nodamage,Sir.":GOTO1360
5440?:Q=200*RND(1)
5460IFQ<RTHEN5500
5470?:?"COMPUTER:Radiusofexplosion-":?Q;"MGM.";N$;"hasbeen":?"destroyed.":GOTO5840
5500?:?"SPOCK:";E$;"vessel":?"destroyed."
5510?"Radiusofexplosion-";Q:?"MGM.":GOTO5840
5530?:?"SPOCK:Thepossiblecommandsaredesignatedbythefollowingcodewords:"
5535?"RANGEREPEATRANGE&BEARINGOFENEMY"
5540?"PHASERFIREREARBANKPHASERS"
5550?"PHASEFFIREFORWARDBANKPHASERS"
5560?"TORPRFIREPHOTONTORPEDOESREAR"
5570?"PROBELAUNCHANTI-MATTERPROBE(ONLY10ONBOARD)"
5580?"CLOSEAPPROACHENEMY(IMPULSEDRIVE)"
5590?"AWAYRETREATUSINGWARPDRIVE"
5600?"PURSUEAPPROACHENEMY(WARPDRIVE"
5610?"ESCAPERETREATUSINGWARPDRIVE"
5620?"SHIELDSUSEOPTIMUMSHIELD"
5630?:?"PRESS'RETURN'FORMORECOMMANDS":INPUTNN$
5640?:?"ROTATEROTATETHESHIP"
5650?"CHANCESPRINTFIRINGCHANCES"
5660?"COMMANDSREPEATCOMMANDS"
5670?"DAMAGEFULLDAMAGEREPORT"
5680?"BLUFFCORBOMITEMANEUVER"
5690?"WAITENEMYMOVESNEXT"
5700?"SUICIDETOTALSELF-DESTRUCTION"
5710?"SURRENDERGIVEUPTOENEMY"
5720?"LVEERTURN90DEGREESLEFT"
5730?"RVEERTURN90DEGREESRIGHT"
5800GOTO5950
5810?:?"SPOCK:";F$;"isatrange";INT(R*100)/100
5811?"MGM,Bearing";INT(B*100)/100;"Degrees.":RETURN
5840?:?"COMPUTER:Doyouwishtoattemptanotherbattleincommandofthe";N$;
5850INPUTA$
5860IFA$="N"THENEND
5870GRAPHICS0:LL=INT(RND(1)*15):LLL=INT(RND(1)*15):KO=INT(RND(1)*12)
5871SETCOLOR2,LL,LLL:SETCOLOR4,LL+KO,LLL:IFLLL>8THENSETCOLOR1,1,2:GOTO5890
5880SETCOLOR1,1,14
5890GOTO950
5950?:?"HIT'RETURN'KEYFORMOREINFO"
5951INPUTNN$
5960?:?"WEAPONRANGESARE-"
5970?"PHASERS0-400MGM(Optimum200MGM)"
5980?"TORPEDOES300-700MGM(Optimum500MGM)"
5990?"PROBESALLRANGES"
6000?:?"PHASERSAREMOREDEADLYTHANTORPEDOES."
6010?"PROBESCAUSETOTALDESTRUCTIONBUTAREEFFECTIVEONLY7%OFTHETIME."
6020?"TORPEDOESANDPHASERSAREMOREDEADLYWHENTHEBEARINGOFTHE"
6030?"ENEMYISCLOSETO0,180,OR-180DEGREES.":?:?:?:?:?:?
6031?"PRESS'RETURNTOCONTINUE...":INPUTNN$:RETURN
6080F9=0:IFABS(R9-500)>200THEN6120
6100F9=1-(R9-500)^2/40000
6110F9=F9*SIN(3.1415926*ABS(90-ABS(B9))/180)*(3-INT(ABS(B9/90)))/3
6120RETURN
6130F8=0:IFR9>400THEN6170
6150F8=1-(R9-200)^2/40000
6160F8=F8*SIN(3.1415926*ABS(90-ABS(B9))/180)*(5-(INT(ABS(B9/90))))/5
6170RETURN
6180IFH1>=14THEN1740
6190B=B+90
6200GOTO2750
6210IFH1>=14THEN1740
6220B=B-90
6230IFB>=0THEN2750
6240B=360-B
6250GOTO2750
10000DATAEnterprise,Sol-Keeper,Brave,Exeter,Arcturus,Song-Bird,Dragon,Enterprise,Spica,Republic
10010DATADefiant,Promethius,Siberia,Lenin,Marx,Excaliber
10020DATARigel6,Antares2,Sirius12,Betelguese7,Altair4,Regulus6,Alderbaran5,Pollux6
10030DATAKlingon,Romulan,Outsider
10040DATALuna,Cirius,Ursa,Uranus,Neptune
10050DATAFleegle,Vader,Darth,Artee-Detoo,SeeThreepio
10060DATARANGE,PHASEF,PHASER,TORPF,TORPR,PROBE,CLOSE,AWAY,PURSUE,ESCAPE,SHIELDS
10070DATAROTATE,CHANCES,COMMANDS,DAMAGE,BLUFF,WAIT,SUICIDE,SURRENDER,LVEER,RVEER
10080DATASpock--Rangeandbearingoftheenemy?,Fireforwardphaserbank,Firerearphaserbank
10090DATAFireforwardphotontor-Pedoes,Firerearphotontorpedoes,Launchanti-matterprobe
10100DATAComeuponenemyvessel,Retreatfromtheenemy,Approachenemyatwarpspeed
10110DATARetreatattopwarpspeed,Useoptimumshieldde-ploymentMr.Sulu.
10120DATATurnusabout180degreesMr.Sulu
10130DATAMr.Spock-Whatareourchancesforahit?
10140DATAMr.Spock-Whatareouroptions?,Mr.Spock-Fulldamagereport.
10150DATALieutenant-OpenavoicechanneltoStarFleet.UseCode2.
10160DATALet'swaitandseewhattheenemyhasinmind...
10170DATAActivatecomputerde-structsequence.
10180DATALieutenant-Openavoicechanneltotheenemy.
10190DATATurn90degreesleft-Mr.Chekov.
10200DATATurn90degreesright-Mr.Chekov.
19000SOUND3,35,10,15:FORPO=1TO8:NEXTPO:SOUND3,0,0,0:RETURN
20000FOROO=1TO75:NEXTOO:?""
20001?"1"
20002?"";:GOSUB19000:FORWE=1TO25:NEXTWE:?"";
20003FORWE=9TO0STEP-1
20004?WE;"";:GOSUB19000
20005FORTIM=1TO25:NEXTTIM
20006NEXTWE:?"":?:?:RETURN	

• Download link 1

• Download link 1
• Download link 2
• Download link 3