DN  :62921:23659k\,0:7:7:1:23659k\,2::23659k\,0:"":"":''''''''''':"" DN @<Çýý|Bx<|<BB<@~B<<<BDfDBBBfB@BB@BB@b(BBB|(ZBBBBZ@@B~@BB|RB< BBBBB|~B@@BB@B|@J>BBBBDBDBBB@BB@BD@FBBý|B<x~B><<<<%t//)$*\C#"0BB<><~|<14??Bf@B@B(B(?!49_~Z<@|BB(?49T  BBN@|>H!D$!49?p BBBB@D~!'??/BB<><~B><>#*`* ((||<<|B<BBBBBBf@BBDbBBBB@BBZ@BBBR@||BN|~B@B~BJN@DBBDBB@BBDFB@B<B<888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888                      @ODN 2 4  ŧ>5 ͱͲ*+ͱͲ*+ͱͲ**=8+͐+5+6# ZͱͲ* ͱͲ*+ ZͱͲ* ͱͲ*+Œ ¡ * ¶ @  8>Ͳ*'86#*K\>G!> G!*K\>G!->G!*K\Z>G! > G!  )> Wn9 *K\)R R% qO *K\)q R q )> WnX*K\)pR ͱͲ*>Ͳ*8+> 7>b*K\)œR R> 7q *K\)q R 7q*K\)q R 7q *K\> G!*K\->G!*K\>G!ͱͲ*>Ͳ*8+>>N#>N~N## 6͐6)n*K\)͛6͐6)n*K\)͛6E}UͤM}]ͤEù͐ڹ)n*K\)͛ڹ ͐ڹ)n*K\) ͛ڹE}UͤM }]ͤ²>(Ͳ*EͱͲ*ͱ Ͳ*88E+UE>>xͲ*MͱͲ*ͱ Ͳ*88M+]rM> EͱͲ*ͱͲ*8+EͱͲ*ͱͲ*8+MͱͲ*ͱͲ*8+MͱͲ* ͱͲ*8+tZM)>A7 nͱͲ*)ͱͲ*#8+͐ڲ*K\ڲ nͱͲ*)ͱͲ*#8+͐ڲ*K\>nͱͲ*)ͱͲ*#8+͐S*K\S n ͱͲ*)ͱͲ*#8+͐S*K\f>#>"*ͱͲ*ͱͲ*8+ͱͲ*>Ͳ*=8+*K\> G!~N##JZM*K\f  ͱͲ*ͱͲ* ͱͲ*ͱͲ*=8)+f)*K\~NڤʁÆ##G> t> ~^VNFwsrqp8*1=8G6ͱͲ*=8+*K\*K\#> G!v MQ`ZMZMjZMZM*K\6#>,<@@@@@@ @ 4<$B$$<<$$B$  < ><B$BBBzDN &&ɀ( 62922 65340<::q=0:sbend=0:sb=0:tbrg=0:hdg=0:ts=0:tgt=0:torps=0:ti=0:end=0:vc=0:mv=1:ps=0:basevis=6:opt=0:pct=0 vis=basevis+(*10 ) i=19 :e(i,4)=2:f(i,4)=2:e(i,5)=90Z:f(i,5)=270:g(i,4)=0:h(i,4)=0:o(2,1,i)=0:o(1,2,i)=0:i j=12:l=13:w(j,l,2)=0:l:i=19 :l=15:x(j,l,i)=0:l:k(j,i)=0:s(j,i)=0:y(j,i)=0:z(j,i)=0:i:i=14:i(j,i,4)=0:i(j,i,6)=0:i:j:x=0 O 810* Rp$=" ":10 ,9 ;"INPUT VICTORY";11 ,8;"CONDITION (1-4)":5600:tn>4tn=082R Z`vc=tn:10 ,2;"FIRST PLAYER TO DESTROY ";vc;" OF"'" THE ENEMY'S DREADNOUGHTS WINS" iap$=" ":q=1:20,3;"ENTER BRITISH PLAYER CODE"'10 ;"(3 LETTERS) : " nK5800:21,24;p$:q=3a$=p$:500:120x sq=q+1:110n xQp$=" ":q=1:20,3;" ENTER GERMAN";21,24;" " }N5800:21,24;p$:q=3b$=p$:500:i:130 q=q+1:125} a$=b$5900 :18,1;"SORRY, THAT WON'T DO - YOU'VE"'3;"BOTH CHOSEN THE SAME CODE!"''8;"PLEASE TRY AGAIN ":i=1250:i:5900 :5910:100d 999 .0.1}L,35#:i=1100d:i: 2/8204:i=19 :e(i,3):i 4I6,6,7,7,7,5,5,5,5 6g8204:i=19 :f(i,3):i:f(1,3)=5:f(2,3)=5 Hdd= Jdd<0.5r=19 Ldd0.5r=2 NZe(1,1)=r-2:e(2,1)=r+2:e(3,1)=r-2 PRe(4,1)=r:e(5,1)=r+2:e(6,1)=r-2 RZe(7,1)=r-1:e(8,1)=r+1:e(9 ,1)=r+2 TTe(1,2)=4:e(2,2)=4:e(3,2)=1 VTe(4,2)=1:e(5,2)=1:e(6,2)=0 XTe(7,2)=0:e(8,2)=0:e(9 ,2)=0 Z!dd<0.5r=r-(*17) \!dd0.5r=r+(*17) bZf(1,1)=r-2:f(2,1)=r+2:f(3,1)=r-2 dRf(4,1)=r:f(5,1)=r+2:f(6,1)=r-2 fZf(7,1)=r-1:f(8,1)=r+1:f(9 ,1)=r+2 hWf(1,2)=27:f(2,2)=27:f(3,2)=30 jWf(4,2)=30:f(5,2)=30:f(6,2)=31 lWf(7,2)=31:f(8,2)=31:f(9 ,2)=31 z 7400 | ps=1 ci=19 :g(i,1):g(i,2):g(i,3):r(1,i,2)=g(i,1):i 2,3,3,2,3,3,1,3,4,1,3,4,1,3,4,10 ,8,5,18,10 ,7,18,10 ,7,18,10 ,8 ci=19 :h(i,1):h(i,2):h(i,3):r(2,i,2)=h(i,1):i 1,3,3,3,4,4,1,3,3,1,3,3,1,3,3,9 ,8,6,15,8,7,15,8,8,18,9 ,10 Di=12:j=13:w(i,j,1)=1:j:i ki=12:j=14:i(i,j,1):i(i,j,2)=i(i,j,1):i(i,j,3):j:i 1,3,1,3,1,3,3,4,3,4,3,4,3,4,3,4  6:0:9999' ':5500| pct=pct+1 p$=" PLAYER DECISION PHASE" /pct=111 ,1;"BRITISH";p$ .pct=211 ,2;"GERMAN";p$  9970& Gq=1:p$=" ":21,2;"ENTER YOUR PLAYER CODE : " :5800:21,27;p$:q=31015 q=q+1:1011 5(pct=1p$a$)(pct=2p$b$)1010 $i=19 :c(i)=0:i  7:5:9999'  5500| N2,4;"ACTION";2,25;"INPUT";3,25;"CODE" c5,1;"LIST UNIT NAMES AND";6,1;"DEFENCE STRENGTHS";5,27;"1" $98,1;"VIEW SITUATION";8,27;"2" );10 ,1;"COMBAT REPORTS";10 ,27;"3" .B12 ,1;"CHANGE COURSES/SPEEDS";12 ,27;"4" 8E14,1;"ALLOCATE GUNNERY TARGETS";14,27;"5" =^16,1;"TORPEDOES/SECONDARY";16,27;"6";17,1;"BATTERIES" BB19,1;"ALL ACTIONS COMPLETED";19,27;"0" G/21,3;"CURRENT VISIBILITY = ";vis 5600:opt=tn +opt=10:5:2500 +opt=25:1:2000 +opt=32:6:1700 +opt=44:2:3000 +opt=53:4:4000  +opt=66:3:3500 opt=07000X @ 1510 R9999':1,9 ;"FRIENDLY UNITS'";2,9 ;"COMBAT REPORTS" 45,2;"UNIT";5,15;"REPORT" ,i=19 :6+i,3;i:i ts=01730 1i=19 :k(pct,i)=11930  i:502 i=19 :k(pct,i)=1x(pct,3,i)=0x(pct,4,i)=06+i,8;"NO SERIOUS DAMAGE":i i=19 *z(pct,i)=11910v:1790 *s(pct,i)=11920:1790 Hy(pct,i)=16+i,8;"MAGAZINE EXPLOSION!":1790 ]x(pct,1,i)1x(pct,2,i)=06+i,8;"UNDER FIRE: NO HITS" ̓x(pct,1,i)1x(pct,2,i)0x(pct,3,i)=0x(pct,4,i)=06+i,8;"HIT - NO SERIOUS DAMAGE" ]x(pct,3,i)0x(pct,4,i)=06+i,8;"HULL DAMAGED " ]x(pct,3,i)=0x(pct,4,i)06+i,8;"ARMAMENT DAMAGED " ax(pct,3,i)0x(pct,4,i)06+i,8;"HULL & ARMAMENT DAMAGED" i ]i=19 :b(pct,i)=125:6+i,8;"UNIT OUT OF BATTLE AREA" ]i:20,5;"PRESS '0' FOR OBSERVED"'9 ;"ENEMY ACTIVITY":0.1}L,35# ="0"1800  1796 89999':1,4;"OBSERVED ENEMY ACTIVITY" 95,2;"UNIT";5,13 ;"OBSERVATION" ,i=19 :6+i,3;i:i pct=1q=2 pct=2q=1 /i=19 :k(q,i)=11930  i:502 ;i=19 :z(q,i)=11910v:1890b (s(q,i)=11920:1890b "x(q,5,i)=0x(q,1,i)06+i,8;"UNDER FIRE":x(q,2,i)06+i,19;"& HIT":y(q,i)06+i,8;"MAJOR EXPLOSION ":1890b $x(q,5,i)06+i,8;"FIRING ":x(q,1,i)06+i,14;":UNDER FIRE":x(q,2,i)06+i,26;"& HIT":y(q,i)06+i,15;"MAJOR EXPLOSION ":1890b bi g 5720X l 1030 v#6+i,8;"BLOWN UP! ": #6+i,8;"SUNK ": #6+i,8;"TORPEDOED!": 45:9999' :Mtn=0:l1=1:l2=9 :step=1:pct=1pass=0 ;pct=2pass=1 >pass=12120H ?i=l1l2step @o(pct,1,i)=1t1=i:9997 ':t10n1=e(i,1):t1=e(i,2):k=e(i,4):hdg=e(i,5):2410j :4;y1,x1;c$(i,1,1);1;y1,x1;c$(i,2,1):0 A x=1 Bi Cpass=12150f Hi=l1l2step Jo(pct,2,i)=1t1=i:9998':t10n1=f(i,1):t1=f(i,2):k=f(i,4):hdg=f(i,5):2410j :6;y1,x1;d$(i,1,1);1;y1,x1;d$(i,2,1):0 K x=1 Li Mpass=12111? fjtn=tn+1:pct=2pass=1pass=0:l1=9 :l2=1:step=-1:2110> [pct=1pass=0pass=1:l1=9 :l2=1:step=-1:2110> (502:1:5720X:0 ` 1030 jtn0 ot1=x1*8+4:n1=172-y1*8:hdg=-(hdg+90Z)*/180:x2=(k*8+3)*hdg:y2=(k*8+3)*hdg t2t1+x2>255k=(255-t1)/x2:2490 ~'t1+x2<0k=(t1/x2):2490 'n1+y2<0k=(n1/y2):2490 2n1+y2>175k=(175-n1)/y2:2490 t1,n1:x2,y2: .y2=(k*y2+0.5):x2=(k*x2+0.5): ΅9999':1,8;"UNIT NAMES AND";2,7;"DEFENCE STRENGTHS";5,1;"UNIT";5,12 ;"NAME" 15,29;"DEF";6,29;"STR" spct=1i=19 :7+i,2;i;7+i,6;n$(i);7+i,30;g(i,3):i spct=2i=19 :7+i,2;i;7+i,6;m$(i);7+i,30;h(i,3):i 5720X 1030 =9999':1,1;"CHANGE COURSES/SPEEDS OPTION" &3,1;"UNIT";3,8;"MAX";4,7;"SPEED";3,14;"CURRENT";4,15;"SPEED";3,23;"HEADING" :_i=19 :pct=1tn=e(i,3):t1=e(i,4):n1=e(i,5):5100 DLpct=2tn=f(i,3):t1=f(i,4):n1=f(i,5):5100 Ni w20,1;"INPUT UNIT TO BE AMENDED (1-9)"'7;"(OR '0' TO RETURN) ":5600:tn=01030 +5900 :q=tn:end=13200 pct=23402J "e(q,3)=03200 1;q+5,2;q "b(1,q)=03320 5740l 0="Y"Ŧ="y"5900 :k=0:3311 <="N"Ŧ="n"5900 :5730b:k=1:3314 3306 ka(1,q)=e(q,6):e(q,4)+a(1,q)>e(q,3)a(1,q)=e(q,3)-e(q,4) Ot1=e(q,1):n1=e(q,2):tn=e(q,5):5000:t(1,q)=x yq+5,17;e(q,4)+a(1,q);q+5,25;e(q,5)+t(1,q);" ":k=033804 5700D ="0"3340 6900 0a(pct,q)<-e(q,6)a(pct,q)=-e(q,6) .a(pct,q)>e(q,6)a(pct,q)=e(q,6) 7e(q,4)+a(pct,q)<0a(pct,q)=-e(q,4) He(q,4)+a(pct,q)>e(q,3)a(pct,q)=e(q,3)-e(q,4) Hpct=1q+5,17;e(q,4)+a(1,q):3321 5710N:6700, "0"3355  6720@  33804  6910 0t(pct,q)<-e(q,7)t(pct,q)=-e(q,7) .t(pct,q)>e(q,7)t(pct,q)=e(q,7) 6t1=e(q,5)+t(1,q):6600:3351 45900 :5910 H"q+5,2;q:3200 J"f(q,3)=03200 K1;q+5,2;q L"b(2,q)=03420\ M 5740l N0="Y"Ŧ="y"5900 :k=0:3411S O<="N"Ŧ="n"5900 :5730b:k=1:3414V P 3406N Ska(2,q)=f(q,6):f(q,4)+a(2,q)>f(q,3)a(2,q)=f(q,3)-f(q,4) UOt1=f(q,1):n1=f(q,2):tn=f(q,5):5000:t(2,q)=x Vyq+5,17;f(q,4)+a(2,q);q+5,25;f(q,5)+t(2,q);" ":k=03470 \ 5700D ]="0"3440p ^ 6900 b0a(pct,q)<-f(q,6)a(pct,q)=-f(q,6) c.a(pct,q)>f(q,6)a(pct,q)=f(q,6) d7f(q,4)+a(pct,q)<0a(pct,q)=-f(q,4) eHf(q,4)+a(pct,q)>f(q,3)a(pct,q)=f(q,3)-f(q,4) fHpct=2q+5,17;f(q,4)+a(2,q):3421] p5710N:6700, {"0"3455 | 6720@ ~ 3480  6910 0t(pct,q)<-f(q,7)t(pct,q)=-f(q,7) .t(pct,q)>f(q,7)t(pct,q)=f(q,7) 6t1=f(q,5)+t(2,q):6600:3451{ 5900 :5910 "q+5,2;q:3200 }9999':0,1;"TORPEDOES";2,2;"UNIT TORPEDOES TARGET";3,13 ;"LEFT? UNIT" di=35:2+i,3;i:w(pct,i-2,1)02+i,15;"Y" Pw(pct,i-2,2)02+i,25;w(pct,i-2,2) i ʄ9 ,1;"SECONDARY BATTERIES";11 ,2;"UNIT GUNNERY RANGE TGT TGT";12 ,8;"STRENGTH (P) (S)" ԃi=69 :8+i,3;i;8+i,11 ;i(pct,i-5,1);8+i,19;i(pct,i-5,3) Pi(pct,i-5,4)08+i,24;i(pct,i-5,4) Pi(pct,i-5,6)08+i,28;i(pct,i-5,6) i }20,4;"INPUT REQUIRED UNIT (3-9)"'7;"(OR '0' TO RETURN) ":5600:tn=1tn=23600 55900 :q=tn:5910:q=01030 end03600 q63750 .w(pct,q-2,1)=03600 1;q+2,3;q  5200P \tgt=tn:tgt=0w(pct,q-2,2)=0:2+q,25;" ":3700t  pct=236408 $ 3900< . 3650B 8 3910F [.rng>vis5220d:tgt=0:3700t `rng>320,5;"PROPOSED TARGET OUT OF"'9 ;"TORPEDO RANGE":i=160<:i:5900 :tgt=0:3700t jbd(pct,q-2)=rng:w(pct,q-2,2)=tgt:2+q,25;w(pct,q-2,2) t"q+2,3;q:3600 .i(pct,q-5,1)=03600 +1;q+8,3;q:5200P ptgt=tn:tgt=0l=47:i(pct,q-5,l)=0:l:8+q,24;" ":3850  pct=23785  3900<  3786  3910F P(rng>visrng>i(pct,q-5,3))sbend09724%+sbend*8 <rng>vissbend=05220d:tgt=0:3850  Crng>i(pct,q-5,3)5210Z:tgt=0:3850  pct=23800 Ԛtbrg=90Z-(((e(q,1)-f(tgt,1))/(f(tgt,2)-e(q,2)+1e-35 T-)))*180/:f(tgt,2)hdg-180)(tbrg>hdg+180tbrghdg+360h)i(pct,q-5,4)=tgt:i(pct,q-5,5)=rng:i(pct,q-5,8)=tbrg (tbrg>hdgtbrghdg+180)(tbrghdg-180tbrg>hdg-360h)i(pct,q-5,6)=tgt:i(pct,q-5,7)=rng:i(pct,q-5,9 )=tbrg *sbend09720%+sbend*10 Pi(pct,q-5,4)08+q,24;i(pct,q-5,4) Pi(pct,q-5,6)08+q,28;i(pct,q-5,6)  "q+8,3;q:3600 vis5220d:g(q,4)=0:4215w Ig(q,5)>g(q,2)5210Z:g(q,4)=0:4215w "q+5,27;g(q,4) /pct24600 5"h(q,1)=04600 81;5+q,3;q :5200P:h(q,4)=tn ?gh(q,4)=0h(q,5)=0:h(q,6)=0:5+q,27;" ":4600 N0tgt=h(q,4):3910F:h(q,5)=rng X@h(q,5)>vis5220d:h(q,4)=0:4415? bIh(q,5)>h(q,2)5210Z:h(q,4)=0:4415? "q+5,27;h(q,4) "q+5,3;q:4140, wx=((t1-10.5()/(15.5x-n1)):x=(-18/*x+0.5)*10 +90Z-tn:n1>15.5xx=x+180  ni+5,2;i;i+5,9 ;tn;i+5,17;t1+a(pct,i);i+5,25;n1+t(pct,i): Pv5910:20,4;"INPUT TARGET UNIT (1-9)"'4;"(OR '0' TO CANCEL FIRE)":5600:5900 : ZW20,2;"PROPOSED TARGET OUT OF RANGE":i=160<:i:5900 : du20,5;"PROPOSED TARGET NOT IN"'4;"SIGHT FROM SELECTED UNIT":i=160<:i:5900 : |.5;"DREADNOUGHTS - MOVE ";mv: 0.1}L,35# 3tn=-480:tn<0tn>9 5601  D18,5;"USE CURSOR KEYS / TO"'5;"ACCELERATE/DECELERATE"''5;"PRESS '0' WHEN FINISHED":0.1}L,35#: N5900 :5910:18,5;"USE CURSOR KEYS / TO"'4;"INCREASE/DECREASE HEADING"''5;"PRESS '0' WHEN FINISHED":0.1}L,35#: X=21,6;"PRESS '0' TO RETURN":0.1}L,35# Z ="0" \ 5722Z b&a(pct,q)=0:t(pct,q)=0: lt20,0;"SELECTED UNIT OUT OF BATTLE AREA"'2;"DO YOU WISH TO RECALL? (Y/N)":0.1}L,35#: *0.1}L,35#:i=16:i 8p$(q)=:p$(q)"a"p$(q)"z"p$(q)=(p$(q)-32 ) !p$(q)<"A"p$(q)>"Z"5810   Y20,0;" "'" ": Y18,0;" "'" ": p<l=tnt12:n1=0:׾l/10 ,(l+1):l: Kfpwr=(fpwr*(11 -x(t1,1,tgt))/10 )*(1-n1/20): Wx(2,t1,tgt)=x(2,t1,tgt)+*(0.3*dmpt/(h(tgt,3)+1e-35 T-)): Wx(1,t1,tgt)=x(1,t1,tgt)+*(0.3*dmpt/(g(tgt,3)+1e-35 T-)): d-i6tgt2fpwr=fpwr*0.75@ n8i6tgt>2tgt5fpwr=fpwr*0.5 dbrg=dbrg+360h:(hdg+360h-dbrg)<30Ž(hdg+180-dbrg)<30Ž(hdg+540-dbrg)<30fpwr=fpwr*0.5  &c(q)=t1:t1<0t1=t1+360h t1>360ht1=t1-360h q+5,25;t1;" ": ,-c(q)>360ht(pct,q)=t(pct,q)+360h 6+c(q)<0t(pct,q)=t(pct,q)-360h ; @+c(q)<0t(pct,q)=t(pct,q)+360h J-c(q)>360ht(pct,q)=t(pct,q)-360h O Bdmpt=(*(15+5*((fpwr-1)/5)))-1: tgt=0:i(sb,i,j+2)0x=i+5:9988'+2*sb:tgt=i(sb,i,j+2):fpwr=i(sb,i,1)*(3-(3*i(sb,i,j+3))/(i(sb,i,3)+1)):dbrg=i(sb,i,7+j/2): "="6"a(pct,q)=a(pct,q)-1 "="7"a(pct,q)=a(pct,q)+1  #="6"t(pct,q)=t(pct,q)-10 #="7"t(pct,q)=t(pct,q)+10  &23659k\,0:7:1:9 :9999':1,10 ;"DREADNOUGHTS";10 ,10 ;"SETTING UP-";11 ,10 ;"PLEASE WAIT":tn=364l*23500[:l=11:l:t1=tn+568::25:6000p:12 Xpct<21000 Yend=19340|$ ZT0:5:9999':0:9980&:9970&:5:9980& ]tn=0:x=1:i=19 :pct=2:2112@:pct=1:2122J:i:tn=1:i=9 1-1:pct=2:2112@:pct=1:2122J:i  pct=0 65310  8020T i=19 :g(i,4)0g(i,6)=90Z-(((e(i,1)-f(g(i,4),1))/(f(g(i,4),2)-e(i,2)+1e-35 T-)))*180/:f(g(i,4),2)360he(i,5)=e(i,5)-360h De(i,1)=e(i,1)-e(i,4)*(*e(i,5)/180) De(i,2)=e(i,2)+e(i,4)*(*e(i,5)/180) *(f(i,4)=f(i,4)+a(2,i) 4(f(i,5)=f(i,5)+t(2,i) 6;f(i,5)<0f(i,5)=f(i,5)+360h 8=f(i,5)>360hf(i,5)=f(i,5)-360h >Df(i,1)=f(i,1)-f(i,4)*(*f(i,5)/180) HDf(i,2)=f(i,2)+f(i,4)*(*f(i,5)/180) i Facy=0:acx=0:yct=0:xct=0:vis2=vis^2 63918: BUi=19 :l=12:s(l,i)=1z(l,i)=1b(l,i)=0 Ll:i jps=0892| x&7810:9620%:9810R&: vis=vis-2+(*5) mv>18vis=vis-1 vis<1vis=1 vis>15vis=15 vis2=vis^2 65015:  T63369: 5i=19 :g(i,4)=08200 x=i:9990' Kfpwr=g(i,1)*(3-(3*g(i,5))/(g(i,2)+1)) 7hdg=e(i,5):dbrg=g(i,6):tgt=g(i,4) 76500d:t1=2:n1=f(tgt,4):6300 3x(1,1,i)1fpwr=fpwr*0.9ffff R6820:dmpt00.07}\(,-10 :0.07}\(,-10 :8185 |x=tgt:p$=d$(x,1,1):9992':9992':x(2,2,tgt)=1:i<6tgt<68160 q=2:8410 0t1=3:6310:t1=4:6310 torps=18845" sb=18510>! i q5i=19 :h(i,4)=08400 vx=i:9992' Kfpwr=h(i,1)*(3-(3*h(i,5))/(h(i,2)+1)) 7hdg=f(i,5):dbrg=h(i,6):tgt=h(i,4) 76500d:t1=1:n1=e(tgt,4):6300 3x(2,1,i)1fpwr=fpwr*0.9ffff R6820:dmpt00.07}\(,-10 :0.07}\(,-10 :8385 |x=tgt:p$=c$(x,1,1):9990':9990':x(1,2,tgt)=1:i<6tgt<68360 q=1:8410 0t1=3:6320:t1=4:6320 torps=18855" sb=28550f! i:85004! ex= ex>0.06|u\8440 x(q,3,tgt)=x(q,3,tgt)/2+0.501A7:x(q,4,tgt)=x(q,4,tgt)/2+0.501A7:y(q,tgt)=1:x=tgt:q=1c$(tgt,1,1)="":9990' 4q=2d$(tgt,1,1)="":9992' ex>0.04|# =8440 z(q,tgt)=1:y(q,tgt)=0:x=tgt:x(q,3,tgt)=1:x(q,4,tgt)=1:q=1c$(tgt,1,1)="":9990' 4q=2d$(tgt,1,1)="":9992'  !4ysb=1:i=14:j=242:6830:hdg=e(i+5,5):tgt08124 !>j:i:sb=0 !\ysb=2:i=14:j=242:6830:hdg=f(i+5,5):tgt08324 !fj:i:sb=0 "a ts=0 "bi=12 "c:j=13:w(i,j,2)0torps=1 "dj:i "f<i=12:j=19 :k(i,j)=0:j:i "gtorps=08865" "oi=13:g(i+2,1)-x(1,i+2,4)0.5ƥ<0.5w(1,i,1)=0:w(1,i,2)=0 "th(i+2,1)-x(2,i+2,4)0.5ƥ<0.5w(2,i,1)=0:w(2,i,2)=0 "yi "dmpt=15 "Zi=13:w(1,i,1)1w(1,i,2)=08850" "ltgt=w(1,i,2):k(2,tgt)=(1-f(tgt,4)/10 )*(1-d(1,i)/10 ) "Ox(1,1,i+2)0k(2,tgt)=k(2,tgt)*0.9ffff "Tx=i+2:9990':l=1̺(d(1,i)*8):0.02{# =,20:l "aXe(i,3)0e(i,3)=0:a(1,i)=0:t(1,i)=0 #APe(i,4)+a(1,i)>e(i,3)a(1,i)=e(i,3)-e(i,4) #F0f(i,3)=f(i,3)-x(2,3,i) #HXf(i,3)0f(i,3)=0:a(2,i)=0:t(2,i)=0 #KPf(i,4)+a(2,i)>f(i,3)a(2,i)=f(i,3)-f(i,4) #P0g(i,1)=g(i,1)-x(1,4,i) #R,g(i,1)0g(i,1)=0 #Z0h(i,1)=h(i,1)-x(2,4,i) #\,h(i,1)0h(i,1)=0 #^Pi3i5g(i,1)0w(1,i-2,1)=0 #`Pi3i5h(i,1)0w(2,i-2,1)=0 #di #i=19 :t1=i:tn=1:e(i,3)0g(i,1)0s(1,i)=0q=4:9997 ':9994 ':e(i,4)=0:a(1,i)=0:s(1,i)=1:e(i,2)=-1000:g(i,3)=0:e(i,5)=0 #g(i,1)0g(i,2)=0:g(i,4)=0:i6i(1,i-5,1)=0:i(1,i-5,3)=0 #Pi3i5s(1,i)=1w(1,i-2,1)=0 #t1=i:tn=2:f(i,3)0h(i,1)0s(2,i)=0q=6:9998':9994 ':f(i,4)=0:a(2,i)=0:s(2,i)=1:f(i,2)=1000:f(i,5)=0:h(i,3)=0 #h(i,1)0h(i,2)=0:h(i,4)=0:i6i(2,i-5,1)=0:i(2,i-5,3)=0 #Pi3i5s(2,i)=1w(2,i-2,1)=0 #i $^bs=0:gs=0 $hni=69 :c$(i,1,1)="":d$(i,1,1)="":s(1,i)=1bs=bs+1 $m%s(2,i)=1gs=gs+1 $ri $|0x=0:bs=gsbsvc9620%:9500% $'bs>gsbsvcp$=" GERMAN":9960& $(gs>bsgsvcp$=" BRITISH":9960& %end=07054 %mv<249900& %&s6:2:9999':':5500|:2;1;1;3,10 ;" DRAWN GAME ";0 %,>5,0;"FOLLOWING BRITISH DREADNOUGHT"'"SUNK -"'"" %-)bs15,29;"S"'""'"" %0Fi=69 :s(1,i)=1z(1,i)=1;n$(i) %2i %4>13 ,0;"FOLLOWING GERMAN DREADNOUGHT"'"SUNK -"'"" %5*gs113 ,28;"S"'""'"" %:Fi=69 :s(2,i)=1z(2,i)=1;m$(i) %<i %@Pgs>bsgsvctn=365m*23500[:t1=tn+40(:6000p:9540D% %BYbs>gsbsvctn=502+365m*23500[:t1=tn+34":6000p:9540D% %C7tn=364l*23500[:t1=tn+568:6000p %Dend=end+1 %Iend>19949& %Nui=130:i:20,5;"DO YOU WISH TO REVIEW"'6;"FINAL STATES? (Y/N)":0.1}L,35# %O="Y"Ŧ="y"9555S% %P="N"Ŧ="n"9950& %Q 9551O% %S\i=19 :s(2,i)=0z(2,i)=0o(1,2,i)=1 %TIs(1,i)=0z(1,i)=0o(2,1,i)=1 %Xi:1000 %i=19 :g(i,4)0tgt=g(i,4):q=i:3900<:rng>visrng>g(i,2)g(i,4)=0:g(i,5)=0:g(i,6)=0 %h(i,4)0tgt=h(i,4):q=i:3910F:rng>visrng>h(i,2)h(i,4)=0:h(i,5)=0:h(i,6)=0 %i %i=12:pct=i %Nj=14:i(i,j,4)=0i(i,j,6)=09745& %sbend=1:i(i,j,4)0q=j+5:tgt=i(i,j,4):i(i,j,4)=0:i(i,j,5)=0:3770 &sbend=2:i(i,j,6)0q=j+5:tgt=i(i,j,6):i(i,j,6)=0:i(i,j,7)=0:3770 &j:i &sbend=0 &Hpct=0: &R65340<: &fpct=0: &mv=mv+1:1000 &i=130:i &I5900 :20,6;"ANOTHER GAME? (Y/N)":0.1}L,35# &L="Y"Ŧ="y"23659k\,2:(64067C+63246*64000) &="N"Ŧ="n"0 & 9951& &9620%:6:2:9999':':5500|:2;1;1;3,7;p$;" VICTORY! ";0:9515+% &>1.5@,41):1.5@,46.:1.5@,41): &711 ,5;1;"ACTION EXECUTION PHASE": '$a(tn,i)=0:t(tn,i)=0: ';y1<0y1>21x1<0x1>31t1=0 ' 't1=x:9997 ':0.1}L,-30:t10l=70-7:4;l;y1,x1;c$(x,1,1);1;y1,x1;c$(x,2,1):l ' 't1=x:9998':0.1}L,-30:t10l=70-7:6;l;y1,x1;d$(x,1,1);1;y1,x1;d$(x,2,1):l '  ' 80.1}L,-10 :0.1}L,-20:t1=0 ' 7q;y1,x1;"";y1,x1;1;c$(i,2,1): ' Px1=(e(t1,2)+0.501A7):y1=(e(t1,1)+0.501A7):9988': 'Px1=(f(t1,2)+0.501A7):y1=(f(t1,1)+0.501A7):9988': '.23659k\,2::23659k\,0: [B| 'qA7benbrdgorpnasevipci _     ARETHUSA/AURORA CAROLINE/COMUS 4 'M' CLASS DESTROYERS 4 'M' CLASS DESTROYERS 4 'M' CLASS DESTROYERS INVINCIBLE LION PRINCESS ROYAL TIGER  STUTTGART/STETTIN ELBING/PILLAU 4 'G' CLASS DESTROYERS 4 'S' CLASS DESTROYERS 4 'V' CLASS DESTROYERS VON DER TANN MOLTKE SEYDLITZ DERFFLINGER @ XrZx ǃrZxX Zx Z ǁ ZXm\ZZhm\ZZm\ZZ m\ZZ@ `8XxpXx`8p0ppp`8xZxZPxZpxZ_ _ Co ZsoXHSsoXZeKsoXωHSHSZ_   `Z  ԈZ3  si  `y VMT9    _ _ _ x.r cȡcm\ccis" teas  n#+*pw4ebrGTtmpTx#݂݂݂݂0 AXXXBYYYP