� 'Mecha-Worm'
� By C.Dunkley
�
(�6
2
W%=182580
<
�crtc6845
F
�setup
P�
Z	�inst
d�
n�screen
x�U%�move2 ��move
��N%�oops ��bonus
�	�L%=0
�*�S%>W%W%=S%:�message(6,"NEW HI-SCORE")
�	�wait
��off
��
��0
��
�:
� ݤf(P%,X%):=�"00000"+�P%,X%)
�:
�
��move
���M%=1�R%:�:�-99�pause

�-17:*FX210 1

�-82:*FX210

�C%D%=4

"�B%D%=1

,�J%D%=3

6�G%D%=2

@$A%=H%:H%=H%+1:�H%=101H%=1:A%=100

J;X%(H%)=X%(A%)+(D%=2)-(D%=3):Y%(H%)=Y%(A%)+(D%=1)-(D%=4)

T*�X%(H%)=40X%(H%)=0 ��X%(H%)<0X%(H%)=39

^*�Y%(H%)=0Y%(H%)=22 ��Y%(H%)=23Y%(H%)=1

h.P%=S%(X%(H%),Y%(H%)):C%(H%)=32:�P%=32�d`A

r�P%<11�name:�d`A

|%�P%=225�0,-6,4,1:C%(H%)=226:�d`A

�%�P%=224�0,-4,4,1:C%(H%)=225:�d`A

�"�P%=244�1,2,10,3:R%=R%�2:�d`A

��P%=247�munch:�d`A

�&�P%=245�1,2,20,3:R%=R%+R%�12:�d`A

�>�P%=246�1,2,30,3:A%=B%:B%=C%:C%=A%:A%=G%:G%=J%:J%=A%:�d`A

�J�P%=46�0,3,0,1:�score(50):I%=1:Z%=Z%+1:N%=N%-1:�empty(R%(�(21))):�d`A

�%�P%=43�1,3,10,1:�score(100):�d`A

�'�P%>225�P%<231�0,-9,4,2:N%=-1:�dtA

��P%=248�powerup:�N%<=0�dtA

�<�P%=224�put(X%(H%),Y%(H%),P%)��put(X%(H%),Y%(H%),D%+226)

�=�I%=1I%=0 ��put(X%(T%),Y%(T%),C%(T%)):T%=T%+1:�T%=101T%=1

�
�N%<=0

��
:

��powerup
�X%=1�5
&�20,0)"      "
0�1,-9,X%,1
:�2,-8,X%*2,1
D�20,0)"PWR:30"
N�
X�put(X%(H%),Y%(H%),D%+226)
b�put(X%(T%),Y%(T%),C%(T%))
lE%=31:T%=T%+1:�T%=101T%=1
v�
�2E%=E%-1:�E%=5�1,-15,1,2:�1,-15,4,2:�1,-15,16,2
��24,0)�f(E%,2)
��C%D%=4
��B%D%=1
��J%D%=3
��G%D%=2
�$A%=H%:H%=H%+1:�H%=101H%=1:A%=100
�X%(H%)=X%(A%)+(D%=2)-(D%=3)
�Y%(H%)=Y%(A%)+(D%=1)-(D%=4)
�*�X%(H%)=40X%(H%)=0 ��X%(H%)<0X%(H%)=39
�*�Y%(H%)=0Y%(H%)=22 ��Y%(H%)=23Y%(H%)=1
�"P%=S%(X%(H%),Y%(H%)):C%(H%)=32
�'�P%=46�0,3,0,1:I%=1:Z%=Z%+1:N%=N%-1
'�P%>226�P%<231�0,-9,4,2:N%=-1:�T~C
�put(X%(H%),Y%(H%),D%+226)
�I%=1I%=0:�T~C
 �E%=0�T~C
*�put(X%(T%),Y%(T%),C%(T%))
4T%=T%+1:�T%=101T%=1
>�N%<=0�E%=0
H�20,0)"      "
R�
\:
f��move2
p�
z�C%D%=4
��B%D%=1
��J%D%=3
��G%D%=2
�$A%=H%:H%=H%+1:�H%=101H%=1:A%=100
�X%(H%)=X%(A%)+(D%=2)-(D%=3)
�Y%(H%)=Y%(A%)+(D%=1)-(D%=4)
�*�X%(H%)=40X%(H%)=0 ��X%(H%)<0X%(H%)=39
�*�Y%(H%)=0Y%(H%)=22 ��Y%(H%)=23Y%(H%)=1
�"P%=S%(X%(H%),Y%(H%)):C%(H%)=32
��P%>225�0,-9,4,2:N%=0:�TdD
�B�P%=46�0,3,0,1:�score(100):I%=1:Z%=Z%+1:�empty(46):�empty(226)
��put(X%(H%),Y%(H%),D%+226)
��I%=1I%=0:�TdD
�put(X%(T%),Y%(T%),C%(T%))
T%=T%+1:�T%=101T%=1
�Z%=100N%=0
$
�N%<=0
.�
8:
B
��name
L�129:�0
V�1,3,100,1
`�14+P%,23)�NAME$,P%,1);
j.GOT$=�GOT$,P%-1)+�NAME$,P%,1)+�GOT$,10-P%)
t�128:�1
~�GOT$<>NAME$�
�GOT$="0123456789"
��M%=1�5
��129:�0
��15,23)NAME$
�
�0,-8,2,1
��1,-10,M%*10,1
��2,-11,M%*14,1
��128:�1
��score(1000)
��15,23)NAME$ 
��X%=1�25:�
��0,0,0,0
�

�
:
��message(Y%,S$)
(�12,Y%-1)�16,�224)
2�12,Y%)�224" "S$" "�224
<�12,Y%+1)�16,�224)
F�
P:
Z��munch
d
�1,2,20,3
n
�Z%=2�
x�X%=3�Z%
��X%(T%),Y%(T%))�224
��1,-9,X%,1
��M%=1�30:�
��put(X%(T%),Y%(T%),C%(T%))
�T%=T%+1
��T%=101T%=1
��
�Z%=2
��
�:
���erase(I%)
��X%=1�Z%
��score(I%)
�X%(T%),Y%(T%))�224
�0,-10,2,2
�1,-8,X%,1
"�M%=1�40:�
,�X%(T%),Y%(T%))�(C%(T%))
6�0,0,0,0
@�M%=1�150:�
JT%=T%+1
T�T%=101T%=1
^�
h�
r:
|��score(V%)
�S%=S%+V%
��3,0);�f(S%,6)
�<�S%>=Q%�1,1,100,4:L%=L%+1:Q%=Q%+50000:�L%<4�9+L%,0)�227
��
�:
���bonus
��erase(50)
��M%=1�1000:�
��message(12,"BONUS:000000")
��N%=1�F%*2
��score(100)
��20,12)�f(N%*100,6)
�
�0,-8,2,1
�1,-8,N%,1
�M%=1�150:�
�0,0,0,0
&�
0F%=F%+1
:�
D:
N
��oops
XL%=L%-1
b
�erase(5)
lA�L%=0�message(12," GAME  OVER ") ��message(12,"   OOPS !   ")
v�
�:
���screen
��=0
��U%<>1�zero(1,22):���>155
��off
�U%=�
��F%�5=0U%=�
��0,1);
��Y%=1�11
��(80);
��
�;�0,0)"SC:"�f(S%,6)"     FR:"�f(F%,2)�(12)"HI:"�f(W%,6)
�N%=L%:�L%>3N%=3
�M%=1�N%
�9+M%,0)�227
�
 �F%=1�15,23)NAME$;
*,�1,23)�13,�240)�241�25,23)�242�13,�240)
4�put(10,10,229)
>�put(11,10,229)
H
T%=1:H%=2
RX%(1)=10:Y%(1)=10
\X%(2)=11:Y%(2)=10
fC%(1)=32:C%(2)=32
pD%=3
zI%=0
�
N%=3+F%*3
��N%>98N%=98
�Z%=2
��M%=1�N%
��empty(46)
��
�R%=K%-F%*K%/50
�
�R%<0R%=0
�
B%=-66
�
C%=-98
�G%=-103
�J%=-104
�"�U%�message(12,"BONUS  ROUND")
	�on
	
�U%�flash
		�wait
	$�
	.:
	8��flash
	B�M%=5�35
	L�14,12)"            "
	V
�0,-8,2,1
	`
�1,2,M%,1
	j�14,12)"BONUS  ROUND"
	t�0,0,0,0
	~�Y%=1�20:�
	��
	�
�Y%=11�13
	�
�12,Y%);
	��X%=12�27:�S%(X%,Y%):�,
	��
	�:
	���pause
	��message(12,"   PAUSED   ")
	�	�wait
	�/�Y%=11�13:�12,Y%);:�X%=12�27:�S%(X%,Y%):�,
	�
�12,Y%);
	��
:


��wait
���0=""
���0<>""
(�
2:
<��empty(V%)
F�
PX%=�(40)-1:Y%=�(22)
Z�S%(X%,Y%)=32
d�V%<>1�put(X%,Y%,V%):�
nV%=�(10)
x�129:�0
��X%,Y%)�NAME$,V%,1)
��128:�1
�S%(X%,Y%)=V%
��
�:
���put(X%,Y%,V%)
��X%,Y%)�V%
�S%(X%,Y%)=V%
��
�:
���setup
�M%=�(-�)
�-�1,1,3,-90,1,1,-2,-3,100,0,0,-100,100,100
+�2,1,1,-2,1,7,5,12,100,0,0,-100,100,100
*�3,1,0,0,0,10,10,10,100,-4,-1,-4,100,0
&�4,3,0,0,0,0,0,0,60,-5,-1,-3,75,60
"-�S%(39,22),X%(100),Y%(100),C%(100),R%(21)
,�23;8202;0;0;0;
6'�23,225,84,170,84,170,84,170,84,170
@+�23,226,254,254,254,254,254,254,254,254
J'�23,224,24,60,126,255,255,126,60,24
T�23,227,0;0;24,60,126,255
^+�23,229,128,192,224,240,240,224,192,128
h�23,228,1,3,7,15,15,7,3,1
r�23,230,255,126,60,24,0;0;
|&�23,231,49,70,152,163,47,73,91,155
�&�23,232,140,98,25,197,244,50,90,89
�&�23,233,155,91,73,47,163,152,70,49
�&�23,234,89,90,50,244,197,25,98,140
��23,240,0;0;255,0,0;
�!�23,241,0,4,12,28,252,28,12,4
�"�23,242,0,32,48,56,63,56,48,32
�$�23,244,0,124,124,96,120,96,96,0
�$�23,245,0,124,124,64,124,4,124,0
�'�23,246,0,120,124,100,120,108,100,0
�'�23,247,195,231,66,24,24,66,231,195
�%�23,248,0,124,124,100,124,96,96,0
��X%=1�5
�R%(X%)=226
�
�X%=1�4
R%(X%+5)=225
&R%(X%+9)=224
0�
:
R%(14)=43
DR%(15)=244
NR%(16)=244
XR%(17)=246
bR%(18)=247
lR%(19)=245
vR%(20)=1
�R%(21)=248
�U%=1
�$C$=�231+�232+�8+�8+�10+�233+�234
�*FX200,1
�
�N%=1�108
��0<>""N%=108
�%�N%=9�titles("C . D U N K L E Y")
�$�N%=42�titles("P R E S E N T S")
�.�N%=58�titles("for the BBC microcomputer")
�4�N%=76�titles(�228+" M E C H A - W O R M "+�229)
�C%=� �"                                DEEFFAA::55::AAFF55555555555555::::::::????????88888888========66666666<<<< ",N%,1)-32
�B%=� �"HFHDHCHAH@HAHCHDH<H>H@HAH@HAHCHDMKMIMHMFMEMFMHMIMAMCMEMFMEMFMHMIFAFIFAFNKFKKFBFKHDHKHDHMIDIIDADIFBFIFBFHC@C<",N%,1)-32
��1,4,B%*4-30,3

!�C%=0�2,0,1,3 ��2,4,C%*4-30,3

�


K%=525

 NAME$="Mecha-Worm"

*�

4:

>��titles(S$)

HK%=(40-�S$)/2

R�off

\�0,12)�(120)�K%,12);

fA%=10:X%=&70:Y%=0

p
�M%=1��S$

z?&70=� �S$,M%,1)

��?&70=32�32:�tlM

�
�&FFF1

�<�23,250,?&71,?&71,?&72,?&72,?&73,?&73,?&74,?&74,250,8,10

�:�23,250,?&75,?&75,?&76,?&76,?&77,?&77,?&78,?&78,250,11

��

�M�N%=9�1,1)C$�37,1)C$�1,22)C$�37,22)C$�9,15)"Dip.H.E., B.Sc.(Hons)":�d^M

��N%=42�9,15)�(22)

�&�N%<>76�K%-1,14)ĩS$+2,"_"):�d^M

�&�7,17)"the ultimate challenge..."

��on

��

�:

�
��inst
GOT$="0123456789"
S%=0:L%=3:F%=1:U%=1
Q%=50000
$�off
.�
8
�title
B�
LE�" Collect the power pills, avoid the ACIDpools & your own tail."
VD�" You may go through the tunnels and overthe patches of grass."
`�
j�"SYMBOLS:"�20)"CONTROLS:"
t(�"Mecha-Worm .... "�229�229�229"  A"
~5�"Acid Pool ..... "�226"   < > ....... Movement";
�"�"Tunnel ........ "�224"    Z"
��"Grass ......... "�225
�0�"100 pt BONUS .. +   SPACE BAR .... Pause";
��"Speed up ...... "�244
�5�"Slow down ..... "�245"   S/Q ... Sound ON/OFF";
��"Worm Munch .... "�247
��"Reverse Keys .. "�246
��"Power Up ...... "�248
��"Power Pill .... ."
��"5000 pt BONUS . ";
��129:�0
��"Mecha-Worm"
�128:�1

�zero(1,3)
�on

���-99
(�zero(4,8)
2�off
<�
F
�title
PK%=1025-K%
Z�M%=1�K%�25
d�M%-1,10)�229
n�
x�M%=0�39
��M%,9)�224
��M%,11)�224
��
��M%=9�39�10
��M%,11)�227
��M%,9)�230
��
��19,8)�230
��19,12)�227
��36,8)"Fast"
��0,8)"Slow"
��13,6)"Game Speed:"
�.�3,14)"Use < and > to adjust game speed."
�''"NOTE:"'
J�" i) A Bonus Mecha-Worm is awarded for       every 50,000pts scored."
.�"ii) Every fifth frame is a BONUS ROUND."
"�zero(9,11)
,�on
6�
@�M%=1�200:�
J)�-103�K%>25�K%�25-1,10)" ":K%=K%-25
T,�-104�K%<1000K%=K%+25:�K%�25-1,10)�229
^�24,6)�f(K%�25,2)
h	��-99
rK%=1025-K%
|�zero(12,15)
��off
��zero(16,22)
��
��
�:
���title
�1�5,24)�224"Press SPACE BAR To Continue"�224;
��message(1," Mecha-Worm ")
��1,1)C$�37,1)C$
�(�9,3)�228"Written By C.Dunkley"�229
��
�:
���on
(� �Beeb �U%�videoULA(1)��videoULA(4)
�M%=0�7
�M%�2=0:*FX19
&�19,1,M%;0;0;
0�
:�
D:
N	��off
X� �Beeb �videoULA(0)
b�M%=7�0�-1
l�M%�2=0:*FX19
v�19,1,M%;0;0;
��
��
�:
���videoULA(X%)
�� � �Beeb �
�
A%=155
�	*FX19
�
�&FFF4
�X%=X%+16:�&FFF4
�X%=X%+16:�&FFF4
�	*FX19
�X%=X%+16:�&FFF4
�X%=X%+64:�&FFF4
�
:
��crtc6845
 � � �Beeb �
*�23;4,38;0;0;0;
4�23;5,32;0;0;0;
>�23;7,30;0;0;0;
H�23;9,7;0;0;0;
R�
\:
f��zero(A%,B%)
p&�Y%=A%�B%:�X%=0�39:S%(X%,Y%)=32:�,
z�
�:
�� �Beeb
�;� Add 'IF' statements as necessary to test machine type
�
� 1 - ELK
�� 251 - B+
�� ? - ARCH
��-256=1 =�
�=�
�

00000000  0d 00 0a 12 f4 20 27 4d  65 63 68 61 2d 57 6f 72  |..... 'Mecha-Wor|
00000010  6d 27 0d 00 14 12 f4 20  42 79 20 43 2e 44 75 6e  |m'..... By C.Dun|
00000020  6b 6c 65 79 0d 00 1e 05  f4 0d 00 28 06 eb 36 0d  |kley.......(..6.|
00000030  00 32 0d 57 25 3d 31 38  32 35 38 30 0d 00 3c 0d  |.2.W%=182580..<.|
00000040  f2 63 72 74 63 36 38 34  35 0d 00 46 0a f2 73 65  |.crtc6845..F..se|
00000050  74 75 70 0d 00 50 05 f5  0d 00 5a 09 f2 69 6e 73  |tup..P....Z..ins|
00000060  74 0d 00 64 05 f5 0d 00  6e 0b f2 73 63 72 65 65  |t..d....n..scree|
00000070  6e 0d 00 78 14 e7 55 25  f2 6d 6f 76 65 32 20 8b  |n..x..U%.move2 .|
00000080  f2 6d 6f 76 65 0d 00 82  14 e7 4e 25 f2 6f 6f 70  |.move.....N%.oop|
00000090  73 20 8b f2 62 6f 6e 75  73 0d 00 8c 09 fd 4c 25  |s ..bonus.....L%|
000000a0  3d 30 0d 00 96 2a e7 53  25 3e 57 25 57 25 3d 53  |=0...*.S%>W%W%=S|
000000b0  25 3a f2 6d 65 73 73 61  67 65 28 36 2c 22 4e 45  |%:.message(6,"NE|
000000c0  57 20 48 49 2d 53 43 4f  52 45 22 29 0d 00 a0 09  |W HI-SCORE")....|
000000d0  f2 77 61 69 74 0d 00 aa  08 f2 6f 66 66 0d 00 b4  |.wait.....off...|
000000e0  05 db 0d 00 be 06 fd 30  0d 00 c8 05 e0 0d 00 d2  |.......0........|
000000f0  05 3a 0d 00 dc 20 dd a4  66 28 50 25 2c 58 25 29  |.:... ..f(P%,X%)|
00000100  3a 3d c2 22 30 30 30 30  30 22 2b c3 50 25 2c 58  |:=."00000"+.P%,X|
00000110  25 29 0d 00 e6 05 3a 0d  00 f0 0a dd f2 6d 6f 76  |%)....:......mov|
00000120  65 0d 00 fa 1b f5 e3 4d  25 3d 31 b8 52 25 3a ed  |e......M%=1.R%:.|
00000130  3a e7 a6 2d 39 39 f2 70  61 75 73 65 0d 01 04 12  |:..-99.pause....|
00000140  e7 a6 2d 31 37 3a 2a 46  58 32 31 30 20 31 0d 01  |..-17:*FX210 1..|
00000150  0e 10 e7 a6 2d 38 32 3a  2a 46 58 32 31 30 0d 01  |....-82:*FX210..|
00000160  18 0c e7 a6 43 25 44 25  3d 34 0d 01 22 0c e7 a6  |....C%D%=4.."...|
00000170  42 25 44 25 3d 31 0d 01  2c 0c e7 a6 4a 25 44 25  |B%D%=1..,...J%D%|
00000180  3d 33 0d 01 36 0c e7 a6  47 25 44 25 3d 32 0d 01  |=3..6...G%D%=2..|
00000190  40 24 41 25 3d 48 25 3a  48 25 3d 48 25 2b 31 3a  |@$A%=H%:H%=H%+1:|
000001a0  e7 48 25 3d 31 30 31 48  25 3d 31 3a 41 25 3d 31  |.H%=101H%=1:A%=1|
000001b0  30 30 0d 01 4a 3b 58 25  28 48 25 29 3d 58 25 28  |00..J;X%(H%)=X%(|
000001c0  41 25 29 2b 28 44 25 3d  32 29 2d 28 44 25 3d 33  |A%)+(D%=2)-(D%=3|
000001d0  29 3a 59 25 28 48 25 29  3d 59 25 28 41 25 29 2b  |):Y%(H%)=Y%(A%)+|
000001e0  28 44 25 3d 31 29 2d 28  44 25 3d 34 29 0d 01 54  |(D%=1)-(D%=4)..T|
000001f0  2a e7 58 25 28 48 25 29  3d 34 30 58 25 28 48 25  |*.X%(H%)=40X%(H%|
00000200  29 3d 30 20 8b e7 58 25  28 48 25 29 3c 30 58 25  |)=0 ..X%(H%)<0X%|
00000210  28 48 25 29 3d 33 39 0d  01 5e 2a e7 59 25 28 48  |(H%)=39..^*.Y%(H|
00000220  25 29 3d 30 59 25 28 48  25 29 3d 32 32 20 8b e7  |%)=0Y%(H%)=22 ..|
00000230  59 25 28 48 25 29 3d 32  33 59 25 28 48 25 29 3d  |Y%(H%)=23Y%(H%)=|
00000240  31 0d 01 68 2e 50 25 3d  53 25 28 58 25 28 48 25  |1..h.P%=S%(X%(H%|
00000250  29 2c 59 25 28 48 25 29  29 3a 43 25 28 48 25 29  |),Y%(H%)):C%(H%)|
00000260  3d 33 32 3a e7 50 25 3d  33 32 e5 8d 64 60 41 0d  |=32:.P%=32..d`A.|
00000270  01 72 15 e7 50 25 3c 31  31 f2 6e 61 6d 65 3a e5  |.r..P%<11.name:.|
00000280  8d 64 60 41 0d 01 7c 25  e7 50 25 3d 32 32 35 d4  |.d`A..|%.P%=225.|
00000290  30 2c 2d 36 2c 34 2c 31  3a 43 25 28 48 25 29 3d  |0,-6,4,1:C%(H%)=|
000002a0  32 32 36 3a e5 8d 64 60  41 0d 01 86 25 e7 50 25  |226:..d`A...%.P%|
000002b0  3d 32 32 34 d4 30 2c 2d  34 2c 34 2c 31 3a 43 25  |=224.0,-4,4,1:C%|
000002c0  28 48 25 29 3d 32 32 35  3a e5 8d 64 60 41 0d 01  |(H%)=225:..d`A..|
000002d0  90 22 e7 50 25 3d 32 34  34 d4 31 2c 32 2c 31 30  |.".P%=244.1,2,10|
000002e0  2c 33 3a 52 25 3d 52 25  81 32 3a e5 8d 64 60 41  |,3:R%=R%.2:..d`A|
000002f0  0d 01 9a 17 e7 50 25 3d  32 34 37 f2 6d 75 6e 63  |.....P%=247.munc|
00000300  68 3a e5 8d 64 60 41 0d  01 a4 26 e7 50 25 3d 32  |h:..d`A...&.P%=2|
00000310  34 35 d4 31 2c 32 2c 32  30 2c 33 3a 52 25 3d 52  |45.1,2,20,3:R%=R|
00000320  25 2b 52 25 81 31 32 3a  e5 8d 64 60 41 0d 01 ae  |%+R%.12:..d`A...|
00000330  3e e7 50 25 3d 32 34 36  d4 31 2c 32 2c 33 30 2c  |>.P%=246.1,2,30,|
00000340  33 3a 41 25 3d 42 25 3a  42 25 3d 43 25 3a 43 25  |3:A%=B%:B%=C%:C%|
00000350  3d 41 25 3a 41 25 3d 47  25 3a 47 25 3d 4a 25 3a  |=A%:A%=G%:G%=J%:|
00000360  4a 25 3d 41 25 3a e5 8d  64 60 41 0d 01 b8 4a e7  |J%=A%:..d`A...J.|
00000370  50 25 3d 34 36 d4 30 2c  33 2c 30 2c 31 3a f2 73  |P%=46.0,3,0,1:.s|
00000380  63 6f 72 65 28 35 30 29  3a 49 25 3d 31 3a 5a 25  |core(50):I%=1:Z%|
00000390  3d 5a 25 2b 31 3a 4e 25  3d 4e 25 2d 31 3a f2 65  |=Z%+1:N%=N%-1:.e|
000003a0  6d 70 74 79 28 52 25 28  b3 28 32 31 29 29 29 3a  |mpty(R%(.(21))):|
000003b0  e5 8d 64 60 41 0d 01 c2  25 e7 50 25 3d 34 33 d4  |..d`A...%.P%=43.|
000003c0  31 2c 33 2c 31 30 2c 31  3a f2 73 63 6f 72 65 28  |1,3,10,1:.score(|
000003d0  31 30 30 29 3a e5 8d 64  60 41 0d 01 cc 27 e7 50  |100):..d`A...'.P|
000003e0  25 3e 32 32 35 e7 50 25  3c 32 33 31 d4 30 2c 2d  |%>225.P%<231.0,-|
000003f0  39 2c 34 2c 32 3a 4e 25  3d 2d 31 3a e5 8d 64 74  |9,4,2:N%=-1:..dt|
00000400  41 0d 01 d6 1f e7 50 25  3d 32 34 38 f2 70 6f 77  |A.....P%=248.pow|
00000410  65 72 75 70 3a e7 4e 25  3c 3d 30 e5 8d 64 74 41  |erup:.N%<=0..dtA|
00000420  0d 01 e0 3c e7 50 25 3d  32 32 34 f2 70 75 74 28  |...<.P%=224.put(|
00000430  58 25 28 48 25 29 2c 59  25 28 48 25 29 2c 50 25  |X%(H%),Y%(H%),P%|
00000440  29 8b f2 70 75 74 28 58  25 28 48 25 29 2c 59 25  |)..put(X%(H%),Y%|
00000450  28 48 25 29 2c 44 25 2b  32 32 36 29 0d 01 ea 3d  |(H%),D%+226)...=|
00000460  e7 49 25 3d 31 49 25 3d  30 20 8b f2 70 75 74 28  |.I%=1I%=0 ..put(|
00000470  58 25 28 54 25 29 2c 59  25 28 54 25 29 2c 43 25  |X%(T%),Y%(T%),C%|
00000480  28 54 25 29 29 3a 54 25  3d 54 25 2b 31 3a e7 54  |(T%)):T%=T%+1:.T|
00000490  25 3d 31 30 31 54 25 3d  31 0d 01 f4 0a fd 4e 25  |%=101T%=1.....N%|
000004a0  3c 3d 30 0d 01 fe 05 e1  0d 02 08 05 3a 0d 02 12  |<=0.........:...|
000004b0  0d dd f2 70 6f 77 65 72  75 70 0d 02 1c 0b e3 58  |...powerup.....X|
000004c0  25 3d 31 b8 35 0d 02 26  13 f1 8a 32 30 2c 30 29  |%=1.5..&...20,0)|
000004d0  22 20 20 20 20 20 20 22  0d 02 30 0e d4 31 2c 2d  |"      "..0..1,-|
000004e0  39 2c 58 25 2c 31 0d 02  3a 10 d4 32 2c 2d 38 2c  |9,X%,1..:..2,-8,|
000004f0  58 25 2a 32 2c 31 0d 02  44 13 f1 8a 32 30 2c 30  |X%*2,1..D...20,0|
00000500  29 22 50 57 52 3a 33 30  22 0d 02 4e 05 ed 0d 02  |)"PWR:30"..N....|
00000510  58 1e f2 70 75 74 28 58  25 28 48 25 29 2c 59 25  |X..put(X%(H%),Y%|
00000520  28 48 25 29 2c 44 25 2b  32 32 36 29 0d 02 62 1e  |(H%),D%+226)..b.|
00000530  f2 70 75 74 28 58 25 28  54 25 29 2c 59 25 28 54  |.put(X%(T%),Y%(T|
00000540  25 29 2c 43 25 28 54 25  29 29 0d 02 6c 1d 45 25  |%),C%(T%))..l.E%|
00000550  3d 33 31 3a 54 25 3d 54  25 2b 31 3a e7 54 25 3d  |=31:T%=T%+1:.T%=|
00000560  31 30 31 54 25 3d 31 0d  02 76 05 f5 0d 02 80 32  |101T%=1..v.....2|
00000570  45 25 3d 45 25 2d 31 3a  e7 45 25 3d 35 d4 31 2c  |E%=E%-1:.E%=5.1,|
00000580  2d 31 35 2c 31 2c 32 3a  d4 31 2c 2d 31 35 2c 34  |-15,1,2:.1,-15,4|
00000590  2c 32 3a d4 31 2c 2d 31  35 2c 31 36 2c 32 0d 02  |,2:.1,-15,16,2..|
000005a0  8a 13 f1 8a 32 34 2c 30  29 a4 66 28 45 25 2c 32  |....24,0).f(E%,2|
000005b0  29 0d 02 94 0c e7 a6 43  25 44 25 3d 34 0d 02 9e  |)......C%D%=4...|
000005c0  0c e7 a6 42 25 44 25 3d  31 0d 02 a8 0c e7 a6 4a  |...B%D%=1......J|
000005d0  25 44 25 3d 33 0d 02 b2  0c e7 a6 47 25 44 25 3d  |%D%=3......G%D%=|
000005e0  32 0d 02 bc 24 41 25 3d  48 25 3a 48 25 3d 48 25  |2...$A%=H%:H%=H%|
000005f0  2b 31 3a e7 48 25 3d 31  30 31 48 25 3d 31 3a 41  |+1:.H%=101H%=1:A|
00000600  25 3d 31 30 30 0d 02 c6  1f 58 25 28 48 25 29 3d  |%=100....X%(H%)=|
00000610  58 25 28 41 25 29 2b 28  44 25 3d 32 29 2d 28 44  |X%(A%)+(D%=2)-(D|
00000620  25 3d 33 29 0d 02 d0 1f  59 25 28 48 25 29 3d 59  |%=3)....Y%(H%)=Y|
00000630  25 28 41 25 29 2b 28 44  25 3d 31 29 2d 28 44 25  |%(A%)+(D%=1)-(D%|
00000640  3d 34 29 0d 02 da 2a e7  58 25 28 48 25 29 3d 34  |=4)...*.X%(H%)=4|
00000650  30 58 25 28 48 25 29 3d  30 20 8b e7 58 25 28 48  |0X%(H%)=0 ..X%(H|
00000660  25 29 3c 30 58 25 28 48  25 29 3d 33 39 0d 02 e4  |%)<0X%(H%)=39...|
00000670  2a e7 59 25 28 48 25 29  3d 30 59 25 28 48 25 29  |*.Y%(H%)=0Y%(H%)|
00000680  3d 32 32 20 8b e7 59 25  28 48 25 29 3d 32 33 59  |=22 ..Y%(H%)=23Y|
00000690  25 28 48 25 29 3d 31 0d  02 ee 22 50 25 3d 53 25  |%(H%)=1..."P%=S%|
000006a0  28 58 25 28 48 25 29 2c  59 25 28 48 25 29 29 3a  |(X%(H%),Y%(H%)):|
000006b0  43 25 28 48 25 29 3d 33  32 0d 02 f8 27 e7 50 25  |C%(H%)=32...'.P%|
000006c0  3d 34 36 d4 30 2c 33 2c  30 2c 31 3a 49 25 3d 31  |=46.0,3,0,1:I%=1|
000006d0  3a 5a 25 3d 5a 25 2b 31  3a 4e 25 3d 4e 25 2d 31  |:Z%=Z%+1:N%=N%-1|
000006e0  0d 03 02 27 e7 50 25 3e  32 32 36 e7 50 25 3c 32  |...'.P%>226.P%<2|
000006f0  33 31 d4 30 2c 2d 39 2c  34 2c 32 3a 4e 25 3d 2d  |31.0,-9,4,2:N%=-|
00000700  31 3a e5 8d 54 7e 43 0d  03 0c 1e f2 70 75 74 28  |1:..T~C.....put(|
00000710  58 25 28 48 25 29 2c 59  25 28 48 25 29 2c 44 25  |X%(H%),Y%(H%),D%|
00000720  2b 32 32 36 29 0d 03 16  13 e7 49 25 3d 31 49 25  |+226).....I%=1I%|
00000730  3d 30 3a e5 8d 54 7e 43  0d 03 20 0e e7 45 25 3d  |=0:..T~C.. ..E%=|
00000740  30 e5 8d 54 7e 43 0d 03  2a 1e f2 70 75 74 28 58  |0..T~C..*..put(X|
00000750  25 28 54 25 29 2c 59 25  28 54 25 29 2c 43 25 28  |%(T%),Y%(T%),C%(|
00000760  54 25 29 29 0d 03 34 17  54 25 3d 54 25 2b 31 3a  |T%))..4.T%=T%+1:|
00000770  e7 54 25 3d 31 30 31 54  25 3d 31 0d 03 3e 0f fd  |.T%=101T%=1..>..|
00000780  4e 25 3c 3d 30 84 45 25  3d 30 0d 03 48 13 f1 8a  |N%<=0.E%=0..H...|
00000790  32 30 2c 30 29 22 20 20  20 20 20 20 22 0d 03 52  |20,0)"      "..R|
000007a0  05 e1 0d 03 5c 05 3a 0d  03 66 0b dd f2 6d 6f 76  |....\.:..f...mov|
000007b0  65 32 0d 03 70 05 f5 0d  03 7a 0c e7 a6 43 25 44  |e2..p....z...C%D|
000007c0  25 3d 34 0d 03 84 0c e7  a6 42 25 44 25 3d 31 0d  |%=4......B%D%=1.|
000007d0  03 8e 0c e7 a6 4a 25 44  25 3d 33 0d 03 98 0c e7  |.....J%D%=3.....|
000007e0  a6 47 25 44 25 3d 32 0d  03 a2 24 41 25 3d 48 25  |.G%D%=2...$A%=H%|
000007f0  3a 48 25 3d 48 25 2b 31  3a e7 48 25 3d 31 30 31  |:H%=H%+1:.H%=101|
00000800  48 25 3d 31 3a 41 25 3d  31 30 30 0d 03 ac 1f 58  |H%=1:A%=100....X|
00000810  25 28 48 25 29 3d 58 25  28 41 25 29 2b 28 44 25  |%(H%)=X%(A%)+(D%|
00000820  3d 32 29 2d 28 44 25 3d  33 29 0d 03 b6 1f 59 25  |=2)-(D%=3)....Y%|
00000830  28 48 25 29 3d 59 25 28  41 25 29 2b 28 44 25 3d  |(H%)=Y%(A%)+(D%=|
00000840  31 29 2d 28 44 25 3d 34  29 0d 03 c0 2a e7 58 25  |1)-(D%=4)...*.X%|
00000850  28 48 25 29 3d 34 30 58  25 28 48 25 29 3d 30 20  |(H%)=40X%(H%)=0 |
00000860  8b e7 58 25 28 48 25 29  3c 30 58 25 28 48 25 29  |..X%(H%)<0X%(H%)|
00000870  3d 33 39 0d 03 ca 2a e7  59 25 28 48 25 29 3d 30  |=39...*.Y%(H%)=0|
00000880  59 25 28 48 25 29 3d 32  32 20 8b e7 59 25 28 48  |Y%(H%)=22 ..Y%(H|
00000890  25 29 3d 32 33 59 25 28  48 25 29 3d 31 0d 03 d4  |%)=23Y%(H%)=1...|
000008a0  22 50 25 3d 53 25 28 58  25 28 48 25 29 2c 59 25  |"P%=S%(X%(H%),Y%|
000008b0  28 48 25 29 29 3a 43 25  28 48 25 29 3d 33 32 0d  |(H%)):C%(H%)=32.|
000008c0  03 de 1f e7 50 25 3e 32  32 35 d4 30 2c 2d 39 2c  |....P%>225.0,-9,|
000008d0  34 2c 32 3a 4e 25 3d 30  3a e5 8d 54 64 44 0d 03  |4,2:N%=0:..TdD..|
000008e0  e8 42 e7 50 25 3d 34 36  d4 30 2c 33 2c 30 2c 31  |.B.P%=46.0,3,0,1|
000008f0  3a f2 73 63 6f 72 65 28  31 30 30 29 3a 49 25 3d  |:.score(100):I%=|
00000900  31 3a 5a 25 3d 5a 25 2b  31 3a f2 65 6d 70 74 79  |1:Z%=Z%+1:.empty|
00000910  28 34 36 29 3a f2 65 6d  70 74 79 28 32 32 36 29  |(46):.empty(226)|
00000920  0d 03 f2 1e f2 70 75 74  28 58 25 28 48 25 29 2c  |.....put(X%(H%),|
00000930  59 25 28 48 25 29 2c 44  25 2b 32 32 36 29 0d 03  |Y%(H%),D%+226)..|
00000940  fc 13 e7 49 25 3d 31 49  25 3d 30 3a e5 8d 54 64  |...I%=1I%=0:..Td|
00000950  44 0d 04 06 1e f2 70 75  74 28 58 25 28 54 25 29  |D.....put(X%(T%)|
00000960  2c 59 25 28 54 25 29 2c  43 25 28 54 25 29 29 0d  |,Y%(T%),C%(T%)).|
00000970  04 10 17 54 25 3d 54 25  2b 31 3a e7 54 25 3d 31  |...T%=T%+1:.T%=1|
00000980  30 31 54 25 3d 31 0d 04  1a 0f e7 5a 25 3d 31 30  |01T%=1.....Z%=10|
00000990  30 4e 25 3d 30 0d 04 24  0a fd 4e 25 3c 3d 30 0d  |0N%=0..$..N%<=0.|
000009a0  04 2e 05 e1 0d 04 38 05  3a 0d 04 42 0a dd f2 6e  |......8.:..B...n|
000009b0  61 6d 65 0d 04 4c 0b fb  31 32 39 3a fb 30 0d 04  |ame..L..129:.0..|
000009c0  56 0e d4 31 2c 33 2c 31  30 30 2c 31 0d 04 60 1c  |V..1,3,100,1..`.|
000009d0  f1 8a 31 34 2b 50 25 2c  32 33 29 c1 4e 41 4d 45  |..14+P%,23).NAME|
000009e0  24 2c 50 25 2c 31 29 3b  0d 04 6a 2e 47 4f 54 24  |$,P%,1);..j.GOT$|
000009f0  3d c0 47 4f 54 24 2c 50  25 2d 31 29 2b c1 4e 41  |=.GOT$,P%-1)+.NA|
00000a00  4d 45 24 2c 50 25 2c 31  29 2b c2 47 4f 54 24 2c  |ME$,P%,1)+.GOT$,|
00000a10  31 30 2d 50 25 29 0d 04  74 0b fb 31 32 38 3a fb  |10-P%)..t..128:.|
00000a20  31 0d 04 7e 11 e7 47 4f  54 24 3c 3e 4e 41 4d 45  |1..~..GOT$<>NAME|
00000a30  24 e1 0d 04 88 15 47 4f  54 24 3d 22 30 31 32 33  |$.....GOT$="0123|
00000a40  34 35 36 37 38 39 22 0d  04 92 0b e3 4d 25 3d 31  |456789".....M%=1|
00000a50  b8 35 0d 04 9c 0b fb 31  32 39 3a fb 30 0d 04 a6  |.5.....129:.0...|
00000a60  11 f1 8a 31 35 2c 32 33  29 4e 41 4d 45 24 0d 04  |...15,23)NAME$..|
00000a70  b0 0d d4 30 2c 2d 38 2c  32 2c 31 0d 04 ba 12 d4  |...0,-8,2,1.....|
00000a80  31 2c 2d 31 30 2c 4d 25  2a 31 30 2c 31 0d 04 c4  |1,-10,M%*10,1...|
00000a90  12 d4 32 2c 2d 31 31 2c  4d 25 2a 31 34 2c 31 0d  |..2,-11,M%*14,1.|
00000aa0  04 ce 0b fb 31 32 38 3a  fb 31 0d 04 d8 10 f2 73  |....128:.1.....s|
00000ab0  63 6f 72 65 28 31 30 30  30 29 0d 04 e2 12 f1 8a  |core(1000)......|
00000ac0  31 35 2c 32 33 29 4e 41  4d 45 24 20 0d 04 ec 0e  |15,23)NAME$ ....|
00000ad0  e3 58 25 3d 31 b8 32 35  3a ed 0d 04 f6 0c d4 30  |.X%=1.25:......0|
00000ae0  2c 30 2c 30 2c 30 0d 05  00 05 ed 0d 05 0a 05 e1  |,0,0,0..........|
00000af0  0d 05 14 05 3a 0d 05 1e  14 dd f2 6d 65 73 73 61  |....:......messa|
00000b00  67 65 28 59 25 2c 53 24  29 0d 05 28 17 f1 8a 31  |ge(Y%,S$)..(...1|
00000b10  32 2c 59 25 2d 31 29 c4  31 36 2c bd 32 32 34 29  |2,Y%-1).16,.224)|
00000b20  0d 05 32 1c f1 8a 31 32  2c 59 25 29 bd 32 32 34  |..2...12,Y%).224|
00000b30  22 20 22 53 24 22 20 22  bd 32 32 34 0d 05 3c 17  |" "S$" ".224..<.|
00000b40  f1 8a 31 32 2c 59 25 2b  31 29 c4 31 36 2c bd 32  |..12,Y%+1).16,.2|
00000b50  32 34 29 0d 05 46 05 e1  0d 05 50 05 3a 0d 05 5a  |24)..F....P.:..Z|
00000b60  0b dd f2 6d 75 6e 63 68  0d 05 64 0d d4 31 2c 32  |...munch..d..1,2|
00000b70  2c 32 30 2c 33 0d 05 6e  0a e7 5a 25 3d 32 e1 0d  |,20,3..n..Z%=2..|
00000b80  05 78 0c e3 58 25 3d 33  b8 5a 25 0d 05 82 18 f1  |.x..X%=3.Z%.....|
00000b90  8a 58 25 28 54 25 29 2c  59 25 28 54 25 29 29 bd  |.X%(T%),Y%(T%)).|
00000ba0  32 32 34 0d 05 8c 0e d4  31 2c 2d 39 2c 58 25 2c  |224.....1,-9,X%,|
00000bb0  31 0d 05 96 0e e3 4d 25  3d 31 b8 33 30 3a ed 0d  |1.....M%=1.30:..|
00000bc0  05 a0 1e f2 70 75 74 28  58 25 28 54 25 29 2c 59  |....put(X%(T%),Y|
00000bd0  25 28 54 25 29 2c 43 25  28 54 25 29 29 0d 05 aa  |%(T%),C%(T%))...|
00000be0  0b 54 25 3d 54 25 2b 31  0d 05 b4 0f e7 54 25 3d  |.T%=T%+1.....T%=|
00000bf0  31 30 31 54 25 3d 31 0d  05 be 05 ed 0d 05 c8 08  |101T%=1.........|
00000c00  5a 25 3d 32 0d 05 d2 05  e1 0d 05 dc 05 3a 0d 05  |Z%=2.........:..|
00000c10  e6 0f dd f2 65 72 61 73  65 28 49 25 29 0d 05 f0  |....erase(I%)...|
00000c20  0c e3 58 25 3d 31 b8 5a  25 0d 05 fa 0e f2 73 63  |..X%=1.Z%.....sc|
00000c30  6f 72 65 28 49 25 29 0d  06 04 18 f1 8a 58 25 28  |ore(I%)......X%(|
00000c40  54 25 29 2c 59 25 28 54  25 29 29 bd 32 32 34 0d  |T%),Y%(T%)).224.|
00000c50  06 0e 0e d4 30 2c 2d 31  30 2c 32 2c 32 0d 06 18  |....0,-10,2,2...|
00000c60  0e d4 31 2c 2d 38 2c 58  25 2c 31 0d 06 22 0e e3  |..1,-8,X%,1.."..|
00000c70  4d 25 3d 31 b8 34 30 3a  ed 0d 06 2c 1d f1 8a 58  |M%=1.40:...,...X|
00000c80  25 28 54 25 29 2c 59 25  28 54 25 29 29 bd 28 43  |%(T%),Y%(T%)).(C|
00000c90  25 28 54 25 29 29 0d 06  36 0c d4 30 2c 30 2c 30  |%(T%))..6..0,0,0|
00000ca0  2c 30 0d 06 40 0f e3 4d  25 3d 31 b8 31 35 30 3a  |,0..@..M%=1.150:|
00000cb0  ed 0d 06 4a 0b 54 25 3d  54 25 2b 31 0d 06 54 0f  |...J.T%=T%+1..T.|
00000cc0  e7 54 25 3d 31 30 31 54  25 3d 31 0d 06 5e 05 ed  |.T%=101T%=1..^..|
00000cd0  0d 06 68 05 e1 0d 06 72  05 3a 0d 06 7c 0f dd f2  |..h....r.:..|...|
00000ce0  73 63 6f 72 65 28 56 25  29 0d 06 86 0c 53 25 3d  |score(V%)....S%=|
00000cf0  53 25 2b 56 25 0d 06 90  13 f1 8a 33 2c 30 29 3b  |S%+V%......3,0);|
00000d00  a4 66 28 53 25 2c 36 29  0d 06 9a 3c e7 53 25 3e  |.f(S%,6)...<.S%>|
00000d10  3d 51 25 d4 31 2c 31 2c  31 30 30 2c 34 3a 4c 25  |=Q%.1,1,100,4:L%|
00000d20  3d 4c 25 2b 31 3a 51 25  3d 51 25 2b 35 30 30 30  |=L%+1:Q%=Q%+5000|
00000d30  30 3a e7 4c 25 3c 34 f1  8a 39 2b 4c 25 2c 30 29  |0:.L%<4..9+L%,0)|
00000d40  bd 32 32 37 0d 06 a4 05  e1 0d 06 ae 05 3a 0d 06  |.227.........:..|
00000d50  b8 0b dd f2 62 6f 6e 75  73 0d 06 c2 0e f2 65 72  |....bonus.....er|
00000d60  61 73 65 28 35 30 29 0d  06 cc 10 e3 4d 25 3d 31  |ase(50).....M%=1|
00000d70  b8 31 30 30 30 3a ed 0d  06 d6 1f f2 6d 65 73 73  |.1000:......mess|
00000d80  61 67 65 28 31 32 2c 22  42 4f 4e 55 53 3a 30 30  |age(12,"BONUS:00|
00000d90  30 30 30 30 22 29 0d 06  e0 0e e3 4e 25 3d 31 b8  |0000").....N%=1.|
00000da0  46 25 2a 32 0d 06 ea 0f  f2 73 63 6f 72 65 28 31  |F%*2.....score(1|
00000db0  30 30 29 0d 06 f4 18 f1  8a 32 30 2c 31 32 29 a4  |00)......20,12).|
00000dc0  66 28 4e 25 2a 31 30 30  2c 36 29 0d 06 fe 0d d4  |f(N%*100,6).....|
00000dd0  30 2c 2d 38 2c 32 2c 31  0d 07 08 0e d4 31 2c 2d  |0,-8,2,1.....1,-|
00000de0  38 2c 4e 25 2c 31 0d 07  12 0f e3 4d 25 3d 31 b8  |8,N%,1.....M%=1.|
00000df0  31 35 30 3a ed 0d 07 1c  0c d4 30 2c 30 2c 30 2c  |150:......0,0,0,|
00000e00  30 0d 07 26 05 ed 0d 07  30 0b 46 25 3d 46 25 2b  |0..&....0.F%=F%+|
00000e10  31 0d 07 3a 05 e1 0d 07  44 05 3a 0d 07 4e 0a dd  |1..:....D.:..N..|
00000e20  f2 6f 6f 70 73 0d 07 58  0b 4c 25 3d 4c 25 2d 31  |.oops..X.L%=L%-1|
00000e30  0d 07 62 0d f2 65 72 61  73 65 28 35 29 0d 07 6c  |..b..erase(5)..l|
00000e40  41 e7 4c 25 3d 30 f2 6d  65 73 73 61 67 65 28 31  |A.L%=0.message(1|
00000e50  32 2c 22 20 47 41 4d 45  20 20 4f 56 45 52 20 22  |2," GAME  OVER "|
00000e60  29 20 8b f2 6d 65 73 73  61 67 65 28 31 32 2c 22  |) ..message(12,"|
00000e70  20 20 20 4f 4f 50 53 20  21 20 20 20 22 29 0d 07  |   OOPS !   ")..|
00000e80  76 05 e1 0d 07 80 05 3a  0d 07 8a 0c dd f2 73 63  |v......:......sc|
00000e90  72 65 65 6e 0d 07 94 07  d1 3d 30 0d 07 9e 1d e7  |reen.....=0.....|
00000ea0  55 25 3c 3e 31 f2 7a 65  72 6f 28 31 2c 32 32 29  |U%<>1.zero(1,22)|
00000eb0  3a f5 fd 91 3e 31 35 35  0d 07 a8 08 f2 6f 66 66  |:...>155.....off|
00000ec0  0d 07 b2 08 55 25 3d a3  0d 07 bc 0f e7 46 25 83  |....U%=......F%.|
00000ed0  35 3d 30 55 25 3d b9 0d  07 c6 0b f1 8a 30 2c 31  |5=0U%=.......0,1|
00000ee0  29 3b 0d 07 d0 0c e3 59  25 3d 31 b8 31 31 0d 07  |);.....Y%=1.11..|
00000ef0  da 0b f1 89 28 38 30 29  3b 0d 07 e4 05 ed 0d 07  |....(80);.......|
00000f00  ee 3b f1 8a 30 2c 30 29  22 53 43 3a 22 a4 66 28  |.;..0,0)"SC:".f(|
00000f10  53 25 2c 36 29 22 20 20  20 20 20 46 52 3a 22 a4  |S%,6)"     FR:".|
00000f20  66 28 46 25 2c 32 29 89  28 31 32 29 22 48 49 3a  |f(F%,2).(12)"HI:|
00000f30  22 a4 66 28 57 25 2c 36  29 0d 07 f8 13 4e 25 3d  |".f(W%,6)....N%=|
00000f40  4c 25 3a e7 4c 25 3e 33  4e 25 3d 33 0d 08 02 0c  |L%:.L%>3N%=3....|
00000f50  e3 4d 25 3d 31 b8 4e 25  0d 08 0c 11 f1 8a 39 2b  |.M%=1.N%......9+|
00000f60  4d 25 2c 30 29 bd 32 32  37 0d 08 16 05 ed 0d 08  |M%,0).227.......|
00000f70  20 17 e7 46 25 3d 31 f1  8a 31 35 2c 32 33 29 4e  | ..F%=1..15,23)N|
00000f80  41 4d 45 24 3b 0d 08 2a  2c f1 8a 31 2c 32 33 29  |AME$;..*,..1,23)|
00000f90  c4 31 33 2c bd 32 34 30  29 bd 32 34 31 8a 32 35  |.13,.240).241.25|
00000fa0  2c 32 33 29 bd 32 34 32  c4 31 33 2c bd 32 34 30  |,23).242.13,.240|
00000fb0  29 0d 08 34 13 f2 70 75  74 28 31 30 2c 31 30 2c  |)..4..put(10,10,|
00000fc0  32 32 39 29 0d 08 3e 13  f2 70 75 74 28 31 31 2c  |229)..>..put(11,|
00000fd0  31 30 2c 32 32 39 29 0d  08 48 0d 54 25 3d 31 3a  |10,229)..H.T%=1:|
00000fe0  48 25 3d 32 0d 08 52 15  58 25 28 31 29 3d 31 30  |H%=2..R.X%(1)=10|
00000ff0  3a 59 25 28 31 29 3d 31  30 0d 08 5c 15 58 25 28  |:Y%(1)=10..\.X%(|
00001000  32 29 3d 31 31 3a 59 25  28 32 29 3d 31 30 0d 08  |2)=11:Y%(2)=10..|
00001010  66 15 43 25 28 31 29 3d  33 32 3a 43 25 28 32 29  |f.C%(1)=32:C%(2)|
00001020  3d 33 32 0d 08 70 08 44  25 3d 33 0d 08 7a 08 49  |=32..p.D%=3..z.I|
00001030  25 3d 30 0d 08 84 0d 4e  25 3d 33 2b 46 25 2a 33  |%=0....N%=3+F%*3|
00001040  0d 08 8e 0f e7 4e 25 3e  39 38 4e 25 3d 39 38 0d  |.....N%>98N%=98.|
00001050  08 98 08 5a 25 3d 32 0d  08 a2 0c e3 4d 25 3d 31  |...Z%=2.....M%=1|
00001060  b8 4e 25 0d 08 ac 0e f2  65 6d 70 74 79 28 34 36  |.N%.....empty(46|
00001070  29 0d 08 b6 05 ed 0d 08  c0 12 52 25 3d 4b 25 2d  |).........R%=K%-|
00001080  46 25 2a 4b 25 2f 35 30  0d 08 ca 0d e7 52 25 3c  |F%*K%/50.....R%<|
00001090  30 52 25 3d 30 0d 08 d4  0a 42 25 3d 2d 36 36 0d  |0R%=0....B%=-66.|
000010a0  08 de 0a 43 25 3d 2d 39  38 0d 08 e8 0b 47 25 3d  |...C%=-98....G%=|
000010b0  2d 31 30 33 0d 08 f2 0b  4a 25 3d 2d 31 30 34 0d  |-103....J%=-104.|
000010c0  08 fc 22 e7 55 25 f2 6d  65 73 73 61 67 65 28 31  |..".U%.message(1|
000010d0  32 2c 22 42 4f 4e 55 53  20 20 52 4f 55 4e 44 22  |2,"BONUS  ROUND"|
000010e0  29 0d 09 06 07 f2 6f 6e  0d 09 10 0d e7 55 25 f2  |).....on.....U%.|
000010f0  66 6c 61 73 68 0d 09 1a  09 f2 77 61 69 74 0d 09  |flash.....wait..|
00001100  24 05 e1 0d 09 2e 05 3a  0d 09 38 0b dd f2 66 6c  |$......:..8...fl|
00001110  61 73 68 0d 09 42 0c e3  4d 25 3d 35 b8 33 35 0d  |ash..B..M%=5.35.|
00001120  09 4c 1a f1 8a 31 34 2c  31 32 29 22 20 20 20 20  |.L...14,12)"    |
00001130  20 20 20 20 20 20 20 20  22 0d 09 56 0d d4 30 2c  |        "..V..0,|
00001140  2d 38 2c 32 2c 31 0d 09  60 0d d4 31 2c 32 2c 4d  |-8,2,1..`..1,2,M|
00001150  25 2c 31 0d 09 6a 1a f1  8a 31 34 2c 31 32 29 22  |%,1..j...14,12)"|
00001160  42 4f 4e 55 53 20 20 52  4f 55 4e 44 22 0d 09 74  |BONUS  ROUND"..t|
00001170  0c d4 30 2c 30 2c 30 2c  30 0d 09 7e 0e e3 59 25  |..0,0,0,0..~..Y%|
00001180  3d 31 b8 32 30 3a ed 0d  09 88 05 ed 0d 09 92 0d  |=1.20:..........|
00001190  e3 59 25 3d 31 31 b8 31  33 0d 09 9c 0d f1 8a 31  |.Y%=11.13......1|
000011a0  32 2c 59 25 29 3b 0d 09  a6 1b e3 58 25 3d 31 32  |2,Y%);.....X%=12|
000011b0  b8 32 37 3a ef 53 25 28  58 25 2c 59 25 29 3a ed  |.27:.S%(X%,Y%):.|
000011c0  2c 0d 09 b0 05 e1 0d 09  ba 05 3a 0d 09 c4 0b dd  |,.........:.....|
000011d0  f2 70 61 75 73 65 0d 09  ce 1f f2 6d 65 73 73 61  |.pause.....messa|
000011e0  67 65 28 31 32 2c 22 20  20 20 50 41 55 53 45 44  |ge(12,"   PAUSED|
000011f0  20 20 20 22 29 0d 09 d8  09 f2 77 61 69 74 0d 09  |   ").....wait..|
00001200  e2 2f e3 59 25 3d 31 31  b8 31 33 3a f1 8a 31 32  |./.Y%=11.13:..12|
00001210  2c 59 25 29 3b 3a e3 58  25 3d 31 32 b8 32 37 3a  |,Y%);:.X%=12.27:|
00001220  ef 53 25 28 58 25 2c 59  25 29 3a ed 2c 0d 09 ec  |.S%(X%,Y%):.,...|
00001230  0d f1 8a 31 32 2c 59 25  29 3b 0d 09 f6 05 e1 0d  |...12,Y%);......|
00001240  0a 00 05 3a 0d 0a 0a 0a  dd f2 77 61 69 74 0d 0a  |...:......wait..|
00001250  14 0b f5 fd bf 30 3d 22  22 0d 0a 1e 0c f5 fd bf  |.....0="".......|
00001260  30 3c 3e 22 22 0d 0a 28  05 e1 0d 0a 32 05 3a 0d  |0<>""..(....2.:.|
00001270  0a 3c 0f dd f2 65 6d 70  74 79 28 56 25 29 0d 0a  |.<...empty(V%)..|
00001280  46 05 f5 0d 0a 50 17 58  25 3d b3 28 34 30 29 2d  |F....P.X%=.(40)-|
00001290  31 3a 59 25 3d b3 28 32  32 29 0d 0a 5a 11 fd 53  |1:Y%=.(22)..Z..S|
000012a0  25 28 58 25 2c 59 25 29  3d 33 32 0d 0a 64 1a e7  |%(X%,Y%)=32..d..|
000012b0  56 25 3c 3e 31 f2 70 75  74 28 58 25 2c 59 25 2c  |V%<>1.put(X%,Y%,|
000012c0  56 25 29 3a e1 0d 0a 6e  0c 56 25 3d b3 28 31 30  |V%):...n.V%=.(10|
000012d0  29 0d 0a 78 0b fb 31 32  39 3a fb 30 0d 0a 82 18  |)..x..129:.0....|
000012e0  f1 8a 58 25 2c 59 25 29  c1 4e 41 4d 45 24 2c 56  |..X%,Y%).NAME$,V|
000012f0  25 2c 31 29 0d 0a 8c 0b  fb 31 32 38 3a fb 31 0d  |%,1).....128:.1.|
00001300  0a 96 10 53 25 28 58 25  2c 59 25 29 3d 56 25 0d  |...S%(X%,Y%)=V%.|
00001310  0a a0 05 e1 0d 0a aa 05  3a 0d 0a b4 13 dd f2 70  |........:......p|
00001320  75 74 28 58 25 2c 59 25  2c 56 25 29 0d 0a be 0f  |ut(X%,Y%,V%)....|
00001330  f1 8a 58 25 2c 59 25 29  bd 56 25 0d 0a c8 10 53  |..X%,Y%).V%....S|
00001340  25 28 58 25 2c 59 25 29  3d 56 25 0d 0a d2 05 e1  |%(X%,Y%)=V%.....|
00001350  0d 0a dc 05 3a 0d 0a e6  0b dd f2 73 65 74 75 70  |....:......setup|
00001360  0d 0a f0 0c 4d 25 3d b3  28 2d 91 29 0d 0a fa 2d  |....M%=.(-.)...-|
00001370  e2 31 2c 31 2c 33 2c 2d  39 30 2c 31 2c 31 2c 2d  |.1,1,3,-90,1,1,-|
00001380  32 2c 2d 33 2c 31 30 30  2c 30 2c 30 2c 2d 31 30  |2,-3,100,0,0,-10|
00001390  30 2c 31 30 30 2c 31 30  30 0d 0b 04 2b e2 32 2c  |0,100,100...+.2,|
000013a0  31 2c 31 2c 2d 32 2c 31  2c 37 2c 35 2c 31 32 2c  |1,1,-2,1,7,5,12,|
000013b0  31 30 30 2c 30 2c 30 2c  2d 31 30 30 2c 31 30 30  |100,0,0,-100,100|
000013c0  2c 31 30 30 0d 0b 0e 2a  e2 33 2c 31 2c 30 2c 30  |,100...*.3,1,0,0|
000013d0  2c 30 2c 31 30 2c 31 30  2c 31 30 2c 31 30 30 2c  |,0,10,10,10,100,|
000013e0  2d 34 2c 2d 31 2c 2d 34  2c 31 30 30 2c 30 0d 0b  |-4,-1,-4,100,0..|
000013f0  18 26 e2 34 2c 33 2c 30  2c 30 2c 30 2c 30 2c 30  |.&.4,3,0,0,0,0,0|
00001400  2c 30 2c 36 30 2c 2d 35  2c 2d 31 2c 2d 33 2c 37  |,0,60,-5,-1,-3,7|
00001410  35 2c 36 30 0d 0b 22 2d  de 53 25 28 33 39 2c 32  |5,60.."-.S%(39,2|
00001420  32 29 2c 58 25 28 31 30  30 29 2c 59 25 28 31 30  |2),X%(100),Y%(10|
00001430  30 29 2c 43 25 28 31 30  30 29 2c 52 25 28 32 31  |0),C%(100),R%(21|
00001440  29 0d 0b 2c 13 ef 32 33  3b 38 32 30 32 3b 30 3b  |)..,..23;8202;0;|
00001450  30 3b 30 3b 0d 0b 36 27  ef 32 33 2c 32 32 35 2c  |0;0;..6'.23,225,|
00001460  38 34 2c 31 37 30 2c 38  34 2c 31 37 30 2c 38 34  |84,170,84,170,84|
00001470  2c 31 37 30 2c 38 34 2c  31 37 30 0d 0b 40 2b ef  |,170,84,170..@+.|
00001480  32 33 2c 32 32 36 2c 32  35 34 2c 32 35 34 2c 32  |23,226,254,254,2|
00001490  35 34 2c 32 35 34 2c 32  35 34 2c 32 35 34 2c 32  |54,254,254,254,2|
000014a0  35 34 2c 32 35 34 0d 0b  4a 27 ef 32 33 2c 32 32  |54,254..J'.23,22|
000014b0  34 2c 32 34 2c 36 30 2c  31 32 36 2c 32 35 35 2c  |4,24,60,126,255,|
000014c0  32 35 35 2c 31 32 36 2c  36 30 2c 32 34 0d 0b 54  |255,126,60,24..T|
000014d0  1d ef 32 33 2c 32 32 37  2c 30 3b 30 3b 32 34 2c  |..23,227,0;0;24,|
000014e0  36 30 2c 31 32 36 2c 32  35 35 0d 0b 5e 2b ef 32  |60,126,255..^+.2|
000014f0  33 2c 32 32 39 2c 31 32  38 2c 31 39 32 2c 32 32  |3,229,128,192,22|
00001500  34 2c 32 34 30 2c 32 34  30 2c 32 32 34 2c 31 39  |4,240,240,224,19|
00001510  32 2c 31 32 38 0d 0b 68  1d ef 32 33 2c 32 32 38  |2,128..h..23,228|
00001520  2c 31 2c 33 2c 37 2c 31  35 2c 31 35 2c 37 2c 33  |,1,3,7,15,15,7,3|
00001530  2c 31 0d 0b 72 1e ef 32  33 2c 32 33 30 2c 32 35  |,1..r..23,230,25|
00001540  35 2c 31 32 36 2c 36 30  2c 32 34 2c 30 3b 30 3b  |5,126,60,24,0;0;|
00001550  0d 0b 7c 26 ef 32 33 2c  32 33 31 2c 34 39 2c 37  |..|&.23,231,49,7|
00001560  30 2c 31 35 32 2c 31 36  33 2c 34 37 2c 37 33 2c  |0,152,163,47,73,|
00001570  39 31 2c 31 35 35 0d 0b  86 26 ef 32 33 2c 32 33  |91,155...&.23,23|
00001580  32 2c 31 34 30 2c 39 38  2c 32 35 2c 31 39 37 2c  |2,140,98,25,197,|
00001590  32 34 34 2c 35 30 2c 39  30 2c 38 39 0d 0b 90 26  |244,50,90,89...&|
000015a0  ef 32 33 2c 32 33 33 2c  31 35 35 2c 39 31 2c 37  |.23,233,155,91,7|
000015b0  33 2c 34 37 2c 31 36 33  2c 31 35 32 2c 37 30 2c  |3,47,163,152,70,|
000015c0  34 39 0d 0b 9a 26 ef 32  33 2c 32 33 34 2c 38 39  |49...&.23,234,89|
000015d0  2c 39 30 2c 35 30 2c 32  34 34 2c 31 39 37 2c 32  |,90,50,244,197,2|
000015e0  35 2c 39 38 2c 31 34 30  0d 0b a4 18 ef 32 33 2c  |5,98,140.....23,|
000015f0  32 34 30 2c 30 3b 30 3b  32 35 35 2c 30 2c 30 3b  |240,0;0;255,0,0;|
00001600  0d 0b ae 21 ef 32 33 2c  32 34 31 2c 30 2c 34 2c  |...!.23,241,0,4,|
00001610  31 32 2c 32 38 2c 32 35  32 2c 32 38 2c 31 32 2c  |12,28,252,28,12,|
00001620  34 0d 0b b8 22 ef 32 33  2c 32 34 32 2c 30 2c 33  |4...".23,242,0,3|
00001630  32 2c 34 38 2c 35 36 2c  36 33 2c 35 36 2c 34 38  |2,48,56,63,56,48|
00001640  2c 33 32 0d 0b c2 24 ef  32 33 2c 32 34 34 2c 30  |,32...$.23,244,0|
00001650  2c 31 32 34 2c 31 32 34  2c 39 36 2c 31 32 30 2c  |,124,124,96,120,|
00001660  39 36 2c 39 36 2c 30 0d  0b cc 24 ef 32 33 2c 32  |96,96,0...$.23,2|
00001670  34 35 2c 30 2c 31 32 34  2c 31 32 34 2c 36 34 2c  |45,0,124,124,64,|
00001680  31 32 34 2c 34 2c 31 32  34 2c 30 0d 0b d6 27 ef  |124,4,124,0...'.|
00001690  32 33 2c 32 34 36 2c 30  2c 31 32 30 2c 31 32 34  |23,246,0,120,124|
000016a0  2c 31 30 30 2c 31 32 30  2c 31 30 38 2c 31 30 30  |,100,120,108,100|
000016b0  2c 30 0d 0b e0 27 ef 32  33 2c 32 34 37 2c 31 39  |,0...'.23,247,19|
000016c0  35 2c 32 33 31 2c 36 36  2c 32 34 2c 32 34 2c 36  |5,231,66,24,24,6|
000016d0  36 2c 32 33 31 2c 31 39  35 0d 0b ea 25 ef 32 33  |6,231,195...%.23|
000016e0  2c 32 34 38 2c 30 2c 31  32 34 2c 31 32 34 2c 31  |,248,0,124,124,1|
000016f0  30 30 2c 31 32 34 2c 39  36 2c 39 36 2c 30 0d 0b  |00,124,96,96,0..|
00001700  f4 0b e3 58 25 3d 31 b8  35 0d 0b fe 0e 52 25 28  |...X%=1.5....R%(|
00001710  58 25 29 3d 32 32 36 0d  0c 08 05 ed 0d 0c 12 0b  |X%)=226.........|
00001720  e3 58 25 3d 31 b8 34 0d  0c 1c 10 52 25 28 58 25  |.X%=1.4....R%(X%|
00001730  2b 35 29 3d 32 32 35 0d  0c 26 10 52 25 28 58 25  |+5)=225..&.R%(X%|
00001740  2b 39 29 3d 32 32 34 0d  0c 30 05 ed 0d 0c 3a 0d  |+9)=224..0....:.|
00001750  52 25 28 31 34 29 3d 34  33 0d 0c 44 0e 52 25 28  |R%(14)=43..D.R%(|
00001760  31 35 29 3d 32 34 34 0d  0c 4e 0e 52 25 28 31 36  |15)=244..N.R%(16|
00001770  29 3d 32 34 34 0d 0c 58  0e 52 25 28 31 37 29 3d  |)=244..X.R%(17)=|
00001780  32 34 36 0d 0c 62 0e 52  25 28 31 38 29 3d 32 34  |246..b.R%(18)=24|
00001790  37 0d 0c 6c 0e 52 25 28  31 39 29 3d 32 34 35 0d  |7..l.R%(19)=245.|
000017a0  0c 76 0c 52 25 28 32 30  29 3d 31 0d 0c 80 0e 52  |.v.R%(20)=1....R|
000017b0  25 28 32 31 29 3d 32 34  38 0d 0c 8a 08 55 25 3d  |%(21)=248....U%=|
000017c0  31 0d 0c 94 24 43 24 3d  bd 32 33 31 2b bd 32 33  |1...$C$=.231+.23|
000017d0  32 2b bd 38 2b bd 38 2b  bd 31 30 2b bd 32 33 33  |2+.8+.8+.10+.233|
000017e0  2b bd 32 33 34 0d 0c 9e  0c 2a 46 58 32 30 30 2c  |+.234....*FX200,|
000017f0  31 0d 0c a8 0d e3 4e 25  3d 31 b8 31 30 38 0d 0c  |1.....N%=1.108..|
00001800  b2 11 e7 bf 30 3c 3e 22  22 4e 25 3d 31 30 38 0d  |....0<>""N%=108.|
00001810  0c bc 25 e7 4e 25 3d 39  f2 74 69 74 6c 65 73 28  |..%.N%=9.titles(|
00001820  22 43 20 2e 20 44 20 55  20 4e 20 4b 20 4c 20 45  |"C . D U N K L E|
00001830  20 59 22 29 0d 0c c6 24  e7 4e 25 3d 34 32 f2 74  | Y")...$.N%=42.t|
00001840  69 74 6c 65 73 28 22 50  20 52 20 45 20 53 20 45  |itles("P R E S E|
00001850  20 4e 20 54 20 53 22 29  0d 0c d0 2e e7 4e 25 3d  | N T S").....N%=|
00001860  35 38 f2 74 69 74 6c 65  73 28 22 66 6f 72 20 74  |58.titles("for t|
00001870  68 65 20 42 42 43 20 6d  69 63 72 6f 63 6f 6d 70  |he BBC microcomp|
00001880  75 74 65 72 22 29 0d 0c  da 34 e7 4e 25 3d 37 36  |uter")...4.N%=76|
00001890  f2 74 69 74 6c 65 73 28  bd 32 32 38 2b 22 20 4d  |.titles(.228+" M|
000018a0  20 45 20 43 20 48 20 41  20 2d 20 57 20 4f 20 52  | E C H A - W O R|
000018b0  20 4d 20 22 2b bd 32 32  39 29 0d 0c e4 81 43 25  | M "+.229)....C%|
000018c0  3d 97 20 c1 22 20 20 20  20 20 20 20 20 20 20 20  |=. ."           |
000018d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000018e0  20 20 20 20 20 44 45 45  46 46 41 41 3a 3a 35 35  |     DEEFFAA::55|
000018f0  3a 3a 41 41 46 46 35 35  35 35 35 35 35 35 35 35  |::AAFF5555555555|
00001900  35 35 35 35 3a 3a 3a 3a  3a 3a 3a 3a 3f 3f 3f 3f  |5555::::::::????|
00001910  3f 3f 3f 3f 38 38 38 38  38 38 38 38 3d 3d 3d 3d  |????88888888====|
00001920  3d 3d 3d 3d 36 36 36 36  36 36 36 36 3c 3c 3c 3c  |====66666666<<<<|
00001930  20 22 2c 4e 25 2c 31 29  2d 33 32 0d 0c ee 81 42  | ",N%,1)-32....B|
00001940  25 3d 97 20 c1 22 48 46  48 44 48 43 48 41 48 40  |%=. ."HFHDHCHAH@|
00001950  48 41 48 43 48 44 48 3c  48 3e 48 40 48 41 48 40  |HAHCHDH<H>H@HAH@|
00001960  48 41 48 43 48 44 4d 4b  4d 49 4d 48 4d 46 4d 45  |HAHCHDMKMIMHMFME|
00001970  4d 46 4d 48 4d 49 4d 41  4d 43 4d 45 4d 46 4d 45  |MFMHMIMAMCMEMFME|
00001980  4d 46 4d 48 4d 49 46 41  46 49 46 41 46 4e 4b 46  |MFMHMIFAFIFAFNKF|
00001990  4b 4b 46 42 46 4b 48 44  48 4b 48 44 48 4d 49 44  |KKFBFKHDHKHDHMID|
000019a0  49 49 44 41 44 49 46 42  46 49 46 42 46 48 43 40  |IIDADIFBFIFBFHC@|
000019b0  43 3c 22 2c 4e 25 2c 31  29 2d 33 32 0d 0c f8 12  |C<",N%,1)-32....|
000019c0  d4 31 2c 34 2c 42 25 2a  34 2d 33 30 2c 33 0d 0d  |.1,4,B%*4-30,3..|
000019d0  02 21 e7 43 25 3d 30 d4  32 2c 30 2c 31 2c 33 20  |.!.C%=0.2,0,1,3 |
000019e0  8b d4 32 2c 34 2c 43 25  2a 34 2d 33 30 2c 33 0d  |..2,4,C%*4-30,3.|
000019f0  0d 0c 05 ed 0d 0d 16 0a  4b 25 3d 35 32 35 0d 0d  |........K%=525..|
00001a00  20 16 4e 41 4d 45 24 3d  22 4d 65 63 68 61 2d 57  | .NAME$="Mecha-W|
00001a10  6f 72 6d 22 0d 0d 2a 05  e1 0d 0d 34 05 3a 0d 0d  |orm"..*....4.:..|
00001a20  3e 10 dd f2 74 69 74 6c  65 73 28 53 24 29 0d 0d  |>...titles(S$)..|
00001a30  48 11 4b 25 3d 28 34 30  2d a9 53 24 29 2f 32 0d  |H.K%=(40-.S$)/2.|
00001a40  0d 52 08 f2 6f 66 66 0d  0d 5c 19 f1 8a 30 2c 31  |.R..off..\...0,1|
00001a50  32 29 89 28 31 32 30 29  8a 4b 25 2c 31 32 29 3b  |2).(120).K%,12);|
00001a60  0d 0d 66 15 41 25 3d 31  30 3a 58 25 3d 26 37 30  |..f.A%=10:X%=&70|
00001a70  3a 59 25 3d 30 0d 0d 70  0d e3 4d 25 3d 31 b8 a9  |:Y%=0..p..M%=1..|
00001a80  53 24 0d 0d 7a 14 3f 26  37 30 3d 97 20 c1 53 24  |S$..z.?&70=. .S$|
00001a90  2c 4d 25 2c 31 29 0d 0d  84 15 e7 3f 26 37 30 3d  |,M%,1).....?&70=|
00001aa0  33 32 ef 33 32 3a e5 8d  74 6c 4d 0d 0d 8e 0a d6  |32.32:..tlM.....|
00001ab0  26 46 46 46 31 0d 0d 98  3c ef 32 33 2c 32 35 30  |&FFF1...<.23,250|
00001ac0  2c 3f 26 37 31 2c 3f 26  37 31 2c 3f 26 37 32 2c  |,?&71,?&71,?&72,|
00001ad0  3f 26 37 32 2c 3f 26 37  33 2c 3f 26 37 33 2c 3f  |?&72,?&73,?&73,?|
00001ae0  26 37 34 2c 3f 26 37 34  2c 32 35 30 2c 38 2c 31  |&74,?&74,250,8,1|
00001af0  30 0d 0d a2 3a ef 32 33  2c 32 35 30 2c 3f 26 37  |0...:.23,250,?&7|
00001b00  35 2c 3f 26 37 35 2c 3f  26 37 36 2c 3f 26 37 36  |5,?&75,?&76,?&76|
00001b10  2c 3f 26 37 37 2c 3f 26  37 37 2c 3f 26 37 38 2c  |,?&77,?&77,?&78,|
00001b20  3f 26 37 38 2c 32 35 30  2c 31 31 0d 0d ac 05 ed  |?&78,250,11.....|
00001b30  0d 0d b6 4d e7 4e 25 3d  39 f1 8a 31 2c 31 29 43  |...M.N%=9..1,1)C|
00001b40  24 8a 33 37 2c 31 29 43  24 8a 31 2c 32 32 29 43  |$.37,1)C$.1,22)C|
00001b50  24 8a 33 37 2c 32 32 29  43 24 8a 39 2c 31 35 29  |$.37,22)C$.9,15)|
00001b60  22 44 69 70 2e 48 2e 45  2e 2c 20 42 2e 53 63 2e  |"Dip.H.E., B.Sc.|
00001b70  28 48 6f 6e 73 29 22 3a  e5 8d 64 5e 4d 0d 0d c0  |(Hons)":..d^M...|
00001b80  16 e7 4e 25 3d 34 32 f1  8a 39 2c 31 35 29 89 28  |..N%=42..9,15).(|
00001b90  32 32 29 0d 0d ca 26 e7  4e 25 3c 3e 37 36 f1 8a  |22)...&.N%<>76..|
00001ba0  4b 25 2d 31 2c 31 34 29  c4 a9 53 24 2b 32 2c 22  |K%-1,14)..S$+2,"|
00001bb0  5f 22 29 3a e5 8d 64 5e  4d 0d 0d d4 26 f1 8a 37  |_"):..d^M...&..7|
00001bc0  2c 31 37 29 22 74 68 65  20 75 6c 74 69 6d 61 74  |,17)"the ultimat|
00001bd0  65 20 63 68 61 6c 6c 65  6e 67 65 2e 2e 2e 22 0d  |e challenge...".|
00001be0  0d de 07 f2 6f 6e 0d 0d  e8 05 e1 0d 0d f2 05 3a  |....on.........:|
00001bf0  0d 0d fc 0a dd f2 69 6e  73 74 0d 0e 06 15 47 4f  |......inst....GO|
00001c00  54 24 3d 22 30 31 32 33  34 35 36 37 38 39 22 0d  |T$="0123456789".|
00001c10  0e 10 17 53 25 3d 30 3a  4c 25 3d 33 3a 46 25 3d  |...S%=0:L%=3:F%=|
00001c20  31 3a 55 25 3d 31 0d 0e  1a 0c 51 25 3d 35 30 30  |1:U%=1....Q%=500|
00001c30  30 30 0d 0e 24 08 f2 6f  66 66 0d 0e 2e 05 db 0d  |00..$..off......|
00001c40  0e 38 0a f2 74 69 74 6c  65 0d 0e 42 05 f1 0d 0e  |.8..title..B....|
00001c50  4c 45 f1 22 20 43 6f 6c  6c 65 63 74 20 74 68 65  |LE." Collect the|
00001c60  20 70 6f 77 65 72 20 70  69 6c 6c 73 2c 20 61 76  | power pills, av|
00001c70  6f 69 64 20 74 68 65 20  41 43 49 44 70 6f 6f 6c  |oid the ACIDpool|
00001c80  73 20 26 20 79 6f 75 72  20 6f 77 6e 20 74 61 69  |s & your own tai|
00001c90  6c 2e 22 0d 0e 56 44 f1  22 20 59 6f 75 20 6d 61  |l."..VD." You ma|
00001ca0  79 20 67 6f 20 74 68 72  6f 75 67 68 20 74 68 65  |y go through the|
00001cb0  20 74 75 6e 6e 65 6c 73  20 61 6e 64 20 6f 76 65  | tunnels and ove|
00001cc0  72 74 68 65 20 70 61 74  63 68 65 73 20 6f 66 20  |rthe patches of |
00001cd0  67 72 61 73 73 2e 22 0d  0e 60 05 f1 0d 0e 6a 1e  |grass."..`....j.|
00001ce0  f1 22 53 59 4d 42 4f 4c  53 3a 22 8a 32 30 29 22  |."SYMBOLS:".20)"|
00001cf0  43 4f 4e 54 52 4f 4c 53  3a 22 0d 0e 74 28 f1 22  |CONTROLS:"..t(."|
00001d00  4d 65 63 68 61 2d 57 6f  72 6d 20 2e 2e 2e 2e 20  |Mecha-Worm .... |
00001d10  22 bd 32 32 39 bd 32 32  39 bd 32 32 39 22 20 20  |".229.229.229"  |
00001d20  41 22 0d 0e 7e 35 f1 22  41 63 69 64 20 50 6f 6f  |A"..~5."Acid Poo|
00001d30  6c 20 2e 2e 2e 2e 2e 20  22 bd 32 32 36 22 20 20  |l ..... ".226"  |
00001d40  20 3c 20 3e 20 2e 2e 2e  2e 2e 2e 2e 20 4d 6f 76  | < > ....... Mov|
00001d50  65 6d 65 6e 74 22 3b 0d  0e 88 22 f1 22 54 75 6e  |ement";..."."Tun|
00001d60  6e 65 6c 20 2e 2e 2e 2e  2e 2e 2e 2e 20 22 bd 32  |nel ........ ".2|
00001d70  32 34 22 20 20 20 20 5a  22 0d 0e 92 1b f1 22 47  |24"    Z"....."G|
00001d80  72 61 73 73 20 2e 2e 2e  2e 2e 2e 2e 2e 2e 20 22  |rass ......... "|
00001d90  bd 32 32 35 0d 0e 9c 30  f1 22 31 30 30 20 70 74  |.225...0."100 pt|
00001da0  20 42 4f 4e 55 53 20 2e  2e 20 2b 20 20 20 53 50  | BONUS .. +   SP|
00001db0  41 43 45 20 42 41 52 20  2e 2e 2e 2e 20 50 61 75  |ACE BAR .... Pau|
00001dc0  73 65 22 3b 0d 0e a6 1b  f1 22 53 70 65 65 64 20  |se";....."Speed |
00001dd0  75 70 20 2e 2e 2e 2e 2e  2e 20 22 bd 32 34 34 0d  |up ...... ".244.|
00001de0  0e b0 35 f1 22 53 6c 6f  77 20 64 6f 77 6e 20 2e  |..5."Slow down .|
00001df0  2e 2e 2e 2e 20 22 bd 32  34 35 22 20 20 20 53 2f  |.... ".245"   S/|
00001e00  51 20 2e 2e 2e 20 53 6f  75 6e 64 20 4f 4e 2f 4f  |Q ... Sound ON/O|
00001e10  46 46 22 3b 0d 0e ba 1b  f1 22 57 6f 72 6d 20 4d  |FF";....."Worm M|
00001e20  75 6e 63 68 20 2e 2e 2e  2e 20 22 bd 32 34 37 0d  |unch .... ".247.|
00001e30  0e c4 1b f1 22 52 65 76  65 72 73 65 20 4b 65 79  |...."Reverse Key|
00001e40  73 20 2e 2e 20 22 bd 32  34 36 0d 0e ce 1b f1 22  |s .. ".246....."|
00001e50  50 6f 77 65 72 20 55 70  20 2e 2e 2e 2e 2e 2e 20  |Power Up ...... |
00001e60  22 bd 32 34 38 0d 0e d8  18 f1 22 50 6f 77 65 72  |".248....."Power|
00001e70  20 50 69 6c 6c 20 2e 2e  2e 2e 20 2e 22 0d 0e e2  | Pill .... ."...|
00001e80  18 f1 22 35 30 30 30 20  70 74 20 42 4f 4e 55 53  |.."5000 pt BONUS|
00001e90  20 2e 20 22 3b 0d 0e ec  0b fb 31 32 39 3a fb 30  | . ";.....129:.0|
00001ea0  0d 0e f6 11 f1 22 4d 65  63 68 61 2d 57 6f 72 6d  |....."Mecha-Worm|
00001eb0  22 0d 0f 00 0b fb 31 32  38 3a fb 31 0d 0f 0a 0e  |".....128:.1....|
00001ec0  f2 7a 65 72 6f 28 31 2c  33 29 0d 0f 14 07 f2 6f  |.zero(1,3).....o|
00001ed0  6e 0d 0f 1e 0a f5 fd a6  2d 39 39 0d 0f 28 0e f2  |n.......-99..(..|
00001ee0  7a 65 72 6f 28 34 2c 38  29 0d 0f 32 08 f2 6f 66  |zero(4,8)..2..of|
00001ef0  66 0d 0f 3c 05 db 0d 0f  46 0a f2 74 69 74 6c 65  |f..<....F..title|
00001f00  0d 0f 50 0e 4b 25 3d 31  30 32 35 2d 4b 25 0d 0f  |..P.K%=1025-K%..|
00001f10  5a 0f e3 4d 25 3d 31 b8  4b 25 81 32 35 0d 0f 64  |Z..M%=1.K%.25..d|
00001f20  12 f1 8a 4d 25 2d 31 2c  31 30 29 bd 32 32 39 0d  |...M%-1,10).229.|
00001f30  0f 6e 05 ed 0d 0f 78 0c  e3 4d 25 3d 30 b8 33 39  |.n....x..M%=0.39|
00001f40  0d 0f 82 0f f1 8a 4d 25  2c 39 29 bd 32 32 34 0d  |......M%,9).224.|
00001f50  0f 8c 10 f1 8a 4d 25 2c  31 31 29 bd 32 32 34 0d  |.....M%,11).224.|
00001f60  0f 96 05 ed 0d 0f a0 0f  e3 4d 25 3d 39 b8 33 39  |.........M%=9.39|
00001f70  88 31 30 0d 0f aa 10 f1  8a 4d 25 2c 31 31 29 bd  |.10......M%,11).|
00001f80  32 32 37 0d 0f b4 0f f1  8a 4d 25 2c 39 29 bd 32  |227......M%,9).2|
00001f90  33 30 0d 0f be 05 ed 0d  0f c8 0f f1 8a 31 39 2c  |30...........19,|
00001fa0  38 29 bd 32 33 30 0d 0f  d2 10 f1 8a 31 39 2c 31  |8).230......19,1|
00001fb0  32 29 bd 32 32 37 0d 0f  dc 11 f1 8a 33 36 2c 38  |2).227......36,8|
00001fc0  29 22 46 61 73 74 22 0d  0f e6 10 f1 8a 30 2c 38  |)"Fast"......0,8|
00001fd0  29 22 53 6c 6f 77 22 0d  0f f0 18 f1 8a 31 33 2c  |)"Slow"......13,|
00001fe0  36 29 22 47 61 6d 65 20  53 70 65 65 64 3a 22 0d  |6)"Game Speed:".|
00001ff0  0f fa 2e f1 8a 33 2c 31  34 29 22 55 73 65 20 3c  |.....3,14)"Use <|
00002000  20 61 6e 64 20 3e 20 74  6f 20 61 64 6a 75 73 74  | and > to adjust|
00002010  20 67 61 6d 65 20 73 70  65 65 64 2e 22 0d 10 04  | game speed."...|
00002020  0f f1 27 27 22 4e 4f 54  45 3a 22 27 0d 10 0e 4a  |..''"NOTE:"'...J|
00002030  f1 22 20 69 29 20 41 20  42 6f 6e 75 73 20 4d 65  |." i) A Bonus Me|
00002040  63 68 61 2d 57 6f 72 6d  20 69 73 20 61 77 61 72  |cha-Worm is awar|
00002050  64 65 64 20 66 6f 72 20  20 20 20 20 20 20 65 76  |ded for       ev|
00002060  65 72 79 20 35 30 2c 30  30 30 70 74 73 20 73 63  |ery 50,000pts sc|
00002070  6f 72 65 64 2e 22 0d 10  18 2e f1 22 69 69 29 20  |ored."....."ii) |
00002080  45 76 65 72 79 20 66 69  66 74 68 20 66 72 61 6d  |Every fifth fram|
00002090  65 20 69 73 20 61 20 42  4f 4e 55 53 20 52 4f 55  |e is a BONUS ROU|
000020a0  4e 44 2e 22 0d 10 22 0f  f2 7a 65 72 6f 28 39 2c  |ND.".."..zero(9,|
000020b0  31 31 29 0d 10 2c 07 f2  6f 6e 0d 10 36 05 f5 0d  |11)..,..on..6...|
000020c0  10 40 0f e3 4d 25 3d 31  b8 32 30 30 3a ed 0d 10  |.@..M%=1.200:...|
000020d0  4a 29 e7 a6 2d 31 30 33  80 4b 25 3e 32 35 f1 8a  |J)..-103.K%>25..|
000020e0  4b 25 81 32 35 2d 31 2c  31 30 29 22 20 22 3a 4b  |K%.25-1,10)" ":K|
000020f0  25 3d 4b 25 2d 32 35 0d  10 54 2c e7 a6 2d 31 30  |%=K%-25..T,..-10|
00002100  34 80 4b 25 3c 31 30 30  30 4b 25 3d 4b 25 2b 32  |4.K%<1000K%=K%+2|
00002110  35 3a f1 8a 4b 25 81 32  35 2d 31 2c 31 30 29 bd  |5:..K%.25-1,10).|
00002120  32 32 39 0d 10 5e 16 f1  8a 32 34 2c 36 29 a4 66  |229..^...24,6).f|
00002130  28 4b 25 81 32 35 2c 32  29 0d 10 68 09 fd a6 2d  |(K%.25,2)..h...-|
00002140  39 39 0d 10 72 0e 4b 25  3d 31 30 32 35 2d 4b 25  |99..r.K%=1025-K%|
00002150  0d 10 7c 10 f2 7a 65 72  6f 28 31 32 2c 31 35 29  |..|..zero(12,15)|
00002160  0d 10 86 08 f2 6f 66 66  0d 10 90 10 f2 7a 65 72  |.....off.....zer|
00002170  6f 28 31 36 2c 32 32 29  0d 10 9a 05 db 0d 10 a4  |o(16,22)........|
00002180  05 e1 0d 10 ae 05 3a 0d  10 b8 0b dd f2 74 69 74  |......:......tit|
00002190  6c 65 0d 10 c2 31 f1 8a  35 2c 32 34 29 bd 32 32  |le...1..5,24).22|
000021a0  34 22 50 72 65 73 73 20  53 50 41 43 45 20 42 41  |4"Press SPACE BA|
000021b0  52 20 54 6f 20 43 6f 6e  74 69 6e 75 65 22 bd 32  |R To Continue".2|
000021c0  32 34 3b 0d 10 cc 1e f2  6d 65 73 73 61 67 65 28  |24;.....message(|
000021d0  31 2c 22 20 4d 65 63 68  61 2d 57 6f 72 6d 20 22  |1," Mecha-Worm "|
000021e0  29 0d 10 d6 14 f1 8a 31  2c 31 29 43 24 8a 33 37  |)......1,1)C$.37|
000021f0  2c 31 29 43 24 0d 10 e0  28 f1 8a 39 2c 33 29 bd  |,1)C$...(..9,3).|
00002200  32 32 38 22 57 72 69 74  74 65 6e 20 42 79 20 43  |228"Written By C|
00002210  2e 44 75 6e 6b 6c 65 79  22 bd 32 32 39 0d 10 ea  |.Dunkley".229...|
00002220  05 e1 0d 10 f4 05 3a 0d  10 fe 08 dd f2 6f 6e 0d  |......:......on.|
00002230  11 08 28 e7 20 a4 42 65  65 62 20 e7 55 25 f2 76  |..(. .Beeb .U%.v|
00002240  69 64 65 6f 55 4c 41 28  31 29 8b f2 76 69 64 65  |ideoULA(1)..vide|
00002250  6f 55 4c 41 28 34 29 0d  11 12 0b e3 4d 25 3d 30  |oULA(4).....M%=0|
00002260  b8 37 0d 11 1c 11 e7 4d  25 81 32 3d 30 3a 2a 46  |.7.....M%.2=0:*F|
00002270  58 31 39 0d 11 26 11 ef  31 39 2c 31 2c 4d 25 3b  |X19..&..19,1,M%;|
00002280  30 3b 30 3b 0d 11 30 05  ed 0d 11 3a 05 e1 0d 11  |0;0;..0....:....|
00002290  44 05 3a 0d 11 4e 09 dd  f2 6f 66 66 0d 11 58 18  |D.:..N...off..X.|
000022a0  e7 20 a4 42 65 65 62 20  f2 76 69 64 65 6f 55 4c  |. .Beeb .videoUL|
000022b0  41 28 30 29 0d 11 62 0e  e3 4d 25 3d 37 b8 30 88  |A(0)..b..M%=7.0.|
000022c0  2d 31 0d 11 6c 11 e7 4d  25 81 32 3d 30 3a 2a 46  |-1..l..M%.2=0:*F|
000022d0  58 31 39 0d 11 76 11 ef  31 39 2c 31 2c 4d 25 3b  |X19..v..19,1,M%;|
000022e0  30 3b 30 3b 0d 11 80 05  ed 0d 11 8a 05 e1 0d 11  |0;0;............|
000022f0  94 05 3a 0d 11 9e 12 dd  f2 76 69 64 65 6f 55 4c  |..:......videoUL|
00002300  41 28 58 25 29 0d 11 a8  0f e7 20 ac 20 a4 42 65  |A(X%)..... . .Be|
00002310  65 62 20 e1 0d 11 b2 0a  41 25 3d 31 35 35 0d 11  |eb .....A%=155..|
00002320  bc 09 2a 46 58 31 39 0d  11 c6 0a d6 26 46 46 46  |..*FX19.....&FFF|
00002330  34 0d 11 d0 13 58 25 3d  58 25 2b 31 36 3a d6 26  |4....X%=X%+16:.&|
00002340  46 46 46 34 0d 11 da 13  58 25 3d 58 25 2b 31 36  |FFF4....X%=X%+16|
00002350  3a d6 26 46 46 46 34 0d  11 e4 09 2a 46 58 31 39  |:.&FFF4....*FX19|
00002360  0d 11 ee 13 58 25 3d 58  25 2b 31 36 3a d6 26 46  |....X%=X%+16:.&F|
00002370  46 46 34 0d 11 f8 13 58  25 3d 58 25 2b 36 34 3a  |FF4....X%=X%+64:|
00002380  d6 26 46 46 46 34 0d 12  02 05 e1 0d 12 0c 05 3a  |.&FFF4.........:|
00002390  0d 12 16 0e dd f2 63 72  74 63 36 38 34 35 0d 12  |......crtc6845..|
000023a0  20 0f e7 20 ac 20 a4 42  65 65 62 20 e1 0d 12 2a  | .. . .Beeb ...*|
000023b0  13 ef 32 33 3b 34 2c 33  38 3b 30 3b 30 3b 30 3b  |..23;4,38;0;0;0;|
000023c0  0d 12 34 13 ef 32 33 3b  35 2c 33 32 3b 30 3b 30  |..4..23;5,32;0;0|
000023d0  3b 30 3b 0d 12 3e 13 ef  32 33 3b 37 2c 33 30 3b  |;0;..>..23;7,30;|
000023e0  30 3b 30 3b 30 3b 0d 12  48 12 ef 32 33 3b 39 2c  |0;0;0;..H..23;9,|
000023f0  37 3b 30 3b 30 3b 30 3b  0d 12 52 05 e1 0d 12 5c  |7;0;0;0;..R....\|
00002400  05 3a 0d 12 66 11 dd f2  7a 65 72 6f 28 41 25 2c  |.:..f...zero(A%,|
00002410  42 25 29 0d 12 70 26 e3  59 25 3d 41 25 b8 42 25  |B%)..p&.Y%=A%.B%|
00002420  3a e3 58 25 3d 30 b8 33  39 3a 53 25 28 58 25 2c  |:.X%=0.39:S%(X%,|
00002430  59 25 29 3d 33 32 3a ed  2c 0d 12 7a 05 e1 0d 12  |Y%)=32:.,..z....|
00002440  84 05 3a 0d 12 8e 0b dd  20 a4 42 65 65 62 0d 12  |..:..... .Beeb..|
00002450  98 3b f4 20 41 64 64 20  27 49 46 27 20 73 74 61  |.;. Add 'IF' sta|
00002460  74 65 6d 65 6e 74 73 20  61 73 20 6e 65 63 65 73  |tements as neces|
00002470  73 61 72 79 20 74 6f 20  74 65 73 74 20 6d 61 63  |sary to test mac|
00002480  68 69 6e 65 20 74 79 70  65 0d 12 a2 0d f4 20 31  |hine type..... 1|
00002490  20 2d 20 45 4c 4b 0d 12  ac 0e f4 20 32 35 31 20  | - ELK..... 251 |
000024a0  2d 20 42 2b 0d 12 b6 0e  f4 20 3f 20 2d 20 41 52  |- B+..... ? - AR|
000024b0  43 48 0d 12 c0 0f e7 a6  2d 32 35 36 3d 31 20 3d  |CH......-256=1 =|
000024c0  a3 0d 12 ca 06 3d b9 0d  ff                       |.....=...|
000024c9