Atari 8-bit Source code

10GRAPHICS2:POKE752,1:DIMA$(16),A1$(21),A2$(21),A3$(21),B$(2),BB$(16),B(17),E$(6),L(9),R(8),RE(8)
20DIMJB$(10),JC$(5),JD$(38),JE$(20),JF$(20),JG$(18),JH$(36),JK$(36),JL$(18),JT$(17),JX$(3)
30FORZ=1TO9:L(Z)=0:NEXTZ:BB$="FUAMTAPLORFOGRTI":OPEN#2,4,0,"K:"
40POSITION7,5:?#6;"CONVOY":FORZ=0TO1:SETCOLOR4,3,0:GOSUB30000:SETCOLOR4,8,0:GOSUB30000:NEXTZ
100DATA26,13,30,13,28,11,28,15,22,13,34,13,24,11,32,11,24,15,32,15,28,9,28,17,24,17,32,17,24,9,32,9,26,7,30,7,28
105DATA0,0,6,1,0,6,2,0,4,3,0,4,4,0,3,5,0,3,6,0,3,7,0,1,8,0,0,3,10,12,4,10,12
110DATA5,11,11,6,11,12,7,17,19,8,16,19,9,18,19,10,19,19,16,0,1,17,0,0,19,1,1
120DATA36,1,3,37,1,1,37,3,3,19,12,12,19,15,17,19,19,19,20,12,17,21,11,16
125DATA22,10,19,23,9,19,24,7,19,25,5,17,26,5,16,27,5,11,28,6,11,29,6,14
130DATA30,6,13,31,6,8,31,11,13,32,6,8,32,11,19,33,5,8,33,11,19,34,11,19,35,8
135DATA19,36,7,19,37,5,19,38,5,19,39,5,19,30,16,19,28,18,18,-1,0,0
160DATALIEUTENANT,LIEUTENANTCOMMANDER,COMMANDER,CAPTAIN,COMMODORE,Z
170JE$="":JF$="":JG$=""
180JC$="":JX$="":JB$="":JD$=""
185JH$="":JK$=""
190JT$="":JL$=""
200A$="":A1$="LIEUTENANT":?CHR$(29);"":GOSUB30010:GET#2,U:IFU=89THEN300
210?"Insertdatatapeandpress'RETURN'":GET#2,U:OPEN#1,4,0,"C:"
220INPUT#1,A$:INPUT#1,A1$:INPUT#1,K:FORZ=1TO8:INPUT#1,Y:R(Z)=Y:RE(Z)=R(Z):NEXTZ
230INPUT#1,S:INPUT#1,YE:INPUT#1,N:INPUT#1,TS:CLOSE#1:POKE764,225
300GRAPHICS0:POKE752,1:SETCOLOR2,9,0:?CHR$(29);"":GOSUB30010:IFK>0THEN320
310?CHR$(29);CHR$(29);"Whatisyourname";:INPUTA$:IFA$=""THENA$="HORNBLOWER"
320?:?:?A1$;A$;":":?"Yourexperiencepointsare";K:?"andyouaretakingoutCONVOY#";TS+1;"."
330?CHR$(29);"ISTHISCORRECT(Y/N)?":GET#2,U:IFU=78THENK=0:S=0:TS=0:YE=1941:N=0:GOTO300
340IFK=0THENFORZ=1TO8:R(Z)=INT(RND(0)*199)+800:NEXTZ
400SETCOLOR2,13,0:FORZ=1TO8:RE(Z)=R(Z):NEXTZ
405?CHR$(125);CHR$(29);"":?:?"RUSSIANREQUIREMENTS":GOSUB410:GOTO430
410?:?"Fuel";RE(1);"":?"Ammo";RE(2);"":?"Tanks";RE(3);"":?"Planes";RE(4);""
420?"Ore";RE(5);"":?"Food";RE(6);"":?"Grain";RE(7);"":?"Timber";RE(8);"":RETURN
430?CHR$(29);CHR$(29);"NUMBEROFSHIPSINYOURCONVOYIS";L:?"(Entertoend.)":IFL=15THEN490
440?CHR$(29);"SHIP#";L+1;"";:INPUTB$:IFB$=""ANDL>0THEN490
442IFLEN(B$)<2THENGOTO446
444M=0:GOSUB450:IFRE(M)<>0ANDM<>0THENGOSUB30020:GOTO470
446GOSUB30030:GOTO405
450IFM>14THENM=0:RETURN
455M=M+2:IFB$=BB$(M-1,M)THENM=M/2:RETURN
460GOTO450
470L(M)=L(M)+1:RE(M)=RE(M)-40:IFRE(M)<0THENRE(M)=0
480L=L+1:GOTO405
490POSITION2,15:?"YourCONVOYisnowreadytosail.",:L(9)=1+INT(K/10000):IFL(9)>4THENL(9)=4
500?:?"Youarebeingescortedby";L(9):?"destroyer(s).":?,,"":GOSUB30010:GOSUB30210
510L1=L:L2=L(9):K=K+L1*10+L2*20:SP=3
700GRAPHICS0:SETCOLOR2,7,0:?CHR$(29);"":?CHR$(29);CHR$(29);"CARGOVESSELS"
701FORZ=1TO8:RE(Z)=L(Z):NEXTZ
710RESTORE:GOSUB410:?"Escorts";L(9)
720POKE752,1:FORZ=1TOL+L(9):READX,Y:POSITIONX,Y:?CHR$(8);CHR$(10);:GOSUB30020:NEXTZ
721RESTORE:FORZ=1TOL:READX,Y
730POSITIONX,Y:?CHR$(8);CHR$(10);:GOSUB30020:POSITIONX,Y:?CHR$(136);CHR$(138);:GOSUB30020
740POSITION2,20:?"";:INPUTB$:POSITION2,20:?"":M=0:GOSUB450
750IFM=0ORRE(M)=0THENGOSUB30030:GOTO730
760RE(M)=RE(M)-1:POSITIONX,Y:?B$;:POSITION2,5:GOSUB410:?"Escorts";L(9):B(Z)=M:NEXTZ
780FORZ=1TOL(9):READX,Y:POSITIONX,Y:?"ES":GOSUB30020:NEXTZ:POSITION10,14:?"0"
790POSITION1,20:?"configuration(Y/N)?";:GET#2,U:IFU=78THEN700
800GOSUB30010:FORZ=1TOL:K=K+R(B(Z))/10000*(9-B(Z))*(15-Z):NEXTZ
810IFT=0THENPOSITION2,22:?"Yourexperiencepointsarenow";INT(K):GOSUB30200
820IFRR=0THEN890
830FORZ=1TOL:IFB(Z)=RRTHENB(Z)=B(L):B(L)=RR:Z=15
840NEXTZ
890IFS=0THENS=1:YE=1941
900POKE77,0:T=T+1:GOSUB8000:RESTORE
910IFSP=2ANDRND(0)<0.5THENSP=3:?"Damagedvesselhasbeenrepaired.":?"resumingnormalspeed":GOSUB30210
920GRAPHICS3:SETCOLOR0,12,0:SETCOLOR1,0,8:SETCOLOR2,3,0:SETCOLOR4,7,2:COLOR1:PR=0:IFSP=1THENSP=2
930RESTORE:FORX=1TO37:READZ:NEXTX
940READA,B,D:IFA<0THEN1000
950PLOTA,B:DRAWTOA,D:GOTO940
1000ONINT(S)GOTO1010,1020,1030,1040
1010E$="FALL":Z=2:GOTO1050
1020E$="WINTER":Z=3:GOTO1050
1030E$="SPRING":Z=2:GOTO1050
1040E$="SUMMER":Z=1
1050COLOR2:FORZ1=0TOZ:FORZ2=0TO39:LOCATEZ2,Z1,X:IFX=0THENPLOTZ2,Z1
1060NEXTZ2:NEXTZ1
1100POKE752,1:COLOR3:IFP2=0THENG=2:H=18:PLOTG,H
1110?"":POKE657,10:?E$;"OF";YE;"DAY";T:IFP2=1THEN1300
1130?CHR$(29);"YourconvoyiswestofBritain":P2=1
1140FORZ=1TO5:GOSUB30000:COLOR0:PLOTG,H:GOSUB30220:COLOR3:PLOTG,H:NEXTZ
1150POKE656,2:?"IsyourdestinationARCHANGEL(A)?":COLOR2:PLOT35,8:GOSUB30020:GOSUB30210:COLOR1
1160PLOT35,8:POKE656,2:POKE657,21:?"?":COLOR2:PLOT31,6:GOSUB30020
1170GOSUB30210:COLOR1:PLOT31,6:IFPEEK(764)=255THEN1150
1190U=PEEK(764):XA=31:YA=6:IFU<>37THENXA=35:YA=8
1300FORZ=1TO3:COLOR1:PLOTXA,YA:GOSUB30020:COLOR2:PLOTXA,YA:GOSUB30220:NEXTZ:P=0
1310POKE656,2:?"UseJOYSTICKtorepositionConvoy":COLOR3:PLOTG,H
1330X1=G:Z1=H:GOSUB2060:IFX1=XAANDZ1=YATHEN3000
1350LOCATEX1,Z1,Z:IFZ<>0THEN1370
1360COLOR0:PLOTG,H:IFX1<39ANDX1>0ANDZ1<20THENP=P+1:G=X1:H=Z1:GOSUB30010
1370COLOR3:PLOTG,H:IFP<SPTHEN1330
1500P=0:?"";CHR$(29);"":GOSUB30000:FORX=1TO20:Z=INT(5+(34*RND(1))):Y=INT(19*RND(1))
1510LOCATEZ,Y,Z1:IFZ1<>0THEN1530
1520COLOR2:PLOTZ,Y:GOSUB30020:GOSUB30220:COLOR0:PLOTZ,Y:GOTO1530
1525IFZ=GANDY=HTHENGOSUB30000:COLOR2:PLOTZ,Y:GOSUB30000:COLOR0:PLOTZ,Y
1526IFX<21THENX=20:NEXTX
1528PA=1:PR=0:GOTO2400
1530NEXTX
1540IFPA=1THENPA=0:IFINT(RND(1)*2)=0THENZ=G:Y=H:GOTO1525
1550IFINT(RND(0)*2)=0AND(T=4ORT=5)THENZ=G:Y=H:GOTO1525
1600?CHR$(125);CHR$(29);"":ONINT(S)GOTO1604,1606,1604,1602
1602Y=23:Z=13:GOSUB1620:Y=21:Z=14:GOSUB1620
1604Y=28:Z=7:GOSUB1620
1606Y=29:Z=6:GOSUB1620:Y=27:Z=6:GOSUB1620:Y=23:Z=9:GOSUB1620:Y=22:Z=15:GOSUB1620:Y=20:Z=17:GOSUB1620
1610GOTO1800
1620IFH>ZTHENRETURN
1625COLOR2:PLOTY,Z:FORW=1TO16:R1=INT(RND(0)*2):R2=INT(RND(0)*2)
1630Y=Y-R1:Z=Z-R2:IFG>26THENY=Y+R1*2
1640IFY>38THENY=38
1642IFZ<0THENZ=0
1644LOCATEY,Z,Z2:Z3=0:IFZ2<>0THENZ3=1
1646IFZ2=2THEN1680
1650GOSUB30030:COLOR2:PLOTY,Z:IFY=GANDZ=HTHENPR=0:PA=1:W=16:NEXTW:GOTO2000
1660GOSUB30220:COLORZ3:PLOTY,Z
1680NEXTW:RETURN
1800?"1.AirDefenceDrill3.Regroupconvoy";:?"2.SubmarineDrill4.Continue"
1810PR=1:?"";
1820GET#2,U:U=U-48:IFU<1ORU>4THEN1820
1830ONUGOTO2000,2400,700,900
2000GRAPHICS0:SETCOLOR2,3,0:POKE752,1:POSITION11,11:IFPRTHEN?"":GOTO2020
2010?"!"
2020GOSUB30000:Z=INT(23*RND(0)+1):X=INT(K/1500):GRAPHICS0:SETCOLOR1,0,15:SETCOLOR2,7,2:IFX>20THENX=20
2025X1=17:Z1=11:Y=X+3
2030?"":POKE752,1:IFX>36THEN2200
2040POSITIONX1,Z1:?JT$:POSITIONX,Z:?JX$;:GOSUB2050:GOTO2092
2050IFSTRIG(0)=0THEN2130
2060IFSTICK(0)>4AND(STICK(0)<8)THENX1=X1+1
2070IFSTICK(0)>8AND(STICK(0)<12)THENX1=X1-1
2080IFSTICK(0)=6ORSTICK(0)=14ORSTICK(0)=10THENZ1=Z1-1
2090IFSTICK(0)=5ORSTICK(0)=9ORSTICK(0)=13THENZ1=Z1+1
2091RETURN
2092IFZ1<1THENZ1=1
2094IFZ1>18THENZ1=18
2096IFX1<1THENX1=1
2098IFX1>34THENX1=34
2100IFXJ=3THENXJ=0:GOTO2030
2105XJ=XJ+1:X=X+1:R=INT(RND(0)*4-2):Z=Z+R:IFZ<1THENZ=1
2110IFZ>23THENZ=23
2120GOTO2030
2130FORZK=1TO2:POSITIONX1,Z1:?CHR$(29);"***";:GOSUB30030:NEXTZK
2135IFX<>X1ORZ<>Z1+1THEN2050
2150FORZK=1TO3:POSITIONX1,Z1:?CHR$(29);"*";:GOSUB30020
2160POSITIONX1,Z1:?CHR$(29);"**";:GOSUB30020:NEXTZK:?:?:?:GOTO2392
2200SETCOLOR2,3,0:IFPRTHEN?"":K=K-7:GOTO900
2250POKE84,20:?"!":GOSUB30210
2260?"":GOSUB30210:R=L:IFSP<>3THEN2290
2280R=INT(L*RND(0)+1):B(L+1)=B(R)
2285FORZ=RTOL+1:B(Z)=B(Z+1):NEXTZ
2290RR=B(L):IFINT(4*RND(0))=2ORSP<3ORB(L)<3THEN2380
2295?"SHIP#";R;"HASBEENDAMAGED":K=K-15:L4=L4+1
2297POKE764,225:?"?":GET#2,U:IFU=89THENSP=1:GOTO90
2300L(B(R))=L(B(R))-1:L=L-1:IFINT(2*RND(0))<>1THEN2310
2305?"":L3=L3+1:GOTO900
2310IFINT(2*RND(0))=1THENK=K-30:L3=L3+1:L4=L4-1:?"":GOTO900
2320K=K+20:?""
2380K=K-80:PR=0:L(RR)=L(RR)-1:L3=L3+1:IFSP<3THENSP=3
2385?"SHIP#";R;"HASBEENSUNK":L=L-1:GOTO900
2392SETCOLOR2,11,2:IFPRTHEN?"!":K=K+20:GOTO900
2395?"!":K=K+100:L6=L6+1:GOSUB30220
2397LL=LL-1:IFLL<1THENR=INT(2*RND(0)):IFR=1THEN900
2398R=INT(2*RND(1)):IFR=1THEN2020
2400XZ=0:LM=L(9):GRAPHICS0:SETCOLOR2,3,0:POKE752,1:POSITION8,10:Z1=9:X1=19:IFPR=0THEN2410
2405?"":POSITION10,12:?"":GOSUB30210
2410IFPR=0THEN?"!":GOSUB30000:GOSUB30000
2420XS=INT(RND(0)*20):IFXS<5ORXS>13THEN2420
2430YS=INT(RND(0)*20):IFYS<12ORYS>28THEN2430
2440SETCOLOR2,13,0:?"":POSITION10,2:?JE$:FORZK=3TO15:POSITION10,ZK:?JF$:NEXTZK:POSITION10,16:?JE$
2450POSITION14,20:?"":?:?"";
2460FORZZ=4TO14:POSITION11,ZZ:?JG$:GOSUB30020:POSITION11,ZZ:?JL$
2465IFZZ=Z1THENPOSITIONX1,Z1:?CHR$(96);
2470IFZZ=XSTHENPOSITIONYS,XS:?CHR$(16);
2480NEXTZZ
2490IFSTICK(0)=15THEN2490
2492XZ=XZ+1:IFXZ=8ANDPR=0THEN?"":GOTO2989
2494IFXZ=8THENXZ=0:POSITION7,20:?"";:K=K-25:GOTO900
2500GOSUB2060
2510IFZ1<4THENZ1=4
2520IFZ1>14THENZ1=14
2530IFX1<11THENX1=11
2540IFX1>29THENX1=29
2560IFXS<>Z1ORYS<>X1THEN2580
2570FORZK=3TO15:POSITION10,ZK:?JF$:NEXTZK:GOSUB30030:POSITIONYS,XS:?CHR$(96);
2575GOSUB30030:POSITIONYS,XS:POSITIONYX,XS:?CHR$(16);:GOTO2640
2580R=INT(RND(0)*2):IFR=1THEN2600
2585R=INT(RND(0)*3-1):XS=XS+R:IFXS<4THENXS=4
2590IFXS>13THENXS=13
2600R=INT(RND(0)*3):YS=YS+R:IFYS<12THENYS=12
2610IFYS>28THENYS=28
2620IFXS=Z1ANDYS=X1THEN2570
2630GOTO2460
2640V=INT(RND(0)*18):SS=6:W=INT(RND(0)*9):YY=V+10-W
2680?"":POSITION2,12:?JH$:FORZ=1TO4:?JK$:NEXTZ:?JH$
2690IFK>11000ANDINT(RND(0)*6)=4THENPOSITION17,7:?"":POSITION14,20:GOTO2720
2700FORZ=3TO36:POSITIONZ,16:?CHR$(24);:NEXTZ:POSITION14,20
2720?"":?"PressBUTTONtolaunchdepthcharge":?"JOYSTICKaltersdepth10";
2730FORYM=YYTOV+1STEP-1:ZW=4:FORZZ=ZWTO(ZW+YM):POSITIONZZ,14:?CHR$(160);
2750NEXTZZ:GOSUB30020:GOSUB30220
2790IFSTRIG(0)=0THENYM=V:ZJ=1:GOTO2820
2795IFSTICK(0)<>15THENGOSUB2920
2800FORZS=ZWTO(ZW+YM):POSITIONZS,14:?"";:NEXTZS:W=W+1:IFW>28THENW=28
2820NEXTYM:IFZJTHENZJ=0:GOTO2970
2830FORY=V+1TO30:Q=Y:FORVV=OTOQ:ZZ=ZW+VV:POSITIONZZ,14:?CHR$(160);:NEXTVV
2840GOSUB30020:GOSUB30220
2880FORXX=ZWTO(ZW+Q):POSITIONXX,14:?"";:NEXTXX:IFSTRIG(0)=0THENY=36:ZJ=1:GOTO2910
2890IFSTICK(0)<>15THENGOSUB2920
2900W=W+1:IFW>28THENW=28
2910NEXTY:ZJ=0:GOTO2970
2920IFSTICK(0)=14THENSS=SS-1
2930IFSTICK(0)=13THENSS=SS+1
2940IFSS>21THENSS=21
2950IFSS<5THENSS=5
2960POSITION34,22:?"";:POSITION34,22:?SS-5;"0";:IFSTICK(0)<>15THENGOSUB30220:GOTO2920
2965RETURN
2970GRAPHICS0:POKE752,1:SETCOLOR2,7,2:POSITION0,5:?JD$:POSITION5,4:?JB$:V=V+5:POSITIONW,V:?JC$
2971A=9:B=3:GOSUB2975:A=10:B=2:GOSUB2975:A=11:B=1:GOSUB2975:FORZM=BTOB+(SS-2):B=ZM:GOSUB2975
2972NEXTZM:GOTO2977
2975POSITIONA,B:?CHR$(20);:GOSUB30220:POSITIONA,B:?"";:POSITIONA,5:?CHR$(13);:RETURN
2977IFW>7ANDW<15AND(ABS(V-SS)=0OR(ABS(V-SS)=1ANDK<10001))THEN2980
2979POSITION25,10:?"":NM=1
2980FORZP=1TO5:POSITION10,SS:?"*****":GOSUB30020:POSITION10,SS:?"****"
2984GOSUB30020:NEXTZP:IFPR=0ANDNM=1THENNM=0:GOTO2989
2986IFPRANDNMTHENNM=0:K=K-25:?"":GOTO900
2987POSITION3,10:?"":K=K+40:IFPR=0THENK=K+460:L5=L5+1
2988GOTO900
2989POSITION20,10:?"":GOSUB30210:K=K-30:RR=0:R=L
2990L(B(R))=L(B(R))-1:L3=L3+1:?"SHIP#";L;"HASBEENSUNK":?:GOSUB30220
2991L=L-1:GOSUB30020:IFL=0THEN3000
2992IFSP<3THENL4=L4-1:SP=3
2993B(L+1)=0:IFXZ=8THENXZ=0:GOTO2440
2994LM=LM-1:IFLM=0THEN2998
2995?"DOYOUWANTANOTHERRUN(Y/N)?":GET#2,U:IFU=89THEN2640
2998IFINT(RND(0)*3)=1THEN?"ANOTHERSUBMARINEISAPPROACHING":GOSUB30210:GOTO2400
2999GOTO900
3000GRAPHICS0:SETCOLOR2,9,0:?""
3010GOSUB4000:Z=1+K/10000:IFZ>5THENZ=5
3020IFA$<>A2$THEN6000
3027A2$="":IF(G=XAANDH=YA)ORL=0THEN?:?""
3030?:?"LOGSUMMARYFOR:":?A1$;"";A$;:GOSUB3340:GOTO3380
3340?:?:?"Yourinitialconvoystrengthwas";L1:?"andyouwereescortedby";L2
3345?"destroyer(s).":?"Oftheseshipsyoulost";L3;"andhad";L4:?"damaged."
3350?:?"Duringyourvoyageyousank";L5:?"submarine(s)anddowned";L6;"planes(s)"
3360IFK<0THENK=0
3370?:?"Yourexperiencepointsarenow";INT(K);".":RETURN
3380POKE764,255:?CHR$(29);"PRESSTOCONTINUE":GET#2,U
3400S=S+0.34:IFS>3THENYE=1942:IFS>5THENS=5
3405TS=TS+1:IFTS+1=18THEN?"":?:?:GOSUB410:GOTO7000
3410?:?:?"":FORZ=1TO8:R(Z)=R(Z)+INT(50*RND(0)+1)
3415IFR(Z)>999THENR(Z)=999
3420RE(Z)=R(Z):NEXTZ:GOSUB410:X=0
3425FORZ=1TO8:IFRE(Z)>999-TS*40THENX=X+1
3430NEXTZ:IFX>2THENN=1:?:?"MURMANSKHASFALLENDUETOSUPPLY":?"SHORTAGE"
3440?:?"Doyouwanttosaveyourgametotape?":GET#2,U:IFU=78THENEND
3450?"Insertdatatapeandpress'RETURN'":GET#2,U:OPEN#1,8,0,"C:"
3460?#1;A$:?#1;A1$:?#1,K:FORZ=1TO8:Y=R(Z):?#1,Y:NEXTZ
3470?#1,S:?#1,YE:?#1,N:?#1,TS:CLOSE#1:END
4000IFT<10THENT=20
4010K=K-(T-10)*250:IFN=1THENK=K+500
4020FORZ=1TO8:K=K+R(Z)/(999-TS*50)*L(Z)*100
4025R(Z)=R(Z)-40*L(Z):IFR(Z)<0THENR(Z)=0
4030K=K-R(Z)/100^2:NEXTZ:K=INT(K):IFK<1THENK=1
4040RETURN
6000RESTORE:FORX=1TO193:READQ:NEXTX:FORX=1TOZ:READA2$:NEXTX:IFZ=5THEN6030
6010FORX=Z+1TO5:READA3$:IFA3$=A1$THENX=5:GOTO6060
6020NEXTX
6030IFA1$=A2$THEN3027
6040?:?:?"Congratulations!":?:?"youhavebeenpromotedto"
6050POKE85,5:PRINTA2$:A1$=A2$:GOSUB30200:POKE85,0:GOTO3027
6060IFK>Z*10000-2000THEN3027
6070?:?:?"BADNEWS!":?:?"Becauseofyourpoorshowingyou"
6075?"havebeendemotedtotherankof":?A2$:A1$=A2$:GOSUB30200:GOTO3027
7000?CHR$(29);"":GET#2,U
7010?"CONGRATULATIONS!Youhavecompleted":?"thesimulation!"
7015?:?"YoubeganthegameasaLieutenant":?"andyouhavenowattainedtherankof":?A1$;"."
7030?"Youhaveaccumulated";K;"victory":?"points.":?:?:END
8000IFT=1THENRETURN
8002IFU<>4THENGOSUB30200
8003IFL=0THEN3000
8004U=0:GRAPHICS0:SETCOLOR2,15,0:IFL=0THEN3000
8010?"LOGENTRYFORCONVOY";TS+1;"ONDAY";T-1;"."
8020POKE752,1:?:?A1$;"";A$:?"INCOMMAND.":GOSUB3340:?:?:?""
8030IFSTRIG(0)=1THEN8030
30000FORU=200TO50STEP-4:SOUND0,U,10,8:NEXTU:SOUND0,0,0,0:RETURN
30010FORU=1TO4:SOUND0,20,10,8:GOSUB30220:SOUND0,0,0,0:NEXTU:RETURN
30020U=INT(RND(0)*100)+50:SOUND0,U,10,8:GOSUB30220:SOUND0,0,0,0:RETURN
30030SOUND0,1,4,8:GOSUB30220:SOUND0,0,0,0:RETURN
30200FORTT=1TO350:NEXTTT
30210FORTT=1TO70:NEXTTT
30220FORTT=1TO10:NEXTTT:RETURN	

• Download link 1

• Download link 1
• Download link 2