� Battleships
� by Mike Goldberg
� (c) The Micro User
(�<&8000�>&E00�TzL
2�
<)�1,1,-2,2,3,1,1,8,50,-1,-1,-1,120,100
F&�2,1,4,0,0,60,120,0,2,-1,-1,-1,0,0
P+�3,2,-2,0,0,255,0,0,126,-1,-1,-1,120,90
Z,�4,3,4,70,-50,1,1,10,126,-1,-1,-6,100,10
d�
n�
x
*FX4,2
���dLK
��1
��A$(5),B$(5),B%(5),S%(5)
��I%=224�235
��A,B,C,D,E,F,G,H
��23,I%,A,B,C,D,E,F,G,H
��
��23;8202;0;0;0;
�	�init
��
�)�19,0,4;0;19,1,0;0;19,2,3;0;19,3,1;0;
�
�0,129
��24,32;352;576;896;:�

�24,704;352;1248;896;:�


�0,128

�24,64;384;544;864;:�

"�24,736;384;1216;864;:�

,�26

6�grid(64,384)

@�grid(736,384)

JBS%=6:YS%=6:�DnJ

T�set_fleet

^�BBC_fleet

h
�start

r
�g%=1h%=1

|
�g%=0h%=0

�� ==PLAY LOOP

��

��h%=1h%=0:�txA

�
�w(60)

�	�keys

�
�w(60)

��BS%>0�beeb

��BS%=0�YS%=0

��YS%=0�end("YOU LOSE")

��BS%=0�end("YOU WIN!")

�YS%=0:BS%=0:�DnJ

��0

�	*FX15
�4,31,0,25,13:�
�
� ==DRAW GRIDS
&��grid(X%,Y%)
0�0,1
:Ey%=Y%:�I%=X%�X%+480�32:�I%,Y%:�1,0,480:�X%,y%:�1,480,0:y%=y%+32:�
DK�G%=1�2:�4,3)"YOUR FLEET"�26,3)"BEEB FLEET"�7,23)"SHIPS"�28,23)"SHIPS"
N�
X� ==INIT
b
��init
lG%=1
v
W1%=20
�
W2%=30
�	M%=32
�X$=�224
�
l$=�8+�10
�A$(0)=�2,�224)
�B$(0)=�224+l$+�224
�A$(1)=�2,�225)
�B$(1)=�225+l$+�225
�A$(2)=�2,�226)
�B$(2)=�226+l$+�226
�A$(3)=�3,�227)
�B$(3)=�227+l$+�227+l$+�227
�A$(4)=�3,�228)
B$(4)=�228+l$+�228+l$+�228
A$(5)=�4,�229)
&B$(5)=�229+l$+�229+l$+�229+l$+�229
  X$=�230+�231+l$+�8+�232+�233
*�
4� ==SET UP YOUR FLEET
>��set_fleet
H)�4:�1:a$="Arrange your fleet Captain"
R0�I=1��a$:�6+I,1)�a$,I,1):�w(4):�1,-8,40,1:�
\b�5,25)"CURSOR KEYS = MOVE SHIP/CURSOR"�13,27)"Z   = FIX SHIP/FIRE"�11,29)"SHIFT = HORIZ/VERT"
f�5
p�I%=0�5
z
�I%<3L%=2
��I%=3�I%=4L%=3
�
�I%=5L%=4
��3,3
�X%=256:Y%=672
�Z%=0
��X%,Y%:�3,-12,130,1:�A$(I%)
�
O$=A$(I%)
��set
��
��
�� ==PLACE YOUR SHIPS..KEYS
�	��set
�� TT%=�+5:� � �>TT%
�(-26)�m(-M%,0)
�(-122)�m(M%,0)
�(-58)�m(0,M%)
$�(-42)�m(0,-M%)
.\�(-1)�O$=A$(I%)�Y%-(L%*32)>352�X%,Y%:�O$:O$=B$(I%):Z%=1:�2,-12,100,1:�X%,Y%:�O$:�w(W1%)
8\�(-1)�O$=B$(I%)�X%+(L%*32)<576�X%,Y%:�O$:O$=A$(I%):Z%=0:�2,-12,100,1:�X%,Y%:�O$:�w(W1%)
B��(-74)��(-98)
LK%=0
V�3,-14,10,1
`�Z%=0:�X%,Y%:�O$:�DxE
j�Z%=1:�X%,Y%:�O$:�t`E
t�K%=1�X%,Y%:�O$:�d|C
~�0,2:�X%,Y%:�O$:�w(W2%)
��
�!� ==MOVE (placing your ships)
���m(x%,y%)
��X%+x%<64�Y%+y%>864�
��Z%=0:�X%+x%+(L%*32)=576�
��Z%=0:�Y%+y%=384�
��Z%=1:�X%+x%=544�
��Z%=1:�Y%+y%-(L%*32)=352�
��3,3
�
�X%,Y%
��O$
�X%=X%+x%:Y%=Y%+y%

�X%,Y%

�O$
�

� ==DELAY
(��w(w%)
2�=0:���>w%
<�
F��0,127,65,93,85,93,65,127,0,127,99,65,73,65,99,127,0,127,99,93,85,93,99,127,0,127,85,99,73,99,85,127,0,127,65,93,93,93,65,127,0,127,107,73,119,73,107,127
Ph�255,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,255,0,0,0,0,0,0,0,128,0,0,0,0,0,0,0
Z�0,65,99,54,28,54,99,65
d$�255,255,255,255,255,255,255,255
n� ==GOSUBS FOR YOUR FLEET
x�J%=X%�X%+((L%-1)*32)�32
�"�J%+4,Y%-4)=2�1,-15,90,2:K%=1
��
��
��J%=Y%�Y%-((L%-1)*32)�-32
�"�X%+4,J%-4)=2�1,-15,90,2:K%=1
��
��
�� ==BEEB's Fleet
���BBC_fleet
��19,3,4;0;
��0,3
��T%=0�5
�
�T%<3L%=1
�T%=3�T%=4L%=2

�T%=5L%=3
R%=�(2)
"�R%=1O$=A$(T%)�O$=B$(T%)
,+�R%=1I%=�(15-L%)*32+704:J%=�(15)*32+384
6+�R%=2J%=896-�(15-L%)*32:I%=�(15)*32+704
@K%=0
J�R%=1�tPF
T�R%=2�txF
^�K%=1�TXF
h�I%,J%:�O$
r�
|�
�� ==GOSUBS FOR BEEB FLEET
��U%=I%�I%+(L%*32)�32
��U%+4,J%-4)=3K%=1
��
��
��U%=J%�J%-(L%*32)�-32
��I%+4,U%-4)=3K%=1
��
��
�
� ==START
���start
�	*FX15
�+�4:�1,1)�35�1,25)�35�1,27)�35�1,29)�35
�1:�14,1)"BATTLESHIPS!"
V�G%=1�4:�1:�9,25)"Do you want to go 1st?";:A$=�:�A$,1)="Y"g%=0:��A$,1)<>"Y"g%=1
	A$=""
&�9,25)�25:�5
0�I%=0�3:B%(I%)=2:S%(I%)=2:�
:B%(3)=3:B%(4)=3:B%(5)=4
DS%(3)=3:S%(4)=3:S%(5)=4
NBS%=6:YS%=6
X	�DnJ
b
v%=0:D%=1
l�
v� ==YOUR GO
�
��keys
�*�4:�2:�16,25)"YOUR GO":�5:�2,-12,90,1
�!X%=960:Y%=640:�3,3:�X%,Y%:�X$
�� TT%=�+5:� � �>TT%
��(-26)�X(-M%,0)
��(-122)�X(M%,0)
��(-58)�X(0,M%)
��(-42)�X(0,-M%)
���(-98)��(-74)
��X%+4,Y%-4)=3�hit:�
�$�X%+4,Y%-4)<>0�1,-12,90,1:�t^G
��0,2:�X%,Y%:�1,4,50,1:�234
�
�w(50)
�3,3:�X%,Y%:�X$
�
� ==MOVE X
 ��X(x%,y%)
*�X%+x%=1216�X%+x%=704�
4�Y%+y%=896�Y%+y%=384�
>�X%,Y%:�X$
HX%=X%+x%:Y%=Y%+y%
R�X%,Y%:�X$
\�
f� ==YOU HIT BEEB
p	��hit
zW%=0
�	C%=16
�J%=Y%-4
��I%=X%+8�X%+16�4
�J%=J%-4
�C%=C%/2
��I%,J%)=3W%=W%+C%
��
� �0,1:�X%,Y%:�235:�0,2:�8:�X$
�� ==HIT SOUND
��0,-15,7,10:�1,2,50,10
��W%=4B%(0)=B%(0)-1
��W%=10B%(1)=B%(1)-1
��W%=12B%(2)=B%(2)-1
	�W%=2B%(3)=B%(3)-1
	�W%=6B%(4)=B%(4)-1
	�W%=8B%(5)=B%(5)-1
	$�I%=0�5
	.R�B%(I%)=0�0,-15,7,50:�1,3,250,50:�2:�TfL:�w(250):�0:�TfL:BS%=BS%-1:B%(I%)=-1
	8�
	B	�DnJ
	L�
	V� ==BEEBS GO
	`
��beeb
	j�4:�1:�16,25)"BBCs GO":�5
	tO�v%=0:P%=�(15)*32+32:Q%=�(15)*32+384:�P%+4,Q%-4)=0�P%,Q%:�1,1,50,1:�d`K:�
	~�v%=0:�P%+8,Q%-8)=1�DtI
	�A�v%=0��P%+4,Q%-4)=2�tpI:v%=1:OP%=P%:OQ%=Q%:op%=OP%:oq%=OQ%:�
	�)�v%>0k%=0:�brain:�t%=3v%=0:t%=0:�DtI
	��
	�
� ==CALCS
	�w%=0:c%=16:j%=Q%-4
	��I%=P%+8�P%+16�4
	�j%=j%-4
	�c%=c%/2
	��I%,j%)=2w%=w%+c%
	��
	� �0,1:�P%,Q%:�235:�0,2:�8:�X$
	��0,-15,7,10:�1,2,50,10
�w%=4S%(0)=S%(0)-1

�w%=10S%(1)=S%(1)-1
�w%=12S%(2)=S%(2)-1
�w%=2S%(3)=S%(3)-1
(�w%=6S%(4)=S%(4)-1
2�w%=8S%(5)=S%(5)-1
<�I%=0�5
F\�S%(I%)=0�0,-15,7,50:�1,3,250,50:�1:�TpL:�w(250):�0:�TpL:YS%=YS%-1:S%(I%)=-1:v%=0:D%=1
P�
Z	�DnJ
d�
n-�4:�2:�9,22);YS%;" "�30,22);BS%;" ":�5:�
x
� ==BRAIN
���brain
�"�v%=1r%=�(4)-1:D%=r%:v%=2:t%=0
��v%=3D%=d%
��D%=0 E%=OP%:F%=OQ%+32
��D%=1 E%=OP%:F%=OQ%-32
��D%=2 E%=OP%+32:F%=OQ%
��D%=3 E%=OP%-32:F%=OQ%
�
�5�t%=0:�E%+4,F%-4)=0�E%,F%:�1,1,50,1:�d`K:v%=1:�
�F�t%=1:�E%+4,F%-4)=0�E%,F%:�1,1,50,1:�d`K:�TXK:OP%=op%:OQ%=oq%:�
�>�t%=1:�E%+4,F%-4)=1�TXK:OP%=op%:OQ%=oq%:D%=d%:t%=2:�t`J
�N�t%=2:�E%+4,F%-4)=1�TXK:OP%=op%:OQ%=oq%:D%=�(4)-1:OP%=op%:OQ%=oq%:t%=3:�
�<�E%+4,F%-4)=1D%=(D%+1)�4:k%=k%+1:�k%<5�t`J��k%>4t%=3:�
F�E%+4,F%-4)=2P%=E%:Q%=F%:�tpI:d%=D%:t%=1:OP%=E%:OQ%=F%:�v%>0v%=3
�
�d%=0d%=1:�
"�d%=1d%=0:�
,�d%=2d%=3:�
6�d%=3d%=2:�
@� ==END OF GAME
J
��end(M$)
TG%=G%+1
^	�4:�2
h�16,25)M$
r&�8,27)"Press SPACE to play again"
|�YS%=0�19,3,11;0;
�
���=32
��20
��0
��16,25)�8�8,27)�25
��g%=1g%=0:�
��g%=0g%=1:�
��
�*FX4
��
�
�I=1�3
��0,1:�234,8
�
�w(10)
��0,0:�234,8

�w(10)
�
�0,1:�234:�
&�4:�16,25)"Arrrrr!":�5:�
0�4:�16,25)"Got you!":�5:�
:	*TAPE
D�I%=0� �P-� �4
NI%!&E00=I%!�:�
X?&13=?&13-(�-&E00)�256
b�=&E00:�
�

00000000  0d 00 0a 11 f4 20 42 61  74 74 6c 65 73 68 69 70  |..... Battleship|
00000010  73 0d 00 14 16 f4 20 62  79 20 4d 69 6b 65 20 47  |s..... by Mike G|
00000020  6f 6c 64 62 65 72 67 0d  00 1e 18 f4 20 28 63 29  |oldberg..... (c)|
00000030  20 54 68 65 20 4d 69 63  72 6f 20 55 73 65 72 0d  | The Micro User.|
00000040  00 28 18 e7 90 3c 26 38  30 30 30 e7 90 3e 26 45  |.(...<&8000..>&E|
00000050  30 30 e5 8d 54 7a 4c 0d  00 32 05 d8 0d 00 3c 29  |00..TzL..2....<)|
00000060  e2 31 2c 31 2c 2d 32 2c  32 2c 33 2c 31 2c 31 2c  |.1,1,-2,2,3,1,1,|
00000070  38 2c 35 30 2c 2d 31 2c  2d 31 2c 2d 31 2c 31 32  |8,50,-1,-1,-1,12|
00000080  30 2c 31 30 30 0d 00 46  26 e2 32 2c 31 2c 34 2c  |0,100..F&.2,1,4,|
00000090  30 2c 30 2c 36 30 2c 31  32 30 2c 30 2c 32 2c 2d  |0,0,60,120,0,2,-|
000000a0  31 2c 2d 31 2c 2d 31 2c  30 2c 30 0d 00 50 2b e2  |1,-1,-1,0,0..P+.|
000000b0  33 2c 32 2c 2d 32 2c 30  2c 30 2c 32 35 35 2c 30  |3,2,-2,0,0,255,0|
000000c0  2c 30 2c 31 32 36 2c 2d  31 2c 2d 31 2c 2d 31 2c  |,0,126,-1,-1,-1,|
000000d0  31 32 30 2c 39 30 0d 00  5a 2c e2 34 2c 33 2c 34  |120,90..Z,.4,3,4|
000000e0  2c 37 30 2c 2d 35 30 2c  31 2c 31 2c 31 30 2c 31  |,70,-50,1,1,10,1|
000000f0  32 36 2c 2d 31 2c 2d 31  2c 2d 36 2c 31 30 30 2c  |26,-1,-1,-6,100,|
00000100  31 30 0d 00 64 05 f4 0d  00 6e 05 f4 0d 00 78 0a  |10..d....n....x.|
00000110  2a 46 58 34 2c 32 0d 00  82 0b ee 85 e5 8d 64 4c  |*FX4,2........dL|
00000120  4b 0d 00 8c 06 eb 31 0d  00 96 1c de 41 24 28 35  |K.....1.....A$(5|
00000130  29 2c 42 24 28 35 29 2c  42 25 28 35 29 2c 53 25  |),B$(5),B%(5),S%|
00000140  28 35 29 0d 00 a0 0f e3  49 25 3d 32 32 34 b8 32  |(5).....I%=224.2|
00000150  33 35 0d 00 aa 14 f3 41  2c 42 2c 43 2c 44 2c 45  |35.....A,B,C,D,E|
00000160  2c 46 2c 47 2c 48 0d 00  b4 1a ef 32 33 2c 49 25  |,F,G,H.....23,I%|
00000170  2c 41 2c 42 2c 43 2c 44  2c 45 2c 46 2c 47 2c 48  |,A,B,C,D,E,F,G,H|
00000180  0d 00 be 05 ed 0d 00 c8  13 ef 32 33 3b 38 32 30  |..........23;820|
00000190  32 3b 30 3b 30 3b 30 3b  0d 00 d2 09 f2 69 6e 69  |2;0;0;0;.....ini|
000001a0  74 0d 00 dc 05 f5 0d 00  e6 29 ef 31 39 2c 30 2c  |t........).19,0,|
000001b0  34 3b 30 3b 31 39 2c 31  2c 30 3b 30 3b 31 39 2c  |4;0;19,1,0;0;19,|
000001c0  32 2c 33 3b 30 3b 31 39  2c 33 2c 31 3b 30 3b 0d  |2,3;0;19,3,1;0;.|
000001d0  00 f0 0a e6 30 2c 31 32  39 0d 00 fa 19 ef 32 34  |....0,129.....24|
000001e0  2c 33 32 3b 33 35 32 3b  35 37 36 3b 38 39 36 3b  |,32;352;576;896;|
000001f0  3a da 0d 01 04 1b ef 32  34 2c 37 30 34 3b 33 35  |:......24,704;35|
00000200  32 3b 31 32 34 38 3b 38  39 36 3b 3a da 0d 01 0e  |2;1248;896;:....|
00000210  0a e6 30 2c 31 32 38 0d  01 18 19 ef 32 34 2c 36  |..0,128.....24,6|
00000220  34 3b 33 38 34 3b 35 34  34 3b 38 36 34 3b 3a da  |4;384;544;864;:.|
00000230  0d 01 22 1b ef 32 34 2c  37 33 36 3b 33 38 34 3b  |.."..24,736;384;|
00000240  31 32 31 36 3b 38 36 34  3b 3a da 0d 01 2c 07 ef  |1216;864;:...,..|
00000250  32 36 0d 01 36 11 f2 67  72 69 64 28 36 34 2c 33  |26..6..grid(64,3|
00000260  38 34 29 0d 01 40 12 f2  67 72 69 64 28 37 33 36  |84)..@..grid(736|
00000270  2c 33 38 34 29 0d 01 4a  15 42 53 25 3d 36 3a 59  |,384)..J.BS%=6:Y|
00000280  53 25 3d 36 3a e4 8d 44  6e 4a 0d 01 54 0e f2 73  |S%=6:..DnJ..T..s|
00000290  65 74 5f 66 6c 65 65 74  0d 01 5e 0e f2 42 42 43  |et_fleet..^..BBC|
000002a0  5f 66 6c 65 65 74 0d 01  68 0a f2 73 74 61 72 74  |_fleet..h..start|
000002b0  0d 01 72 0d e7 67 25 3d  31 68 25 3d 31 0d 01 7c  |..r..g%=1h%=1..||
000002c0  0d e7 67 25 3d 30 68 25  3d 30 0d 01 86 11 f4 20  |..g%=0h%=0..... |
000002d0  3d 3d 50 4c 41 59 20 4c  4f 4f 50 0d 01 90 05 f5  |==PLAY LOOP.....|
000002e0  0d 01 9a 13 e7 68 25 3d  31 68 25 3d 30 3a e5 8d  |.....h%=1h%=0:..|
000002f0  74 78 41 0d 01 a4 0a f2  77 28 36 30 29 0d 01 ae  |txA.....w(60)...|
00000300  09 f2 6b 65 79 73 0d 01  b8 0a f2 77 28 36 30 29  |..keys.....w(60)|
00000310  0d 01 c2 0f e7 42 53 25  3e 30 f2 62 65 65 62 0d  |.....BS%>0.beeb.|
00000320  01 cc 10 fd 42 53 25 3d  30 84 59 53 25 3d 30 0d  |....BS%=0.YS%=0.|
00000330  01 d6 1a e7 59 53 25 3d  30 f2 65 6e 64 28 22 59  |....YS%=0.end("Y|
00000340  4f 55 20 4c 4f 53 45 22  29 0d 01 e0 1a e7 42 53  |OU LOSE").....BS|
00000350  25 3d 30 f2 65 6e 64 28  22 59 4f 55 20 57 49 4e  |%=0.end("YOU WIN|
00000360  21 22 29 0d 01 ea 15 59  53 25 3d 30 3a 42 53 25  |!")....YS%=0:BS%|
00000370  3d 30 3a e4 8d 44 6e 4a  0d 01 f4 06 fd 30 0d 01  |=0:..DnJ.....0..|
00000380  fe 09 2a 46 58 31 35 0d  02 08 13 ef 34 2c 33 31  |..*FX15.....4,31|
00000390  2c 30 2c 32 35 2c 31 33  3a fa 0d 02 12 05 e0 0d  |,0,25,13:.......|
000003a0  02 1c 12 f4 20 3d 3d 44  52 41 57 20 47 52 49 44  |.... ==DRAW GRID|
000003b0  53 0d 02 26 11 dd f2 67  72 69 64 28 58 25 2c 59  |S..&...grid(X%,Y|
000003c0  25 29 0d 02 30 08 e6 30  2c 31 0d 02 3a 45 79 25  |%)..0..0,1..:Ey%|
000003d0  3d 59 25 3a e3 49 25 3d  58 25 b8 58 25 2b 34 38  |=Y%:.I%=X%.X%+48|
000003e0  30 88 33 32 3a ec 49 25  2c 59 25 3a f0 31 2c 30  |0.32:.I%,Y%:.1,0|
000003f0  2c 34 38 30 3a ec 58 25  2c 79 25 3a f0 31 2c 34  |,480:.X%,y%:.1,4|
00000400  38 30 2c 30 3a 79 25 3d  79 25 2b 33 32 3a ed 0d  |80,0:y%=y%+32:..|
00000410  02 44 4b e7 47 25 3d 31  fb 32 3a f1 8a 34 2c 33  |.DK.G%=1.2:..4,3|
00000420  29 22 59 4f 55 52 20 46  4c 45 45 54 22 8a 32 36  |)"YOUR FLEET".26|
00000430  2c 33 29 22 42 45 45 42  20 46 4c 45 45 54 22 8a  |,3)"BEEB FLEET".|
00000440  37 2c 32 33 29 22 53 48  49 50 53 22 8a 32 38 2c  |7,23)"SHIPS".28,|
00000450  32 33 29 22 53 48 49 50  53 22 0d 02 4e 05 e1 0d  |23)"SHIPS"..N...|
00000460  02 58 0c f4 20 3d 3d 49  4e 49 54 0d 02 62 0a dd  |.X.. ==INIT..b..|
00000470  f2 69 6e 69 74 0d 02 6c  08 47 25 3d 31 0d 02 76  |.init..l.G%=1..v|
00000480  0a 57 31 25 3d 32 30 0d  02 80 0a 57 32 25 3d 33  |.W1%=20....W2%=3|
00000490  30 0d 02 8a 09 4d 25 3d  33 32 0d 02 94 0b 58 24  |0....M%=32....X$|
000004a0  3d bd 32 32 34 0d 02 9e  0d 6c 24 3d bd 38 2b bd  |=.224....l$=.8+.|
000004b0  31 30 0d 02 a8 12 41 24  28 30 29 3d c4 32 2c bd  |10....A$(0)=.2,.|
000004c0  32 32 34 29 0d 02 b2 16  42 24 28 30 29 3d bd 32  |224)....B$(0)=.2|
000004d0  32 34 2b 6c 24 2b bd 32  32 34 0d 02 bc 12 41 24  |24+l$+.224....A$|
000004e0  28 31 29 3d c4 32 2c bd  32 32 35 29 0d 02 c6 16  |(1)=.2,.225)....|
000004f0  42 24 28 31 29 3d bd 32  32 35 2b 6c 24 2b bd 32  |B$(1)=.225+l$+.2|
00000500  32 35 0d 02 d0 12 41 24  28 32 29 3d c4 32 2c bd  |25....A$(2)=.2,.|
00000510  32 32 36 29 0d 02 da 16  42 24 28 32 29 3d bd 32  |226)....B$(2)=.2|
00000520  32 36 2b 6c 24 2b bd 32  32 36 0d 02 e4 12 41 24  |26+l$+.226....A$|
00000530  28 33 29 3d c4 33 2c bd  32 32 37 29 0d 02 ee 1e  |(3)=.3,.227)....|
00000540  42 24 28 33 29 3d bd 32  32 37 2b 6c 24 2b bd 32  |B$(3)=.227+l$+.2|
00000550  32 37 2b 6c 24 2b bd 32  32 37 0d 02 f8 12 41 24  |27+l$+.227....A$|
00000560  28 34 29 3d c4 33 2c bd  32 32 38 29 0d 03 02 1e  |(4)=.3,.228)....|
00000570  42 24 28 34 29 3d bd 32  32 38 2b 6c 24 2b bd 32  |B$(4)=.228+l$+.2|
00000580  32 38 2b 6c 24 2b bd 32  32 38 0d 03 0c 12 41 24  |28+l$+.228....A$|
00000590  28 35 29 3d c4 34 2c bd  32 32 39 29 0d 03 16 26  |(5)=.4,.229)...&|
000005a0  42 24 28 35 29 3d bd 32  32 39 2b 6c 24 2b bd 32  |B$(5)=.229+l$+.2|
000005b0  32 39 2b 6c 24 2b bd 32  32 39 2b 6c 24 2b bd 32  |29+l$+.229+l$+.2|
000005c0  32 39 0d 03 20 20 58 24  3d bd 32 33 30 2b bd 32  |29..  X$=.230+.2|
000005d0  33 31 2b 6c 24 2b bd 38  2b bd 32 33 32 2b bd 32  |31+l$+.8+.232+.2|
000005e0  33 33 0d 03 2a 05 e1 0d  03 34 19 f4 20 3d 3d 53  |33..*....4.. ==S|
000005f0  45 54 20 55 50 20 59 4f  55 52 20 46 4c 45 45 54  |ET UP YOUR FLEET|
00000600  0d 03 3e 0f dd f2 73 65  74 5f 66 6c 65 65 74 0d  |..>...set_fleet.|
00000610  03 48 29 ef 34 3a fb 31  3a 61 24 3d 22 41 72 72  |.H).4:.1:a$="Arr|
00000620  61 6e 67 65 20 79 6f 75  72 20 66 6c 65 65 74 20  |ange your fleet |
00000630  43 61 70 74 61 69 6e 22  0d 03 52 30 e3 49 3d 31  |Captain"..R0.I=1|
00000640  b8 a9 61 24 3a f1 8a 36  2b 49 2c 31 29 c1 61 24  |..a$:..6+I,1).a$|
00000650  2c 49 2c 31 29 3a f2 77  28 34 29 3a d4 31 2c 2d  |,I,1):.w(4):.1,-|
00000660  38 2c 34 30 2c 31 3a ed  0d 03 5c 62 f1 8a 35 2c  |8,40,1:...\b..5,|
00000670  32 35 29 22 43 55 52 53  4f 52 20 4b 45 59 53 20  |25)"CURSOR KEYS |
00000680  3d 20 4d 4f 56 45 20 53  48 49 50 2f 43 55 52 53  |= MOVE SHIP/CURS|
00000690  4f 52 22 8a 31 33 2c 32  37 29 22 5a 20 20 20 3d  |OR".13,27)"Z   =|
000006a0  20 46 49 58 20 53 48 49  50 2f 46 49 52 45 22 8a  | FIX SHIP/FIRE".|
000006b0  31 31 2c 32 39 29 22 53  48 49 46 54 20 3d 20 48  |11,29)"SHIFT = H|
000006c0  4f 52 49 5a 2f 56 45 52  54 22 0d 03 66 06 ef 35  |ORIZ/VERT"..f..5|
000006d0  0d 03 70 0b e3 49 25 3d  30 b8 35 0d 03 7a 0d e7  |..p..I%=0.5..z..|
000006e0  49 25 3c 33 4c 25 3d 32  0d 03 84 12 e7 49 25 3d  |I%<3L%=2.....I%=|
000006f0  33 84 49 25 3d 34 4c 25  3d 33 0d 03 8e 0d e7 49  |3.I%=4L%=3.....I|
00000700  25 3d 35 4c 25 3d 34 0d  03 98 08 e6 33 2c 33 0d  |%=5L%=4.....3,3.|
00000710  03 a2 11 58 25 3d 32 35  36 3a 59 25 3d 36 37 32  |...X%=256:Y%=672|
00000720  0d 03 ac 08 5a 25 3d 30  0d 03 b6 1f ec 58 25 2c  |....Z%=0.....X%,|
00000730  59 25 3a d4 33 2c 2d 31  32 2c 31 33 30 2c 31 3a  |Y%:.3,-12,130,1:|
00000740  f1 41 24 28 49 25 29 0d  03 c0 0d 4f 24 3d 41 24  |.A$(I%)....O$=A$|
00000750  28 49 25 29 0d 03 ca 08  f2 73 65 74 0d 03 d4 05  |(I%).....set....|
00000760  ed 0d 03 de 05 e1 0d 03  e8 1e f4 20 3d 3d 50 4c  |........... ==PL|
00000770  41 43 45 20 59 4f 55 52  20 53 48 49 50 53 2e 2e  |ACE YOUR SHIPS..|
00000780  4b 45 59 53 0d 03 f2 09  dd f2 73 65 74 0d 03 fc  |KEYS......set...|
00000790  17 f5 20 54 54 25 3d 91  2b 35 3a f5 20 fd 20 91  |.. TT%=.+5:. . .|
000007a0  3e 54 54 25 0d 04 06 14  e7 a6 28 2d 32 36 29 f2  |>TT%......(-26).|
000007b0  6d 28 2d 4d 25 2c 30 29  0d 04 10 14 e7 a6 28 2d  |m(-M%,0)......(-|
000007c0  31 32 32 29 f2 6d 28 4d  25 2c 30 29 0d 04 1a 13  |122).m(M%,0)....|
000007d0  e7 a6 28 2d 35 38 29 f2  6d 28 30 2c 4d 25 29 0d  |..(-58).m(0,M%).|
000007e0  04 24 14 e7 a6 28 2d 34  32 29 f2 6d 28 30 2c 2d  |.$...(-42).m(0,-|
000007f0  4d 25 29 0d 04 2e 5c e7  a6 28 2d 31 29 80 4f 24  |M%)...\..(-1).O$|
00000800  3d 41 24 28 49 25 29 80  59 25 2d 28 4c 25 2a 33  |=A$(I%).Y%-(L%*3|
00000810  32 29 3e 33 35 32 ec 58  25 2c 59 25 3a f1 4f 24  |2)>352.X%,Y%:.O$|
00000820  3a 4f 24 3d 42 24 28 49  25 29 3a 5a 25 3d 31 3a  |:O$=B$(I%):Z%=1:|
00000830  d4 32 2c 2d 31 32 2c 31  30 30 2c 31 3a ec 58 25  |.2,-12,100,1:.X%|
00000840  2c 59 25 3a f1 4f 24 3a  f2 77 28 57 31 25 29 0d  |,Y%:.O$:.w(W1%).|
00000850  04 38 5c e7 a6 28 2d 31  29 80 4f 24 3d 42 24 28  |.8\..(-1).O$=B$(|
00000860  49 25 29 80 58 25 2b 28  4c 25 2a 33 32 29 3c 35  |I%).X%+(L%*32)<5|
00000870  37 36 ec 58 25 2c 59 25  3a f1 4f 24 3a 4f 24 3d  |76.X%,Y%:.O$:O$=|
00000880  41 24 28 49 25 29 3a 5a  25 3d 30 3a d4 32 2c 2d  |A$(I%):Z%=0:.2,-|
00000890  31 32 2c 31 30 30 2c 31  3a ec 58 25 2c 59 25 3a  |12,100,1:.X%,Y%:|
000008a0  f1 4f 24 3a f2 77 28 57  31 25 29 0d 04 42 12 fd  |.O$:.w(W1%)..B..|
000008b0  a6 28 2d 37 34 29 84 a6  28 2d 39 38 29 0d 04 4c  |.(-74)..(-98)..L|
000008c0  08 4b 25 3d 30 0d 04 56  0f d4 33 2c 2d 31 34 2c  |.K%=0..V..3,-14,|
000008d0  31 30 2c 31 0d 04 60 1a  e7 5a 25 3d 30 3a ec 58  |10,1..`..Z%=0:.X|
000008e0  25 2c 59 25 3a f1 4f 24  3a e4 8d 44 78 45 0d 04  |%,Y%:.O$:..DxE..|
000008f0  6a 1a e7 5a 25 3d 31 3a  ec 58 25 2c 59 25 3a f1  |j..Z%=1:.X%,Y%:.|
00000900  4f 24 3a e4 8d 74 60 45  0d 04 74 19 e7 4b 25 3d  |O$:..t`E..t..K%=|
00000910  31 ec 58 25 2c 59 25 3a  f1 4f 24 3a e5 8d 64 7c  |1.X%,Y%:.O$:..d||
00000920  43 0d 04 7e 1b e6 30 2c  32 3a ec 58 25 2c 59 25  |C..~..0,2:.X%,Y%|
00000930  3a f1 4f 24 3a f2 77 28  57 32 25 29 0d 04 88 05  |:.O$:.w(W2%)....|
00000940  e1 0d 04 92 21 f4 20 3d  3d 4d 4f 56 45 20 28 70  |....!. ==MOVE (p|
00000950  6c 61 63 69 6e 67 20 79  6f 75 72 20 73 68 69 70  |lacing your ship|
00000960  73 29 0d 04 9c 0e dd f2  6d 28 78 25 2c 79 25 29  |s)......m(x%,y%)|
00000970  0d 04 a6 18 e7 58 25 2b  78 25 3c 36 34 84 59 25  |.....X%+x%<64.Y%|
00000980  2b 79 25 3e 38 36 34 e1  0d 04 b0 1d e7 5a 25 3d  |+y%>864......Z%=|
00000990  30 3a e7 58 25 2b 78 25  2b 28 4c 25 2a 33 32 29  |0:.X%+x%+(L%*32)|
000009a0  3d 35 37 36 e1 0d 04 ba  15 e7 5a 25 3d 30 3a e7  |=576......Z%=0:.|
000009b0  59 25 2b 79 25 3d 33 38  34 e1 0d 04 c4 15 e7 5a  |Y%+y%=384......Z|
000009c0  25 3d 31 3a e7 58 25 2b  78 25 3d 35 34 34 e1 0d  |%=1:.X%+x%=544..|
000009d0  04 ce 1d e7 5a 25 3d 31  3a e7 59 25 2b 79 25 2d  |....Z%=1:.Y%+y%-|
000009e0  28 4c 25 2a 33 32 29 3d  33 35 32 e1 0d 04 d8 08  |(L%*32)=352.....|
000009f0  e6 33 2c 33 0d 04 e2 0a  ec 58 25 2c 59 25 0d 04  |.3,3.....X%,Y%..|
00000a00  ec 07 f1 4f 24 0d 04 f6  15 58 25 3d 58 25 2b 78  |...O$....X%=X%+x|
00000a10  25 3a 59 25 3d 59 25 2b  79 25 0d 05 00 0a ec 58  |%:Y%=Y%+y%.....X|
00000a20  25 2c 59 25 0d 05 0a 07  f1 4f 24 0d 05 14 05 e1  |%,Y%.....O$.....|
00000a30  0d 05 1e 0d f4 20 3d 3d  44 45 4c 41 59 0d 05 28  |..... ==DELAY..(|
00000a40  0b dd f2 77 28 77 25 29  0d 05 32 0e d1 3d 30 3a  |...w(w%)..2..=0:|
00000a50  f5 fd 91 3e 77 25 0d 05  3c 05 e1 0d 05 46 9d dc  |...>w%..<....F..|
00000a60  30 2c 31 32 37 2c 36 35  2c 39 33 2c 38 35 2c 39  |0,127,65,93,85,9|
00000a70  33 2c 36 35 2c 31 32 37  2c 30 2c 31 32 37 2c 39  |3,65,127,0,127,9|
00000a80  39 2c 36 35 2c 37 33 2c  36 35 2c 39 39 2c 31 32  |9,65,73,65,99,12|
00000a90  37 2c 30 2c 31 32 37 2c  39 39 2c 39 33 2c 38 35  |7,0,127,99,93,85|
00000aa0  2c 39 33 2c 39 39 2c 31  32 37 2c 30 2c 31 32 37  |,93,99,127,0,127|
00000ab0  2c 38 35 2c 39 39 2c 37  33 2c 39 39 2c 38 35 2c  |,85,99,73,99,85,|
00000ac0  31 32 37 2c 30 2c 31 32  37 2c 36 35 2c 39 33 2c  |127,0,127,65,93,|
00000ad0  39 33 2c 39 33 2c 36 35  2c 31 32 37 2c 30 2c 31  |93,93,65,127,0,1|
00000ae0  32 37 2c 31 30 37 2c 37  33 2c 31 31 39 2c 37 33  |27,107,73,119,73|
00000af0  2c 31 30 37 2c 31 32 37  0d 05 50 68 dc 32 35 35  |,107,127..Ph.255|
00000b00  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,128,128,128,128|
*
00000b30  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 32 35 35  |,128,128,128,255|
00000b40  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 31  |,0,0,0,0,0,0,0,1|
00000b50  32 38 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |28,0,0,0,0,0,0,0|
00000b60  0d 05 5a 1b dc 30 2c 36  35 2c 39 39 2c 35 34 2c  |..Z..0,65,99,54,|
00000b70  32 38 2c 35 34 2c 39 39  2c 36 35 0d 05 64 24 dc  |28,54,99,65..d$.|
00000b80  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
00000b90  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 0d  |255,255,255,255.|
00000ba0  05 6e 1d f4 20 3d 3d 47  4f 53 55 42 53 20 46 4f  |.n.. ==GOSUBS FO|
00000bb0  52 20 59 4f 55 52 20 46  4c 45 45 54 0d 05 78 1c  |R YOUR FLEET..x.|
00000bc0  e3 4a 25 3d 58 25 b8 58  25 2b 28 28 4c 25 2d 31  |.J%=X%.X%+((L%-1|
00000bd0  29 2a 33 32 29 88 33 32  0d 05 82 22 e7 b0 4a 25  |)*32).32..."..J%|
00000be0  2b 34 2c 59 25 2d 34 29  3d 32 d4 31 2c 2d 31 35  |+4,Y%-4)=2.1,-15|
00000bf0  2c 39 30 2c 32 3a 4b 25  3d 31 0d 05 8c 05 ed 0d  |,90,2:K%=1......|
00000c00  05 96 05 f8 0d 05 a0 1d  e3 4a 25 3d 59 25 b8 59  |.........J%=Y%.Y|
00000c10  25 2d 28 28 4c 25 2d 31  29 2a 33 32 29 88 2d 33  |%-((L%-1)*32).-3|
00000c20  32 0d 05 aa 22 e7 b0 58  25 2b 34 2c 4a 25 2d 34  |2..."..X%+4,J%-4|
00000c30  29 3d 32 d4 31 2c 2d 31  35 2c 39 30 2c 32 3a 4b  |)=2.1,-15,90,2:K|
00000c40  25 3d 31 0d 05 b4 05 ed  0d 05 be 05 f8 0d 05 c8  |%=1.............|
00000c50  14 f4 20 3d 3d 42 45 45  42 27 73 20 46 6c 65 65  |.. ==BEEB's Flee|
00000c60  74 0d 05 d2 0f dd f2 42  42 43 5f 66 6c 65 65 74  |t......BBC_fleet|
00000c70  0d 05 dc 0e ef 31 39 2c  33 2c 34 3b 30 3b 0d 05  |.....19,3,4;0;..|
00000c80  e6 08 e6 30 2c 33 0d 05  f0 0b e3 54 25 3d 30 b8  |...0,3.....T%=0.|
00000c90  35 0d 05 fa 0d e7 54 25  3c 33 4c 25 3d 31 0d 06  |5.....T%<3L%=1..|
00000ca0  04 12 e7 54 25 3d 33 84  54 25 3d 34 4c 25 3d 32  |...T%=3.T%=4L%=2|
00000cb0  0d 06 0e 0d e7 54 25 3d  35 4c 25 3d 33 0d 06 18  |.....T%=5L%=3...|
00000cc0  0b 52 25 3d b3 28 32 29  0d 06 22 1c e7 52 25 3d  |.R%=.(2).."..R%=|
00000cd0  31 4f 24 3d 41 24 28 54  25 29 8b 4f 24 3d 42 24  |1O$=A$(T%).O$=B$|
00000ce0  28 54 25 29 0d 06 2c 2b  e7 52 25 3d 31 49 25 3d  |(T%)..,+.R%=1I%=|
00000cf0  b3 28 31 35 2d 4c 25 29  2a 33 32 2b 37 30 34 3a  |.(15-L%)*32+704:|
00000d00  4a 25 3d b3 28 31 35 29  2a 33 32 2b 33 38 34 0d  |J%=.(15)*32+384.|
00000d10  06 36 2b e7 52 25 3d 32  4a 25 3d 38 39 36 2d b3  |.6+.R%=2J%=896-.|
00000d20  28 31 35 2d 4c 25 29 2a  33 32 3a 49 25 3d b3 28  |(15-L%)*32:I%=.(|
00000d30  31 35 29 2a 33 32 2b 37  30 34 0d 06 40 08 4b 25  |15)*32+704..@.K%|
00000d40  3d 30 0d 06 4a 0e e7 52  25 3d 31 e4 8d 74 50 46  |=0..J..R%=1..tPF|
00000d50  0d 06 54 0e e7 52 25 3d  32 e4 8d 74 78 46 0d 06  |..T..R%=2..txF..|
00000d60  5e 0e e7 4b 25 3d 31 e5  8d 54 58 46 0d 06 68 0e  |^..K%=1..TXF..h.|
00000d70  ec 49 25 2c 4a 25 3a f1  4f 24 0d 06 72 05 ed 0d  |.I%,J%:.O$..r...|
00000d80  06 7c 05 e1 0d 06 86 1d  f4 20 3d 3d 47 4f 53 55  |.|....... ==GOSU|
00000d90  42 53 20 46 4f 52 20 42  45 45 42 20 46 4c 45 45  |BS FOR BEEB FLEE|
00000da0  54 0d 06 90 18 e3 55 25  3d 49 25 b8 49 25 2b 28  |T.....U%=I%.I%+(|
00000db0  4c 25 2a 33 32 29 88 33  32 0d 06 9a 16 e7 b0 55  |L%*32).32......U|
00000dc0  25 2b 34 2c 4a 25 2d 34  29 3d 33 4b 25 3d 31 0d  |%+4,J%-4)=3K%=1.|
00000dd0  06 a4 05 ed 0d 06 ae 05  f8 0d 06 b8 19 e3 55 25  |..............U%|
00000de0  3d 4a 25 b8 4a 25 2d 28  4c 25 2a 33 32 29 88 2d  |=J%.J%-(L%*32).-|
00000df0  33 32 0d 06 c2 16 e7 b0  49 25 2b 34 2c 55 25 2d  |32......I%+4,U%-|
00000e00  34 29 3d 33 4b 25 3d 31  0d 06 cc 05 ed 0d 06 d6  |4)=3K%=1........|
00000e10  05 f8 0d 06 e0 0d f4 20  3d 3d 53 54 41 52 54 0d  |....... ==START.|
00000e20  06 ea 0b dd f2 73 74 61  72 74 0d 06 f4 09 2a 46  |.....start....*F|
00000e30  58 31 35 0d 06 fe 2b ef  34 3a f1 8a 31 2c 31 29  |X15...+.4:..1,1)|
00000e40  89 33 35 8a 31 2c 32 35  29 89 33 35 8a 31 2c 32  |.35.1,25).35.1,2|
00000e50  37 29 89 33 35 8a 31 2c  32 39 29 89 33 35 0d 07  |7).35.1,29).35..|
00000e60  08 1c fb 31 3a f1 8a 31  34 2c 31 29 22 42 41 54  |...1:..14,1)"BAT|
00000e70  54 4c 45 53 48 49 50 53  21 22 0d 07 12 56 e7 47  |TLESHIPS!"...V.G|
00000e80  25 3d 31 ef 34 3a fb 31  3a f1 8a 39 2c 32 35 29  |%=1.4:.1:..9,25)|
00000e90  22 44 6f 20 79 6f 75 20  77 61 6e 74 20 74 6f 20  |"Do you want to |
00000ea0  67 6f 20 31 73 74 3f 22  3b 3a 41 24 3d be 3a e7  |go 1st?";:A$=.:.|
00000eb0  c0 41 24 2c 31 29 3d 22  59 22 67 25 3d 30 3a 8b  |.A$,1)="Y"g%=0:.|
00000ec0  e7 c0 41 24 2c 31 29 3c  3e 22 59 22 67 25 3d 31  |..A$,1)<>"Y"g%=1|
00000ed0  0d 07 1c 09 41 24 3d 22  22 0d 07 26 11 f1 8a 39  |....A$=""..&...9|
00000ee0  2c 32 35 29 89 32 35 3a  ef 35 0d 07 30 1f e3 49  |,25).25:.5..0..I|
00000ef0  25 3d 30 b8 33 3a 42 25  28 49 25 29 3d 32 3a 53  |%=0.3:B%(I%)=2:S|
00000f00  25 28 49 25 29 3d 32 3a  ed 0d 07 3a 1b 42 25 28  |%(I%)=2:...:.B%(|
00000f10  33 29 3d 33 3a 42 25 28  34 29 3d 33 3a 42 25 28  |3)=3:B%(4)=3:B%(|
00000f20  35 29 3d 34 0d 07 44 1b  53 25 28 33 29 3d 33 3a  |5)=4..D.S%(3)=3:|
00000f30  53 25 28 34 29 3d 33 3a  53 25 28 35 29 3d 34 0d  |S%(4)=3:S%(5)=4.|
00000f40  07 4e 0f 42 53 25 3d 36  3a 59 53 25 3d 36 0d 07  |.N.BS%=6:YS%=6..|
00000f50  58 09 e4 8d 44 6e 4a 0d  07 62 0d 76 25 3d 30 3a  |X...DnJ..b.v%=0:|
00000f60  44 25 3d 31 0d 07 6c 05  e1 0d 07 76 0f f4 20 3d  |D%=1..l....v.. =|
00000f70  3d 59 4f 55 52 20 47 4f  0d 07 80 0a dd f2 6b 65  |=YOUR GO......ke|
00000f80  79 73 0d 07 8a 2a ef 34  3a fb 32 3a f1 8a 31 36  |ys...*.4:.2:..16|
00000f90  2c 32 35 29 22 59 4f 55  52 20 47 4f 22 3a ef 35  |,25)"YOUR GO":.5|
00000fa0  3a d4 32 2c 2d 31 32 2c  39 30 2c 31 0d 07 94 21  |:.2,-12,90,1...!|
00000fb0  58 25 3d 39 36 30 3a 59  25 3d 36 34 30 3a e6 33  |X%=960:Y%=640:.3|
00000fc0  2c 33 3a ec 58 25 2c 59  25 3a f1 58 24 0d 07 9e  |,3:.X%,Y%:.X$...|
00000fd0  17 f5 20 54 54 25 3d 91  2b 35 3a f5 20 fd 20 91  |.. TT%=.+5:. . .|
00000fe0  3e 54 54 25 0d 07 a8 14  e7 a6 28 2d 32 36 29 f2  |>TT%......(-26).|
00000ff0  58 28 2d 4d 25 2c 30 29  0d 07 b2 14 e7 a6 28 2d  |X(-M%,0)......(-|
00001000  31 32 32 29 f2 58 28 4d  25 2c 30 29 0d 07 bc 13  |122).X(M%,0)....|
00001010  e7 a6 28 2d 35 38 29 f2  58 28 30 2c 4d 25 29 0d  |..(-58).X(0,M%).|
00001020  07 c6 14 e7 a6 28 2d 34  32 29 f2 58 28 30 2c 2d  |.....(-42).X(0,-|
00001030  4d 25 29 0d 07 d0 12 fd  a6 28 2d 39 38 29 84 a6  |M%)......(-98)..|
00001040  28 2d 37 34 29 0d 07 da  18 e7 b0 58 25 2b 34 2c  |(-74)......X%+4,|
00001050  59 25 2d 34 29 3d 33 f2  68 69 74 3a e1 0d 07 e4  |Y%-4)=3.hit:....|
00001060  24 e7 b0 58 25 2b 34 2c  59 25 2d 34 29 3c 3e 30  |$..X%+4,Y%-4)<>0|
00001070  d4 31 2c 2d 31 32 2c 39  30 2c 31 3a e5 8d 74 5e  |.1,-12,90,1:..t^|
00001080  47 0d 07 ee 1f e6 30 2c  32 3a ec 58 25 2c 59 25  |G.....0,2:.X%,Y%|
00001090  3a d4 31 2c 34 2c 35 30  2c 31 3a f1 bd 32 33 34  |:.1,4,50,1:..234|
000010a0  0d 07 f8 0a f2 77 28 35  30 29 0d 08 02 13 e6 33  |.....w(50).....3|
000010b0  2c 33 3a ec 58 25 2c 59  25 3a f1 58 24 0d 08 0c  |,3:.X%,Y%:.X$...|
000010c0  05 e1 0d 08 16 0e f4 20  3d 3d 4d 4f 56 45 20 58  |....... ==MOVE X|
000010d0  0d 08 20 0e dd f2 58 28  78 25 2c 79 25 29 0d 08  |.. ...X(x%,y%)..|
000010e0  2a 1a e7 58 25 2b 78 25  3d 31 32 31 36 84 58 25  |*..X%+x%=1216.X%|
000010f0  2b 78 25 3d 37 30 34 e1  0d 08 34 19 e7 59 25 2b  |+x%=704...4..Y%+|
00001100  79 25 3d 38 39 36 84 59  25 2b 79 25 3d 33 38 34  |y%=896.Y%+y%=384|
00001110  e1 0d 08 3e 0e ec 58 25  2c 59 25 3a f1 58 24 0d  |...>..X%,Y%:.X$.|
00001120  08 48 15 58 25 3d 58 25  2b 78 25 3a 59 25 3d 59  |.H.X%=X%+x%:Y%=Y|
00001130  25 2b 79 25 0d 08 52 0e  ec 58 25 2c 59 25 3a f1  |%+y%..R..X%,Y%:.|
00001140  58 24 0d 08 5c 05 e1 0d  08 66 14 f4 20 3d 3d 59  |X$..\....f.. ==Y|
00001150  4f 55 20 48 49 54 20 42  45 45 42 0d 08 70 09 dd  |OU HIT BEEB..p..|
00001160  f2 68 69 74 0d 08 7a 08  57 25 3d 30 0d 08 84 09  |.hit..z.W%=0....|
00001170  43 25 3d 31 36 0d 08 8e  0b 4a 25 3d 59 25 2d 34  |C%=16....J%=Y%-4|
00001180  0d 08 98 14 e3 49 25 3d  58 25 2b 38 b8 58 25 2b  |.....I%=X%+8.X%+|
00001190  31 36 88 34 0d 08 a2 0b  4a 25 3d 4a 25 2d 34 0d  |16.4....J%=J%-4.|
000011a0  08 ac 0b 43 25 3d 43 25  2f 32 0d 08 b6 16 e7 b0  |...C%=C%/2......|
000011b0  49 25 2c 4a 25 29 3d 33  57 25 3d 57 25 2b 43 25  |I%,J%)=3W%=W%+C%|
000011c0  0d 08 c0 05 ed 0d 08 ca  20 e6 30 2c 31 3a ec 58  |........ .0,1:.X|
000011d0  25 2c 59 25 3a ef 32 33  35 3a e6 30 2c 32 3a ef  |%,Y%:.235:.0,2:.|
000011e0  38 3a f1 58 24 0d 08 d4  11 f4 20 3d 3d 48 49 54  |8:.X$..... ==HIT|
000011f0  20 53 4f 55 4e 44 0d 08  de 1a d4 30 2c 2d 31 35  | SOUND.....0,-15|
00001200  2c 37 2c 31 30 3a d4 31  2c 32 2c 35 30 2c 31 30  |,7,10:.1,2,50,10|
00001210  0d 08 e8 16 e7 57 25 3d  34 42 25 28 30 29 3d 42  |.....W%=4B%(0)=B|
00001220  25 28 30 29 2d 31 0d 08  f2 17 e7 57 25 3d 31 30  |%(0)-1.....W%=10|
00001230  42 25 28 31 29 3d 42 25  28 31 29 2d 31 0d 08 fc  |B%(1)=B%(1)-1...|
00001240  17 e7 57 25 3d 31 32 42  25 28 32 29 3d 42 25 28  |..W%=12B%(2)=B%(|
00001250  32 29 2d 31 0d 09 06 16  e7 57 25 3d 32 42 25 28  |2)-1.....W%=2B%(|
00001260  33 29 3d 42 25 28 33 29  2d 31 0d 09 10 16 e7 57  |3)=B%(3)-1.....W|
00001270  25 3d 36 42 25 28 34 29  3d 42 25 28 34 29 2d 31  |%=6B%(4)=B%(4)-1|
00001280  0d 09 1a 16 e7 57 25 3d  38 42 25 28 35 29 3d 42  |.....W%=8B%(5)=B|
00001290  25 28 35 29 2d 31 0d 09  24 0b e3 49 25 3d 30 b8  |%(5)-1..$..I%=0.|
000012a0  35 0d 09 2e 52 e7 42 25  28 49 25 29 3d 30 d4 30  |5...R.B%(I%)=0.0|
000012b0  2c 2d 31 35 2c 37 2c 35  30 3a d4 31 2c 33 2c 32  |,-15,7,50:.1,3,2|
000012c0  35 30 2c 35 30 3a fb 32  3a e4 8d 54 66 4c 3a f2  |50,50:.2:..TfL:.|
000012d0  77 28 32 35 30 29 3a fb  30 3a e4 8d 54 66 4c 3a  |w(250):.0:..TfL:|
000012e0  42 53 25 3d 42 53 25 2d  31 3a 42 25 28 49 25 29  |BS%=BS%-1:B%(I%)|
000012f0  3d 2d 31 0d 09 38 05 ed  0d 09 42 09 e4 8d 44 6e  |=-1..8....B...Dn|
00001300  4a 0d 09 4c 05 e1 0d 09  56 10 f4 20 3d 3d 42 45  |J..L....V.. ==BE|
00001310  45 42 53 20 47 4f 0d 09  60 0a dd f2 62 65 65 62  |EBS GO..`...beeb|
00001320  0d 09 6a 1e ef 34 3a fb  31 3a f1 8a 31 36 2c 32  |..j..4:.1:..16,2|
00001330  35 29 22 42 42 43 73 20  47 4f 22 3a ef 35 0d 09  |5)"BBCs GO":.5..|
00001340  74 4f e7 76 25 3d 30 3a  50 25 3d b3 28 31 35 29  |tO.v%=0:P%=.(15)|
00001350  2a 33 32 2b 33 32 3a 51  25 3d b3 28 31 35 29 2a  |*32+32:Q%=.(15)*|
00001360  33 32 2b 33 38 34 3a e7  b0 50 25 2b 34 2c 51 25  |32+384:..P%+4,Q%|
00001370  2d 34 29 3d 30 ec 50 25  2c 51 25 3a d4 31 2c 31  |-4)=0.P%,Q%:.1,1|
00001380  2c 35 30 2c 31 3a e4 8d  64 60 4b 3a e1 0d 09 7e  |,50,1:..d`K:...~|
00001390  1d e7 76 25 3d 30 3a e7  b0 50 25 2b 38 2c 51 25  |..v%=0:..P%+8,Q%|
000013a0  2d 38 29 3d 31 e5 8d 44  74 49 0d 09 88 41 e7 76  |-8)=1..DtI...A.v|
000013b0  25 3d 30 80 b0 50 25 2b  34 2c 51 25 2d 34 29 3d  |%=0..P%+4,Q%-4)=|
000013c0  32 e4 8d 74 70 49 3a 76  25 3d 31 3a 4f 50 25 3d  |2..tpI:v%=1:OP%=|
000013d0  50 25 3a 4f 51 25 3d 51  25 3a 6f 70 25 3d 4f 50  |P%:OQ%=Q%:op%=OP|
000013e0  25 3a 6f 71 25 3d 4f 51  25 3a e1 0d 09 92 29 e7  |%:oq%=OQ%:....).|
000013f0  76 25 3e 30 6b 25 3d 30  3a f2 62 72 61 69 6e 3a  |v%>0k%=0:.brain:|
00001400  e7 74 25 3d 33 76 25 3d  30 3a 74 25 3d 30 3a e5  |.t%=3v%=0:t%=0:.|
00001410  8d 44 74 49 0d 09 9c 05  e1 0d 09 a6 0d f4 20 3d  |.DtI.......... =|
00001420  3d 43 41 4c 43 53 0d 09  b0 16 77 25 3d 30 3a 63  |=CALCS....w%=0:c|
00001430  25 3d 31 36 3a 6a 25 3d  51 25 2d 34 0d 09 ba 14  |%=16:j%=Q%-4....|
00001440  e3 49 25 3d 50 25 2b 38  b8 50 25 2b 31 36 88 34  |.I%=P%+8.P%+16.4|
00001450  0d 09 c4 0b 6a 25 3d 6a  25 2d 34 0d 09 ce 0b 63  |....j%=j%-4....c|
00001460  25 3d 63 25 2f 32 0d 09  d8 16 e7 b0 49 25 2c 6a  |%=c%/2......I%,j|
00001470  25 29 3d 32 77 25 3d 77  25 2b 63 25 0d 09 e2 05  |%)=2w%=w%+c%....|
00001480  ed 0d 09 ec 20 e6 30 2c  31 3a ec 50 25 2c 51 25  |.... .0,1:.P%,Q%|
00001490  3a ef 32 33 35 3a e6 30  2c 32 3a ef 38 3a f1 58  |:.235:.0,2:.8:.X|
000014a0  24 0d 09 f6 1a d4 30 2c  2d 31 35 2c 37 2c 31 30  |$.....0,-15,7,10|
000014b0  3a d4 31 2c 32 2c 35 30  2c 31 30 0d 0a 00 16 e7  |:.1,2,50,10.....|
000014c0  77 25 3d 34 53 25 28 30  29 3d 53 25 28 30 29 2d  |w%=4S%(0)=S%(0)-|
000014d0  31 0d 0a 0a 17 e7 77 25  3d 31 30 53 25 28 31 29  |1.....w%=10S%(1)|
000014e0  3d 53 25 28 31 29 2d 31  0d 0a 14 17 e7 77 25 3d  |=S%(1)-1.....w%=|
000014f0  31 32 53 25 28 32 29 3d  53 25 28 32 29 2d 31 0d  |12S%(2)=S%(2)-1.|
00001500  0a 1e 16 e7 77 25 3d 32  53 25 28 33 29 3d 53 25  |....w%=2S%(3)=S%|
00001510  28 33 29 2d 31 0d 0a 28  16 e7 77 25 3d 36 53 25  |(3)-1..(..w%=6S%|
00001520  28 34 29 3d 53 25 28 34  29 2d 31 0d 0a 32 16 e7  |(4)=S%(4)-1..2..|
00001530  77 25 3d 38 53 25 28 35  29 3d 53 25 28 35 29 2d  |w%=8S%(5)=S%(5)-|
00001540  31 0d 0a 3c 0b e3 49 25  3d 30 b8 35 0d 0a 46 5c  |1..<..I%=0.5..F\|
00001550  e7 53 25 28 49 25 29 3d  30 d4 30 2c 2d 31 35 2c  |.S%(I%)=0.0,-15,|
00001560  37 2c 35 30 3a d4 31 2c  33 2c 32 35 30 2c 35 30  |7,50:.1,3,250,50|
00001570  3a fb 31 3a e4 8d 54 70  4c 3a f2 77 28 32 35 30  |:.1:..TpL:.w(250|
00001580  29 3a fb 30 3a e4 8d 54  70 4c 3a 59 53 25 3d 59  |):.0:..TpL:YS%=Y|
00001590  53 25 2d 31 3a 53 25 28  49 25 29 3d 2d 31 3a 76  |S%-1:S%(I%)=-1:v|
000015a0  25 3d 30 3a 44 25 3d 31  0d 0a 50 05 ed 0d 0a 5a  |%=0:D%=1..P....Z|
000015b0  09 e4 8d 44 6e 4a 0d 0a  64 05 f8 0d 0a 6e 2d ef  |...DnJ..d....n-.|
000015c0  34 3a fb 32 3a f1 8a 39  2c 32 32 29 3b 59 53 25  |4:.2:..9,22);YS%|
000015d0  3b 22 20 22 8a 33 30 2c  32 32 29 3b 42 53 25 3b  |;" ".30,22);BS%;|
000015e0  22 20 22 3a ef 35 3a f8  0d 0a 78 0d f4 20 3d 3d  |" ":.5:...x.. ==|
000015f0  42 52 41 49 4e 0d 0a 82  0b dd f2 62 72 61 69 6e  |BRAIN......brain|
00001600  0d 0a 8c 22 e7 76 25 3d  31 72 25 3d b3 28 34 29  |...".v%=1r%=.(4)|
00001610  2d 31 3a 44 25 3d 72 25  3a 76 25 3d 32 3a 74 25  |-1:D%=r%:v%=2:t%|
00001620  3d 30 0d 0a 96 0e e7 76  25 3d 33 44 25 3d 64 25  |=0.....v%=3D%=d%|
00001630  0d 0a a0 1a e7 44 25 3d  30 20 45 25 3d 4f 50 25  |.....D%=0 E%=OP%|
00001640  3a 46 25 3d 4f 51 25 2b  33 32 0d 0a aa 1a e7 44  |:F%=OQ%+32.....D|
00001650  25 3d 31 20 45 25 3d 4f  50 25 3a 46 25 3d 4f 51  |%=1 E%=OP%:F%=OQ|
00001660  25 2d 33 32 0d 0a b4 1a  e7 44 25 3d 32 20 45 25  |%-32.....D%=2 E%|
00001670  3d 4f 50 25 2b 33 32 3a  46 25 3d 4f 51 25 0d 0a  |=OP%+32:F%=OQ%..|
00001680  be 1a e7 44 25 3d 33 20  45 25 3d 4f 50 25 2d 33  |...D%=3 E%=OP%-3|
00001690  32 3a 46 25 3d 4f 51 25  0d 0a c8 04 0d 0a d2 35  |2:F%=OQ%.......5|
000016a0  e7 74 25 3d 30 3a e7 b0  45 25 2b 34 2c 46 25 2d  |.t%=0:..E%+4,F%-|
000016b0  34 29 3d 30 ec 45 25 2c  46 25 3a d4 31 2c 31 2c  |4)=0.E%,F%:.1,1,|
000016c0  35 30 2c 31 3a e4 8d 64  60 4b 3a 76 25 3d 31 3a  |50,1:..d`K:v%=1:|
000016d0  e1 0d 0a dc 46 e7 74 25  3d 31 3a e7 b0 45 25 2b  |....F.t%=1:..E%+|
000016e0  34 2c 46 25 2d 34 29 3d  30 ec 45 25 2c 46 25 3a  |4,F%-4)=0.E%,F%:|
000016f0  d4 31 2c 31 2c 35 30 2c  31 3a e4 8d 64 60 4b 3a  |.1,1,50,1:..d`K:|
00001700  e4 8d 54 58 4b 3a 4f 50  25 3d 6f 70 25 3a 4f 51  |..TXK:OP%=op%:OQ|
00001710  25 3d 6f 71 25 3a e1 0d  0a e6 3e e7 74 25 3d 31  |%=oq%:....>.t%=1|
00001720  3a e7 b0 45 25 2b 34 2c  46 25 2d 34 29 3d 31 e4  |:..E%+4,F%-4)=1.|
00001730  8d 54 58 4b 3a 4f 50 25  3d 6f 70 25 3a 4f 51 25  |.TXK:OP%=op%:OQ%|
00001740  3d 6f 71 25 3a 44 25 3d  64 25 3a 74 25 3d 32 3a  |=oq%:D%=d%:t%=2:|
00001750  e5 8d 74 60 4a 0d 0a f0  4e e7 74 25 3d 32 3a e7  |..t`J...N.t%=2:.|
00001760  b0 45 25 2b 34 2c 46 25  2d 34 29 3d 31 e4 8d 54  |.E%+4,F%-4)=1..T|
00001770  58 4b 3a 4f 50 25 3d 6f  70 25 3a 4f 51 25 3d 6f  |XK:OP%=op%:OQ%=o|
00001780  71 25 3a 44 25 3d b3 28  34 29 2d 31 3a 4f 50 25  |q%:D%=.(4)-1:OP%|
00001790  3d 6f 70 25 3a 4f 51 25  3d 6f 71 25 3a 74 25 3d  |=op%:OQ%=oq%:t%=|
000017a0  33 3a e1 0d 0a fa 3c e7  b0 45 25 2b 34 2c 46 25  |3:....<..E%+4,F%|
000017b0  2d 34 29 3d 31 44 25 3d  28 44 25 2b 31 29 83 34  |-4)=1D%=(D%+1).4|
000017c0  3a 6b 25 3d 6b 25 2b 31  3a e7 6b 25 3c 35 e5 8d  |:k%=k%+1:.k%<5..|
000017d0  74 60 4a 8b e7 6b 25 3e  34 74 25 3d 33 3a e1 0d  |t`J..k%>4t%=3:..|
000017e0  0b 04 46 e7 b0 45 25 2b  34 2c 46 25 2d 34 29 3d  |..F..E%+4,F%-4)=|
000017f0  32 50 25 3d 45 25 3a 51  25 3d 46 25 3a e4 8d 74  |2P%=E%:Q%=F%:..t|
00001800  70 49 3a 64 25 3d 44 25  3a 74 25 3d 31 3a 4f 50  |pI:d%=D%:t%=1:OP|
00001810  25 3d 45 25 3a 4f 51 25  3d 46 25 3a e7 76 25 3e  |%=E%:OQ%=F%:.v%>|
00001820  30 76 25 3d 33 0d 0b 0e  05 e1 0d 0b 18 0f e7 64  |0v%=3..........d|
00001830  25 3d 30 64 25 3d 31 3a  f8 0d 0b 22 0f e7 64 25  |%=0d%=1:..."..d%|
00001840  3d 31 64 25 3d 30 3a f8  0d 0b 2c 0f e7 64 25 3d  |=1d%=0:...,..d%=|
00001850  32 64 25 3d 33 3a f8 0d  0b 36 0f e7 64 25 3d 33  |2d%=3:...6..d%=3|
00001860  64 25 3d 32 3a f8 0d 0b  40 13 f4 20 3d 3d 45 4e  |d%=2:...@.. ==EN|
00001870  44 20 4f 46 20 47 41 4d  45 0d 0b 4a 0d dd f2 65  |D OF GAME..J...e|
00001880  6e 64 28 4d 24 29 0d 0b  54 0b 47 25 3d 47 25 2b  |nd(M$)..T.G%=G%+|
00001890  31 0d 0b 5e 09 ef 34 3a  fb 32 0d 0b 68 0e f1 8a  |1..^..4:.2..h...|
000018a0  31 36 2c 32 35 29 4d 24  0d 0b 72 26 f1 8a 38 2c  |16,25)M$..r&..8,|
000018b0  32 37 29 22 50 72 65 73  73 20 53 50 41 43 45 20  |27)"Press SPACE |
000018c0  74 6f 20 70 6c 61 79 20  61 67 61 69 6e 22 0d 0b  |to play again"..|
000018d0  7c 15 e7 59 53 25 3d 30  ef 31 39 2c 33 2c 31 31  ||..YS%=0.19,3,11|
000018e0  3b 30 3b 0d 0b 86 0a f5  fd a5 3d 33 32 0d 0b 90  |;0;.......=32...|
000018f0  07 ef 32 30 0d 0b 9a 06  fb 30 0d 0b a4 17 f1 8a  |..20.....0......|
00001900  31 36 2c 32 35 29 89 38  8a 38 2c 32 37 29 89 32  |16,25).8.8,27).2|
00001910  35 0d 0b ae 0f e7 67 25  3d 31 67 25 3d 30 3a e1  |5.....g%=1g%=0:.|
00001920  0d 0b b8 0f e7 67 25 3d  30 67 25 3d 31 3a e1 0d  |.....g%=0g%=1:..|
00001930  0b c2 05 e1 0d 0b cc 08  2a 46 58 34 0d 0b d6 05  |........*FX4....|
00001940  e0 0d 0b e0 0a e3 49 3d  31 b8 33 0d 0b ea 0f e6  |......I=1.3.....|
00001950  30 2c 31 3a ef 32 33 34  2c 38 0d 0b f4 0a f2 77  |0,1:.234,8.....w|
00001960  28 31 30 29 0d 0b fe 0f  e6 30 2c 30 3a ef 32 33  |(10).....0,0:.23|
00001970  34 2c 38 0d 0c 08 0a f2  77 28 31 30 29 0d 0c 12  |4,8.....w(10)...|
00001980  05 ed 0d 0c 1c 0f e6 30  2c 31 3a ef 32 33 34 3a  |.......0,1:.234:|
00001990  f8 0d 0c 26 1d ef 34 3a  f1 8a 31 36 2c 32 35 29  |...&..4:..16,25)|
000019a0  22 41 72 72 72 72 72 21  22 3a ef 35 3a f8 0d 0c  |"Arrrrr!":.5:...|
000019b0  30 1e ef 34 3a f1 8a 31  36 2c 32 35 29 22 47 6f  |0..4:..16,25)"Go|
000019c0  74 20 79 6f 75 21 22 3a  ef 35 3a f8 0d 0c 3a 09  |t you!":.5:...:.|
000019d0  2a 54 41 50 45 0d 0c 44  12 e3 49 25 3d 30 b8 20  |*TAPE..D..I%=0. |
000019e0  b8 50 2d 90 20 88 34 0d  0c 4e 12 49 25 21 26 45  |.P-. .4..N.I%!&E|
000019f0  30 30 3d 49 25 21 90 3a  ed 0d 0c 58 1a 3f 26 31  |00=I%!.:...X.?&1|
00001a00  33 3d 3f 26 31 33 2d 28  90 2d 26 45 30 30 29 81  |3=?&13-(.-&E00).|
00001a10  32 35 36 0d 0c 62 0c d0  3d 26 45 30 30 3a f9 0d  |256..b..=&E00:..|
00001a20  ff                                                |.|
00001a21