!TF1C?"2cWT:\<BP <<BxBBx< <<B<(x8 BBDT< x>Bs DD@ZDDO"<BBZDDDD(@ ZDBDTD @BBs <<<$8D<<<8 <_____ 0 ?@i # # <@2Q\\\r\›r\yX![!HP!!02%͵|LW K SR P WDSoftware 1983  1236099\,502:.125},5:trw15 <.25~,10 :1:1:9 ::012 &pap=0:ink=0:z=(y1,x1) z>127z=z-128 z>63?z=z-64@ pap=(z/8) ink=z-(8*pap) t$=(y1,x1)  =.25~,10 :1;3,9 ;"Trade Winds" c.25~,10 :6,3;"by C.C. Wilton-Davies";7,5;" WDSoftware 1983" .25~,8:0146 3.25~,10 :.25~,8:03095  0043+  0529  0031  0047/  0364l Ds<1043+:0340T:031:047/:0364l "Key 'M' to Move"; (p<5s>0", 'T' to Trade";  4st=0p=1s>0"'S' to Sell Ship"  0044, a$="m"0189:018 5(p<5s>0a$="t")0078N:018 @(st=0p=1s>0a$="s")0259:018  026 4a="":2:7:0::chart printer n=18 !1;m$(n) "n #4n=120:a(n)0a(n),45-:n $4n=120:b(n)0b(n),546:n %3n=120:c(n)0c(n),0:n &61;h1y,h1x;"A";0;0;0;" " '61;h2y,h2x;"B";0;0;0;" " (61;h3y,h3x;"C";0;0;0;" " )61;h4y,h4x;"D";0;0;0;" " *9y,x;1;3;(143+d):a=""+2: +#0;"Press any Key" ,)a=""+2:a$=:a$=""0044, - .2~L,a$/10 -10 .a=3438n : /00480:00491 0u7:0:8,0;:n=821:" ":n:8,0;: 1"You are at "; 2 p=5 30x=h1xy=h1yp=1:>.5mo=1 4$x=h2xy=h2yp=2:mo=0 50x=h3xy=h3yp=3:>.5mo=1 6$x=h4xy=h4yp=4:mo=0 7)i$(p);" in ";:s>0"the "'r$(s); 85s=0"search of your Fortune.";:0411: 9Es$(s):p=5mo=1xmx-sxmx+symy-symy+s0440 : ;#z(1)=(*4+1)*p <(z(2)=((*502+101e)/p) =%z(3)=(*40(+81Q)*p >;z(4)=((*20+301-)*(p+.5)/2) ?(z(5)=((*502+301-)/p) @%z(6)=(*15+76L)*p A(z(7)=((*502+126~)/p) B'z(8)=((*502+76L)/p) C'z(9 )=((*75K+513)/p) D'z(10 )=(*40(+201)*p E0z(11 )=(502/p)-10 *(p=3) F8z(12 )=200+20*p+100d*(p=4) G HKq(6).01z# ="Your crew died of thirst!":0043+:0271 I8"Luckily you have ";q(6);" tons of ";c$(6) Ji"Transfer ";:q(6)21;:q(c)=(q(c)*100d+.5)/100d:q(c); Z [#c=48;"Trade Goods" \c ]," To trade, key Commodity code (a to l)" ^"'x' stops trading" _"'z' prints price list" ` 0044, a a$="z" ba$="x"a$="X" ca$<"a"0096` da$>"l"0096` ec=(a$)-96` f g10 ;c$(c) h"Price= `";z(c);"/ton" i"You carry ";q(c);" tons" j"You have room for "; k$c=1c=3cp=t/12 lc=4cp=t/480 mc=2cp=t/16 n!c>4cp=3*t/4 o#c4cr=cp-q(c):0116t pcr=cp qn=512 r cr=cr-q(n) sn t cr=((cr*100d))/100d ucr; v " tons" w"Key 'b' to buy, 's' to sell" x 0044, y,a$="b"qf=1:"Buying ";:0124| z.a$="s"qf=-1:"Selling ";:0124| { 0120x |" How many tons?";ct }.(a$="s"ct>0q(c)0)0080P ~#(a$="b"cr<.01z# =)0080P (a$="b"ct>cr)ct=cr (a$="s"ct>q(c))ct=q(c) $ct;" tons @ `";z(c);" = `";ct*z(c) I(a$="b"b.50271 110 ,0;"They have taken your cargo!" %n=512 :q(n)=0:n >.50167 c=(*b):"and `";c:b=b-c 0043+:0222 4:4:9 : ,2,4;1;"ROUGH WEATHER!" /0,128:40(,-40(,1 U0,40(,3:60<,-20,-2:60<,-20,1.5@ U0,40(,3:60<,-20,-2:20,-10 ,.75@ &120x,93]:502,0 0120x,93]:10 ,-8,-1 &150,93]:0,502 >.30183 Oq(12 )>0q(12 )=q(12 )/2:c$(12 );" damaged" Oq(11 )>0q(11 )=q(11 )/2:c$(11 );" damaged" Kq(9 )>0q(9 )=q(9 )/2:c$(9 );" damaged" >.1}L0183 Kq(8)>0q(8)=q(8)/2:c$(8);" damaged" Oq(10 )>0q(10 )=q(10 )/2:c$(10 );" damaged" #u>l*.9ffff0299+:founder $*u>l/20299+:founder .d=3ƥ*u>l/40299+:founder 8d>1d<5ƥ*u>l/30299+:founder Ews*3q(5)>0q(8)>00462:fire 0043+: !st=0:movement subroutine 'lw=w:w=(*w+*w/2+*10 ) 0135 %"Wind is East, ";w;" knots.":a$=h$ A"Set Course (N,NE,E,etc, or 'H' to Heave To)";h$:h$=""h$=a$ d=1 :h$="n"h$="N"d=1:x1=x:y1=y-1:0205 2h$="h"h$="H"d=1:x1=x:y1=y:0205 Dh$="ne"h$="NE"d=2:x1=x+1:y1=y-1:0205 :h$="e"h$="E"d=3:x1=x+1:y1=y:0205 Dh$="se"h$="SE"d=4:x1=x+1:y1=y+1:0205 :h$="s"h$="S"d=5:x1=x:y1=y+1:0205 Dh$="sw"h$="SW"d=6:x1=x-1:y1=y+1:0205 :h$="w"h$="W"d=7:x1=x-1:y1=y:0205 Dh$="nw"h$="NW"d=8:x1=x-1:y1=y-1:0205 G19,0;h$;" is not a valid course! ":0193 0042* :y1<0y1>7x1<0x1>310208 0209 B15,0;"Keep on the chart! ":0204 04 *h$"h"ws*20457:becalmed "d=30227:into wind $b=b-(m*40(*5/v):wages 6q(1)=q(1)-(m*.01z# =*5/v):water Iq(1)000480:"You ran out of water!":0072H 0q(2)=q(2)-(m*.04|# =/v):rations -q(2)00231:out of food .q(4)l/3.5`0168:rough weather Dw>60<q(5)>0q(8)>00462:fire >y1=py(x1=pxx1=px+1)ƥ>.50153:pirates? ink=50255 ink=60253 (ink=0t$=" "0241:?rocks x=x1:y=y1  \q(3)<(t/144)18,0;"You don't have enough fuel ":0204 [21,0;"Engines full ahead, Captain! ":q(3)=q(3)-(t/144) Nw50215,0;"The wind is too strong! ":0204 0043+:0212 d00480:q(11 )<(m*.07}\(/v)"Your crew has starved to death!":0043+:0271 N"Rations gone, but luckily you have ";q(11 );" tons of ";c$(11 ) t"Transfer ";:q(11 )40(0244 ."You are proceeding with great difficulty" I2,1:10 :1,1:10 :1,1: 00480:hit the rocks "You have hit the rocks!" >.75@0249 ""The ";s$(s);" is a total loss": "c=1̱s$(s):s$(s,c)" "c $n=c+1̱s$(s):s$(s,n)" "n da$=s$(s,n-1):s$(s)=a$+"I":s=0:in>0"Luckily she was fully insured!":b=b+pr 0043+:0271 H"The ";s$(s);" has been pulled clear at salvage costs of `";pr/2 3in>0"A good job you insured!":0252 -"A pity you didn't insure!":b=b-pr/2 0043+:0226 100480:"The ";s$(s);" has gone","aground!" 0243 *00480:"Shallow water!":0512 5*dr>6.5P"You hit a coral head!":0243  0043+  0225  sell ship R:0364l:s=0"You have no further assets. Goodbye!":150: Ast=1:c=(*4)/(*5):c>1.5@c=1.5@  c=(c*pr) )"You paid `";pr;" for the ",r$(s);s$(s) "You are now offered `";c  "for her. Do you accept?"  0044,:a$="n"a$="N"  )a$"y"a$"Y""'y' or 'n'":0266   ,x=h1x:y=h1y:st=0:s=0:b=b+c  %n=112 :q(n)=0:n  0:7: 9s=0:q(12 ):d=1:x=h1x:y=h1y:h$="n" &0,80P:"What a disaster!" n=-4-18-2 31,0:.25~,n n '120x,80P:15,30 0,-20,1 ;-5,-10 :-20,0:-20,20 /30,30:20,-5,.4L &-7,-2:23,-3 &-5,5:15,-15 @0,15:0,-5:70F,10 ,.6 910 ,-15,-1:5,35#,-.8L <-10 ,-12 ,-.5:-60<,5,-.8L 05,20:-20,-15,.5 -45-,-17,.8L  $40(,30:3,1 !)n=nn-20-1:.05|L,n:n " 200 #>.75@0295' $n=n-5:.05|L,n:n %L3,3;4;9 ;1;"You had a VERY lucky escape!" &0043+:018 'n=020 (2n,n;0;7;"R.I.P.":.02{# =,-n:n )"You left `";b:43+ * :2 +0:0:7: ,n=10 -10 -1 - .25~,n .n /10 ;1;"MAYDAY" 03''r$(s);s$(s)'"capsized and sunk with ";m;" crew" 1:: 228,4;"Overwhelmed by ";u;"-ft waves" 30043+:0245 44e4 5^0,30:h$="n":.25~,7:win=0:in=0:w=10 :Initialise 6"",243 7""+1,201 8""+2,251 9""+3,201 :a="" ;*st=0:.25~,5:d=1 <`.25~,7:z(12 ):r$(4,9 ):i$(5,8):s$(4,12 ) =B.25~,3:.5,2:n=15:i$(n):n >1"Amnesia","Beriberi","Cyanosis","Deliria","Sea" ?f.25~,10 :.25~,10 :n=14:63?,0,1:r$(n):s$(n):n @L"Sloop","Nausea","Cutter","Obesity","Ketch","Pancreas","Schooner","Quinsy" A:.25~,10 :.5,12 :n=14 B&.125},8:c=1̱s$(n) Cs$(n,c)" "c Da$=s$(n,c):s$(n)=a$+"I":n E..5,10 :b=10CP:s=0 F7.25~,14:q(12 ):c$(12 ,9 ) G2.25~,14:c=112 :c$(c):c Hf"Water","Rations","Fuel","Chandlery","Rum","Beer","Copra","Cotton","Sugar","Cloth","Fruit","Tobacco" I<.25~,14:.25~,14:n=063? Jc:"A"+n,c:n KO16,568,124|,124|,124|,124|,124|,124| LH7,15,31,62>,124|,568,16,0 MK0,252,254,255,254,252,0,0 NH0,16,568,124|,62>,31,15,7 OH62>,62>,62>,62>,62>,62>,28,8 PK0,8,28,62>,124|,248,240,224 QI0,0,63?,127,255,127,63?,0 RK224,240,248,124|,62>,28,8,0 SJ.25~,14:.25~,14:.25~,15:mo=0: T0031:buy ship U3in=0:s=14:.5,s*2 VC00480:"Welcome to ";4;1;"OSMOTIC SHIPBROKERS" W$"We have four ships to offer you-" XG12 ,0;"Offer ";1;s;0;" ";r$(s);" ";s$(s); Y'l=20*s:'"Length ";l;" Feet, "; Z#dr=4+s:"Draught ";dr;" Ft" [v=1.2*l \v=(v*10 )/10 ]"Speed=";v;" Knots, "; ^ t=4*s*s:t;" Reg.Tons " _m=s*s+1-s:m;" Crew", `!pr=10000'+1250*s*s*s a"Price `";pr:0364l bGb<11250+"Not enough money for any ship":0043+::2 c+b0 ob00371s p"You are Bankrupt!" q.0043+:0261:s=0018 r :2 sb50t$ t*win=1:2:1:7: u21;"You have half a million in the bank!" v"Sell everything and retire!" wn.75@,3:.25~,4:.5,5:.5,3:.5,5:.5,7 x0078N:0259 y021,0;"You are worth `";1;b z 0420 {win=0:n=0 |a=03 } .01z# =,n ~ n=n+3 n>60<0379{ "a=""+2:=""0380|  :2 0041):make repairs :12 ,0;"Essential repairs cost `";pr/10 b=b-pr/10 :0364l 6#0;"Will you insure her (y or n)?":0044,  a$="n" a$"y"0389 >14,0;"Premium is ";pr/10 :b=b-pr/10 0043+:in=1: P12 ,0;:n=17:" ":n: pirate graphics Q100d,120x,15:140,120x,15:120x,100d ;-10 ,-30:20,0:-10 ,30 C80P,90Z:80P,0,-4.5:0,-30 (-25,-15:-30,0 &-25,15:0,30 (120x,15:502,-10 710 ,5,3.4Y:-10 ,2,4 %-38&,8:38&,8 510 ,5,4:-10 ,2,4 )-502,-10 :-502,10 7-10 ,-2,4:10 ,-5,4 '38&,-8:-38&,-8 9-10 ,-2,4:10 ,-5,3.4Y 502,10  explain chart V"On the chart aboveYour Position is shown as '";1;3;1;"";:"'" #1;" ";:" is Deep Water" &5;" ";:" is Shallow Water" 6;" ";:" is Sand" 0;" ";:" is Rock:"; u1;"A";0;",";1;"B";0;",";1;"C";0;"&";1;"D";0;" are Harbours" " Buy a ship, provisions and cargoes to trade between theHarbours. Make `500,000 if the weather and Pirates let you livelong enough to master Seamanshipand Economics! ";  retirement display %0,15:255,0 0-100d,0,1:210,28 V-25,105i,1:30,-35#,-1:-35#,40(,1 945-,-30,-1:-47/,35#,1 9557,-20,-1:-62>,25,1 6557,0,-1:-62>,5,1 8-62>,-5,1:67C,-5,-1 8-62>,-5,1:67C,-2,-1 9-557,-15,1:60<,10 ,-1 9-45-,-25,1:40(,30,-1 9-25,-35#,1:20,35#,-1 8-5,-45-,1:10 ,45-,-1 65,-40(,1:5,40(,-1 1-10 ,0:25,-110n,-1 175,140,3 165,145,3 170,140,3 172,147,3  mystery object 1;my,mx;"*" k10 ,0;"Unidentified Object in sight!! (";1;"*";0;0;") on Chart. "  xmxymy 0mo=0:"Object is a drifting raft! " .n=13:0446:n:0450 X.125},0:6:.125},0:6:.125},0:25 U.25~,0:6:.25~,0:6:.25~,0:25 X.125},0:6:.125},0:6:.125},0:25  502: mc= Y70F:0480:"There seems to be somebody on the raft!! " mc<.50477 \mc>.8L200:"There are several men!! ":200:0153:pirates  200 $"You rescue the man. " X"He is a grateful millionaire, who rewards you with `100,000!! ":b=b+10CP:  becalmed ?15,0;1;"BECALMED! " bq(11 )>0"Fruit is rotting in the hold. ":q(11 )=q(11 )*4/5 _q(7)>0"Copra is rotting in the hold. ":q(7)=q(7)*4/5 0"You must use the engines ":0227 fire 2:2:9 : (1;"FIRE!!!"'"Fire in the Hold!" "n=13:0446:n 4"The Rum has spilt on the cotton and caught fire!"  0446 Dq(5)=0:q(10 )=0:"Both Cargoes Destroyed!"  0446 dq(6)>0q(6)=0:"Luckily, spilt beer has put out the flames!":043+: #0446:"Fire still burning!" "n=12:0446:n I>.4L"Your brave crew has extinguishedthe flames!!":043+: ,1;"FIRE OUT OF CONTROL":0446 043+:0244  502:draw girl B"There is a girl on the raft!"'"She is suffering from exposure!" .0,14:32 ,-3,.2~L 56,-3,-1:36$,3,2 930,8,-1.43333:24,-3,.3 836$,-8,.15~:30,0,.4L 712 ,4,.5:30,9 ,-.4L /19,9 ,.4L:255,480 :-19,-6,.4L:-4,-1,-.6 :-30,-8,.5:-20,1,-.8L 0254,480:-30,12 ,2 912 ,-8,-2:-8,-11 ,-2 D224,568:0,-5:-5,-3,-1.7Y /220,557:1,-5,.9ffff &220,43+:0,-3 /223,45-:1,-5,-1 1224,60<:-12 ,-3,.9ffff 9-4,-1,-.3:-2,-18,2 0190,43+:18,-7,.2~L /187,524:18,3,.3 0210,513:1,-10 ,.5 .216,491:-3,0,2 70,-3,-1.2:1,-3,1 1189,524:-18,12 ,.3 9-18,15,.2~L:-5,0,3.5` -12 ,-15,2 D188,524:-4,6:-18,12 ,2.3333 l163,40(:-12 ,6,-.8L:-6,12 ,-1.7Y:19,2,-1.6L M0,-6,3:3,3,1:-3,3,2 1144,63?:-30,-2,.5 :-24,-1,-.73333:-18,0,.6 :-12 ,0,-.5:-60<,-4,.6 .0,480:58:,0,-.5 $546,491:8,6  shallow display 0,502 n=14 731,0,.73333:31,0,-.73333 n $0,60<:502,0 ;-10 ,-10 ,1:-10 ,-10 ,-1 E-10 ,0:-10 ,-10 ,1.5@:-10 ,0 85,60<:0,70F:45-,-70F  5-502,0,1:5,70F,1  -5,-7  $5,67C:-5,0  621,0;" "  420,0;"  " 419,0;" " 18,24;""  a="":create chart =m$(8,34"):a(20):b(20):c(20) n=18 .m$(n)=" " n Ia=""+2:"Enter 0 for fixed chart, other number to randomize:";n a="":n00547#  0575? >n=120:sh:sh<256a(n)=sh+22528X:n >n=120:sh:sh<256b(n)=sh+22528X:n >n=120:sh:sh<256c(n)=sh+22528X:n h1x=1:h1y=7 h2x=5:h2y=3 h3x=30:h3y=0 h4x=30:h4y=7  mx=12 :my=3 !px=28:py=4 " 0571; #$n=n:n>65535n=65535 $n %8n=120:a(n)=22528X+(*256):n &8n=120:b(n)=22528X+(*256):n '8n=120:c(n)=22528X+(*256):n (h1x=(*10 ) )h2x=(*10 ) *h3x=(*10 )+21 +h4x=(*10 )+21 ,h2y=(*3) -h3y=(*3) .h1y=(*3)+5 /h4y=(*3)+5 0mx=(*6)+15 1my=(*3)+3 2mn=my*32 +mx 3)n=120:mn=b(n)05600 4,n:n=120:mn=c(n)05600 5n 63px=(*6)+24:py=(*3)+5 7mn=py*32 +px 89n=120:mn=b(n)mn+1=b(n)05666 9<n:n=120:mn=c(n)mn+1=c(n)05666 :n ;y=h1y:x=h1x:031 <'#0;"Chart OK? (y/n)":044, =a$="y"a$="Y" >a$="n"a$="N"0529 ?230,167,146,147,125},126~,114r,115s,99c,67C,71G,59;,16,17,18,27,999:shallows @155,158,159,250,251,238,239,198,165,166,135,116t,127,94^,999:sand A219,223,255,199,226,133,134,102f,68D,69E,70F,95_,28,31,63?,999:rock X"tradewind"2 Y3,1 Z"tradewind"2 ["3,2:1,2 ] "press key to verify":0 b "tradewind" "" n2D2vi͵|̶] #8 P P33Ð4›6|ͥ$i1| -$e3SZv>>BB<DHpHDB@~BfZBBBBbRJFB