Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.adf » U/DRAKE2

U/DRAKE2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.adf
Filename: U/DRAKE2
Read OK: ✔
File size: 1B20 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   20REM COPYRIGHT (C) G.LUDINSKI 1983
   30DIM M$(17)
   40COLOUR129:COLOUR2
   50AL=0
   60GOTO130
   70DEFFNB(N$)
   80TF=0
   90FOR L=0 TO 7
  100  TF=TF+(2^L)*VAL(MID$(N$,8-L,1))
  110NEXTL
  120=TF
  130VDU23,128,16,90,91,82,87,254,126,62
  140PROC_B
  150SH$=CHR$(128)
  160LA$=CHR$(136):RA$=CHR$(137):DA$=CHR$(138):UA$=CHR$(139)
  170M$(1)=" 999999304500000079999999999000 "
  180M$(2)=" 999999300000000007999999995000 "
  190M$(3)=" 999999300000000000999951730000 "
  200M$(4)=" 999995000000000000779900030000 "
  210M$(5)=" 799500000000000000009900000000 "
  220M$(6)=" 099800300000000000007929000000 "
  230M$(7)=" 047900000000000000000119200000 "
  240M$(8)=" 048000020000000000000000702220 "
  250M$(9)=" 087006000000000000000000019999 "
  260M$(10)=" 078069020000000000000000004999 "
  270M$(11)=" 007099030822000000000000069999 "
  280M$(12)=" 000220000079810000000000049999 "
  290M$(13)=" 000000010000000000000000009999 "
  300M$(14)=" 000000006908000000000000004999 "
  310M$(15)=" 0000006999890000000000000EEEEE "
  320M$(16)=" 0000069999998000000000000EEEEE "
  330FOR Y=1 TO 16
  340  FOR X=2 TO 31
  350    C$=MID$(M$(Y),X,1)
  360    IF C$="9" THEN GOTO400
  370    IF C$="0" THEN IS=INT(7*RND(1)):PROC_ISERT:GOTO400
  380    IF C$="E" THEN IS=4:PROC_ISERT:GOTO400
  390    IF (X > 4 AND X < 15 AND Y > 7 AND Y < 14) THEN IS=INT(2*RND(1)+7):PROC_ISERT ELSE IS=10:PROC_ISERT
  400  NEXT:NEXT
  410CA=100:SU=100:CR=85:BA=100:DA=0:WK=1
  420EN=0
  430X=29:Y=16:X1=29:Y1=16
  440IF WK=1 THEN COLOUR129:COLOUR3:PRINTTAB(X+4,Y);SH$;CHR$(8);
  450*FX 4,1
  460PRINTTAB(0,20)"Week Cargo Supplies Crew Cannon Damage                           balls"
  470PRINTTAB(0,23);STRING$(39," ");
  480IF X=1 AND Y=16 THEN PRINTTAB(0,25)"You have survived the unknown, and now  know you are the first commander of a   fleet to sail around the world.":IF CA >= 400 THEN PRINT"Arise Sir Francis":GOTO 1390
  490IF X=1 AND Y=16 THEN EN=1
  500IF (X=17 AND Y=1) OR (X=18 AND Y=2) OR (X=19 AND Y=4) THEN AL=1
  510IF X < 15 AND AL=0 THEN PROC_B:PRINTTAB(0,25)"Go back to New Albion"
  520IF SU <=0 THEN PROC_B:PRINTTAB(0,25)"Your supplies have been used up so your crew mutinies, and kills you.":SU=0:EN=1
  530IF CR <=0 THEN PROC_B:PRINTTAB(0,25)"Your crew have all been killed in battleor have died of scurvy, typhus or       dysentery. You're stranded without them.":CR=0:EN=1
  540IF DA > 10 THEN PROC_B:PRINTTAB(0,25)"Your ship has filled with water and"'"sunk.":EN=1
  550IF BA < 0 THEN BA=0
  560IF EN=1 THEN GOTO 1390
  570PRINTTAB(0,23);WK;TAB(6,23);CA;TAB(12,23);SU;TAB(21,23);CR;TAB(26,23);CA;TAB(33,23);DA
  580I$=GET$
  590PROC_B
  600IF (X=1 AND I$=LA$) OR (X=30 AND I$=RA$) OR (Y=1 AND I$=UA$) OR (Y=16 AND I$=DA$) THEN GOTO 580
  610IF I$=LA$ AND MID$(M$(Y),X-1,1) <> "0" AND MID$(M$(Y),X-1,1) <> "9" AND MID$(M$(Y),X,1) <> "2" THEN X=X-1
  620IF I$=RA$ AND (MID$(M$(Y),X+1,1) <> "2" AND MID$(M$(Y),X+1,1) <> "9" AND MID$(M$(Y),X,1) <> "0") THEN X=X+1
  630IF I$=DA$ AND (MID$(M$(Y+1),X,1) <> "3" AND MID$(M$(Y+1),X,1) <> "9" AND MID$(M$(Y),X,1) <> "1") THEN Y=Y+1
  640IF I$=UA$ AND (MID$(M$(Y-1),X,1) <> "1" AND MID$(M$(Y-1),X,1) <> "9" AND MID$(M$(Y),X,1) <> "3") THEN Y=Y-1
  650WK=WK+1
  660IF DA <> 0 THEN DA=DA+1
  670SU=SU-1
  680PRINTTAB(X1+4,Y1)".";
  690COLOUR3:PRINTTAB(X+4,Y);SH$;CHR$(8);
  700IF X=X1 AND Y=Y1 AND WK <> 1 THEN SOUND 0,-15,53,10:PROC_REEF:GOTO770
  710IF MID$(M$(Y),X,1)="A" AND DA <> 0 THEN DA=0:PROC_B:PRINTTAB(0,25)"You have arrived at a port so you can   now get your ship repaired.":GOTO770
  720IF MID$(M$(Y),X,1)="4" THEN PROC_B:GOTO770
  730IF MID$(M$(Y),X,1)="5" THEN PROC_NAMSHIP
  740IF MID$(M$(Y),X,1)="6" THEN PROC_SHIP
  750IF MID$(M$(Y),X,1)="7" THEN PROC_TRADE
  760IF MID$(M$(Y),X,1)="8" THEN PROC_HOSTILE
  770X1=X:Y1=Y
  780GOTO460
  790DEFPROC_REEF
  800W=INT(2*RND(1))
  810IF X < 15 THEN RR$="reef" ELSE RR$="rock"
  820PROC_B
  830IF W=0 THEN PRINTTAB(0,25)"There is a ";RR$;" ahead. Turn around.":GOTO900
  840PRINTTAB(0,25)"You have run aground on a ";RR$;"."'"Are you going to throw cargo and guns   overboard, or put out an anchor to"'"windward";
  850INPUT R$:IF INSTR(R$+"      ","OVERBOARD") <> 0 OR INSTR(R$+"      ","overboard") <> 0 THEN R$="OVERBOARD":GOTO880
  860IF INSTR(R$+"      ","ANCHOR") <> 0 OR INSTR(R$+"      ","anchor") <> 0 THEN R$="ANCHOR":GOTO880
  870VDU 11:GOTO850
  880IF R$="OVERBOARD" THEN CA=CA-RND(20):GOTO900
  890W2=INT(2*RND(1)):PROC_B:IF W2=0 THEN PRINTTAB(0,25)"You have broken free without any"'"significant damage." ELSE PRINTTAB(0,25)"Your ship, the Golden Hind, is holed.   Return to dry land at once or it will   sink.":DA=DA+1
  900ENDPROC
  910DEFPROC_B
  920PRINTTAB(0,25)SPC(238)
  930ENDPROC
  940DEFPROC_NAMSHIP
  950PROC_B
  960IF RND(2)=1 THEN PRINTTAB(0,25)"You see a Spanish galleon, the Caca-"'"fuego. Are you going to attack it or "'"ignore it";:GOTO980
  970PRINTTAB(0,25)"You see a Spanish galleon, the Esprito  Santo. Are you going to attack it or"'"ignore it";
  980INPUT R$:IF INSTR(R$+"      ","ATTACK") <> 0 OR INSTR(R$+"      ","attack") <> 0 THEN R$="ATTACK":GOTO1010
  990IF INSTR(R$+"      ","IGNORE") <> 0 OR INSTR(R$+"      ","ignore") <> 0 THEN R$="IGNORE":GOTO1010
 1000VDU11:GOTO980
 1010IF R$="ATTACK" AND CA <= 0 THEN PROC_B:PRINTTAB(0,25)"You draw alongside the galleon and then find you have no cannon balls left so   the Spanish win the battle and leave youto die.":EN=1:GOTO1030
 1020IF R$="ATTACK" THEN PROC_B:PRINTTAB(0,25)"You fight a fierce battle and finally   take command of the galleon and transferits cargo to the hold of the Golden"'"Hind.":CA=CA+RND(20):BA=BA-RND(20):FORD=1TO100:NEXTD
 1030ENDPROC
 1040DEFPROC_SHIP
 1050PROC_B
 1060PRINTTAB(0,25)"You see a Spanish galleon. Are you goingto attack it or ignore it";
 1070INPUT R$:IF INSTR(R$+"      ","ATTACK") <> 0 OR INSTR(R$+"      ","attack") <> 0 THEN R$="ATTACK":GOTO1100
 1080IF INSTR(R$+"      ","IGNORE") <> 0 OR INSTR(R$+"      ","ignore") <> 0 THEN R$="IGNORE":GOTO1100
 1090VDU11:GOTO1070
 1100IF R$="IGNORE" THEN ENDPROC
 1110PROC_B
 1120PRINTTAB(0,25)"Are you going to fire your cannons at   the galleon, or set fire to some old    ships and let them drift towards it, or sneak up alongside it and board it?"
 1130INPUTR$:IF INSTR(R$+"      ","CANNON") <> 0 OR INSTR(R$+"      ","cannon") <> 0 THEN R$="CANNONS":GOTO1170
 1140IF INSTR(R$+"        ","SET FIRE") <> 0 OR INSTR(R$+"        ","set fire") THEN R$="SET FIRE":GOTO1170
 1150IF INSTR(R$+"     ","SNEAK") <> 0 OR INSTR(R$+"     ","sneak") THEN R$="SNEAK":GOTO1170
 1160VDU11:GOTO1130
 1170PROC_B
 1180IF R$ <> "CANNONS" THEN GOTO1210
 1190IF RND(2)=1 THEN PRINTTAB(0,25)"Your ship gets holed and some of your   crew are shot. Return to dry land at"'"once.":DA=DA+1:BA=BA-RND(20):CR=CR-RND(10):GOTO1290
 1200PRINTTAB(0,25)"As your ship is smaller and lower than  the galleon, you manage to put it out ofaction and board it without incurring   any damage to your ship.":CA=CA+RND(20):SU=SU+RND(20):BA=BA+RND(20):GOTO1290
 1210IF R$ <> "SET FIRE" THEN GOTO 1250
 1220PROC_B
 1230IF RND(2)=1 THEN PRINTTAB(0,25)"The wind changes direction and the"'"burning ships drift towards the Golden  Hind, setting the mizzen mast alight.   Return to dry land at once.":DA=DA+1:GOTO1290
 1240PRINTTAB(0,25)"The burning ships drift towards the"'"galleon, setting it alight. The captain surrenders and you transfer his cargo toyour hold.":CA=CA+RND(20):SU=SU+RND(20):BA=BA+RND(20):GOTO1290
 1250IF R$ <> "SNEAK" THEN GOTO1290
 1260PROC_B
 1270IF RND(2)=1 THEN PRINTTAB(0,25)"They see you approaching and, realising you are English, they open fire, shoot- ing some of your crew and damaging your boat. Return to port at once.":BA=BA-RND(20):DA=DA+1:CR=CR-RND(10):GOTO1290
 1280PRINTTAB(0,25)"They assume you are Spanish as English  ships have never been this far before,  so you manage to board the galleon and  capture it and its rich cargo.":CA=CA+RND(20):SU=SU+RND(20):BA=BA+RND(20)
 1290ENDPROC
 1300DEFPROC_TRADE
 1310PROC_B:PRINTTAB(0,25)"You buy cloves cheaply from the         islanders.":CA=CA+RND(20):SU=SU+RND(20)
 1320ENDPROC
 1330DEFPROC_HOSTILE
 1340PROC_B:PRINTTAB(0,25)"Hostile islanders pelt you with stones.":CR=CR-RND(20)
 1350ENDPROC
 1360DEFPROC_ISERT
 1370IF IS <> 10 THEN M$(Y)=LEFT$(M$(Y),X-1)+STR$(IS)+RIGHT$(M$(Y),31-X) ELSE M$(Y)=LEFT$(M$(Y),X-1)+"A"+RIGHT$(M$(Y),31-X)
 1380ENDPROC
 1390*FX4,0
 1400END

#� COPYRIGHT (C) G.LUDINSKI 1983
� M$(17)
(�129:�2
2AL=0
<	�tB@
FݤB(N$)
PTF=0
Z
� L=0 � 7
d  TF=TF+(2^L)*�(�N$,8-L,1))
n�L
x=TF
�%�23,128,16,90,91,82,87,254,126,62
��_B
�SH$=�(128)
�/LA$=�(136):RA$=�(137):DA$=�(138):UA$=�(139)
�,M$(1)=" 999999304500000079999999999000 "
�,M$(2)=" 999999300000000007999999995000 "
�,M$(3)=" 999999300000000000999951730000 "
�,M$(4)=" 999995000000000000779900030000 "
�,M$(5)=" 799500000000000000009900000000 "
�,M$(6)=" 099800300000000000007929000000 "
�,M$(7)=" 047900000000000000000119200000 "
�,M$(8)=" 048000020000000000000000702220 "
�,M$(9)=" 087006000000000000000000019999 "
-M$(10)=" 078069020000000000000000004999 "
-M$(11)=" 007099030822000000000000069999 "
-M$(12)=" 000220000079810000000000049999 "
"-M$(13)=" 000000010000000000000000009999 "
,-M$(14)=" 000000006908000000000000004999 "
6-M$(15)=" 0000006999890000000000000EEEEE "
@-M$(16)=" 0000069999998000000000000EEEEE "
J� Y=1 � 16
T  � X=2 � 31
^    C$=�M$(Y),X,1)
h    � C$="9" � �tPA
r-    � C$="0" � IS=�(7*�(1)):�_ISERT:�tPA
|%    � C$="E" � IS=4:�_ISERT:�tPA
�T    � (X > 4 � X < 15 � Y > 7 � Y < 14) � IS=�(2*�(1)+7):�_ISERT � IS=10:�_ISERT
�	  �:�
�(CA=100:SU=100:CR=85:BA=100:DA=0:WK=1
�EN=0
�X=29:Y=16:X1=29:Y1=16
�'� WK=1 � �129:�3:�X+4,Y);SH$;�(8);
�*FX 4,1
�S�0,20)"Week Cargo Supplies Crew Cannon Damage                           balls"
��0,23);�39," ");
�� X=1 � Y=16 � �0,25)"You have survived the unknown, and now  know you are the first commander of a   fleet to sail around the world.":� CA >= 400 � �"Arise Sir Francis":� �DnE
�� X=1 � Y=16 � EN=1
�7� (X=17 � Y=1) � (X=18 � Y=2) � (X=19 � Y=4) � AL=1
�8� X < 15 � AL=0 � �_B:�0,25)"Go back to New Albion"
k� SU <=0 � �_B:�0,25)"Your supplies have been used up so your crew mutinies, and kills you.":SU=0:EN=1
�� CR <=0 � �_B:�0,25)"Your crew have all been killed in battleor have died of scurvy, typhus or       dysentery. You're stranded without them.":CR=0:EN=1
M� DA > 10 � �_B:�0,25)"Your ship has filled with water and"'"sunk.":EN=1
&� BA < 0 � BA=0
0� EN=1 � � �DnE
:D�0,23);WK;�6,23);CA;�12,23);SU;�21,23);CR;�26,23);CA;�33,23);DA
DI$=�
N�_B
XR� (X=1 � I$=LA$) � (X=30 � I$=RA$) � (Y=1 � I$=UA$) � (Y=16 � I$=DA$) � � �DDB
bW� I$=LA$ � �M$(Y),X-1,1) <> "0" � �M$(Y),X-1,1) <> "9" � �M$(Y),X,1) <> "2" � X=X-1
lY� I$=RA$ � (�M$(Y),X+1,1) <> "2" � �M$(Y),X+1,1) <> "9" � �M$(Y),X,1) <> "0") � X=X+1
vY� I$=DA$ � (�M$(Y+1),X,1) <> "3" � �M$(Y+1),X,1) <> "9" � �M$(Y),X,1) <> "1") � Y=Y+1
�Y� I$=UA$ � (�M$(Y-1),X,1) <> "1" � �M$(Y-1),X,1) <> "9" � �M$(Y),X,1) <> "3") � Y=Y-1
�WK=WK+1
�� DA <> 0 � DA=DA+1
�SU=SU-1
��X1+4,Y1)".";
��3:�X+4,Y);SH$;�(8);
�8� X=X1 � Y=Y1 � WK <> 1 � � 0,-15,53,10:�_REEF:�TBC
�}� �M$(Y),X,1)="A" � DA <> 0 � DA=0:�_B:�0,25)"You have arrived at a port so you can   now get your ship repaired.":�TBC
�!� �M$(Y),X,1)="4" � �_B:�TBC
�!� �M$(Y),X,1)="5" � �_NAMSHIP
�� �M$(Y),X,1)="6" � �_SHIP
�� �M$(Y),X,1)="7" � �_TRADE
�!� �M$(Y),X,1)="8" � �_HOSTILE

X1=X:Y1=Y
	�dLA
��_REEF
 W=�(2*�(1))
*&� X < 15 � RR$="reef" � RR$="rock"
4�_B
>A� W=0 � �0,25)"There is a ";RR$;" ahead. Turn around.":�tDC
H��0,25)"You have run aground on a ";RR$;"."'"Are you going to throw cargo and guns   overboard, or put out an anchor to"'"windward";
Ra� R$:� �R$+"      ","OVERBOARD") <> 0 � �R$+"      ","overboard") <> 0 � R$="OVERBOARD":�DpC
\S� �R$+"      ","ANCHOR") <> 0 � �R$+"      ","anchor") <> 0 � R$="ANCHOR":�DpC
f� 11:�DRC
p(� R$="OVERBOARD" � CA=CA-�(20):�tDC
z�W2=�(2*�(1)):�_B:� W2=0 � �0,25)"You have broken free without any"'"significant damage." � �0,25)"Your ship, the Golden Hind, is holed.   Return to dry land at once or it will   sink.":DA=DA+1
��
���_B
��0,25)�(238)
��
���_NAMSHIP
��_B
�w� �(2)=1 � �0,25)"You see a Spanish galleon, the Caca-"'"fuego. Are you going to attack it or "'"ignore it";:�dTC
�f�0,25)"You see a Spanish galleon, the Esprito  Santo. Are you going to attack it or"'"ignore it";
�X� R$:� �R$+"      ","ATTACK") <> 0 � �R$+"      ","attack") <> 0 � R$="ATTACK":�drC
�S� �R$+"      ","IGNORE") <> 0 � �R$+"      ","ignore") <> 0 � R$="IGNORE":�drC
�
�11:�dTC
�� R$="ATTACK" � CA <= 0 � �_B:�0,25)"You draw alongside the galleon and then find you have no cannon balls left so   the Spanish win the battle and leave youto die.":EN=1:�TFD
��� R$="ATTACK" � �_B:�0,25)"You fight a fierce battle and finally   take command of the galleon and transferits cargo to the hold of the Golden"'"Hind.":CA=CA+�(20):BA=BA-�(20):�D=1�100:�D
�
��_SHIP
�_B
$O�0,25)"You see a Spanish galleon. Are you goingto attack it or ignore it";
.X� R$:� �R$+"      ","ATTACK") <> 0 � �R$+"      ","attack") <> 0 � R$="ATTACK":�DLD
8S� �R$+"      ","IGNORE") <> 0 � �R$+"      ","ignore") <> 0 � R$="IGNORE":�DLD
B
�11:�TnD
L� R$="IGNORE" � �
V�_B
`��0,25)"Are you going to fire your cannons at   the galleon, or set fire to some old    ships and let them drift towards it, or sneak up alongside it and board it?"
jX�R$:� �R$+"      ","CANNON") <> 0 � �R$+"      ","cannon") <> 0 � R$="CANNONS":�tRD
tX� �R$+"        ","SET FIRE") <> 0 � �R$+"        ","set fire") � R$="SET FIRE":�tRD
~I� �R$+"     ","SNEAK") <> 0 � �R$+"     ","sneak") � R$="SNEAK":�tRD
�
�11:�DjD
��_B
�� R$ <> "CANNONS" � �tzD
��� �(2)=1 � �0,25)"Your ship gets holed and some of your   crew are shot. Return to dry land at"'"once.":DA=DA+1:BA=BA-�(20):CR=CR-�(10):�TJE
���0,25)"As your ship is smaller and lower than  the galleon, you manage to put it out ofaction and board it without incurring   any damage to your ship.":CA=CA+�(20):SU=SU+�(20):BA=BA+�(20):�TJE
�� R$ <> "SET FIRE" � � �dbD
��_B
ζ� �(2)=1 � �0,25)"The wind changes direction and the"'"burning ships drift towards the Golden  Hind, setting the mizzen mast alight.   Return to dry land at once.":DA=DA+1:�TJE
ط�0,25)"The burning ships drift towards the"'"galleon, setting it alight. The captain surrenders and you transfer his cargo toyour hold.":CA=CA+�(20):SU=SU+�(20):BA=BA+�(20):�TJE
�� R$ <> "SNEAK" � �TJE
��_B
��� �(2)=1 � �0,25)"They see you approaching and, realising you are English, they open fire, shoot- ing some of your crew and damaging your boat. Return to port at once.":BA=BA-�(20):DA=DA+1:CR=CR-�(10):�TJE
��0,25)"They assume you are Spanish as English  ships have never been this far before,  so you manage to board the galleon and  capture it and its rich cargo.":CA=CA+�(20):SU=SU+�(20):BA=BA+�(20)

�
��_TRADE
[�_B:�0,25)"You buy cloves cheaply from the         islanders.":CA=CA+�(20):SU=SU+�(20)
(�
2��_HOSTILE
<D�_B:�0,25)"Hostile islanders pelt you with stones.":CR=CR-�(20)
F�
P��_ISERT
ZZ� IS <> 10 � M$(Y)=�M$(Y),X-1)+�(IS)+�M$(Y),31-X) � M$(Y)=�M$(Y),X-1)+"A"+�M$(Y),31-X)
d�
n
*FX4,0
x�
�
00000000  0d 00 14 23 f4 20 43 4f  50 59 52 49 47 48 54 20  |...#. COPYRIGHT |
00000010  28 43 29 20 47 2e 4c 55  44 49 4e 53 4b 49 20 31  |(C) G.LUDINSKI 1|
00000020  39 38 33 0d 00 1e 0c de  20 4d 24 28 31 37 29 0d  |983..... M$(17).|
00000030  00 28 0b fb 31 32 39 3a  fb 32 0d 00 32 08 41 4c  |.(..129:.2..2.AL|
00000040  3d 30 0d 00 3c 09 e5 8d  74 42 40 0d 00 46 0b dd  |=0..<...tB@..F..|
00000050  a4 42 28 4e 24 29 0d 00  50 08 54 46 3d 30 0d 00  |.B(N$)..P.TF=0..|
00000060  5a 0d e3 20 4c 3d 30 20  b8 20 37 0d 00 64 1f 20  |Z.. L=0 . 7..d. |
00000070  20 54 46 3d 54 46 2b 28  32 5e 4c 29 2a bb 28 c1  | TF=TF+(2^L)*.(.|
00000080  4e 24 2c 38 2d 4c 2c 31  29 29 0d 00 6e 06 ed 4c  |N$,8-L,1))..n..L|
00000090  0d 00 78 07 3d 54 46 0d  00 82 25 ef 32 33 2c 31  |..x.=TF...%.23,1|
000000a0  32 38 2c 31 36 2c 39 30  2c 39 31 2c 38 32 2c 38  |28,16,90,91,82,8|
000000b0  37 2c 32 35 34 2c 31 32  36 2c 36 32 0d 00 8c 07  |7,254,126,62....|
000000c0  f2 5f 42 0d 00 96 0e 53  48 24 3d bd 28 31 32 38  |._B....SH$=.(128|
000000d0  29 0d 00 a0 2f 4c 41 24  3d bd 28 31 33 36 29 3a  |).../LA$=.(136):|
000000e0  52 41 24 3d bd 28 31 33  37 29 3a 44 41 24 3d bd  |RA$=.(137):DA$=.|
000000f0  28 31 33 38 29 3a 55 41  24 3d bd 28 31 33 39 29  |(138):UA$=.(139)|
00000100  0d 00 aa 2c 4d 24 28 31  29 3d 22 20 39 39 39 39  |...,M$(1)=" 9999|
00000110  39 39 33 30 34 35 30 30  30 30 30 30 37 39 39 39  |9930450000007999|
00000120  39 39 39 39 39 39 39 30  30 30 20 22 0d 00 b4 2c  |9999999000 "...,|
00000130  4d 24 28 32 29 3d 22 20  39 39 39 39 39 39 33 30  |M$(2)=" 99999930|
00000140  30 30 30 30 30 30 30 30  30 37 39 39 39 39 39 39  |0000000007999999|
00000150  39 39 35 30 30 30 20 22  0d 00 be 2c 4d 24 28 33  |995000 "...,M$(3|
00000160  29 3d 22 20 39 39 39 39  39 39 33 30 30 30 30 30  |)=" 999999300000|
00000170  30 30 30 30 30 30 39 39  39 39 35 31 37 33 30 30  |0000009999517300|
00000180  30 30 20 22 0d 00 c8 2c  4d 24 28 34 29 3d 22 20  |00 "...,M$(4)=" |
00000190  39 39 39 39 39 35 30 30  30 30 30 30 30 30 30 30  |9999950000000000|
000001a0  30 30 37 37 39 39 30 30  30 33 30 30 30 30 20 22  |00779900030000 "|
000001b0  0d 00 d2 2c 4d 24 28 35  29 3d 22 20 37 39 39 35  |...,M$(5)=" 7995|
000001c0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
000001d0  39 39 30 30 30 30 30 30  30 30 20 22 0d 00 dc 2c  |9900000000 "...,|
000001e0  4d 24 28 36 29 3d 22 20  30 39 39 38 30 30 33 30  |M$(6)=" 09980030|
000001f0  30 30 30 30 30 30 30 30  30 30 30 30 37 39 32 39  |0000000000007929|
00000200  30 30 30 30 30 30 20 22  0d 00 e6 2c 4d 24 28 37  |000000 "...,M$(7|
00000210  29 3d 22 20 30 34 37 39  30 30 30 30 30 30 30 30  |)=" 047900000000|
00000220  30 30 30 30 30 30 30 30  30 31 31 39 32 30 30 30  |0000000001192000|
00000230  30 30 20 22 0d 00 f0 2c  4d 24 28 38 29 3d 22 20  |00 "...,M$(8)=" |
00000240  30 34 38 30 30 30 30 32  30 30 30 30 30 30 30 30  |0480000200000000|
00000250  30 30 30 30 30 30 30 30  37 30 32 32 32 30 20 22  |00000000702220 "|
00000260  0d 00 fa 2c 4d 24 28 39  29 3d 22 20 30 38 37 30  |...,M$(9)=" 0870|
00000270  30 36 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0600000000000000|
00000280  30 30 30 30 30 31 39 39  39 39 20 22 0d 01 04 2d  |0000019999 "...-|
00000290  4d 24 28 31 30 29 3d 22  20 30 37 38 30 36 39 30  |M$(10)=" 0780690|
000002a0  32 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |2000000000000000|
000002b0  30 30 30 34 39 39 39 20  22 0d 01 0e 2d 4d 24 28  |0004999 "...-M$(|
000002c0  31 31 29 3d 22 20 30 30  37 30 39 39 30 33 30 38  |11)=" 0070990308|
000002d0  32 32 30 30 30 30 30 30  30 30 30 30 30 30 30 36  |2200000000000006|
000002e0  39 39 39 39 20 22 0d 01  18 2d 4d 24 28 31 32 29  |9999 "...-M$(12)|
000002f0  3d 22 20 30 30 30 32 32  30 30 30 30 30 37 39 38  |=" 0002200000798|
00000300  31 30 30 30 30 30 30 30  30 30 30 30 34 39 39 39  |1000000000004999|
00000310  39 20 22 0d 01 22 2d 4d  24 28 31 33 29 3d 22 20  |9 ".."-M$(13)=" |
00000320  30 30 30 30 30 30 30 31  30 30 30 30 30 30 30 30  |0000000100000000|
00000330  30 30 30 30 30 30 30 30  30 30 39 39 39 39 20 22  |00000000009999 "|
00000340  0d 01 2c 2d 4d 24 28 31  34 29 3d 22 20 30 30 30  |..,-M$(14)=" 000|
00000350  30 30 30 30 30 36 39 30  38 30 30 30 30 30 30 30  |0000069080000000|
00000360  30 30 30 30 30 30 30 34  39 39 39 20 22 0d 01 36  |00000004999 "..6|
00000370  2d 4d 24 28 31 35 29 3d  22 20 30 30 30 30 30 30  |-M$(15)=" 000000|
00000380  36 39 39 39 38 39 30 30  30 30 30 30 30 30 30 30  |6999890000000000|
00000390  30 30 30 45 45 45 45 45  20 22 0d 01 40 2d 4d 24  |000EEEEE "..@-M$|
000003a0  28 31 36 29 3d 22 20 30  30 30 30 30 36 39 39 39  |(16)=" 000006999|
000003b0  39 39 39 38 30 30 30 30  30 30 30 30 30 30 30 30  |9998000000000000|
000003c0  45 45 45 45 45 20 22 0d  01 4a 0e e3 20 59 3d 31  |EEEEE "..J.. Y=1|
000003d0  20 b8 20 31 36 0d 01 54  10 20 20 e3 20 58 3d 32  | . 16..T.  . X=2|
000003e0  20 b8 20 33 31 0d 01 5e  16 20 20 20 20 43 24 3d  | . 31..^.    C$=|
000003f0  c1 4d 24 28 59 29 2c 58  2c 31 29 0d 01 68 18 20  |.M$(Y),X,1)..h. |
00000400  20 20 20 e7 20 43 24 3d  22 39 22 20 8c 20 e5 8d  |   . C$="9" . ..|
00000410  74 50 41 0d 01 72 2d 20  20 20 20 e7 20 43 24 3d  |tPA..r-    . C$=|
00000420  22 30 22 20 8c 20 49 53  3d a8 28 37 2a b3 28 31  |"0" . IS=.(7*.(1|
00000430  29 29 3a f2 5f 49 53 45  52 54 3a e5 8d 74 50 41  |)):._ISERT:..tPA|
00000440  0d 01 7c 25 20 20 20 20  e7 20 43 24 3d 22 45 22  |..|%    . C$="E"|
00000450  20 8c 20 49 53 3d 34 3a  f2 5f 49 53 45 52 54 3a  | . IS=4:._ISERT:|
00000460  e5 8d 74 50 41 0d 01 86  54 20 20 20 20 e7 20 28  |..tPA...T    . (|
00000470  58 20 3e 20 34 20 80 20  58 20 3c 20 31 35 20 80  |X > 4 . X < 15 .|
00000480  20 59 20 3e 20 37 20 80  20 59 20 3c 20 31 34 29  | Y > 7 . Y < 14)|
00000490  20 8c 20 49 53 3d a8 28  32 2a b3 28 31 29 2b 37  | . IS=.(2*.(1)+7|
000004a0  29 3a f2 5f 49 53 45 52  54 20 8b 20 49 53 3d 31  |):._ISERT . IS=1|
000004b0  30 3a f2 5f 49 53 45 52  54 0d 01 90 09 20 20 ed  |0:._ISERT....  .|
000004c0  3a ed 0d 01 9a 28 43 41  3d 31 30 30 3a 53 55 3d  |:....(CA=100:SU=|
000004d0  31 30 30 3a 43 52 3d 38  35 3a 42 41 3d 31 30 30  |100:CR=85:BA=100|
000004e0  3a 44 41 3d 30 3a 57 4b  3d 31 0d 01 a4 08 45 4e  |:DA=0:WK=1....EN|
000004f0  3d 30 0d 01 ae 19 58 3d  32 39 3a 59 3d 31 36 3a  |=0....X=29:Y=16:|
00000500  58 31 3d 32 39 3a 59 31  3d 31 36 0d 01 b8 27 e7  |X1=29:Y1=16...'.|
00000510  20 57 4b 3d 31 20 8c 20  fb 31 32 39 3a fb 33 3a  | WK=1 . .129:.3:|
00000520  f1 8a 58 2b 34 2c 59 29  3b 53 48 24 3b bd 28 38  |..X+4,Y);SH$;.(8|
00000530  29 3b 0d 01 c2 0b 2a 46  58 20 34 2c 31 0d 01 cc  |);....*FX 4,1...|
00000540  53 f1 8a 30 2c 32 30 29  22 57 65 65 6b 20 43 61  |S..0,20)"Week Ca|
00000550  72 67 6f 20 53 75 70 70  6c 69 65 73 20 43 72 65  |rgo Supplies Cre|
00000560  77 20 43 61 6e 6e 6f 6e  20 44 61 6d 61 67 65 20  |w Cannon Damage |
00000570  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000580  20 20 20 20 20 20 20 20  20 20 62 61 6c 6c 73 22  |          balls"|
00000590  0d 01 d6 15 f1 8a 30 2c  32 33 29 3b c4 33 39 2c  |......0,23);.39,|
000005a0  22 20 22 29 3b 0d 01 e0  b5 e7 20 58 3d 31 20 80  |" ");..... X=1 .|
000005b0  20 59 3d 31 36 20 8c 20  f1 8a 30 2c 32 35 29 22  | Y=16 . ..0,25)"|
000005c0  59 6f 75 20 68 61 76 65  20 73 75 72 76 69 76 65  |You have survive|
000005d0  64 20 74 68 65 20 75 6e  6b 6e 6f 77 6e 2c 20 61  |d the unknown, a|
000005e0  6e 64 20 6e 6f 77 20 20  6b 6e 6f 77 20 79 6f 75  |nd now  know you|
000005f0  20 61 72 65 20 74 68 65  20 66 69 72 73 74 20 63  | are the first c|
00000600  6f 6d 6d 61 6e 64 65 72  20 6f 66 20 61 20 20 20  |ommander of a   |
00000610  66 6c 65 65 74 20 74 6f  20 73 61 69 6c 20 61 72  |fleet to sail ar|
00000620  6f 75 6e 64 20 74 68 65  20 77 6f 72 6c 64 2e 22  |ound the world."|
00000630  3a e7 20 43 41 20 3e 3d  20 34 30 30 20 8c 20 f1  |:. CA >= 400 . .|
00000640  22 41 72 69 73 65 20 53  69 72 20 46 72 61 6e 63  |"Arise Sir Franc|
00000650  69 73 22 3a e5 20 8d 44  6e 45 0d 01 ea 17 e7 20  |is":. .DnE..... |
00000660  58 3d 31 20 80 20 59 3d  31 36 20 8c 20 45 4e 3d  |X=1 . Y=16 . EN=|
00000670  31 0d 01 f4 37 e7 20 28  58 3d 31 37 20 80 20 59  |1...7. (X=17 . Y|
00000680  3d 31 29 20 84 20 28 58  3d 31 38 20 80 20 59 3d  |=1) . (X=18 . Y=|
00000690  32 29 20 84 20 28 58 3d  31 39 20 80 20 59 3d 34  |2) . (X=19 . Y=4|
000006a0  29 20 8c 20 41 4c 3d 31  0d 01 fe 38 e7 20 58 20  |) . AL=1...8. X |
000006b0  3c 20 31 35 20 80 20 41  4c 3d 30 20 8c 20 f2 5f  |< 15 . AL=0 . ._|
000006c0  42 3a f1 8a 30 2c 32 35  29 22 47 6f 20 62 61 63  |B:..0,25)"Go bac|
000006d0  6b 20 74 6f 20 4e 65 77  20 41 6c 62 69 6f 6e 22  |k to New Albion"|
000006e0  0d 02 08 6b e7 20 53 55  20 3c 3d 30 20 8c 20 f2  |...k. SU <=0 . .|
000006f0  5f 42 3a f1 8a 30 2c 32  35 29 22 59 6f 75 72 20  |_B:..0,25)"Your |
00000700  73 75 70 70 6c 69 65 73  20 68 61 76 65 20 62 65  |supplies have be|
00000710  65 6e 20 75 73 65 64 20  75 70 20 73 6f 20 79 6f  |en used up so yo|
00000720  75 72 20 63 72 65 77 20  6d 75 74 69 6e 69 65 73  |ur crew mutinies|
00000730  2c 20 61 6e 64 20 6b 69  6c 6c 73 20 79 6f 75 2e  |, and kills you.|
00000740  22 3a 53 55 3d 30 3a 45  4e 3d 31 0d 02 12 9e e7  |":SU=0:EN=1.....|
00000750  20 43 52 20 3c 3d 30 20  8c 20 f2 5f 42 3a f1 8a  | CR <=0 . ._B:..|
00000760  30 2c 32 35 29 22 59 6f  75 72 20 63 72 65 77 20  |0,25)"Your crew |
00000770  68 61 76 65 20 61 6c 6c  20 62 65 65 6e 20 6b 69  |have all been ki|
00000780  6c 6c 65 64 20 69 6e 20  62 61 74 74 6c 65 6f 72  |lled in battleor|
00000790  20 68 61 76 65 20 64 69  65 64 20 6f 66 20 73 63  | have died of sc|
000007a0  75 72 76 79 2c 20 74 79  70 68 75 73 20 6f 72 20  |urvy, typhus or |
000007b0  20 20 20 20 20 20 64 79  73 65 6e 74 65 72 79 2e  |      dysentery.|
000007c0  20 59 6f 75 27 72 65 20  73 74 72 61 6e 64 65 64  | You're stranded|
000007d0  20 77 69 74 68 6f 75 74  20 74 68 65 6d 2e 22 3a  | without them.":|
000007e0  43 52 3d 30 3a 45 4e 3d  31 0d 02 1c 4d e7 20 44  |CR=0:EN=1...M. D|
000007f0  41 20 3e 20 31 30 20 8c  20 f2 5f 42 3a f1 8a 30  |A > 10 . ._B:..0|
00000800  2c 32 35 29 22 59 6f 75  72 20 73 68 69 70 20 68  |,25)"Your ship h|
00000810  61 73 20 66 69 6c 6c 65  64 20 77 69 74 68 20 77  |as filled with w|
00000820  61 74 65 72 20 61 6e 64  22 27 22 73 75 6e 6b 2e  |ater and"'"sunk.|
00000830  22 3a 45 4e 3d 31 0d 02  26 13 e7 20 42 41 20 3c  |":EN=1..&.. BA <|
00000840  20 30 20 8c 20 42 41 3d  30 0d 02 30 13 e7 20 45  | 0 . BA=0..0.. E|
00000850  4e 3d 31 20 8c 20 e5 20  8d 44 6e 45 0d 02 3a 44  |N=1 . . .DnE..:D|
00000860  f1 8a 30 2c 32 33 29 3b  57 4b 3b 8a 36 2c 32 33  |..0,23);WK;.6,23|
00000870  29 3b 43 41 3b 8a 31 32  2c 32 33 29 3b 53 55 3b  |);CA;.12,23);SU;|
00000880  8a 32 31 2c 32 33 29 3b  43 52 3b 8a 32 36 2c 32  |.21,23);CR;.26,2|
00000890  33 29 3b 43 41 3b 8a 33  33 2c 32 33 29 3b 44 41  |3);CA;.33,23);DA|
000008a0  0d 02 44 08 49 24 3d be  0d 02 4e 07 f2 5f 42 0d  |..D.I$=...N.._B.|
000008b0  02 58 52 e7 20 28 58 3d  31 20 80 20 49 24 3d 4c  |.XR. (X=1 . I$=L|
000008c0  41 24 29 20 84 20 28 58  3d 33 30 20 80 20 49 24  |A$) . (X=30 . I$|
000008d0  3d 52 41 24 29 20 84 20  28 59 3d 31 20 80 20 49  |=RA$) . (Y=1 . I|
000008e0  24 3d 55 41 24 29 20 84  20 28 59 3d 31 36 20 80  |$=UA$) . (Y=16 .|
000008f0  20 49 24 3d 44 41 24 29  20 8c 20 e5 20 8d 44 44  | I$=DA$) . . .DD|
00000900  42 0d 02 62 57 e7 20 49  24 3d 4c 41 24 20 80 20  |B..bW. I$=LA$ . |
00000910  c1 4d 24 28 59 29 2c 58  2d 31 2c 31 29 20 3c 3e  |.M$(Y),X-1,1) <>|
00000920  20 22 30 22 20 80 20 c1  4d 24 28 59 29 2c 58 2d  | "0" . .M$(Y),X-|
00000930  31 2c 31 29 20 3c 3e 20  22 39 22 20 80 20 c1 4d  |1,1) <> "9" . .M|
00000940  24 28 59 29 2c 58 2c 31  29 20 3c 3e 20 22 32 22  |$(Y),X,1) <> "2"|
00000950  20 8c 20 58 3d 58 2d 31  0d 02 6c 59 e7 20 49 24  | . X=X-1..lY. I$|
00000960  3d 52 41 24 20 80 20 28  c1 4d 24 28 59 29 2c 58  |=RA$ . (.M$(Y),X|
00000970  2b 31 2c 31 29 20 3c 3e  20 22 32 22 20 80 20 c1  |+1,1) <> "2" . .|
00000980  4d 24 28 59 29 2c 58 2b  31 2c 31 29 20 3c 3e 20  |M$(Y),X+1,1) <> |
00000990  22 39 22 20 80 20 c1 4d  24 28 59 29 2c 58 2c 31  |"9" . .M$(Y),X,1|
000009a0  29 20 3c 3e 20 22 30 22  29 20 8c 20 58 3d 58 2b  |) <> "0") . X=X+|
000009b0  31 0d 02 76 59 e7 20 49  24 3d 44 41 24 20 80 20  |1..vY. I$=DA$ . |
000009c0  28 c1 4d 24 28 59 2b 31  29 2c 58 2c 31 29 20 3c  |(.M$(Y+1),X,1) <|
000009d0  3e 20 22 33 22 20 80 20  c1 4d 24 28 59 2b 31 29  |> "3" . .M$(Y+1)|
000009e0  2c 58 2c 31 29 20 3c 3e  20 22 39 22 20 80 20 c1  |,X,1) <> "9" . .|
000009f0  4d 24 28 59 29 2c 58 2c  31 29 20 3c 3e 20 22 31  |M$(Y),X,1) <> "1|
00000a00  22 29 20 8c 20 59 3d 59  2b 31 0d 02 80 59 e7 20  |") . Y=Y+1...Y. |
00000a10  49 24 3d 55 41 24 20 80  20 28 c1 4d 24 28 59 2d  |I$=UA$ . (.M$(Y-|
00000a20  31 29 2c 58 2c 31 29 20  3c 3e 20 22 31 22 20 80  |1),X,1) <> "1" .|
00000a30  20 c1 4d 24 28 59 2d 31  29 2c 58 2c 31 29 20 3c  | .M$(Y-1),X,1) <|
00000a40  3e 20 22 39 22 20 80 20  c1 4d 24 28 59 29 2c 58  |> "9" . .M$(Y),X|
00000a50  2c 31 29 20 3c 3e 20 22  33 22 29 20 8c 20 59 3d  |,1) <> "3") . Y=|
00000a60  59 2d 31 0d 02 8a 0b 57  4b 3d 57 4b 2b 31 0d 02  |Y-1....WK=WK+1..|
00000a70  94 17 e7 20 44 41 20 3c  3e 20 30 20 8c 20 44 41  |... DA <> 0 . DA|
00000a80  3d 44 41 2b 31 0d 02 9e  0b 53 55 3d 53 55 2d 31  |=DA+1....SU=SU-1|
00000a90  0d 02 a8 12 f1 8a 58 31  2b 34 2c 59 31 29 22 2e  |......X1+4,Y1)".|
00000aa0  22 3b 0d 02 b2 19 fb 33  3a f1 8a 58 2b 34 2c 59  |";.....3:..X+4,Y|
00000ab0  29 3b 53 48 24 3b bd 28  38 29 3b 0d 02 bc 38 e7  |);SH$;.(8);...8.|
00000ac0  20 58 3d 58 31 20 80 20  59 3d 59 31 20 80 20 57  | X=X1 . Y=Y1 . W|
00000ad0  4b 20 3c 3e 20 31 20 8c  20 d4 20 30 2c 2d 31 35  |K <> 1 . . 0,-15|
00000ae0  2c 35 33 2c 31 30 3a f2  5f 52 45 45 46 3a e5 8d  |,53,10:._REEF:..|
00000af0  54 42 43 0d 02 c6 7d e7  20 c1 4d 24 28 59 29 2c  |TBC...}. .M$(Y),|
00000b00  58 2c 31 29 3d 22 41 22  20 80 20 44 41 20 3c 3e  |X,1)="A" . DA <>|
00000b10  20 30 20 8c 20 44 41 3d  30 3a f2 5f 42 3a f1 8a  | 0 . DA=0:._B:..|
00000b20  30 2c 32 35 29 22 59 6f  75 20 68 61 76 65 20 61  |0,25)"You have a|
00000b30  72 72 69 76 65 64 20 61  74 20 61 20 70 6f 72 74  |rrived at a port|
00000b40  20 73 6f 20 79 6f 75 20  63 61 6e 20 20 20 6e 6f  | so you can   no|
00000b50  77 20 67 65 74 20 79 6f  75 72 20 73 68 69 70 20  |w get your ship |
00000b60  72 65 70 61 69 72 65 64  2e 22 3a e5 8d 54 42 43  |repaired.":..TBC|
00000b70  0d 02 d0 21 e7 20 c1 4d  24 28 59 29 2c 58 2c 31  |...!. .M$(Y),X,1|
00000b80  29 3d 22 34 22 20 8c 20  f2 5f 42 3a e5 8d 54 42  |)="4" . ._B:..TB|
00000b90  43 0d 02 da 21 e7 20 c1  4d 24 28 59 29 2c 58 2c  |C...!. .M$(Y),X,|
00000ba0  31 29 3d 22 35 22 20 8c  20 f2 5f 4e 41 4d 53 48  |1)="5" . ._NAMSH|
00000bb0  49 50 0d 02 e4 1e e7 20  c1 4d 24 28 59 29 2c 58  |IP..... .M$(Y),X|
00000bc0  2c 31 29 3d 22 36 22 20  8c 20 f2 5f 53 48 49 50  |,1)="6" . ._SHIP|
00000bd0  0d 02 ee 1f e7 20 c1 4d  24 28 59 29 2c 58 2c 31  |..... .M$(Y),X,1|
00000be0  29 3d 22 37 22 20 8c 20  f2 5f 54 52 41 44 45 0d  |)="7" . ._TRADE.|
00000bf0  02 f8 21 e7 20 c1 4d 24  28 59 29 2c 58 2c 31 29  |..!. .M$(Y),X,1)|
00000c00  3d 22 38 22 20 8c 20 f2  5f 48 4f 53 54 49 4c 45  |="8" . ._HOSTILE|
00000c10  0d 03 02 0d 58 31 3d 58  3a 59 31 3d 59 0d 03 0c  |....X1=X:Y1=Y...|
00000c20  09 e5 8d 64 4c 41 0d 03  16 0b dd f2 5f 52 45 45  |...dLA......_REE|
00000c30  46 0d 03 20 0f 57 3d a8  28 32 2a b3 28 31 29 29  |F.. .W=.(2*.(1))|
00000c40  0d 03 2a 26 e7 20 58 20  3c 20 31 35 20 8c 20 52  |..*&. X < 15 . R|
00000c50  52 24 3d 22 72 65 65 66  22 20 8b 20 52 52 24 3d  |R$="reef" . RR$=|
00000c60  22 72 6f 63 6b 22 0d 03  34 07 f2 5f 42 0d 03 3e  |"rock"..4.._B..>|
00000c70  41 e7 20 57 3d 30 20 8c  20 f1 8a 30 2c 32 35 29  |A. W=0 . ..0,25)|
00000c80  22 54 68 65 72 65 20 69  73 20 61 20 22 3b 52 52  |"There is a ";RR|
00000c90  24 3b 22 20 61 68 65 61  64 2e 20 54 75 72 6e 20  |$;" ahead. Turn |
00000ca0  61 72 6f 75 6e 64 2e 22  3a e5 8d 74 44 43 0d 03  |around.":..tDC..|
00000cb0  48 88 f1 8a 30 2c 32 35  29 22 59 6f 75 20 68 61  |H...0,25)"You ha|
00000cc0  76 65 20 72 75 6e 20 61  67 72 6f 75 6e 64 20 6f  |ve run aground o|
00000cd0  6e 20 61 20 22 3b 52 52  24 3b 22 2e 22 27 22 41  |n a ";RR$;"."'"A|
00000ce0  72 65 20 79 6f 75 20 67  6f 69 6e 67 20 74 6f 20  |re you going to |
00000cf0  74 68 72 6f 77 20 63 61  72 67 6f 20 61 6e 64 20  |throw cargo and |
00000d00  67 75 6e 73 20 20 20 6f  76 65 72 62 6f 61 72 64  |guns   overboard|
00000d10  2c 20 6f 72 20 70 75 74  20 6f 75 74 20 61 6e 20  |, or put out an |
00000d20  61 6e 63 68 6f 72 20 74  6f 22 27 22 77 69 6e 64  |anchor to"'"wind|
00000d30  77 61 72 64 22 3b 0d 03  52 61 e8 20 52 24 3a e7  |ward";..Ra. R$:.|
00000d40  20 a7 52 24 2b 22 20 20  20 20 20 20 22 2c 22 4f  | .R$+"      ","O|
00000d50  56 45 52 42 4f 41 52 44  22 29 20 3c 3e 20 30 20  |VERBOARD") <> 0 |
00000d60  84 20 a7 52 24 2b 22 20  20 20 20 20 20 22 2c 22  |. .R$+"      ","|
00000d70  6f 76 65 72 62 6f 61 72  64 22 29 20 3c 3e 20 30  |overboard") <> 0|
00000d80  20 8c 20 52 24 3d 22 4f  56 45 52 42 4f 41 52 44  | . R$="OVERBOARD|
00000d90  22 3a e5 8d 44 70 43 0d  03 5c 53 e7 20 a7 52 24  |":..DpC..\S. .R$|
00000da0  2b 22 20 20 20 20 20 20  22 2c 22 41 4e 43 48 4f  |+"      ","ANCHO|
00000db0  52 22 29 20 3c 3e 20 30  20 84 20 a7 52 24 2b 22  |R") <> 0 . .R$+"|
00000dc0  20 20 20 20 20 20 22 2c  22 61 6e 63 68 6f 72 22  |      ","anchor"|
00000dd0  29 20 3c 3e 20 30 20 8c  20 52 24 3d 22 41 4e 43  |) <> 0 . R$="ANC|
00000de0  48 4f 52 22 3a e5 8d 44  70 43 0d 03 66 0e ef 20  |HOR":..DpC..f.. |
00000df0  31 31 3a e5 8d 44 52 43  0d 03 70 28 e7 20 52 24  |11:..DRC..p(. R$|
00000e00  3d 22 4f 56 45 52 42 4f  41 52 44 22 20 8c 20 43  |="OVERBOARD" . C|
00000e10  41 3d 43 41 2d b3 28 32  30 29 3a e5 8d 74 44 43  |A=CA-.(20):..tDC|
00000e20  0d 03 7a c6 57 32 3d a8  28 32 2a b3 28 31 29 29  |..z.W2=.(2*.(1))|
00000e30  3a f2 5f 42 3a e7 20 57  32 3d 30 20 8c 20 f1 8a  |:._B:. W2=0 . ..|
00000e40  30 2c 32 35 29 22 59 6f  75 20 68 61 76 65 20 62  |0,25)"You have b|
00000e50  72 6f 6b 65 6e 20 66 72  65 65 20 77 69 74 68 6f  |roken free witho|
00000e60  75 74 20 61 6e 79 22 27  22 73 69 67 6e 69 66 69  |ut any"'"signifi|
00000e70  63 61 6e 74 20 64 61 6d  61 67 65 2e 22 20 8b 20  |cant damage." . |
00000e80  f1 8a 30 2c 32 35 29 22  59 6f 75 72 20 73 68 69  |..0,25)"Your shi|
00000e90  70 2c 20 74 68 65 20 47  6f 6c 64 65 6e 20 48 69  |p, the Golden Hi|
00000ea0  6e 64 2c 20 69 73 20 68  6f 6c 65 64 2e 20 20 20  |nd, is holed.   |
00000eb0  52 65 74 75 72 6e 20 74  6f 20 64 72 79 20 6c 61  |Return to dry la|
00000ec0  6e 64 20 61 74 20 6f 6e  63 65 20 6f 72 20 69 74  |nd at once or it|
00000ed0  20 77 69 6c 6c 20 20 20  73 69 6e 6b 2e 22 3a 44  | will   sink.":D|
00000ee0  41 3d 44 41 2b 31 0d 03  84 05 e1 0d 03 8e 08 dd  |A=DA+1..........|
00000ef0  f2 5f 42 0d 03 98 11 f1  8a 30 2c 32 35 29 89 28  |._B......0,25).(|
00000f00  32 33 38 29 0d 03 a2 05  e1 0d 03 ac 0e dd f2 5f  |238)..........._|
00000f10  4e 41 4d 53 48 49 50 0d  03 b6 07 f2 5f 42 0d 03  |NAMSHIP....._B..|
00000f20  c0 77 e7 20 b3 28 32 29  3d 31 20 8c 20 f1 8a 30  |.w. .(2)=1 . ..0|
00000f30  2c 32 35 29 22 59 6f 75  20 73 65 65 20 61 20 53  |,25)"You see a S|
00000f40  70 61 6e 69 73 68 20 67  61 6c 6c 65 6f 6e 2c 20  |panish galleon, |
00000f50  74 68 65 20 43 61 63 61  2d 22 27 22 66 75 65 67  |the Caca-"'"fueg|
00000f60  6f 2e 20 41 72 65 20 79  6f 75 20 67 6f 69 6e 67  |o. Are you going|
00000f70  20 74 6f 20 61 74 74 61  63 6b 20 69 74 20 6f 72  | to attack it or|
00000f80  20 22 27 22 69 67 6e 6f  72 65 20 69 74 22 3b 3a  | "'"ignore it";:|
00000f90  e5 8d 64 54 43 0d 03 ca  66 f1 8a 30 2c 32 35 29  |..dTC...f..0,25)|
00000fa0  22 59 6f 75 20 73 65 65  20 61 20 53 70 61 6e 69  |"You see a Spani|
00000fb0  73 68 20 67 61 6c 6c 65  6f 6e 2c 20 74 68 65 20  |sh galleon, the |
00000fc0  45 73 70 72 69 74 6f 20  20 53 61 6e 74 6f 2e 20  |Esprito  Santo. |
00000fd0  41 72 65 20 79 6f 75 20  67 6f 69 6e 67 20 74 6f  |Are you going to|
00000fe0  20 61 74 74 61 63 6b 20  69 74 20 6f 72 22 27 22  | attack it or"'"|
00000ff0  69 67 6e 6f 72 65 20 69  74 22 3b 0d 03 d4 58 e8  |ignore it";...X.|
00001000  20 52 24 3a e7 20 a7 52  24 2b 22 20 20 20 20 20  | R$:. .R$+"     |
00001010  20 22 2c 22 41 54 54 41  43 4b 22 29 20 3c 3e 20  | ","ATTACK") <> |
00001020  30 20 84 20 a7 52 24 2b  22 20 20 20 20 20 20 22  |0 . .R$+"      "|
00001030  2c 22 61 74 74 61 63 6b  22 29 20 3c 3e 20 30 20  |,"attack") <> 0 |
00001040  8c 20 52 24 3d 22 41 54  54 41 43 4b 22 3a e5 8d  |. R$="ATTACK":..|
00001050  64 72 43 0d 03 de 53 e7  20 a7 52 24 2b 22 20 20  |drC...S. .R$+"  |
00001060  20 20 20 20 22 2c 22 49  47 4e 4f 52 45 22 29 20  |    ","IGNORE") |
00001070  3c 3e 20 30 20 84 20 a7  52 24 2b 22 20 20 20 20  |<> 0 . .R$+"    |
00001080  20 20 22 2c 22 69 67 6e  6f 72 65 22 29 20 3c 3e  |  ","ignore") <>|
00001090  20 30 20 8c 20 52 24 3d  22 49 47 4e 4f 52 45 22  | 0 . R$="IGNORE"|
000010a0  3a e5 8d 64 72 43 0d 03  e8 0d ef 31 31 3a e5 8d  |:..drC.....11:..|
000010b0  64 54 43 0d 03 f2 b5 e7  20 52 24 3d 22 41 54 54  |dTC..... R$="ATT|
000010c0  41 43 4b 22 20 80 20 43  41 20 3c 3d 20 30 20 8c  |ACK" . CA <= 0 .|
000010d0  20 f2 5f 42 3a f1 8a 30  2c 32 35 29 22 59 6f 75  | ._B:..0,25)"You|
000010e0  20 64 72 61 77 20 61 6c  6f 6e 67 73 69 64 65 20  | draw alongside |
000010f0  74 68 65 20 67 61 6c 6c  65 6f 6e 20 61 6e 64 20  |the galleon and |
00001100  74 68 65 6e 20 66 69 6e  64 20 79 6f 75 20 68 61  |then find you ha|
00001110  76 65 20 6e 6f 20 63 61  6e 6e 6f 6e 20 62 61 6c  |ve no cannon bal|
00001120  6c 73 20 6c 65 66 74 20  73 6f 20 20 20 74 68 65  |ls left so   the|
00001130  20 53 70 61 6e 69 73 68  20 77 69 6e 20 74 68 65  | Spanish win the|
00001140  20 62 61 74 74 6c 65 20  61 6e 64 20 6c 65 61 76  | battle and leav|
00001150  65 20 79 6f 75 74 6f 20  64 69 65 2e 22 3a 45 4e  |e youto die.":EN|
00001160  3d 31 3a e5 8d 54 46 44  0d 03 fc c0 e7 20 52 24  |=1:..TFD..... R$|
00001170  3d 22 41 54 54 41 43 4b  22 20 8c 20 f2 5f 42 3a  |="ATTACK" . ._B:|
00001180  f1 8a 30 2c 32 35 29 22  59 6f 75 20 66 69 67 68  |..0,25)"You figh|
00001190  74 20 61 20 66 69 65 72  63 65 20 62 61 74 74 6c  |t a fierce battl|
000011a0  65 20 61 6e 64 20 66 69  6e 61 6c 6c 79 20 20 20  |e and finally   |
000011b0  74 61 6b 65 20 63 6f 6d  6d 61 6e 64 20 6f 66 20  |take command of |
000011c0  74 68 65 20 67 61 6c 6c  65 6f 6e 20 61 6e 64 20  |the galleon and |
000011d0  74 72 61 6e 73 66 65 72  69 74 73 20 63 61 72 67  |transferits carg|
000011e0  6f 20 74 6f 20 74 68 65  20 68 6f 6c 64 20 6f 66  |o to the hold of|
000011f0  20 74 68 65 20 47 6f 6c  64 65 6e 22 27 22 48 69  | the Golden"'"Hi|
00001200  6e 64 2e 22 3a 43 41 3d  43 41 2b b3 28 32 30 29  |nd.":CA=CA+.(20)|
00001210  3a 42 41 3d 42 41 2d b3  28 32 30 29 3a e3 44 3d  |:BA=BA-.(20):.D=|
00001220  31 b8 31 30 30 3a ed 44  0d 04 06 05 e1 0d 04 10  |1.100:.D........|
00001230  0b dd f2 5f 53 48 49 50  0d 04 1a 07 f2 5f 42 0d  |..._SHIP....._B.|
00001240  04 24 4f f1 8a 30 2c 32  35 29 22 59 6f 75 20 73  |.$O..0,25)"You s|
00001250  65 65 20 61 20 53 70 61  6e 69 73 68 20 67 61 6c  |ee a Spanish gal|
00001260  6c 65 6f 6e 2e 20 41 72  65 20 79 6f 75 20 67 6f  |leon. Are you go|
00001270  69 6e 67 74 6f 20 61 74  74 61 63 6b 20 69 74 20  |ingto attack it |
00001280  6f 72 20 69 67 6e 6f 72  65 20 69 74 22 3b 0d 04  |or ignore it";..|
00001290  2e 58 e8 20 52 24 3a e7  20 a7 52 24 2b 22 20 20  |.X. R$:. .R$+"  |
000012a0  20 20 20 20 22 2c 22 41  54 54 41 43 4b 22 29 20  |    ","ATTACK") |
000012b0  3c 3e 20 30 20 84 20 a7  52 24 2b 22 20 20 20 20  |<> 0 . .R$+"    |
000012c0  20 20 22 2c 22 61 74 74  61 63 6b 22 29 20 3c 3e  |  ","attack") <>|
000012d0  20 30 20 8c 20 52 24 3d  22 41 54 54 41 43 4b 22  | 0 . R$="ATTACK"|
000012e0  3a e5 8d 44 4c 44 0d 04  38 53 e7 20 a7 52 24 2b  |:..DLD..8S. .R$+|
000012f0  22 20 20 20 20 20 20 22  2c 22 49 47 4e 4f 52 45  |"      ","IGNORE|
00001300  22 29 20 3c 3e 20 30 20  84 20 a7 52 24 2b 22 20  |") <> 0 . .R$+" |
00001310  20 20 20 20 20 22 2c 22  69 67 6e 6f 72 65 22 29  |     ","ignore")|
00001320  20 3c 3e 20 30 20 8c 20  52 24 3d 22 49 47 4e 4f  | <> 0 . R$="IGNO|
00001330  52 45 22 3a e5 8d 44 4c  44 0d 04 42 0d ef 31 31  |RE":..DLD..B..11|
00001340  3a e5 8d 54 6e 44 0d 04  4c 15 e7 20 52 24 3d 22  |:..TnD..L.. R$="|
00001350  49 47 4e 4f 52 45 22 20  8c 20 e1 0d 04 56 07 f2  |IGNORE" . ...V..|
00001360  5f 42 0d 04 60 a8 f1 8a  30 2c 32 35 29 22 41 72  |_B..`...0,25)"Ar|
00001370  65 20 79 6f 75 20 67 6f  69 6e 67 20 74 6f 20 66  |e you going to f|
00001380  69 72 65 20 79 6f 75 72  20 63 61 6e 6e 6f 6e 73  |ire your cannons|
00001390  20 61 74 20 20 20 74 68  65 20 67 61 6c 6c 65 6f  | at   the galleo|
000013a0  6e 2c 20 6f 72 20 73 65  74 20 66 69 72 65 20 74  |n, or set fire t|
000013b0  6f 20 73 6f 6d 65 20 6f  6c 64 20 20 20 20 73 68  |o some old    sh|
000013c0  69 70 73 20 61 6e 64 20  6c 65 74 20 74 68 65 6d  |ips and let them|
000013d0  20 64 72 69 66 74 20 74  6f 77 61 72 64 73 20 69  | drift towards i|
000013e0  74 2c 20 6f 72 20 73 6e  65 61 6b 20 75 70 20 61  |t, or sneak up a|
000013f0  6c 6f 6e 67 73 69 64 65  20 69 74 20 61 6e 64 20  |longside it and |
00001400  62 6f 61 72 64 20 69 74  3f 22 0d 04 6a 58 e8 52  |board it?"..jX.R|
00001410  24 3a e7 20 a7 52 24 2b  22 20 20 20 20 20 20 22  |$:. .R$+"      "|
00001420  2c 22 43 41 4e 4e 4f 4e  22 29 20 3c 3e 20 30 20  |,"CANNON") <> 0 |
00001430  84 20 a7 52 24 2b 22 20  20 20 20 20 20 22 2c 22  |. .R$+"      ","|
00001440  63 61 6e 6e 6f 6e 22 29  20 3c 3e 20 30 20 8c 20  |cannon") <> 0 . |
00001450  52 24 3d 22 43 41 4e 4e  4f 4e 53 22 3a e5 8d 74  |R$="CANNONS":..t|
00001460  52 44 0d 04 74 58 e7 20  a7 52 24 2b 22 20 20 20  |RD..tX. .R$+"   |
00001470  20 20 20 20 20 22 2c 22  53 45 54 20 46 49 52 45  |     ","SET FIRE|
00001480  22 29 20 3c 3e 20 30 20  84 20 a7 52 24 2b 22 20  |") <> 0 . .R$+" |
00001490  20 20 20 20 20 20 20 22  2c 22 73 65 74 20 66 69  |       ","set fi|
000014a0  72 65 22 29 20 8c 20 52  24 3d 22 53 45 54 20 46  |re") . R$="SET F|
000014b0  49 52 45 22 3a e5 8d 74  52 44 0d 04 7e 49 e7 20  |IRE":..tRD..~I. |
000014c0  a7 52 24 2b 22 20 20 20  20 20 22 2c 22 53 4e 45  |.R$+"     ","SNE|
000014d0  41 4b 22 29 20 3c 3e 20  30 20 84 20 a7 52 24 2b  |AK") <> 0 . .R$+|
000014e0  22 20 20 20 20 20 22 2c  22 73 6e 65 61 6b 22 29  |"     ","sneak")|
000014f0  20 8c 20 52 24 3d 22 53  4e 45 41 4b 22 3a e5 8d  | . R$="SNEAK":..|
00001500  74 52 44 0d 04 88 0d ef  31 31 3a e5 8d 44 6a 44  |tRD.....11:..DjD|
00001510  0d 04 92 07 f2 5f 42 0d  04 9c 1d e7 20 52 24 20  |....._B..... R$ |
00001520  3c 3e 20 22 43 41 4e 4e  4f 4e 53 22 20 8c 20 e5  |<> "CANNONS" . .|
00001530  8d 74 7a 44 0d 04 a6 92  e7 20 b3 28 32 29 3d 31  |.tzD..... .(2)=1|
00001540  20 8c 20 f1 8a 30 2c 32  35 29 22 59 6f 75 72 20  | . ..0,25)"Your |
00001550  73 68 69 70 20 67 65 74  73 20 68 6f 6c 65 64 20  |ship gets holed |
00001560  61 6e 64 20 73 6f 6d 65  20 6f 66 20 79 6f 75 72  |and some of your|
00001570  20 20 20 63 72 65 77 20  61 72 65 20 73 68 6f 74  |   crew are shot|
00001580  2e 20 52 65 74 75 72 6e  20 74 6f 20 64 72 79 20  |. Return to dry |
00001590  6c 61 6e 64 20 61 74 22  27 22 6f 6e 63 65 2e 22  |land at"'"once."|
000015a0  3a 44 41 3d 44 41 2b 31  3a 42 41 3d 42 41 2d b3  |:DA=DA+1:BA=BA-.|
000015b0  28 32 30 29 3a 43 52 3d  43 52 2d b3 28 31 30 29  |(20):CR=CR-.(10)|
000015c0  3a e5 8d 54 4a 45 0d 04  b0 c7 f1 8a 30 2c 32 35  |:..TJE......0,25|
000015d0  29 22 41 73 20 79 6f 75  72 20 73 68 69 70 20 69  |)"As your ship i|
000015e0  73 20 73 6d 61 6c 6c 65  72 20 61 6e 64 20 6c 6f  |s smaller and lo|
000015f0  77 65 72 20 74 68 61 6e  20 20 74 68 65 20 67 61  |wer than  the ga|
00001600  6c 6c 65 6f 6e 2c 20 79  6f 75 20 6d 61 6e 61 67  |lleon, you manag|
00001610  65 20 74 6f 20 70 75 74  20 69 74 20 6f 75 74 20  |e to put it out |
00001620  6f 66 61 63 74 69 6f 6e  20 61 6e 64 20 62 6f 61  |ofaction and boa|
00001630  72 64 20 69 74 20 77 69  74 68 6f 75 74 20 69 6e  |rd it without in|
00001640  63 75 72 72 69 6e 67 20  20 20 61 6e 79 20 64 61  |curring   any da|
00001650  6d 61 67 65 20 74 6f 20  79 6f 75 72 20 73 68 69  |mage to your shi|
00001660  70 2e 22 3a 43 41 3d 43  41 2b b3 28 32 30 29 3a  |p.":CA=CA+.(20):|
00001670  53 55 3d 53 55 2b b3 28  32 30 29 3a 42 41 3d 42  |SU=SU+.(20):BA=B|
00001680  41 2b b3 28 32 30 29 3a  e5 8d 54 4a 45 0d 04 ba  |A+.(20):..TJE...|
00001690  1f e7 20 52 24 20 3c 3e  20 22 53 45 54 20 46 49  |.. R$ <> "SET FI|
000016a0  52 45 22 20 8c 20 e5 20  8d 64 62 44 0d 04 c4 07  |RE" . . .dbD....|
000016b0  f2 5f 42 0d 04 ce b6 e7  20 b3 28 32 29 3d 31 20  |._B..... .(2)=1 |
000016c0  8c 20 f1 8a 30 2c 32 35  29 22 54 68 65 20 77 69  |. ..0,25)"The wi|
000016d0  6e 64 20 63 68 61 6e 67  65 73 20 64 69 72 65 63  |nd changes direc|
000016e0  74 69 6f 6e 20 61 6e 64  20 74 68 65 22 27 22 62  |tion and the"'"b|
000016f0  75 72 6e 69 6e 67 20 73  68 69 70 73 20 64 72 69  |urning ships dri|
00001700  66 74 20 74 6f 77 61 72  64 73 20 74 68 65 20 47  |ft towards the G|
00001710  6f 6c 64 65 6e 20 20 48  69 6e 64 2c 20 73 65 74  |olden  Hind, set|
00001720  74 69 6e 67 20 74 68 65  20 6d 69 7a 7a 65 6e 20  |ting the mizzen |
00001730  6d 61 73 74 20 61 6c 69  67 68 74 2e 20 20 20 52  |mast alight.   R|
00001740  65 74 75 72 6e 20 74 6f  20 64 72 79 20 6c 61 6e  |eturn to dry lan|
00001750  64 20 61 74 20 6f 6e 63  65 2e 22 3a 44 41 3d 44  |d at once.":DA=D|
00001760  41 2b 31 3a e5 8d 54 4a  45 0d 04 d8 b7 f1 8a 30  |A+1:..TJE......0|
00001770  2c 32 35 29 22 54 68 65  20 62 75 72 6e 69 6e 67  |,25)"The burning|
00001780  20 73 68 69 70 73 20 64  72 69 66 74 20 74 6f 77  | ships drift tow|
00001790  61 72 64 73 20 74 68 65  22 27 22 67 61 6c 6c 65  |ards the"'"galle|
000017a0  6f 6e 2c 20 73 65 74 74  69 6e 67 20 69 74 20 61  |on, setting it a|
000017b0  6c 69 67 68 74 2e 20 54  68 65 20 63 61 70 74 61  |light. The capta|
000017c0  69 6e 20 73 75 72 72 65  6e 64 65 72 73 20 61 6e  |in surrenders an|
000017d0  64 20 79 6f 75 20 74 72  61 6e 73 66 65 72 20 68  |d you transfer h|
000017e0  69 73 20 63 61 72 67 6f  20 74 6f 79 6f 75 72 20  |is cargo toyour |
000017f0  68 6f 6c 64 2e 22 3a 43  41 3d 43 41 2b b3 28 32  |hold.":CA=CA+.(2|
00001800  30 29 3a 53 55 3d 53 55  2b b3 28 32 30 29 3a 42  |0):SU=SU+.(20):B|
00001810  41 3d 42 41 2b b3 28 32  30 29 3a e5 8d 54 4a 45  |A=BA+.(20):..TJE|
00001820  0d 04 e2 1b e7 20 52 24  20 3c 3e 20 22 53 4e 45  |..... R$ <> "SNE|
00001830  41 4b 22 20 8c 20 e5 8d  54 4a 45 0d 04 ec 07 f2  |AK" . ..TJE.....|
00001840  5f 42 0d 04 f6 d3 e7 20  b3 28 32 29 3d 31 20 8c  |_B..... .(2)=1 .|
00001850  20 f1 8a 30 2c 32 35 29  22 54 68 65 79 20 73 65  | ..0,25)"They se|
00001860  65 20 79 6f 75 20 61 70  70 72 6f 61 63 68 69 6e  |e you approachin|
00001870  67 20 61 6e 64 2c 20 72  65 61 6c 69 73 69 6e 67  |g and, realising|
00001880  20 79 6f 75 20 61 72 65  20 45 6e 67 6c 69 73 68  | you are English|
00001890  2c 20 74 68 65 79 20 6f  70 65 6e 20 66 69 72 65  |, they open fire|
000018a0  2c 20 73 68 6f 6f 74 2d  20 69 6e 67 20 73 6f 6d  |, shoot- ing som|
000018b0  65 20 6f 66 20 79 6f 75  72 20 63 72 65 77 20 61  |e of your crew a|
000018c0  6e 64 20 64 61 6d 61 67  69 6e 67 20 79 6f 75 72  |nd damaging your|
000018d0  20 62 6f 61 74 2e 20 52  65 74 75 72 6e 20 74 6f  | boat. Return to|
000018e0  20 70 6f 72 74 20 61 74  20 6f 6e 63 65 2e 22 3a  | port at once.":|
000018f0  42 41 3d 42 41 2d b3 28  32 30 29 3a 44 41 3d 44  |BA=BA-.(20):DA=D|
00001900  41 2b 31 3a 43 52 3d 43  52 2d b3 28 31 30 29 3a  |A+1:CR=CR-.(10):|
00001910  e5 8d 54 4a 45 0d 05 00  c7 f1 8a 30 2c 32 35 29  |..TJE......0,25)|
00001920  22 54 68 65 79 20 61 73  73 75 6d 65 20 79 6f 75  |"They assume you|
00001930  20 61 72 65 20 53 70 61  6e 69 73 68 20 61 73 20  | are Spanish as |
00001940  45 6e 67 6c 69 73 68 20  20 73 68 69 70 73 20 68  |English  ships h|
00001950  61 76 65 20 6e 65 76 65  72 20 62 65 65 6e 20 74  |ave never been t|
00001960  68 69 73 20 66 61 72 20  62 65 66 6f 72 65 2c 20  |his far before, |
00001970  20 73 6f 20 79 6f 75 20  6d 61 6e 61 67 65 20 74  | so you manage t|
00001980  6f 20 62 6f 61 72 64 20  74 68 65 20 67 61 6c 6c  |o board the gall|
00001990  65 6f 6e 20 61 6e 64 20  20 63 61 70 74 75 72 65  |eon and  capture|
000019a0  20 69 74 20 61 6e 64 20  69 74 73 20 72 69 63 68  | it and its rich|
000019b0  20 63 61 72 67 6f 2e 22  3a 43 41 3d 43 41 2b b3  | cargo.":CA=CA+.|
000019c0  28 32 30 29 3a 53 55 3d  53 55 2b b3 28 32 30 29  |(20):SU=SU+.(20)|
000019d0  3a 42 41 3d 42 41 2b b3  28 32 30 29 0d 05 0a 05  |:BA=BA+.(20)....|
000019e0  e1 0d 05 14 0c dd f2 5f  54 52 41 44 45 0d 05 1e  |......._TRADE...|
000019f0  5b f2 5f 42 3a f1 8a 30  2c 32 35 29 22 59 6f 75  |[._B:..0,25)"You|
00001a00  20 62 75 79 20 63 6c 6f  76 65 73 20 63 68 65 61  | buy cloves chea|
00001a10  70 6c 79 20 66 72 6f 6d  20 74 68 65 20 20 20 20  |ply from the    |
00001a20  20 20 20 20 20 69 73 6c  61 6e 64 65 72 73 2e 22  |     islanders."|
00001a30  3a 43 41 3d 43 41 2b b3  28 32 30 29 3a 53 55 3d  |:CA=CA+.(20):SU=|
00001a40  53 55 2b b3 28 32 30 29  0d 05 28 05 e1 0d 05 32  |SU+.(20)..(....2|
00001a50  0e dd f2 5f 48 4f 53 54  49 4c 45 0d 05 3c 44 f2  |..._HOSTILE..<D.|
00001a60  5f 42 3a f1 8a 30 2c 32  35 29 22 48 6f 73 74 69  |_B:..0,25)"Hosti|
00001a70  6c 65 20 69 73 6c 61 6e  64 65 72 73 20 70 65 6c  |le islanders pel|
00001a80  74 20 79 6f 75 20 77 69  74 68 20 73 74 6f 6e 65  |t you with stone|
00001a90  73 2e 22 3a 43 52 3d 43  52 2d b3 28 32 30 29 0d  |s.":CR=CR-.(20).|
00001aa0  05 46 05 e1 0d 05 50 0c  dd f2 5f 49 53 45 52 54  |.F....P..._ISERT|
00001ab0  0d 05 5a 5a e7 20 49 53  20 3c 3e 20 31 30 20 8c  |..ZZ. IS <> 10 .|
00001ac0  20 4d 24 28 59 29 3d c0  4d 24 28 59 29 2c 58 2d  | M$(Y)=.M$(Y),X-|
00001ad0  31 29 2b c3 28 49 53 29  2b c2 4d 24 28 59 29 2c  |1)+.(IS)+.M$(Y),|
00001ae0  33 31 2d 58 29 20 8b 20  4d 24 28 59 29 3d c0 4d  |31-X) . M$(Y)=.M|
00001af0  24 28 59 29 2c 58 2d 31  29 2b 22 41 22 2b c2 4d  |$(Y),X-1)+"A"+.M|
00001b00  24 28 59 29 2c 33 31 2d  58 29 0d 05 64 05 e1 0d  |$(Y),31-X)..d...|
00001b10  05 6e 0a 2a 46 58 34 2c  30 0d 05 78 05 e0 0d ff  |.n.*FX4,0..x....|
00001b20
U/DRAKE2.m0
U/DRAKE2.m1
U/DRAKE2.m2
U/DRAKE2.m4
U/DRAKE2.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .