sub ?(#<7?Utt=0:xx=0:yy=18:5000:5040:2000:2010 a=t/20* ""1500 /t=10 to=10 ƥ>.9ffff3000 9t=20fl=0r=8me=4:7000X 8t>30fl=1ƥ*100d<10 6100 Un=13:m(n)>05;5;10 +x(n),16+y(n);"" n x=502*a:y=502*a ("131,91[:1;x,y 2"131,91[:1;x,y 7]n=13:(10 +x(n),16+y(n))=111om(n)>0.1}L,502 8n 29cr=29:me=1:7000X 0lr<0lr=0:me=1:7000X 2lr>21lr=21:me=1:7000X bl=(lr+.5)-5:c=(cr+.5)-5:l=8c<0me=19:7000X po=52992+32 *l+c+224*(8*(l>7)+8*(l>15)-8*(l<0)):23297[,p(po):23298[,q(po):zz=60000` fl=0air=air-1 m=1hit:f=f-1:f/4=(f/4)1;1;16,568+f/4:1;1;7,0 m:hit=1 m=11+3*(fl=1):1;1;568,568+air:1;1;7,0:air=air+(fl=1air<31):m Pspeed=10 ƾ23673y\>30speed=100d:me=30:7000X \p=59136+32 *(lr+.5)+(cr+.5):23300[,p(p):23301[,q(p) Cwa=1flme=22:7000X:wa=2:to=to-2 "7;j$(1+5*to) $r=8*(4-(60180))  $7;6,25;" " 6;5;h$(r)  "6;5;g$(r+1) *Ffl=08;0;7,26;"":="d"Ŧ="u" 4Ffl=18;0;6,26;"":="d"Ŧ="u" :wa=1wa=2 >zz=60737A:zz=0me=18:7000X:m=1411 -1:1;m,2;"":1,14-m:m:f=128 Cir>1wa=0lr>15cr>9 cr<20ƥ<.1}Lwa=1:me=23:7000X H%air=2me=2:7000X R$f=32 me=3:7000X \3air0air=0:me=12 :7000X f/f0f=0:me=13 :7000X p$r=0me=14:7000X z:m=13:l(m)<1me=15:7000X m  Bmi=3:f1=0:zz=60710&:me=20:7000X '="y"2:2::3040 3010 &60693,4:zz=60640 7;15,2;"""F"" TO FIRE";17,2;"""R"" TO RELOAD";19,2;"""P"" TO SCAN PERISCOPE";21,2;"MISSILES REMAINING ";mi a=16384@+32 *5+6:b=a+19:60574,p(a):60575,q(a):60538z,p(b):60539{,q(b) )0;5;5,24;"" zz=60532t f1=0Ʀ="f"f1=1:mi=mi-1:m=12:.1}L,-10 :118v,72H:6;1;-32 ,557:m:7;21,21;mi:(87W,131)3100 ="r"f1=0 $="p"zz=60568:3070 Umiž60494Nm=110 :.2~L,502:m:me=16:7002Z  3055 V5;0;5,10 ;"":1,502:me=21:7002Z: a$(3,9 ):a$(2)="DESTROYER":a$(3)="CARRIER":a$(1)="TANKER":c$(3,8):c$(2)="MISSILE":c$(3)="AIRCRAFT" Bp(x@)=x-256*(x/256):q(x@)=(x/256) Mb$(3,3):b$(2)="":b$(3)="":b$(1)="" gspeed=100d:wa=0:hit=1:fl=0:f=128:air=32 :s=0:t=0 Hs(3):m(3):l(3):c(3):x(3):y(3) 2f1=0:to=10 :lr=16:cr=8 I1000:n=13:l(n),c(n):x(n)=l(n)-lr:y(n)=c(n)-cr:n  &1:0:4:0: zz=60775g:7 pl=416:l,10 ;"";l,22;"":l:c=10 22:4,c;"";16,c;"":c 7;2;2,14;"RADAR":l=38:7;l,1;" ":l:7;3,26;" " ~0;32 ,128,18:2,25;2;"SPEED";2,1;"COURSE";5,25;"DEPTH" @n=11 14:1;n,2;"";n,7;"":n ;2;10 ,1;"FUEL";10 ,6;"AIR" h$="":g$="" cn=710 :h$=h$+22+n+25+" ":g$=g$+22+n+25+"":n PB2;12 ,24;"TORPEDO";13 ,25;"TUBES" Z^i$="":n=1418:i$=i$+22+n+25+""+22+n+28+"":n d^j$="":n=1418:j$=j$+22+n+25+" "+22+n+28+" ":n i0;7;i$ 2;18,1;"COMPUTER MESSAGE";18,18;"";19,1;"AIR RAID WARNING";19,18;"";20,1;"AIR RAID OVER";20,18;""  |zz=60235K .zz=60710&:2:0:2: Sra=(*4+3):sp=(*3+1):60693,ra:zz=60640 p7;1;18,4;"SPEED ";sp*10 ;" km/h";18,18;"RANGE ";10 -ra;" km" 0x=118v:y=72H:t=0:f1=0 -0;5;3+ra,6;b$(n) a=16384@+32 *(3+ra)+6+1792*(ra>4):b=a+19:60574,p(a):60575,q(a):60538z,p(b):60539{,q(b) zz=60532t (="p"f1zz=60568:5560 -="f"f1=0f1=1:to=to-1 f1Ʃ(x,y+1)1,40(:1;8*(9 -ra),-8*(9 -ra):m=12:60701,16::zz=60640:5:60701,40(:zz=60640:m:2;5;3+ra,x/8;"":s(n)=s(n)+1:6000p f11;6;x,y y=8*(18-ra)-1f1=0:1;x,y:x=118v:y=72H:1;8*(9 -ra),-8*(9 -ra):5700D+502*(n=1) !f1ty=y+1:x=x-1 t=t+1:t=spt=0 5:5550 D{m=(*26+97a):19,0;"MISSED!"'"THE ENEMY IS FIRING BACK!"'"HIT EMERGENCY BUTTON ";m;" TO ESCAPE" Nao=35#-30-2:.02{# =,o:=mme=9 :2,-40(:7002Z:ad So l_2,-40(:me=7+(>.5):7002Z:hit=1+11 *(me=7):ad v02,-40(:me=10 :7002Z:ad p=c=a+7*256:60615,p(c):60616,q(c) zM502:m=17:zz=60612:1,30-2*m:m ,l(n)=31:c(n)=39':m(n)=0 (100d:me=11 :7002Z:ad 19,18;" ":m=15:.1}L,502:m:="d"19,18;"":fl=0:2050:20,18;"":m=110 :.1}L,20:.1}L,0:m:20,18;"": {ra=:l=9 +(ra>.2~L)+(ra>.8L):c=2111 -1:8;1;l,c;"":.5,-30 Dl=10 c=16m=5020-2:.05|L,m:m 8;1;l,c;"" c !0;19,18;"" tra=:l=10 ra<.4Lspeed=10 :3,26;"":23673y\,0:me=5:7000X Bl=10 ra.4Lhit=hit+16:me=6:7000X rl10 2;1;20,18;"":m=110 :.1}L,20:.1}L,0:m  #0;20,18;"": Xe2;1;18,18;"":.01z# =,22:.01z# =,25:"i"7000X Y20;18,18;"":zz=60235K Z&7:1:1:0: ]qz$="HI THERE!":7500L:'':.2~L,31:5:.2~L,28:20:me>07050 ^$me=07010b:7400 _me=-1 bz$="ONBOARD COMPUTER STATUS REPORT TORPEDOES REMAINING: "+to+" SHIPS SUNK: TANKERS "+s(1)+" DESTROYERS "+s(2)+" CARRIERS "+s(3) c 7500L l@'':z$="FUEL REMAINING: "+(f*100d)+" litres":7500L v3'':z$="AIR SUPPLY: "+(air)+" tanks":7500L  100d: Mme=1z$="SENSORS INDICATE MINEFIELD AHEADRECOMMEND CHANGE OF COURSE" pme=2z$="OUR AIR SUPPLY IS GETTING LOW ONLY 2 TANKS ARE LEFT RECOMMEND SURFACE IMMEDIATELY" me=3z$="OUR FUEL RESERVE IS GETTING LOW ONLY 3200 LITRES LEFT RECOMMEND CONSULT MAP AND HEAD FOR NEAREST FUEL DUMP (MARKED F)" rme=4z$="THE SEA IS PRETTY SHALLOW HERE RECOMMEND SURFACE OR CHANGE COURSE TO AVOID RUNNING AGROUND" ~me=5z$="DIRECT HIT ON ENGINE ROOM! MAIN ENGINES SEVERELY DAMAGED POWER WILL BE RESTORED AS SOON AS POSSIBLE" rme=6z$="DAMAGE TO AUXILIARY FUEL TANKS LOSS OF FUEL REPORTED RECOMMEND DIVE FASTER NEXT TIME" jme=7z$="WE FAILED TO ESCAPE IN TIME "+c$(n)+" ATTACK BY "+a$(n)+" LOSS OF FUEL REPORTED" Yme=8z$="WE FAILED TO ESCAPE IN TIME BUT LUCKILY SURVIVED ATTACK BY "+a$(n) Nme=9 z$="QUICK THINKING CAPTAIN! WE ESCAPED THE ENEMY ATTACK" Nme=10 z$="BAD LUCK CAPTAIN! TORPEDO OFF TARGET. THE TANKER ESCAPED" Lme=11 z$="GOOD SHOOTING ADMIRAL! WE SANK THE ENEMY "+a$(n) ome=12 z$="OUR AIR HAS RUN OUT AND THE CREW HAS DESERTED FINAL STATUS REPORT FOLLOWS" ome=13 z$="OUR FUEL HAS RUN OUT MISSION TERMINATED FINAL STATUS REPORT FOLLOWS" Əme=14z$="WE HAVE RUN AGROUND AND ARE COMPLETELY STRANDED MISSION TERMINATED FINAL STATUS REPORT FOLLOWS" me=15z$="I HAVE INTERCEPTED A MESSAGE INDICATING THAT AN ENEMY SHIP HAS REACHED BASE A OUR POSITION IS KNOWN AND ENEMY BOMBERS ARE ON THEIR WAY RECOMMEND ABANDON SHIP" ߊme=16z$="THE PLANE ESCAPED. OUR POSITION HAS BEEN REPORTED. ENEMY BOMBERSARE ON THE WAY RECOMMEND ABANDON SHIP" ^me=17z$="CONTACT WITH ENEMY "+a$(n)+" DO YOU WISH TO ATTACK? (Y/N)":7500L: Nme=18z$="WE HAVE LOCATED A FUEL DUMP REFUELLING NOW IN PROGRESS" rme=19z$="INTERFERENCE ON RADAR DUE TO JAMMING BY ENEMY TRANSMITTER RECOMMEND PROCEED WITH CAUTION" me=20z$="AN ENEMY RECONNAISANCE PLANE IS IN THE AREA IT MUST BE DESTROYED OR IT WILL REPORT OUR POSITION ARE YOU READY TO ATTACK? (Y/N)":7500L:  Ime=21z$="GOOD SHOOTING CAPTAIN ENEMY PLANE DESTROYED" ~me=22z$="ATTACK BY LAND-BASED ARTILLERY TWO TORPEDOES DESTROYED RECOMMEND TAKE MY ADVICE IN FUTURE!" me=23z$="MY SENSORS INDICATE LAND-BASED ENEMY GUNS ARE LOCATED NEARBY RECOMMEND "+"STAY SUBMERGED"(114*(fl=0))+"DIVE IMMEDIATELY"(116*(fl=1)) me=24z$="I HAVE INTERCEPTED AN ENEMY TRANSMISSION INDICATING THAT A "+a$(n)+" IS NOW LEAVING BASE B" Ome=30z$="MAIN ENGINES HAVE BEEN REPAIRED RECOMMEND FULL SPEED ADHEAD"  17500L:me>11 me<178000@ to=0me=16:m=120:.1}L,20:.1}L,30:m::z$="TORPEDO STOCKS EXHAUSTED YOUR MISSION IS TERMINATED FINAL STATUS READOUT FOLLOWS":7500L Rme>6me<11 to>0z$="RECOMMEND RETURN TO THE HUNT":7500L 3me>11 me<17502:'':7010b me>11 me<17:z$="YOUR SUBMARINE COMMANDER RATING IS: "+(10 *s(1)+20*s(2)+30*s(3)):7500L:9200# me=11 9700% j150:ad=20207:4:0:1::60249Y,180:zz=60247W: ad=9115# LO:23692\,255:m=1̱z$:z$(m);:z$(m)" ".05|L,20 Vm: @=8010J:a=.1}L:m=111 :b,c:b*a,c:m: J8,7,6,7,2,7,8,7,6,10 ,2,9 ,6,9 ,2,7,6,7,2,6,8,7 #(3:20,0;:"":20,0;:"" #>23658j\,0:5000:7:1:1: #J8,5;"SPECTRUM SUBSTRIKE":9700%:"press ""enter""";d$ #_me=-1:7002Z:z$="I'M ""SPECS"", YOUR FRIENDLY ONBOARD COMPUTER.":7500L #P:z$="PRESS ""T"" FOR TARGET PRACTICE OR ""M"" FOR FULL MISSION":7500L # 0 #!="m"ad=2020::1 #:="t"n=(*3+1):ad=9115#:5510 # 9115# #4150:'':z$="WANT TO TRY AGAIN?":7500L #="y"9100# $s="n"'':z$="OK, IT WAS NICE WORKING WITH YOU. GOODBYE...":7500L:1,24:1,20: $ 9210# % 9900& &H;m=111 :a=.05|L:b,c:a*b,c+12 :m: &2,12 ,2,11 ,4,12 ,4,0,4,0,2,7,2,5,2,4,2,7,4,12 ,8,12 peedifi d t &5La@b@ D˥K H       G   I2J2          niprxyH]  TANKER DESTROYERCARRIER  MISSILE AIRCRAFT "' Z5GOOD SHOOTING CAPTAIN ENEMY PLANE DESTROYEDWr @ KB<`x<x??>| ~~? ?0??xp|p8????????>??8?|8?8??x???x?~< LLLLLL LL LLLLLL L LLLLLL LLLLL LL LLLL LLL LLL LWL LL LL LL LLLW LL LLLLLLLL LLLLLLL LLLL LLLL LLLL LLLL LLL LLL LL LLLL LLLL LLLL L LLL LLLLL LLL LLLLLL LLLLLLL LLLLLLL LLLLLL !X  6m# > 2[*[@ |88~,} |g:[(>>#~#$ :[=2[~ }8*["[~L *[}!o|g"[   o|g!@!@s!@~+~w"~w$ R!@~#~w"~w${D_zW  !G%w%# !eXYw#  w w !X 6# >O!X6(# !c"6# 6*[!R8ȅo|g~W !@>2 [ w$# } |g: [=2 [udg X Ъ?@! ?88I*JR~00??