d#� Snazzy Snake, by David Vines.
n� � � �dz@
x�6
��23,1,0;0;0;0;:*FX4,1
�	�INIT
��
��SETUP:�SCREEN
��:�SNAKE:�NUMBER
�$� FINISHED% � (�>6000 � timer=1)
��ENDGAME
�
� �END
��CLEANUP:�6
��
� 
�� ERROR HANDLING
��CLEANUP

�:� �>0 � �" at line ";�

�

 

"
��INIT

,HIGHSCORE%=0:*FX11,0

6+max%=500:�xpos%(max%),ypos%(max%),D$(4)

@,� 23,255,255,255,255,255,255,255,255,255

J2� 23,235,24,60,126,219,24,24,24,0:D$(1)=�(235)

T2� 23,234,0,24,24,24,219,126,60,24:D$(3)=�(234)

^-� 23,233,8,12,6,127,6,12,8,0:D$(2)=�(233)

h1� 23,232,16,48,96,254,96,48,16,0:D$(4)=�(232)

mU � �12,12)"Timer on (Y/N)?":k$=�:� k$="N" � timer=0 � � k$="Y" � timer=1 � � �DmA

r�INSTRUCTIONS

|�

���INSTRUCTIONS

��

�+�''�(5)"SNAZZY SNAKE,   By David Vines"

�-�''"  This is a game for one player. The"

�-�"game represents a snake, trapped in an"

�,�"enclosed area, who has to keep eating"

�*�"in order to survive. The snake eats"

��"his food by hitting it."

�.�"  The snake is controlled by the cursor"

�5�"keys. The """;D$(4);""" key turns the snake to"

�2�"its left, the """;D$(2);""" key turns it to"

�-�"its right. The snake initially has one"
+�"minute to survive, but each piece of"
*�"food he eats means that he can live"
.�"longer. The score is the total value of"
&�"food eaten by the snake."
0%�'''�(9)"PRESS ANY KEY TO START";
:DUMMY=�
D�
N 
X��SETUP
b-SCORE%=0:�=0:NX%=4:NY%=4:value%=0:Head%=2
l+Length%=2:Real_Length%=2:Tail%=0:DIR%=1
vFINISHED%=�:REASON$=""
�5xpos%(Head%)=19:ypos%(Head%)=10:xpos%(Head%-1)=19
�6 ypos%(Head%-1)=11:xpos%(Tail%)=19:ypos%(Tail%)=12
��
� 
���SCREEN
��:�TOPLINE:�
�� I=1 � 39:�255:�
�(� J=2 � 21:�31,0,J,255,31,38,J,255:�
��0,22);:�I%=1 � 39:�255:�
�*� 31,19,10,235,31,19,11,42,31,19,12,42
��
� 
���SNAKE
�TOPLINE
"I$=�(0):� I$<>"" � �NEWDIR(I$)
f� Length%=Real_Length% � �POKE(xpos%(Tail%),ypos%(Tail%)," "):Tail%=Tail%+1:� Tail%>max% � Tail%=0
 8� Length%>Real_Length% � Real_Length%=Real_Length%+1
*5OHead%=Head%:Head%=Head%+1:� Head%>max% � Head%=0
4T� DIR%=1 � �add(0,-1) � � DIR%=2 � �add(1,0) � � DIR%=3 � �add(0,1) � �add(-1,0)
>'A%=�PEEK(xpos%(Head%),ypos%(Head%))
HQ� A%=255 � FINISHED%=�:REASON$="WALL" � � A%=126 � FINISHED%=�:REASON$="SELF"
R*�POKE(xpos%(OHead%),ypos%(OHead%),"*")
\-�POKE(xpos%(Head%),ypos%(Head%),D$(DIR%))
f� A%<>48 � �
p� I%=value%-1 � 0 � -1
z*�POKE(NX%,NY%,�(I%)):Length%=Length%+1
��WAIT(0.05):SCORE%=SCORE%+1
��=�-57:�TOPLINE
��
�value%=0
��
� 
���NEWDIR(I$)
�-� I$=�(&89)�DIR%=DIR%+1:� DIR%=5 � DIR%=1
�-� I$=�(&88)�DIR%=DIR%-1:� DIR%=0 � DIR%=4
��
� 
���add(x%,y%)
�?xpos%(Head%)=xpos%(OHead%)+x%:ypos%(Head%)=ypos%(OHead%)+y%
�
 
��NUMBER
$� value%<>0 � �(120)<>1 � �
.� I%=-1 � 1:� J%=-1 � 1
8L� NX%+I%<>xpos%(Head%) � NY%+J%<>ypos%(Head%) � �POKE(NX%+I%,NY%+J%," ")
B�,
L�
V% NX%=�(35)+1:NY%=�(16)+2:valid%=�
`� I%=-1 � 1:� J%=-1 � 1
j,valid%=valid% � (�PEEK(NX%+I%,NY%+J%)=0)
t�,
~!� valid% � (�>6000 � timer=1)
�� �>6000 � timer=1 � �
�value%=�(9)
�� I%=-1 � 1:� J%=-1 � 1
��POKE(NX%+I%,NY%+J%,"`")
��,
��POKE(NX%,NY%,�(value%))
��
� 
�
��ENDGAME
��28,4,17,36,8:�
��10,3);" GAME OVER "
�?� REASON$="WALL" � �0,1);" YOU'VE HIT A SIDE - OH DEAR ! "
C � REASON$="SELF" � �0,1);" YOU'VE HIT YOURSELF - A BAD MOVE "

,� timer=1 � �>6000 � �11,1);" TIME UP "
4�WAIT(1):� SCORE%>HIGHSCORE% � HIGHSCORE%=SCORE%
�
( 
2� �END:� B$
</�0,6);" ANOTHER GAME? (PRESS 'Y' OR 'N') "
F0�0,8);" (PRESS 'I' FOR INSTRUCTIONS) ":� 26
P�
ZB$=�
d,� B$="I" � B$="i" � �INSTRUCTIONS:B$="Y"
n� �"YyNn",B$)
x=B$="N" � B$="n"
�
��TOPLINE
��0,1);"SCORE= ";SCORE%;
�B� timer=1 � �" TIME= ";:@%=&20205:�;60-�/100;:@%=10 � � �(10);
�#�" HIGH SCORE=";HIGHSCORE%;" ";
��
� 
�%� �PEEK(X%,Y%)=?(�+Y%*320+X%*8+2)
� 
���POKE(X%,Y%,X$)
��31,X%,Y%,�(X$)
��
� 
��WAIT(T):� oldtime

oldtime=�
� � �-oldtime>T*100
"�
, 
6
��CLEANUP
@*FX 12,0
J
*FX4,0
T	@%=10
^�
�

00000000  0d 00 64 23 f4 20 53 6e  61 7a 7a 79 20 53 6e 61  |..d#. Snazzy Sna|
00000010  6b 65 2c 20 62 79 20 44  61 76 69 64 20 56 69 6e  |ke, by David Vin|
00000020  65 73 2e 0d 00 6e 0e ee  20 85 20 e5 20 8d 64 7a  |es...n.. . . .dz|
00000030  40 0d 00 78 06 eb 36 0d  00 82 19 ef 32 33 2c 31  |@..x..6.....23,1|
00000040  2c 30 3b 30 3b 30 3b 30  3b 3a 2a 46 58 34 2c 31  |,0;0;0;0;:*FX4,1|
00000050  0d 00 8c 09 f2 49 4e 49  54 0d 00 96 05 f5 0d 00  |.....INIT.......|
00000060  a0 12 f2 53 45 54 55 50  3a f2 53 43 52 45 45 4e  |...SETUP:.SCREEN|
00000070  0d 00 aa 14 f5 3a f2 53  4e 41 4b 45 3a f2 4e 55  |.....:.SNAKE:.NU|
00000080  4d 42 45 52 0d 00 b4 24  fd 20 46 49 4e 49 53 48  |MBER...$. FINISH|
00000090  45 44 25 20 84 20 28 91  3e 36 30 30 30 20 80 20  |ED% . (.>6000 . |
000000a0  74 69 6d 65 72 3d 31 29  0d 00 be 0c f2 45 4e 44  |timer=1).....END|
000000b0  47 41 4d 45 0d 00 c8 0a  fd 20 a4 45 4e 44 0d 00  |GAME..... .END..|
000000c0  d2 0f f2 43 4c 45 41 4e  55 50 3a eb 36 0d 00 dc  |...CLEANUP:.6...|
000000d0  05 e0 0d 00 e6 05 20 0d  00 f0 14 f4 20 45 52 52  |...... ..... ERR|
000000e0  4f 52 20 48 41 4e 44 4c  49 4e 47 0d 00 fa 0c f2  |OR HANDLING.....|
000000f0  43 4c 45 41 4e 55 50 0d  01 04 1c f6 3a e7 20 9e  |CLEANUP.....:. .|
00000100  3e 30 20 8c 20 f1 22 20  61 74 20 6c 69 6e 65 20  |>0 . ." at line |
00000110  22 3b 9e 0d 01 0e 05 e0  0d 01 18 05 20 0d 01 22  |";.......... .."|
00000120  0a dd f2 49 4e 49 54 0d  01 2c 18 48 49 47 48 53  |...INIT..,.HIGHS|
00000130  43 4f 52 45 25 3d 30 3a  2a 46 58 31 31 2c 30 0d  |CORE%=0:*FX11,0.|
00000140  01 36 2b 6d 61 78 25 3d  35 30 30 3a de 78 70 6f  |.6+max%=500:.xpo|
00000150  73 25 28 6d 61 78 25 29  2c 79 70 6f 73 25 28 6d  |s%(max%),ypos%(m|
00000160  61 78 25 29 2c 44 24 28  34 29 0d 01 40 2c ef 20  |ax%),D$(4)..@,. |
00000170  32 33 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |23,255,255,255,2|
00000180  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
00000190  35 35 2c 32 35 35 0d 01  4a 32 ef 20 32 33 2c 32  |55,255..J2. 23,2|
000001a0  33 35 2c 32 34 2c 36 30  2c 31 32 36 2c 32 31 39  |35,24,60,126,219|
000001b0  2c 32 34 2c 32 34 2c 32  34 2c 30 3a 44 24 28 31  |,24,24,24,0:D$(1|
000001c0  29 3d bd 28 32 33 35 29  0d 01 54 32 ef 20 32 33  |)=.(235)..T2. 23|
000001d0  2c 32 33 34 2c 30 2c 32  34 2c 32 34 2c 32 34 2c  |,234,0,24,24,24,|
000001e0  32 31 39 2c 31 32 36 2c  36 30 2c 32 34 3a 44 24  |219,126,60,24:D$|
000001f0  28 33 29 3d bd 28 32 33  34 29 0d 01 5e 2d ef 20  |(3)=.(234)..^-. |
00000200  32 33 2c 32 33 33 2c 38  2c 31 32 2c 36 2c 31 32  |23,233,8,12,6,12|
00000210  37 2c 36 2c 31 32 2c 38  2c 30 3a 44 24 28 32 29  |7,6,12,8,0:D$(2)|
00000220  3d bd 28 32 33 33 29 0d  01 68 31 ef 20 32 33 2c  |=.(233)..h1. 23,|
00000230  32 33 32 2c 31 36 2c 34  38 2c 39 36 2c 32 35 34  |232,16,48,96,254|
00000240  2c 39 36 2c 34 38 2c 31  36 2c 30 3a 44 24 28 34  |,96,48,16,0:D$(4|
00000250  29 3d bd 28 32 33 32 29  0d 01 6d 55 20 f1 20 8a  |)=.(232)..mU . .|
00000260  31 32 2c 31 32 29 22 54  69 6d 65 72 20 6f 6e 20  |12,12)"Timer on |
00000270  28 59 2f 4e 29 3f 22 3a  6b 24 3d be 3a e7 20 6b  |(Y/N)?":k$=.:. k|
00000280  24 3d 22 4e 22 20 8c 20  74 69 6d 65 72 3d 30 20  |$="N" . timer=0 |
00000290  8b 20 e7 20 6b 24 3d 22  59 22 20 8c 20 74 69 6d  |. . k$="Y" . tim|
000002a0  65 72 3d 31 20 8b 20 e5  20 8d 44 6d 41 0d 01 72  |er=1 . . .DmA..r|
000002b0  11 f2 49 4e 53 54 52 55  43 54 49 4f 4e 53 0d 01  |..INSTRUCTIONS..|
000002c0  7c 05 e1 0d 01 90 12 dd  f2 49 4e 53 54 52 55 43  ||........INSTRUC|
000002d0  54 49 4f 4e 53 0d 01 9a  05 db 0d 01 a4 2b f1 27  |TIONS........+.'|
000002e0  27 89 28 35 29 22 53 4e  41 5a 5a 59 20 53 4e 41  |'.(5)"SNAZZY SNA|
000002f0  4b 45 2c 20 20 20 42 79  20 44 61 76 69 64 20 56  |KE,   By David V|
00000300  69 6e 65 73 22 0d 01 ae  2d f1 27 27 22 20 20 54  |ines"...-.''"  T|
00000310  68 69 73 20 69 73 20 61  20 67 61 6d 65 20 66 6f  |his is a game fo|
00000320  72 20 6f 6e 65 20 70 6c  61 79 65 72 2e 20 54 68  |r one player. Th|
00000330  65 22 0d 01 b8 2d f1 22  67 61 6d 65 20 72 65 70  |e"...-."game rep|
00000340  72 65 73 65 6e 74 73 20  61 20 73 6e 61 6b 65 2c  |resents a snake,|
00000350  20 74 72 61 70 70 65 64  20 69 6e 20 61 6e 22 0d  | trapped in an".|
00000360  01 c2 2c f1 22 65 6e 63  6c 6f 73 65 64 20 61 72  |..,."enclosed ar|
00000370  65 61 2c 20 77 68 6f 20  68 61 73 20 74 6f 20 6b  |ea, who has to k|
00000380  65 65 70 20 65 61 74 69  6e 67 22 0d 01 cc 2a f1  |eep eating"...*.|
00000390  22 69 6e 20 6f 72 64 65  72 20 74 6f 20 73 75 72  |"in order to sur|
000003a0  76 69 76 65 2e 20 54 68  65 20 73 6e 61 6b 65 20  |vive. The snake |
000003b0  65 61 74 73 22 0d 01 d6  1e f1 22 68 69 73 20 66  |eats"....."his f|
000003c0  6f 6f 64 20 62 79 20 68  69 74 74 69 6e 67 20 69  |ood by hitting i|
000003d0  74 2e 22 0d 01 e0 2e f1  22 20 20 54 68 65 20 73  |t."....."  The s|
000003e0  6e 61 6b 65 20 69 73 20  63 6f 6e 74 72 6f 6c 6c  |nake is controll|
000003f0  65 64 20 62 79 20 74 68  65 20 63 75 72 73 6f 72  |ed by the cursor|
00000400  22 0d 01 ea 35 f1 22 6b  65 79 73 2e 20 54 68 65  |"...5."keys. The|
00000410  20 22 22 22 3b 44 24 28  34 29 3b 22 22 22 20 6b  | """;D$(4);""" k|
00000420  65 79 20 74 75 72 6e 73  20 74 68 65 20 73 6e 61  |ey turns the sna|
00000430  6b 65 20 74 6f 22 0d 01  f4 32 f1 22 69 74 73 20  |ke to"...2."its |
00000440  6c 65 66 74 2c 20 74 68  65 20 22 22 22 3b 44 24  |left, the """;D$|
00000450  28 32 29 3b 22 22 22 20  6b 65 79 20 74 75 72 6e  |(2);""" key turn|
00000460  73 20 69 74 20 74 6f 22  0d 01 fe 2d f1 22 69 74  |s it to"...-."it|
00000470  73 20 72 69 67 68 74 2e  20 54 68 65 20 73 6e 61  |s right. The sna|
00000480  6b 65 20 69 6e 69 74 69  61 6c 6c 79 20 68 61 73  |ke initially has|
00000490  20 6f 6e 65 22 0d 02 08  2b f1 22 6d 69 6e 75 74  | one"...+."minut|
000004a0  65 20 74 6f 20 73 75 72  76 69 76 65 2c 20 62 75  |e to survive, bu|
000004b0  74 20 65 61 63 68 20 70  69 65 63 65 20 6f 66 22  |t each piece of"|
000004c0  0d 02 12 2a f1 22 66 6f  6f 64 20 68 65 20 65 61  |...*."food he ea|
000004d0  74 73 20 6d 65 61 6e 73  20 74 68 61 74 20 68 65  |ts means that he|
000004e0  20 63 61 6e 20 6c 69 76  65 22 0d 02 1c 2e f1 22  | can live"....."|
000004f0  6c 6f 6e 67 65 72 2e 20  54 68 65 20 73 63 6f 72  |longer. The scor|
00000500  65 20 69 73 20 74 68 65  20 74 6f 74 61 6c 20 76  |e is the total v|
00000510  61 6c 75 65 20 6f 66 22  0d 02 26 1f f1 22 66 6f  |alue of"..&.."fo|
00000520  6f 64 20 65 61 74 65 6e  20 62 79 20 74 68 65 20  |od eaten by the |
00000530  73 6e 61 6b 65 2e 22 0d  02 30 25 f1 27 27 27 89  |snake."..0%.'''.|
00000540  28 39 29 22 50 52 45 53  53 20 41 4e 59 20 4b 45  |(9)"PRESS ANY KE|
00000550  59 20 54 4f 20 53 54 41  52 54 22 3b 0d 02 3a 0b  |Y TO START";..:.|
00000560  44 55 4d 4d 59 3d a5 0d  02 44 05 e1 0d 02 4e 05  |DUMMY=...D....N.|
00000570  20 0d 02 58 0b dd f2 53  45 54 55 50 0d 02 62 2d  | ..X...SETUP..b-|
00000580  53 43 4f 52 45 25 3d 30  3a d1 3d 30 3a 4e 58 25  |SCORE%=0:.=0:NX%|
00000590  3d 34 3a 4e 59 25 3d 34  3a 76 61 6c 75 65 25 3d  |=4:NY%=4:value%=|
000005a0  30 3a 48 65 61 64 25 3d  32 0d 02 6c 2b 4c 65 6e  |0:Head%=2..l+Len|
000005b0  67 74 68 25 3d 32 3a 52  65 61 6c 5f 4c 65 6e 67  |gth%=2:Real_Leng|
000005c0  74 68 25 3d 32 3a 54 61  69 6c 25 3d 30 3a 44 49  |th%=2:Tail%=0:DI|
000005d0  52 25 3d 31 0d 02 76 1a  46 49 4e 49 53 48 45 44  |R%=1..v.FINISHED|
000005e0  25 3d a3 3a 52 45 41 53  4f 4e 24 3d 22 22 0d 02  |%=.:REASON$=""..|
000005f0  80 35 78 70 6f 73 25 28  48 65 61 64 25 29 3d 31  |.5xpos%(Head%)=1|
00000600  39 3a 79 70 6f 73 25 28  48 65 61 64 25 29 3d 31  |9:ypos%(Head%)=1|
00000610  30 3a 78 70 6f 73 25 28  48 65 61 64 25 2d 31 29  |0:xpos%(Head%-1)|
00000620  3d 31 39 0d 02 8a 36 20  79 70 6f 73 25 28 48 65  |=19...6 ypos%(He|
00000630  61 64 25 2d 31 29 3d 31  31 3a 78 70 6f 73 25 28  |ad%-1)=11:xpos%(|
00000640  54 61 69 6c 25 29 3d 31  39 3a 79 70 6f 73 25 28  |Tail%)=19:ypos%(|
00000650  54 61 69 6c 25 29 3d 31  32 0d 02 94 05 e1 0d 02  |Tail%)=12.......|
00000660  9e 05 20 0d 02 a8 0c dd  f2 53 43 52 45 45 4e 0d  |.. ......SCREEN.|
00000670  02 b2 10 db 3a f2 54 4f  50 4c 49 4e 45 3a f1 0d  |....:.TOPLINE:..|
00000680  02 bc 15 e3 20 49 3d 31  20 b8 20 33 39 3a ef 32  |.... I=1 . 39:.2|
00000690  35 35 3a ed 0d 02 c6 28  e3 20 4a 3d 32 20 b8 20  |55:....(. J=2 . |
000006a0  32 31 3a ef 33 31 2c 30  2c 4a 2c 32 35 35 2c 33  |21:.31,0,J,255,3|
000006b0  31 2c 33 38 2c 4a 2c 32  35 35 3a ed 0d 02 d0 1e  |1,38,J,255:.....|
000006c0  f1 8a 30 2c 32 32 29 3b  3a e3 49 25 3d 31 20 b8  |..0,22);:.I%=1 .|
000006d0  20 33 39 3a ef 32 35 35  3a ed 0d 02 da 2a ef 20  | 39:.255:....*. |
000006e0  33 31 2c 31 39 2c 31 30  2c 32 33 35 2c 33 31 2c  |31,19,10,235,31,|
000006f0  31 39 2c 31 31 2c 34 32  2c 33 31 2c 31 39 2c 31  |19,11,42,31,19,1|
00000700  32 2c 34 32 0d 02 e4 05  e1 0d 02 ee 05 20 0d 02  |2,42......... ..|
00000710  f8 0b dd f2 53 4e 41 4b  45 0d 03 02 0c f2 54 4f  |....SNAKE.....TO|
00000720  50 4c 49 4e 45 0d 03 0c  22 49 24 3d bf 28 30 29  |PLINE..."I$=.(0)|
00000730  3a e7 20 49 24 3c 3e 22  22 20 8c 20 f2 4e 45 57  |:. I$<>"" . .NEW|
00000740  44 49 52 28 49 24 29 0d  03 16 66 e7 20 4c 65 6e  |DIR(I$)...f. Len|
00000750  67 74 68 25 3d 52 65 61  6c 5f 4c 65 6e 67 74 68  |gth%=Real_Length|
00000760  25 20 8c 20 f2 50 4f 4b  45 28 78 70 6f 73 25 28  |% . .POKE(xpos%(|
00000770  54 61 69 6c 25 29 2c 79  70 6f 73 25 28 54 61 69  |Tail%),ypos%(Tai|
00000780  6c 25 29 2c 22 20 22 29  3a 54 61 69 6c 25 3d 54  |l%)," "):Tail%=T|
00000790  61 69 6c 25 2b 31 3a e7  20 54 61 69 6c 25 3e 6d  |ail%+1:. Tail%>m|
000007a0  61 78 25 20 8c 20 54 61  69 6c 25 3d 30 0d 03 20  |ax% . Tail%=0.. |
000007b0  38 e7 20 4c 65 6e 67 74  68 25 3e 52 65 61 6c 5f  |8. Length%>Real_|
000007c0  4c 65 6e 67 74 68 25 20  8c 20 52 65 61 6c 5f 4c  |Length% . Real_L|
000007d0  65 6e 67 74 68 25 3d 52  65 61 6c 5f 4c 65 6e 67  |ength%=Real_Leng|
000007e0  74 68 25 2b 31 0d 03 2a  35 4f 48 65 61 64 25 3d  |th%+1..*5OHead%=|
000007f0  48 65 61 64 25 3a 48 65  61 64 25 3d 48 65 61 64  |Head%:Head%=Head|
00000800  25 2b 31 3a e7 20 48 65  61 64 25 3e 6d 61 78 25  |%+1:. Head%>max%|
00000810  20 8c 20 48 65 61 64 25  3d 30 0d 03 34 54 e7 20  | . Head%=0..4T. |
00000820  44 49 52 25 3d 31 20 8c  20 f2 61 64 64 28 30 2c  |DIR%=1 . .add(0,|
00000830  2d 31 29 20 8b 20 e7 20  44 49 52 25 3d 32 20 8c  |-1) . . DIR%=2 .|
00000840  20 f2 61 64 64 28 31 2c  30 29 20 8b 20 e7 20 44  | .add(1,0) . . D|
00000850  49 52 25 3d 33 20 8c 20  f2 61 64 64 28 30 2c 31  |IR%=3 . .add(0,1|
00000860  29 20 8b 20 f2 61 64 64  28 2d 31 2c 30 29 0d 03  |) . .add(-1,0)..|
00000870  3e 27 41 25 3d a4 50 45  45 4b 28 78 70 6f 73 25  |>'A%=.PEEK(xpos%|
00000880  28 48 65 61 64 25 29 2c  79 70 6f 73 25 28 48 65  |(Head%),ypos%(He|
00000890  61 64 25 29 29 0d 03 48  51 e7 20 41 25 3d 32 35  |ad%))..HQ. A%=25|
000008a0  35 20 8c 20 46 49 4e 49  53 48 45 44 25 3d b9 3a  |5 . FINISHED%=.:|
000008b0  52 45 41 53 4f 4e 24 3d  22 57 41 4c 4c 22 20 8b  |REASON$="WALL" .|
000008c0  20 e7 20 41 25 3d 31 32  36 20 8c 20 46 49 4e 49  | . A%=126 . FINI|
000008d0  53 48 45 44 25 3d b9 3a  52 45 41 53 4f 4e 24 3d  |SHED%=.:REASON$=|
000008e0  22 53 45 4c 46 22 0d 03  52 2a f2 50 4f 4b 45 28  |"SELF"..R*.POKE(|
000008f0  78 70 6f 73 25 28 4f 48  65 61 64 25 29 2c 79 70  |xpos%(OHead%),yp|
00000900  6f 73 25 28 4f 48 65 61  64 25 29 2c 22 2a 22 29  |os%(OHead%),"*")|
00000910  0d 03 5c 2d f2 50 4f 4b  45 28 78 70 6f 73 25 28  |..\-.POKE(xpos%(|
00000920  48 65 61 64 25 29 2c 79  70 6f 73 25 28 48 65 61  |Head%),ypos%(Hea|
00000930  64 25 29 2c 44 24 28 44  49 52 25 29 29 0d 03 66  |d%),D$(DIR%))..f|
00000940  10 e7 20 41 25 3c 3e 34  38 20 8c 20 e1 0d 03 70  |.. A%<>48 . ...p|
00000950  1a e3 20 49 25 3d 76 61  6c 75 65 25 2d 31 20 b8  |.. I%=value%-1 .|
00000960  20 30 20 88 20 2d 31 0d  03 7a 2a f2 50 4f 4b 45  | 0 . -1..z*.POKE|
00000970  28 4e 58 25 2c 4e 59 25  2c c3 28 49 25 29 29 3a  |(NX%,NY%,.(I%)):|
00000980  4c 65 6e 67 74 68 25 3d  4c 65 6e 67 74 68 25 2b  |Length%=Length%+|
00000990  31 0d 03 84 1f f2 57 41  49 54 28 30 2e 30 35 29  |1.....WAIT(0.05)|
000009a0  3a 53 43 4f 52 45 25 3d  53 43 4f 52 45 25 2b 31  |:SCORE%=SCORE%+1|
000009b0  0d 03 8e 13 d1 3d 91 2d  35 37 3a f2 54 4f 50 4c  |.....=.-57:.TOPL|
000009c0  49 4e 45 0d 03 98 05 ed  0d 03 a2 0c 76 61 6c 75  |INE.........valu|
000009d0  65 25 3d 30 0d 03 ac 05  e1 0d 03 b6 05 20 0d 03  |e%=0......... ..|
000009e0  c0 10 dd f2 4e 45 57 44  49 52 28 49 24 29 0d 03  |....NEWDIR(I$)..|
000009f0  ca 2d e7 20 49 24 3d bd  28 26 38 39 29 8c 44 49  |.-. I$=.(&89).DI|
00000a00  52 25 3d 44 49 52 25 2b  31 3a e7 20 44 49 52 25  |R%=DIR%+1:. DIR%|
00000a10  3d 35 20 8c 20 44 49 52  25 3d 31 0d 03 d4 2d e7  |=5 . DIR%=1...-.|
00000a20  20 49 24 3d bd 28 26 38  38 29 8c 44 49 52 25 3d  | I$=.(&88).DIR%=|
00000a30  44 49 52 25 2d 31 3a e7  20 44 49 52 25 3d 30 20  |DIR%-1:. DIR%=0 |
00000a40  8c 20 44 49 52 25 3d 34  0d 03 de 05 e1 0d 03 e8  |. DIR%=4........|
00000a50  05 20 0d 03 f2 10 dd f2  61 64 64 28 78 25 2c 79  |. ......add(x%,y|
00000a60  25 29 0d 03 fc 3f 78 70  6f 73 25 28 48 65 61 64  |%)...?xpos%(Head|
00000a70  25 29 3d 78 70 6f 73 25  28 4f 48 65 61 64 25 29  |%)=xpos%(OHead%)|
00000a80  2b 78 25 3a 79 70 6f 73  25 28 48 65 61 64 25 29  |+x%:ypos%(Head%)|
00000a90  3d 79 70 6f 73 25 28 4f  48 65 61 64 25 29 2b 79  |=ypos%(OHead%)+y|
00000aa0  25 0d 04 06 05 e1 0d 04  10 05 20 0d 04 1a 0c dd  |%......... .....|
00000ab0  f2 4e 55 4d 42 45 52 0d  04 24 1f e7 20 76 61 6c  |.NUMBER..$.. val|
00000ac0  75 65 25 3c 3e 30 20 80  20 b3 28 31 32 30 29 3c  |ue%<>0 . .(120)<|
00000ad0  3e 31 20 8c 20 e1 0d 04  2e 1b e3 20 49 25 3d 2d  |>1 . ...... I%=-|
00000ae0  31 20 b8 20 31 3a e3 20  4a 25 3d 2d 31 20 b8 20  |1 . 1:. J%=-1 . |
00000af0  31 0d 04 38 4c e7 20 4e  58 25 2b 49 25 3c 3e 78  |1..8L. NX%+I%<>x|
00000b00  70 6f 73 25 28 48 65 61  64 25 29 20 84 20 4e 59  |pos%(Head%) . NY|
00000b10  25 2b 4a 25 3c 3e 79 70  6f 73 25 28 48 65 61 64  |%+J%<>ypos%(Head|
00000b20  25 29 20 8c 20 f2 50 4f  4b 45 28 4e 58 25 2b 49  |%) . .POKE(NX%+I|
00000b30  25 2c 4e 59 25 2b 4a 25  2c 22 20 22 29 0d 04 42  |%,NY%+J%," ")..B|
00000b40  06 ed 2c 0d 04 4c 05 f5  0d 04 56 25 20 4e 58 25  |..,..L....V% NX%|
00000b50  3d b3 28 33 35 29 2b 31  3a 4e 59 25 3d b3 28 31  |=.(35)+1:NY%=.(1|
00000b60  36 29 2b 32 3a 76 61 6c  69 64 25 3d b9 0d 04 60  |6)+2:valid%=...`|
00000b70  1b e3 20 49 25 3d 2d 31  20 b8 20 31 3a e3 20 4a  |.. I%=-1 . 1:. J|
00000b80  25 3d 2d 31 20 b8 20 31  0d 04 6a 2c 76 61 6c 69  |%=-1 . 1..j,vali|
00000b90  64 25 3d 76 61 6c 69 64  25 20 80 20 28 a4 50 45  |d%=valid% . (.PE|
00000ba0  45 4b 28 4e 58 25 2b 49  25 2c 4e 59 25 2b 4a 25  |EK(NX%+I%,NY%+J%|
00000bb0  29 3d 30 29 0d 04 74 06  ed 2c 0d 04 7e 21 fd 20  |)=0)..t..,..~!. |
00000bc0  76 61 6c 69 64 25 20 84  20 28 91 3e 36 30 30 30  |valid% . (.>6000|
00000bd0  20 80 20 74 69 6d 65 72  3d 31 29 0d 04 88 1a e7  | . timer=1).....|
00000be0  20 91 3e 36 30 30 30 20  80 20 74 69 6d 65 72 3d  | .>6000 . timer=|
00000bf0  31 20 8c 20 e1 0d 04 92  0f 76 61 6c 75 65 25 3d  |1 . .....value%=|
00000c00  b3 28 39 29 0d 04 9c 1b  e3 20 49 25 3d 2d 31 20  |.(9)..... I%=-1 |
00000c10  b8 20 31 3a e3 20 4a 25  3d 2d 31 20 b8 20 31 0d  |. 1:. J%=-1 . 1.|
00000c20  04 a6 1c f2 50 4f 4b 45  28 4e 58 25 2b 49 25 2c  |....POKE(NX%+I%,|
00000c30  4e 59 25 2b 4a 25 2c 22  60 22 29 0d 04 b0 06 ed  |NY%+J%,"`").....|
00000c40  2c 0d 04 ba 1c f2 50 4f  4b 45 28 4e 58 25 2c 4e  |,.....POKE(NX%,N|
00000c50  59 25 2c c3 28 76 61 6c  75 65 25 29 29 0d 04 c4  |Y%,.(value%))...|
00000c60  05 e1 0d 04 ce 05 20 0d  04 d8 0d dd f2 45 4e 44  |...... ......END|
00000c70  47 41 4d 45 0d 04 e2 13  ef 32 38 2c 34 2c 31 37  |GAME.....28,4,17|
00000c80  2c 33 36 2c 38 3a db 0d  04 ec 19 f1 8a 31 30 2c  |,36,8:.......10,|
00000c90  33 29 3b 22 20 47 41 4d  45 20 4f 56 45 52 20 22  |3);" GAME OVER "|
00000ca0  0d 04 f6 3f e7 20 52 45  41 53 4f 4e 24 3d 22 57  |...?. REASON$="W|
00000cb0  41 4c 4c 22 20 8c 20 f1  8a 30 2c 31 29 3b 22 20  |ALL" . ..0,1);" |
00000cc0  59 4f 55 27 56 45 20 48  49 54 20 41 20 53 49 44  |YOU'VE HIT A SID|
00000cd0  45 20 2d 20 4f 48 20 44  45 41 52 20 21 20 22 0d  |E - OH DEAR ! ".|
00000ce0  05 00 43 20 e7 20 52 45  41 53 4f 4e 24 3d 22 53  |..C . REASON$="S|
00000cf0  45 4c 46 22 20 8c 20 f1  8a 30 2c 31 29 3b 22 20  |ELF" . ..0,1);" |
00000d00  59 4f 55 27 56 45 20 48  49 54 20 59 4f 55 52 53  |YOU'VE HIT YOURS|
00000d10  45 4c 46 20 2d 20 41 20  42 41 44 20 4d 4f 56 45  |ELF - A BAD MOVE|
00000d20  20 22 0d 05 0a 2c e7 20  74 69 6d 65 72 3d 31 20  | "...,. timer=1 |
00000d30  80 20 91 3e 36 30 30 30  20 8c 20 f1 8a 31 31 2c  |. .>6000 . ..11,|
00000d40  31 29 3b 22 20 54 49 4d  45 20 55 50 20 22 0d 05  |1);" TIME UP "..|
00000d50  14 34 f2 57 41 49 54 28  31 29 3a e7 20 53 43 4f  |.4.WAIT(1):. SCO|
00000d60  52 45 25 3e 48 49 47 48  53 43 4f 52 45 25 20 8c  |RE%>HIGHSCORE% .|
00000d70  20 48 49 47 48 53 43 4f  52 45 25 3d 53 43 4f 52  | HIGHSCORE%=SCOR|
00000d80  45 25 0d 05 1e 05 e1 0d  05 28 05 20 0d 05 32 0f  |E%.......(. ..2.|
00000d90  dd 20 a4 45 4e 44 3a ea  20 42 24 0d 05 3c 2f f1  |. .END:. B$..</.|
00000da0  8a 30 2c 36 29 3b 22 20  41 4e 4f 54 48 45 52 20  |.0,6);" ANOTHER |
00000db0  47 41 4d 45 3f 20 28 50  52 45 53 53 20 27 59 27  |GAME? (PRESS 'Y'|
00000dc0  20 4f 52 20 27 4e 27 29  20 22 0d 05 46 30 f1 8a  | OR 'N') "..F0..|
00000dd0  30 2c 38 29 3b 22 20 28  50 52 45 53 53 20 27 49  |0,8);" (PRESS 'I|
00000de0  27 20 46 4f 52 20 49 4e  53 54 52 55 43 54 49 4f  |' FOR INSTRUCTIO|
00000df0  4e 53 29 20 22 3a ef 20  32 36 0d 05 50 05 f5 0d  |NS) ":. 26..P...|
00000e00  05 5a 08 42 24 3d be 0d  05 64 2c e7 20 42 24 3d  |.Z.B$=...d,. B$=|
00000e10  22 49 22 20 84 20 42 24  3d 22 69 22 20 8c 20 f2  |"I" . B$="i" . .|
00000e20  49 4e 53 54 52 55 43 54  49 4f 4e 53 3a 42 24 3d  |INSTRUCTIONS:B$=|
00000e30  22 59 22 0d 05 6e 11 fd  20 a7 22 59 79 4e 6e 22  |"Y"..n.. ."YyNn"|
00000e40  2c 42 24 29 0d 05 78 14  3d 42 24 3d 22 4e 22 20  |,B$)..x.=B$="N" |
00000e50  84 20 42 24 3d 22 6e 22  0d 05 8c 0d dd f2 54 4f  |. B$="n"......TO|
00000e60  50 4c 49 4e 45 0d 05 96  1c f1 8a 30 2c 31 29 3b  |PLINE......0,1);|
00000e70  22 53 43 4f 52 45 3d 20  22 3b 53 43 4f 52 45 25  |"SCORE= ";SCORE%|
00000e80  3b 0d 05 a0 42 e7 20 74  69 6d 65 72 3d 31 20 8c  |;...B. timer=1 .|
00000e90  20 f1 22 20 54 49 4d 45  3d 20 22 3b 3a 40 25 3d  | ." TIME= ";:@%=|
00000ea0  26 32 30 32 30 35 3a f1  3b 36 30 2d 91 2f 31 30  |&20205:.;60-./10|
00000eb0  30 3b 3a 40 25 3d 31 30  20 8b 20 f1 20 89 28 31  |0;:@%=10 . . .(1|
00000ec0  30 29 3b 0d 05 aa 23 f1  22 20 48 49 47 48 20 53  |0);...#." HIGH S|
00000ed0  43 4f 52 45 3d 22 3b 48  49 47 48 53 43 4f 52 45  |CORE=";HIGHSCORE|
00000ee0  25 3b 22 20 22 3b 0d 05  b4 05 e1 0d 05 be 05 20  |%;" ";......... |
00000ef0  0d 05 c8 25 dd 20 a4 50  45 45 4b 28 58 25 2c 59  |...%. .PEEK(X%,Y|
00000f00  25 29 3d 3f 28 93 2b 59  25 2a 33 32 30 2b 58 25  |%)=?(.+Y%*320+X%|
00000f10  2a 38 2b 32 29 0d 05 d2  05 20 0d 05 dc 14 dd f2  |*8+2).... ......|
00000f20  50 4f 4b 45 28 58 25 2c  59 25 2c 58 24 29 0d 05  |POKE(X%,Y%,X$)..|
00000f30  e6 13 ef 33 31 2c 58 25  2c 59 25 2c 97 28 58 24  |...31,X%,Y%,.(X$|
00000f40  29 0d 05 f0 05 e1 0d 05  fa 05 20 0d 06 04 17 dd  |)......... .....|
00000f50  f2 57 41 49 54 28 54 29  3a ea 20 6f 6c 64 74 69  |.WAIT(T):. oldti|
00000f60  6d 65 0d 06 0e 0d 6f 6c  64 74 69 6d 65 3d 91 0d  |me....oldtime=..|
00000f70  06 18 17 f5 20 fd 20 91  2d 6f 6c 64 74 69 6d 65  |.... . .-oldtime|
00000f80  3e 54 2a 31 30 30 0d 06  22 05 e1 0d 06 2c 05 20  |>T*100.."....,. |
00000f90  0d 06 36 0d dd f2 43 4c  45 41 4e 55 50 0d 06 40  |..6...CLEANUP..@|
00000fa0  0c 2a 46 58 20 31 32 2c  30 0d 06 4a 0a 2a 46 58  |.*FX 12,0..J.*FX|
00000fb0  34 2c 30 0d 06 54 09 40  25 3d 31 30 0d 06 5e 05  |4,0..T.@%=10..^.|
00000fc0  e1 0d ff                                          |...|
00000fc3