� 'Mecha-Worm' Version 1.1
 � By C.Dunkley (August 1990)
�
(�6
2
�setup
<�
F	�inst
P�
Z�screen
d�
n
�snake
x
�N%<=0
��N%�oops ��bonus
�	�L%=0
�*�S%>W%W%=S%:�message(6,"NEW HI-SCORE")
�	�wait
��off
��
��0
��
�:
���snake
��M%=1�R%:�
��-99�pause
��C%D%=4

�B%D%=1

�J%D%=3

�G%D%=2

"A%=H%:H%=H%+1

,�H%=101H%=1:A%=100

6X%(H%)=X%(A%)+(D%=2)-(D%=3)

@Y%(H%)=Y%(A%)+(D%=1)-(D%=4)

J�X%(H%)=40X%(H%)=0

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

^�Y%(H%)=0Y%(H%)=22

h�Y%(H%)=23Y%(H%)=1

rP%=S%(X%(H%),Y%(H%))

|
C%(H%)=32

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

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

��P%>225�0,-9,4,2:N%=-1:�

��P%=70�1,2,10,3:R%=R%�2 

��P%=77�munch

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

�7�P%=82�1,2,30,3:A%=B%:B%=C%:C%=A%:A%=G%:G%=J%:J%=A%

�D�P%=46�0,3,0,1:�score(20):I%=1:Z%=Z%+1:N%=N%-1:�empty(R%(�(18)))

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

��I%=1I%=0:�

��put(X%(T%),Y%(T%),C%(T%))

�T%=T%+1

��T%=101T%=1
�
:
��message(Y%,S$)
&�X%=1�16
0�X%+11,Y%+1)�224
:�X%+11,Y%-1)�224
D�
N�12,Y%)�224" "S$" "�224
X�
b:
l��munch
v
�1,2,20,3
�
�Z%=2�
��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
4�M%=1�40:�
>�X%(T%),Y%(T%))�(C%(T%))
H�0,0,0,0
R�M%=1�150:�
\T%=T%+1
f�T%=101T%=1
p�
z�
�:
���score(V%)
�S%=S%+V%
�
�3,0);S%
�<�S%>=Q%�1,1,100,4:L%=L%+1:Q%=Q%+20000:�L%<4�9+L%,0)�227
��
�:
���bonus
��erase(20)
��message(12," BONUS:     ")
��21,12);F%*200
��score(200*F%)
�F%=F%+1
�
:

��oops
$L%=L%-1
.
�erase(5)
8A�L%=0�message(12," GAME  OVER ") ��message(12,"   OOPS !   ")
B�
L:
V��screen
`�=0
j�Y%=1�22
t�X%=0�39
~S%(X%,Y%)=32
��,
����>160
��off
��
�%�"SC:";S%�14)"FR:";F%�31)"HI:";W%
�N%=L%:�L%>3N%=3
��M%=1�N%
��9+M%,0)�227
��
�?�1,23)"____________"�228" Mecha-Worm "�229"_____________";
��put(10,10,229)
��put(11,10,229)

T%=1:H%=2

X%(1)=10:Y%(1)=10
X%(2)=11:Y%(2)=10
C%(1)=32:C%(2)=32
(D%=3
2I%=0
<N%=F%*4
F�N%>98N%=98
PZ%=2
Z�M%=1�N%
d�empty(46)
n�
xR%=K%-F%*K%/50
�
�R%<0R%=0
�
B%=-66
�
C%=-98
�G%=-103
�J%=-104
��on
�	�wait
��
�:
���pause
��message(12,"   PAUSED   ")
�	�wait
�
�Y%=11�13

�X%=12�27
�X%,Y%)�(S%(X%,Y%))
�,
"�
,:
6
��wait
@���0=""
J���0<>""
T�
^:
h��empty(V%)
r�
|X%=�(40)-1:Y%=�(22)
��S%(X%,Y%)=32
��put(X%,Y%,V%)
��
�:
���put(X%,Y%,V%)
��X%,Y%)�V%
�S%(X%,Y%)=V%
��
�:
���setup
�-�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
W%=51465
-�S%(39,22),X%(100),Y%(100),C%(100),R%(18)
&�23;8202;0;0;0;
0/�23,225,84,170,84,170,84,170,84,170:� GRASS
:7�23,226,254,254,254,254,254,254,254,254:� ACID POOL
D0�23,224,24,60,126,255,255,126,60,24:� TUNNEL
N"�23,227,0;0;24,60,126,255:� UP
X3�23,229,128,192,224,240,240,224,192,128:� RIGHT
b$�23,228,1,3,7,15,15,7,3,1:� LEFT
l%�23,230,255,126,60,24,0;0;:� DOWN
v�X%=1�5
�R%(X%)=226
��
��X%=1�4
�R%(X%+5)=225
�R%(X%+9)=224
��
�
R%(14)=43
�
R%(15)=70
�
R%(16)=70
�
R%(17)=82
�
R%(18)=77
�
�N%=1�108
�*�N%=18�titles("    C . D U N K L E Y")
*�N%=40�titles("     P R E S E N T S ")
.�N%=58�titles("for the BBC microcomputer")
<�N%=76�titles(" "+�228+" M E C H A - W O R M "+�229+" ")
 �A%
*C%=(A%�100)�100
4B%=A%�100 
>�1,4,B%*4-30,3
H!�C%=0�2,0,1,3 ��2,4,C%*4-30,3
R�
\
K%=500
f�
p:
z��titles(S$)
��off
�
�8,12)S$
��on
��
�:
�
��inst
�S%=0
�L%=3
�F%=1
�Q%=20000
��off
��
�
�title
	�
	V�" Guide the Mecha-Worm to the power pillsavoiding the ACID pools & its own tail."
	D�" You may go through the tunnels and overthe patches of grass."
	$@�" A bonus Mecha-Worm is awarded for every20,000pts scored."
	.�
	8�"SYMBOLS:"�20)"CONTROLS:"
	B	�DVI
	L�"--------"�20)"---------"
	V(�"Mecha-Worm .... "�229�229�229"  A"
	`5�"Acid Pool ..... "�226"   < > ....... Movement";
	j"�"Tunnel ........ "�224"    Z"
	t�"Grass ......... "�225
	~0�"100 pt BONUS .. +   SPACE BAR .... Pause";
	��"Speed up ...... F"
	��"Worm Munch .... M"
	��"Reverse Keys .. R"
	��"Power Pill .... ."
	��on
	�
���-99
	��off
	��
	�
�title
	��M%=1�K%�25
	��M%-1,10)�229
	��
�M%=0�39

�M%,9)�224
�M%,11)�224
�
(�M%=9�39�10
2�M%,11)�227
<�M%,9)�230
F�
P�19,8)�230
Z�19,12)�227
d�0,8)"Fast"
n�36,8)"Slow"
x�13,6)"Game Speed:"
�.�3,14)"Use < and > to adjust game speed."
��on
��
��M%=1�200:�
�)�-103�K%>25�K%�25-1,10)" ":K%=K%-25
�,�-104�K%<1000K%=K%+25:�K%�25-1,10)�229
��24,6);K%�25" "
�	��-99
��off
��
��
�:
���title
0�5,23)�224"Press SPACE BAR To Continue"�224
�message(1," Mecha-Worm ")
(�9,3)�228"Written By C.Dunkley"�229
"�
,:
6��on
@�M%=0�7
J	*FX19
T�19,1,M%;0;0;
^�U%=1�75:�
h�
r�
|:
�	��off
��M%=7�0�-1
�	*FX19
��19,1,M%;0;0;
��U%=1�75:�
��
��
�:
�"�40,38,40,36,40,35,40,33,40,32
�"�40,33,40,35,40,36,40,28,40,30
�"�40,32,40,33,40,32,40,33,40,35
�
�40,36
�"�3645,3743,3745,3841,3845,3340
"�3345,2638,2645,2137,2145,2638
"�2645,3340,3345,3841,3845,2133
"�2145,2135,2145,2137,2145,2138
&�2145,2137,2145
0"�2138,2145,2140,2145,2641,2638
:"�2633,2638,2641,2638,2633,2638
D"�3146,3143,3138,3143,3143,3138
N"�3134,3138,2443,2440,2436,2440
X"�2443,2440,2436,2440,2945,2941
b"�2936,2941,2941,2936,2933,2936
l"�2241,2238,2234,2238,2241,2238
v�2234,2238,2840,2835
��2832,2835,28
�

00000000  0d 00 0a 1e f4 20 27 4d  65 63 68 61 2d 57 6f 72  |..... 'Mecha-Wor|
00000010  6d 27 20 56 65 72 73 69  6f 6e 20 31 2e 31 0d 00  |m' Version 1.1..|
00000020  14 20 f4 20 42 79 20 43  2e 44 75 6e 6b 6c 65 79  |. . By C.Dunkley|
00000030  20 28 41 75 67 75 73 74  20 31 39 39 30 29 0d 00  | (August 1990)..|
00000040  1e 05 f4 0d 00 28 06 eb  36 0d 00 32 0a f2 73 65  |.....(..6..2..se|
00000050  74 75 70 0d 00 3c 05 f5  0d 00 46 09 f2 69 6e 73  |tup..<....F..ins|
00000060  74 0d 00 50 05 f5 0d 00  5a 0b f2 73 63 72 65 65  |t..P....Z..scree|
00000070  6e 0d 00 64 05 f5 0d 00  6e 0a f2 73 6e 61 6b 65  |n..d....n..snake|
00000080  0d 00 78 0a fd 4e 25 3c  3d 30 0d 00 82 14 e7 4e  |..x..N%<=0.....N|
00000090  25 f2 6f 6f 70 73 20 8b  f2 62 6f 6e 75 73 0d 00  |%.oops ..bonus..|
000000a0  8c 09 fd 4c 25 3d 30 0d  00 96 2a e7 53 25 3e 57  |...L%=0...*.S%>W|
000000b0  25 57 25 3d 53 25 3a f2  6d 65 73 73 61 67 65 28  |%W%=S%:.message(|
000000c0  36 2c 22 4e 45 57 20 48  49 2d 53 43 4f 52 45 22  |6,"NEW HI-SCORE"|
000000d0  29 0d 00 a0 09 f2 77 61  69 74 0d 00 aa 08 f2 6f  |).....wait.....o|
000000e0  66 66 0d 00 b4 05 db 0d  00 be 06 fd 30 0d 00 c8  |ff..........0...|
000000f0  05 e0 0d 00 d2 05 3a 0d  00 dc 0b dd f2 73 6e 61  |......:......sna|
00000100  6b 65 0d 00 e6 0e e3 4d  25 3d 31 b8 52 25 3a ed  |ke.....M%=1.R%:.|
00000110  0d 00 f0 0f e7 a6 2d 39  39 f2 70 61 75 73 65 0d  |......-99.pause.|
00000120  00 fa 0c e7 a6 43 25 44  25 3d 34 0d 01 04 0c e7  |.....C%D%=4.....|
00000130  a6 42 25 44 25 3d 31 0d  01 0e 0c e7 a6 4a 25 44  |.B%D%=1......J%D|
00000140  25 3d 33 0d 01 18 0c e7  a6 47 25 44 25 3d 32 0d  |%=3......G%D%=2.|
00000150  01 22 11 41 25 3d 48 25  3a 48 25 3d 48 25 2b 31  |.".A%=H%:H%=H%+1|
00000160  0d 01 2c 16 e7 48 25 3d  31 30 31 48 25 3d 31 3a  |..,..H%=101H%=1:|
00000170  41 25 3d 31 30 30 0d 01  36 1f 58 25 28 48 25 29  |A%=100..6.X%(H%)|
00000180  3d 58 25 28 41 25 29 2b  28 44 25 3d 32 29 2d 28  |=X%(A%)+(D%=2)-(|
00000190  44 25 3d 33 29 0d 01 40  1f 59 25 28 48 25 29 3d  |D%=3)..@.Y%(H%)=|
000001a0  59 25 28 41 25 29 2b 28  44 25 3d 31 29 2d 28 44  |Y%(A%)+(D%=1)-(D|
000001b0  25 3d 34 29 0d 01 4a 16  e7 58 25 28 48 25 29 3d  |%=4)..J..X%(H%)=|
000001c0  34 30 58 25 28 48 25 29  3d 30 0d 01 54 16 e7 58  |40X%(H%)=0..T..X|
000001d0  25 28 48 25 29 3c 30 58  25 28 48 25 29 3d 33 39  |%(H%)<0X%(H%)=39|
000001e0  0d 01 5e 16 e7 59 25 28  48 25 29 3d 30 59 25 28  |..^..Y%(H%)=0Y%(|
000001f0  48 25 29 3d 32 32 0d 01  68 16 e7 59 25 28 48 25  |H%)=22..h..Y%(H%|
00000200  29 3d 32 33 59 25 28 48  25 29 3d 31 0d 01 72 18  |)=23Y%(H%)=1..r.|
00000210  50 25 3d 53 25 28 58 25  28 48 25 29 2c 59 25 28  |P%=S%(X%(H%),Y%(|
00000220  48 25 29 29 0d 01 7c 0d  43 25 28 48 25 29 3d 33  |H%))..|.C%(H%)=3|
00000230  32 0d 01 86 1f e7 50 25  3d 32 32 35 d4 30 2c 2d  |2.....P%=225.0,-|
00000240  36 2c 34 2c 31 3a 43 25  28 48 25 29 3d 32 32 36  |6,4,1:C%(H%)=226|
00000250  0d 01 90 1f e7 50 25 3d  32 32 34 d4 30 2c 2d 34  |.....P%=224.0,-4|
00000260  2c 34 2c 31 3a 43 25 28  48 25 29 3d 32 32 35 0d  |,4,1:C%(H%)=225.|
00000270  01 9a 1c e7 50 25 3e 32  32 35 d4 30 2c 2d 39 2c  |....P%>225.0,-9,|
00000280  34 2c 32 3a 4e 25 3d 2d  31 3a e1 0d 01 a4 1c e7  |4,2:N%=-1:......|
00000290  50 25 3d 37 30 d4 31 2c  32 2c 31 30 2c 33 3a 52  |P%=70.1,2,10,3:R|
000002a0  25 3d 52 25 81 32 20 0d  01 ae 10 e7 50 25 3d 37  |%=R%.2 .....P%=7|
000002b0  37 f2 6d 75 6e 63 68 0d  01 b8 3c e7 50 25 3d 32  |7.munch...<.P%=2|
000002c0  32 34 f2 70 75 74 28 58  25 28 48 25 29 2c 59 25  |24.put(X%(H%),Y%|
000002d0  28 48 25 29 2c 50 25 29  8b f2 70 75 74 28 58 25  |(H%),P%)..put(X%|
000002e0  28 48 25 29 2c 59 25 28  48 25 29 2c 44 25 2b 32  |(H%),Y%(H%),D%+2|
000002f0  32 36 29 0d 01 c2 37 e7  50 25 3d 38 32 d4 31 2c  |26)...7.P%=82.1,|
00000300  32 2c 33 30 2c 33 3a 41  25 3d 42 25 3a 42 25 3d  |2,30,3:A%=B%:B%=|
00000310  43 25 3a 43 25 3d 41 25  3a 41 25 3d 47 25 3a 47  |C%:C%=A%:A%=G%:G|
00000320  25 3d 4a 25 3a 4a 25 3d  41 25 0d 01 cc 44 e7 50  |%=J%:J%=A%...D.P|
00000330  25 3d 34 36 d4 30 2c 33  2c 30 2c 31 3a f2 73 63  |%=46.0,3,0,1:.sc|
00000340  6f 72 65 28 32 30 29 3a  49 25 3d 31 3a 5a 25 3d  |ore(20):I%=1:Z%=|
00000350  5a 25 2b 31 3a 4e 25 3d  4e 25 2d 31 3a f2 65 6d  |Z%+1:N%=N%-1:.em|
00000360  70 74 79 28 52 25 28 b3  28 31 38 29 29 29 0d 01  |pty(R%(.(18)))..|
00000370  d6 1f e7 50 25 3d 34 33  d4 31 2c 33 2c 31 30 2c  |...P%=43.1,3,10,|
00000380  31 3a f2 73 63 6f 72 65  28 31 30 30 29 0d 01 e0  |1:.score(100)...|
00000390  0f e7 49 25 3d 31 49 25  3d 30 3a e1 0d 01 ea 1e  |..I%=1I%=0:.....|
000003a0  f2 70 75 74 28 58 25 28  54 25 29 2c 59 25 28 54  |.put(X%(T%),Y%(T|
000003b0  25 29 2c 43 25 28 54 25  29 29 0d 01 f4 0b 54 25  |%),C%(T%))....T%|
000003c0  3d 54 25 2b 31 0d 01 fe  0f e7 54 25 3d 31 30 31  |=T%+1.....T%=101|
000003d0  54 25 3d 31 0d 02 08 05  e1 0d 02 12 05 3a 0d 02  |T%=1.........:..|
000003e0  1c 14 dd f2 6d 65 73 73  61 67 65 28 59 25 2c 53  |....message(Y%,S|
000003f0  24 29 0d 02 26 0c e3 58  25 3d 31 b8 31 36 0d 02  |$)..&..X%=1.16..|
00000400  30 15 f1 8a 58 25 2b 31  31 2c 59 25 2b 31 29 bd  |0...X%+11,Y%+1).|
00000410  32 32 34 0d 02 3a 15 f1  8a 58 25 2b 31 31 2c 59  |224..:...X%+11,Y|
00000420  25 2d 31 29 bd 32 32 34  0d 02 44 05 ed 0d 02 4e  |%-1).224..D....N|
00000430  1c f1 8a 31 32 2c 59 25  29 bd 32 32 34 22 20 22  |...12,Y%).224" "|
00000440  53 24 22 20 22 bd 32 32  34 0d 02 58 05 e1 0d 02  |S$" ".224..X....|
00000450  62 05 3a 0d 02 6c 0b dd  f2 6d 75 6e 63 68 0d 02  |b.:..l...munch..|
00000460  76 0d d4 31 2c 32 2c 32  30 2c 33 0d 02 80 0a e7  |v..1,2,20,3.....|
00000470  5a 25 3d 32 e1 0d 02 8a  0c e3 58 25 3d 33 b8 5a  |Z%=2......X%=3.Z|
00000480  25 0d 02 94 18 f1 8a 58  25 28 54 25 29 2c 59 25  |%......X%(T%),Y%|
00000490  28 54 25 29 29 bd 32 32  34 0d 02 9e 0e d4 31 2c  |(T%)).224.....1,|
000004a0  2d 39 2c 58 25 2c 31 0d  02 a8 0e e3 4d 25 3d 31  |-9,X%,1.....M%=1|
000004b0  b8 33 30 3a ed 0d 02 b2  1e f2 70 75 74 28 58 25  |.30:......put(X%|
000004c0  28 54 25 29 2c 59 25 28  54 25 29 2c 43 25 28 54  |(T%),Y%(T%),C%(T|
000004d0  25 29 29 0d 02 bc 0b 54  25 3d 54 25 2b 31 0d 02  |%))....T%=T%+1..|
000004e0  c6 0f e7 54 25 3d 31 30  31 54 25 3d 31 0d 02 d0  |...T%=101T%=1...|
000004f0  05 ed 0d 02 da 08 5a 25  3d 32 0d 02 e4 05 e1 0d  |......Z%=2......|
00000500  02 ee 05 3a 0d 02 f8 0f  dd f2 65 72 61 73 65 28  |...:......erase(|
00000510  49 25 29 0d 03 02 0c e3  58 25 3d 31 b8 5a 25 0d  |I%).....X%=1.Z%.|
00000520  03 0c 0e f2 73 63 6f 72  65 28 49 25 29 0d 03 16  |....score(I%)...|
00000530  18 f1 8a 58 25 28 54 25  29 2c 59 25 28 54 25 29  |...X%(T%),Y%(T%)|
00000540  29 bd 32 32 34 0d 03 20  0e d4 30 2c 2d 31 30 2c  |).224.. ..0,-10,|
00000550  32 2c 32 0d 03 2a 0e d4  31 2c 2d 38 2c 58 25 2c  |2,2..*..1,-8,X%,|
00000560  31 0d 03 34 0e e3 4d 25  3d 31 b8 34 30 3a ed 0d  |1..4..M%=1.40:..|
00000570  03 3e 1d f1 8a 58 25 28  54 25 29 2c 59 25 28 54  |.>...X%(T%),Y%(T|
00000580  25 29 29 bd 28 43 25 28  54 25 29 29 0d 03 48 0c  |%)).(C%(T%))..H.|
00000590  d4 30 2c 30 2c 30 2c 30  0d 03 52 0f e3 4d 25 3d  |.0,0,0,0..R..M%=|
000005a0  31 b8 31 35 30 3a ed 0d  03 5c 0b 54 25 3d 54 25  |1.150:...\.T%=T%|
000005b0  2b 31 0d 03 66 0f e7 54  25 3d 31 30 31 54 25 3d  |+1..f..T%=101T%=|
000005c0  31 0d 03 70 05 ed 0d 03  7a 05 e1 0d 03 84 05 3a  |1..p....z......:|
000005d0  0d 03 8e 0f dd f2 73 63  6f 72 65 28 56 25 29 0d  |......score(V%).|
000005e0  03 98 0c 53 25 3d 53 25  2b 56 25 0d 03 a2 0d f1  |...S%=S%+V%.....|
000005f0  8a 33 2c 30 29 3b 53 25  0d 03 ac 3c e7 53 25 3e  |.3,0);S%...<.S%>|
00000600  3d 51 25 d4 31 2c 31 2c  31 30 30 2c 34 3a 4c 25  |=Q%.1,1,100,4:L%|
00000610  3d 4c 25 2b 31 3a 51 25  3d 51 25 2b 32 30 30 30  |=L%+1:Q%=Q%+2000|
00000620  30 3a e7 4c 25 3c 34 f1  8a 39 2b 4c 25 2c 30 29  |0:.L%<4..9+L%,0)|
00000630  bd 32 32 37 0d 03 b6 05  e1 0d 03 c0 05 3a 0d 03  |.227.........:..|
00000640  ca 0b dd f2 62 6f 6e 75  73 0d 03 d4 0e f2 65 72  |....bonus.....er|
00000650  61 73 65 28 32 30 29 0d  03 de 1f f2 6d 65 73 73  |ase(20).....mess|
00000660  61 67 65 28 31 32 2c 22  20 42 4f 4e 55 53 3a 20  |age(12," BONUS: |
00000670  20 20 20 20 22 29 0d 03  e8 13 f1 8a 32 31 2c 31  |    ")......21,1|
00000680  32 29 3b 46 25 2a 32 30  30 0d 03 f2 12 f2 73 63  |2);F%*200.....sc|
00000690  6f 72 65 28 32 30 30 2a  46 25 29 0d 03 fc 0b 46  |ore(200*F%)....F|
000006a0  25 3d 46 25 2b 31 0d 04  06 05 e1 0d 04 10 05 3a  |%=F%+1.........:|
000006b0  0d 04 1a 0a dd f2 6f 6f  70 73 0d 04 24 0b 4c 25  |......oops..$.L%|
000006c0  3d 4c 25 2d 31 0d 04 2e  0d f2 65 72 61 73 65 28  |=L%-1.....erase(|
000006d0  35 29 0d 04 38 41 e7 4c  25 3d 30 f2 6d 65 73 73  |5)..8A.L%=0.mess|
000006e0  61 67 65 28 31 32 2c 22  20 47 41 4d 45 20 20 4f  |age(12," GAME  O|
000006f0  56 45 52 20 22 29 20 8b  f2 6d 65 73 73 61 67 65  |VER ") ..message|
00000700  28 31 32 2c 22 20 20 20  4f 4f 50 53 20 21 20 20  |(12,"   OOPS !  |
00000710  20 22 29 0d 04 42 05 e1  0d 04 4c 05 3a 0d 04 56  | ")..B....L.:..V|
00000720  0c dd f2 73 63 72 65 65  6e 0d 04 60 07 d1 3d 30  |...screen..`..=0|
00000730  0d 04 6a 0c e3 59 25 3d  31 b8 32 32 0d 04 74 0c  |..j..Y%=1.22..t.|
00000740  e3 58 25 3d 30 b8 33 39  0d 04 7e 10 53 25 28 58  |.X%=0.39..~.S%(X|
00000750  25 2c 59 25 29 3d 33 32  0d 04 88 06 ed 2c 0d 04  |%,Y%)=32.....,..|
00000760  92 0b f5 fd 91 3e 31 36  30 0d 04 9c 08 f2 6f 66  |.....>160.....of|
00000770  66 0d 04 a6 05 db 0d 04  b0 25 f1 22 53 43 3a 22  |f........%."SC:"|
00000780  3b 53 25 8a 31 34 29 22  46 52 3a 22 3b 46 25 8a  |;S%.14)"FR:";F%.|
00000790  33 31 29 22 48 49 3a 22  3b 57 25 0d 04 ba 13 4e  |31)"HI:";W%....N|
000007a0  25 3d 4c 25 3a e7 4c 25  3e 33 4e 25 3d 33 0d 04  |%=L%:.L%>3N%=3..|
000007b0  c4 0c e3 4d 25 3d 31 b8  4e 25 0d 04 ce 11 f1 8a  |...M%=1.N%......|
000007c0  39 2b 4d 25 2c 30 29 bd  32 32 37 0d 04 d8 05 ed  |9+M%,0).227.....|
000007d0  0d 04 e2 3f f1 8a 31 2c  32 33 29 22 5f 5f 5f 5f  |...?..1,23)"____|
000007e0  5f 5f 5f 5f 5f 5f 5f 5f  22 bd 32 32 38 22 20 4d  |________".228" M|
000007f0  65 63 68 61 2d 57 6f 72  6d 20 22 bd 32 32 39 22  |echa-Worm ".229"|
00000800  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 22 3b 0d  |_____________";.|
00000810  04 ec 13 f2 70 75 74 28  31 30 2c 31 30 2c 32 32  |....put(10,10,22|
00000820  39 29 0d 04 f6 13 f2 70  75 74 28 31 31 2c 31 30  |9).....put(11,10|
00000830  2c 32 32 39 29 0d 05 00  0d 54 25 3d 31 3a 48 25  |,229)....T%=1:H%|
00000840  3d 32 0d 05 0a 15 58 25  28 31 29 3d 31 30 3a 59  |=2....X%(1)=10:Y|
00000850  25 28 31 29 3d 31 30 0d  05 14 15 58 25 28 32 29  |%(1)=10....X%(2)|
00000860  3d 31 31 3a 59 25 28 32  29 3d 31 30 0d 05 1e 15  |=11:Y%(2)=10....|
00000870  43 25 28 31 29 3d 33 32  3a 43 25 28 32 29 3d 33  |C%(1)=32:C%(2)=3|
00000880  32 0d 05 28 08 44 25 3d  33 0d 05 32 08 49 25 3d  |2..(.D%=3..2.I%=|
00000890  30 0d 05 3c 0b 4e 25 3d  46 25 2a 34 0d 05 46 0f  |0..<.N%=F%*4..F.|
000008a0  e7 4e 25 3e 39 38 4e 25  3d 39 38 0d 05 50 08 5a  |.N%>98N%=98..P.Z|
000008b0  25 3d 32 0d 05 5a 0c e3  4d 25 3d 31 b8 4e 25 0d  |%=2..Z..M%=1.N%.|
000008c0  05 64 0e f2 65 6d 70 74  79 28 34 36 29 0d 05 6e  |.d..empty(46)..n|
000008d0  05 ed 0d 05 78 12 52 25  3d 4b 25 2d 46 25 2a 4b  |....x.R%=K%-F%*K|
000008e0  25 2f 35 30 0d 05 82 0d  e7 52 25 3c 30 52 25 3d  |%/50.....R%<0R%=|
000008f0  30 0d 05 8c 0a 42 25 3d  2d 36 36 0d 05 96 0a 43  |0....B%=-66....C|
00000900  25 3d 2d 39 38 0d 05 a0  0b 47 25 3d 2d 31 30 33  |%=-98....G%=-103|
00000910  0d 05 aa 0b 4a 25 3d 2d  31 30 34 0d 05 b4 07 f2  |....J%=-104.....|
00000920  6f 6e 0d 05 be 09 f2 77  61 69 74 0d 05 c8 05 e1  |on.....wait.....|
00000930  0d 05 d2 05 3a 0d 05 dc  0b dd f2 70 61 75 73 65  |....:......pause|
00000940  0d 05 e6 1f f2 6d 65 73  73 61 67 65 28 31 32 2c  |.....message(12,|
00000950  22 20 20 20 50 41 55 53  45 44 20 20 20 22 29 0d  |"   PAUSED   ").|
00000960  05 f0 09 f2 77 61 69 74  0d 05 fa 0d e3 59 25 3d  |....wait.....Y%=|
00000970  31 31 b8 31 33 0d 06 04  0d e3 58 25 3d 31 32 b8  |11.13.....X%=12.|
00000980  32 37 0d 06 0e 18 f1 8a  58 25 2c 59 25 29 bd 28  |27......X%,Y%).(|
00000990  53 25 28 58 25 2c 59 25  29 29 0d 06 18 06 ed 2c  |S%(X%,Y%)).....,|
000009a0  0d 06 22 05 e1 0d 06 2c  05 3a 0d 06 36 0a dd f2  |.."....,.:..6...|
000009b0  77 61 69 74 0d 06 40 0b  f5 fd bf 30 3d 22 22 0d  |wait..@....0="".|
000009c0  06 4a 0c f5 fd bf 30 3c  3e 22 22 0d 06 54 05 e1  |.J....0<>""..T..|
000009d0  0d 06 5e 05 3a 0d 06 68  0f dd f2 65 6d 70 74 79  |..^.:..h...empty|
000009e0  28 56 25 29 0d 06 72 05  f5 0d 06 7c 17 58 25 3d  |(V%)..r....|.X%=|
000009f0  b3 28 34 30 29 2d 31 3a  59 25 3d b3 28 32 32 29  |.(40)-1:Y%=.(22)|
00000a00  0d 06 86 11 fd 53 25 28  58 25 2c 59 25 29 3d 33  |.....S%(X%,Y%)=3|
00000a10  32 0d 06 90 12 f2 70 75  74 28 58 25 2c 59 25 2c  |2.....put(X%,Y%,|
00000a20  56 25 29 0d 06 9a 05 e1  0d 06 a4 05 3a 0d 06 ae  |V%).........:...|
00000a30  13 dd f2 70 75 74 28 58  25 2c 59 25 2c 56 25 29  |...put(X%,Y%,V%)|
00000a40  0d 06 b8 0f f1 8a 58 25  2c 59 25 29 bd 56 25 0d  |......X%,Y%).V%.|
00000a50  06 c2 10 53 25 28 58 25  2c 59 25 29 3d 56 25 0d  |...S%(X%,Y%)=V%.|
00000a60  06 cc 05 e1 0d 06 d6 05  3a 0d 06 e0 0b dd f2 73  |........:......s|
00000a70  65 74 75 70 0d 06 ea 2d  e2 31 2c 31 2c 33 2c 2d  |etup...-.1,1,3,-|
00000a80  39 30 2c 31 2c 31 2c 2d  32 2c 2d 33 2c 31 30 30  |90,1,1,-2,-3,100|
00000a90  2c 30 2c 30 2c 2d 31 30  30 2c 31 30 30 2c 31 30  |,0,0,-100,100,10|
00000aa0  30 0d 06 f4 2b e2 32 2c  31 2c 31 2c 2d 32 2c 31  |0...+.2,1,1,-2,1|
00000ab0  2c 37 2c 35 2c 31 32 2c  31 30 30 2c 30 2c 30 2c  |,7,5,12,100,0,0,|
00000ac0  2d 31 30 30 2c 31 30 30  2c 31 30 30 0d 06 fe 2a  |-100,100,100...*|
00000ad0  e2 33 2c 31 2c 30 2c 30  2c 30 2c 31 30 2c 31 30  |.3,1,0,0,0,10,10|
00000ae0  2c 31 30 2c 31 30 30 2c  2d 34 2c 2d 31 2c 2d 34  |,10,100,-4,-1,-4|
00000af0  2c 31 30 30 2c 30 0d 07  08 26 e2 34 2c 33 2c 30  |,100,0...&.4,3,0|
00000b00  2c 30 2c 30 2c 30 2c 30  2c 30 2c 36 30 2c 2d 35  |,0,0,0,0,0,60,-5|
00000b10  2c 2d 31 2c 2d 33 2c 37  35 2c 36 30 0d 07 12 0c  |,-1,-3,75,60....|
00000b20  57 25 3d 35 31 34 36 35  0d 07 1c 2d de 53 25 28  |W%=51465...-.S%(|
00000b30  33 39 2c 32 32 29 2c 58  25 28 31 30 30 29 2c 59  |39,22),X%(100),Y|
00000b40  25 28 31 30 30 29 2c 43  25 28 31 30 30 29 2c 52  |%(100),C%(100),R|
00000b50  25 28 31 38 29 0d 07 26  13 ef 32 33 3b 38 32 30  |%(18)..&..23;820|
00000b60  32 3b 30 3b 30 3b 30 3b  0d 07 30 2f ef 32 33 2c  |2;0;0;0;..0/.23,|
00000b70  32 32 35 2c 38 34 2c 31  37 30 2c 38 34 2c 31 37  |225,84,170,84,17|
00000b80  30 2c 38 34 2c 31 37 30  2c 38 34 2c 31 37 30 3a  |0,84,170,84,170:|
00000b90  f4 20 47 52 41 53 53 0d  07 3a 37 ef 32 33 2c 32  |. GRASS..:7.23,2|
00000ba0  32 36 2c 32 35 34 2c 32  35 34 2c 32 35 34 2c 32  |26,254,254,254,2|
00000bb0  35 34 2c 32 35 34 2c 32  35 34 2c 32 35 34 2c 32  |54,254,254,254,2|
00000bc0  35 34 3a f4 20 41 43 49  44 20 50 4f 4f 4c 0d 07  |54:. ACID POOL..|
00000bd0  44 30 ef 32 33 2c 32 32  34 2c 32 34 2c 36 30 2c  |D0.23,224,24,60,|
00000be0  31 32 36 2c 32 35 35 2c  32 35 35 2c 31 32 36 2c  |126,255,255,126,|
00000bf0  36 30 2c 32 34 3a f4 20  54 55 4e 4e 45 4c 0d 07  |60,24:. TUNNEL..|
00000c00  4e 22 ef 32 33 2c 32 32  37 2c 30 3b 30 3b 32 34  |N".23,227,0;0;24|
00000c10  2c 36 30 2c 31 32 36 2c  32 35 35 3a f4 20 55 50  |,60,126,255:. UP|
00000c20  0d 07 58 33 ef 32 33 2c  32 32 39 2c 31 32 38 2c  |..X3.23,229,128,|
00000c30  31 39 32 2c 32 32 34 2c  32 34 30 2c 32 34 30 2c  |192,224,240,240,|
00000c40  32 32 34 2c 31 39 32 2c  31 32 38 3a f4 20 52 49  |224,192,128:. RI|
00000c50  47 48 54 0d 07 62 24 ef  32 33 2c 32 32 38 2c 31  |GHT..b$.23,228,1|
00000c60  2c 33 2c 37 2c 31 35 2c  31 35 2c 37 2c 33 2c 31  |,3,7,15,15,7,3,1|
00000c70  3a f4 20 4c 45 46 54 0d  07 6c 25 ef 32 33 2c 32  |:. LEFT..l%.23,2|
00000c80  33 30 2c 32 35 35 2c 31  32 36 2c 36 30 2c 32 34  |30,255,126,60,24|
00000c90  2c 30 3b 30 3b 3a f4 20  44 4f 57 4e 0d 07 76 0b  |,0;0;:. DOWN..v.|
00000ca0  e3 58 25 3d 31 b8 35 0d  07 80 0e 52 25 28 58 25  |.X%=1.5....R%(X%|
00000cb0  29 3d 32 32 36 0d 07 8a  05 ed 0d 07 94 0b e3 58  |)=226..........X|
00000cc0  25 3d 31 b8 34 0d 07 9e  10 52 25 28 58 25 2b 35  |%=1.4....R%(X%+5|
00000cd0  29 3d 32 32 35 0d 07 a8  10 52 25 28 58 25 2b 39  |)=225....R%(X%+9|
00000ce0  29 3d 32 32 34 0d 07 b2  05 ed 0d 07 bc 0d 52 25  |)=224.........R%|
00000cf0  28 31 34 29 3d 34 33 0d  07 c6 0d 52 25 28 31 35  |(14)=43....R%(15|
00000d00  29 3d 37 30 0d 07 d0 0d  52 25 28 31 36 29 3d 37  |)=70....R%(16)=7|
00000d10  30 0d 07 da 0d 52 25 28  31 37 29 3d 38 32 0d 07  |0....R%(17)=82..|
00000d20  e4 0d 52 25 28 31 38 29  3d 37 37 0d 07 ee 0d e3  |..R%(18)=77.....|
00000d30  4e 25 3d 31 b8 31 30 38  0d 07 f8 2a e7 4e 25 3d  |N%=1.108...*.N%=|
00000d40  31 38 f2 74 69 74 6c 65  73 28 22 20 20 20 20 43  |18.titles("    C|
00000d50  20 2e 20 44 20 55 20 4e  20 4b 20 4c 20 45 20 59  | . D U N K L E Y|
00000d60  22 29 0d 08 02 2a e7 4e  25 3d 34 30 f2 74 69 74  |")...*.N%=40.tit|
00000d70  6c 65 73 28 22 20 20 20  20 20 50 20 52 20 45 20  |les("     P R E |
00000d80  53 20 45 20 4e 20 54 20  53 20 22 29 0d 08 0c 2e  |S E N T S ")....|
00000d90  e7 4e 25 3d 35 38 f2 74  69 74 6c 65 73 28 22 66  |.N%=58.titles("f|
00000da0  6f 72 20 74 68 65 20 42  42 43 20 6d 69 63 72 6f  |or the BBC micro|
00000db0  63 6f 6d 70 75 74 65 72  22 29 0d 08 16 3c e7 4e  |computer")...<.N|
00000dc0  25 3d 37 36 f2 74 69 74  6c 65 73 28 22 20 22 2b  |%=76.titles(" "+|
00000dd0  bd 32 32 38 2b 22 20 4d  20 45 20 43 20 48 20 41  |.228+" M E C H A|
00000de0  20 2d 20 57 20 4f 20 52  20 4d 20 22 2b bd 32 32  | - W O R M "+.22|
00000df0  39 2b 22 20 22 29 0d 08  20 07 f3 41 25 0d 08 2a  |9+" ").. ..A%..*|
00000e00  13 43 25 3d 28 41 25 81  31 30 30 29 83 31 30 30  |.C%=(A%.100).100|
00000e10  0d 08 34 0e 42 25 3d 41  25 83 31 30 30 20 0d 08  |..4.B%=A%.100 ..|
00000e20  3e 12 d4 31 2c 34 2c 42  25 2a 34 2d 33 30 2c 33  |>..1,4,B%*4-30,3|
00000e30  0d 08 48 21 e7 43 25 3d  30 d4 32 2c 30 2c 31 2c  |..H!.C%=0.2,0,1,|
00000e40  33 20 8b d4 32 2c 34 2c  43 25 2a 34 2d 33 30 2c  |3 ..2,4,C%*4-30,|
00000e50  33 0d 08 52 05 ed 0d 08  5c 0a 4b 25 3d 35 30 30  |3..R....\.K%=500|
00000e60  0d 08 66 05 e1 0d 08 70  05 3a 0d 08 7a 10 dd f2  |..f....p.:..z...|
00000e70  74 69 74 6c 65 73 28 53  24 29 0d 08 84 08 f2 6f  |titles(S$).....o|
00000e80  66 66 0d 08 8e 0d f1 8a  38 2c 31 32 29 53 24 0d  |ff......8,12)S$.|
00000e90  08 98 07 f2 6f 6e 0d 08  a2 05 e1 0d 08 ac 05 3a  |....on.........:|
00000ea0  0d 08 b6 0a dd f2 69 6e  73 74 0d 08 c0 08 53 25  |......inst....S%|
00000eb0  3d 30 0d 08 ca 08 4c 25  3d 33 0d 08 d4 08 46 25  |=0....L%=3....F%|
00000ec0  3d 31 0d 08 de 0c 51 25  3d 32 30 30 30 30 0d 08  |=1....Q%=20000..|
00000ed0  e8 08 f2 6f 66 66 0d 08  f2 05 db 0d 08 fc 0a f2  |...off..........|
00000ee0  74 69 74 6c 65 0d 09 06  05 f1 0d 09 10 56 f1 22  |title........V."|
00000ef0  20 47 75 69 64 65 20 74  68 65 20 4d 65 63 68 61  | Guide the Mecha|
00000f00  2d 57 6f 72 6d 20 74 6f  20 74 68 65 20 70 6f 77  |-Worm to the pow|
00000f10  65 72 20 70 69 6c 6c 73  61 76 6f 69 64 69 6e 67  |er pillsavoiding|
00000f20  20 74 68 65 20 41 43 49  44 20 70 6f 6f 6c 73 20  | the ACID pools |
00000f30  26 20 69 74 73 20 6f 77  6e 20 74 61 69 6c 2e 22  |& its own tail."|
00000f40  0d 09 1a 44 f1 22 20 59  6f 75 20 6d 61 79 20 67  |...D." You may g|
00000f50  6f 20 74 68 72 6f 75 67  68 20 74 68 65 20 74 75  |o through the tu|
00000f60  6e 6e 65 6c 73 20 61 6e  64 20 6f 76 65 72 74 68  |nnels and overth|
00000f70  65 20 70 61 74 63 68 65  73 20 6f 66 20 67 72 61  |e patches of gra|
00000f80  73 73 2e 22 0d 09 24 40  f1 22 20 41 20 62 6f 6e  |ss."..$@." A bon|
00000f90  75 73 20 4d 65 63 68 61  2d 57 6f 72 6d 20 69 73  |us Mecha-Worm is|
00000fa0  20 61 77 61 72 64 65 64  20 66 6f 72 20 65 76 65  | awarded for eve|
00000fb0  72 79 32 30 2c 30 30 30  70 74 73 20 73 63 6f 72  |ry20,000pts scor|
00000fc0  65 64 2e 22 0d 09 2e 05  f1 0d 09 38 1e f1 22 53  |ed.".......8.."S|
00000fd0  59 4d 42 4f 4c 53 3a 22  8a 32 30 29 22 43 4f 4e  |YMBOLS:".20)"CON|
00000fe0  54 52 4f 4c 53 3a 22 0d  09 42 09 e5 8d 44 56 49  |TROLS:"..B...DVI|
00000ff0  0d 09 4c 1e f1 22 2d 2d  2d 2d 2d 2d 2d 2d 22 8a  |..L.."--------".|
00001000  32 30 29 22 2d 2d 2d 2d  2d 2d 2d 2d 2d 22 0d 09  |20)"---------"..|
00001010  56 28 f1 22 4d 65 63 68  61 2d 57 6f 72 6d 20 2e  |V(."Mecha-Worm .|
00001020  2e 2e 2e 20 22 bd 32 32  39 bd 32 32 39 bd 32 32  |... ".229.229.22|
00001030  39 22 20 20 41 22 0d 09  60 35 f1 22 41 63 69 64  |9"  A"..`5."Acid|
00001040  20 50 6f 6f 6c 20 2e 2e  2e 2e 2e 20 22 bd 32 32  | Pool ..... ".22|
00001050  36 22 20 20 20 3c 20 3e  20 2e 2e 2e 2e 2e 2e 2e  |6"   < > .......|
00001060  20 4d 6f 76 65 6d 65 6e  74 22 3b 0d 09 6a 22 f1  | Movement";..j".|
00001070  22 54 75 6e 6e 65 6c 20  2e 2e 2e 2e 2e 2e 2e 2e  |"Tunnel ........|
00001080  20 22 bd 32 32 34 22 20  20 20 20 5a 22 0d 09 74  | ".224"    Z"..t|
00001090  1b f1 22 47 72 61 73 73  20 2e 2e 2e 2e 2e 2e 2e  |.."Grass .......|
000010a0  2e 2e 20 22 bd 32 32 35  0d 09 7e 30 f1 22 31 30  |.. ".225..~0."10|
000010b0  30 20 70 74 20 42 4f 4e  55 53 20 2e 2e 20 2b 20  |0 pt BONUS .. + |
000010c0  20 20 53 50 41 43 45 20  42 41 52 20 2e 2e 2e 2e  |  SPACE BAR ....|
000010d0  20 50 61 75 73 65 22 3b  0d 09 88 18 f1 22 53 70  | Pause";....."Sp|
000010e0  65 65 64 20 75 70 20 2e  2e 2e 2e 2e 2e 20 46 22  |eed up ...... F"|
000010f0  0d 09 92 18 f1 22 57 6f  72 6d 20 4d 75 6e 63 68  |....."Worm Munch|
00001100  20 2e 2e 2e 2e 20 4d 22  0d 09 9c 18 f1 22 52 65  | .... M"....."Re|
00001110  76 65 72 73 65 20 4b 65  79 73 20 2e 2e 20 52 22  |verse Keys .. R"|
00001120  0d 09 a6 18 f1 22 50 6f  77 65 72 20 50 69 6c 6c  |....."Power Pill|
00001130  20 2e 2e 2e 2e 20 2e 22  0d 09 b0 07 f2 6f 6e 0d  | .... .".....on.|
00001140  09 ba 0a f5 fd a6 2d 39  39 0d 09 c4 08 f2 6f 66  |......-99.....of|
00001150  66 0d 09 ce 05 db 0d 09  d8 0a f2 74 69 74 6c 65  |f..........title|
00001160  0d 09 e2 0f e3 4d 25 3d  31 b8 4b 25 81 32 35 0d  |.....M%=1.K%.25.|
00001170  09 ec 12 f1 8a 4d 25 2d  31 2c 31 30 29 bd 32 32  |.....M%-1,10).22|
00001180  39 0d 09 f6 05 ed 0d 0a  00 0c e3 4d 25 3d 30 b8  |9..........M%=0.|
00001190  33 39 0d 0a 0a 0f f1 8a  4d 25 2c 39 29 bd 32 32  |39......M%,9).22|
000011a0  34 0d 0a 14 10 f1 8a 4d  25 2c 31 31 29 bd 32 32  |4......M%,11).22|
000011b0  34 0d 0a 1e 05 ed 0d 0a  28 0f e3 4d 25 3d 39 b8  |4.......(..M%=9.|
000011c0  33 39 88 31 30 0d 0a 32  10 f1 8a 4d 25 2c 31 31  |39.10..2...M%,11|
000011d0  29 bd 32 32 37 0d 0a 3c  0f f1 8a 4d 25 2c 39 29  |).227..<...M%,9)|
000011e0  bd 32 33 30 0d 0a 46 05  ed 0d 0a 50 0f f1 8a 31  |.230..F....P...1|
000011f0  39 2c 38 29 bd 32 33 30  0d 0a 5a 10 f1 8a 31 39  |9,8).230..Z...19|
00001200  2c 31 32 29 bd 32 32 37  0d 0a 64 10 f1 8a 30 2c  |,12).227..d...0,|
00001210  38 29 22 46 61 73 74 22  0d 0a 6e 11 f1 8a 33 36  |8)"Fast"..n...36|
00001220  2c 38 29 22 53 6c 6f 77  22 0d 0a 78 18 f1 8a 31  |,8)"Slow"..x...1|
00001230  33 2c 36 29 22 47 61 6d  65 20 53 70 65 65 64 3a  |3,6)"Game Speed:|
00001240  22 0d 0a 82 2e f1 8a 33  2c 31 34 29 22 55 73 65  |"......3,14)"Use|
00001250  20 3c 20 61 6e 64 20 3e  20 74 6f 20 61 64 6a 75  | < and > to adju|
00001260  73 74 20 67 61 6d 65 20  73 70 65 65 64 2e 22 0d  |st game speed.".|
00001270  0a 8c 07 f2 6f 6e 0d 0a  96 05 f5 0d 0a a0 0f e3  |....on..........|
00001280  4d 25 3d 31 b8 32 30 30  3a ed 0d 0a aa 29 e7 a6  |M%=1.200:....)..|
00001290  2d 31 30 33 80 4b 25 3e  32 35 f1 8a 4b 25 81 32  |-103.K%>25..K%.2|
000012a0  35 2d 31 2c 31 30 29 22  20 22 3a 4b 25 3d 4b 25  |5-1,10)" ":K%=K%|
000012b0  2d 32 35 0d 0a b4 2c e7  a6 2d 31 30 34 80 4b 25  |-25...,..-104.K%|
000012c0  3c 31 30 30 30 4b 25 3d  4b 25 2b 32 35 3a f1 8a  |<1000K%=K%+25:..|
000012d0  4b 25 81 32 35 2d 31 2c  31 30 29 bd 32 32 39 0d  |K%.25-1,10).229.|
000012e0  0a be 14 f1 8a 32 34 2c  36 29 3b 4b 25 81 32 35  |.....24,6);K%.25|
000012f0  22 20 22 0d 0a c8 09 fd  a6 2d 39 39 0d 0a d2 08  |" "......-99....|
00001300  f2 6f 66 66 0d 0a dc 05  db 0d 0a e6 05 e1 0d 0a  |.off............|
00001310  f0 05 3a 0d 0a fa 0b dd  f2 74 69 74 6c 65 0d 0b  |..:......title..|
00001320  04 30 f1 8a 35 2c 32 33  29 bd 32 32 34 22 50 72  |.0..5,23).224"Pr|
00001330  65 73 73 20 53 50 41 43  45 20 42 41 52 20 54 6f  |ess SPACE BAR To|
00001340  20 43 6f 6e 74 69 6e 75  65 22 bd 32 32 34 0d 0b  | Continue".224..|
00001350  0e 1e f2 6d 65 73 73 61  67 65 28 31 2c 22 20 4d  |...message(1," M|
00001360  65 63 68 61 2d 57 6f 72  6d 20 22 29 0d 0b 18 28  |echa-Worm ")...(|
00001370  f1 8a 39 2c 33 29 bd 32  32 38 22 57 72 69 74 74  |..9,3).228"Writt|
00001380  65 6e 20 42 79 20 43 2e  44 75 6e 6b 6c 65 79 22  |en By C.Dunkley"|
00001390  bd 32 32 39 0d 0b 22 05  e1 0d 0b 2c 05 3a 0d 0b  |.229.."....,.:..|
000013a0  36 08 dd f2 6f 6e 0d 0b  40 0b e3 4d 25 3d 30 b8  |6...on..@..M%=0.|
000013b0  37 0d 0b 4a 09 2a 46 58  31 39 0d 0b 54 11 ef 31  |7..J.*FX19..T..1|
000013c0  39 2c 31 2c 4d 25 3b 30  3b 30 3b 0d 0b 5e 0e e3  |9,1,M%;0;0;..^..|
000013d0  55 25 3d 31 b8 37 35 3a  ed 0d 0b 68 05 ed 0d 0b  |U%=1.75:...h....|
000013e0  72 05 e1 0d 0b 7c 05 3a  0d 0b 86 09 dd f2 6f 66  |r....|.:......of|
000013f0  66 0d 0b 90 0e e3 4d 25  3d 37 b8 30 88 2d 31 0d  |f.....M%=7.0.-1.|
00001400  0b 9a 09 2a 46 58 31 39  0d 0b a4 11 ef 31 39 2c  |...*FX19.....19,|
00001410  31 2c 4d 25 3b 30 3b 30  3b 0d 0b ae 0e e3 55 25  |1,M%;0;0;.....U%|
00001420  3d 31 b8 37 35 3a ed 0d  0b b8 05 ed 0d 0b c2 05  |=1.75:..........|
00001430  e1 0d 0b cc 05 3a 0d 0b  d6 22 dc 34 30 2c 33 38  |.....:...".40,38|
00001440  2c 34 30 2c 33 36 2c 34  30 2c 33 35 2c 34 30 2c  |,40,36,40,35,40,|
00001450  33 33 2c 34 30 2c 33 32  0d 0b e0 22 dc 34 30 2c  |33,40,32...".40,|
00001460  33 33 2c 34 30 2c 33 35  2c 34 30 2c 33 36 2c 34  |33,40,35,40,36,4|
00001470  30 2c 32 38 2c 34 30 2c  33 30 0d 0b ea 22 dc 34  |0,28,40,30...".4|
00001480  30 2c 33 32 2c 34 30 2c  33 33 2c 34 30 2c 33 32  |0,32,40,33,40,32|
00001490  2c 34 30 2c 33 33 2c 34  30 2c 33 35 0d 0b f4 0a  |,40,33,40,35....|
000014a0  dc 34 30 2c 33 36 0d 0b  fe 22 dc 33 36 34 35 2c  |.40,36...".3645,|
000014b0  33 37 34 33 2c 33 37 34  35 2c 33 38 34 31 2c 33  |3743,3745,3841,3|
000014c0  38 34 35 2c 33 33 34 30  0d 0c 08 22 dc 33 33 34  |845,3340...".334|
000014d0  35 2c 32 36 33 38 2c 32  36 34 35 2c 32 31 33 37  |5,2638,2645,2137|
000014e0  2c 32 31 34 35 2c 32 36  33 38 0d 0c 12 22 dc 32  |,2145,2638...".2|
000014f0  36 34 35 2c 33 33 34 30  2c 33 33 34 35 2c 33 38  |645,3340,3345,38|
00001500  34 31 2c 33 38 34 35 2c  32 31 33 33 0d 0c 1c 22  |41,3845,2133..."|
00001510  dc 32 31 34 35 2c 32 31  33 35 2c 32 31 34 35 2c  |.2145,2135,2145,|
00001520  32 31 33 37 2c 32 31 34  35 2c 32 31 33 38 0d 0c  |2137,2145,2138..|
00001530  26 13 dc 32 31 34 35 2c  32 31 33 37 2c 32 31 34  |&..2145,2137,214|
00001540  35 0d 0c 30 22 dc 32 31  33 38 2c 32 31 34 35 2c  |5..0".2138,2145,|
00001550  32 31 34 30 2c 32 31 34  35 2c 32 36 34 31 2c 32  |2140,2145,2641,2|
00001560  36 33 38 0d 0c 3a 22 dc  32 36 33 33 2c 32 36 33  |638..:".2633,263|
00001570  38 2c 32 36 34 31 2c 32  36 33 38 2c 32 36 33 33  |8,2641,2638,2633|
00001580  2c 32 36 33 38 0d 0c 44  22 dc 33 31 34 36 2c 33  |,2638..D".3146,3|
00001590  31 34 33 2c 33 31 33 38  2c 33 31 34 33 2c 33 31  |143,3138,3143,31|
000015a0  34 33 2c 33 31 33 38 0d  0c 4e 22 dc 33 31 33 34  |43,3138..N".3134|
000015b0  2c 33 31 33 38 2c 32 34  34 33 2c 32 34 34 30 2c  |,3138,2443,2440,|
000015c0  32 34 33 36 2c 32 34 34  30 0d 0c 58 22 dc 32 34  |2436,2440..X".24|
000015d0  34 33 2c 32 34 34 30 2c  32 34 33 36 2c 32 34 34  |43,2440,2436,244|
000015e0  30 2c 32 39 34 35 2c 32  39 34 31 0d 0c 62 22 dc  |0,2945,2941..b".|
000015f0  32 39 33 36 2c 32 39 34  31 2c 32 39 34 31 2c 32  |2936,2941,2941,2|
00001600  39 33 36 2c 32 39 33 33  2c 32 39 33 36 0d 0c 6c  |936,2933,2936..l|
00001610  22 dc 32 32 34 31 2c 32  32 33 38 2c 32 32 33 34  |".2241,2238,2234|
00001620  2c 32 32 33 38 2c 32 32  34 31 2c 32 32 33 38 0d  |,2238,2241,2238.|
00001630  0c 76 18 dc 32 32 33 34  2c 32 32 33 38 2c 32 38  |.v..2234,2238,28|
00001640  34 30 2c 32 38 33 35 0d  0c 80 11 dc 32 38 33 32  |40,2835.....2832|
00001650  2c 32 38 33 35 2c 32 38  0d ff                    |,2835,28..|
0000165a