#eK?9 e!6X'?-:\vOBB@D8@B@BDBT@BB@BB@DBpp/BBB@D(8@<~BB><<<B@8D/<`<<||>BBB@<><|@)BBBDBBBBBBbbBHBB@@@BBfBB@B@fB@BBb@@DD<88D8Dx88888@88xD<@88BB@BB@B8888x888Dx8D8@8888xDx<'@BB(B@~BBBRR@H@B<|<@BZBB|B<ZB@BBR<@BT0 0DD DD@DD DD xD DDD 0DxDBB@BB<BD@DDDDDDDxD 0@D< DDD0DD'@B||NBB~|JJNH@~@@BB|B@|BB@~BJ@BT DD DD8DD Dx Dx DDD> DDD|B@~||x<8xDDxDDBB<~B>< @ <W 5]e]> > > >R] H z]Ð B$="0":251 @ڰ"0":ٰ"7":''"Your orders ?":p=p:p01280 'C<7"Too few crew":1261 =""247 4b$=:.03{u\,34":b$<"0"b$>"9"247 b$="0"'"0 Orders"'"1 Movement"'"2 Sonar"'"3 Torpedoes"'"4 Missiles"'"5 Repair"'"6 Status"'"7 H.Q."'"8 Sabotage"'"9 Conversion":1,34":240 a=b$-480: ]A=5D(5)<-5D(A)<0A5"System";r$;"d-Repairing":5000 A*1000  240 1001:1030 :100d,100d,15:100d,100d,20:100d,143:0,-79O:127,100d:-557,0:120x,120x:-40(,-40(:80P,120x:40(,-40( 1;3,12 ;"N";6,8;"NW NE";'''8;"W E";'''8;"SW SE";''12 ;"S" 100d,143:8,-8:100d,143:-8,-8:100d,140:8,-8:100d,140:-8,-8  "course ? ";b$ "B$="1"B$="2"B$="3"1030 P"Power=";p''"How far to go ?":p1:zc=1:p1>p/100d1050 B X=S1:Y=S2 VN=1P1 `1X15b$="S"b$="SW"B$="SE"X=X+1 j1Y20B$="E"B$="NE"B$="SE"Y=Y+1 t0Y1B$="W"B$="NW"B$="SW"Y=Y-1 ~0X1B$="N"B$="NE"B$="NW"X=X-1 A$(X,Y)" "1200 N =P=P-P1*100d:A$(S1,S2)=" ":S1=X:S2=Y:A$(S1,S2)="""" ("Movement over, power=";p:62008 ,A$(X,Y)="!""**BADOOM** a mine !" 1A$(X,Y)="#""YOU RAMMED A SHIP !":s=s-1 "A$(X,Y)="$""YOU RAMMED H.Q. !" @A$(X,Y)="%""You sailed straight into a pair of enemy divers" "A$(X,Y)="&""YOU RAN AGROUND !" S=09500% z=23762\ E'"YOU LOSE"'"With ";S;" ships"(15+(S>1));" left" T$="4D3D1D3D3G1F2F1D2D1D5D" MN=1̱T$2:(T$(N)-480)/6,T$(N+1)-73I:N '"Another go ? (Y/N)" =""1272 ="Y"9700%  ;"Reactor dead - no power left - sub sinks !":1261 l1::7:".":16,0;".";1,0; t1,22;1;" N";22;" |";22;" |";22;"W-+-E";22;" |";22;" S" iK$=" *":n=1721:n,0;" ":n  19,0;"Key:";5;" ship"," your sub";5;"* mine"," mini-sub";5;" H.Q."," island";1,0;  .n=115:.05|L,20:".";  Px=120:z=(a$(n,x)-31)*3:K$(z-2z);:x:".":N .5,30  230,80P:0,20:-7,0:0,16:7,0:0,568:2,2:7,0:2,-2 *o0,-568:7,0:0,-16:-7,0:0,-20:-11 ,0 4228,103g:-2,2:0,5:3,3:11 ,0:0,-11 ,-:-11 ,0 >229,90Z:-8,0:0,3:8,0:242,90Z:8,0:0,3:-8,0 cp=p-80P p$13 ,24;"Range=?"'' z;2400` :b$=:b$<"1"b$>"3"b$13 2170z }-.03{u\,35#:b$=13 240 9a=b$-480:13 ,30;b$'':p=p-a*20 1B$="":X=S1:Y=S2:K$=" *" hX-A>0B$=B$+K$((A$(X-A,Y)-31)*3-2(A$(X-A,Y)-31)*3):2195  B$=B$+" " yX-A>0Y+A<21B$=B$+K$((A$(X-A,Y+A)-31)*3-2(A$(X-A,Y+A)-31)*3):2200  B$=B$+" " iY+A<21B$=B$+K$((A$(X,Y+A)-31)*3-2(A$(X,Y+A)-31)*3):2205  B$=B$+" " zX+A<16Y+A<21B$=B$+K$((A$(X+A,Y+A)-31)*3-2(A$(X+A,Y+A)-31)*3):2210  B$=B$+" " iX+A<16B$=B$+K$((A$(X+A,Y)-31)*3-2(A$(X+A,Y)-31)*3):2215  B$=B$+" " yX+A<16Y-A>0B$=B$+K$((A$(X+A,Y-A)-31)*3-2(A$(X+A,Y-A)-31)*3):2220  B$=B$+" " hY-A>0B$=B$+K$((A$(X,Y-A)-31)*3-2(A$(X,Y-A)-31)*3):2225  B$=B$+" " xX-A>0Y-A>0B$=B$+K$((A$(X-A,Y-A)-31)*3-2(A$(X-A,Y-A)-31)*3):2230  B$=B$+" " "a=1:Z$="N NE ESES SW WNW" 8,29;b$(aa+2);16,29;Z$(A/3*2A/3*2+1);14,0:.5,0 32400` :k$=:k$=""k$13 2280 .03{u\,35# k$=13 240 k$="Z"a=a-3 k$="X"a=a+3 A=-2A=22 A=25A=1 8,29;b$(aa+2);16,29;Z$(A/3*2A/3*2+1);14,0:2280 `oFL=FL+1:FL/8=(FL/8)S1,S2;(FL/16=(FL/16))*6;"";14,0: a &T=0"No torpedoes":240 9"Torpedo's range ? (1-3) ";z:z>33003 *1001:"Torpedo's course ? ";z$ JX=S1:Y=S2:n=1z:z$="NW"Z$="NE"Z$="N"X=X-1*(X>0) 2z$="SW"Z$="SE"Z$="S"X=X+1*(X<16) 1z$="W"Z$="NW"Z$="SW"Y=Y-1*(Y>0) 2z$="E"Z$="NE"Z$="SE"Y=Y+1*(Y<21) #X=16Y=213040 %A$(X,Y)" "A$(X,Y)""3090 N a=44300 "Torpedo lost" >A=3P=P-150-10 *Z:T=T-1:62008 62008 (Z$=A$(X,Y):Z$"&"Z$"$"A$(X,Y)=" " &Z$="&"Z$="$"A=44200h ?A=3MI=238571]:3100 +(Z$-32 )*5 ?A=4MI=23762\:3100 +(Z$-32 )*5 !"You hit a mine":3080 &("**YOU HIT YOURSELF**":1260 +*"SHIP SUNK":S=S-1:3080 0fA$(X,Y)=" ":D=0:"YOU HIT H.Q. !":S3=0:S4=0:A$(X,Y)="&":3080 5("Enemy divers neutralized":3080 :+"Torpedo wasted on an island":3080 D#3080 +(a=4)*31200 ':M=0"Silos empty":240 y1,22;" N";22;"NW | NE";22;" \|/";22;" W-*-E";22;" /|\";22;"SW S SE" ,5,170:78N,0:0,-535:-78N,0:0,535:1,1;"LAUNCHING";6,3;"READY";2,3;"CREWS";4,3;"1 2 3":22,145:11 ,0:0,-11 :-11 ,0:0,11 38&,145:11 ,0:0,-11 :-11 ,0:0,11 :546,145:11 ,0:0,-11 :-11 ,0:0,11 101e,170:62>,0:0,-13 :-62>,0:0,13 :148,170:0,-12 :1,13 ;"RANGE";1,19;"0":101e,146:21,0:0,-21:-21,0:0,21 4,13 ;"99";5,13 ;"99":133,146:21,0:0,-13 :-21,0:0,13 u8,0;"Direction of launch ?":z$:8,0;" ";4,17;Z$ 502:C>54,3;"1":.1}L,0:502:C>10 4,5;"2":.1}L,0:502:C154,7;"3":.1}L,0:502:4035 [8,0;"NOT ENOUGH CREW TO FIRE MISSILESLAUNCH SEQUENCE ABORTED":240 y6,3;"READY":.5,0:20:1,13 ;"RANGE";8,0;"TYPE RANGE (1-9)" !B$=:B$<"1"B$>"9"4040 ~.03{u\,34":502:1,19;B$;1,13 ;"RANGE":502:8,0;"FUELLING MISSILE " ҩN=120:.1}L,0:N:F-100d*(B$-480)<08,0;"ENOUGH FUEL TO FIRE MISSILE LAUNCH SEQUENCE ABORTED":240 ׌8,0;"MISSILE FUELLED ":100d:8,0;"ALL SYSTEMS GO "'"PRESS ~A~ABORT LAUNCH":F=F-100d*(B$-480) =""4056 j="A"8,0;"LAUNCH ABORTED1 ":240 U8,0;"COUNTDOWN COMMENCING, " ܢ502:N=9 0-1:4,13 ;(N+480);(N+480);5,13 ;(N+480);(N+480):.1}L,0:40(:N @N=1:8,0;"LAUNCH SEQUENCE COMPLETE MISSILE FIRING":Z=(B$-480):M=M-1:MI=23923s]:3010 hUZ=23762\:A$(X,Y)="$""YOU BLASTED H.Q.":D=0:A$(X,Y)=" ":62008 3A$(X,Y)=" ":"You blasted an island!":62008 "Missile Lost":62008 Nd(5)<-51,0;"Repair impossible":240 n=19 1d(n)<0p=p+(d(n)*15):d(n)=0 n a5a*1000  240 P]"-=UPDATE=-":n=19 :d(n)=d(n)+1:n:P=P-15:ZC=25620 Z7zc=2:b(20,2):a=0:z=1 xGX=115:Y=120:a$(x,y)"%"Y:X:5360 0V=X:W=Y:W=W+(WS2):V=V+(VS1) Ea$(v,w)=""""Z=238571]:"Enemy divers found you!":1260 }a$(v,w)="$"a$(v,w)="&":Z=238571]:"Enemy divers got H.Q.":d=1d=0:"You don't stand much chance now!" Ya$(v,w)=" "A$(X,Y)=" ":A=A+1:b(a,1)=v:b(a,2)=w:y:x:5360 a$(v,w)="!"a$(x,y)=" ":Z=238571]:a$(v,w)=" ":"The divers mistook a mine for you! - one less diving team to worry about!":z=z+1 9Y:X:x=1a:a$(b(x,1),b(x,2))="%":x 4d(1)>0źd(9 )>0240 KZ=238571]:"SUB SUNK BY ENEMY DEPTH-CHARGES":Z=238571] p<11280  1260 p u"Damage","Status" z',"Power.=";(p<1000);p;"";',"Fuel.=";f',"Crew.=";(c<15);c;""',"Enemy ships=";s',"Torpedoes..=";t',"Missiles...=";m',"Skill level=";sk *'''" You are at South ";s1;" , East ";s2 3d0'" H.Q. is at South ";s3;" , East ";s4 S=01270 Xb$="Engines..Sonar....TorpedoesMissiles.Repair...Status...H.Q.Sabotage.Converter" @n=19 :n+1,0;:d(n)<01 7b$(n*9 -8n*9 );"=";d(n):0:n 15,0;:240 8s=09500% ;p<11280 =.a=:a.5"Depth charges to port" L.a>.5"Depth charges to starboard" j>.13~R6280 t"No";r$:5200P >.368Q6330 L"Light";r$:p=p-502:d((*9 )+1)=-(*2):5200P 2d((*9 )+1)=-(*2):5200P >.66410  z"Moderate";r$:p=p-75K-(*30):y=12:x=(*9 )+1:d(x)=d(x)-*8:y:5200P  >.75@6490Z /"HEAVY DAMAGE":p=p-(200+(*76L)) ([X=14+(*2):Y=(*9 )+1:d(y)=d(y)-(*9 )+1:x IN=-1 Kp<11280 P 5200P Z9"DAMAGE CRITICAL RADIOHELP":b$="":Z=23689\ n7x=14:b$=b$+((*26)+65A):x 0,28;b$  15 _N=70-1:0,28;N;1;" ":.13~R-sk*.01z# =,N:N  6430:23689\,Z:x$ x$B$6610 "THWAS CLOSE"  6630 5"MESSAGE GARBLED":"IT WAS ";b$;" ";x$:1260 C=C-2:5200P b3d=0"Hard luck - H.Q. deserted":240 lP(((s1-s3))^2+((s2-s4))^2)>2"Too far to dock":240 vd=0:p=2500 :t=5:m=M+1:f=1500:c=20:10 ,16;1;"Refit complete";0,0;:6005u @%z=0:p=p-30:sc=0 T2x=s1-2s1+2:y=s2-2s2+2 h7x<1x>15y<1y>208080 ra$(x,y)"#"8080 |8>.27 =pz=z+1:a$(x,y)=" ":MI=238571] sc=sc+1 y:x: (sc=0"No ships near":240 1"Ships near=";sc'"Ships sunk=";z'"Men caught="; dP=P-30:S=S-Z:a=sc*2+1:a=(*a):A:C=C-A:SC>ZD(8)08000@ $sc>zD(8)<0254  62008 "COPYRIGHT "V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 "^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 "R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 "\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 "V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 "`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 "0:0:7: "&0,12 ;6;"POLARIS" "23,7;"PUBLISHED BY ";1;"" "!4,22;1;"" ",6,7;1;" 1983 M.Fox " "&9 ,7;"COPYRIGHT WARNING" ",,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"-right, of POLARIS.":"Please note unauthorised copying":"hiring, and lending of this ":"software is strictly prohibited." #A21,3;6;1;"Press any key to continue" #=""8965# # 121,3;" ": #F+"(1) Fuel Power"''"(2) Power Fuel" #K="2"9200# #P="1"9153# #Z 9035K# #d:0,1;"Power Fuel"':n=61-1:n+2,1;1000*(7-n);"-":n:47/,152:0,-524 #gQn=100d(100d+(p/125})):480,n:4;4,0:n #iwn=31-1:n+2,11 ;1000*(4-n);"-":n:127,147:0,-24 #ln=123{(123{+(f/125})):128,n:6;4,0:n:f0128,123{:0;4,0 # #!f<1"No fuel":240 # 9060d# #("Fuel=";f'g$;" ");a #f-a<09060d# #kf=f-a:p=p+a:p>6500dp=6500d:10 ,0;"Maximum power 6500 - excess lost":200 #69060d#:10 ,0;"Power=";p:62008 #9060d#:("Power=";p'g$),a $p-a<09200# $ jf=f+a:p=p-a:f>3000 f=3000 :10 ,0;"Maximum fuel 3000 - excess lost":200 $59060d#:10 ,0;"Fuel=";f:62008 $T=9310^$:N=140(:A,B:B=B-12 :A,B:N: $^W1,0,1,2,.5,3,.5,2,1,0,1,0,1,2,.5,3,.5,2,1,0,1,3,1,5,2,7,1,3,1,5,2,7,.75@,7,.25~,8,.5,7,.5,5,.5,3,.5,2,1,0,.75@,7,.25~,8,.5,7,.5,5,.5,3,.5,2,1,0,1,0,1,-5,2,0,1,0,1,-5,2,0 %nN=021:N,0;"WELLDONEWELLDONEWELLDONEWELLDONE":9560X%:N %&f502:N=021:N,0;8;8;" ":N %0v502:N=021:N,0;8;8;" YOU WON ":9560X%:N %:r502:23692\,100d:N=122:ٺ(*6)+1;" ":N %D[502:N=122:ٺ(*6)+1;" ":N %N 1270 %X .1}L,*80P-40(: %n::A$(15,20):z=0:0:7:0::23658j\,8:236099\,502 %09990':N=039':A:"A"+N,A:N %FL=0:R$=" damage":G$="How much to use ?":ZC=2:s1=10 :s2=10 :a$(s1,s2)=34":S4=(*20)+1:S3=(*15)+1:a$(S3,S4)="$" % 8900" &w.5,0:"Skill level 1-5 ? ";n:sk=n:N=N:n<1n>5#0;"Invalid skill level":9730& &2(9900&+n*10 ):f,p,m,i,t,c:9915& &!C$="!""#$%&":N=16 & N=2N=4N &N=b=mi & N=b=S &*N=5b=di &4N=6b=i &>KX=(*15)+1:Y=(*20)+1:a$(x,y)" "9790>& &W=N=N=6X=X=15Y=Y=209790>& &\A$(X,Y)=c$(n) &fb:n:D(9 )::d=0 &0"There are ";s;" ships":s>17d=1 & 230 &"POLARIS"9700%: &92500 ,6300,3,4,12 ,30 &\di=(*4)+sk*4:mi=(*5)+3+n:s=(*4)+7+sk*3: &92500 ,6300,3,4,12 ,30 &92500 ,6300,2,5,11 ,30 &92500 ,6300,2,5,11 ,30 &92500 ,6300,1,6,10 ,30 'l0,0,0,12 ,12 ,126~,255,126~,0,8,8,137,255,127,63?,0,7,7,7,7,7,7,7,7,0,0,0,36$,37%,127,127,1,62>,127,127,62>,124|,62>,127,58: 1 $ "n z('%a:R damageGHow much to use ?  "" #ҕ POLARIS $K%I W PM323ڕ3-9}#%> ~~?$%>>|>:~@|@@@>BB<DHpHDB@~BfZBBBBbRJFB