jollyroger &5:5:5:1: Q10 ,0;7;2;1;" JOLLY ROGER IS LOADING. " q.1}L,5:.1}L,10 :.1}L,15:.1}L,20:.1}L,25:.1}L,30 "" (13 ,0:"" jollyrogeryp jC8 "@D@(P_|UU`pW PBe@05 @ 5@`8  P@1@0p>Cb xU 8 0S?B,`KXC h1j0D?@` p0x@ 0UGX2 %hP?UU PӀu aTqT=@8@@D0TV ` ` Tt0U`0A+ P( t?@£ $RI"@Ꚁ1h+DP:dP`Z+IJPE?*Od$=T ?V ]B $RI"@@5]@ UuDPVP U85@t U^P@テ2Nꪃ  à#@` <#`!a# :#CU:@vhHjP UVP |||PuP|||?TP *|L}99@' * b}@ 艰i UVGe ؒ |||]GV|||hX~jTThh]T8}99_P@TAh@r}*ԑiTV{{j? e?8; W|||PTpC+|||PDUP84t?P.HFG} S"@9}+P e* I??-U\_*5%@v j|||\@ !|||3hY?w`j?ppQQUU?(??ٟ] (?T%}_ITAz }=9%!u@S"?&?`Uxj. 3@UB4P0|||T B} /Q }=9Pr Q" %U\?P*Hp *`|||\ |||ZkhR_DOUT?}IUAZ }ysh'yYB_)U\>H|~~ PQ|||T> `|~<~<9P |P? y}c P+D  } UTOy@*J??U\&|||| |||| ]?|QPT 8u}yy_AGUT}?eU^ }"_xU#`hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhNNNNNNNNNNNNNNNNhhhhhhhhhhhhhhhhNNNNNNNNNNNNNNNNhhhhhhhhhhhhhhhhNNNNNNNNNNNNNNNNhhhhhhhhhhhhhhhhNNNNNNNNNNNNNNNNhhhhhhhhhhhhhhhhNNNNNNNNNNNNNNNNhhhhhhhhhhhhhhhhNNNNNNNNNNNNNNNNhhhhhhhhhhhhhhhhNNNNNNNNNNNNNNNNhhhhhhhhhhhhhhhhNNNNNNNNNNNNNNNNhhhhhhhhhhhhhhhhjollyroger͏͏Ϗ 63999 G9 ,0;7;2;" JOLLY ROGER IS LOADING ! " ""64000,768  63229 G9 ,0;7;2;" JOLLY ROGER IS LOADING ! " ""63230,768 "a"-502 G9 ,0;7;2;" JOLLY ROGER IS LOADING ! " """a"-502 "" (("a"-502) P&1:1:7:1: Z 9200# [719,10 ;7;1;"PRESS ANY KEY." \=""92\ cQ19,0;7;1;1;"PLEASE WAIT FOR ME TO SET SAIL. " d 8000@ f i 7550~ x 7000X 2000  7930  7900 a(pos)227950  7850  w=180P k=-100d k=10 2200 k=152210 k=12220 k=192230 $k=14la=0:7500L w=40(7870 w=79O7850 k=-36650 k=-17650 k=821004 ,k=-19.3,30:9100#  w z=(*10 )+1 z=26910 3 2000 7 9000(# 9b(pos)=13000 :a(pos)=228550f! > 2250 H 7550~  2000 0k=10 a(pos+15)=17700 *k=10 pos=pos+15:7000X  0k=15a(pos-15)=17700 *k=15pos=pos-15:7000X  .k=1a(pos+1)=17700 (k=1pos=pos+1:7000X  /k=19a(pos-1)=17700 )k=19pos=pos-1:7000X  9000(#:7800x 918,2;0;"SORRY CAPTAIN, YOU CAN'T." z=1300,:z: sup=sup-((*2)+1) 7930 $9000(#:7800x:8400 7900:7400 90102# 8,31;4;1;":";9 ,27;"HI :";10 ,25;"F";11 ,23;"JK" z=020 211 ,z;6;1;" <>":10 :z a(pos)=228550f! 8300l 7930 4180T 90102# Xz=315:z,0;0;6;" ":z 5485m 0 100d,100d:20,10 :0,30:2,2:100d,0:2,-2:0,-60<:-2,-2:-100d,0 7-2,2:0,20:-20,0  7 "p=4:q=4:5475c  7800x 9000(# -18,3;0;"NATIVE TRADER." 6,16;0;6;"HOW......";7,16;"ME SELL UM";8,16;"CLUE TO UM";9 ,16;"TREASURE."  3900< price=(*5)+6 v6,16;0;6;"UM ASKING";7,16;"PRICE IZ UM";8,16;price;" DOUBLOONS" ! 3900< &n6,16;0;6;"WHAT YOU";7,16;" OFFER UM";8,16;"WHITE MAN ?" +b18,3;0;"OFFER ?... 1 to 9";19,3;"You have...";tre;" doubloons." 0 3550 :B.2~L,10 :18,14;0;off;" DOUBLOONS." ?)offpriceoff=price-13700t D!off(price-4)3600 Fz=(*4)+1 Gz=13400H Hz=23430f I3900<:6,16;0;6;"ME WANT UM";7,16;" MORE !";5,19;"NO !";10 ,16;price-1;" DOUBLOONS" N@.2~L,10 :18,14;0;"1 to 9. " S 3550 UB.2~L,10 :18,14;0;off;" DOUBLOONS." X!off(price-2)3700t ]!off<(price-2)3600  9000(# M3900<:price=(*6)+3:6,16;0;6;"YOU GIVE ME";7,16;" UM";9 ,16;price;" DOUBLOONS" RM.2~L,10 :18,14;0;"1 to 9. ":3550 : WB.2~L,10 :18,14;0;off;" DOUBLOONS." \offprice3700t aoff9 .1}L,10 :3550  z=1200:z y3905A:6,16;0;6;"UM INSULT !";8,16;"OFF MY UM";9 ,16;"ISLAND."  3900< b(pos)=0  day=day+1 $ 105i ~Z3905A:6,17;0;6;" UGG..";9 ,16;" UM CLUE.."  7800x  .17,14;0;4;"CLUE." clue=(*6)+1 Bclue=119,1;0;" TAKE PATH ";path Cclue=219,1;0;" TURN AT TREE ";tree Iclue=319,1;0;" GO ";h$(ect);" AT THE TREE." fclue=419,1;0;"PASS THROUGH THE VILLAGE ";20,10 ;f$(vill) Jclue=519,1;0;" GO ";g$(dir);" FROM VILLAGE." Mclue=619,1;0;"TAKE ";pace;" PACES FROM VILLAGE" z=1100d:z 3905A:6,17;0;6;" GO IN";7,16;"PEACE TO UM";9 ,16;" TREASURE";10 ,16;" ISLAND." z=1600X:z  tre=tre-off &sc=sc+200:trade=trade+1  3615 c(is)=9 3050 ($2250:7800x:8400 ; 4000 >z=1502:z ?z=1500 @""3907C Bz CEz=511 :z,16;0;6;" ":z D".15~,(*10 )+11 E k= k=110n4100 k=115s4120 k=101e4140, k=119w4160@ k=4913800 k=5243615 $k=513la=1:7500L k=5026800 +k=81Q.3,30:9100#  4000  #c(is+6)=14000 is=is+6  4180T #c(is-6)=14000 "is=is-6 ' 4180T 1#c(is+1)=14000 6is=is+1 ; 4180T E#c(is-1)=14000 Jis=is-1 O 4180T U 5000 Y 7800x Z<9000(#:17,13 ;0;4;"REPORT." ^Xc(is)=519,1;0;"A SNAKE BITES ONE OF THE CREW.":6700, `Uc(is)=319,1;0;" A NATIVE BLOCKS YOUR PATH.":6700, adc(is)=219,1;0;" YOU FIND 2 DOUBLOONS.":tre=tre+2:5530 bgc(is)=819,1;0;"A NATIVE GIVES YOU SOME AMMO":amm=amm+1:6700, cgc(is)=719,1;0;"A NATIVE GIVES YOU SUPPLIES.":sup=sup+1:6700, dXc(is)=9 19,1;0;"YOU DISCOVER A NATIVE VILLAGE.":6700, h)c(is)=4c(is)=64900$ c(is)=8c(is)=3 c(is)=7c(is)=3 c(is)=2c(is)=4  90102# z=1300, ""4298 z 8200 :8400  4000 )des=(*11 )+1 *dub=(*4)+2 .tdes=119,1;0;" ONE OF YOUR CREW SINKS IN ";20,10 ;"QUICKSAND.":85004! 3rdes=219,1;0;" ONE OF YOUR CREW SINKS IN ";20,10 ;"A MARSH.":85004! 8tdes=319,1;0;" ONE OF YOUR CREW IS BITTEN";20,7;"BY A SPIDER.":6700, =udes=419,1;0;" ONE OF YOUR CREW IS STUNG";20,7;"BY A SCORPION.":6700, BTdes=519,1;0;" YOUR CREW ARE HUNGRY.":mor=mor-1 GUdes=619,1;0;" YOUR CREW ARE THIRSTY.":mor=mor-1 Lmdes=719,5;0;" YOU FIND ";dub;" DOUBLOONS":tre=tre+dub:5530 PHdes=819,1;0;" NOTHING TO REPORT CAPTAIN." QRdes9 19,2;0;" THE COAST IS CLEAR CAPTAIN." VIdes=11 19,1;0;" NOTHING TO REPORT CAPTAIN."  z=315 Dz,0;6;0;" ":z Wz=02:z,0;5;0;" ":z  7400 #c(is-6)=15410" #c(is+6)=15400 #c(is-1)=15420, #c(is+1)=154306 c(is)=9 5440@ 1c(is)=2p=8:q=4:5475c 2c(is)=2p=5:q=14:5475c 2c(is)=3p=5:q=14:5475c 2c(is)=3p=8:q=25:5475c 2c(is)=4p=8:q=25:5475c 1c(is)=4p=8:q=4:5475c 2c(is)=4p=5:q=16:5475c 2c(is)=5p=5:q=13 :5475c 1c(is)=5p=6:q=5:5475c 2c(is)=5p=8:q=18:5475c 2c(is)=5p=8:q=23:5475c 2c(is)=6p=8:q=23:5475c 2c(is)=6p=5:q=17:5475c 1c(is)=6p=8:q=4:5475c c(is)=35485m 'c(is)=85495w:5485m 'c(is)=75510:5485m c(is)=55520 2c(is)=7p=4:q=16:5475c 2c(is)=8p=5:q=20:5475c  G3,0;7;1;" kl mn nm klk nm nm n" ! 'j14,0;1;7;" kl mn mn kl kl kl m mn klmn mn m mn ": .:z=315:z,0;7;1;" ":z 16,0;7;1;"mn";10 ,0;"kl";13 ,0;"k";4,0;"m";8,1;"l" 2Wc(is+6)190157#:3,2;6;1;"A":90102# 3Wc(is+6)=190157#:4,2;6;1;"A":90102# 4Xc(is-6)=190157#:13 ,2;6;1;"C":90102# 5 8;z=315:z,30;7;1;" ":z ;6,30;7;1;"mn";10 ,30;"kl";13 ,31;"k";4,30;"m";8,31;"l" Xc(is+6)190157#:3,29;6;1;"B":90102# ? B 90157# E>11 ,4;4;6;"ST ST ST ST ST" FB12 ,4;4;6;"VUW 4 VUW 78 VUW VUW" GA8,4;4;6;"ST ST ST ST ST " H@9 ,4;4;6;"VUW VUW 4 VUW VUW VUW" I_5,6;4;6;" ST ST ST";6,6;" VUW 78 VUW 4" Jo12 ,7;0;6;"X";12 ,17;"Y";12 ,22;"Z";12 ,26;"XY" O9 ,8;0;6;"ZZ";9 ,13 ;"Y";9 ,24;"ZX";6,10 ;"XYZ";6,17;"YX";6,26;"Z" ] 90102# ^ hp,q;4;6;"OPQR";p+1,q;"S TU";p+1,q+1;0;"N";p+2,q+1;"M";p+3,q+1;"L";p+4,q+1;"V" j r`10 ,8;0;6;" _ `";11 ,8;"}~.,";12 ,8;"{|\?": |-12 ,14;0;6;"hi": P90157#:12 ,14;0;6;"90 9099 0009":90102#: E90157#:12 ,14;0;6;"xy":90102#: H90157#:12 ,12 ;0;6;"vw vw":90102#: u9000(#: x;21,10 ;7;2;" AMMUNITION = ";amm zAz=021:z,0;0;6;"________ ":z {_2,0;0;7;"1";9 ,0;"2";16,0;"3" | 90102# z=3177 Tz,6;2;6;"cde";z+1,6;"fg";z+1,1;"hi" h90157#:z-1,4;0;6;"1";z,4;"2";z+1,4;"3":90102# z m=6:n=20 #z=130:6380:z  6400 ="1"o=3:62008 ="2"o=10 :62008 ="3"o=17:62008 7 6100 =Ao-1,9 ;6;1;"+";o+1,9 ;"-" ?M6400:o-1,9 ;6;1;" ";o+1,9 ;" " A/o,9 ;6;1;" j":6400 Bz=9 30 Go,z;6;1;" j" Q5m=oz=nm=o-1z=nm=o-2z=n6600 RMm=oz=n+1m=o-1z=n+1m=o-2z=n+16600 Uz Vo,30;1;" " Wamm=amm-1 XB9000(#:21,24;7;2;amm:90102# Yamm09100# [ ?(*20)+1,(*20)+11 ;5;"kl": ship=(*4)+1  9n=n+(ship=1n<28)-(ship=2n>18) 8m=m+(ship=3m<17)-(ship=4m>1) vm,n;7;1;" ab ";m+1,n;" 90 ";m+2,n-1;" 678 ";m-1,n;" ";m+3,n;" " ship=56380 2 Dm,n;7;1;" ";m+1,n;" ab";m+2,n;" 90" Dm,n;7;1;" ";m+1,n;" ";m+2,n;" ab" Dm,n;7;1;" ";m+1,n;" ";m+2,n;" " z=1100d:z Da(pos)13 a(pos)16ssu=ssu+1:sc=sc+1000 "a(pos)=13 a(pos)=10 !a(pos)=14a(pos)=9 !a(pos)=15a(pos)=8 !a(pos)=16a(pos)=7 amm=amm-1  :105i a(pos)<13 2110> -a(pos)=21a(pos)=222110> amm06750^ -a(pos)13 a(pos)166000p  7800x w9000(#:19,3;5;0;"YOU ATTACK ONE OF YOUR OWN";20,8;"SMALL LANDING SHIPS." 017,13 ;0;4;"REPORT."  90102# "z=1400:z #mor=mor-2 &$6700,:6700,:6700, '7550~:2000 6inj=(*10 )+1 ;f(inj)=f(inj)+1 @ f(inj)5f(inj)=5 E 8200 ] b 7800x c<9000(#:17,13 ;0;4;"REPORT." hD19,2;5;0;"YOU HAVE NO AMMUNITION LEFT." m$z=1300,:z:9100# Ec(is)=2c(is)=4c(is)=62250:8400 : ^7800x:9000(#:17,1;0;4;" YOU ATTACK AND KILL. " cc(is)=519,1;0;"BUT THE SNAKE KILLS ONE MAN. ":85004!:6897 c(is)=9 19,1;0;"BUT A FULL VILLAGE PUTS UP A";20,1;"GOOD FIGHT.YOU HAVE A CASUALTY":85004!:6898 kill=(*5)+1 z=(*2)+2 kill319,1;0;"YOU FIND ";z;" DOUBLOONS ON THE";20,1;"BODY OF THE DEAD NATIVE.":tre=tre+z:6895 kill=119,1;0;"THE NATIVE DIES IN AGONY,BUT";20,1;"ALSO HE KILLS ONE OF THE CREW.":85004!:6895 kill=219,1;0;" THE NATIVE HAS SUPPLIES ";20,1;"HIDDEN IN HIS LOIN CLOTH.":sup=sup+1 I90157#:z=10 13 :z,8;6;0;"t ":z w9 ,8;6;0;"u":10 ,9 ;0;7;"nop";11 ,9 ;"qrs":90102# c(is)=4 z=1160:z 8400 :8200  Nz=02:z,0;5;" ":z  7400 G7800x:9000(#:17,14;0;4;"REPORT"  >dam=dam+(*40()+11 :dam>100ddam=100d n19,1;0;"ADVERSE WEATHER DAMAGES SHIP.";20,1;" DAMAGE TO SHIP = ";dam;" %"  90102# z=170F A2,cl;7;5;";;;;";2,ou;";;;":3 A2,cl;7;5;"]]]]";2,ou;"]]]":3 !A2,cl;7;5;"[[[[";2,ou;"[[[":3 &z (82,cl;7;5;" ";2,ou;" " ) 8200 +7550~: Z 8200 ] 90102# b 7930 d 1000 e 90102# f 7400 g(a(pos)=27120:7100 hLa(pos)=37170:7150:7100:7135:7300 i(a(pos)=47180 :7150 j(a(pos)=57190:7135 k(a(pos)=67190:7135 l(a(pos)=67180 :7150 m(a(pos)=77200 :7100 n4a(pos)=87210*:7150:7300 o(a(pos)=9 72204:7135 p)a(pos)=10 7135:7230> q%a(pos+15)=17250R r%a(pos-15)=17240H s$a(pos-1)=17260\ t$a(pos+1)=17270f v5a(pos)=13 7135:7230>:7280p w5a(pos)=1472204:7135:7280p x5a(pos)=157210*:7150:7280p z5a(pos)=167200 :7100:7280p {5a(pos)=177180 :7150:7290z |)a(pos)=177190:7135 }5a(pos)=187190:7135:7290z ~Ya(pos)=197170:7150:7100:7135:7290z:7300 5a(pos)=207120:7100:7290z a(pos)=217300 a(pos)=11 7300 a(pos)=227310  2000 E4,19;4;1;"OPQR";5,19;"S TU" U5,20;6;1;"N";6,20;"M";7,20;"L"  ժ7,18;4;1;"HI A";8,17;"GBC";9 ,16;"FD";10 ,14;"JKE";11 ,13 ;"FC"  E4,24;4;1;"OPQR";5,24;"S TU" U5,25;6;1;"N";6,25;"M";7,25;"L"  E4,14;4;1;"OPQR";5,14;"S TU" U5,15;6;1;"N";6,15;"M";7,15;"L"  7,16;4;1;"WXYA";8,14;":C FD";9 ,13 ;":BE";10 ,12 ;"FC"   z8,14;4;1;":C";7,16;"A";9 ,13 ;":D";10 ,12 ;"FE"  d8,23;4;1;"JKC";9 ,22;":D";10 ,21;"FE"  %7,21;4;1;"Z123";8,19;":C";9 ,18;":D";10 ,15;"FBE";11 ,13 ;"JKC" ( /7,17;4;1;"Z123";8,14;"FBC";9 ,13 ;"GD";10 ,12 ;"FE" 2 97,20;4;1;"HI A";8,19;"GBC";9 ,18;"FD";10 ,16;"JKE" ; C6,17;4;1;"WXY A";7,16;"A A FC";8,15;": : GD";9 ,14;"GD FE";10 ,13 ;"FE" E Ms14,2;0;1;" A HI HI HI HI A";15,0;"WXY : Z123 :" Q WG2,0;4;5;"Z123 HI A Z123 HI A Z123 HI Z123" Y a13 ,0;0;1;"HI";11 ,1;"A";4,0;"A";8,0;"WXY";6,1;"HI" e kn4,30;0;1;"HI";6,28;"A";7,29;"WXY";9 ,31;"A" o ud4,11 ;6;1;" ab";5,11 ;" 90";6,11 ;6;"678" w *7,11 ;6;1;"<>"  *13 ,18;7;1;""  90102#:7,16;4;1;"A A HI";8,13 ;"FBBBC";9 ,12 ;"GD";10 ,10 ;"JKE" k11 ,9 ;4;1;":C";12 ,8;"FD" [13 ,8;1;4;" HI Z123 HI A A A A ";14,20;"BB" *13 ,31;4;1;"E" $7100:7135:7150 E9000(#:11 ,13 ;7;2;"TREASURE ISLAND." *9 ,22;0;4;""  90102#  M90157#:0,26;6;5;"AB";1,26;"CD" cl=(*9 )+1 ou=(*9 )+13 ]0,cl;7;5;"EFGH";1,cl;"IJKL";0,ou;"MNO";1,ou;"PQR"  90102#  N 9000(# Qz=1720 VAz,0;7;0;" " [)z,0;2;"";z,31;"" `z eH16,0;0;2;" " fH21,0;0;2;" " j17,1;0;6;"BUCCANEERS. ";18,1;5;"SHIPS SUNK. ";20,1;"DOUBLOONS. ";19,1;6;"CREW MORALE." o17,17;0;5;"DAYS. ";19,17;"SUPPLIES. ";18,17;6;"DAMAGE % ";20,17;"AMMUNITION" t 7980, uz=1600X vla=17545y w1z=100dz=300,z=5007870 x1z=200z=400z=600X7850 y""7547{ zz {la=07550~ |la=18400 }  9000(# z=1720 Az,0;7;0;" " )z,0;2;"";z,31;"" z H21,0;0;2;" " H16,0;0;2;" " j17,1;0;6;" N = NORTH. ";18,1;5;" S = SOUTH. " j19,1;0;6;" W = WEST. ";20,1;5;" E = EAST. " 17,15;0;5;"R = STATUS. ";19,15;"C = CREW REPORT.";18,15;6;"L = LAND. ";20,15;"A = ATTACK SHIP."   9000(#  7930 l1,10 ;7;2;"CREW REPORT.";4,3;"NAME.";4,18;"CONDITION." z=110 @z+5,3;5;d$(z);z+5,18;e$(f(z)) z  90102# z=1700 ""7685 z  7921  7000X  H90102#:7930:7250R:7240H:7260\:7270f S8,14;7;"";9 ,14;"";10 ,14;"" #10 ,17;0;1;"WXY A";6,19;"A Z123";11 ,6;"A HI";4,5;"Z123 HI";8,7;"HI A" ( 7800x *dam=dam+40( -p9000(#:19,5;5;0;"YOU HAVE RUN AGROUND!";20,8;dam;"% SHIP DAMAGE." /<dam100d20,7;5;0;"TOTAL" 2017,12 ;0;4;"REPORT." = 6700, > 85004! Amor=mor-(*4)+1 Fz=1300,:z Kdam100d9100# P 7550~ Z 7000X w 2000 }Wz=1720:z,1;7;0;" ":z  Dx,y;1;7;"";x+1,y;"";x+2,y;""  Dx,y;1;7;"";x+1,y;"";x+2,y;""   90102# z=115 E(*12 )+4,(*28)+1;5;1;"kl" E(*12 )+4,(*28)+1;5;1;"mn" z Wz=02:z,0;5;0;" ":z  z=315 Dz,0;1;7;" ":z    9000(# 11 ,29;7;" N ";15,29;" S ";12 ,29;" ";13 ,29;"W E";14,29;" " 243,78N 0,-20 "241,68D '4,0 ) 1o17,28;7;0;day;18,28;dam;19,28;sup;20,28;amm 6o17,14;7;0;cut;18,14;ssu;19,14;mor;20,14;tre ; B Ea(135) J%z=116:a(z)=1:z O(z=120x135:a(z)=1:z T0z=30105i15:a(z)=1:z Y0z=31106j15:a(z)=1:z ^z=17119w ca(z)=18050r ha(z)=(*20)+2 rz ste=(*11 )+94^ ta(te)=22 wb(135) |z=17119w Da(z)=1a(z)=11 a(z)=12 a(z)=218075 b(z)=1 z pos=(*11 )+32 6ssu=0:tre=5:mor=10 :cut=10 (amm=2:sup=10 :dam=0 x=9 :y=4 D$(10 ,14)  8120 z=110  D$(z):z "JIMLADD.","PEGLEG PETE.","ONE EYED JACK.","JAMAICA JOE.","BENN GUNN.","BLACKBEARD.","PISTOL PEDRO.","BLIND PHEW.","BARNACLE BILL.","SCARFACE." E$(5,13 )  8140 z=15:e$(z):z 3"FIT","SLIGHT WOUNDS","INJURED","CRITICAL","DEAD"  f(10 ) %z=110 :f(z)=1:z path=(*4)+1 tree=(*4)+1 vill=(*10 )+1 ect=(*2)+1 dir=(*4)+1 pace=(*9 )+1  8165 f$(10 ,9 ) z=110  f$(z):z b"BOLONGO","UMGOWA","ZIGFIG","EDUNTA","TIPOGA","BALOTO","MANGOWA","COCOVILLE","GONDOZO","KOO KYU" g$(4,5) Rg$(1)="NORTH":g$(2)="SOUTH":g$(3)="EAST":g$(4)="WEST" h$(2,5) )h$(1)="LEFT":h$(2)="RIGHT" (sc=0:trade=0:day=0 find=0  count=0 z=110 #f(z)=5count=count+1 z -cut=10 -count:cut=09100# mor09100# !dam100d9100# &sup09100# +tre<09100# 9 q c(30) v 8330 {z=118 w c(w)=1:z 1,2,3,4,5,6,7,12 ,13 ,18,19,24,25,26,27,28,29,30 z=823 c(z)=18350 c(z)=(*5)+2 z "c((*4)+20)=9 "c((*4)+14)=8 !c((*4)+8)=7 is=(*4)+8  9000(#:7800x j17,1;0;6;" N = NORTH. ";18,1;5;" S = SOUTH. " j19,1;0;6;" W = WEST. ";20,1;5;" E = EAST. " 17,15;0;5;"1 = TRADE. ";19,15;"3 = STATUS. ";18,15;6;"2 = KILL. ";20,15;"4 = BOARD SHIP. " ^17,28;7;0;" N ";19,28;" S ";18,28;"W E" .233,27:0;6,0 .236,24:0;0,7 !3 !9z=110 !>f(z)<5f(z)=5: !Cz !E 8200 !H !h i(6) !kz=120:z !p:7921:7400 !u 8940" !v^90157#:3,0;4;6;" 5 6 45 6 5":90102# !zz=0248:3,z+3;0;6;":";4,z+2;":";5,z+1;":";6,z;":":z !S9000(#:7,0;7;2;" 1 2 3 4 " !Xz=821:z,0;7;0;" ":z !90102#:17,1;5;0;"xy pq vs rs wu tu" !\25,44,:20,10 :0,30:2,2:100d,0 !2,-2:0,-60<:-2,-2:-100d,0:-2,2:0,19:-20,0 !q220,44,:-15,5:0,20:-2,2:-30,0:-2,-2 !l0,-40(:2,-2:30,0:2,2:0,14:15,0 !s9000(#:14,7;0;"WHICH PATH";16,8;"CAPTAIN ?";15,23;1;"?" !?8900":15,23;0;no:.2~L,30 !)8925":no=pathi(1)=1 !k9000(#:14,7;0;"WHICH TREE";16,8;"CAPTAIN ?";15,23;"? " !8940":7,0;0;6;" 1 2 3 4":90102#:z=2268:p=3:q=z:5475c:z !K8900":9000(#:15,23;0;no:.2~L,30 !)8925":no=treei(2)=1 !_14,7;0;"LEFT RIGHT";16,8;"L=1 R=2 ";15,23;"? " !K8900":9000(#:15,23;0;no:.2~L,30 !(8925":no=ecti(3)=1 !]8940":z=37:z,1;0;6;z-2;" ";f$(z-2):z !Rz=37:z,12 ;0;6;z+3;" ";f$(z+3):z !87,12 ;0;6;"0 ";f$(10 ) !O90157#:5,27;4;6;"ST";6,27;"VUW" !9000(#:14,7;0;" VILLAGE ";13 ,7;"WHICH";16,8;" CAPTAIN. ";15,23;"? " !K8900":9000(#:15,23;0;no:.2~L,30 !)8925":no=villi(4)=1 !13 ,7;0;"WHICH WAY";14,7;"CAPTAIN ?";16,7;"1N 2S 3E 4W";15,23;"? " !?8900":15,23;0;no:.2~L,30 "(8925":no=diri(5)=1 "~13 ,7;0;"HOW MANY ";14,7;"PACES ";16,7;"CAPTAIN ? ";15,23;"? " " ?8900":15,23;0;no:.2~L,30 ")8925":no=pacei(6)=1 "!find=0:z=16 "!i(z)=1find=find+1 "z "find=613 ,7;0;"WE FOUND ";14,7;"THE GOLD ";16,7;"CAPTAIN ";15,22;"```":9300T$ "$find<613 ,7;0;"WE GOT IT ";14,7;" WRONG ";16,7;"CAPTAIN ";15,23;"! " "z=1100d:z " 9100# " 0 "no=-480 "6no<0no>9 .1}L,10 :8905" "no=0no=10 : " "z=1100d:z: "Wz=37:z,0;0;6;" ":z " #& 9000(# #--236066\,0:236077\,60<: #3.236066\,0:236077\,249: #80236066\,254:236077\,245: #z=120:z #nz=021:z,0;6;0;" ":.001wn,z+9 :z #_90102#:z=1157:p=z:q=27:5475c:q=1:5475c:z #=9000(#:3,11 ;7;2;"GAME OVER" #2sup014,8;"OUT OF SUPPLIES" #2mor012 ,8;"THE CREW MUTINY" #6amm06,6;"YOU ARE OUT OF AMMO." #8cut08,5;"ALL YOUR CREW ARE DEAD" #Vdam100d17,5;"DAMAGE TO SHIP BEYOND";19,13 ;"REPAIR" #7find=610 ,6;"YOU DID IT CAPTAIN." #6tre010 ,6;"NO CASH TO CONTINUE" #?21,0;2;" PRESS ANY KEY FOR SCORE SHEET. " #=""9140# #.2~L,30 #Ez=020:z,5;6;" ":z #Y21,0;2;" PRESS ANY KEY FOR ANOTHER GO. ";0,13 ;"SCORE" #2,10 ;4;7;"SHIPS SUNK.";5,6;"SUCCESS'FUL TRADES.";8,6;"CORRECT DIRECTIONS.";11 ,6;"No OF DAYS SURVIVED";14,6;"BONUS FOR TREASURE.";17,10 ;1;"TOTAL SCORE" #ͮ4,13 ;0;6;"x 1000 pts";7,13 ;"x 200 pts";10 ,13 ;"x 1000 pts";13 ,13 ;"x 200 pts";16,16;"pts" #l4,8;6;0;ssu;7,8;trade;10 ,8;find;13 ,8;day #sc=sc+(find*1000) #sc=sc+(day*200) #Yfind=616,11 ;6;0;"4000":sc=sc+4000:9180# #*16,11 ;6;0;"0" #019,12 ;6;0;sc;" pts" #z=1502:z #=""9198# # 90Z #:90157# #|0,0;7;0;" nop nop nop nop nop nop ";1,0;" qrs qrs qrs qrs qrs qrs " #~20,0;7;0;" nop nop nop nop nop nop ";21,0;" qrs qrs qrs qrs qrs qrs " $ 9000(# $ 32,10 ;7;2;"JOLLY ROGER" $q3,0;"Legend tells of Treasure Island where a great wealth of treasureis hidden,never to be found." $q7,1;"Natives living on surrounding islands,hold the clues to the whereabouts of the treasure." $11 ,0;"Your quest is to recover the treasure.Trade with the natives to obtain directions for when you land on Treasure Island." $q16,0;"Then locate the island,follow the directions and locate the treasure. But beware......." $" $Yz=1100d:z $^\:z=03:z,0;5;" ":z:7400 $cOz=421:z,0;6;" ":z $h;z=7225:p=5:q=z:5475c:z $i"p=7:q=3:5475c $j#p=7:q=26:5475c $mv13 ,8;0;6;"pq xy rs vs tu wu" $n$p=11 :q=28:5475c $o#p=11 :q=0:5475c $r890157#:17,13 ;1;6;"lm" $w 9000(# $|H21,0;7;2;" ``````..CAPTAIN...WE'RE RICH " $z=1200:z $ 9100# ' "jollyroger"1 ' $"jollyroger"64000,768 ' $"jollyroger"63230,768 '%"jollybreak""a"-502,502 '$"jollyroger""a",21*8 jollyroger̀<<~$$~<$$$$ff$$&&``=$$dd  ?"DI@@@@@@HD"f<<3?M @@~??~?DU!?<@@@@@@@@gg#8~ߟ 0 d2<IADU!8T<~f<@@@O?<}  aa0xx0φ<<$B"8D$B<<|~``1gg'~ff'&& `````pX?ggggG `=~<(> >bd&F(*D:  >>> ?}px0xxxx|lnfffww<~RRB~~<~~Nzz<~~~ff???><<<<|<<<<2:\*{\B}RJSjollyrogerX̀P~?xL,8NL(GG'& {4} @ '?LÅ ?/xpx<<>~? ????x