� �<>&E00 � �loc
�
$�The Aptly-Titled "SNAKE 2" Game
(#� Source : Electron Gamesmaster
2$�*  By Kay Ewbank & S. M. Gee  *
<$�*********** EUG #50 ***********
F,�1:�23;8202;0;0;0;:�("FX 4 1"):*FX 200 1
PAGAIN=�
Z�initialise
d
�title
n�draw_scene
x�
�
�one_move
�� NO_FOOD � NO_LIVES
�
�end_game
�� AGAIN � � �DZ@
��
����initialise:�23,224,&38,&7C,&FA,&FF,&FF,&FA,&7C,&38,23,225,&7E,&EF,&F7,&FB,&FB,&F7,&EF,&7E,23,226,&18,&3C,&7E,&FF,&FF,&7E,&3C,&18,23,227,&1C,&3E,&5F,&FF,&FF,&5F,&3F,&1C,23,228,&7E,&F7,&EF,&DF,&DF,&EF,&F7,&7E
���23,229,&82,&54,&38,&DA,&FE,&82,&44,&82,23,230,&18,&3C,&5A,&FF,&FF,&FF,&7E,&3C,23,231,&7E,&FF,&E7,&DB,&BD,&FF,&FF,&7E,23,232,&3C,&7E,&FF,&FF,&FF,&5A,&3C,&18,23,233,&7E,&FF,&FF,&BD,&DB,&E7,&FF,&7E,19,1,0;0;19,2,0;0;19,3,0;0;
�� AGAIN � � �dz@
�� X%(15),Y%(15)
�MAX%=15:NUM%=8:�asmb
�� T$(5):� T(5)
��I=1 � 5:T(I)=0:�I
�>NO_FOOD=�:NO_LIVES=�:HIT=�:C%=0:STOTAL%=0:SC=0:SN=0:FOOD=0

�

:

��draw_scene

"�128

,�

6�draw_snake

@�draw_pool(18,10)

J�131

T� FOOD=0 � FOOD=NUM%

^�1:�draw_food(FOOD)

h�128

r=�2,30)"Snake=";SN+1;" Screen=";SC+1;" Score=";STOTAL%+C%

|�0,1

�
�0,156

�
�1280,156

��=0

����>=�(100)+100

��

�:

���draw_pool(X,Y)

��131

��X,Y)�(3);

��X-1,Y+1)�(5);

��X-2,Y+2)�(7);

��X-2,Y+3)�(7);

��X-2,Y+4)�(7);
�X-1,Y+5)�(5);
�X,Y+6)�(3);
�
&:
0��draw_food(AMOUNT)
:� AMOUNT=0 � �
D� K=1 � AMOUNT
NU%=�(7)+15
X
V%=�(7)+9
b� �C(U%,V%)<>3 � � �DNB
l�U%,V%)",";
vFX%?K=U%:FY%?K=V%
�� K
�� AMOUNT=NUM% � �
�� K=AMOUNT+1 � NUM%
�
FX%?K=&FF
�� K
��
�:
���draw_snake
��128:�1
�X%=2:Y%=10
�
H%=224
�
S%=225
�
T$=�(226)
�X%,Y%);T$;
X%(1)=X%:Y%(1)=Y%
�Q%=2 � 10
 X%=X%+1
*�X%,Y%);�(S%);
4X%(Q%)=X%:Y%(Q%)=Y%
>�Q%
HX%=X%+1
R�X%,Y%);�(H%);
\X%(11)=X%:Y%(11)=Y%
fZ%=1:Q%=11
pXV%=1:YV%=0
z�
�:
���one_move
��move_f
��get_direction
��update
��
�:
���move_f
�A%=�(NUM%)
�B%=�(move_f%)
�*� ?FLAG%<>0 � FX%?A%<>&FF � �frog_gone
��
�:
��frog_gone
FX%?A%=&FF
FOOD=FOOD-1
$� FOOD<>0 � �
.STOTAL%=STOTAL%+C%
8C%=0
B� SC=4 � NO_FOOD=�:�
LSC=SC+1
V�draw_scene
`�
j:
t��get_direction
~)� �(-73) � XV%=0:YV%=-1:S%=231:H%=230
�)� �(-105) � XV%=0:YV%=1:S%=233:H%=232
�)� �(-98) � XV%=-1:YV%=0:S%=228:H%=227
�(� �(-67) � XV%=1:YV%=0:S%=225:H%=224
�� �(-5)<>15 � � �tfD
�� 0,-15,6,1
�
� 0,0,6,1
��
�:
���update
�XH%=X%:YH%=Y%
�X%=X%+XV%:Y%=Y%+YV%
�� X%>39 � X%=0
� X%<0 � X%=39

� Y%>26 � Y%=0
� Y%<0 � Y%=26
� �C(X%,Y%)<>0 � �hit
(�XH%,YH%);�(S%);
2�X%,Y%);�(H%);
<Q%=Q%+1
F� Q%>MAX% � Q%=1
PX%(Q%)=X%:Y%(Q%)=Y%
Z�X%(Z%),Y%(Z%));" ";
dZ%=Z%+1
n� Z%>MAX% � Z%=1
x�X%(Z%),Y%(Z%));T$;
��
�:
�	��hit
�COL%=�C(X%,Y%)
�"� COL%=3 � COL%=1 � �toad_self
�� COL%=2 � �frog
��
�:
���toad_self
�� 1,-15,10,20:� 1,0,0,10
�� �(-6)<>15 � � �dfE
�SN=SN+1
�,� SN>4 � STOTAL%=STOTAL%+C%:NO_LIVES=�:�
�draw_scene
�
:
"
��frog
,� 1,-15,250,1
6C%=C%+1:FOOD=FOOD-1
@=�2,30)"Snake=";SN+1;" Screen=";SC+1;" Score=";STOTAL%+C%
JZ%=Z%-1
T� Z%<1 � Z%=MAX%
^
�rem_f
h� FOOD<>0 � �
rSTOTAL%=STOTAL%+C%
|� SC=4 � NO_FOOD=�:�
�SC=SC+1
��draw_scene
��
�:
���rem_f
�K%=0
��
�K%=K%+1
�� X%=FX%?K% � Y%=FY%?K%
�FX%?K%=&FF
��
�:
�
��asmb
CODE%=&900
OSWORD%=&FFF1
OSWRCH%=&FFEE
&ATEMP%=&70
0
FLAG%=&71
:PARM%=&72:COL%=PARM%+4
DFX%=&77:FY%=&80
Nmove_f%=&900
X�
b:
l��end_game
v�
��1
�6� STOTAL%<10 � �3,10)"Denoted to slowworm":� �dFG
�?� STOTAL%<20 � �3,10)"The frogs don't have to worry":�dFG
�;� STOTAL%<30 � �3,10)"Not bad for a grass snake":�dFG
�1� STOTAL%<35 � �3,10)"Well slithered":� �dFG
�#�3,10)"A venomous performance"
��5)"You're a SUPER SNAKE!"
�*FX 15,0
�� I=5 � 1 � -1
�� STOTAL%>T(I) � N=1
�� I
��
�-� N=0 � �10)"You scored ";STOTAL%:� �tXH
 �10)"You are now ranked ";N
�10)"in the snake league."
� N=5 � � �DHH
 � I=5 � N+1 � -1
*T(I)=T(I-1)
4T$(I)=T$(I-1)
>� I
HT(N)=STOTAL%
R
�10);
\�"What is your name",T$(N)
f�
p�
z
� I=1 � 5
��5,I*2);T$(I);�20);T(I)
�� I
��
�� "Another slither Y/N",A$
�(� �A$,1)<>"Y" � �A$,1)<>"N" � � �tbH
�$� �A$,1)="N" � AGAIN=� � AGAIN=�
��
�:
���title
��129:�0
��
��23;8202;0;0;0;
�
�snake(8)
	W�'''" You must guide your snake around the    screen and eat all the green frogs ";
	�2:�(229);:�0:�"."
	`�''" If you fall in the water or bite"'" yourself, you will lose one of your"'" five lives."
	$S�''" You get five screens of frogs to eat    before you become a SUPER SNAKE!!"
	.Q�''" Use:    Z  -  Left   X  -  Right                *  -  Up     ?  -  Down"
	8-�3:�9,31)"Press space to start!";:*FX 21
	B'�19,0,3;0;19,2,2;0;19,3,6;0;:���=32
	L�
	V:
	`��snake(X)
	j!� 2,2,2,1,0,2,2,2,2,0,2,2,2,2
	t� 0,7,0,7,0,2,2,2,1
	~#� 8,0,0,0,0,8,0,0,10,0,8,0,0,10
	�� 0,8,0,8,0,8,0,0,0
	�#� 5,5,5,5,0,8,0,0,10,0,8,3,1,10
	�� 0,8,8,0,0,8,3,2,1
	�#� 0,0,0,8,0,8,0,0,10,0,8,0,0,10
	�� 0,8,0,8,0,8,0,0,0
	�!� 3,2,2,2,0,3,0,0,9,0,3,0,0,9
	�� 0,3,0,3,0,5,5,5,3
	��
	�
�X,2)
	�
� I=1 � 5
	�	�X);
	�� J=1 � 23
� S

� S=0 � �" "; � � �(223+S);
� J
�
(� I
2�
<:
FݤC(X%,Y%)
PX%=16+32*X%
ZY%=1011-32*Y%
d=�X%,Y%)
n:
x��loc:�0
�`*KEY 0 *LOAD G.SNmc|M*TAPE|MFORI%=0 TO TOP STEP4:I%!&E00=I%!&1D00:NEXT:PAGE=&E00|MOLD|MRUN|M
�*FX138,0,128
��
��
�

00000000  0d 00 0a 14 e7 20 90 3c  3e 26 45 30 30 20 8c 20  |..... .<>&E00 . |
00000010  f2 6c 6f 63 0d 00 14 05  f4 0d 00 1e 24 f4 54 68  |.loc........$.Th|
00000020  65 20 41 70 74 6c 79 2d  54 69 74 6c 65 64 20 22  |e Aptly-Titled "|
00000030  53 4e 41 4b 45 20 32 22  20 47 61 6d 65 0d 00 28  |SNAKE 2" Game..(|
00000040  23 f4 20 53 6f 75 72 63  65 20 3a 20 45 6c 65 63  |#. Source : Elec|
00000050  74 72 6f 6e 20 47 61 6d  65 73 6d 61 73 74 65 72  |tron Gamesmaster|
00000060  0d 00 32 24 f4 2a 20 20  42 79 20 4b 61 79 20 45  |..2$.*  By Kay E|
00000070  77 62 61 6e 6b 20 26 20  53 2e 20 4d 2e 20 47 65  |wbank & S. M. Ge|
00000080  65 20 20 2a 0d 00 3c 24  f4 2a 2a 2a 2a 2a 2a 2a  |e  *..<$.*******|
00000090  2a 2a 2a 2a 20 45 55 47  20 23 35 30 20 2a 2a 2a  |**** EUG #50 ***|
000000a0  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 46 2c eb 31 3a ef  |********..F,.1:.|
000000b0  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 3a ff  |23;8202;0;0;0;:.|
000000c0  28 22 46 58 20 34 20 31  22 29 3a 2a 46 58 20 32  |("FX 4 1"):*FX 2|
000000d0  30 30 20 31 0d 00 50 0b  41 47 41 49 4e 3d a3 0d  |00 1..P.AGAIN=..|
000000e0  00 5a 0f f2 69 6e 69 74  69 61 6c 69 73 65 0d 00  |.Z..initialise..|
000000f0  64 0a f2 74 69 74 6c 65  0d 00 6e 0f f2 64 72 61  |d..title..n..dra|
00000100  77 5f 73 63 65 6e 65 0d  00 78 05 f5 0d 00 82 0d  |w_scene..x......|
00000110  f2 6f 6e 65 5f 6d 6f 76  65 0d 00 8c 18 fd 20 4e  |.one_move..... N|
00000120  4f 5f 46 4f 4f 44 20 84  20 4e 4f 5f 4c 49 56 45  |O_FOOD . NO_LIVE|
00000130  53 0d 00 96 0d f2 65 6e  64 5f 67 61 6d 65 0d 00  |S.....end_game..|
00000140  a0 14 e7 20 41 47 41 49  4e 20 8c 20 e5 20 8d 44  |... AGAIN . . .D|
00000150  5a 40 0d 00 aa 05 e0 0d  00 b4 d4 dd f2 69 6e 69  |Z@...........ini|
00000160  74 69 61 6c 69 73 65 3a  ef 32 33 2c 32 32 34 2c  |tialise:.23,224,|
00000170  26 33 38 2c 26 37 43 2c  26 46 41 2c 26 46 46 2c  |&38,&7C,&FA,&FF,|
00000180  26 46 46 2c 26 46 41 2c  26 37 43 2c 26 33 38 2c  |&FF,&FA,&7C,&38,|
00000190  32 33 2c 32 32 35 2c 26  37 45 2c 26 45 46 2c 26  |23,225,&7E,&EF,&|
000001a0  46 37 2c 26 46 42 2c 26  46 42 2c 26 46 37 2c 26  |F7,&FB,&FB,&F7,&|
000001b0  45 46 2c 26 37 45 2c 32  33 2c 32 32 36 2c 26 31  |EF,&7E,23,226,&1|
000001c0  38 2c 26 33 43 2c 26 37  45 2c 26 46 46 2c 26 46  |8,&3C,&7E,&FF,&F|
000001d0  46 2c 26 37 45 2c 26 33  43 2c 26 31 38 2c 32 33  |F,&7E,&3C,&18,23|
000001e0  2c 32 32 37 2c 26 31 43  2c 26 33 45 2c 26 35 46  |,227,&1C,&3E,&5F|
000001f0  2c 26 46 46 2c 26 46 46  2c 26 35 46 2c 26 33 46  |,&FF,&FF,&5F,&3F|
00000200  2c 26 31 43 2c 32 33 2c  32 32 38 2c 26 37 45 2c  |,&1C,23,228,&7E,|
00000210  26 46 37 2c 26 45 46 2c  26 44 46 2c 26 44 46 2c  |&F7,&EF,&DF,&DF,|
00000220  26 45 46 2c 26 46 37 2c  26 37 45 0d 00 be e3 ef  |&EF,&F7,&7E.....|
00000230  32 33 2c 32 32 39 2c 26  38 32 2c 26 35 34 2c 26  |23,229,&82,&54,&|
00000240  33 38 2c 26 44 41 2c 26  46 45 2c 26 38 32 2c 26  |38,&DA,&FE,&82,&|
00000250  34 34 2c 26 38 32 2c 32  33 2c 32 33 30 2c 26 31  |44,&82,23,230,&1|
00000260  38 2c 26 33 43 2c 26 35  41 2c 26 46 46 2c 26 46  |8,&3C,&5A,&FF,&F|
00000270  46 2c 26 46 46 2c 26 37  45 2c 26 33 43 2c 32 33  |F,&FF,&7E,&3C,23|
00000280  2c 32 33 31 2c 26 37 45  2c 26 46 46 2c 26 45 37  |,231,&7E,&FF,&E7|
00000290  2c 26 44 42 2c 26 42 44  2c 26 46 46 2c 26 46 46  |,&DB,&BD,&FF,&FF|
000002a0  2c 26 37 45 2c 32 33 2c  32 33 32 2c 26 33 43 2c  |,&7E,23,232,&3C,|
000002b0  26 37 45 2c 26 46 46 2c  26 46 46 2c 26 46 46 2c  |&7E,&FF,&FF,&FF,|
000002c0  26 35 41 2c 26 33 43 2c  26 31 38 2c 32 33 2c 32  |&5A,&3C,&18,23,2|
000002d0  33 33 2c 26 37 45 2c 26  46 46 2c 26 46 46 2c 26  |33,&7E,&FF,&FF,&|
000002e0  42 44 2c 26 44 42 2c 26  45 37 2c 26 46 46 2c 26  |BD,&DB,&E7,&FF,&|
000002f0  37 45 2c 31 39 2c 31 2c  30 3b 30 3b 31 39 2c 32  |7E,19,1,0;0;19,2|
00000300  2c 30 3b 30 3b 31 39 2c  33 2c 30 3b 30 3b 0d 00  |,0;0;19,3,0;0;..|
00000310  c8 14 e7 20 41 47 41 49  4e 20 8c 20 e5 20 8d 64  |... AGAIN . . .d|
00000320  7a 40 0d 00 d2 13 de 20  58 25 28 31 35 29 2c 59  |z@..... X%(15),Y|
00000330  25 28 31 35 29 0d 00 dc  18 4d 41 58 25 3d 31 35  |%(15)....MAX%=15|
00000340  3a 4e 55 4d 25 3d 38 3a  f2 61 73 6d 62 0d 00 e6  |:NUM%=8:.asmb...|
00000350  12 de 20 54 24 28 35 29  3a de 20 54 28 35 29 0d  |.. T$(5):. T(5).|
00000360  00 f0 16 e3 49 3d 31 20  b8 20 35 3a 54 28 49 29  |....I=1 . 5:T(I)|
00000370  3d 30 3a ed 49 0d 00 fa  3e 4e 4f 5f 46 4f 4f 44  |=0:.I...>NO_FOOD|
00000380  3d a3 3a 4e 4f 5f 4c 49  56 45 53 3d a3 3a 48 49  |=.:NO_LIVES=.:HI|
00000390  54 3d a3 3a 43 25 3d 30  3a 53 54 4f 54 41 4c 25  |T=.:C%=0:STOTAL%|
000003a0  3d 30 3a 53 43 3d 30 3a  53 4e 3d 30 3a 46 4f 4f  |=0:SC=0:SN=0:FOO|
000003b0  44 3d 30 0d 01 04 05 e1  0d 01 0e 05 3a 0d 01 18  |D=0.........:...|
000003c0  10 dd f2 64 72 61 77 5f  73 63 65 6e 65 0d 01 22  |...draw_scene.."|
000003d0  08 fb 31 32 38 0d 01 2c  05 db 0d 01 36 0f f2 64  |..128..,....6..d|
000003e0  72 61 77 5f 73 6e 61 6b  65 0d 01 40 15 f2 64 72  |raw_snake..@..dr|
000003f0  61 77 5f 70 6f 6f 6c 28  31 38 2c 31 30 29 0d 01  |aw_pool(18,10)..|
00000400  4a 08 fb 31 33 31 0d 01  54 18 e7 20 46 4f 4f 44  |J..131..T.. FOOD|
00000410  3d 30 20 8c 20 46 4f 4f  44 3d 4e 55 4d 25 0d 01  |=0 . FOOD=NUM%..|
00000420  5e 17 fb 31 3a f2 64 72  61 77 5f 66 6f 6f 64 28  |^..1:.draw_food(|
00000430  46 4f 4f 44 29 0d 01 68  08 fb 31 32 38 0d 01 72  |FOOD)..h..128..r|
00000440  3d f1 8a 32 2c 33 30 29  22 53 6e 61 6b 65 3d 22  |=..2,30)"Snake="|
00000450  3b 53 4e 2b 31 3b 22 20  53 63 72 65 65 6e 3d 22  |;SN+1;" Screen="|
00000460  3b 53 43 2b 31 3b 22 20  53 63 6f 72 65 3d 22 3b  |;SC+1;" Score=";|
00000470  53 54 4f 54 41 4c 25 2b  43 25 0d 01 7c 08 e6 30  |STOTAL%+C%..|..0|
00000480  2c 31 0d 01 86 0a ec 30  2c 31 35 36 0d 01 90 0d  |,1.....0,156....|
00000490  df 31 32 38 30 2c 31 35  36 0d 01 9a 07 d1 3d 30  |.1280,156.....=0|
000004a0  0d 01 a4 13 f5 fd 91 3e  3d b3 28 31 30 30 29 2b  |.......>=.(100)+|
000004b0  31 30 30 0d 01 ae 05 e1  0d 01 b8 05 3a 0d 01 c2  |100.........:...|
000004c0  14 dd f2 64 72 61 77 5f  70 6f 6f 6c 28 58 2c 59  |...draw_pool(X,Y|
000004d0  29 0d 01 cc 08 fb 31 33  31 0d 01 d6 0f f1 8a 58  |).....131......X|
000004e0  2c 59 29 89 28 33 29 3b  0d 01 e0 13 f1 8a 58 2d  |,Y).(3);......X-|
000004f0  31 2c 59 2b 31 29 89 28  35 29 3b 0d 01 ea 13 f1  |1,Y+1).(5);.....|
00000500  8a 58 2d 32 2c 59 2b 32  29 89 28 37 29 3b 0d 01  |.X-2,Y+2).(7);..|
00000510  f4 13 f1 8a 58 2d 32 2c  59 2b 33 29 89 28 37 29  |....X-2,Y+3).(7)|
00000520  3b 0d 01 fe 13 f1 8a 58  2d 32 2c 59 2b 34 29 89  |;......X-2,Y+4).|
00000530  28 37 29 3b 0d 02 08 13  f1 8a 58 2d 31 2c 59 2b  |(7);......X-1,Y+|
00000540  35 29 89 28 35 29 3b 0d  02 12 11 f1 8a 58 2c 59  |5).(5);......X,Y|
00000550  2b 36 29 89 28 33 29 3b  0d 02 1c 05 e1 0d 02 26  |+6).(3);.......&|
00000560  05 3a 0d 02 30 17 dd f2  64 72 61 77 5f 66 6f 6f  |.:..0...draw_foo|
00000570  64 28 41 4d 4f 55 4e 54  29 0d 02 3a 12 e7 20 41  |d(AMOUNT)..:.. A|
00000580  4d 4f 55 4e 54 3d 30 20  8c 20 e1 0d 02 44 12 e3  |MOUNT=0 . ...D..|
00000590  20 4b 3d 31 20 b8 20 41  4d 4f 55 4e 54 0d 02 4e  | K=1 . AMOUNT..N|
000005a0  0e 55 25 3d b3 28 37 29  2b 31 35 0d 02 58 0d 56  |.U%=.(7)+15..X.V|
000005b0  25 3d b3 28 37 29 2b 39  0d 02 62 1b e7 20 a4 43  |%=.(7)+9..b.. .C|
000005c0  28 55 25 2c 56 25 29 3c  3e 33 20 8c 20 e5 20 8d  |(U%,V%)<>3 . . .|
000005d0  44 4e 42 0d 02 6c 10 f1  8a 55 25 2c 56 25 29 22  |DNB..l...U%,V%)"|
000005e0  2c 22 3b 0d 02 76 15 46  58 25 3f 4b 3d 55 25 3a  |,";..v.FX%?K=U%:|
000005f0  46 59 25 3f 4b 3d 56 25  0d 02 80 07 ed 20 4b 0d  |FY%?K=V%..... K.|
00000600  02 8a 15 e7 20 41 4d 4f  55 4e 54 3d 4e 55 4d 25  |.... AMOUNT=NUM%|
00000610  20 8c 20 e1 0d 02 94 17  e3 20 4b 3d 41 4d 4f 55  | . ...... K=AMOU|
00000620  4e 54 2b 31 20 b8 20 4e  55 4d 25 0d 02 9e 0d 46  |NT+1 . NUM%....F|
00000630  58 25 3f 4b 3d 26 46 46  0d 02 a8 07 ed 20 4b 0d  |X%?K=&FF..... K.|
00000640  02 b2 05 e1 0d 02 bc 05  3a 0d 02 c6 10 dd f2 64  |........:......d|
00000650  72 61 77 5f 73 6e 61 6b  65 0d 02 d0 0b fb 31 32  |raw_snake.....12|
00000660  38 3a fb 31 0d 02 da 0e  58 25 3d 32 3a 59 25 3d  |8:.1....X%=2:Y%=|
00000670  31 30 0d 02 e4 0a 48 25  3d 32 32 34 0d 02 ee 0a  |10....H%=224....|
00000680  53 25 3d 32 32 35 0d 02  f8 0d 54 24 3d bd 28 32  |S%=225....T$=.(2|
00000690  32 36 29 0d 03 02 10 f1  8a 58 25 2c 59 25 29 3b  |26)......X%,Y%);|
000006a0  54 24 3b 0d 03 0c 15 58  25 28 31 29 3d 58 25 3a  |T$;....X%(1)=X%:|
000006b0  59 25 28 31 29 3d 59 25  0d 03 16 0e e3 51 25 3d  |Y%(1)=Y%.....Q%=|
000006c0  32 20 b8 20 31 30 0d 03  20 0b 58 25 3d 58 25 2b  |2 . 10.. .X%=X%+|
000006d0  31 0d 03 2a 13 f1 8a 58  25 2c 59 25 29 3b bd 28  |1..*...X%,Y%);.(|
000006e0  53 25 29 3b 0d 03 34 17  58 25 28 51 25 29 3d 58  |S%);..4.X%(Q%)=X|
000006f0  25 3a 59 25 28 51 25 29  3d 59 25 0d 03 3e 07 ed  |%:Y%(Q%)=Y%..>..|
00000700  51 25 0d 03 48 0b 58 25  3d 58 25 2b 31 0d 03 52  |Q%..H.X%=X%+1..R|
00000710  13 f1 8a 58 25 2c 59 25  29 3b bd 28 48 25 29 3b  |...X%,Y%);.(H%);|
00000720  0d 03 5c 17 58 25 28 31  31 29 3d 58 25 3a 59 25  |..\.X%(11)=X%:Y%|
00000730  28 31 31 29 3d 59 25 0d  03 66 0e 5a 25 3d 31 3a  |(11)=Y%..f.Z%=1:|
00000740  51 25 3d 31 31 0d 03 70  0f 58 56 25 3d 31 3a 59  |Q%=11..p.XV%=1:Y|
00000750  56 25 3d 30 0d 03 7a 05  e1 0d 03 84 05 3a 0d 03  |V%=0..z......:..|
00000760  8e 0e dd f2 6f 6e 65 5f  6d 6f 76 65 0d 03 98 0b  |....one_move....|
00000770  f2 6d 6f 76 65 5f 66 0d  03 a2 12 f2 67 65 74 5f  |.move_f.....get_|
00000780  64 69 72 65 63 74 69 6f  6e 0d 03 ac 0b f2 75 70  |direction.....up|
00000790  64 61 74 65 0d 03 b6 05  e1 0d 03 c0 05 3a 0d 03  |date.........:..|
000007a0  ca 0c dd f2 6d 6f 76 65  5f 66 0d 03 d4 0e 41 25  |....move_f....A%|
000007b0  3d b3 28 4e 55 4d 25 29  0d 03 de 11 42 25 3d ba  |=.(NUM%)....B%=.|
000007c0  28 6d 6f 76 65 5f 66 25  29 0d 03 e8 2a e7 20 3f  |(move_f%)...*. ?|
000007d0  46 4c 41 47 25 3c 3e 30  20 80 20 46 58 25 3f 41  |FLAG%<>0 . FX%?A|
000007e0  25 3c 3e 26 46 46 20 8c  20 f2 66 72 6f 67 5f 67  |%<>&FF . .frog_g|
000007f0  6f 6e 65 0d 03 f2 05 e1  0d 03 fc 05 3a 0d 04 06  |one.........:...|
00000800  0f dd f2 66 72 6f 67 5f  67 6f 6e 65 0d 04 10 0e  |...frog_gone....|
00000810  46 58 25 3f 41 25 3d 26  46 46 0d 04 1a 0f 46 4f  |FX%?A%=&FF....FO|
00000820  4f 44 3d 46 4f 4f 44 2d  31 0d 04 24 11 e7 20 46  |OD=FOOD-1..$.. F|
00000830  4f 4f 44 3c 3e 30 20 8c  20 e1 0d 04 2e 16 53 54  |OOD<>0 . .....ST|
00000840  4f 54 41 4c 25 3d 53 54  4f 54 41 4c 25 2b 43 25  |OTAL%=STOTAL%+C%|
00000850  0d 04 38 08 43 25 3d 30  0d 04 42 18 e7 20 53 43  |..8.C%=0..B.. SC|
00000860  3d 34 20 8c 20 4e 4f 5f  46 4f 4f 44 3d b9 3a e1  |=4 . NO_FOOD=.:.|
00000870  0d 04 4c 0b 53 43 3d 53  43 2b 31 0d 04 56 0f f2  |..L.SC=SC+1..V..|
00000880  64 72 61 77 5f 73 63 65  6e 65 0d 04 60 05 e1 0d  |draw_scene..`...|
00000890  04 6a 05 3a 0d 04 74 13  dd f2 67 65 74 5f 64 69  |.j.:..t...get_di|
000008a0  72 65 63 74 69 6f 6e 0d  04 7e 29 e7 20 a6 28 2d  |rection..~). .(-|
000008b0  37 33 29 20 8c 20 58 56  25 3d 30 3a 59 56 25 3d  |73) . XV%=0:YV%=|
000008c0  2d 31 3a 53 25 3d 32 33  31 3a 48 25 3d 32 33 30  |-1:S%=231:H%=230|
000008d0  0d 04 88 29 e7 20 a6 28  2d 31 30 35 29 20 8c 20  |...). .(-105) . |
000008e0  58 56 25 3d 30 3a 59 56  25 3d 31 3a 53 25 3d 32  |XV%=0:YV%=1:S%=2|
000008f0  33 33 3a 48 25 3d 32 33  32 0d 04 92 29 e7 20 a6  |33:H%=232...). .|
00000900  28 2d 39 38 29 20 8c 20  58 56 25 3d 2d 31 3a 59  |(-98) . XV%=-1:Y|
00000910  56 25 3d 30 3a 53 25 3d  32 32 38 3a 48 25 3d 32  |V%=0:S%=228:H%=2|
00000920  32 37 0d 04 9c 28 e7 20  a6 28 2d 36 37 29 20 8c  |27...(. .(-67) .|
00000930  20 58 56 25 3d 31 3a 59  56 25 3d 30 3a 53 25 3d  | XV%=1:YV%=0:S%=|
00000940  32 32 35 3a 48 25 3d 32  32 34 0d 04 a6 18 e7 20  |225:H%=224..... |
00000950  96 28 2d 35 29 3c 3e 31  35 20 8c 20 e5 20 8d 74  |.(-5)<>15 . . .t|
00000960  66 44 0d 04 b0 0f d4 20  30 2c 2d 31 35 2c 36 2c  |fD..... 0,-15,6,|
00000970  31 0d 04 ba 0d d4 20 30  2c 30 2c 36 2c 31 0d 04  |1..... 0,0,6,1..|
00000980  c4 05 e1 0d 04 ce 05 3a  0d 04 d8 0c dd f2 75 70  |.......:......up|
00000990  64 61 74 65 0d 04 e2 11  58 48 25 3d 58 25 3a 59  |date....XH%=X%:Y|
000009a0  48 25 3d 59 25 0d 04 ec  17 58 25 3d 58 25 2b 58  |H%=Y%....X%=X%+X|
000009b0  56 25 3a 59 25 3d 59 25  2b 59 56 25 0d 04 f6 12  |V%:Y%=Y%+YV%....|
000009c0  e7 20 58 25 3e 33 39 20  8c 20 58 25 3d 30 0d 05  |. X%>39 . X%=0..|
000009d0  00 12 e7 20 58 25 3c 30  20 8c 20 58 25 3d 33 39  |... X%<0 . X%=39|
000009e0  0d 05 0a 12 e7 20 59 25  3e 32 36 20 8c 20 59 25  |..... Y%>26 . Y%|
000009f0  3d 30 0d 05 14 12 e7 20  59 25 3c 30 20 8c 20 59  |=0..... Y%<0 . Y|
00000a00  25 3d 32 36 0d 05 1e 19  e7 20 a4 43 28 58 25 2c  |%=26..... .C(X%,|
00000a10  59 25 29 3c 3e 30 20 8c  20 f2 68 69 74 0d 05 28  |Y%)<>0 . .hit..(|
00000a20  15 f1 8a 58 48 25 2c 59  48 25 29 3b bd 28 53 25  |...XH%,YH%);.(S%|
00000a30  29 3b 0d 05 32 13 f1 8a  58 25 2c 59 25 29 3b bd  |);..2...X%,Y%);.|
00000a40  28 48 25 29 3b 0d 05 3c  0b 51 25 3d 51 25 2b 31  |(H%);..<.Q%=Q%+1|
00000a50  0d 05 46 14 e7 20 51 25  3e 4d 41 58 25 20 8c 20  |..F.. Q%>MAX% . |
00000a60  51 25 3d 31 0d 05 50 17  58 25 28 51 25 29 3d 58  |Q%=1..P.X%(Q%)=X|
00000a70  25 3a 59 25 28 51 25 29  3d 59 25 0d 05 5a 19 f1  |%:Y%(Q%)=Y%..Z..|
00000a80  8a 58 25 28 5a 25 29 2c  59 25 28 5a 25 29 29 3b  |.X%(Z%),Y%(Z%));|
00000a90  22 20 22 3b 0d 05 64 0b  5a 25 3d 5a 25 2b 31 0d  |" ";..d.Z%=Z%+1.|
00000aa0  05 6e 14 e7 20 5a 25 3e  4d 41 58 25 20 8c 20 5a  |.n.. Z%>MAX% . Z|
00000ab0  25 3d 31 0d 05 78 18 f1  8a 58 25 28 5a 25 29 2c  |%=1..x...X%(Z%),|
00000ac0  59 25 28 5a 25 29 29 3b  54 24 3b 0d 05 82 05 e1  |Y%(Z%));T$;.....|
00000ad0  0d 05 8c 05 3a 0d 05 96  09 dd f2 68 69 74 0d 05  |....:......hit..|
00000ae0  a0 12 43 4f 4c 25 3d a4  43 28 58 25 2c 59 25 29  |..COL%=.C(X%,Y%)|
00000af0  0d 05 aa 22 e7 20 43 4f  4c 25 3d 33 20 84 20 43  |...". COL%=3 . C|
00000b00  4f 4c 25 3d 31 20 8c 20  f2 74 6f 61 64 5f 73 65  |OL%=1 . .toad_se|
00000b10  6c 66 0d 05 b4 14 e7 20  43 4f 4c 25 3d 32 20 8c  |lf..... COL%=2 .|
00000b20  20 f2 66 72 6f 67 0d 05  be 05 e1 0d 05 c8 05 3a  | .frog.........:|
00000b30  0d 05 d2 0f dd f2 74 6f  61 64 5f 73 65 6c 66 0d  |......toad_self.|
00000b40  05 dc 1c d4 20 31 2c 2d  31 35 2c 31 30 2c 32 30  |.... 1,-15,10,20|
00000b50  3a d4 20 31 2c 30 2c 30  2c 31 30 0d 05 e6 18 e7  |:. 1,0,0,10.....|
00000b60  20 96 28 2d 36 29 3c 3e  31 35 20 8c 20 e5 20 8d  | .(-6)<>15 . . .|
00000b70  64 66 45 0d 05 f0 0b 53  4e 3d 53 4e 2b 31 0d 05  |dfE....SN=SN+1..|
00000b80  fa 2c e7 20 53 4e 3e 34  20 8c 20 53 54 4f 54 41  |.,. SN>4 . STOTA|
00000b90  4c 25 3d 53 54 4f 54 41  4c 25 2b 43 25 3a 4e 4f  |L%=STOTAL%+C%:NO|
00000ba0  5f 4c 49 56 45 53 3d b9  3a e1 0d 06 04 0f f2 64  |_LIVES=.:......d|
00000bb0  72 61 77 5f 73 63 65 6e  65 0d 06 0e 05 e1 0d 06  |raw_scene.......|
00000bc0  18 05 3a 0d 06 22 0a dd  f2 66 72 6f 67 0d 06 2c  |..:.."...frog..,|
00000bd0  11 d4 20 31 2c 2d 31 35  2c 32 35 30 2c 31 0d 06  |.. 1,-15,250,1..|
00000be0  36 17 43 25 3d 43 25 2b  31 3a 46 4f 4f 44 3d 46  |6.C%=C%+1:FOOD=F|
00000bf0  4f 4f 44 2d 31 0d 06 40  3d f1 8a 32 2c 33 30 29  |OOD-1..@=..2,30)|
00000c00  22 53 6e 61 6b 65 3d 22  3b 53 4e 2b 31 3b 22 20  |"Snake=";SN+1;" |
00000c10  53 63 72 65 65 6e 3d 22  3b 53 43 2b 31 3b 22 20  |Screen=";SC+1;" |
00000c20  53 63 6f 72 65 3d 22 3b  53 54 4f 54 41 4c 25 2b  |Score=";STOTAL%+|
00000c30  43 25 0d 06 4a 0b 5a 25  3d 5a 25 2d 31 0d 06 54  |C%..J.Z%=Z%-1..T|
00000c40  14 e7 20 5a 25 3c 31 20  8c 20 5a 25 3d 4d 41 58  |.. Z%<1 . Z%=MAX|
00000c50  25 0d 06 5e 0a f2 72 65  6d 5f 66 0d 06 68 11 e7  |%..^..rem_f..h..|
00000c60  20 46 4f 4f 44 3c 3e 30  20 8c 20 e1 0d 06 72 16  | FOOD<>0 . ...r.|
00000c70  53 54 4f 54 41 4c 25 3d  53 54 4f 54 41 4c 25 2b  |STOTAL%=STOTAL%+|
00000c80  43 25 0d 06 7c 18 e7 20  53 43 3d 34 20 8c 20 4e  |C%..|.. SC=4 . N|
00000c90  4f 5f 46 4f 4f 44 3d b9  3a e1 0d 06 86 0b 53 43  |O_FOOD=.:.....SC|
00000ca0  3d 53 43 2b 31 0d 06 90  0f f2 64 72 61 77 5f 73  |=SC+1.....draw_s|
00000cb0  63 65 6e 65 0d 06 9a 05  e1 0d 06 a4 05 3a 0d 06  |cene.........:..|
00000cc0  ae 0b dd f2 72 65 6d 5f  66 0d 06 b8 08 4b 25 3d  |....rem_f....K%=|
00000cd0  30 0d 06 c2 05 f5 0d 06  cc 0b 4b 25 3d 4b 25 2b  |0.........K%=K%+|
00000ce0  31 0d 06 d6 1b fd 20 58  25 3d 46 58 25 3f 4b 25  |1..... X%=FX%?K%|
00000cf0  20 80 20 59 25 3d 46 59  25 3f 4b 25 0d 06 e0 0e  | . Y%=FY%?K%....|
00000d00  46 58 25 3f 4b 25 3d 26  46 46 0d 06 ea 05 e1 0d  |FX%?K%=&FF......|
00000d10  06 f4 05 3a 0d 06 fe 0a  dd f2 61 73 6d 62 0d 07  |...:......asmb..|
00000d20  08 0e 43 4f 44 45 25 3d  26 39 30 30 0d 07 12 11  |..CODE%=&900....|
00000d30  4f 53 57 4f 52 44 25 3d  26 46 46 46 31 0d 07 1c  |OSWORD%=&FFF1...|
00000d40  11 4f 53 57 52 43 48 25  3d 26 46 46 45 45 0d 07  |.OSWRCH%=&FFEE..|
00000d50  26 0e 41 54 45 4d 50 25  3d 26 37 30 0d 07 30 0d  |&.ATEMP%=&70..0.|
00000d60  46 4c 41 47 25 3d 26 37  31 0d 07 3a 1a 50 41 52  |FLAG%=&71..:.PAR|
00000d70  4d 25 3d 26 37 32 3a 43  4f 4c 25 3d 50 41 52 4d  |M%=&72:COL%=PARM|
00000d80  25 2b 34 0d 07 44 13 46  58 25 3d 26 37 37 3a 46  |%+4..D.FX%=&77:F|
00000d90  59 25 3d 26 38 30 0d 07  4e 10 6d 6f 76 65 5f 66  |Y%=&80..N.move_f|
00000da0  25 3d 26 39 30 30 0d 07  58 05 e1 0d 07 62 05 3a  |%=&900..X....b.:|
00000db0  0d 07 6c 0e dd f2 65 6e  64 5f 67 61 6d 65 0d 07  |..l...end_game..|
00000dc0  76 05 db 0d 07 80 06 fb  31 0d 07 8a 36 e7 20 53  |v.......1...6. S|
00000dd0  54 4f 54 41 4c 25 3c 31  30 20 8c 20 f1 8a 33 2c  |TOTAL%<10 . ..3,|
00000de0  31 30 29 22 44 65 6e 6f  74 65 64 20 74 6f 20 73  |10)"Denoted to s|
00000df0  6c 6f 77 77 6f 72 6d 22  3a e5 20 8d 64 46 47 0d  |lowworm":. .dFG.|
00000e00  07 94 3f e7 20 53 54 4f  54 41 4c 25 3c 32 30 20  |..?. STOTAL%<20 |
00000e10  8c 20 f1 8a 33 2c 31 30  29 22 54 68 65 20 66 72  |. ..3,10)"The fr|
00000e20  6f 67 73 20 64 6f 6e 27  74 20 68 61 76 65 20 74  |ogs don't have t|
00000e30  6f 20 77 6f 72 72 79 22  3a e5 8d 64 46 47 0d 07  |o worry":..dFG..|
00000e40  9e 3b e7 20 53 54 4f 54  41 4c 25 3c 33 30 20 8c  |.;. STOTAL%<30 .|
00000e50  20 f1 8a 33 2c 31 30 29  22 4e 6f 74 20 62 61 64  | ..3,10)"Not bad|
00000e60  20 66 6f 72 20 61 20 67  72 61 73 73 20 73 6e 61  | for a grass sna|
00000e70  6b 65 22 3a e5 8d 64 46  47 0d 07 a8 31 e7 20 53  |ke":..dFG...1. S|
00000e80  54 4f 54 41 4c 25 3c 33  35 20 8c 20 f1 8a 33 2c  |TOTAL%<35 . ..3,|
00000e90  31 30 29 22 57 65 6c 6c  20 73 6c 69 74 68 65 72  |10)"Well slither|
00000ea0  65 64 22 3a e5 20 8d 64  46 47 0d 07 b2 23 f1 8a  |ed":. .dFG...#..|
00000eb0  33 2c 31 30 29 22 41 20  76 65 6e 6f 6d 6f 75 73  |3,10)"A venomous|
00000ec0  20 70 65 72 66 6f 72 6d  61 6e 63 65 22 0d 07 bc  | performance"...|
00000ed0  1f f1 8a 35 29 22 59 6f  75 27 72 65 20 61 20 53  |...5)"You're a S|
00000ee0  55 50 45 52 20 53 4e 41  4b 45 21 22 0d 07 c6 0c  |UPER SNAKE!"....|
00000ef0  2a 46 58 20 31 35 2c 30  0d 07 d0 12 e3 20 49 3d  |*FX 15,0..... I=|
00000f00  35 20 b8 20 31 20 88 20  2d 31 0d 07 da 18 e7 20  |5 . 1 . -1..... |
00000f10  53 54 4f 54 41 4c 25 3e  54 28 49 29 20 8c 20 4e  |STOTAL%>T(I) . N|
00000f20  3d 31 0d 07 e4 07 ed 20  49 0d 07 ee 05 f1 0d 07  |=1..... I.......|
00000f30  f8 2d e7 20 4e 3d 30 20  8c 20 f1 8a 31 30 29 22  |.-. N=0 . ..10)"|
00000f40  59 6f 75 20 73 63 6f 72  65 64 20 22 3b 53 54 4f  |You scored ";STO|
00000f50  54 41 4c 25 3a e5 20 8d  74 58 48 0d 08 02 20 f1  |TAL%:. .tXH... .|
00000f60  8a 31 30 29 22 59 6f 75  20 61 72 65 20 6e 6f 77  |.10)"You are now|
00000f70  20 72 61 6e 6b 65 64 20  22 3b 4e 0d 08 0c 1f f1  | ranked ";N.....|
00000f80  8a 31 30 29 22 69 6e 20  74 68 65 20 73 6e 61 6b  |.10)"in the snak|
00000f90  65 20 6c 65 61 67 75 65  2e 22 0d 08 16 12 e7 20  |e league."..... |
00000fa0  4e 3d 35 20 8c 20 e5 20  8d 44 48 48 0d 08 20 14  |N=5 . . .DHH.. .|
00000fb0  e3 20 49 3d 35 20 b8 20  4e 2b 31 20 88 20 2d 31  |. I=5 . N+1 . -1|
00000fc0  0d 08 2a 0f 54 28 49 29  3d 54 28 49 2d 31 29 0d  |..*.T(I)=T(I-1).|
00000fd0  08 34 11 54 24 28 49 29  3d 54 24 28 49 2d 31 29  |.4.T$(I)=T$(I-1)|
00000fe0  0d 08 3e 07 ed 20 49 0d  08 48 10 54 28 4e 29 3d  |..>.. I..H.T(N)=|
00000ff0  53 54 4f 54 41 4c 25 0d  08 52 0a f1 8a 31 30 29  |STOTAL%..R...10)|
00001000  3b 0d 08 5c 1e e8 22 57  68 61 74 20 69 73 20 79  |;..\.."What is y|
00001010  6f 75 72 20 6e 61 6d 65  22 2c 54 24 28 4e 29 0d  |our name",T$(N).|
00001020  08 66 05 db 0d 08 70 05  db 0d 08 7a 0d e3 20 49  |.f....p....z.. I|
00001030  3d 31 20 b8 20 35 0d 08  84 1c f1 8a 35 2c 49 2a  |=1 . 5......5,I*|
00001040  32 29 3b 54 24 28 49 29  3b 8a 32 30 29 3b 54 28  |2);T$(I);.20);T(|
00001050  49 29 0d 08 8e 07 ed 20  49 0d 08 98 05 f1 0d 08  |I)..... I.......|
00001060  a2 1e e8 20 22 41 6e 6f  74 68 65 72 20 73 6c 69  |... "Another sli|
00001070  74 68 65 72 20 59 2f 4e  22 2c 41 24 0d 08 ac 28  |ther Y/N",A$...(|
00001080  e7 20 c0 41 24 2c 31 29  3c 3e 22 59 22 20 80 20  |. .A$,1)<>"Y" . |
00001090  c0 41 24 2c 31 29 3c 3e  22 4e 22 20 8c 20 e5 20  |.A$,1)<>"N" . . |
000010a0  8d 74 62 48 0d 08 b6 24  e7 20 c0 41 24 2c 31 29  |.tbH...$. .A$,1)|
000010b0  3d 22 4e 22 20 8c 20 41  47 41 49 4e 3d a3 20 8b  |="N" . AGAIN=. .|
000010c0  20 41 47 41 49 4e 3d b9  0d 08 c0 05 e1 0d 08 ca  | AGAIN=.........|
000010d0  05 3a 0d 08 d4 0b dd f2  74 69 74 6c 65 0d 08 de  |.:......title...|
000010e0  0b fb 31 32 39 3a fb 30  0d 08 e8 05 db 0d 08 f2  |..129:.0........|
000010f0  13 ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |..23;8202;0;0;0;|
00001100  0d 08 fc 0d f2 73 6e 61  6b 65 28 38 29 0d 09 06  |.....snake(8)...|
00001110  57 f1 27 27 27 22 20 59  6f 75 20 6d 75 73 74 20  |W.'''" You must |
00001120  67 75 69 64 65 20 79 6f  75 72 20 73 6e 61 6b 65  |guide your snake|
00001130  20 61 72 6f 75 6e 64 20  74 68 65 20 20 20 20 73  | around the    s|
00001140  63 72 65 65 6e 20 61 6e  64 20 65 61 74 20 61 6c  |creen and eat al|
00001150  6c 20 74 68 65 20 67 72  65 65 6e 20 66 72 6f 67  |l the green frog|
00001160  73 20 22 3b 0d 09 10 17  fb 32 3a f1 bd 28 32 32  |s ";.....2:..(22|
00001170  39 29 3b 3a fb 30 3a f1  22 2e 22 0d 09 1a 60 f1  |9);:.0:."."...`.|
00001180  27 27 22 20 49 66 20 79  6f 75 20 66 61 6c 6c 20  |''" If you fall |
00001190  69 6e 20 74 68 65 20 77  61 74 65 72 20 6f 72 20  |in the water or |
000011a0  62 69 74 65 22 27 22 20  79 6f 75 72 73 65 6c 66  |bite"'" yourself|
000011b0  2c 20 79 6f 75 20 77 69  6c 6c 20 6c 6f 73 65 20  |, you will lose |
000011c0  6f 6e 65 20 6f 66 20 79  6f 75 72 22 27 22 20 66  |one of your"'" f|
000011d0  69 76 65 20 6c 69 76 65  73 2e 22 0d 09 24 53 f1  |ive lives."..$S.|
000011e0  27 27 22 20 59 6f 75 20  67 65 74 20 66 69 76 65  |''" You get five|
000011f0  20 73 63 72 65 65 6e 73  20 6f 66 20 66 72 6f 67  | screens of frog|
00001200  73 20 74 6f 20 65 61 74  20 20 20 20 62 65 66 6f  |s to eat    befo|
00001210  72 65 20 79 6f 75 20 62  65 63 6f 6d 65 20 61 20  |re you become a |
00001220  53 55 50 45 52 20 53 4e  41 4b 45 21 21 22 0d 09  |SUPER SNAKE!!"..|
00001230  2e 51 f1 27 27 22 20 55  73 65 3a 20 20 20 20 5a  |.Q.''" Use:    Z|
00001240  20 20 2d 20 20 4c 65 66  74 20 20 20 58 20 20 2d  |  -  Left   X  -|
00001250  20 20 52 69 67 68 74 20  20 20 20 20 20 20 20 20  |  Right         |
00001260  20 20 20 20 20 20 20 2a  20 20 2d 20 20 55 70 20  |       *  -  Up |
00001270  20 20 20 20 3f 20 20 2d  20 20 44 6f 77 6e 22 0d  |    ?  -  Down".|
00001280  09 38 2d fb 33 3a f1 8a  39 2c 33 31 29 22 50 72  |.8-.3:..9,31)"Pr|
00001290  65 73 73 20 73 70 61 63  65 20 74 6f 20 73 74 61  |ess space to sta|
000012a0  72 74 21 22 3b 3a 2a 46  58 20 32 31 0d 09 42 27  |rt!";:*FX 21..B'|
000012b0  ef 31 39 2c 30 2c 33 3b  30 3b 31 39 2c 32 2c 32  |.19,0,3;0;19,2,2|
000012c0  3b 30 3b 31 39 2c 33 2c  36 3b 30 3b 3a f5 fd a5  |;0;19,3,6;0;:...|
000012d0  3d 33 32 0d 09 4c 05 e1  0d 09 56 05 3a 0d 09 60  |=32..L....V.:..`|
000012e0  0e dd f2 73 6e 61 6b 65  28 58 29 0d 09 6a 21 dc  |...snake(X)..j!.|
000012f0  20 32 2c 32 2c 32 2c 31  2c 30 2c 32 2c 32 2c 32  | 2,2,2,1,0,2,2,2|
00001300  2c 32 2c 30 2c 32 2c 32  2c 32 2c 32 0d 09 74 17  |,2,0,2,2,2,2..t.|
00001310  dc 20 30 2c 37 2c 30 2c  37 2c 30 2c 32 2c 32 2c  |. 0,7,0,7,0,2,2,|
00001320  32 2c 31 0d 09 7e 23 dc  20 38 2c 30 2c 30 2c 30  |2,1..~#. 8,0,0,0|
00001330  2c 30 2c 38 2c 30 2c 30  2c 31 30 2c 30 2c 38 2c  |,0,8,0,0,10,0,8,|
00001340  30 2c 30 2c 31 30 0d 09  88 17 dc 20 30 2c 38 2c  |0,0,10..... 0,8,|
00001350  30 2c 38 2c 30 2c 38 2c  30 2c 30 2c 30 0d 09 92  |0,8,0,8,0,0,0...|
00001360  23 dc 20 35 2c 35 2c 35  2c 35 2c 30 2c 38 2c 30  |#. 5,5,5,5,0,8,0|
00001370  2c 30 2c 31 30 2c 30 2c  38 2c 33 2c 31 2c 31 30  |,0,10,0,8,3,1,10|
00001380  0d 09 9c 17 dc 20 30 2c  38 2c 38 2c 30 2c 30 2c  |..... 0,8,8,0,0,|
00001390  38 2c 33 2c 32 2c 31 0d  09 a6 23 dc 20 30 2c 30  |8,3,2,1...#. 0,0|
000013a0  2c 30 2c 38 2c 30 2c 38  2c 30 2c 30 2c 31 30 2c  |,0,8,0,8,0,0,10,|
000013b0  30 2c 38 2c 30 2c 30 2c  31 30 0d 09 b0 17 dc 20  |0,8,0,0,10..... |
000013c0  30 2c 38 2c 30 2c 38 2c  30 2c 38 2c 30 2c 30 2c  |0,8,0,8,0,8,0,0,|
000013d0  30 0d 09 ba 21 dc 20 33  2c 32 2c 32 2c 32 2c 30  |0...!. 3,2,2,2,0|
000013e0  2c 33 2c 30 2c 30 2c 39  2c 30 2c 33 2c 30 2c 30  |,3,0,0,9,0,3,0,0|
000013f0  2c 39 0d 09 c4 17 dc 20  30 2c 33 2c 30 2c 33 2c  |,9..... 0,3,0,3,|
00001400  30 2c 35 2c 35 2c 35 2c  33 0d 09 ce 05 f7 0d 09  |0,5,5,5,3.......|
00001410  d8 0a f1 8a 58 2c 32 29  0d 09 e2 0d e3 20 49 3d  |....X,2)..... I=|
00001420  31 20 b8 20 35 0d 09 ec  09 f1 8a 58 29 3b 0d 09  |1 . 5......X);..|
00001430  f6 0e e3 20 4a 3d 31 20  b8 20 32 33 0d 0a 00 07  |... J=1 . 23....|
00001440  f3 20 53 0d 0a 0a 1f e7  20 53 3d 30 20 8c 20 f1  |. S..... S=0 . .|
00001450  22 20 22 3b 20 8b 20 f1  20 bd 28 32 32 33 2b 53  |" "; . . .(223+S|
00001460  29 3b 0d 0a 14 07 ed 20  4a 0d 0a 1e 05 f1 0d 0a  |);..... J.......|
00001470  28 07 ed 20 49 0d 0a 32  05 e1 0d 0a 3c 05 3a 0d  |(.. I..2....<.:.|
00001480  0a 46 0e dd a4 43 28 58  25 2c 59 25 29 0d 0a 50  |.F...C(X%,Y%)..P|
00001490  0f 58 25 3d 31 36 2b 33  32 2a 58 25 0d 0a 5a 11  |.X%=16+32*X%..Z.|
000014a0  59 25 3d 31 30 31 31 2d  33 32 2a 59 25 0d 0a 64  |Y%=1011-32*Y%..d|
000014b0  0c 3d b0 58 25 2c 59 25  29 0d 0a 6e 05 3a 0d 0a  |.=.X%,Y%)..n.:..|
000014c0  78 0c dd f2 6c 6f 63 3a  fb 30 0d 0a 82 60 2a 4b  |x...loc:.0...`*K|
000014d0  45 59 20 30 20 2a 4c 4f  41 44 20 47 2e 53 4e 6d  |EY 0 *LOAD G.SNm|
000014e0  63 7c 4d 2a 54 41 50 45  7c 4d 46 4f 52 49 25 3d  |c|M*TAPE|MFORI%=|
000014f0  30 20 54 4f 20 54 4f 50  20 53 54 45 50 34 3a 49  |0 TO TOP STEP4:I|
00001500  25 21 26 45 30 30 3d 49  25 21 26 31 44 30 30 3a  |%!&E00=I%!&1D00:|
00001510  4e 45 58 54 3a 50 41 47  45 3d 26 45 30 30 7c 4d  |NEXT:PAGE=&E00|M|
00001520  4f 4c 44 7c 4d 52 55 4e  7c 4d 0d 0a 8c 10 2a 46  |OLD|MRUN|M....*F|
00001530  58 31 33 38 2c 30 2c 31  32 38 0d 0a 96 05 e0 0d  |X138,0,128......|
00001540  0a a0 05 e1 0d ff                                 |......|
00001546