`>?(!6XT:\M<<< 1~=<Bt@8888D8(BB1(@88D:BB88r|@D:>~ @D<:@>BD D@ r<< < << ><< 1>~ Bhx888 8 >TDD@@0<DTDD88"xB>TxD"@<>T@8xx8< <@ E `1 `: `8 ` # # <@ \\\q\p,\X![! PP!! ` K SR P 30  """a" 4000:9000(#:g=15:5000:10 ,0;"privateer sighted, Sir":l=1502:l:10 ,0;a$ (1:7::7,0;1;5;" ":l=06.5:l,0;5;0;a$;1;7;r(12 )+8,r(31);"":l 2Mm1=0:pm=(mov*2)+(*10 )+5:sm=((80P-mov)/o) 7H>.5a1=r(20)+7:a2=0:g$=" (( ":60< 8*a1=r(20):a2=27:g$=" ))" <a=a1a2ͼ(a2-a1):a=a-(m1a1a2):0,0;0;8;"privateers morale ";pm;" "'"your morale ";sm;" ";8,a;1;g$;9 ,a;g$;10 ,a;" " A>.85Ygu=1 F*23560\,64@:>odds1000 P23560\64@19,0;"Three of your crew have been"'"hurt in accidents due to haste":200:19,0;a$'a$:70F Zbgu21,0;"Guns ready for action, Sir":l=1100d:"9"Ʀ"1"2000 dgul:21,0;a$ ia jg ksinks=-1sinks=0 nL1:6::'''" Out of 5 enemy ships you have succesfully engaged ";sinks'"and so you are ";("discharged from service"sinks=0);("promoted to "sinks>0)'("commander"sinks=1);("captain"sinks=2);("rear admiral"sinks=3);("vice admiral"sinks=4);("admiral of the fleet"sinks=5) x`17,0;"Another go? (yes or no)":l=1200:0:="y"  y10 ,a+2;1;2;6;"";10 ,a+2;"";10 ,a+2;0;0;"" k=a+2:l=80-1:x=12:l,k;8;8;1;"":5:x:k=k+(12 -a)/8:l k=1:b$="":l=010 :x=12:c$=b$((l/10 *3)+1):l,15-k;8;1;8;c$;15;c$;15+k;c$:x:k=k+.5:l l=11 17:x=12:l,15-k;8;8;1;"";15;"";15+k;"";15-k;"";15;"";15+k;"":x:k=k+.5:l l=1719:x=12:l,15-k;8;8;1;"";15;"";15+k;"";15-k;"";15;"";15+k;"";15-k;"";15;"";15+k;"":x:k=k+.5:l l=12:19,15-k;8;8;1;" ";15;" ";15+k;" ";15-k;"";15;"";15+k;"";15-k;"";15;"";15+k;"" $l )H2:3500 :6:3500 :2:3500 :0 .20,0;"Mr Bush reports that the enemy has damaged our ";:3000 :sm=sm-(d/2):m1=m1-(d5d8m1):d=3gu=0 3vsm<017,0;"You have sunk with all hands":200:17,0;a$:a=40(:110n 8  21,0;a$:i=()*3:s=15:k=14:b$="":l=2010 -1:c$=b$((l-10 )/10 *3+1):x=12:l,s-k;8;8;1;c$;s;c$;s+k;c$:x:s=s-(15-i)/9 :k=k-1.3&fff:l *ia+5a:g:110n 3500 :3500 :19,0;"You have damaged the enemies"':3000 :pm=pm-(d/2):odds=odds+.8L*(d=3):m1=(d=5d=6d=7d=8):pm>0105i d=11 d=12 sinks=sinks+1:20,0;2;6;1;"The enemy has surrendered":0:t=(((a+4)*8)a1>a2)+(((a+1)*8)a11);" privateer":0 Jgu=1:mov=0:odds=.1}L:wi=:5:0::0:17,26;"port ";0,1;"7"'"5+8"'" 6";0,5;"Your ship ";2;"";0;" The privateer ";6;"":0:10 ,0;"wind speed ";(wi*20);" Kts from the S.E.":200:10 ,0;a$ ]r(rOl)=((*r)):xs=r(6)+5:yp=r(2)+9 :ys=2:xp=2 _l=12:1;yp,xp;6;"";ys,xs;2;"":x=120:x:l mov=mov+1 t=(2o=1)+(3o1):ys=ys+t*(="6"ys<19)-t*(="7"ys>2):xs=xs+t*(="8"xs<29)-t*(="5"xs>4):xs=xs-(wixs>2):ys=ys-(wiys>4):dis=(xs-xp):(ys-yp)>disdis=(ys=yp) yp=yp+((yp<17)(yp>ysdis<5yp<21))-((yp>17)(yp2)):xp=xp+((xp<31)xsxp-2ysyp-2 cyp=17xp=3110 ,0;"The enemy escaped":l=1200:l:106j  5020 #(?0:sinks=0:a$=" " #27:1::l=015:l,0;5;0;a$;r(5)+16,r(31);7;1;"":l #<xp=r(20)+10.1!:15,0;5;4;1;""'1;""'""'"";16,3;7;"";19,xp;"" #FP;0,0;"Elevation ? (or ""xp"" to Quit) ";e:e=xpsinks=-1: #KJ;0,0;"Delay (or ""xp"" to quit) ";d:d=xpsinks=-1: #Pv=475:a=v*(*e/180):b=v*(*e/180):j=0b/16:d=d-3:c=0.01z# =*(b*j-16*j*j):x1=((xp*2)-(0.01z# =*a*j))/2:y1=(40(-(c+3))/2 #ZGx=12:y1,x1;1;8;8;"":10 :x #dd<03500 :y1,x1;8;6;"";2;y1,x1;"";6;y1,x1;"";y1,x1;" ";10 ,0;0;"The fuse was too short":200:10 ,0;8;0;a$:9030F# #ny1>15y1<17x1>2.5 x1<5d<73500 :16,3;2;"";10 ,0;5;0;"Good shot,The battery is hit"'"Please proceed as instructed in the notes":200:10 ,0;a$'a$'a$:: #xy1>15y1<17x1>2.5 x1<510 ,0;0;5;"The fuse was too long and "'"sentries were able to douse it":200:10 ,0;5;0;a$;a$:9100# #};y1>13 y1<18x1>1x1<59100# #~x1<09095# #j #e=90Z3500 :19,xp;6;2;"";10 ,0;0;5;"You sank your own gunboat":3500 :200:10 ,0;0;5;a$:9110# #|10 ,0;0;5;"you missed, Try again":200:10 ,0;7;5;a$:9030F# #(10 ,0;0;5;"You missed and alerted the"'"sentries":200:10 ,0;5;0;a$;a$:yb=15:l=4xp:x=12:yb,l;8;1;8;"":10 :x:yb=yb-((yb/20)lxp/2):l #<(10 -(o*2))/10 10 ,0;0;5;"The battery missed":200:10 ,0;0;5;a$:9030F# #l10 ,0;0;5;"Your gunboat is destroyed and your mission is aborted. ":120x oxinkA eodd}L̷}:(]uzL ti:(?<kdisPG (( BC""  XVprivg X X P PMRMMTL?"3pM`>v>q P P P 88  (@3\2GWq !v>ffDffD~<~~<<~<????hOO?UUZZRJ*<*