� WORMY1
� by Martin Sann
� (c) The Micro User
(�7:�23;8202;0;0;0;
2C$=�131+�157+�132
<)�1,2,-1,0,0,4,0,0,128,0,-1,-1,128,112
F� s=1�16:s?&37F=0:�:L%=0
P�info:�chars
Z
�"wormy2"
d:
n
��info
x0�big(C$+�s(5)+"W O R M Y   N U M N U M",0,1)
�2�2,5)"Work out the missing number and eat it"
�/�3,6)"by guiding the worm with these keys"
��big("Z = LEFT",9,9)
��big("X = RIGHT",22,9)
��big("/ = DOWN",9,12)
��big(": = UP",22,12)
�1�3,15)"Choose the EASY game or the HARD one"
�0�4,17)"There are eight levels of play and" 
�,�6,18)"three speeds (1 is the slowest)"
�(�big(C$+�s(10)+"PRESS ANY KEY",0,22)
�	G=�:�
�.�big(C$+"1 for the EASY game  "+�156,8,10)
�.�big(C$+"2 for the HARD game  "+�156,8,14)

�:G=�-48:� G>0 � G<3

Z%=G

�

":

,��big(A$,X,Y)

6� line=0�1

@�X,Y+line)�141+A$

J
� line

T�

^:

h��chars

r
?&368=&13

|"�23,48,28,34,65,65,65,65,34,28

��23,49,8,24,8,8,8,8,8,8

�"�23,50,126,1,1,62,64,64,64,127

��23,51,62,65,1,14,1,1,65,62

� �23,52,6,10,18,34,66,255,2,2

�"�23,53,127,64,64,126,1,1,65,62

�#�23,54,62,65,64,126,65,65,65,62

�!�23,55,127,66,4,8,16,32,32,32

�"�23,56,62,65,65,62,65,65,65,62

� �23,57,62,65,65,63,1,1,65,62

�+�23,224,255,255,255,255,255,255,255,255

�%�23,225,24,24,24,255,255,24,24,24

��23,226,0,0,0,255,255,0,0,0

�%�23,227,0,198,108,56,56,108,198,0
#�23,228,24,24,0,255,255,0,24,24
�23,229,0,0,255,0,0,255,0,0
�
:
ݤs(S%)=�S%," ")
�

00000000  0d 00 0a 0c f4 20 57 4f  52 4d 59 31 0d 00 14 14  |..... WORMY1....|
00000010  f4 20 62 79 20 4d 61 72  74 69 6e 20 53 61 6e 6e  |. by Martin Sann|
00000020  0d 00 1e 18 f4 20 28 63  29 20 54 68 65 20 4d 69  |..... (c) The Mi|
00000030  63 72 6f 20 55 73 65 72  0d 00 28 16 eb 37 3a ef  |cro User..(..7:.|
00000040  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 00  |23;8202;0;0;0;..|
00000050  32 15 43 24 3d bd 31 33  31 2b bd 31 35 37 2b bd  |2.C$=.131+.157+.|
00000060  31 33 32 0d 00 3c 29 e2  31 2c 32 2c 2d 31 2c 30  |132..<).1,2,-1,0|
00000070  2c 30 2c 34 2c 30 2c 30  2c 31 32 38 2c 30 2c 2d  |,0,4,0,0,128,0,-|
00000080  31 2c 2d 31 2c 31 32 38  2c 31 31 32 0d 00 46 1c  |1,-1,128,112..F.|
00000090  e3 20 73 3d 31 b8 31 36  3a 73 3f 26 33 37 46 3d  |. s=1.16:s?&37F=|
000000a0  30 3a ed 3a 4c 25 3d 30  0d 00 50 10 f2 69 6e 66  |0:.:L%=0..P..inf|
000000b0  6f 3a f2 63 68 61 72 73  0d 00 5a 0d d7 22 77 6f  |o:.chars..Z.."wo|
000000c0  72 6d 79 32 22 0d 00 64  05 3a 0d 00 6e 0a dd f2  |rmy2"..d.:..n...|
000000d0  69 6e 66 6f 0d 00 78 30  f2 62 69 67 28 43 24 2b  |info..x0.big(C$+|
000000e0  a4 73 28 35 29 2b 22 57  20 4f 20 52 20 4d 20 59  |.s(5)+"W O R M Y|
000000f0  20 20 20 4e 20 55 20 4d  20 4e 20 55 20 4d 22 2c  |   N U M N U M",|
00000100  30 2c 31 29 0d 00 82 32  f1 8a 32 2c 35 29 22 57  |0,1)...2..2,5)"W|
00000110  6f 72 6b 20 6f 75 74 20  74 68 65 20 6d 69 73 73  |ork out the miss|
00000120  69 6e 67 20 6e 75 6d 62  65 72 20 61 6e 64 20 65  |ing number and e|
00000130  61 74 20 69 74 22 0d 00  8c 2f f1 8a 33 2c 36 29  |at it".../..3,6)|
00000140  22 62 79 20 67 75 69 64  69 6e 67 20 74 68 65 20  |"by guiding the |
00000150  77 6f 72 6d 20 77 69 74  68 20 74 68 65 73 65 20  |worm with these |
00000160  6b 65 79 73 22 0d 00 96  18 f2 62 69 67 28 22 5a  |keys".....big("Z|
00000170  20 3d 20 4c 45 46 54 22  2c 39 2c 39 29 0d 00 a0  | = LEFT",9,9)...|
00000180  1a f2 62 69 67 28 22 58  20 3d 20 52 49 47 48 54  |..big("X = RIGHT|
00000190  22 2c 32 32 2c 39 29 0d  00 aa 19 f2 62 69 67 28  |",22,9).....big(|
000001a0  22 2f 20 3d 20 44 4f 57  4e 22 2c 39 2c 31 32 29  |"/ = DOWN",9,12)|
000001b0  0d 00 b4 18 f2 62 69 67  28 22 3a 20 3d 20 55 50  |.....big(": = UP|
000001c0  22 2c 32 32 2c 31 32 29  0d 00 be 31 f1 8a 33 2c  |",22,12)...1..3,|
000001d0  31 35 29 22 43 68 6f 6f  73 65 20 74 68 65 20 45  |15)"Choose the E|
000001e0  41 53 59 20 67 61 6d 65  20 6f 72 20 74 68 65 20  |ASY game or the |
000001f0  48 41 52 44 20 6f 6e 65  22 0d 00 c8 30 f1 8a 34  |HARD one"...0..4|
00000200  2c 31 37 29 22 54 68 65  72 65 20 61 72 65 20 65  |,17)"There are e|
00000210  69 67 68 74 20 6c 65 76  65 6c 73 20 6f 66 20 70  |ight levels of p|
00000220  6c 61 79 20 61 6e 64 22  20 0d 00 d2 2c f1 8a 36  |lay and" ...,..6|
00000230  2c 31 38 29 22 74 68 72  65 65 20 73 70 65 65 64  |,18)"three speed|
00000240  73 20 28 31 20 69 73 20  74 68 65 20 73 6c 6f 77  |s (1 is the slow|
00000250  65 73 74 29 22 0d 00 dc  28 f2 62 69 67 28 43 24  |est)"...(.big(C$|
00000260  2b a4 73 28 31 30 29 2b  22 50 52 45 53 53 20 41  |+.s(10)+"PRESS A|
00000270  4e 59 20 4b 45 59 22 2c  30 2c 32 32 29 0d 00 e6  |NY KEY",0,22)...|
00000280  09 47 3d a5 3a db 0d 00  f0 2e f2 62 69 67 28 43  |.G=.:......big(C|
00000290  24 2b 22 31 20 66 6f 72  20 74 68 65 20 45 41 53  |$+"1 for the EAS|
000002a0  59 20 67 61 6d 65 20 20  22 2b bd 31 35 36 2c 38  |Y game  "+.156,8|
000002b0  2c 31 30 29 0d 00 fa 2e  f2 62 69 67 28 43 24 2b  |,10).....big(C$+|
000002c0  22 32 20 66 6f 72 20 74  68 65 20 48 41 52 44 20  |"2 for the HARD |
000002d0  67 61 6d 65 20 20 22 2b  bd 31 35 36 2c 38 2c 31  |game  "+.156,8,1|
000002e0  34 29 0d 01 04 18 f5 3a  47 3d a5 2d 34 38 3a fd  |4).....:G=.-48:.|
000002f0  20 47 3e 30 20 80 20 47  3c 33 0d 01 0e 08 5a 25  | G>0 . G<3....Z%|
00000300  3d 47 0d 01 18 05 e1 0d  01 22 05 3a 0d 01 2c 11  |=G.......".:..,.|
00000310  dd f2 62 69 67 28 41 24  2c 58 2c 59 29 0d 01 36  |..big(A$,X,Y)..6|
00000320  0e e3 20 6c 69 6e 65 3d  30 b8 31 0d 01 40 16 f1  |.. line=0.1..@..|
00000330  8a 58 2c 59 2b 6c 69 6e  65 29 bd 31 34 31 2b 41  |.X,Y+line).141+A|
00000340  24 0d 01 4a 0a ed 20 6c  69 6e 65 0d 01 54 05 e1  |$..J.. line..T..|
00000350  0d 01 5e 05 3a 0d 01 68  0b dd f2 63 68 61 72 73  |..^.:..h...chars|
00000360  0d 01 72 0d 3f 26 33 36  38 3d 26 31 33 0d 01 7c  |..r.?&368=&13..||
00000370  22 ef 32 33 2c 34 38 2c  32 38 2c 33 34 2c 36 35  |".23,48,28,34,65|
00000380  2c 36 35 2c 36 35 2c 36  35 2c 33 34 2c 32 38 0d  |,65,65,65,34,28.|
00000390  01 86 1b ef 32 33 2c 34  39 2c 38 2c 32 34 2c 38  |....23,49,8,24,8|
000003a0  2c 38 2c 38 2c 38 2c 38  2c 38 0d 01 90 22 ef 32  |,8,8,8,8,8...".2|
000003b0  33 2c 35 30 2c 31 32 36  2c 31 2c 31 2c 36 32 2c  |3,50,126,1,1,62,|
000003c0  36 34 2c 36 34 2c 36 34  2c 31 32 37 0d 01 9a 1f  |64,64,64,127....|
000003d0  ef 32 33 2c 35 31 2c 36  32 2c 36 35 2c 31 2c 31  |.23,51,62,65,1,1|
000003e0  34 2c 31 2c 31 2c 36 35  2c 36 32 0d 01 a4 20 ef  |4,1,1,65,62... .|
000003f0  32 33 2c 35 32 2c 36 2c  31 30 2c 31 38 2c 33 34  |23,52,6,10,18,34|
00000400  2c 36 36 2c 32 35 35 2c  32 2c 32 0d 01 ae 22 ef  |,66,255,2,2...".|
00000410  32 33 2c 35 33 2c 31 32  37 2c 36 34 2c 36 34 2c  |23,53,127,64,64,|
00000420  31 32 36 2c 31 2c 31 2c  36 35 2c 36 32 0d 01 b8  |126,1,1,65,62...|
00000430  23 ef 32 33 2c 35 34 2c  36 32 2c 36 35 2c 36 34  |#.23,54,62,65,64|
00000440  2c 31 32 36 2c 36 35 2c  36 35 2c 36 35 2c 36 32  |,126,65,65,65,62|
00000450  0d 01 c2 21 ef 32 33 2c  35 35 2c 31 32 37 2c 36  |...!.23,55,127,6|
00000460  36 2c 34 2c 38 2c 31 36  2c 33 32 2c 33 32 2c 33  |6,4,8,16,32,32,3|
00000470  32 0d 01 cc 22 ef 32 33  2c 35 36 2c 36 32 2c 36  |2...".23,56,62,6|
00000480  35 2c 36 35 2c 36 32 2c  36 35 2c 36 35 2c 36 35  |5,65,62,65,65,65|
00000490  2c 36 32 0d 01 d6 20 ef  32 33 2c 35 37 2c 36 32  |,62... .23,57,62|
000004a0  2c 36 35 2c 36 35 2c 36  33 2c 31 2c 31 2c 36 35  |,65,65,63,1,1,65|
000004b0  2c 36 32 0d 01 e0 2b ef  32 33 2c 32 32 34 2c 32  |,62...+.23,224,2|
000004c0  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
000004d0  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 0d 01  |55,255,255,255..|
000004e0  ea 25 ef 32 33 2c 32 32  35 2c 32 34 2c 32 34 2c  |.%.23,225,24,24,|
000004f0  32 34 2c 32 35 35 2c 32  35 35 2c 32 34 2c 32 34  |24,255,255,24,24|
00000500  2c 32 34 0d 01 f4 1f ef  32 33 2c 32 32 36 2c 30  |,24.....23,226,0|
00000510  2c 30 2c 30 2c 32 35 35  2c 32 35 35 2c 30 2c 30  |,0,0,255,255,0,0|
00000520  2c 30 0d 01 fe 25 ef 32  33 2c 32 32 37 2c 30 2c  |,0...%.23,227,0,|
00000530  31 39 38 2c 31 30 38 2c  35 36 2c 35 36 2c 31 30  |198,108,56,56,10|
00000540  38 2c 31 39 38 2c 30 0d  02 08 23 ef 32 33 2c 32  |8,198,0...#.23,2|
00000550  32 38 2c 32 34 2c 32 34  2c 30 2c 32 35 35 2c 32  |28,24,24,0,255,2|
00000560  35 35 2c 30 2c 32 34 2c  32 34 0d 02 12 1f ef 32  |55,0,24,24.....2|
00000570  33 2c 32 32 39 2c 30 2c  30 2c 32 35 35 2c 30 2c  |3,229,0,0,255,0,|
00000580  30 2c 32 35 35 2c 30 2c  30 0d 02 1c 05 e1 0d 02  |0,255,0,0.......|
00000590  1d 05 3a 0d 02 1e 14 dd  a4 73 28 53 25 29 3d c4  |..:......s(S%)=.|
000005a0  53 25 2c 22 20 22 29 0d  ff                       |S%," ")..|
000005a9