Home » CEEFAX disks » telesoftware9.adl » 18-09-88/COMMAND

18-09-88/COMMAND

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 » CEEFAX disks » telesoftware9.adl
Filename: 18-09-88/COMMAND
Read OK: ✔
File size: 1C0B bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10REM **** Harbour  Command ****
   20REM ****   by  G.J. Key   ****
   30REM ****  (C) Micro User  ****
   40IFPAGE>&1100PROCrelocate
   50PROCinit
   60MODE2:PROCtitle
   70MODE7:PROCask
   80ONERRORMODE7:PROCask
   90REPEAT
  100MODE2
  110PROCvari
  120PROCmusic
  130PROCgame
  140PROCmusic
  150MODE7
  160PROCend
  170UNTILFALSE
 1000DEFPROCgame
 1010SOUND1,0,0,0:SOUND1,2,100,0
 1020REPEAT
 1030FORV%=FALSE TOL%
 1040IFD%PROCfire
 1050IFp%(V%)PROCwhere
 1060PROCmove(V%)
 1070NEXT
 1080IFL%<l%ANDSC%>sc%L%=l%:l%=(l%+1)AND2:sc%=sc%*2:m%=1+(32-M%*l%)DIV3
 1090UNTILF%<FALSE
 1100ENDPROC
 2000DEFPROCmove(V%)
 2010IFG%SOUND&10,1,4,10:VDU19,4,H%;FALSE;:G%=G%+TRUE:H%=H%EOR5:IFG%=FALSE GCOLFALSE,2:MOVESX%(F%)+RND(64),SY%(F%):VDU252:IF(TIME AND3)>FALSE GCOLFALSE,4:MOVESX%(F%),SY%(F%):VDU251,251:F%=F%+TRUE
 2020IFADVAL-5SOUNDFALSE,-16+c%(V%)DIV2,3,1
 2030IFJ%PROCjoy ELSEPROCkey
 2040IFx%<>mx%ORy%<>my%:GCOL3,3:MOVEmx%,my%:VDUI%:MOVEx%,y%:VDUI%:mx%=x%:my%=y%
 2050IFNOTp%(V%)ANDw%(V%)<0PROCplane
 2060IFc%(V%)=8ANDABSh%(V%)<4ANDG%=FALSE SOUND&12,3,255,10:G%=8:H%=1
 2070w%(V%)=w%(V%)-m%
 2080ENDPROC
 3000DEFPROCjoy
 3010x%=Z%-ADVAL1DIV268*5
 3020y%=ADVAL2DIV256*4
 3030IFNOTD%ANDADVAL0AND1 PROCdecide
 3040ENDPROC
 4000DEFPROCkey
 4010IFINKEY(-103)x%=x%-16
 4020IFINKEY(-104)x%=x%+16
 4030IFINKEY(-66)y%=y%+8
 4040IFINKEY(-98)y%=y%-8
 4050IFNOTD%ANDINKEY(-99)PROCdecide
 4060ENDPROC
 5000DEFPROCwhere
 5010x%(V%)=RND(800)+120
 5020y%(V%)=RND(300)+700
 5030s%(V%)=244:c%(V%)=32:p%(V%)=FALSE:h%(V%)=(RND(3)-2)*RND(4):w%(V%)=32
 5040GCOL3,13+V%
 5050MOVEx%(V%),y%(V%):VDUs%(V%),s%(V%)+1
 5060ENDPROC
 6000DEFPROCplane
 6010GCOL3,13+V%
 6020MOVEx%(V%),y%(V%):VDUs%(V%),s%(V%)+1
 6030c%(V%)=c%(V%)+TRUE:IFc%(V%)<FALSE c%(V%)=FALSE
 6040IFc%(V%)MOD4=FALSE ANDs%(V%)>230s%(V%)=s%(V%)-2
 6050IFc%(V%)>8y%(V%)=y%(V%)-8ELSEy%(V%)=y%(V%)+24:IFy%(V%)>1024 p%(V%)=TRUE:ENDPROC
 6060x%(V%)=x%(V%)+h%(V%):h%(V%)=h%(V%)+h%(V%)/4
 6070MOVEx%(V%),y%(V%):VDUs%(V%),s%(V%)+1
 6080w%(V%)=c%(V%)
 6090ENDPROC
 7000DEFPROCdecide
 7010D%=TRUE:X%=640:Y%=FALSE:B%=224
 7020C%=15
 7030XS%=(x%-X%)DIVC%
 7040YS%=y%DIVC%
 7050GCOL3,7:MOVEX%,Y%:VDUB%
 7060GCOL3,3
 7070SOUND&10,1,6,10
 7080ENDPROC
 8000DEFPROCfire
 8010GCOL3,7:MOVEX%,Y%:VDUB%
 8020C%=C%+TRUE:X%=X%+XS%:Y%=Y%+YS%
 8030IFC%=FALSE PROCpeek:D%=FALSE:ENDPROC
 8040IFC%MOD3=FALSE B%=B%+1
 8050MOVEX%,Y%:VDUB%
 8060ENDPROC
 9000DEFPROCbang(V%)
 9010GCOL3,3:MOVEx%,y%:VDU229
 9020LOCALa%,b%,c%
 9030a%=x%(V%):b%=y%(V%):c%=c%(V%)
 9040GCOL3,13+V%:MOVEa%,b%:VDUs%(V%),s%(V%)+1
 9050p%(V%)=TRUE:SC%=SC%+c%
 9060SOUND&10,-15+c%DIV3,5,20
 9070FORT%=-10 TO20
 9080IFT%<11GCOL3,4:MOVEa%,b%:PLOT65,bx%(T%+10)*(32-c%)DIV8,by%(T%+10)*(32-c%)DIV8
 9090PROCmove(V%)
 9100IFT%>TRUE GCOL3,4:MOVEa%,b%:PLOT65,bx%(T%)*(32-c%)DIV8,by%(T%)*(32-c%)DIV8
 9110V%=V%+1:IFV%>L%V%=FALSE
 9120NEXT
 9130PROCscore
 9140ENDPROC
10000DEFPROCpeek
10010IFc%(V%)=8ENDPROC
10020LOCALV%
10030GCOL3,3:MOVEx%,y%:VDU229
10040T%=-M%-4:REPEAT:T%=T%+4
10050V%=POINT(X%+32,Y%-16+T%)
10060IFV%=8ORV%=9ORV%=11PROCbang((V%EOR6)-13):UNTILTRUE:ENDPROC
10070UNTILT%>M%
10080GCOL3,3:MOVEx%,y%:VDU229
10090ENDPROC
11000DEFPROCinit
11010*FX16,2
11020VDU23,224,24,60,60,60,60,60,60,24
11030VDU23,225;24,60,60,60,60,24;
11040VDU23,226,0;24,60,60,24,0;
11050VDU23,227;0;24,24;0;
11060VDU23,228;0;0,16;0;
11070VDU23,229;198,130;0;130,198
11080VDU23,230,255,17,57,17,127,9,2,2
11090VDU23,231,255,136,156,136,254,144,64,64
11100VDU23,232;127,9,9,63,1,2;
11110VDU23,233;254,144,144,252,128,64;
11120VDU23,234,0;63,9,31,1,2;
11130VDU23,235,0;252,144,248,128,64;
11140VDU23,236,0;31,5,15,1,0;
11150VDU23,237,0;248,160,240,128,0;
11160VDU23,238,0;15,7,1;0;
11170VDU23,239,0;240,224,128;0;
11180VDU23,240,0;7,3,0;0;
11190VDU23,241,0;224,192,0;0;
11200VDU23,242,0;3,1,0;0;
11210VDU23,243,0;192,128,0;0;
11220VDU23,244,0;1;0;0;
11230VDU23,245,0;128;0;0;
11240VDU23,246,32,32,116,126,218,254,238,238
11250VDU23,247,0;34,34,250,127,127;
11260VDU23,248,0;64,64,79,254,254;
11270VDU23,249,1,1,57,25,255,127,0;
11280VDU23,250;0;28,255,254,0;
11290VDU23,251,255,255,255,255,255,255,255,255
11300VDU23,252,0;0;4,12,14;
11310ENVELOPE1,8,0,0,0,1,5,5,127,-10,-10,-10,126,0
11320ENVELOPE2,1,0,0,0,1,1,1,126,0,0,0,126,126
11330ENVELOPE3,136,-3,-3,-3,4,4,4,14,12,0,-8,126,0
11340x%=640:y%=500:mx%=x%:my%=y%:HS%=500
11350DIMbx%(20),by%(20),x%(2),y%(2),c%(2),s%(2),h%(2),p%(2),w%(2),SX%(3),SY%(3),SHIP$(3)
11360SHIP$(0)=CHR$247+CHR$248:SHIP$(1)=SHIP$(0)
11370SHIP$(2)=CHR$249+CHR$250:SHIP$(3)=SHIP$(2)
11380RESTORE:FORT%=0TO3:READSX%(T%),SY%(T%):NEXT
11390DATA200,200,600,240,300,120,330,290
11400FORT%=0TO20
11410by%(T%)=RND(100)-51:bx%(T%)=RND(150)-50
11420NEXT
11430ENDPROC
12000DEFPROCvari
12010p%(0)=TRUE:p%(1)=TRUE:p%(2)=TRUE
12020D%=FALSE:Z%=1220:I%=229:SC%=FALSE:sc%=150:L%=FALSE:l%=1:F%=3:G%=FALSE
12030FORT%=0TO15:VDU19,T%,-(T%=10)*3;0;:NEXT
12040COLOUR132:CLS
12050VDU28,0,19,19,0
12060COLOUR134:CLS
12070COLOUR10:PRINT'"IF YOU'LL JUST WAIT"''"FOR HALF A MO."''"THEN OFF TO CORNWALL"'"WE SHALL GO."
12080FORT%=0TO5:SOUND3,1,130,22:NEXT
12090PROCscene
12100VDU4,28,0,11,19,0,12,28,0,31,19,31,17,143,5
12110RESTORE12130
12120FORT%=1TO15:READA%:VDU19,T%,A%;0;:NEXT
12130DATA0,12,0,4,0,6,0,0,0,0,0,7,1,2,3
12140COLOUR10:PROCscore
12150GCOL3,3:MOVEx%,y%:VDUI%
12160*FX9,2
12170*FX10,2
12180ENDPROC
13000DEFPROCscore
13010VDU4
13020IFSC%=FALSE CLS:PRINT"SCORE:";TAB(12)"HI:";HS%;
13030PRINTTAB(6,0);SC%;
13040VDU5
13050ENDPROC
14000DEFPROCscene
14010VDU5
14020FORT%=0TO100STEP4:GCOL0,15+(T%MOD8=FALSE)
14030MOVE30+T%,490-T%DIV2:MOVE130+T%DIV6,350-T%DIV2:PLOT85,350-T%*2,500-T%
14040GCOL0,15+(T%MOD8=FALSE)
14050MOVE1250-T%,450-T%DIV2:MOVE1150-T%DIV6,310-T%DIV2:PLOT85,930+T%*2,460-T%
14060GCOL0,13+-(T%MOD8=FALSE)
14070MOVE1140-T%DIV2,300-T%DIV3:MOVE820-T%DIV8,350-T%DIV12:PLOT85,940-T%*2,460-T%
14080GCOL0,13+-(T%MOD8=FALSE)
14090MOVE230+T%,350-T%MOD2:MOVE430+T%DIV8,350-T%DIV12:PLOT85,330-T%*2,500-T%
14100NEXT
14110GCOL0,1:MOVE1070,466:VDU246
14120MOVE950,360:MOVE962,420:PLOT85,974,360
14130MOVE130+T%,380-T%MOD3:MOVE330+T%DIV4,350-T%DIV12:PLOT85,330-T%*3,500-T%
14140FORT%=0TO2:SOUND3,1,130,22:NEXT
14150FORT%=0TO300STEP4:GCOL0,14+-(T%MOD8=FALSE)
14160MOVE1279,300-T%DIV2:MOVE1279,530-T%:PLOT85,800+T%,300
14170MOVE0,300-T%DIV2:MOVE0,500-T%:PLOT85,480-T%,300
14180NEXT
14190GCOL0,5:MOVE130,480:VDU246
14200MOVE928,350:MOVE940,410:PLOT85,952,350
14210FORT%=0TO3:GCOL0,1:MOVESX%(T%),SY%(T%):PRINTSHIP$(T%)
14220NEXT
14230GCOL0,10:MOVE0,56:DRAW1279,56:VDU24,0;0;1279;48;:GCOL0,143:CLG
14240VDU26
14250ENDPROC
15000DEFPROCask
15010PROC7scn
15020PRINTTAB(9,10)"INSTRUCTIONS  Y/N"
15030REPEAT:T%=GETAND223:UNTILT%=89ORT%=78:SOUND3,1,130,22
15040CLS:IFT%=89PROCinst
15050PROCfindJ
15060ENDPROC
16000DEFPROCinst
16010PRINT'"It is the closing days of the first world war.  You are the commander ofa small harbour in Cornwall when youare attacked by a squadron of Fokkerbi-planes. Your only armament is an ancient Boer war cannon."
16020PRINT"With luck you will survive long"'"enough to gain a fine memorial on"'"your grave!"
16030PRINT'"Use joystick or the following keys."''TAB(10)"A ..........UP"TAB(10)"Z ..........DOWN"TAB(10)"< ..........LEFT"TAB(10)"> ..........RIGHT"TAB(10)"SPACE ......FIRE"
16040PRINT''TAB(8)CHR$136"PLEASE PRESS SPACE"
16050REPEATUNTILGET=32:SOUND3,1,130,22
16060ENDPROC
17000DEFPROC7scn
17010FORT%=0TO24:PRINTTAB(0,T%)CHR$157CHR$132;:NEXT
17020FORT%=0TO1:PRINTTAB(8,T%)CHR$133CHR$157CHR$141;CHR$134"HARBOUR COMMAND  "CHR$135CHR$157:NEXT
17030VDU28,2,24,37,2
17040VDU23;8202;0;0;0;12
17050ENDPROC
18000DEFPROCend
18010IFSC%>HS%HS%=SC%
18020Q%=SC%DIV200:IFQ%>5Q%=5
18030RESTORE18050
18040FORT%=0TOQ%:READ$&3000:NEXT
18050DATA FAILED MISERABLY IN HIS TASK,GIVEN A POOR ACCOUNT OF HIMSELF,PERFORMED SATIFACTORILLY,PUT UP A GOOD SHOW,GIVEN HIS LIFE WITH HONOUR,AWARDED THE V.C. POSTHUMOUSLY
18060PROC7scn:SOUND&10,0,0,0
18070FORT%=0TO1:PRINTTAB(13)CHR$141"EPITAPH":NEXT:PRINT''"Today it has been reported that a"'"harbour in Cornwall has been wiped"'"out by the Bosh. The comander is"'"said to have :_"''$&3000
18080PRINT''"You attained a score of ";SC%
18090PRINT''''TAB(10)CHR$136"PLAY AGAIN Y/N"
18100REPEAT:T%=GET AND223:UNTILT%=89ORT%=78
18110IFT%=78CLS:FORT%=10TO11:PRINTTAB(14,T%)CHR$141;CHR$136"BYE!":NEXT:END
18120PROCfindJ
18130ENDPROC
19000DEFPROCmusic
19010*FX15
19020RESTORE19100
19030REPEAT:READt%,d%:IFt%=-1:UNTILTRUE:ENDPROC
19040SOUND1,-15,t%,d%*2
19050TIME=FALSE:REPEATUNTILTIME>5
19060SOUND2,-15,t%,d%*2
19070TIME=FALSE:REPEATUNTILTIME>5
19080SOUND3,-15,t%,d%*2
19090UNTILFALSE
19100DATA32,2,48,2,60,3,68,1,60,2,48,2,32,2,48,2,60,2,68,2,60,2,48,2,32,2,48,2
19110DATA60,6,68,6,52,3,48,1,52,2,40,4,48,2,52,3,48,1,52,2,40,2,24,2,40,2,52,2,48,2,40,2,68,4
19120DATA76,2,60,1,60,3,60,2,60,4,52,2,48,3,40,1,48,2,32,3,32,2,48,2,48,6,40,2,48,4,32,12
19130DATA-1,-1
20000DEFPROCtitle
20010VDU23;8202;0;0;0;
20020FORT%=0TO7
20030COLOURT%MOD6+1:PRINTTAB(0,T%*4);
20040FORI%=0TO4:VDU9,230,231,9:NEXT
20050COLOUR(T%+2)MOD6+1
20060PRINTTAB(2,T%*4+2)"HARBOUR  COMMAND"
20070NEXT
20080PROCmusic
20090ENDPROC
21000DEFPROCfindJ
21010*FX21
21020CLS:PRINTTAB(6,9)"WHAT LEVEL OF DIFFICULTY"''TAB(8)"1 - EASY TO 4 - HARD"
21030REPEAT:T%=GETAND239:UNTILT%>32ANDT%<37:SOUND3,1,130,22
21040M%=(36-T%)*4:m%=1+(16-M%)DIV3
21050*FX21
21060CLS:PRINTTAB(5,9)"PRESS RETURN FOR KEYBOARD"''TAB(4)"OR FIRE BUTTON FOR JOYSTICK"
21070REPEATJ%=INKEY(0):UNTILJ%=13ORADVAL(0)AND1
21080IFNOTJ%J%=FALSE
21090ENDPROC
22000DEFPROCrelocate
22010*TAPE
22020FORT%=0TOTOP-PAGE STEP4:T%!&E00=T%!PAGE:NEXT
22030*KEY9OLD|MRUN|M
22040*FX138,0,137
22050PAGE=&E00
22060END


 � **** Harbour  Command ****
 � ****   by  G.J. Key   ****
 � ****  (C) Micro User  ****
(�>&1100�relocate
2	�init
<
�2:�title
F�7:�ask
P
��7:�ask
Z�
d�2
n	�vari
x
�music
�	�game
�
�music
��7
��end
���
�
��game
��1,0,0,0:�1,2,100,0
��

�V%=� �L%
�D%�fire
�p%(V%)�where
$
�move(V%)
.�
8?�L%<l%�SC%>sc%L%=l%:l%=(l%+1)�2:sc%=sc%*2:m%=1+(32-M%*l%)�3
B	�F%<�
L�
���move(V%)
چ�G%�&10,1,4,10:�19,4,H%;�;:G%=G%+�:H%=H%�5:�G%=� �,2:�SX%(F%)+�(64),SY%(F%):�252:�(� �3)>� �,4:�SX%(F%),SY%(F%):�251,251:F%=F%+�
��-5ԣ,-16+c%(V%)�2,3,1
��J%�joy ��key
�?�x%<>mx%�y%<>my%:�3,3:�mx%,my%:�I%:�x%,y%:�I%:mx%=x%:my%=y%
�p%(V%)�w%(V%)<0�plane
4�c%(V%)=8��h%(V%)<4�G%=� �&12,3,255,10:G%=8:H%=1
w%(V%)=w%(V%)-m%
 �
�	��joy
�x%=Z%-�1�268*5
�y%=�2�256*4
��D%��0�1 �decide
��
�	��key
��(-103)x%=x%-16
��(-104)x%=x%+16
��(-66)y%=y%+8
��(-98)y%=y%-8
��D%��(-99)�decide
��
���where
�x%(V%)=�(800)+120
�y%(V%)=�(300)+700
�@s%(V%)=244:c%(V%)=32:p%(V%)=�:h%(V%)=(�(3)-2)*�(4):w%(V%)=32
��3,13+V%
�#�x%(V%),y%(V%):�s%(V%),s%(V%)+1
��
p��plane
z�3,13+V%
�#�x%(V%),y%(V%):�s%(V%),s%(V%)+1
�&c%(V%)=c%(V%)+�:�c%(V%)<� c%(V%)=�
�*�c%(V%)�4=� �s%(V%)>230s%(V%)=s%(V%)-2
�E�c%(V%)>8y%(V%)=y%(V%)-8�y%(V%)=y%(V%)+24:�y%(V%)>1024 p%(V%)=�:�
�/x%(V%)=x%(V%)+h%(V%):h%(V%)=h%(V%)+h%(V%)/4
�#�x%(V%),y%(V%):�s%(V%),s%(V%)+1
�w%(V%)=c%(V%)
��
X��decide
bD%=�:X%=640:Y%=�:B%=224
l	C%=15
vXS%=(x%-X%)�C%
�
YS%=y%�C%
��3,7:�X%,Y%:�B%
��3,3
��&10,1,6,10
��
@
��fire
J�3,7:�X%,Y%:�B%
TC%=C%+�:X%=X%+XS%:Y%=Y%+YS%
^�C%=� �peek:D%=�:�
h�C%�3=� B%=B%+1
r�X%,Y%:�B%
|�
#(��bang(V%)
#2�3,3:�x%,y%:�229
#<
�a%,b%,c%
#F!a%=x%(V%):b%=y%(V%):c%=c%(V%)
#P$�3,13+V%:�a%,b%:�s%(V%),s%(V%)+1
#Zp%(V%)=�:SC%=SC%+c%
#d�&10,-15+c%�3,5,20
#n�T%=-10 �20
#xC�T%<11�3,4:�a%,b%:�65,bx%(T%+10)*(32-c%)�8,by%(T%+10)*(32-c%)�8
#�
�move(V%)
#�=�T%>� �3,4:�a%,b%:�65,bx%(T%)*(32-c%)�8,by%(T%)*(32-c%)�8
#�V%=V%+1:�V%>L%V%=�
#��
#�
�score
#��
'
��peek
'�c%(V%)=8�
'$�V%
'.�3,3:�x%,y%:�229
'8T%=-M%-4:�:T%=T%+4
'BV%=�X%+32,Y%-16+T%)
'L)�V%=8�V%=9�V%=11�bang((V%�6)-13):��:�
'V
�T%>M%
'`�3,3:�x%,y%:�229
'j�
*�
��init
+*FX16,2
+#�23,224,24,60,60,60,60,60,60,24
+�23,225;24,60,60,60,60,24;
+ �23,226,0;24,60,60,24,0;
+*�23,227;0;24,24;0;
+4�23,228;0;0,16;0;
+>�23,229;198,130;0;130,198
+H"�23,230,255,17,57,17,127,9,2,2
+R)�23,231,255,136,156,136,254,144,64,64
+\�23,232;127,9,9,63,1,2;
+f#�23,233;254,144,144,252,128,64;
+p�23,234,0;63,9,31,1,2;
+z!�23,235,0;252,144,248,128,64;
+��23,236,0;31,5,15,1,0;
+� �23,237,0;248,160,240,128,0;
+��23,238,0;15,7,1;0;
+��23,239,0;240,224,128;0;
+��23,240,0;7,3,0;0;
+��23,241,0;224,192,0;0;
+��23,242,0;3,1,0;0;
+��23,243,0;192,128,0;0;
+��23,244,0;1;0;0;
+��23,245,0;128;0;0;
+�)�23,246,32,32,116,126,218,254,238,238
+� �23,247,0;34,34,250,127,127;
+��23,248,0;64,64,79,254,254;
, �23,249,1,1,57,25,255,127,0;
,�23,250;0;28,255,254,0;
,+�23,251,255,255,255,255,255,255,255,255
,$�23,252,0;0;4,12,14;
,.*�1,8,0,0,0,1,5,5,127,-10,-10,-10,126,0
,8&�2,1,0,0,0,1,1,1,126,0,0,0,126,126
,B*�3,136,-3,-3,-3,4,4,4,14,12,0,-8,126,0
,L'x%=640:y%=500:mx%=x%:my%=y%:HS%=500
,VU�bx%(20),by%(20),x%(2),y%(2),c%(2),s%(2),h%(2),p%(2),w%(2),SX%(3),SY%(3),SHIP$(3)
,`(SHIP$(0)=�247+�248:SHIP$(1)=SHIP$(0)
,j(SHIP$(2)=�249+�250:SHIP$(3)=SHIP$(2)
,t �:�T%=0�3:�SX%(T%),SY%(T%):�
,~$�200,200,600,240,300,120,330,290
,��T%=0�20
,�'by%(T%)=�(100)-51:bx%(T%)=�(150)-50
,��
,��
.�
��vari
.�p%(0)=�:p%(1)=�:p%(2)=�
.�9D%=�:Z%=1220:I%=229:SC%=�:sc%=150:L%=�:l%=1:F%=3:G%=�
.�#�T%=0�15:�19,T%,-(T%=10)*3;0;:�
/
�132:�
/�28,0,19,19,0
/
�134:�
/&X�10:�'"IF YOU'LL JUST WAIT"''"FOR HALF A MO."''"THEN OFF TO CORNWALL"'"WE SHALL GO."
/0�T%=0�5:�3,1,130,22:�
/:
�scene
/D-�4,28,0,11,19,0,12,28,0,31,19,31,17,143,5
/N	��Dbo
/X�T%=1�15:�A%:�19,T%,A%;0;:�
/b#�0,12,0,4,0,6,0,0,0,0,0,7,1,2,3
/l�10:�score
/v�3,3:�x%,y%:�I%
/�
*FX9,2
/�*FX10,2
/��
2���score
2��4
2�%�SC%=� �:�"SCORE:";�12)"HI:";HS%;
2��6,0);SC%;
2��5
2��
6���scene
6��5
6��T%=0�100�4:�0,15+(T%�8=�)
6�:�30+T%,490-T%�2:�130+T%�6,350-T%�2:�85,350-T%*2,500-T%
6��0,15+(T%�8=�)
6�=�1250-T%,450-T%�2:�1150-T%�6,310-T%�2:�85,930+T%*2,460-T%
6��0,13+-(T%�8=�)
6�?�1140-T%�2,300-T%�3:�820-T%�8,350-T%�12:�85,940-T%*2,460-T%
7�0,13+-(T%�8=�)
7
<�230+T%,350-T%�2:�430+T%�8,350-T%�12:�85,330-T%*2,500-T%
7�
7�0,1:�1070,466:�246
7(!�950,360:�962,420:�85,974,360
72<�130+T%,380-T%�3:�330+T%�4,350-T%�12:�85,330-T%*3,500-T%
7<�T%=0�2:�3,1,130,22:�
7F�T%=0�300�4:�0,14+-(T%�8=�)
7P.�1279,300-T%�2:�1279,530-T%:�85,800+T%,300
7Z(�0,300-T%�2:�0,500-T%:�85,480-T%,300
7d�
7n�0,5:�130,480:�246
7x!�928,350:�940,410:�85,952,350
7�,�T%=0�3:�0,1:�SX%(T%),SY%(T%):�SHIP$(T%)
7��
7�2�0,10:�0,56:�1279,56:�24,0;0;1279;48;:�0,143:�
7��26
7��
:�	��ask
:�	�7scn
:��9,10)"INSTRUCTIONS  Y/N"
:�'�:T%=��223:�T%=89�T%=78:�3,1,130,22
:��:�T%=89�inst
:�
�findJ
:��
>�
��inst
>���'"It is the closing days of the first world war.  You are the commander ofa small harbour in Cornwall when youare attacked by a squadron of Fokkerbi-planes. Your only armament is an ancient Boer war cannon."
>�X�"With luck you will survive long"'"enough to gain a fine memorial on"'"your grave!"
>���'"Use joystick or the following keys."''�10)"A ..........UP"�10)"Z ..........DOWN"�10)"< ..........LEFT"�10)"> ..........RIGHT"�10)"SPACE ......FIRE"
>�"�''�8)�136"PLEASE PRESS SPACE"
>����=32:�3,1,130,22
>��
Bh
��7scn
Br�T%=0�24:�0,T%)�157�132;:�
B|A�T%=0�1:�8,T%)�133�157�141;�134"HARBOUR COMMAND  "�135�157:�
B��28,2,24,37,2
B��23;8202;0;0;0;12
B��
FP	��end
FZ�SC%>HS%HS%=SC%
FdQ%=SC%�200:�Q%>5Q%=5
Fn	��pBF
Fx�T%=0�Q%:�$&3000:�
F��� FAILED MISERABLY IN HIS TASK,GIVEN A POOR ACCOUNT OF HIMSELF,PERFORMED SATIFACTORILLY,PUT UP A GOOD SHOW,GIVEN HIS LIFE WITH HONOUR,AWARDED THE V.C. POSTHUMOUSLY
F��7scn:�&10,0,0,0
F���T%=0�1:�13)�141"EPITAPH":�:�''"Today it has been reported that a"'"harbour in Cornwall has been wiped"'"out by the Bosh. The comander is"'"said to have :_"''$&3000
F�%�''"You attained a score of ";SC%
F�!�''''�10)�136"PLAY AGAIN Y/N"
F��:T%=� �223:�T%=89�T%=78
F�1�T%=78�:�T%=10�11:�14,T%)�141;�136"BYE!":�:�
F�
�findJ
F��
J8��music
JB	*FX15
JL	��p\J
JV�:�t%,d%:�t%=-1:��:�
J`�1,-15,t%,d%*2
Jj
�=�:���>5
Jt�2,-15,t%,d%*2
J~
�=�:���>5
J��3,-15,t%,d%*2
J���
J�J�32,2,48,2,60,3,68,1,60,2,48,2,32,2,48,2,60,2,68,2,60,2,48,2,32,2,48,2
J�Y�60,6,68,6,52,3,48,1,52,2,40,4,48,2,52,3,48,1,52,2,40,2,24,2,40,2,52,2,48,2,40,2,68,4
J�U�76,2,60,1,60,3,60,2,60,4,52,2,48,3,40,1,48,2,32,3,32,2,48,2,48,6,40,2,48,4,32,12
J�
�-1,-1
N ��title
N*�23;8202;0;0;0;
N4�T%=0�7
N>�T%�6+1:�0,T%*4);
NH�I%=0�4:�9,230,231,9:�
NR�(T%+2)�6+1
N\!�2,T%*4+2)"HARBOUR  COMMAND"
Nf�
Np
�music
Nz�
R��findJ
R	*FX21
RA�:�6,9)"WHAT LEVEL OF DIFFICULTY"''�8)"1 - EASY TO 4 - HARD"
R&'�:T%=��239:�T%>32�T%<37:�3,1,130,22
R0M%=(36-T%)*4:m%=1+(16-M%)�3
R:	*FX21
RDI�:�5,9)"PRESS RETURN FOR KEYBOARD"''�4)"OR FIRE BUTTON FOR JOYSTICK"
RN�J%=�(0):�J%=13��(0)�1
RX�J%J%=�
Rb�
U���relocate
U�	*TAPE
V �T%=0��P-� �4:T%!&E00=T%!�:�
V*KEY9OLD|MRUN|M
V*FX138,0,137
V"
�=&E00
V,�
�
00000000  0d 00 0a 20 f4 20 2a 2a  2a 2a 20 48 61 72 62 6f  |... . **** Harbo|
00000010  75 72 20 20 43 6f 6d 6d  61 6e 64 20 2a 2a 2a 2a  |ur  Command ****|
00000020  0d 00 14 20 f4 20 2a 2a  2a 2a 20 20 20 62 79 20  |... . ****   by |
00000030  20 47 2e 4a 2e 20 4b 65  79 20 20 20 2a 2a 2a 2a  | G.J. Key   ****|
00000040  0d 00 1e 20 f4 20 2a 2a  2a 2a 20 20 28 43 29 20  |... . ****  (C) |
00000050  4d 69 63 72 6f 20 55 73  65 72 20 20 2a 2a 2a 2a  |Micro User  ****|
00000060  0d 00 28 15 e7 90 3e 26  31 31 30 30 f2 72 65 6c  |..(...>&1100.rel|
00000070  6f 63 61 74 65 0d 00 32  09 f2 69 6e 69 74 0d 00  |ocate..2..init..|
00000080  3c 0d eb 32 3a f2 74 69  74 6c 65 0d 00 46 0b eb  |<..2:.title..F..|
00000090  37 3a f2 61 73 6b 0d 00  50 0d ee 85 eb 37 3a f2  |7:.ask..P....7:.|
000000a0  61 73 6b 0d 00 5a 05 f5  0d 00 64 06 eb 32 0d 00  |ask..Z....d..2..|
000000b0  6e 09 f2 76 61 72 69 0d  00 78 0a f2 6d 75 73 69  |n..vari..x..musi|
000000c0  63 0d 00 82 09 f2 67 61  6d 65 0d 00 8c 0a f2 6d  |c.....game.....m|
000000d0  75 73 69 63 0d 00 96 06  eb 37 0d 00 a0 08 f2 65  |usic.....7.....e|
000000e0  6e 64 0d 00 aa 06 fd a3  0d 03 e8 0a dd f2 67 61  |nd............ga|
000000f0  6d 65 0d 03 f2 17 d4 31  2c 30 2c 30 2c 30 3a d4  |me.....1,0,0,0:.|
00000100  31 2c 32 2c 31 30 30 2c  30 0d 03 fc 05 f5 0d 04  |1,2,100,0.......|
00000110  06 0d e3 56 25 3d a3 20  b8 4c 25 0d 04 10 0c e7  |...V%=. .L%.....|
00000120  44 25 f2 66 69 72 65 0d  04 1a 11 e7 70 25 28 56  |D%.fire.....p%(V|
00000130  25 29 f2 77 68 65 72 65  0d 04 24 0d f2 6d 6f 76  |%).where..$..mov|
00000140  65 28 56 25 29 0d 04 2e  05 ed 0d 04 38 3f e7 4c  |e(V%).......8?.L|
00000150  25 3c 6c 25 80 53 43 25  3e 73 63 25 4c 25 3d 6c  |%<l%.SC%>sc%L%=l|
00000160  25 3a 6c 25 3d 28 6c 25  2b 31 29 80 32 3a 73 63  |%:l%=(l%+1).2:sc|
00000170  25 3d 73 63 25 2a 32 3a  6d 25 3d 31 2b 28 33 32  |%=sc%*2:m%=1+(32|
00000180  2d 4d 25 2a 6c 25 29 81  33 0d 04 42 09 fd 46 25  |-M%*l%).3..B..F%|
00000190  3c a3 0d 04 4c 05 e1 0d  07 d0 0e dd f2 6d 6f 76  |<...L........mov|
000001a0  65 28 56 25 29 0d 07 da  86 e7 47 25 d4 26 31 30  |e(V%).....G%.&10|
000001b0  2c 31 2c 34 2c 31 30 3a  ef 31 39 2c 34 2c 48 25  |,1,4,10:.19,4,H%|
000001c0  3b a3 3b 3a 47 25 3d 47  25 2b b9 3a 48 25 3d 48  |;.;:G%=G%+.:H%=H|
000001d0  25 82 35 3a e7 47 25 3d  a3 20 e6 a3 2c 32 3a ec  |%.5:.G%=. ..,2:.|
000001e0  53 58 25 28 46 25 29 2b  b3 28 36 34 29 2c 53 59  |SX%(F%)+.(64),SY|
000001f0  25 28 46 25 29 3a ef 32  35 32 3a e7 28 91 20 80  |%(F%):.252:.(. .|
00000200  33 29 3e a3 20 e6 a3 2c  34 3a ec 53 58 25 28 46  |3)>. ..,4:.SX%(F|
00000210  25 29 2c 53 59 25 28 46  25 29 3a ef 32 35 31 2c  |%),SY%(F%):.251,|
00000220  32 35 31 3a 46 25 3d 46  25 2b b9 0d 07 e4 1b e7  |251:F%=F%+......|
00000230  96 2d 35 d4 a3 2c 2d 31  36 2b 63 25 28 56 25 29  |.-5..,-16+c%(V%)|
00000240  81 32 2c 33 2c 31 0d 07  ee 11 e7 4a 25 f2 6a 6f  |.2,3,1.....J%.jo|
00000250  79 20 8b f2 6b 65 79 0d  07 f8 3f e7 78 25 3c 3e  |y ..key...?.x%<>|
00000260  6d 78 25 84 79 25 3c 3e  6d 79 25 3a e6 33 2c 33  |mx%.y%<>my%:.3,3|
00000270  3a ec 6d 78 25 2c 6d 79  25 3a ef 49 25 3a ec 78  |:.mx%,my%:.I%:.x|
00000280  25 2c 79 25 3a ef 49 25  3a 6d 78 25 3d 78 25 3a  |%,y%:.I%:mx%=x%:|
00000290  6d 79 25 3d 79 25 0d 08  02 1b e7 ac 70 25 28 56  |my%=y%......p%(V|
000002a0  25 29 80 77 25 28 56 25  29 3c 30 f2 70 6c 61 6e  |%).w%(V%)<0.plan|
000002b0  65 0d 08 0c 34 e7 63 25  28 56 25 29 3d 38 80 94  |e...4.c%(V%)=8..|
000002c0  68 25 28 56 25 29 3c 34  80 47 25 3d a3 20 d4 26  |h%(V%)<4.G%=. .&|
000002d0  31 32 2c 33 2c 32 35 35  2c 31 30 3a 47 25 3d 38  |12,3,255,10:G%=8|
000002e0  3a 48 25 3d 31 0d 08 16  14 77 25 28 56 25 29 3d  |:H%=1....w%(V%)=|
000002f0  77 25 28 56 25 29 2d 6d  25 0d 08 20 05 e1 0d 0b  |w%(V%)-m%.. ....|
00000300  b8 09 dd f2 6a 6f 79 0d  0b c2 12 78 25 3d 5a 25  |....joy....x%=Z%|
00000310  2d 96 31 81 32 36 38 2a  35 0d 0b cc 0f 79 25 3d  |-.1.268*5....y%=|
00000320  96 32 81 32 35 36 2a 34  0d 0b d6 15 e7 ac 44 25  |.2.256*4......D%|
00000330  80 96 30 80 31 20 f2 64  65 63 69 64 65 0d 0b e0  |..0.1 .decide...|
00000340  05 e1 0d 0f a0 09 dd f2  6b 65 79 0d 0f aa 14 e7  |........key.....|
00000350  a6 28 2d 31 30 33 29 78  25 3d 78 25 2d 31 36 0d  |.(-103)x%=x%-16.|
00000360  0f b4 14 e7 a6 28 2d 31  30 34 29 78 25 3d 78 25  |.....(-104)x%=x%|
00000370  2b 31 36 0d 0f be 12 e7  a6 28 2d 36 36 29 79 25  |+16......(-66)y%|
00000380  3d 79 25 2b 38 0d 0f c8  12 e7 a6 28 2d 39 38 29  |=y%+8......(-98)|
00000390  79 25 3d 79 25 2d 38 0d  0f d2 16 e7 ac 44 25 80  |y%=y%-8......D%.|
000003a0  a6 28 2d 39 39 29 f2 64  65 63 69 64 65 0d 0f dc  |.(-99).decide...|
000003b0  05 e1 0d 13 88 0b dd f2  77 68 65 72 65 0d 13 92  |........where...|
000003c0  15 78 25 28 56 25 29 3d  b3 28 38 30 30 29 2b 31  |.x%(V%)=.(800)+1|
000003d0  32 30 0d 13 9c 15 79 25  28 56 25 29 3d b3 28 33  |20....y%(V%)=.(3|
000003e0  30 30 29 2b 37 30 30 0d  13 a6 40 73 25 28 56 25  |00)+700...@s%(V%|
000003f0  29 3d 32 34 34 3a 63 25  28 56 25 29 3d 33 32 3a  |)=244:c%(V%)=32:|
00000400  70 25 28 56 25 29 3d a3  3a 68 25 28 56 25 29 3d  |p%(V%)=.:h%(V%)=|
00000410  28 b3 28 33 29 2d 32 29  2a b3 28 34 29 3a 77 25  |(.(3)-2)*.(4):w%|
00000420  28 56 25 29 3d 33 32 0d  13 b0 0c e6 33 2c 31 33  |(V%)=32.....3,13|
00000430  2b 56 25 0d 13 ba 23 ec  78 25 28 56 25 29 2c 79  |+V%...#.x%(V%),y|
00000440  25 28 56 25 29 3a ef 73  25 28 56 25 29 2c 73 25  |%(V%):.s%(V%),s%|
00000450  28 56 25 29 2b 31 0d 13  c4 05 e1 0d 17 70 0b dd  |(V%)+1.......p..|
00000460  f2 70 6c 61 6e 65 0d 17  7a 0c e6 33 2c 31 33 2b  |.plane..z..3,13+|
00000470  56 25 0d 17 84 23 ec 78  25 28 56 25 29 2c 79 25  |V%...#.x%(V%),y%|
00000480  28 56 25 29 3a ef 73 25  28 56 25 29 2c 73 25 28  |(V%):.s%(V%),s%(|
00000490  56 25 29 2b 31 0d 17 8e  26 63 25 28 56 25 29 3d  |V%)+1...&c%(V%)=|
000004a0  63 25 28 56 25 29 2b b9  3a e7 63 25 28 56 25 29  |c%(V%)+.:.c%(V%)|
000004b0  3c a3 20 63 25 28 56 25  29 3d a3 0d 17 98 2a e7  |<. c%(V%)=....*.|
000004c0  63 25 28 56 25 29 83 34  3d a3 20 80 73 25 28 56  |c%(V%).4=. .s%(V|
000004d0  25 29 3e 32 33 30 73 25  28 56 25 29 3d 73 25 28  |%)>230s%(V%)=s%(|
000004e0  56 25 29 2d 32 0d 17 a2  45 e7 63 25 28 56 25 29  |V%)-2...E.c%(V%)|
000004f0  3e 38 79 25 28 56 25 29  3d 79 25 28 56 25 29 2d  |>8y%(V%)=y%(V%)-|
00000500  38 8b 79 25 28 56 25 29  3d 79 25 28 56 25 29 2b  |8.y%(V%)=y%(V%)+|
00000510  32 34 3a e7 79 25 28 56  25 29 3e 31 30 32 34 20  |24:.y%(V%)>1024 |
00000520  70 25 28 56 25 29 3d b9  3a e1 0d 17 ac 2f 78 25  |p%(V%)=.:..../x%|
00000530  28 56 25 29 3d 78 25 28  56 25 29 2b 68 25 28 56  |(V%)=x%(V%)+h%(V|
00000540  25 29 3a 68 25 28 56 25  29 3d 68 25 28 56 25 29  |%):h%(V%)=h%(V%)|
00000550  2b 68 25 28 56 25 29 2f  34 0d 17 b6 23 ec 78 25  |+h%(V%)/4...#.x%|
00000560  28 56 25 29 2c 79 25 28  56 25 29 3a ef 73 25 28  |(V%),y%(V%):.s%(|
00000570  56 25 29 2c 73 25 28 56  25 29 2b 31 0d 17 c0 11  |V%),s%(V%)+1....|
00000580  77 25 28 56 25 29 3d 63  25 28 56 25 29 0d 17 ca  |w%(V%)=c%(V%)...|
00000590  05 e1 0d 1b 58 0c dd f2  64 65 63 69 64 65 0d 1b  |....X...decide..|
000005a0  62 1b 44 25 3d b9 3a 58  25 3d 36 34 30 3a 59 25  |b.D%=.:X%=640:Y%|
000005b0  3d a3 3a 42 25 3d 32 32  34 0d 1b 6c 09 43 25 3d  |=.:B%=224..l.C%=|
000005c0  31 35 0d 1b 76 12 58 53  25 3d 28 78 25 2d 58 25  |15..v.XS%=(x%-X%|
000005d0  29 81 43 25 0d 1b 80 0d  59 53 25 3d 79 25 81 43  |).C%....YS%=y%.C|
000005e0  25 0d 1b 8a 13 e6 33 2c  37 3a ec 58 25 2c 59 25  |%.....3,7:.X%,Y%|
000005f0  3a ef 42 25 0d 1b 94 08  e6 33 2c 33 0d 1b 9e 0f  |:.B%.....3,3....|
00000600  d4 26 31 30 2c 31 2c 36  2c 31 30 0d 1b a8 05 e1  |.&10,1,6,10.....|
00000610  0d 1f 40 0a dd f2 66 69  72 65 0d 1f 4a 13 e6 33  |..@...fire..J..3|
00000620  2c 37 3a ec 58 25 2c 59  25 3a ef 42 25 0d 1f 54  |,7:.X%,Y%:.B%..T|
00000630  1f 43 25 3d 43 25 2b b9  3a 58 25 3d 58 25 2b 58  |.C%=C%+.:X%=X%+X|
00000640  53 25 3a 59 25 3d 59 25  2b 59 53 25 0d 1f 5e 16  |S%:Y%=Y%+YS%..^.|
00000650  e7 43 25 3d a3 20 f2 70  65 65 6b 3a 44 25 3d a3  |.C%=. .peek:D%=.|
00000660  3a e1 0d 1f 68 13 e7 43  25 83 33 3d a3 20 42 25  |:...h..C%.3=. B%|
00000670  3d 42 25 2b 31 0d 1f 72  0e ec 58 25 2c 59 25 3a  |=B%+1..r..X%,Y%:|
00000680  ef 42 25 0d 1f 7c 05 e1  0d 23 28 0e dd f2 62 61  |.B%..|...#(...ba|
00000690  6e 67 28 56 25 29 0d 23  32 14 e6 33 2c 33 3a ec  |ng(V%).#2..3,3:.|
000006a0  78 25 2c 79 25 3a ef 32  32 39 0d 23 3c 0d ea 61  |x%,y%:.229.#<..a|
000006b0  25 2c 62 25 2c 63 25 0d  23 46 21 61 25 3d 78 25  |%,b%,c%.#F!a%=x%|
000006c0  28 56 25 29 3a 62 25 3d  79 25 28 56 25 29 3a 63  |(V%):b%=y%(V%):c|
000006d0  25 3d 63 25 28 56 25 29  0d 23 50 24 e6 33 2c 31  |%=c%(V%).#P$.3,1|
000006e0  33 2b 56 25 3a ec 61 25  2c 62 25 3a ef 73 25 28  |3+V%:.a%,b%:.s%(|
000006f0  56 25 29 2c 73 25 28 56  25 29 2b 31 0d 23 5a 17  |V%),s%(V%)+1.#Z.|
00000700  70 25 28 56 25 29 3d b9  3a 53 43 25 3d 53 43 25  |p%(V%)=.:SC%=SC%|
00000710  2b 63 25 0d 23 64 16 d4  26 31 30 2c 2d 31 35 2b  |+c%.#d..&10,-15+|
00000720  63 25 81 33 2c 35 2c 32  30 0d 23 6e 0f e3 54 25  |c%.3,5,20.#n..T%|
00000730  3d 2d 31 30 20 b8 32 30  0d 23 78 43 e7 54 25 3c  |=-10 .20.#xC.T%<|
00000740  31 31 e6 33 2c 34 3a ec  61 25 2c 62 25 3a f0 36  |11.3,4:.a%,b%:.6|
00000750  35 2c 62 78 25 28 54 25  2b 31 30 29 2a 28 33 32  |5,bx%(T%+10)*(32|
00000760  2d 63 25 29 81 38 2c 62  79 25 28 54 25 2b 31 30  |-c%).8,by%(T%+10|
00000770  29 2a 28 33 32 2d 63 25  29 81 38 0d 23 82 0d f2  |)*(32-c%).8.#...|
00000780  6d 6f 76 65 28 56 25 29  0d 23 8c 3d e7 54 25 3e  |move(V%).#.=.T%>|
00000790  b9 20 e6 33 2c 34 3a ec  61 25 2c 62 25 3a f0 36  |. .3,4:.a%,b%:.6|
000007a0  35 2c 62 78 25 28 54 25  29 2a 28 33 32 2d 63 25  |5,bx%(T%)*(32-c%|
000007b0  29 81 38 2c 62 79 25 28  54 25 29 2a 28 33 32 2d  |).8,by%(T%)*(32-|
000007c0  63 25 29 81 38 0d 23 96  16 56 25 3d 56 25 2b 31  |c%).8.#..V%=V%+1|
000007d0  3a e7 56 25 3e 4c 25 56  25 3d a3 0d 23 a0 05 ed  |:.V%>L%V%=..#...|
000007e0  0d 23 aa 0a f2 73 63 6f  72 65 0d 23 b4 05 e1 0d  |.#...score.#....|
000007f0  27 10 0a dd f2 70 65 65  6b 0d 27 1a 0e e7 63 25  |'....peek.'...c%|
00000800  28 56 25 29 3d 38 e1 0d  27 24 07 ea 56 25 0d 27  |(V%)=8..'$..V%.'|
00000810  2e 14 e6 33 2c 33 3a ec  78 25 2c 79 25 3a ef 32  |...3,3:.x%,y%:.2|
00000820  32 39 0d 27 38 16 54 25  3d 2d 4d 25 2d 34 3a f5  |29.'8.T%=-M%-4:.|
00000830  3a 54 25 3d 54 25 2b 34  0d 27 42 17 56 25 3d b0  |:T%=T%+4.'B.V%=.|
00000840  58 25 2b 33 32 2c 59 25  2d 31 36 2b 54 25 29 0d  |X%+32,Y%-16+T%).|
00000850  27 4c 29 e7 56 25 3d 38  84 56 25 3d 39 84 56 25  |'L).V%=8.V%=9.V%|
00000860  3d 31 31 f2 62 61 6e 67  28 28 56 25 82 36 29 2d  |=11.bang((V%.6)-|
00000870  31 33 29 3a fd b9 3a e1  0d 27 56 0a fd 54 25 3e  |13):..:..'V..T%>|
00000880  4d 25 0d 27 60 14 e6 33  2c 33 3a ec 78 25 2c 79  |M%.'`..3,3:.x%,y|
00000890  25 3a ef 32 32 39 0d 27  6a 05 e1 0d 2a f8 0a dd  |%:.229.'j...*...|
000008a0  f2 69 6e 69 74 0d 2b 02  0b 2a 46 58 31 36 2c 32  |.init.+..*FX16,2|
000008b0  0d 2b 0c 23 ef 32 33 2c  32 32 34 2c 32 34 2c 36  |.+.#.23,224,24,6|
000008c0  30 2c 36 30 2c 36 30 2c  36 30 2c 36 30 2c 36 30  |0,60,60,60,60,60|
000008d0  2c 32 34 0d 2b 16 1e ef  32 33 2c 32 32 35 3b 32  |,24.+...23,225;2|
000008e0  34 2c 36 30 2c 36 30 2c  36 30 2c 36 30 2c 32 34  |4,60,60,60,60,24|
000008f0  3b 0d 2b 20 1c ef 32 33  2c 32 32 36 2c 30 3b 32  |;.+ ..23,226,0;2|
00000900  34 2c 36 30 2c 36 30 2c  32 34 2c 30 3b 0d 2b 2a  |4,60,60,24,0;.+*|
00000910  16 ef 32 33 2c 32 32 37  3b 30 3b 32 34 2c 32 34  |..23,227;0;24,24|
00000920  3b 30 3b 0d 2b 34 15 ef  32 33 2c 32 32 38 3b 30  |;0;.+4..23,228;0|
00000930  3b 30 2c 31 36 3b 30 3b  0d 2b 3e 1d ef 32 33 2c  |;0,16;0;.+>..23,|
00000940  32 32 39 3b 31 39 38 2c  31 33 30 3b 30 3b 31 33  |229;198,130;0;13|
00000950  30 2c 31 39 38 0d 2b 48  22 ef 32 33 2c 32 33 30  |0,198.+H".23,230|
00000960  2c 32 35 35 2c 31 37 2c  35 37 2c 31 37 2c 31 32  |,255,17,57,17,12|
00000970  37 2c 39 2c 32 2c 32 0d  2b 52 29 ef 32 33 2c 32  |7,9,2,2.+R).23,2|
00000980  33 31 2c 32 35 35 2c 31  33 36 2c 31 35 36 2c 31  |31,255,136,156,1|
00000990  33 36 2c 32 35 34 2c 31  34 34 2c 36 34 2c 36 34  |36,254,144,64,64|
000009a0  0d 2b 5c 1b ef 32 33 2c  32 33 32 3b 31 32 37 2c  |.+\..23,232;127,|
000009b0  39 2c 39 2c 36 33 2c 31  2c 32 3b 0d 2b 66 23 ef  |9,9,63,1,2;.+f#.|
000009c0  32 33 2c 32 33 33 3b 32  35 34 2c 31 34 34 2c 31  |23,233;254,144,1|
000009d0  34 34 2c 32 35 32 2c 31  32 38 2c 36 34 3b 0d 2b  |44,252,128,64;.+|
000009e0  70 1a ef 32 33 2c 32 33  34 2c 30 3b 36 33 2c 39  |p..23,234,0;63,9|
000009f0  2c 33 31 2c 31 2c 32 3b  0d 2b 7a 21 ef 32 33 2c  |,31,1,2;.+z!.23,|
00000a00  32 33 35 2c 30 3b 32 35  32 2c 31 34 34 2c 32 34  |235,0;252,144,24|
00000a10  38 2c 31 32 38 2c 36 34  3b 0d 2b 84 1a ef 32 33  |8,128,64;.+...23|
00000a20  2c 32 33 36 2c 30 3b 33  31 2c 35 2c 31 35 2c 31  |,236,0;31,5,15,1|
00000a30  2c 30 3b 0d 2b 8e 20 ef  32 33 2c 32 33 37 2c 30  |,0;.+. .23,237,0|
00000a40  3b 32 34 38 2c 31 36 30  2c 32 34 30 2c 31 32 38  |;248,160,240,128|
00000a50  2c 30 3b 0d 2b 98 17 ef  32 33 2c 32 33 38 2c 30  |,0;.+...23,238,0|
00000a60  3b 31 35 2c 37 2c 31 3b  30 3b 0d 2b a2 1c ef 32  |;15,7,1;0;.+...2|
00000a70  33 2c 32 33 39 2c 30 3b  32 34 30 2c 32 32 34 2c  |3,239,0;240,224,|
00000a80  31 32 38 3b 30 3b 0d 2b  ac 16 ef 32 33 2c 32 34  |128;0;.+...23,24|
00000a90  30 2c 30 3b 37 2c 33 2c  30 3b 30 3b 0d 2b b6 1a  |0,0;7,3,0;0;.+..|
00000aa0  ef 32 33 2c 32 34 31 2c  30 3b 32 32 34 2c 31 39  |.23,241,0;224,19|
00000ab0  32 2c 30 3b 30 3b 0d 2b  c0 16 ef 32 33 2c 32 34  |2,0;0;.+...23,24|
00000ac0  32 2c 30 3b 33 2c 31 2c  30 3b 30 3b 0d 2b ca 1a  |2,0;3,1,0;0;.+..|
00000ad0  ef 32 33 2c 32 34 33 2c  30 3b 31 39 32 2c 31 32  |.23,243,0;192,12|
00000ae0  38 2c 30 3b 30 3b 0d 2b  d4 14 ef 32 33 2c 32 34  |8,0;0;.+...23,24|
00000af0  34 2c 30 3b 31 3b 30 3b  30 3b 0d 2b de 16 ef 32  |4,0;1;0;0;.+...2|
00000b00  33 2c 32 34 35 2c 30 3b  31 32 38 3b 30 3b 30 3b  |3,245,0;128;0;0;|
00000b10  0d 2b e8 29 ef 32 33 2c  32 34 36 2c 33 32 2c 33  |.+.).23,246,32,3|
00000b20  32 2c 31 31 36 2c 31 32  36 2c 32 31 38 2c 32 35  |2,116,126,218,25|
00000b30  34 2c 32 33 38 2c 32 33  38 0d 2b f2 20 ef 32 33  |4,238,238.+. .23|
00000b40  2c 32 34 37 2c 30 3b 33  34 2c 33 34 2c 32 35 30  |,247,0;34,34,250|
00000b50  2c 31 32 37 2c 31 32 37  3b 0d 2b fc 1f ef 32 33  |,127,127;.+...23|
00000b60  2c 32 34 38 2c 30 3b 36  34 2c 36 34 2c 37 39 2c  |,248,0;64,64,79,|
00000b70  32 35 34 2c 32 35 34 3b  0d 2c 06 20 ef 32 33 2c  |254,254;.,. .23,|
00000b80  32 34 39 2c 31 2c 31 2c  35 37 2c 32 35 2c 32 35  |249,1,1,57,25,25|
00000b90  35 2c 31 32 37 2c 30 3b  0d 2c 10 1b ef 32 33 2c  |5,127,0;.,...23,|
00000ba0  32 35 30 3b 30 3b 32 38  2c 32 35 35 2c 32 35 34  |250;0;28,255,254|
00000bb0  2c 30 3b 0d 2c 1a 2b ef  32 33 2c 32 35 31 2c 32  |,0;.,.+.23,251,2|
00000bc0  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
00000bd0  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 0d 2c  |55,255,255,255.,|
00000be0  24 18 ef 32 33 2c 32 35  32 2c 30 3b 30 3b 34 2c  |$..23,252,0;0;4,|
00000bf0  31 32 2c 31 34 3b 0d 2c  2e 2a e2 31 2c 38 2c 30  |12,14;.,.*.1,8,0|
00000c00  2c 30 2c 30 2c 31 2c 35  2c 35 2c 31 32 37 2c 2d  |,0,0,1,5,5,127,-|
00000c10  31 30 2c 2d 31 30 2c 2d  31 30 2c 31 32 36 2c 30  |10,-10,-10,126,0|
00000c20  0d 2c 38 26 e2 32 2c 31  2c 30 2c 30 2c 30 2c 31  |.,8&.2,1,0,0,0,1|
00000c30  2c 31 2c 31 2c 31 32 36  2c 30 2c 30 2c 30 2c 31  |,1,1,126,0,0,0,1|
00000c40  32 36 2c 31 32 36 0d 2c  42 2a e2 33 2c 31 33 36  |26,126.,B*.3,136|
00000c50  2c 2d 33 2c 2d 33 2c 2d  33 2c 34 2c 34 2c 34 2c  |,-3,-3,-3,4,4,4,|
00000c60  31 34 2c 31 32 2c 30 2c  2d 38 2c 31 32 36 2c 30  |14,12,0,-8,126,0|
00000c70  0d 2c 4c 27 78 25 3d 36  34 30 3a 79 25 3d 35 30  |.,L'x%=640:y%=50|
00000c80  30 3a 6d 78 25 3d 78 25  3a 6d 79 25 3d 79 25 3a  |0:mx%=x%:my%=y%:|
00000c90  48 53 25 3d 35 30 30 0d  2c 56 55 de 62 78 25 28  |HS%=500.,VU.bx%(|
00000ca0  32 30 29 2c 62 79 25 28  32 30 29 2c 78 25 28 32  |20),by%(20),x%(2|
00000cb0  29 2c 79 25 28 32 29 2c  63 25 28 32 29 2c 73 25  |),y%(2),c%(2),s%|
00000cc0  28 32 29 2c 68 25 28 32  29 2c 70 25 28 32 29 2c  |(2),h%(2),p%(2),|
00000cd0  77 25 28 32 29 2c 53 58  25 28 33 29 2c 53 59 25  |w%(2),SX%(3),SY%|
00000ce0  28 33 29 2c 53 48 49 50  24 28 33 29 0d 2c 60 28  |(3),SHIP$(3).,`(|
00000cf0  53 48 49 50 24 28 30 29  3d bd 32 34 37 2b bd 32  |SHIP$(0)=.247+.2|
00000d00  34 38 3a 53 48 49 50 24  28 31 29 3d 53 48 49 50  |48:SHIP$(1)=SHIP|
00000d10  24 28 30 29 0d 2c 6a 28  53 48 49 50 24 28 32 29  |$(0).,j(SHIP$(2)|
00000d20  3d bd 32 34 39 2b bd 32  35 30 3a 53 48 49 50 24  |=.249+.250:SHIP$|
00000d30  28 33 29 3d 53 48 49 50  24 28 32 29 0d 2c 74 20  |(3)=SHIP$(2).,t |
00000d40  f7 3a e3 54 25 3d 30 b8  33 3a f3 53 58 25 28 54  |.:.T%=0.3:.SX%(T|
00000d50  25 29 2c 53 59 25 28 54  25 29 3a ed 0d 2c 7e 24  |%),SY%(T%):..,~$|
00000d60  dc 32 30 30 2c 32 30 30  2c 36 30 30 2c 32 34 30  |.200,200,600,240|
00000d70  2c 33 30 30 2c 31 32 30  2c 33 33 30 2c 32 39 30  |,300,120,330,290|
00000d80  0d 2c 88 0c e3 54 25 3d  30 b8 32 30 0d 2c 92 27  |.,...T%=0.20.,.'|
00000d90  62 79 25 28 54 25 29 3d  b3 28 31 30 30 29 2d 35  |by%(T%)=.(100)-5|
00000da0  31 3a 62 78 25 28 54 25  29 3d b3 28 31 35 30 29  |1:bx%(T%)=.(150)|
00000db0  2d 35 30 0d 2c 9c 05 ed  0d 2c a6 05 e1 0d 2e e0  |-50.,....,......|
00000dc0  0a dd f2 76 61 72 69 0d  2e ea 1b 70 25 28 30 29  |...vari....p%(0)|
00000dd0  3d b9 3a 70 25 28 31 29  3d b9 3a 70 25 28 32 29  |=.:p%(1)=.:p%(2)|
00000de0  3d b9 0d 2e f4 39 44 25  3d a3 3a 5a 25 3d 31 32  |=....9D%=.:Z%=12|
00000df0  32 30 3a 49 25 3d 32 32  39 3a 53 43 25 3d a3 3a  |20:I%=229:SC%=.:|
00000e00  73 63 25 3d 31 35 30 3a  4c 25 3d a3 3a 6c 25 3d  |sc%=150:L%=.:l%=|
00000e10  31 3a 46 25 3d 33 3a 47  25 3d a3 0d 2e fe 23 e3  |1:F%=3:G%=....#.|
00000e20  54 25 3d 30 b8 31 35 3a  ef 31 39 2c 54 25 2c 2d  |T%=0.15:.19,T%,-|
00000e30  28 54 25 3d 31 30 29 2a  33 3b 30 3b 3a ed 0d 2f  |(T%=10)*3;0;:../|
00000e40  08 0a fb 31 33 32 3a db  0d 2f 12 11 ef 32 38 2c  |...132:../...28,|
00000e50  30 2c 31 39 2c 31 39 2c  30 0d 2f 1c 0a fb 31 33  |0,19,19,0./...13|
00000e60  34 3a db 0d 2f 26 58 fb  31 30 3a f1 27 22 49 46  |4:../&X.10:.'"IF|
00000e70  20 59 4f 55 27 4c 4c 20  4a 55 53 54 20 57 41 49  | YOU'LL JUST WAI|
00000e80  54 22 27 27 22 46 4f 52  20 48 41 4c 46 20 41 20  |T"''"FOR HALF A |
00000e90  4d 4f 2e 22 27 27 22 54  48 45 4e 20 4f 46 46 20  |MO."''"THEN OFF |
00000ea0  54 4f 20 43 4f 52 4e 57  41 4c 4c 22 27 22 57 45  |TO CORNWALL"'"WE|
00000eb0  20 53 48 41 4c 4c 20 47  4f 2e 22 0d 2f 30 19 e3  | SHALL GO."./0..|
00000ec0  54 25 3d 30 b8 35 3a d4  33 2c 31 2c 31 33 30 2c  |T%=0.5:.3,1,130,|
00000ed0  32 32 3a ed 0d 2f 3a 0a  f2 73 63 65 6e 65 0d 2f  |22:../:..scene./|
00000ee0  44 2d ef 34 2c 32 38 2c  30 2c 31 31 2c 31 39 2c  |D-.4,28,0,11,19,|
00000ef0  30 2c 31 32 2c 32 38 2c  30 2c 33 31 2c 31 39 2c  |0,12,28,0,31,19,|
00000f00  33 31 2c 31 37 2c 31 34  33 2c 35 0d 2f 4e 09 f7  |31,17,143,5./N..|
00000f10  8d 44 62 6f 0d 2f 58 1f  e3 54 25 3d 31 b8 31 35  |.Dbo./X..T%=1.15|
00000f20  3a f3 41 25 3a ef 31 39  2c 54 25 2c 41 25 3b 30  |:.A%:.19,T%,A%;0|
00000f30  3b 3a ed 0d 2f 62 23 dc  30 2c 31 32 2c 30 2c 34  |;:../b#.0,12,0,4|
00000f40  2c 30 2c 36 2c 30 2c 30  2c 30 2c 30 2c 30 2c 37  |,0,6,0,0,0,0,0,7|
00000f50  2c 31 2c 32 2c 33 0d 2f  6c 0e fb 31 30 3a f2 73  |,1,2,3./l..10:.s|
00000f60  63 6f 72 65 0d 2f 76 13  e6 33 2c 33 3a ec 78 25  |core./v..3,3:.x%|
00000f70  2c 79 25 3a ef 49 25 0d  2f 80 0a 2a 46 58 39 2c  |,y%:.I%./..*FX9,|
00000f80  32 0d 2f 8a 0b 2a 46 58  31 30 2c 32 0d 2f 94 05  |2./..*FX10,2./..|
00000f90  e1 0d 32 c8 0b dd f2 73  63 6f 72 65 0d 32 d2 06  |..2....score.2..|
00000fa0  ef 34 0d 32 dc 25 e7 53  43 25 3d a3 20 db 3a f1  |.4.2.%.SC%=. .:.|
00000fb0  22 53 43 4f 52 45 3a 22  3b 8a 31 32 29 22 48 49  |"SCORE:";.12)"HI|
00000fc0  3a 22 3b 48 53 25 3b 0d  32 e6 0f f1 8a 36 2c 30  |:";HS%;.2....6,0|
00000fd0  29 3b 53 43 25 3b 0d 32  f0 06 ef 35 0d 32 fa 05  |);SC%;.2...5.2..|
00000fe0  e1 0d 36 b0 0b dd f2 73  63 65 6e 65 0d 36 ba 06  |..6....scene.6..|
00000ff0  ef 35 0d 36 c4 1e e3 54  25 3d 30 b8 31 30 30 88  |.5.6...T%=0.100.|
00001000  34 3a e6 30 2c 31 35 2b  28 54 25 83 38 3d a3 29  |4:.0,15+(T%.8=.)|
00001010  0d 36 ce 3a ec 33 30 2b  54 25 2c 34 39 30 2d 54  |.6.:.30+T%,490-T|
00001020  25 81 32 3a ec 31 33 30  2b 54 25 81 36 2c 33 35  |%.2:.130+T%.6,35|
00001030  30 2d 54 25 81 32 3a f0  38 35 2c 33 35 30 2d 54  |0-T%.2:.85,350-T|
00001040  25 2a 32 2c 35 30 30 2d  54 25 0d 36 d8 12 e6 30  |%*2,500-T%.6...0|
00001050  2c 31 35 2b 28 54 25 83  38 3d a3 29 0d 36 e2 3d  |,15+(T%.8=.).6.=|
00001060  ec 31 32 35 30 2d 54 25  2c 34 35 30 2d 54 25 81  |.1250-T%,450-T%.|
00001070  32 3a ec 31 31 35 30 2d  54 25 81 36 2c 33 31 30  |2:.1150-T%.6,310|
00001080  2d 54 25 81 32 3a f0 38  35 2c 39 33 30 2b 54 25  |-T%.2:.85,930+T%|
00001090  2a 32 2c 34 36 30 2d 54  25 0d 36 ec 13 e6 30 2c  |*2,460-T%.6...0,|
000010a0  31 33 2b 2d 28 54 25 83  38 3d a3 29 0d 36 f6 3f  |13+-(T%.8=.).6.?|
000010b0  ec 31 31 34 30 2d 54 25  81 32 2c 33 30 30 2d 54  |.1140-T%.2,300-T|
000010c0  25 81 33 3a ec 38 32 30  2d 54 25 81 38 2c 33 35  |%.3:.820-T%.8,35|
000010d0  30 2d 54 25 81 31 32 3a  f0 38 35 2c 39 34 30 2d  |0-T%.12:.85,940-|
000010e0  54 25 2a 32 2c 34 36 30  2d 54 25 0d 37 00 13 e6  |T%*2,460-T%.7...|
000010f0  30 2c 31 33 2b 2d 28 54  25 83 38 3d a3 29 0d 37  |0,13+-(T%.8=.).7|
00001100  0a 3c ec 32 33 30 2b 54  25 2c 33 35 30 2d 54 25  |.<.230+T%,350-T%|
00001110  83 32 3a ec 34 33 30 2b  54 25 81 38 2c 33 35 30  |.2:.430+T%.8,350|
00001120  2d 54 25 81 31 32 3a f0  38 35 2c 33 33 30 2d 54  |-T%.12:.85,330-T|
00001130  25 2a 32 2c 35 30 30 2d  54 25 0d 37 14 05 ed 0d  |%*2,500-T%.7....|
00001140  37 1e 17 e6 30 2c 31 3a  ec 31 30 37 30 2c 34 36  |7...0,1:.1070,46|
00001150  36 3a ef 32 34 36 0d 37  28 21 ec 39 35 30 2c 33  |6:.246.7(!.950,3|
00001160  36 30 3a ec 39 36 32 2c  34 32 30 3a f0 38 35 2c  |60:.962,420:.85,|
00001170  39 37 34 2c 33 36 30 0d  37 32 3c ec 31 33 30 2b  |974,360.72<.130+|
00001180  54 25 2c 33 38 30 2d 54  25 83 33 3a ec 33 33 30  |T%,380-T%.3:.330|
00001190  2b 54 25 81 34 2c 33 35  30 2d 54 25 81 31 32 3a  |+T%.4,350-T%.12:|
000011a0  f0 38 35 2c 33 33 30 2d  54 25 2a 33 2c 35 30 30  |.85,330-T%*3,500|
000011b0  2d 54 25 0d 37 3c 19 e3  54 25 3d 30 b8 32 3a d4  |-T%.7<..T%=0.2:.|
000011c0  33 2c 31 2c 31 33 30 2c  32 32 3a ed 0d 37 46 1f  |3,1,130,22:..7F.|
000011d0  e3 54 25 3d 30 b8 33 30  30 88 34 3a e6 30 2c 31  |.T%=0.300.4:.0,1|
000011e0  34 2b 2d 28 54 25 83 38  3d a3 29 0d 37 50 2e ec  |4+-(T%.8=.).7P..|
000011f0  31 32 37 39 2c 33 30 30  2d 54 25 81 32 3a ec 31  |1279,300-T%.2:.1|
00001200  32 37 39 2c 35 33 30 2d  54 25 3a f0 38 35 2c 38  |279,530-T%:.85,8|
00001210  30 30 2b 54 25 2c 33 30  30 0d 37 5a 28 ec 30 2c  |00+T%,300.7Z(.0,|
00001220  33 30 30 2d 54 25 81 32  3a ec 30 2c 35 30 30 2d  |300-T%.2:.0,500-|
00001230  54 25 3a f0 38 35 2c 34  38 30 2d 54 25 2c 33 30  |T%:.85,480-T%,30|
00001240  30 0d 37 64 05 ed 0d 37  6e 16 e6 30 2c 35 3a ec  |0.7d...7n..0,5:.|
00001250  31 33 30 2c 34 38 30 3a  ef 32 34 36 0d 37 78 21  |130,480:.246.7x!|
00001260  ec 39 32 38 2c 33 35 30  3a ec 39 34 30 2c 34 31  |.928,350:.940,41|
00001270  30 3a f0 38 35 2c 39 35  32 2c 33 35 30 0d 37 82  |0:.85,952,350.7.|
00001280  2c e3 54 25 3d 30 b8 33  3a e6 30 2c 31 3a ec 53  |,.T%=0.3:.0,1:.S|
00001290  58 25 28 54 25 29 2c 53  59 25 28 54 25 29 3a f1  |X%(T%),SY%(T%):.|
000012a0  53 48 49 50 24 28 54 25  29 0d 37 8c 05 ed 0d 37  |SHIP$(T%).7....7|
000012b0  96 32 e6 30 2c 31 30 3a  ec 30 2c 35 36 3a df 31  |.2.0,10:.0,56:.1|
000012c0  32 37 39 2c 35 36 3a ef  32 34 2c 30 3b 30 3b 31  |279,56:.24,0;0;1|
000012d0  32 37 39 3b 34 38 3b 3a  e6 30 2c 31 34 33 3a da  |279;48;:.0,143:.|
000012e0  0d 37 a0 07 ef 32 36 0d  37 aa 05 e1 0d 3a 98 09  |.7...26.7....:..|
000012f0  dd f2 61 73 6b 0d 3a a2  09 f2 37 73 63 6e 0d 3a  |..ask.:...7scn.:|
00001300  ac 1e f1 8a 39 2c 31 30  29 22 49 4e 53 54 52 55  |....9,10)"INSTRU|
00001310  43 54 49 4f 4e 53 20 20  59 2f 4e 22 0d 3a b6 27  |CTIONS  Y/N".:.'|
00001320  f5 3a 54 25 3d a5 80 32  32 33 3a fd 54 25 3d 38  |.:T%=..223:.T%=8|
00001330  39 84 54 25 3d 37 38 3a  d4 33 2c 31 2c 31 33 30  |9.T%=78:.3,1,130|
00001340  2c 32 32 0d 3a c0 11 db  3a e7 54 25 3d 38 39 f2  |,22.:...:.T%=89.|
00001350  69 6e 73 74 0d 3a ca 0a  f2 66 69 6e 64 4a 0d 3a  |inst.:...findJ.:|
00001360  d4 05 e1 0d 3e 80 0a dd  f2 69 6e 73 74 0d 3e 8a  |....>....inst.>.|
00001370  d4 f1 27 22 49 74 20 69  73 20 74 68 65 20 63 6c  |..'"It is the cl|
00001380  6f 73 69 6e 67 20 64 61  79 73 20 6f 66 20 74 68  |osing days of th|
00001390  65 20 66 69 72 73 74 20  77 6f 72 6c 64 20 77 61  |e first world wa|
000013a0  72 2e 20 20 59 6f 75 20  61 72 65 20 74 68 65 20  |r.  You are the |
000013b0  63 6f 6d 6d 61 6e 64 65  72 20 6f 66 61 20 73 6d  |commander ofa sm|
000013c0  61 6c 6c 20 68 61 72 62  6f 75 72 20 69 6e 20 43  |all harbour in C|
000013d0  6f 72 6e 77 61 6c 6c 20  77 68 65 6e 20 79 6f 75  |ornwall when you|
000013e0  61 72 65 20 61 74 74 61  63 6b 65 64 20 62 79 20  |are attacked by |
000013f0  61 20 73 71 75 61 64 72  6f 6e 20 6f 66 20 46 6f  |a squadron of Fo|
00001400  6b 6b 65 72 62 69 2d 70  6c 61 6e 65 73 2e 20 59  |kkerbi-planes. Y|
00001410  6f 75 72 20 6f 6e 6c 79  20 61 72 6d 61 6d 65 6e  |our only armamen|
00001420  74 20 69 73 20 61 6e 20  61 6e 63 69 65 6e 74 20  |t is an ancient |
00001430  42 6f 65 72 20 77 61 72  20 63 61 6e 6e 6f 6e 2e  |Boer war cannon.|
00001440  22 0d 3e 94 58 f1 22 57  69 74 68 20 6c 75 63 6b  |".>.X."With luck|
00001450  20 79 6f 75 20 77 69 6c  6c 20 73 75 72 76 69 76  | you will surviv|
00001460  65 20 6c 6f 6e 67 22 27  22 65 6e 6f 75 67 68 20  |e long"'"enough |
00001470  74 6f 20 67 61 69 6e 20  61 20 66 69 6e 65 20 6d  |to gain a fine m|
00001480  65 6d 6f 72 69 61 6c 20  6f 6e 22 27 22 79 6f 75  |emorial on"'"you|
00001490  72 20 67 72 61 76 65 21  22 0d 3e 9e 9a f1 27 22  |r grave!".>...'"|
000014a0  55 73 65 20 6a 6f 79 73  74 69 63 6b 20 6f 72 20  |Use joystick or |
000014b0  74 68 65 20 66 6f 6c 6c  6f 77 69 6e 67 20 6b 65  |the following ke|
000014c0  79 73 2e 22 27 27 8a 31  30 29 22 41 20 2e 2e 2e  |ys."''.10)"A ...|
000014d0  2e 2e 2e 2e 2e 2e 2e 55  50 22 8a 31 30 29 22 5a  |.......UP".10)"Z|
000014e0  20 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 44 4f 57 4e 22  | ..........DOWN"|
000014f0  8a 31 30 29 22 3c 20 2e  2e 2e 2e 2e 2e 2e 2e 2e  |.10)"< .........|
00001500  2e 4c 45 46 54 22 8a 31  30 29 22 3e 20 2e 2e 2e  |.LEFT".10)"> ...|
00001510  2e 2e 2e 2e 2e 2e 2e 52  49 47 48 54 22 8a 31 30  |.......RIGHT".10|
00001520  29 22 53 50 41 43 45 20  2e 2e 2e 2e 2e 2e 46 49  |)"SPACE ......FI|
00001530  52 45 22 0d 3e a8 22 f1  27 27 8a 38 29 bd 31 33  |RE".>.".''.8).13|
00001540  36 22 50 4c 45 41 53 45  20 50 52 45 53 53 20 53  |6"PLEASE PRESS S|
00001550  50 41 43 45 22 0d 3e b2  16 f5 fd a5 3d 33 32 3a  |PACE".>.....=32:|
00001560  d4 33 2c 31 2c 31 33 30  2c 32 32 0d 3e bc 05 e1  |.3,1,130,22.>...|
00001570  0d 42 68 0a dd f2 37 73  63 6e 0d 42 72 1f e3 54  |.Bh...7scn.Br..T|
00001580  25 3d 30 b8 32 34 3a f1  8a 30 2c 54 25 29 bd 31  |%=0.24:..0,T%).1|
00001590  35 37 bd 31 33 32 3b 3a  ed 0d 42 7c 41 e3 54 25  |57.132;:..B|A.T%|
000015a0  3d 30 b8 31 3a f1 8a 38  2c 54 25 29 bd 31 33 33  |=0.1:..8,T%).133|
000015b0  bd 31 35 37 bd 31 34 31  3b bd 31 33 34 22 48 41  |.157.141;.134"HA|
000015c0  52 42 4f 55 52 20 43 4f  4d 4d 41 4e 44 20 20 22  |RBOUR COMMAND  "|
000015d0  bd 31 33 35 bd 31 35 37  3a ed 0d 42 86 11 ef 32  |.135.157:..B...2|
000015e0  38 2c 32 2c 32 34 2c 33  37 2c 32 0d 42 90 15 ef  |8,2,24,37,2.B...|
000015f0  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 31 32  |23;8202;0;0;0;12|
00001600  0d 42 9a 05 e1 0d 46 50  09 dd f2 65 6e 64 0d 46  |.B....FP...end.F|
00001610  5a 13 e7 53 43 25 3e 48  53 25 48 53 25 3d 53 43  |Z..SC%>HS%HS%=SC|
00001620  25 0d 46 64 18 51 25 3d  53 43 25 81 32 30 30 3a  |%.Fd.Q%=SC%.200:|
00001630  e7 51 25 3e 35 51 25 3d  35 0d 46 6e 09 f7 8d 70  |.Q%>5Q%=5.Fn...p|
00001640  42 46 0d 46 78 16 e3 54  25 3d 30 b8 51 25 3a f3  |BF.Fx..T%=0.Q%:.|
00001650  24 26 33 30 30 30 3a ed  0d 46 82 a7 dc 20 46 41  |$&3000:..F... FA|
00001660  49 4c 45 44 20 4d 49 53  45 52 41 42 4c 59 20 49  |ILED MISERABLY I|
00001670  4e 20 48 49 53 20 54 41  53 4b 2c 47 49 56 45 4e  |N HIS TASK,GIVEN|
00001680  20 41 20 50 4f 4f 52 20  41 43 43 4f 55 4e 54 20  | A POOR ACCOUNT |
00001690  4f 46 20 48 49 4d 53 45  4c 46 2c 50 45 52 46 4f  |OF HIMSELF,PERFO|
000016a0  52 4d 45 44 20 53 41 54  49 46 41 43 54 4f 52 49  |RMED SATIFACTORI|
000016b0  4c 4c 59 2c 50 55 54 20  55 50 20 41 20 47 4f 4f  |LLY,PUT UP A GOO|
000016c0  44 20 53 48 4f 57 2c 47  49 56 45 4e 20 48 49 53  |D SHOW,GIVEN HIS|
000016d0  20 4c 49 46 45 20 57 49  54 48 20 48 4f 4e 4f 55  | LIFE WITH HONOU|
000016e0  52 2c 41 57 41 52 44 45  44 20 54 48 45 20 56 2e  |R,AWARDED THE V.|
000016f0  43 2e 20 50 4f 53 54 48  55 4d 4f 55 53 4c 59 0d  |C. POSTHUMOUSLY.|
00001700  46 8c 14 f2 37 73 63 6e  3a d4 26 31 30 2c 30 2c  |F...7scn:.&10,0,|
00001710  30 2c 30 0d 46 96 a9 e3  54 25 3d 30 b8 31 3a f1  |0,0.F...T%=0.1:.|
00001720  8a 31 33 29 bd 31 34 31  22 45 50 49 54 41 50 48  |.13).141"EPITAPH|
00001730  22 3a ed 3a f1 27 27 22  54 6f 64 61 79 20 69 74  |":.:.''"Today it|
00001740  20 68 61 73 20 62 65 65  6e 20 72 65 70 6f 72 74  | has been report|
00001750  65 64 20 74 68 61 74 20  61 22 27 22 68 61 72 62  |ed that a"'"harb|
00001760  6f 75 72 20 69 6e 20 43  6f 72 6e 77 61 6c 6c 20  |our in Cornwall |
00001770  68 61 73 20 62 65 65 6e  20 77 69 70 65 64 22 27  |has been wiped"'|
00001780  22 6f 75 74 20 62 79 20  74 68 65 20 42 6f 73 68  |"out by the Bosh|
00001790  2e 20 54 68 65 20 63 6f  6d 61 6e 64 65 72 20 69  |. The comander i|
000017a0  73 22 27 22 73 61 69 64  20 74 6f 20 68 61 76 65  |s"'"said to have|
000017b0  20 3a 5f 22 27 27 24 26  33 30 30 30 0d 46 a0 25  | :_"''$&3000.F.%|
000017c0  f1 27 27 22 59 6f 75 20  61 74 74 61 69 6e 65 64  |.''"You attained|
000017d0  20 61 20 73 63 6f 72 65  20 6f 66 20 22 3b 53 43  | a score of ";SC|
000017e0  25 0d 46 aa 21 f1 27 27  27 27 8a 31 30 29 bd 31  |%.F.!.''''.10).1|
000017f0  33 36 22 50 4c 41 59 20  41 47 41 49 4e 20 59 2f  |36"PLAY AGAIN Y/|
00001800  4e 22 0d 46 b4 1c f5 3a  54 25 3d a5 20 80 32 32  |N".F...:T%=. .22|
00001810  33 3a fd 54 25 3d 38 39  84 54 25 3d 37 38 0d 46  |3:.T%=89.T%=78.F|
00001820  be 31 e7 54 25 3d 37 38  db 3a e3 54 25 3d 31 30  |.1.T%=78.:.T%=10|
00001830  b8 31 31 3a f1 8a 31 34  2c 54 25 29 bd 31 34 31  |.11:..14,T%).141|
00001840  3b bd 31 33 36 22 42 59  45 21 22 3a ed 3a e0 0d  |;.136"BYE!":.:..|
00001850  46 c8 0a f2 66 69 6e 64  4a 0d 46 d2 05 e1 0d 4a  |F...findJ.F....J|
00001860  38 0b dd f2 6d 75 73 69  63 0d 4a 42 09 2a 46 58  |8...music.JB.*FX|
00001870  31 35 0d 4a 4c 09 f7 8d  70 5c 4a 0d 4a 56 18 f5  |15.JL...p\J.JV..|
00001880  3a f3 74 25 2c 64 25 3a  e7 74 25 3d 2d 31 3a fd  |:.t%,d%:.t%=-1:.|
00001890  b9 3a e1 0d 4a 60 12 d4  31 2c 2d 31 35 2c 74 25  |.:..J`..1,-15,t%|
000018a0  2c 64 25 2a 32 0d 4a 6a  0d d1 3d a3 3a f5 fd 91  |,d%*2.Jj..=.:...|
000018b0  3e 35 0d 4a 74 12 d4 32  2c 2d 31 35 2c 74 25 2c  |>5.Jt..2,-15,t%,|
000018c0  64 25 2a 32 0d 4a 7e 0d  d1 3d a3 3a f5 fd 91 3e  |d%*2.J~..=.:...>|
000018d0  35 0d 4a 88 12 d4 33 2c  2d 31 35 2c 74 25 2c 64  |5.J...3,-15,t%,d|
000018e0  25 2a 32 0d 4a 92 06 fd  a3 0d 4a 9c 4a dc 33 32  |%*2.J.....J.J.32|
000018f0  2c 32 2c 34 38 2c 32 2c  36 30 2c 33 2c 36 38 2c  |,2,48,2,60,3,68,|
00001900  31 2c 36 30 2c 32 2c 34  38 2c 32 2c 33 32 2c 32  |1,60,2,48,2,32,2|
00001910  2c 34 38 2c 32 2c 36 30  2c 32 2c 36 38 2c 32 2c  |,48,2,60,2,68,2,|
00001920  36 30 2c 32 2c 34 38 2c  32 2c 33 32 2c 32 2c 34  |60,2,48,2,32,2,4|
00001930  38 2c 32 0d 4a a6 59 dc  36 30 2c 36 2c 36 38 2c  |8,2.J.Y.60,6,68,|
00001940  36 2c 35 32 2c 33 2c 34  38 2c 31 2c 35 32 2c 32  |6,52,3,48,1,52,2|
00001950  2c 34 30 2c 34 2c 34 38  2c 32 2c 35 32 2c 33 2c  |,40,4,48,2,52,3,|
00001960  34 38 2c 31 2c 35 32 2c  32 2c 34 30 2c 32 2c 32  |48,1,52,2,40,2,2|
00001970  34 2c 32 2c 34 30 2c 32  2c 35 32 2c 32 2c 34 38  |4,2,40,2,52,2,48|
00001980  2c 32 2c 34 30 2c 32 2c  36 38 2c 34 0d 4a b0 55  |,2,40,2,68,4.J.U|
00001990  dc 37 36 2c 32 2c 36 30  2c 31 2c 36 30 2c 33 2c  |.76,2,60,1,60,3,|
000019a0  36 30 2c 32 2c 36 30 2c  34 2c 35 32 2c 32 2c 34  |60,2,60,4,52,2,4|
000019b0  38 2c 33 2c 34 30 2c 31  2c 34 38 2c 32 2c 33 32  |8,3,40,1,48,2,32|
000019c0  2c 33 2c 33 32 2c 32 2c  34 38 2c 32 2c 34 38 2c  |,3,32,2,48,2,48,|
000019d0  36 2c 34 30 2c 32 2c 34  38 2c 34 2c 33 32 2c 31  |6,40,2,48,4,32,1|
000019e0  32 0d 4a ba 0a dc 2d 31  2c 2d 31 0d 4e 20 0b dd  |2.J...-1,-1.N ..|
000019f0  f2 74 69 74 6c 65 0d 4e  2a 13 ef 32 33 3b 38 32  |.title.N*..23;82|
00001a00  30 32 3b 30 3b 30 3b 30  3b 0d 4e 34 0b e3 54 25  |02;0;0;0;.N4..T%|
00001a10  3d 30 b8 37 0d 4e 3e 16  fb 54 25 83 36 2b 31 3a  |=0.7.N>..T%.6+1:|
00001a20  f1 8a 30 2c 54 25 2a 34  29 3b 0d 4e 48 1a e3 49  |..0,T%*4);.NH..I|
00001a30  25 3d 30 b8 34 3a ef 39  2c 32 33 30 2c 32 33 31  |%=0.4:.9,230,231|
00001a40  2c 39 3a ed 0d 4e 52 0f  fb 28 54 25 2b 32 29 83  |,9:..NR..(T%+2).|
00001a50  36 2b 31 0d 4e 5c 21 f1  8a 32 2c 54 25 2a 34 2b  |6+1.N\!..2,T%*4+|
00001a60  32 29 22 48 41 52 42 4f  55 52 20 20 43 4f 4d 4d  |2)"HARBOUR  COMM|
00001a70  41 4e 44 22 0d 4e 66 05  ed 0d 4e 70 0a f2 6d 75  |AND".Nf...Np..mu|
00001a80  73 69 63 0d 4e 7a 05 e1  0d 52 08 0b dd f2 66 69  |sic.Nz...R....fi|
00001a90  6e 64 4a 0d 52 12 09 2a  46 58 32 31 0d 52 1c 41  |ndJ.R..*FX21.R.A|
00001aa0  db 3a f1 8a 36 2c 39 29  22 57 48 41 54 20 4c 45  |.:..6,9)"WHAT LE|
00001ab0  56 45 4c 20 4f 46 20 44  49 46 46 49 43 55 4c 54  |VEL OF DIFFICULT|
00001ac0  59 22 27 27 8a 38 29 22  31 20 2d 20 45 41 53 59  |Y"''.8)"1 - EASY|
00001ad0  20 54 4f 20 34 20 2d 20  48 41 52 44 22 0d 52 26  | TO 4 - HARD".R&|
00001ae0  27 f5 3a 54 25 3d a5 80  32 33 39 3a fd 54 25 3e  |'.:T%=..239:.T%>|
00001af0  33 32 80 54 25 3c 33 37  3a d4 33 2c 31 2c 31 33  |32.T%<37:.3,1,13|
00001b00  30 2c 32 32 0d 52 30 1f  4d 25 3d 28 33 36 2d 54  |0,22.R0.M%=(36-T|
00001b10  25 29 2a 34 3a 6d 25 3d  31 2b 28 31 36 2d 4d 25  |%)*4:m%=1+(16-M%|
00001b20  29 81 33 0d 52 3a 09 2a  46 58 32 31 0d 52 44 49  |).3.R:.*FX21.RDI|
00001b30  db 3a f1 8a 35 2c 39 29  22 50 52 45 53 53 20 52  |.:..5,9)"PRESS R|
00001b40  45 54 55 52 4e 20 46 4f  52 20 4b 45 59 42 4f 41  |ETURN FOR KEYBOA|
00001b50  52 44 22 27 27 8a 34 29  22 4f 52 20 46 49 52 45  |RD"''.4)"OR FIRE|
00001b60  20 42 55 54 54 4f 4e 20  46 4f 52 20 4a 4f 59 53  | BUTTON FOR JOYS|
00001b70  54 49 43 4b 22 0d 52 4e  1a f5 4a 25 3d a6 28 30  |TICK".RN..J%=.(0|
00001b80  29 3a fd 4a 25 3d 31 33  84 96 28 30 29 80 31 0d  |):.J%=13..(0).1.|
00001b90  52 58 0c e7 ac 4a 25 4a  25 3d a3 0d 52 62 05 e1  |RX...J%J%=..Rb..|
00001ba0  0d 55 f0 0e dd f2 72 65  6c 6f 63 61 74 65 0d 55  |.U....relocate.U|
00001bb0  fa 09 2a 54 41 50 45 0d  56 04 20 e3 54 25 3d 30  |..*TAPE.V. .T%=0|
00001bc0  b8 b8 50 2d 90 20 88 34  3a 54 25 21 26 45 30 30  |..P-. .4:T%!&E00|
00001bd0  3d 54 25 21 90 3a ed 0d  56 0e 13 2a 4b 45 59 39  |=T%!.:..V..*KEY9|
00001be0  4f 4c 44 7c 4d 52 55 4e  7c 4d 0d 56 18 10 2a 46  |OLD|MRUN|M.V..*F|
00001bf0  58 31 33 38 2c 30 2c 31  33 37 0d 56 22 0a d0 3d  |X138,0,137.V"..=|
00001c00  26 45 30 30 0d 56 2c 05  e0 0d ff                 |&E00.V,....|
00001c0b
18-09-88/COMMAND.m0
18-09-88/COMMAND.m1
18-09-88/COMMAND.m2
18-09-88/COMMAND.m4
18-09-88/COMMAND.m5

© Dominic Ford 2021–2024.

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