P׻ܻ!6!A:\"6=12345{8 :v=print: getting dark  dflag=hr ydflag=hr:z$=("you have stayed in the bay too long"ƺhr=23)+("its gone pitch black"ƺhr=22)+("it's getting dark"ƺhr=21)+("the sun is setting"ƺhr=20)+r$:v=print:n=015:n,0;((5ƺhr=20)+(0ƺhr>20));((1ƺhr<22)+(0ƺhr=22));1;" ";:n:hr<23 Lsirenon=1:z$="the automatic distress beacon goes on"+r$:v=print: gnew weather hNa=1-(*3):weather=weather+a:weather>10 weather=8 r"weather<1weather=3 |  faults Wfault=(1+*3):z$="The crew report a fault in the "+k$+("Engines. Maximum speed is now 1/4 ahead"fault=1)+("Sonar. The machine is not working"fault=2)+(("Oxygen equipment."+k$+"You cannot send any divers or frogmen down")fault=3)+k$+"You will need to return to port to"+k$+"get this repaired"+r$:v=print: ogame over pp1:7:1:v=cls:23729\,23:0,5;:z$="End Of Game Report":v=double z3,1;"At the end of ";day;" days searching"'" You have :-"''" `";cash;" cash and ";finds;" find"+("s"finds1) (val=0:finds=06100 m18,0;"Please wait while the finds"'"are valued";7,0;"Your finds are valued at `"; Vn=114:t(n)val=val+f(n,2)*t(n):7,26;val:10 n:z$=x$+x$+x$+x$:v=print W8,2;"Giving a total score of";10 ,10 ;"** ";(val+cash);" **" q13 ,2;"Of the ";(address-620000)/2;" objects in the bay";15,9 ;"you found "; Za=0:n=620000address-12:þna=a+1:15,19;a n:15,19;a ,waitkey::end of game . W port XY7:0:v=border:v=cls:v=port:23728\,2:23729\,16 Zlcash<0cash=0:z$="Oh dear. You just went broke !"+x$+x$:v=print:waitkey:6000p: ]Ehr>20time>12007900:day11 6000p: ^day11 6000p: bY21004:z$="you are in port Carello. time "+t$+k$+"press:-"+k$+("e to hire a boat "equipcash150)+("l to leave port "equip)+("c catalogue finds ")+("a auction finds "finds)+"s for status report "+("f to refuel "equip)+"w to wait one hour "+"d wait till next day "+"q to give up search"+r$:v=print ly$=:y$"q"(y$"e"equipcash<150)(y$"l"equip)(y$"f"equip)y$"c"y$"a"y$"s"(y$"f"equip)y$"w"y$"d"7020l q'.2~L,12 :y$="q"6000p vz$=x$+x$+x$+x$:v=print:(1000y$="l")+(7200 y$="e")+(7500Ly$="s")+(7600y$="c")+(7700y$="a")+(7800xy$="w")+(7900y$="d")+(8000@y$="f"):7000X  equipe  Ctime=time+30:v=cltop:0,6;"Equip Expedition" %3,0;"The port has 2 boats for hire"'"1 a large cruiser"'" costing `500 per day and"'" capable of carrying 4 frogmen"'" or 2 divers or"''"2 a small launch"'" costing `150 per day and"'" capable of carrying 2 frogmen" '_.1}L,12 :z$="you have `"+cash+x$+"which do you want to hire? 1 or 2"+x$:v=print *!y$=:y$"1"y$"2"7210* /Sship=y$:cash-150-(350^ship=2)<08100:7207' 4|z$="you hire the "+("large cruiser"ship=1)+("launch"ship=2)+x$:cash=cash-150-(350^ship=1) 9v=print:v=cltop >max=6-2*ship:0,5;"Equip expedition";3,0;"You can hire frogmen, complete"'"with equipment for `50 per day"'"per man" @.1}L,12 :z$="You have `"+cash+13 +"How many frogmen do you want to hire"+13 +"(max "+max+")"+13 :v=print C"y$=:y$<"0"y$>max7235C EDfrogmen=y$:cash-502*frogmen<08100:7232@ Hicash=cash-502*frogmen:z$="you hire "+frogmen+" "+f$(frogmen)+" at `50 for the day"+x$:v=print Maship=2frogmen>2divers=0:winch=0:7270f+(20ship=2) RT7,0;"You can hire divers"'"and equipment for `100 per day"'"per man." W.1}L,12 :max=2-(frogmen/2):z$="You have `"+cash+k$+"How many divers do you want to hire"+k$+"(max "+max+")"+k$:v=print \"y$=:y$<"0"y$>max7260\ ^Cdivers=y$:cash-100d*divers<08100:7255W agcash=cash-100d*divers:z$="you hire "+y$+" "+d$(divers)+x$:v=print:cash<80P7350 f12 ,0;"You can hire a winch for the"'"cruiser for `80 for the day.":.1}L,12 :z$="you have `"+cash+k$+"do you wish to hire a winch ? press y or n"+k$:v=print k!y$=:y$"y"y$"n"7275k pmwinch=(y$="y"):cash=cash-(80Pwinch):z$="you "+("decide not to "winch)+"hire a winch"+x$:v=print v=cltop:0,6;"Equip expedition";3,0;"You can hire a pilot from the port to help navigation for `50 per day." g.1}L,12 :z$="you have `"+cash+k$+"do you wish to hire a pilot ? press y or n"+k$:v=print !y$=:y$"y"y$"n"7340 ~pilot=(y$="y"):z$="you "+("decide not to "pilot)+"hire a pilot."+x$:pilot=y$="y":cash=cash-(502y$="y"):v=print: v=cltop:0,5;"Equip expedition";3,0;"Your boat can carry ";250*(3-ship)'"gallons of fuel for a full tank."'"fuel costs `0.80p per gallon." .1}L,12 :z$="you have `"+cash+" do you want"+k$+" 1 a full tank 2 3/4 tank"+k$+" 3 1/2 tank 4 1/4 tank"+k$+" 5 no fuel (press 1 to 5)"+k$:v=print !y$=:y$<"1"y$>"5"7360 kfuel=(25/4)*(5-y$):cash-((3-ship)*8*fuel)<08100:7355 xcash=cash-((3-ship)*8*fuel):z$="you buy "+(fuel*(3-ship)*10 )+" gallons of fuel"+x$:v=print :z$="you now have `"+cash+x$+x$:v=print:equip=1  waitkey: K status LF6:0:v=cltop:0,12 ;:z$="Status":double Vj3,0;"time ";t$;20;"finds ";finds;5,0;"day ";day;20;"cash `";cash `g7,0;"weather ";w$(weather);20;"level ";level;9 ,0;"Equipment hired:-" j011 ,0;:equip"none":7570 t>("Large cruiser"ship=1)+("Small launch"ship=2) ~M13 ,0;frogmen;" ";f$(frogmen);20;divers;" ";d$(divers) 515,0;("winch "winch)+("pilot "pilot) 7:0:waitkey: catalogue finds d4:0:time=time+15:v=cltop:0,5;:z$="Catalogue finds":v=double Ofinds=06,0;"You have not found anything yet":7670 Ia=3:n=114:t(n)a,3;f$(n);t(n):a=a+1 n 7:0:waitkey:  auction ^time=time+45-:finds=0z$="you have nothing to auction."+x$:v=print:waitkey: Ktime>1200z$="The auction room is closed."+x$:v=print:waitkey: <v=cltop:0,8;:z$="Auction finds":v=double (pmax=0:2,0;:n=114:t(n)(max+97a);5;f$(n);t(n):max=max+1 2Zn:z$=x$+x$+"Select which item you wish to auction"+k$+"or press q to quit"+r$:v=print <y$=:y$=""7740< A y$="q" F/y=(y$)-96`:y<1y>max7740< P}(1+y),0;1;1;" ";0;" ";2;7;" ";:n=1:count=1 U t(n)n=n+1:7765U Z8countyn=n+1::count=count+1:7765U _count=n:z$="you wish to auction item "+(96`+y)+x$+"please wait while bids are made."+x$:v=print:val=f(count,2)*t(count):n=1200:n dCoffer=(val*(.5+)):n=(count>7count8):z$=("a private collector is"n)+("the national museum are"n)+" prepared to offer"+k$+"`"+offer+" for th"+("is "t(count)=1)+("ese "t(count)1)+("priceless "offer>1000)+"relic"+("s"t(count)1)+x$+"Do you accept ? (y/n)"+r$:v=print i!y$=:y$"y"y$"n"7785i nz$=("yes"y$="y")+("no"y$="n")+x$:v=print:y$="y"cash=cash+offer:z$="Item"+("s"t(count)>1)+" sold"+x$:v=print:finds=finds-t(count):t(count)=0 s$waitkey:finds>07700 t wwait 1 hour xPtime=time+60<:4200h:z$="you wait one hour"+x$:v=print:waitkey: next day ܒday=day+1:day<11 z$="Press a key to start day "+day+x$:v=print:waitkey:equip=0:weather=(*10 ):time=480: *z$="GAME OVER ."+x$:v=print:waitkey: ? refuel @adfuel=((25-fuel)*10 *(3-ship)):cash-.8L*adfuel<0z$="you cannot afford to refuel"+x$:8020T Jyz$="you buy "+adfuel+" gallons of fuel"+k$+"costing `"+(adfuel*.8L)+x$:fuel=25:cash=cash-.8L*adfuel Tv=print:waitkey: cant afford it /z$="You cannot afford that !!"+k$:v=print: ! waitkey: ! help !w1:7:v=CLS:0,9 ;:Z$="SONAR SALVAGE":v=double:23728\,2:23729\,3 "z$="You are a salvage merchant and have"+k$+"arrived in Carello ,a small island port"+k$+"in the carribbean with `2000 and an"+k$:v=print "z$="old document that showns that several"+k$+"galleons sank here and thousands of"+k$+"pounds worth of Aztec Gold may well be"+k$+"lying at the bottom of the bay !."+x$:v=print "z$="You have 10 days to search for the lost"+k$+"treasure."+x$+"Each day you can hire a boat,together"+k$+"with frogmen and divers from the"+k$:v=print "$z$="local fishermen and search the bay"+k$+"or try to raise cash for your"+k$+"expedition by selling any treasures"+k$+"you have found to local collectors"+k$+"or museums."+x$:v=print "V waitkey: # wait #2z$=" **** press a key ****"+k$:v=print # ""8992 # #"=""8994"# #$ #' set uP #(5:time=480:hr=8:oldhr=hr:day=1 #dAa=0:divers=a:frogmen=a:pilot=a:winch=a:fuel=a:vis=a #xdflag=hr:finds=a:fout=a #weather=*5+1 #cash=2000 #equip=a:fins=a #t(14):n(14) #tb(2,2):n=12:b(n,1)=(120x*)+40(:b(n,2)=120x+(*40():n %&g(100d) %+'gg=(*14):address=620000 %0 n=13+(*3) %56a=33!+(*144):b=101e+(44,*) %: o=18+(*6) %?9gg=gg+1+(*3):gg>14gg=gg-14 %Dpfi=gg:g((address/2)-30999y)=fi:dis=(4-f(fi,1))*(1+*5):theta=*2* %NSaddress,(a+dis*theta):(address+1),(b+dis*theta):address=address+2 %Xo:n %b%n=address62399:n,0:n % &{236066\,244:236077\,251:23675{\,76L:23676|\,204:x$=13 +" "+13 +" " & &ޏ1:0:0:0:0:1:v=cls:5:v=cls:3,5;:z$="SONAR":v=double:3,20;:z$="SALVAGE":v=double:2,14;"";3,13 ;"";4,13 ;"";5,13 ;"";6,13 ;"";7,13 ;"";8,12 ;"";9 ,11 ;"";10 ,10 ;"";11 ,9 ;"";12 ,8;"";13 ,7;"";14,6;" ";15,5;" " &7:16,0;:z$="Select level 1=easy 3=difficult":v=double:19,1;:z$="or press i for instructions":v=double &6y$=:y$"1"y$"2"y$"3"y$"i"y$"#"9970& & y$="i"8700!:9950& &0y$="#"v=52207:9970&:br off &blevel=y$:63717,(0+(1level>1)):63716,(100dlevel=1)+(44,level=2)+(244level=3):23729\,23:z$=x$+x$+x$+x$:v=print:z$="Level "+level:17,11 ;:v=double:z$="please wait while game is set up":20,0;:v=double:9000(#:7000X:9950& 's17,0;:"":23659k\,2:v=52200:9900&:1:1:0::9950& '&"s2"ʰ"9998":"s3""52200","13336" K onaaQorhrindoubl(lcrolordefue?dept oandltomovire8oisoiseaitke#rclashijR > U ,-\Y5wUdT΃dT΃2\lkv@i bright clear fine fair poor windy showers rainy stormy gales ) excellentgood fair poor cannon figurehead old sea chest silver dubloons pieces of eight gold goblet gold candlestick broken spar armour compass earthware jar bones copper nails planking d   (2veveim ldhaaiverrogmeiloincueAiflaindoueatheasquiinddreslb{SJ :%i`hetZ ziaIGc@ 8 ad    ahiaA08B30T 08.30 hoursxSyFIGdowdowgflaauleptowfindirenoovpeeitpornchoigrounqYZ **** press a key **** X ""  3 3 4ˤM ֻ ]3M ׻P>v>>G^>>VG!;\::\:5(">2\>25:H\8G???2H\>26> 2\>25@@? ????nqz0>W{0>_! 6#0!>d 8" 0 8 0q#p#B8= !X ~?w#ZNMMZWqMS > P P P 3LM4 GWq !v>,(,( ,(/,   ?  O |8nDl0 ll l)?lx  (??,h,  ` ? &>? , ,``?? 0' , ,``@ 8>! ,@? ,``? D >  ,x ,` ?   ,f?? ,`????@  >, ,a ,`O0  >/ ,`p,`? &?!, ,`  ,`  88888:889888:889888:889888:889888888888888888!?20 ?*? |?1 <<:" ?2 BB8 8 ? %  A0"(0 ?( A ?? qI     ?  w     ?I 7 W ? ? ?93  W w  ُI? BYJ@q1I g w   2U{   w W I SJ@    W?  qJ@     I ,$6:.8.,'BoJjJnI^GVkGyLrM|Nve^j\kkcgV^kU(|%&i$*V~~qp<twtCzsTwTitkXy~|lpPt5#:~^d-{;^~psy+zPO=}jF(w7Hp.!p6):wS5wN|NtEAbnkelknpjlmsjßĜŠßßƠŞŸĞĤRTVRTWPWSOGNNOHKIIKHCoEFApBtAFqECtByyu|xyvwwumnmmn|ms}i}pl{uyvuus|uvv{z}zzyv}xz=&.YDgQEo>YDgQEo!,,!:H\???FB˧F#C!GGd:H\???FB˧F#CiS>2y2x2!6>*{\o&)))>S???OG>ig8o???g@WR06yo|gOx(9=~(!6w#~(!6w< !N@!0X!0@!0X!0@@!@6# x :\!XWr#SF>>>>>>>>x >> > > > > !0dz0>W{0>_~8 0''O#~8 0 ''9G&## x >$G7gyǨoyG>G~/w!2~< >w#~< >ow#!P2~< >w#~=n >w#!2~< >w##>Sċo!ZY~G >' > > > >͢ w#>DMg8''o???@g>?G>?q=0&0>?G>?q=0&0È !\~(w#~=w+6 !\6#~ʥw#~(2\>2\>'''2H\UP:\G>!2:\G>2#N#F#x~Y# x o&)))<:O:G y >2xg'''''o@w$<O$$(|((|(|P||dH$L(,D8  (|(|| @8LTTd88D8@|8DD8(H||@xD88@xDD8|8D8DD88DD<8 ||  8D8LTX@<8DD|DDxDxDDx8D@@D8pHDDHp|@x@@||@x@@@8D@LD8DD|DDD88DD8DHpHDD@|DlTDDDDdTLDD8DDDD8xDDx@@8DDTL8xDDxDD8@8D8|D8DDDD(DDDDT(D((DDD(| |@ pp8T$p |8r >@O,? @ DD#3("? |  }?0& ?  jWwÀ?d~  <? >? O.?  ? No?DB#@r ?߿A$~@~~@AX&? ?? 88p??y ~? ~@ & ?z9x8<x=<>'???X& B  { y >,ϐ/,  x?> ??? @$?A Q?@@  ~/ $??U ? (Q?    @(@(`?] ? Q$___ !ST~/|?$A ? *U$ !J( E@?> ? D$$ AHT%~$ D $? @ :$ $ )<@$?, @ % ? ?)??????  @|<@C@@C@  BD8888B    |DD@@ __  BDx88  B<@B | 1) Lb(n,xS,yF)=0.2~L*((x-b(n,1))+(y-b(n,2))) p$(n)=("a"(n=1n=2n=6n=7n=8n=10 ))+("some"(n=9 n=12 n=14))+("an"(n=3n=11 ))+((no)(n=4n=5n=13 ))+" " d "9900"  at sea Qtime>1130jz$="It's too late to set off from bay"+x$:v=print:waitkey: -v=map:x=76L:y=68D:n(14) :63404,175-y:63406,x:v=undo:v=boat fout=0:ddown=ç:fdown=ç:agflag=ç:fault=ç:depth=2:nowfinds=ç:sirenon=ç:move=:speed=ç:dir=:atport=ç:anchor=ç:hit=ç:aground=ç:214,157:0,5  2150f 64064@,fuel:v=pfuel K start L`23728\,2:23729\,16:z$="In the bay."+x$+"Press h for help"+r$:v=print !y$=:y$"".05|L,24 y$="8"3050 y$="5"3000 #(y$="7"y$="6")fout4000 y$="a"3200 :v=print y$="h"3300 y$="d"3400H :v=print y$="f"3500 :v=print y$="s"3600 y$="r"3700t:v=print  y$="w"3800  y$="p"3900<:1300 Gy$="o"sirenon=:z$="you turn on the distress beacon"+r$:v=print Ahroldhr4200h:hr>194100:weather+dark hitz$="you've hit the coastline"+13 +"the ship is beginning to sink"+13 :v=print:n=120:v=noise:v=flashit:m=1̥*5:m:n bagroundagflagagflag=1:z$="you've run aground"+r$:v=print:speed=0:1400x (lfuel0foutspeed=0:fuel=0:fout=1:z$="you have run out of fuel."+r$:v=print x/hitsirenonatport2000:1200 }Patportn=114:t(n)=t(n)+n(n):n:finds=finds+nowfinds:waitkey: >hitz$="the automatic distress beacon goes on"+k$:v=print ,n=110 +*10 :v=siren:n 'z$="help is on it's way"+x$:v=print ,n=1300,:n:time=time+502 z$="a tug pulls out and takes you back to"+k$+"the port"+k$:hitatport=1:cash=cash-500:z$=z$+"the tug captain charged you `500 "+k$+"for the priviledge !!"+x$:v=print:1400x equip=0:z$=z$+"you've lost the ship and all your gear"+k$+"The insurance costs come to `1000"+x$:cash=cash-1e3:v=print:waitkey: do a move gmove=move+1:move=7move=1:2150f:v=tmove:>.9985-fault4300 y>175y=175 .s(move,speed+1)x=x+d(dir,1):y=y+(d(dir,2)):63404,175-y:63406,x:63651,x:63653,y:hit=boat:fuel=fuel-(speed/40():64064@,fuel:v=pfuel:2300:64033!,depth/2:v=pdepth:depth1ƥ>.6pilotaground=1 7fault2q=sonar:q=1.1}L,12 4move=1(ddownfdown)2200:search   3 timedig 48oldhr=hr:hr=(time/60<):min=(time-60<*hr) >aa$="0"+(hr):a$=a$(a$-1):b$="0"+(min):b$=b$(b$-1):t$=a$+"."+b$+" hours": e time foldhr=hr:time=time+2.5 :n=12:m=12:v(n,m)=v(n+2,m):m:n:hr=time/60<:min=time-60<*((time/60<)) pa=*hr/6:b=*min/30:v(3,1)=7*b:v(3,2)=7*b:v(4,1)=5*a:v(4,2)=5*a z]n=14:240,157:(n2);v(n,1),v(n,2):n:hr=hr: search routine visvis=(ddown+fdown)*(12 -weather)/60<:z$=("divers"ddown)+("frogmen"ddown)+" report visibility "+v$(1+.3*weather)+k$+"searching."+r$:v=print 52501,x:52503,y:v=52500:n=52750527602:n0ƥvisfiadd=n+256*(n+1):2250 n: a find *fi=(fiadd/2)-30999y:g(fi) hno=(1+(2**f(g(fi),3))):z$="you have found "+p$(g(fi))+f$(g(fi))+" "+k$:v=print af(g(fi),1)=3winchz$="it's too heavy to bring up without a winch"+r$:v=print: jf(g(fi),1)=2ddown+fdown=1z$="it's too heavy for one man to bring up"+r$:v=print: Pz$="do you want to bring "+m$(no+(g(fi)=12 ))+" up ? (y/n)"+r$:v=print !y$=:y$"y"y$"n"2275  y$="n"z$="no"+r$:v=print: nowfinds=nowfinds+no:n(g(fi))=n(g(fi))+no:z$="ok . "+f$(g(fi))+k$+" safely on board"+r$:time=time+5*f(g(fi),1):v=print:fiadd,0:fiadd+1,0:  depthroutine *depth=b(1,x,y):depth10 *depth=b(2,x,y):depth10 $-depth=d(x,y):depth<2depth=2 . possible moves 214,157:1;5*d(dir,1),5*d(dir,2):dir=z(dir-1):214,157:5*d(dir,1),5*d(dir,2): 214,157:1;5*d(dir,1),5*d(dir,2):dir=z(dir+1):214,157:5*d(dir,1),5*d(dir,2):  speed 1fuel0z$="No fuel."+r$:speed=0: Janchorspeed=0:z$="Not a good idea with the anchor down !!"+r$: Yfault=1speed>1speed=1:z$="max speed 1/4 due to engine fault"+r$: !Gspeed=5speed=4:z$="You are at full ahead already"+r$: &Bspeed=-1speed=0:z$="Engines already stopped"+r$: 0z$=("Engines stopped"speed=0)+("1/4 Speed"speed=1)+("1/2 Speed"speed=2)+("3/4 speed"speed=3)+("full ahead"speed=4)+r$:  anchor Xanchor(ddownfdown)z$="What about the "+(d$(ddown)ddown)+(f$(fdown)ddown)+r$: -anchoranchor=anchor:z$="Anchor up"+r$: 1speed>0z$="You can't weigh anchor"+r$: *anchor=1:z$="Anchor dropped"+r$: help z$="Help. You can use these keys."+k$+"5 turn ship left 8 turn ship right"+k$+"7 increase speed 6 decrease speed"+k$+"a raise/drop anchor p dock at port"+k$:v=print z$="d send down a diver f send down frogman"+k$+"r recall divers and frogmen"+k$+"s status report o distress beacon"+k$+"w weather report (press c continue)":v=print y$=:y$"c"3320 z$=r$:v=print: G divers HManchorz$="you can't send down a diver without"+k$+"dropping anchor"+r$: M6hr>20z$="too dark to send down a diver"+r$: O?weather>8z$="the weather is too poor for a dive"+r$: PYfault=3z$="Fault in Oxygen equipment"+k$+"you cannot sent any divers down"+r$: R'diversz$="no divers on board"+r$: \Gz$="diver sent down"+r$:divers=divers-1:ddown=ddown+1: frogmen Oanchorz$="you can't send down a frogman without"+k$+"dropping anchor"+r$: 8hr>20z$="too dark to send down a frogman"+r$: ?weather>8z$="the weather is too poor for a dive"+r$: Zfault=3z$="Fault in Oxygen equipment"+k$+"you cannot sent any frogmen down"+r$: 0depth>30z$="too deep for frogmen"+r$: )frogmenz$="no frogmen on board"+r$: Kz$="frogman sent down"+r$:frogmen=frogmen-1:fdown=fdown+1:  status 121004:z$="Status Report: time="+t$+k$ Gdist=(((x-76L)^2+(y-68D)^2)^.5)/4 Lz$=z$+(divers)+d$(divers)+" and "+(frogmen)+f$(frogmen)+" on board"+k$ $Qz$=z$+(ddown)+d$(ddown)+" and "+(fdown)+f$(fdown)+" searching"+k$:v=print .Uz$="distance from port "+((dist*10 )/10 )+" km finds "+nowfinds+k$ 8Mz$=z$+"fuel "+((10 *fuel))+" gallons depth "+depth+" fathoms"+k$ Bz$=z$+"bearing "+(45-*(dir-1))+" degrees speed "+"0 1/4 1/2 3/4 full"(4*speed+14*speed+4) jz$=z$+r$:v=print: s recall t4ddownfdownz$="no frogmen or divers down"+r$: ~vis=0:z$=("frogmen"fdown)+(" and "ddownfdown)+("divers"ddown)+" recalled"+r$:frogmen=frogmen+fdown:fdown=0:divers=divers+ddown:ddown=0:   weather 2z$="weather report "+w$(weather)+r$:v=print: ; dock 77My<62>y>74Jz$="you cannot dock when you are not"+k$+"in the port"+r$:v=print: F5z$="docking."+k$+x$:v=print:atport=1: change speed 7speed=speed+(y$="7")-(y$="6"):3100