� Garden
� by Hugh Darby
� for BBC B/B+ and Electron
("� (c) Acorn User December 1985
2:
<
� � �TlA
F� 1
P�assem:�array
Z�
d�var:�hi
n� 2
x
� �screen
�*FX 178
��
�� loop%=0 �no%
��player:�monster:�apsc
��apple:�mushroom:�block
�fin%=(A%=app%)
�� fin% � dead% loop%=no%
�� �(-6)=15 �tune
��
�� dead% � fin%
�*FX 178,255
�� dead% �finish � �newscr
�� dead%

� 1:�end

� 0

�

":

,� �(-1) �:�"OK":�

6�

@:

J� �assem

T� pass=0 � 3 � 3

^
P%=&80

h[

rOPT pass

|LDA #135

�
JSR &FFF4

�TXA

�CLC

�ADC #96

�STA &70

�RTS

�]

�
� pass

�� mcode 15:data=&900

�� Q%=0 � 127:� Q%?data:�

�� Q%=128 � 159:Q%?data=0:�

�� pass=0 � 3 � 3

�P%=mcode
[
OPT pass
	.code
&LDY #31
0	.loop
:LDA (&74),Y
DSTA (&70),Y
NDEY
XBPL loop
bRTS
l]
v
� pass
��
�:
�� Graphics data
�� 0,0,5,5,0,0,0,0
�� 5,15,11,15,5,5,5,15
�� 15,15,11,15,5,5,5,5
�� 0,10,15,15,0,0,0,10
�� 0,0,0,20,20,20,0,60
�� 0,40,60,48,144,60,40,40
�� 0,20,60,48,96,60,20,20
�� 0,0,0,40,40,40,0,60
�� 0,0,1,3,3,3,1,0
�� 15,5,3,3,3,3,3,3
� 15,0,3,3,23,43,3,3
� 10,0,2,3,3,3,2,0
� 0,0,1,23,3,0,0,0
 � 0,3,23,3,23,5,5,5
*� 0,3,3,23,3,10,10,10
4� 0,0,2,3,3,0,0,0
>:
H� �array
R� H%(5),H$(5)
\� Q%=1 � 5
fH$(Q%)="Shuggy OK" 
pH%(Q%)=12000-2000*Q%
z� Q%
��
�:
�
� �var
�"scr%=1:A%=0:LI%=3:SC%=0:ti%=26
�so%=-1:sh%=data:mo%=data+32
�ap%=data+64:mu%=data+96
�bl%=data+128
��
�:
�	� �hi
��
� � �9,5)"Today's Top Shuggys"
�� Q%=1 � 5
�2:� �8,2*Q%+9);Q%
�1:� �11,2*Q%+9);H%(Q%)
�3:� �20,2*Q%+9)H$(Q%)
$�
.#� �8,28)"Press any key to play"
8U=�
B�
L:
V� �cent(A$)
`pos=20-�(A$)/2
j� �pos,�)A$
t�
~:
�
� �screen
�
� �d\O
�	�:� 3
� � 23;8202;0;0;0;:� 19,9,2;0;
�A$=�(234)+�17,�(227))
�B$=�(233)+�17,�(228))
�� �0,0)A$ �0,21)B$
�� Q%=1 � 20
�� 31,0,Q%,230,31,18,Q%,229
�� Q%
�� 31,18,0,235,31,18,21,236
�� 9

�grass

	�path
� �1,24)"SCORE:"
� �1,26)"LIVES:"
(� �1,28)"SCREEN:"
2� �1,30)"APPLES:"
<�var2:�update
F�
P:
Z� �path
d � scr% � �DnE,�DxE,�tBE,�tLE
n�path1:�
x�path2:�
��path3:�
�
�path4
��
�:
�� �path1
�� Q%=1 � 20:� 31,10,Q%,32:�
�� Q%=7 � 13:� 31,Q%,20,32:�
�� 31,7,7:� Q%=0 � 2
�� 32,8,11,32,8,11,32
�� Q%
��
�:
�� �path2
� Q%=2 � 16:� 31,Q%,19,32:�
� Q%=5 � 14:� 31,Q%,4,32:�
#� 31,2,18,32,31,2,17,32,31,2,16
"� 32,31,2,15,32,31,2,14,32
,!� 31,2,13,32,32,32,8,11,32,32
6"� 32,8,11,32,32,32,32,32,32,32
@#� 8,11,32,32,32,8,11,32,32,8,11
J!� 32,8,11,32,8,11,32,8,8,8,11
T#� 32,32,32,31,3,5,32,32,8,11,32
^�
h:
r� �path3
|� Q%=3 � 16:� 31,Q%,20,32:�
�� Q%=4 � 16:� 31,Q%,2,32:�
� � Q%=10 � 16:� 31,Q%,10,32:�
�� Q%=1 � 7
�#� 31,17,Q%+2,32,31,17,Q%+10,32 
��
�� 31,1,19,32,32,8,10,32
�#� 31,16,19,32,32,31,17,18,32,31
�!� 16,3,32,31,16,11,32,8,11,11
�� 32,31,3,3,32,32
��
�:
�� �path4
�� Q%=1 � 20:� 31,10,Q%,32:�
� Q%=3 � 14:� 31,Q%,15,32:�
� 31,3,15:� Q%=0 �6
� 32,8,11,32,8,11,32
&� Q%
0�
::
D� �var2
Nfin%=0:dead%=0:x%=10:y%=20
Xax%=�(16):ay%=�(20)
b!L%=0:P=-1:nx%=x%:ny%=y%:co%=0
l#mad%=0:no%=5-scr%:app%=5+3*scr%
vmx%=10:my%=10 
��
�:
�
� �update
�� 1
��score:�lives:�app
�t%=6-((ti%-1)/5)
�� �8,28);t%;"/";scr%
��
�:
�
� �player
�
�pr(0)
�ox%=x%:oy%=y%
��keys:�ch2:�pr(1)
�
:
� �keys
 � �(-98) � x%>1 x%=x%-1:�
*� �(-67) � x%<17 x%=x%+1:�
4� �(-105) � y%<20 y%=y%+1:�
>� �(-73) � y%>1 y%=y%-1
H� �(-17) so%=0
R� �(-82) so%=-1
\� �(-56) � � �(-55)
f�
p� �(-56) � � �=79
z
� �ch2
�char=�check(x%,y%)
� � x%=mx% � y%=my% dead%=-1:�
�!� char=225 SC%=SC%+1:�score:�
�� char=226 x%=ox%:y%=oy%:�
�� x%=ax% � y%=ay% �gotapp:�
�� x%=10 � y%=10 �mad
��
�:
�
� �gotapp
�P=0:SC%=SC%+100:A%=A%+1
��apple:�score:�1,1,200,1
��17,1,31,ox%,oy%,226
��
	:
	
� �mad
	� mad% �
	$mad%=-1:SC%=SC%+1000
	.�sound:�score
	8�
	B:
	L� �pr(C)
	V!&70=&3000+x%*&20+y%*&280
	`� C �s � �b
	j�
	t:
	~� �check(q%,r%)
	�� 31,q%,r%:�&80
	�	=?&70
	�:
	�:
	�� �apple
	�!&70=&3000+ax%*&20+ay%*&280
	�� P �a:�
	��b
	�ax%=�(16):ay%=�(20):�app 
	�^� (ax%=mx% � ay%=my%) � (ax%=x% � ay%=y%) � (ax%=nx% � ay%=ny%) � (ax%=10 � ay%=10) �apple
	�P=-1:�apple
	��
:

� �block
L%=� L%:co%=co%+1
� co%<>ti% � �DFJ
(� 17,1,31,nx%,ny%,226
2 � nx%=x% � ny%=y% dead%=-1:�
<nx%=x%:ny%=y%:co%=0
F� 17,1,31,nx%,ny%,231-L%
P�
Z:
d� �monster
n� loop%<>1 �
x
�pm(0)
�ox%=mx%:oy%=my%:�move
��ch:�pm(1)
��
�:
�� �move
�� mx%<x% mx%=mx%+1:�
�� mx%>x% mx%=mx%-1:�
�� my%<y% my%=my%+1:�
�� my%>y% my%=my%-1
��
�:
�� �pm(C)
�!&70=&3000+mx%*&20+my%*&280
� C=0 �b � �m
�
:
"	� �ch
, � mad% � 17,1,31,ox%,oy%,226
6� mx%=ax% � my%=ay% �monapp
@� mx%=x% � my%=y% dead%=-1
J�
T:
^
� �monapp
hP=0:SC%=SC%-100:A%=A%-2
r� 1,1,0,1:�apple:�score
|�
�:
�� �apsc
�� SC%<0 SC%=0:�score
�� A%<0 A%=0:�app
��
�:
�
� �app
�� �8,30);A%;"/";app%;�(2)
��
�:
�� �score
�� 1:� �7,24);SC%;�(3)
��
:

� �finish

� 1,2,0,1
&LI%=LI%-1:� LI%>=0 dead%=0
0�
::
D
� �newscr
N!A%=0:scr%=scr%+1:� scr%>4 �ti
X	�var2
b�
l:
v	� �ti
�scr%=1:ti%=ti%-5
�� ti%<1 ti%=1
��
�:
�� �mushroom
�!&70=&4A40
�� mad% � � �r
��
�:
�� �sound
�� 19,9,5;0;
�� Q%=0 �255 �4
�� 1,3,Q%,.9:� 0,3,Q%,.9

� Q%

� Q%=255 �80 � -90

� 1,2,Q%,1

 � Q%

*�

4:

>� �lives

H� �7,26)�(3):!&70=&71E0

R� LI%=0 � 

\
Q%=1:�

f�s:Q%=Q%+1:!&70=!&70+&20

p� Q%>LI%

z�

�:

�� �s:!&74=sh%:�code:�

�:

�� �m:!&74=mo%:�code:�

�:

�� �a:!&74=ap%:�code:�

�:

�� �r:!&74=mu%:�code:�

�:

�� �b:!&74=bl%:�code:�

�:

�
� �end

��23;8202;0;0;0;:*FX21,0
� SC%<=H%(5) �
� Q%=5 �1 �-1
� H%(Q%)<SC% C%=Q%
$� Q%
.�
8�cent("WELL DONE!!!")
B�'''
L"�cent("Your score of "+�(SC%))
V�'
`B$=�" stndrdthth",C%*2,2)
j �cent("ranks you "+�(C%)+B$)
t�'
~�cent("Enter your name")
�A$=�input(17)
�� C%=5 �tzN
�� Q%=4 �C% �-1
�#H%(Q%+1)=H%(Q%):H$(Q%+1)=H$(Q%)
�� Q%
�H%(C%)=SC%:H$(C%)=A$
��
�:
�� �input(up)
�	A$=""
��
�A=�
� A=127 A$=�A$,�A$-1)

%� �valid(A) � �(A$)<20 A$=A$+�(A)
� �0,up)�(40);�0,up-1)

�cent(A$)
(
� A=13
2=A$
<:
F� �valid(A)
P,=((A>64 � A<91) � (A>96 � A<123) � A=32)
Z:
d� �tune
n
� so%=0 �
x� N,D:� N=0 � �d\O:N=1
�� N=1 � 1,0,0,2:�
�� 1,1,N-48,D*2
��
�� �grass
�� Y% = 1 � 20
�� �1,Y%)�17,�225)
��:�
�:
�� Tune data
�#� 101,2,117,2,129,2,129,4,177,2
�� 177,2,1,1,165,2,165,2,1,1
�#� 101,2,101,2,117,2,129,2,129,4
�!� 177,2,177,2,1,1,169,2,169,2
� 1,1,97,2,97,2,109,2,137,2
!� 137,4,185,2,185,2,1,1,169,2
� 169,2,1,1,97,2,97,2,109,2
"!� 137,2,137,4,185,2,185,2,1,1
,!� 165,2,165,2,1,1,101,2,101,2
6#� 117,2,129,2,149,4,197,2,197,2
@� 1,1,177,2,177,2,1,1,101,2
J#� 101,2,117,2,129,2,149,4,197,2
T� 197,2,1,1,185,2,185,2,1,1
^#� 157,2,157,2,169,2,185,2,185,8
h#� 173,2,177,2,213,8,197,2,165,2
r� 165,4,157,2,185,4,177,2
|� 149,12,0,0
�

00000000  0d 00 0a 0c f4 20 47 61  72 64 65 6e 0d 00 14 13  |..... Garden....|
00000010  f4 20 62 79 20 48 75 67  68 20 44 61 72 62 79 0d  |. by Hugh Darby.|
00000020  00 1e 1f f4 20 66 6f 72  20 42 42 43 20 42 2f 42  |.... for BBC B/B|
00000030  2b 20 61 6e 64 20 45 6c  65 63 74 72 6f 6e 0d 00  |+ and Electron..|
00000040  28 22 f4 20 28 63 29 20  41 63 6f 72 6e 20 55 73  |(". (c) Acorn Us|
00000050  65 72 20 44 65 63 65 6d  62 65 72 20 31 39 38 35  |er December 1985|
00000060  0d 00 32 05 3a 0d 00 3c  0d ee 20 85 20 e5 8d 54  |..2.:..<.. . ..T|
00000070  6c 41 0d 00 46 07 eb 20  31 0d 00 50 11 f2 61 73  |lA..F.. 1..P..as|
00000080  73 65 6d 3a f2 61 72 72  61 79 0d 00 5a 05 f5 0d  |sem:.array..Z...|
00000090  00 64 0c f2 76 61 72 3a  f2 68 69 0d 00 6e 07 eb  |.d..var:.hi..n..|
000000a0  20 32 0d 00 78 0d f5 20  f2 73 63 72 65 65 6e 0d  | 2..x.. .screen.|
000000b0  00 82 0b 2a 46 58 20 31  37 38 0d 00 8c 05 f5 0d  |...*FX 178......|
000000c0  00 96 12 e3 20 6c 6f 6f  70 25 3d 30 20 b8 6e 6f  |.... loop%=0 .no|
000000d0  25 0d 00 a0 1a f2 70 6c  61 79 65 72 3a f2 6d 6f  |%.....player:.mo|
000000e0  6e 73 74 65 72 3a f2 61  70 73 63 0d 00 aa 1b f2  |nster:.apsc.....|
000000f0  61 70 70 6c 65 3a f2 6d  75 73 68 72 6f 6f 6d 3a  |apple:.mushroom:|
00000100  f2 62 6c 6f 63 6b 0d 00  b4 12 66 69 6e 25 3d 28  |.block....fin%=(|
00000110  41 25 3d 61 70 70 25 29  0d 00 be 1c e7 20 66 69  |A%=app%)..... fi|
00000120  6e 25 20 84 20 64 65 61  64 25 20 6c 6f 6f 70 25  |n% . dead% loop%|
00000130  3d 6e 6f 25 0d 00 c8 14  e7 20 96 28 2d 36 29 3d  |=no%..... .(-6)=|
00000140  31 35 20 f2 74 75 6e 65  0d 00 d2 05 ed 0d 00 dc  |15 .tune........|
00000150  12 fd 20 64 65 61 64 25  20 84 20 66 69 6e 25 0d  |.. dead% . fin%.|
00000160  00 e6 0f 2a 46 58 20 31  37 38 2c 32 35 35 0d 00  |...*FX 178,255..|
00000170  f0 1d e7 20 64 65 61 64  25 20 f2 66 69 6e 69 73  |... dead% .finis|
00000180  68 20 8b 20 f2 6e 65 77  73 63 72 0d 00 fa 0b fd  |h . .newscr.....|
00000190  20 64 65 61 64 25 0d 01  04 0c eb 20 31 3a f2 65  | dead%..... 1:.e|
000001a0  6e 64 0d 01 0e 07 fd 20  30 0d 01 18 05 e0 0d 01  |nd..... 0.......|
000001b0  22 05 3a 0d 01 2c 15 e7  20 a6 28 2d 31 29 20 db  |".:..,.. .(-1) .|
000001c0  3a f1 22 4f 4b 22 3a e0  0d 01 36 05 f9 0d 01 40  |:."OK":...6....@|
000001d0  05 3a 0d 01 4a 0c dd 20  f2 61 73 73 65 6d 0d 01  |.:..J.. .assem..|
000001e0  54 14 e3 20 70 61 73 73  3d 30 20 b8 20 33 20 88  |T.. pass=0 . 3 .|
000001f0  20 33 0d 01 5e 0a 50 25  3d 26 38 30 0d 01 68 05  | 3..^.P%=&80..h.|
00000200  5b 0d 01 72 0c 4f 50 54  20 70 61 73 73 0d 01 7c  |[..r.OPT pass..||
00000210  0c 4c 44 41 20 23 31 33  35 0d 01 86 0d 4a 53 52  |.LDA #135....JSR|
00000220  20 26 46 46 46 34 0d 01  90 07 54 58 41 0d 01 9a  | &FFF4....TXA...|
00000230  07 43 4c 43 0d 01 a4 0b  41 44 43 20 23 39 36 0d  |.CLC....ADC #96.|
00000240  01 ae 0b 53 54 41 20 26  37 30 0d 01 b8 07 52 54  |...STA &70....RT|
00000250  53 0d 01 c2 05 5d 0d 01  cc 0a ed 20 70 61 73 73  |S....]..... pass|
00000260  0d 01 d6 18 de 20 6d 63  6f 64 65 20 31 35 3a 64  |..... mcode 15:d|
00000270  61 74 61 3d 26 39 30 30  0d 01 e0 1c e3 20 51 25  |ata=&900..... Q%|
00000280  3d 30 20 b8 20 31 32 37  3a f3 20 51 25 3f 64 61  |=0 . 127:. Q%?da|
00000290  74 61 3a ed 0d 01 ea 1e  e3 20 51 25 3d 31 32 38  |ta:...... Q%=128|
000002a0  20 b8 20 31 35 39 3a 51  25 3f 64 61 74 61 3d 30  | . 159:Q%?data=0|
000002b0  3a ed 0d 01 f4 14 e3 20  70 61 73 73 3d 30 20 b8  |:...... pass=0 .|
000002c0  20 33 20 88 20 33 0d 01  fe 0c 50 25 3d 6d 63 6f  | 3 . 3....P%=mco|
000002d0  64 65 0d 02 08 05 5b 0d  02 12 0c 4f 50 54 20 70  |de....[....OPT p|
000002e0  61 73 73 0d 02 1c 09 2e  63 6f 64 65 0d 02 26 0b  |ass.....code..&.|
000002f0  4c 44 59 20 23 33 31 0d  02 30 09 2e 6c 6f 6f 70  |LDY #31..0..loop|
00000300  0d 02 3a 0f 4c 44 41 20  28 26 37 34 29 2c 59 0d  |..:.LDA (&74),Y.|
00000310  02 44 0f 53 54 41 20 28  26 37 30 29 2c 59 0d 02  |.D.STA (&70),Y..|
00000320  4e 07 44 45 59 0d 02 58  0c 42 50 4c 20 6c 6f 6f  |N.DEY..X.BPL loo|
00000330  70 0d 02 62 07 52 54 53  0d 02 6c 05 5d 0d 02 76  |p..b.RTS..l.]..v|
00000340  0a ed 20 70 61 73 73 0d  02 80 05 e1 0d 02 8a 05  |.. pass.........|
00000350  3a 0d 02 94 13 f4 20 47  72 61 70 68 69 63 73 20  |:..... Graphics |
00000360  64 61 74 61 0d 02 9e 15  dc 20 30 2c 30 2c 35 2c  |data..... 0,0,5,|
00000370  35 2c 30 2c 30 2c 30 2c  30 0d 02 a8 19 dc 20 35  |5,0,0,0,0..... 5|
00000380  2c 31 35 2c 31 31 2c 31  35 2c 35 2c 35 2c 35 2c  |,15,11,15,5,5,5,|
00000390  31 35 0d 02 b2 19 dc 20  31 35 2c 31 35 2c 31 31  |15..... 15,15,11|
000003a0  2c 31 35 2c 35 2c 35 2c  35 2c 35 0d 02 bc 19 dc  |,15,5,5,5,5.....|
000003b0  20 30 2c 31 30 2c 31 35  2c 31 35 2c 30 2c 30 2c  | 0,10,15,15,0,0,|
000003c0  30 2c 31 30 0d 02 c6 19  dc 20 30 2c 30 2c 30 2c  |0,10..... 0,0,0,|
000003d0  32 30 2c 32 30 2c 32 30  2c 30 2c 36 30 0d 02 d0  |20,20,20,0,60...|
000003e0  1d dc 20 30 2c 34 30 2c  36 30 2c 34 38 2c 31 34  |.. 0,40,60,48,14|
000003f0  34 2c 36 30 2c 34 30 2c  34 30 0d 02 da 1c dc 20  |4,60,40,40..... |
00000400  30 2c 32 30 2c 36 30 2c  34 38 2c 39 36 2c 36 30  |0,20,60,48,96,60|
00000410  2c 32 30 2c 32 30 0d 02  e4 19 dc 20 30 2c 30 2c  |,20,20..... 0,0,|
00000420  30 2c 34 30 2c 34 30 2c  34 30 2c 30 2c 36 30 0d  |0,40,40,40,0,60.|
00000430  02 ee 15 dc 20 30 2c 30  2c 31 2c 33 2c 33 2c 33  |.... 0,0,1,3,3,3|
00000440  2c 31 2c 30 0d 02 f8 16  dc 20 31 35 2c 35 2c 33  |,1,0..... 15,5,3|
00000450  2c 33 2c 33 2c 33 2c 33  2c 33 0d 03 02 18 dc 20  |,3,3,3,3,3..... |
00000460  31 35 2c 30 2c 33 2c 33  2c 32 33 2c 34 33 2c 33  |15,0,3,3,23,43,3|
00000470  2c 33 0d 03 0c 16 dc 20  31 30 2c 30 2c 32 2c 33  |,3..... 10,0,2,3|
00000480  2c 33 2c 33 2c 32 2c 30  0d 03 16 16 dc 20 30 2c  |,3,3,2,0..... 0,|
00000490  30 2c 31 2c 32 33 2c 33  2c 30 2c 30 2c 30 0d 03  |0,1,23,3,0,0,0..|
000004a0  20 17 dc 20 30 2c 33 2c  32 33 2c 33 2c 32 33 2c  | .. 0,3,23,3,23,|
000004b0  35 2c 35 2c 35 0d 03 2a  19 dc 20 30 2c 33 2c 33  |5,5,5..*.. 0,3,3|
000004c0  2c 32 33 2c 33 2c 31 30  2c 31 30 2c 31 30 0d 03  |,23,3,10,10,10..|
000004d0  34 15 dc 20 30 2c 30 2c  32 2c 33 2c 33 2c 30 2c  |4.. 0,0,2,3,3,0,|
000004e0  30 2c 30 0d 03 3e 05 3a  0d 03 48 0c dd 20 f2 61  |0,0..>.:..H.. .a|
000004f0  72 72 61 79 0d 03 52 11  de 20 48 25 28 35 29 2c  |rray..R.. H%(5),|
00000500  48 24 28 35 29 0d 03 5c  0e e3 20 51 25 3d 31 20  |H$(5)..\.. Q%=1 |
00000510  b8 20 35 0d 03 66 17 48  24 28 51 25 29 3d 22 53  |. 5..f.H$(Q%)="S|
00000520  68 75 67 67 79 20 4f 4b  22 20 0d 03 70 18 48 25  |huggy OK" ..p.H%|
00000530  28 51 25 29 3d 31 32 30  30 30 2d 32 30 30 30 2a  |(Q%)=12000-2000*|
00000540  51 25 0d 03 7a 08 ed 20  51 25 0d 03 84 05 e1 0d  |Q%..z.. Q%......|
00000550  03 8e 05 3a 0d 03 98 0a  dd 20 f2 76 61 72 0d 03  |...:..... .var..|
00000560  a2 22 73 63 72 25 3d 31  3a 41 25 3d 30 3a 4c 49  |."scr%=1:A%=0:LI|
00000570  25 3d 33 3a 53 43 25 3d  30 3a 74 69 25 3d 32 36  |%=3:SC%=0:ti%=26|
00000580  0d 03 ac 1f 73 6f 25 3d  2d 31 3a 73 68 25 3d 64  |....so%=-1:sh%=d|
00000590  61 74 61 3a 6d 6f 25 3d  64 61 74 61 2b 33 32 0d  |ata:mo%=data+32.|
000005a0  03 b6 1b 61 70 25 3d 64  61 74 61 2b 36 34 3a 6d  |...ap%=data+64:m|
000005b0  75 25 3d 64 61 74 61 2b  39 36 0d 03 c0 10 62 6c  |u%=data+96....bl|
000005c0  25 3d 64 61 74 61 2b 31  32 38 0d 03 ca 05 e1 0d  |%=data+128......|
000005d0  03 d4 05 3a 0d 03 de 09  dd 20 f2 68 69 0d 03 e8  |...:..... .hi...|
000005e0  05 db 0d 03 f2 20 f1 20  8a 39 2c 35 29 22 54 6f  |..... . .9,5)"To|
000005f0  64 61 79 27 73 20 54 6f  70 20 53 68 75 67 67 79  |day's Top Shuggy|
00000600  73 22 0d 03 fc 0e e3 20  51 25 3d 31 20 b8 20 35  |s"..... Q%=1 . 5|
00000610  0d 04 06 16 fb 32 3a f1  20 8a 38 2c 32 2a 51 25  |.....2:. .8,2*Q%|
00000620  2b 39 29 3b 51 25 0d 04  10 1b fb 31 3a f1 20 8a  |+9);Q%.....1:. .|
00000630  31 31 2c 32 2a 51 25 2b  39 29 3b 48 25 28 51 25  |11,2*Q%+9);H%(Q%|
00000640  29 0d 04 1a 1a fb 33 3a  f1 20 8a 32 30 2c 32 2a  |).....3:. .20,2*|
00000650  51 25 2b 39 29 48 24 28  51 25 29 0d 04 24 05 ed  |Q%+9)H$(Q%)..$..|
00000660  0d 04 2e 23 f1 20 8a 38  2c 32 38 29 22 50 72 65  |...#. .8,28)"Pre|
00000670  73 73 20 61 6e 79 20 6b  65 79 20 74 6f 20 70 6c  |ss any key to pl|
00000680  61 79 22 0d 04 38 07 55  3d a5 0d 04 42 05 e1 0d  |ay"..8.U=...B...|
00000690  04 4c 05 3a 0d 04 56 0f  dd 20 f2 63 65 6e 74 28  |.L.:..V.. .cent(|
000006a0  41 24 29 0d 04 60 12 70  6f 73 3d 32 30 2d a9 28  |A$)..`.pos=20-.(|
000006b0  41 24 29 2f 32 0d 04 6a  0f f1 20 8a 70 6f 73 2c  |A$)/2..j.. .pos,|
000006c0  bc 29 41 24 0d 04 74 05  e1 0d 04 7e 05 3a 0d 04  |.)A$..t....~.:..|
000006d0  88 0d dd 20 f2 73 63 72  65 65 6e 0d 04 92 0a f7  |... .screen.....|
000006e0  20 8d 64 5c 4f 0d 04 9c  09 db 3a fb 20 33 0d 04  | .d\O.....:. 3..|
000006f0  a6 20 ef 20 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |. . 23;8202;0;0;|
00000700  30 3b 3a ef 20 31 39 2c  39 2c 32 3b 30 3b 0d 04  |0;:. 19,9,2;0;..|
00000710  b0 19 41 24 3d bd 28 32  33 34 29 2b c4 31 37 2c  |..A$=.(234)+.17,|
00000720  bd 28 32 32 37 29 29 0d  04 ba 19 42 24 3d bd 28  |.(227))....B$=.(|
00000730  32 33 33 29 2b c4 31 37  2c bd 28 32 32 38 29 29  |233)+.17,.(228))|
00000740  0d 04 c4 16 f1 20 8a 30  2c 30 29 41 24 20 8a 30  |..... .0,0)A$ .0|
00000750  2c 32 31 29 42 24 0d 04  ce 0f e3 20 51 25 3d 31  |,21)B$..... Q%=1|
00000760  20 b8 20 32 30 0d 04 d8  1e ef 20 33 31 2c 30 2c  | . 20..... 31,0,|
00000770  51 25 2c 32 33 30 2c 33  31 2c 31 38 2c 51 25 2c  |Q%,230,31,18,Q%,|
00000780  32 32 39 0d 04 e2 08 ed  20 51 25 0d 04 ec 1e ef  |229..... Q%.....|
00000790  20 33 31 2c 31 38 2c 30  2c 32 33 35 2c 33 31 2c  | 31,18,0,235,31,|
000007a0  31 38 2c 32 31 2c 32 33  36 0d 04 f6 07 fb 20 39  |18,21,236..... 9|
000007b0  0d 05 00 0a f2 67 72 61  73 73 0d 05 0a 09 f2 70  |.....grass.....p|
000007c0  61 74 68 0d 05 14 14 f1  20 8a 31 2c 32 34 29 22  |ath..... .1,24)"|
000007d0  53 43 4f 52 45 3a 22 0d  05 1e 14 f1 20 8a 31 2c  |SCORE:"..... .1,|
000007e0  32 36 29 22 4c 49 56 45  53 3a 22 0d 05 28 15 f1  |26)"LIVES:"..(..|
000007f0  20 8a 31 2c 32 38 29 22  53 43 52 45 45 4e 3a 22  | .1,28)"SCREEN:"|
00000800  0d 05 32 15 f1 20 8a 31  2c 33 30 29 22 41 50 50  |..2.. .1,30)"APP|
00000810  4c 45 53 3a 22 0d 05 3c  11 f2 76 61 72 32 3a f2  |LES:"..<..var2:.|
00000820  75 70 64 61 74 65 0d 05  46 05 e1 0d 05 50 05 3a  |update..F....P.:|
00000830  0d 05 5a 0b dd 20 f2 70  61 74 68 0d 05 64 20 ee  |..Z.. .path..d .|
00000840  20 73 63 72 25 20 e5 20  8d 44 6e 45 2c 8d 44 78  | scr% . .DnE,.Dx|
00000850  45 2c 8d 74 42 45 2c 8d  74 4c 45 0d 05 6e 0c f2  |E,.tBE,.tLE..n..|
00000860  70 61 74 68 31 3a e1 0d  05 78 0c f2 70 61 74 68  |path1:...x..path|
00000870  32 3a e1 0d 05 82 0c f2  70 61 74 68 33 3a e1 0d  |2:......path3:..|
00000880  05 8c 0a f2 70 61 74 68  34 0d 05 96 05 e1 0d 05  |....path4.......|
00000890  a0 05 3a 0d 05 aa 0c dd  20 f2 70 61 74 68 31 0d  |..:..... .path1.|
000008a0  05 b4 1f e3 20 51 25 3d  31 20 b8 20 32 30 3a ef  |.... Q%=1 . 20:.|
000008b0  20 33 31 2c 31 30 2c 51  25 2c 33 32 3a ed 0d 05  | 31,10,Q%,32:...|
000008c0  be 1f e3 20 51 25 3d 37  20 b8 20 31 33 3a ef 20  |... Q%=7 . 13:. |
000008d0  33 31 2c 51 25 2c 32 30  2c 33 32 3a ed 0d 05 c8  |31,Q%,20,32:....|
000008e0  17 ef 20 33 31 2c 37 2c  37 3a e3 20 51 25 3d 30  |.. 31,7,7:. Q%=0|
000008f0  20 b8 20 32 0d 05 d2 18  ef 20 33 32 2c 38 2c 31  | . 2..... 32,8,1|
00000900  31 2c 33 32 2c 38 2c 31  31 2c 33 32 0d 05 dc 08  |1,32,8,11,32....|
00000910  ed 20 51 25 0d 05 e6 05  e1 0d 05 f0 05 3a 0d 05  |. Q%.........:..|
00000920  fa 0c dd 20 f2 70 61 74  68 32 0d 06 04 1f e3 20  |... .path2..... |
00000930  51 25 3d 32 20 b8 20 31  36 3a ef 20 33 31 2c 51  |Q%=2 . 16:. 31,Q|
00000940  25 2c 31 39 2c 33 32 3a  ed 0d 06 0e 1e e3 20 51  |%,19,32:...... Q|
00000950  25 3d 35 20 b8 20 31 34  3a ef 20 33 31 2c 51 25  |%=5 . 14:. 31,Q%|
00000960  2c 34 2c 33 32 3a ed 0d  06 18 23 ef 20 33 31 2c  |,4,32:....#. 31,|
00000970  32 2c 31 38 2c 33 32 2c  33 31 2c 32 2c 31 37 2c  |2,18,32,31,2,17,|
00000980  33 32 2c 33 31 2c 32 2c  31 36 0d 06 22 1e ef 20  |32,31,2,16..".. |
00000990  33 32 2c 33 31 2c 32 2c  31 35 2c 33 32 2c 33 31  |32,31,2,15,32,31|
000009a0  2c 32 2c 31 34 2c 33 32  0d 06 2c 21 ef 20 33 31  |,2,14,32..,!. 31|
000009b0  2c 32 2c 31 33 2c 33 32  2c 33 32 2c 33 32 2c 38  |,2,13,32,32,32,8|
000009c0  2c 31 31 2c 33 32 2c 33  32 0d 06 36 22 ef 20 33  |,11,32,32..6". 3|
000009d0  32 2c 38 2c 31 31 2c 33  32 2c 33 32 2c 33 32 2c  |2,8,11,32,32,32,|
000009e0  33 32 2c 33 32 2c 33 32  2c 33 32 0d 06 40 23 ef  |32,32,32,32..@#.|
000009f0  20 38 2c 31 31 2c 33 32  2c 33 32 2c 33 32 2c 38  | 8,11,32,32,32,8|
00000a00  2c 31 31 2c 33 32 2c 33  32 2c 38 2c 31 31 0d 06  |,11,32,32,8,11..|
00000a10  4a 21 ef 20 33 32 2c 38  2c 31 31 2c 33 32 2c 38  |J!. 32,8,11,32,8|
00000a20  2c 31 31 2c 33 32 2c 38  2c 38 2c 38 2c 31 31 0d  |,11,32,8,8,8,11.|
00000a30  06 54 23 ef 20 33 32 2c  33 32 2c 33 32 2c 33 31  |.T#. 32,32,32,31|
00000a40  2c 33 2c 35 2c 33 32 2c  33 32 2c 38 2c 31 31 2c  |,3,5,32,32,8,11,|
00000a50  33 32 0d 06 5e 05 e1 0d  06 68 05 3a 0d 06 72 0c  |32..^....h.:..r.|
00000a60  dd 20 f2 70 61 74 68 33  0d 06 7c 1f e3 20 51 25  |. .path3..|.. Q%|
00000a70  3d 33 20 b8 20 31 36 3a  ef 20 33 31 2c 51 25 2c  |=3 . 16:. 31,Q%,|
00000a80  32 30 2c 33 32 3a ed 0d  06 86 1e e3 20 51 25 3d  |20,32:...... Q%=|
00000a90  34 20 b8 20 31 36 3a ef  20 33 31 2c 51 25 2c 32  |4 . 16:. 31,Q%,2|
00000aa0  2c 33 32 3a ed 0d 06 90  20 e3 20 51 25 3d 31 30  |,32:.... . Q%=10|
00000ab0  20 b8 20 31 36 3a ef 20  33 31 2c 51 25 2c 31 30  | . 16:. 31,Q%,10|
00000ac0  2c 33 32 3a ed 0d 06 9a  0e e3 20 51 25 3d 31 20  |,32:...... Q%=1 |
00000ad0  b8 20 37 0d 06 a4 23 ef  20 33 31 2c 31 37 2c 51  |. 7...#. 31,17,Q|
00000ae0  25 2b 32 2c 33 32 2c 33  31 2c 31 37 2c 51 25 2b  |%+2,32,31,17,Q%+|
00000af0  31 30 2c 33 32 20 0d 06  ae 05 ed 0d 06 b8 1b ef  |10,32 ..........|
00000b00  20 33 31 2c 31 2c 31 39  2c 33 32 2c 33 32 2c 38  | 31,1,19,32,32,8|
00000b10  2c 31 30 2c 33 32 0d 06  c2 23 ef 20 33 31 2c 31  |,10,32...#. 31,1|
00000b20  36 2c 31 39 2c 33 32 2c  33 32 2c 33 31 2c 31 37  |6,19,32,32,31,17|
00000b30  2c 31 38 2c 33 32 2c 33  31 0d 06 cc 21 ef 20 31  |,18,32,31...!. 1|
00000b40  36 2c 33 2c 33 32 2c 33  31 2c 31 36 2c 31 31 2c  |6,3,32,31,16,11,|
00000b50  33 32 2c 38 2c 31 31 2c  31 31 0d 06 d6 15 ef 20  |32,8,11,11..... |
00000b60  33 32 2c 33 31 2c 33 2c  33 2c 33 32 2c 33 32 0d  |32,31,3,3,32,32.|
00000b70  06 e0 05 e1 0d 06 ea 05  3a 0d 06 f4 0c dd 20 f2  |........:..... .|
00000b80  70 61 74 68 34 0d 06 fe  1f e3 20 51 25 3d 31 20  |path4..... Q%=1 |
00000b90  b8 20 32 30 3a ef 20 33  31 2c 31 30 2c 51 25 2c  |. 20:. 31,10,Q%,|
00000ba0  33 32 3a ed 0d 07 08 1f  e3 20 51 25 3d 33 20 b8  |32:...... Q%=3 .|
00000bb0  20 31 34 3a ef 20 33 31  2c 51 25 2c 31 35 2c 33  | 14:. 31,Q%,15,3|
00000bc0  32 3a ed 0d 07 12 17 ef  20 33 31 2c 33 2c 31 35  |2:...... 31,3,15|
00000bd0  3a e3 20 51 25 3d 30 20  b8 36 0d 07 1c 18 ef 20  |:. Q%=0 .6..... |
00000be0  33 32 2c 38 2c 31 31 2c  33 32 2c 38 2c 31 31 2c  |32,8,11,32,8,11,|
00000bf0  33 32 0d 07 26 08 ed 20  51 25 0d 07 30 05 e1 0d  |32..&.. Q%..0...|
00000c00  07 3a 05 3a 0d 07 44 0b  dd 20 f2 76 61 72 32 0d  |.:.:..D.. .var2.|
00000c10  07 4e 1e 66 69 6e 25 3d  30 3a 64 65 61 64 25 3d  |.N.fin%=0:dead%=|
00000c20  30 3a 78 25 3d 31 30 3a  79 25 3d 32 30 0d 07 58  |0:x%=10:y%=20..X|
00000c30  17 61 78 25 3d b3 28 31  36 29 3a 61 79 25 3d b3  |.ax%=.(16):ay%=.|
00000c40  28 32 30 29 0d 07 62 21  4c 25 3d 30 3a 50 3d 2d  |(20)..b!L%=0:P=-|
00000c50  31 3a 6e 78 25 3d 78 25  3a 6e 79 25 3d 79 25 3a  |1:nx%=x%:ny%=y%:|
00000c60  63 6f 25 3d 30 0d 07 6c  23 6d 61 64 25 3d 30 3a  |co%=0..l#mad%=0:|
00000c70  6e 6f 25 3d 35 2d 73 63  72 25 3a 61 70 70 25 3d  |no%=5-scr%:app%=|
00000c80  35 2b 33 2a 73 63 72 25  0d 07 76 12 6d 78 25 3d  |5+3*scr%..v.mx%=|
00000c90  31 30 3a 6d 79 25 3d 31  30 20 0d 07 80 05 e1 0d  |10:my%=10 ......|
00000ca0  07 8a 05 3a 0d 07 94 0d  dd 20 f2 75 70 64 61 74  |...:..... .updat|
00000cb0  65 0d 07 9e 07 fb 20 31  0d 07 a8 16 f2 73 63 6f  |e..... 1.....sco|
00000cc0  72 65 3a f2 6c 69 76 65  73 3a f2 61 70 70 0d 07  |re:.lives:.app..|
00000cd0  b2 14 74 25 3d 36 2d 28  28 74 69 25 2d 31 29 2f  |..t%=6-((ti%-1)/|
00000ce0  35 29 0d 07 bc 18 f1 20  8a 38 2c 32 38 29 3b 74  |5)..... .8,28);t|
00000cf0  25 3b 22 2f 22 3b 73 63  72 25 0d 07 c6 05 e1 0d  |%;"/";scr%......|
00000d00  07 d0 05 3a 0d 07 da 0d  dd 20 f2 70 6c 61 79 65  |...:..... .playe|
00000d10  72 0d 07 e4 0a f2 70 72  28 30 29 0d 07 ee 11 6f  |r.....pr(0)....o|
00000d20  78 25 3d 78 25 3a 6f 79  25 3d 79 25 0d 07 f8 15  |x%=x%:oy%=y%....|
00000d30  f2 6b 65 79 73 3a f2 63  68 32 3a f2 70 72 28 31  |.keys:.ch2:.pr(1|
00000d40  29 0d 08 02 05 e1 0d 08  0c 05 3a 0d 08 16 0b dd  |).........:.....|
00000d50  20 f2 6b 65 79 73 0d 08  20 1d e7 20 a6 28 2d 39  | .keys.. .. .(-9|
00000d60  38 29 20 80 20 78 25 3e  31 20 78 25 3d 78 25 2d  |8) . x%>1 x%=x%-|
00000d70  31 3a e1 0d 08 2a 1e e7  20 a6 28 2d 36 37 29 20  |1:...*.. .(-67) |
00000d80  80 20 78 25 3c 31 37 20  78 25 3d 78 25 2b 31 3a  |. x%<17 x%=x%+1:|
00000d90  e1 0d 08 34 1f e7 20 a6  28 2d 31 30 35 29 20 80  |...4.. .(-105) .|
00000da0  20 79 25 3c 32 30 20 79  25 3d 79 25 2b 31 3a e1  | y%<20 y%=y%+1:.|
00000db0  0d 08 3e 1b e7 20 a6 28  2d 37 33 29 20 80 20 79  |..>.. .(-73) . y|
00000dc0  25 3e 31 20 79 25 3d 79  25 2d 31 0d 08 48 12 e7  |%>1 y%=y%-1..H..|
00000dd0  20 a6 28 2d 31 37 29 20  73 6f 25 3d 30 0d 08 52  | .(-17) so%=0..R|
00000de0  13 e7 20 a6 28 2d 38 32  29 20 73 6f 25 3d 2d 31  |.. .(-82) so%=-1|
00000df0  0d 08 5c 17 e7 20 a6 28  2d 35 36 29 20 f5 20 fd  |..\.. .(-56) . .|
00000e00  20 a6 28 2d 35 35 29 0d  08 66 05 e1 0d 08 70 15  | .(-55)..f....p.|
00000e10  e7 20 a6 28 2d 35 36 29  20 f5 20 fd 20 a5 3d 37  |. .(-56) . . .=7|
00000e20  39 0d 08 7a 0a dd 20 f2  63 68 32 0d 08 84 16 63  |9..z.. .ch2....c|
00000e30  68 61 72 3d a4 63 68 65  63 6b 28 78 25 2c 79 25  |har=.check(x%,y%|
00000e40  29 0d 08 8e 20 e7 20 78  25 3d 6d 78 25 20 80 20  |)... . x%=mx% . |
00000e50  79 25 3d 6d 79 25 20 64  65 61 64 25 3d 2d 31 3a  |y%=my% dead%=-1:|
00000e60  e1 0d 08 98 21 e7 20 63  68 61 72 3d 32 32 35 20  |....!. char=225 |
00000e70  53 43 25 3d 53 43 25 2b  31 3a f2 73 63 6f 72 65  |SC%=SC%+1:.score|
00000e80  3a e1 0d 08 a2 1e e7 20  63 68 61 72 3d 32 32 36  |:...... char=226|
00000e90  20 78 25 3d 6f 78 25 3a  79 25 3d 6f 79 25 3a e1  | x%=ox%:y%=oy%:.|
00000ea0  0d 08 ac 1f e7 20 78 25  3d 61 78 25 20 80 20 79  |..... x%=ax% . y|
00000eb0  25 3d 61 79 25 20 f2 67  6f 74 61 70 70 3a e1 0d  |%=ay% .gotapp:..|
00000ec0  08 b6 18 e7 20 78 25 3d  31 30 20 80 20 79 25 3d  |.... x%=10 . y%=|
00000ed0  31 30 20 f2 6d 61 64 0d  08 c0 05 e1 0d 08 ca 05  |10 .mad.........|
00000ee0  3a 0d 08 d4 0d dd 20 f2  67 6f 74 61 70 70 0d 08  |:..... .gotapp..|
00000ef0  de 1b 50 3d 30 3a 53 43  25 3d 53 43 25 2b 31 30  |..P=0:SC%=SC%+10|
00000f00  30 3a 41 25 3d 41 25 2b  31 0d 08 e8 1c f2 61 70  |0:A%=A%+1.....ap|
00000f10  70 6c 65 3a f2 73 63 6f  72 65 3a d4 31 2c 31 2c  |ple:.score:.1,1,|
00000f20  32 30 30 2c 31 0d 08 f2  18 ef 31 37 2c 31 2c 33  |200,1.....17,1,3|
00000f30  31 2c 6f 78 25 2c 6f 79  25 2c 32 32 36 0d 08 fc  |1,ox%,oy%,226...|
00000f40  05 e1 0d 09 06 05 3a 0d  09 10 0a dd 20 f2 6d 61  |......:..... .ma|
00000f50  64 0d 09 1a 0c e7 20 6d  61 64 25 20 e1 0d 09 24  |d..... mad% ...$|
00000f60  18 6d 61 64 25 3d 2d 31  3a 53 43 25 3d 53 43 25  |.mad%=-1:SC%=SC%|
00000f70  2b 31 30 30 30 0d 09 2e  11 f2 73 6f 75 6e 64 3a  |+1000.....sound:|
00000f80  f2 73 63 6f 72 65 0d 09  38 05 e1 0d 09 42 05 3a  |.score..8....B.:|
00000f90  0d 09 4c 0c dd 20 f2 70  72 28 43 29 0d 09 56 1d  |..L.. .pr(C)..V.|
00000fa0  21 26 37 30 3d 26 33 30  30 30 2b 78 25 2a 26 32  |!&70=&3000+x%*&2|
00000fb0  30 2b 79 25 2a 26 32 38  30 0d 09 60 0f e7 20 43  |0+y%*&280..`.. C|
00000fc0  20 f2 73 20 8b 20 f2 62  0d 09 6a 05 e1 0d 09 74  | .s . .b..j....t|
00000fd0  05 3a 0d 09 7e 13 dd 20  a4 63 68 65 63 6b 28 71  |.:..~.. .check(q|
00000fe0  25 2c 72 25 29 0d 09 88  13 ef 20 33 31 2c 71 25  |%,r%)..... 31,q%|
00000ff0  2c 72 25 3a d6 26 38 30  0d 09 92 09 3d 3f 26 37  |,r%:.&80....=?&7|
00001000  30 0d 09 9c 05 3a 0d 09  a6 05 3a 0d 09 b0 0c dd  |0....:....:.....|
00001010  20 f2 61 70 70 6c 65 0d  09 ba 1f 21 26 37 30 3d  | .apple....!&70=|
00001020  26 33 30 30 30 2b 61 78  25 2a 26 32 30 2b 61 79  |&3000+ax%*&20+ay|
00001030  25 2a 26 32 38 30 0d 09  c4 0c e7 20 50 20 f2 61  |%*&280..... P .a|
00001040  3a e1 0d 09 ce 06 f2 62  0d 09 d8 1d 61 78 25 3d  |:......b....ax%=|
00001050  b3 28 31 36 29 3a 61 79  25 3d b3 28 32 30 29 3a  |.(16):ay%=.(20):|
00001060  f2 61 70 70 20 0d 09 e2  5e e7 20 28 61 78 25 3d  |.app ...^. (ax%=|
00001070  6d 78 25 20 80 20 61 79  25 3d 6d 79 25 29 20 84  |mx% . ay%=my%) .|
00001080  20 28 61 78 25 3d 78 25  20 80 20 61 79 25 3d 79  | (ax%=x% . ay%=y|
00001090  25 29 20 84 20 28 61 78  25 3d 6e 78 25 20 80 20  |%) . (ax%=nx% . |
000010a0  61 79 25 3d 6e 79 25 29  20 84 20 28 61 78 25 3d  |ay%=ny%) . (ax%=|
000010b0  31 30 20 80 20 61 79 25  3d 31 30 29 20 f2 61 70  |10 . ay%=10) .ap|
000010c0  70 6c 65 0d 09 ec 0f 50  3d 2d 31 3a f2 61 70 70  |ple....P=-1:.app|
000010d0  6c 65 0d 09 f6 05 e1 0d  0a 00 05 3a 0d 0a 0a 0c  |le.........:....|
000010e0  dd 20 f2 62 6c 6f 63 6b  0d 0a 14 15 4c 25 3d ac  |. .block....L%=.|
000010f0  20 4c 25 3a 63 6f 25 3d  63 6f 25 2b 31 0d 0a 1e  | L%:co%=co%+1...|
00001100  15 e7 20 63 6f 25 3c 3e  74 69 25 20 e5 20 8d 44  |.. co%<>ti% . .D|
00001110  46 4a 0d 0a 28 19 ef 20  31 37 2c 31 2c 33 31 2c  |FJ..(.. 17,1,31,|
00001120  6e 78 25 2c 6e 79 25 2c  32 32 36 0d 0a 32 20 e7  |nx%,ny%,226..2 .|
00001130  20 6e 78 25 3d 78 25 20  80 20 6e 79 25 3d 79 25  | nx%=x% . ny%=y%|
00001140  20 64 65 61 64 25 3d 2d  31 3a e1 0d 0a 3c 17 6e  | dead%=-1:...<.n|
00001150  78 25 3d 78 25 3a 6e 79  25 3d 79 25 3a 63 6f 25  |x%=x%:ny%=y%:co%|
00001160  3d 30 0d 0a 46 1c ef 20  31 37 2c 31 2c 33 31 2c  |=0..F.. 17,1,31,|
00001170  6e 78 25 2c 6e 79 25 2c  32 33 31 2d 4c 25 0d 0a  |nx%,ny%,231-L%..|
00001180  50 05 e1 0d 0a 5a 05 3a  0d 0a 64 0e dd 20 f2 6d  |P....Z.:..d.. .m|
00001190  6f 6e 73 74 65 72 0d 0a  6e 10 e7 20 6c 6f 6f 70  |onster..n.. loop|
000011a0  25 3c 3e 31 20 e1 0d 0a  78 0a f2 70 6d 28 30 29  |%<>1 ...x..pm(0)|
000011b0  0d 0a 82 19 6f 78 25 3d  6d 78 25 3a 6f 79 25 3d  |....ox%=mx%:oy%=|
000011c0  6d 79 25 3a f2 6d 6f 76  65 0d 0a 8c 0e f2 63 68  |my%:.move.....ch|
000011d0  3a f2 70 6d 28 31 29 0d  0a 96 05 e1 0d 0a a0 05  |:.pm(1).........|
000011e0  3a 0d 0a aa 0b dd 20 f2  6d 6f 76 65 0d 0a b4 18  |:..... .move....|
000011f0  e7 20 6d 78 25 3c 78 25  20 6d 78 25 3d 6d 78 25  |. mx%<x% mx%=mx%|
00001200  2b 31 3a e1 0d 0a be 18  e7 20 6d 78 25 3e 78 25  |+1:...... mx%>x%|
00001210  20 6d 78 25 3d 6d 78 25  2d 31 3a e1 0d 0a c8 18  | mx%=mx%-1:.....|
00001220  e7 20 6d 79 25 3c 79 25  20 6d 79 25 3d 6d 79 25  |. my%<y% my%=my%|
00001230  2b 31 3a e1 0d 0a d2 16  e7 20 6d 79 25 3e 79 25  |+1:...... my%>y%|
00001240  20 6d 79 25 3d 6d 79 25  2d 31 0d 0a dc 05 e1 0d  | my%=my%-1......|
00001250  0a e6 05 3a 0d 0a f0 0c  dd 20 f2 70 6d 28 43 29  |...:..... .pm(C)|
00001260  0d 0a fa 1f 21 26 37 30  3d 26 33 30 30 30 2b 6d  |....!&70=&3000+m|
00001270  78 25 2a 26 32 30 2b 6d  79 25 2a 26 32 38 30 0d  |x%*&20+my%*&280.|
00001280  0b 04 11 e7 20 43 3d 30  20 f2 62 20 8b 20 f2 6d  |.... C=0 .b . .m|
00001290  0d 0b 0e 05 e1 0d 0b 18  05 3a 0d 0b 22 09 dd 20  |.........:..".. |
000012a0  f2 63 68 0d 0b 2c 20 e7  20 6d 61 64 25 20 ef 20  |.ch.., . mad% . |
000012b0  31 37 2c 31 2c 33 31 2c  6f 78 25 2c 6f 79 25 2c  |17,1,31,ox%,oy%,|
000012c0  32 32 36 0d 0b 36 1f e7  20 6d 78 25 3d 61 78 25  |226..6.. mx%=ax%|
000012d0  20 80 20 6d 79 25 3d 61  79 25 20 f2 6d 6f 6e 61  | . my%=ay% .mona|
000012e0  70 70 0d 0b 40 1e e7 20  6d 78 25 3d 78 25 20 80  |pp..@.. mx%=x% .|
000012f0  20 6d 79 25 3d 79 25 20  64 65 61 64 25 3d 2d 31  | my%=y% dead%=-1|
00001300  0d 0b 4a 05 e1 0d 0b 54  05 3a 0d 0b 5e 0d dd 20  |..J....T.:..^.. |
00001310  f2 6d 6f 6e 61 70 70 0d  0b 68 1b 50 3d 30 3a 53  |.monapp..h.P=0:S|
00001320  43 25 3d 53 43 25 2d 31  30 30 3a 41 25 3d 41 25  |C%=SC%-100:A%=A%|
00001330  2d 32 0d 0b 72 1b d4 20  31 2c 31 2c 30 2c 31 3a  |-2..r.. 1,1,0,1:|
00001340  f2 61 70 70 6c 65 3a f2  73 63 6f 72 65 0d 0b 7c  |.apple:.score..||
00001350  05 e1 0d 0b 86 05 3a 0d  0b 90 0b dd 20 f2 61 70  |......:..... .ap|
00001360  73 63 0d 0b 9a 18 e7 20  53 43 25 3c 30 20 53 43  |sc..... SC%<0 SC|
00001370  25 3d 30 3a f2 73 63 6f  72 65 0d 0b a4 14 e7 20  |%=0:.score..... |
00001380  41 25 3c 30 20 41 25 3d  30 3a f2 61 70 70 0d 0b  |A%<0 A%=0:.app..|
00001390  ae 05 e1 0d 0b b8 05 3a  0d 0b c2 0a dd 20 f2 61  |.......:..... .a|
000013a0  70 70 0d 0b cc 1d f1 20  8a 38 2c 33 30 29 3b 41  |pp..... .8,30);A|
000013b0  25 3b 22 2f 22 3b 61 70  70 25 3b 89 28 32 29 0d  |%;"/";app%;.(2).|
000013c0  0b d6 05 e1 0d 0b e0 05  3a 0d 0b ea 0c dd 20 f2  |........:..... .|
000013d0  73 63 6f 72 65 0d 0b f4  19 fb 20 31 3a f1 20 8a  |score..... 1:. .|
000013e0  37 2c 32 34 29 3b 53 43  25 3b 89 28 33 29 0d 0b  |7,24);SC%;.(3)..|
000013f0  fe 05 e1 0d 0c 08 05 3a  0d 0c 12 0d dd 20 f2 66  |.......:..... .f|
00001400  69 6e 69 73 68 0d 0c 1c  0d d4 20 31 2c 32 2c 30  |inish..... 1,2,0|
00001410  2c 31 0d 0c 26 1e 4c 49  25 3d 4c 49 25 2d 31 3a  |,1..&.LI%=LI%-1:|
00001420  e7 20 4c 49 25 3e 3d 30  20 64 65 61 64 25 3d 30  |. LI%>=0 dead%=0|
00001430  0d 0c 30 05 e1 0d 0c 3a  05 3a 0d 0c 44 0d dd 20  |..0....:.:..D.. |
00001440  f2 6e 65 77 73 63 72 0d  0c 4e 21 41 25 3d 30 3a  |.newscr..N!A%=0:|
00001450  73 63 72 25 3d 73 63 72  25 2b 31 3a e7 20 73 63  |scr%=scr%+1:. sc|
00001460  72 25 3e 34 20 f2 74 69  0d 0c 58 09 f2 76 61 72  |r%>4 .ti..X..var|
00001470  32 0d 0c 62 05 e1 0d 0c  6c 05 3a 0d 0c 76 09 dd  |2..b....l.:..v..|
00001480  20 f2 74 69 0d 0c 80 14  73 63 72 25 3d 31 3a 74  | .ti....scr%=1:t|
00001490  69 25 3d 74 69 25 2d 35  0d 0c 8a 11 e7 20 74 69  |i%=ti%-5..... ti|
000014a0  25 3c 31 20 74 69 25 3d  31 0d 0c 94 05 e1 0d 0c  |%<1 ti%=1.......|
000014b0  9e 05 3a 0d 0c a8 0f dd  20 f2 6d 75 73 68 72 6f  |..:..... .mushro|
000014c0  6f 6d 0d 0c b2 0e 21 26  37 30 3d 26 34 41 34 30  |om....!&70=&4A40|
000014d0  0d 0c bc 11 e7 20 6d 61  64 25 20 e1 20 8b 20 f2  |..... mad% . . .|
000014e0  72 0d 0c c6 05 e1 0d 0c  d0 05 3a 0d 0c da 0c dd  |r.........:.....|
000014f0  20 f2 73 6f 75 6e 64 0d  0c e4 0f ef 20 31 39 2c  | .sound..... 19,|
00001500  39 2c 35 3b 30 3b 0d 0c  ee 12 e3 20 51 25 3d 30  |9,5;0;..... Q%=0|
00001510  20 b8 32 35 35 20 88 34  0d 0c f8 1b d4 20 31 2c  | .255 .4..... 1,|
00001520  33 2c 51 25 2c 2e 39 3a  d4 20 30 2c 33 2c 51 25  |3,Q%,.9:. 0,3,Q%|
00001530  2c 2e 39 0d 0d 02 08 ed  20 51 25 0d 0d 0c 16 e3  |,.9..... Q%.....|
00001540  20 51 25 3d 32 35 35 20  b8 38 30 20 88 20 2d 39  | Q%=255 .80 . -9|
00001550  30 0d 0d 16 0e d4 20 31  2c 32 2c 51 25 2c 31 0d  |0..... 1,2,Q%,1.|
00001560  0d 20 08 ed 20 51 25 0d  0d 2a 05 e1 0d 0d 34 05  |. .. Q%..*....4.|
00001570  3a 0d 0d 3e 0c dd 20 f2  6c 69 76 65 73 0d 0d 48  |:..>.. .lives..H|
00001580  1b f1 20 8a 37 2c 32 36  29 89 28 33 29 3a 21 26  |.. .7,26).(3):!&|
00001590  37 30 3d 26 37 31 45 30  0d 0d 52 0e e7 20 4c 49  |70=&71E0..R.. LI|
000015a0  25 3d 30 20 e1 20 0d 0d  5c 0a 51 25 3d 31 3a f5  |%=0 . ..\.Q%=1:.|
000015b0  0d 0d 66 1c f2 73 3a 51  25 3d 51 25 2b 31 3a 21  |..f..s:Q%=Q%+1:!|
000015c0  26 37 30 3d 21 26 37 30  2b 26 32 30 0d 0d 70 0c  |&70=!&70+&20..p.|
000015d0  fd 20 51 25 3e 4c 49 25  0d 0d 7a 05 e1 0d 0d 84  |. Q%>LI%..z.....|
000015e0  05 3a 0d 0d 8e 19 dd 20  f2 73 3a 21 26 37 34 3d  |.:..... .s:!&74=|
000015f0  73 68 25 3a d6 63 6f 64  65 3a e1 0d 0d 98 05 3a  |sh%:.code:.....:|
00001600  0d 0d a2 19 dd 20 f2 6d  3a 21 26 37 34 3d 6d 6f  |..... .m:!&74=mo|
00001610  25 3a d6 63 6f 64 65 3a  e1 0d 0d ac 05 3a 0d 0d  |%:.code:.....:..|
00001620  b6 19 dd 20 f2 61 3a 21  26 37 34 3d 61 70 25 3a  |... .a:!&74=ap%:|
00001630  d6 63 6f 64 65 3a e1 0d  0d c0 05 3a 0d 0d ca 19  |.code:.....:....|
00001640  dd 20 f2 72 3a 21 26 37  34 3d 6d 75 25 3a d6 63  |. .r:!&74=mu%:.c|
00001650  6f 64 65 3a e1 0d 0d d4  05 3a 0d 0d de 19 dd 20  |ode:.....:..... |
00001660  f2 62 3a 21 26 37 34 3d  62 6c 25 3a d6 63 6f 64  |.b:!&74=bl%:.cod|
00001670  65 3a e1 0d 0d e8 05 3a  0d 0d f2 0a dd 20 f2 65  |e:.....:..... .e|
00001680  6e 64 0d 0d fc 1b ef 32  33 3b 38 32 30 32 3b 30  |nd.....23;8202;0|
00001690  3b 30 3b 30 3b 3a 2a 46  58 32 31 2c 30 0d 0e 06  |;0;0;:*FX21,0...|
000016a0  12 e7 20 53 43 25 3c 3d  48 25 28 35 29 20 e1 0d  |.. SC%<=H%(5) ..|
000016b0  0e 10 11 e3 20 51 25 3d  35 20 b8 31 20 88 2d 31  |.... Q%=5 .1 .-1|
000016c0  0d 0e 1a 16 e7 20 48 25  28 51 25 29 3c 53 43 25  |..... H%(Q%)<SC%|
000016d0  20 43 25 3d 51 25 0d 0e  24 08 ed 20 51 25 0d 0e  | C%=Q%..$.. Q%..|
000016e0  2e 05 db 0d 0e 38 19 f2  63 65 6e 74 28 22 57 45  |.....8..cent("WE|
000016f0  4c 4c 20 44 4f 4e 45 21  21 21 22 29 0d 0e 42 08  |LL DONE!!!")..B.|
00001700  f1 27 27 27 0d 0e 4c 22  f2 63 65 6e 74 28 22 59  |.'''..L".cent("Y|
00001710  6f 75 72 20 73 63 6f 72  65 20 6f 66 20 22 2b c3  |our score of "+.|
00001720  28 53 43 25 29 29 0d 0e  56 06 f1 27 0d 0e 60 1d  |(SC%))..V..'..`.|
00001730  42 24 3d c1 22 20 73 74  6e 64 72 64 74 68 74 68  |B$=." stndrdthth|
00001740  22 2c 43 25 2a 32 2c 32  29 0d 0e 6a 20 f2 63 65  |",C%*2,2)..j .ce|
00001750  6e 74 28 22 72 61 6e 6b  73 20 79 6f 75 20 22 2b  |nt("ranks you "+|
00001760  c3 28 43 25 29 2b 42 24  29 0d 0e 74 06 f1 27 0d  |.(C%)+B$)..t..'.|
00001770  0e 7e 1c f2 63 65 6e 74  28 22 45 6e 74 65 72 20  |.~..cent("Enter |
00001780  79 6f 75 72 20 6e 61 6d  65 22 29 0d 0e 88 11 41  |your name")....A|
00001790  24 3d a4 69 6e 70 75 74  28 31 37 29 0d 0e 92 10  |$=.input(17)....|
000017a0  e7 20 43 25 3d 35 20 e5  8d 74 7a 4e 0d 0e 9c 12  |. C%=5 ..tzN....|
000017b0  e3 20 51 25 3d 34 20 b8  43 25 20 88 2d 31 0d 0e  |. Q%=4 .C% .-1..|
000017c0  a6 23 48 25 28 51 25 2b  31 29 3d 48 25 28 51 25  |.#H%(Q%+1)=H%(Q%|
000017d0  29 3a 48 24 28 51 25 2b  31 29 3d 48 24 28 51 25  |):H$(Q%+1)=H$(Q%|
000017e0  29 0d 0e b0 08 ed 20 51  25 0d 0e ba 18 48 25 28  |)..... Q%....H%(|
000017f0  43 25 29 3d 53 43 25 3a  48 24 28 43 25 29 3d 41  |C%)=SC%:H$(C%)=A|
00001800  24 0d 0e c4 05 e1 0d 0e  ce 05 3a 0d 0e d8 10 dd  |$.........:.....|
00001810  20 a4 69 6e 70 75 74 28  75 70 29 0d 0e e2 09 41  | .input(up)....A|
00001820  24 3d 22 22 0d 0e ec 05  f5 0d 0e f6 07 41 3d a5  |$="".........A=.|
00001830  0d 0f 00 19 e7 20 41 3d  31 32 37 20 41 24 3d c0  |..... A=127 A$=.|
00001840  41 24 2c a9 41 24 2d 31  29 0d 0f 0a 25 e7 20 a4  |A$,.A$-1)...%. .|
00001850  76 61 6c 69 64 28 41 29  20 80 20 a9 28 41 24 29  |valid(A) . .(A$)|
00001860  3c 32 30 20 41 24 3d 41  24 2b bd 28 41 29 0d 0f  |<20 A$=A$+.(A)..|
00001870  14 1a f1 20 8a 30 2c 75  70 29 89 28 34 30 29 3b  |... .0,up).(40);|
00001880  8a 30 2c 75 70 2d 31 29  0d 0f 1e 0d f2 63 65 6e  |.0,up-1).....cen|
00001890  74 28 41 24 29 0d 0f 28  0a fd 20 41 3d 31 33 0d  |t(A$)..(.. A=13.|
000018a0  0f 32 07 3d 41 24 0d 0f  3c 05 3a 0d 0f 46 0f dd  |.2.=A$..<.:..F..|
000018b0  20 a4 76 61 6c 69 64 28  41 29 0d 0f 50 2c 3d 28  | .valid(A)..P,=(|
000018c0  28 41 3e 36 34 20 80 20  41 3c 39 31 29 20 84 20  |(A>64 . A<91) . |
000018d0  28 41 3e 39 36 20 80 20  41 3c 31 32 33 29 20 84  |(A>96 . A<123) .|
000018e0  20 41 3d 33 32 29 0d 0f  5a 05 3a 0d 0f 64 0b dd  | A=32)..Z.:..d..|
000018f0  20 f2 74 75 6e 65 0d 0f  6e 0d e7 20 73 6f 25 3d  | .tune..n.. so%=|
00001900  30 20 e1 0d 0f 78 1a f3  20 4e 2c 44 3a e7 20 4e  |0 ...x.. N,D:. N|
00001910  3d 30 20 f7 20 8d 64 5c  4f 3a 4e 3d 31 0d 0f 82  |=0 . .d\O:N=1...|
00001920  15 e7 20 4e 3d 31 20 d4  20 31 2c 30 2c 30 2c 32  |.. N=1 . 1,0,0,2|
00001930  3a e1 0d 0f 8c 12 d4 20  31 2c 31 2c 4e 2d 34 38  |:...... 1,1,N-48|
00001940  2c 44 2a 32 0d 0f 96 05  e1 0d 0f a0 0c dd 20 f2  |,D*2.......... .|
00001950  67 72 61 73 73 0d 0f aa  11 e3 20 59 25 20 3d 20  |grass..... Y% = |
00001960  31 20 b8 20 32 30 0d 0f  b4 15 f1 20 8a 31 2c 59  |1 . 20..... .1,Y|
00001970  25 29 c4 31 37 2c bd 32  32 35 29 0d 0f be 07 ed  |%).17,.225).....|
00001980  3a e1 0d 0f c8 05 3a 0d  0f d2 0f f4 20 54 75 6e  |:.....:..... Tun|
00001990  65 20 64 61 74 61 0d 0f  dc 23 dc 20 31 30 31 2c  |e data...#. 101,|
000019a0  32 2c 31 31 37 2c 32 2c  31 32 39 2c 32 2c 31 32  |2,117,2,129,2,12|
000019b0  39 2c 34 2c 31 37 37 2c  32 0d 0f e6 1f dc 20 31  |9,4,177,2..... 1|
000019c0  37 37 2c 32 2c 31 2c 31  2c 31 36 35 2c 32 2c 31  |77,2,1,1,165,2,1|
000019d0  36 35 2c 32 2c 31 2c 31  0d 0f f0 23 dc 20 31 30  |65,2,1,1...#. 10|
000019e0  31 2c 32 2c 31 30 31 2c  32 2c 31 31 37 2c 32 2c  |1,2,101,2,117,2,|
000019f0  31 32 39 2c 32 2c 31 32  39 2c 34 0d 0f fa 21 dc  |129,2,129,4...!.|
00001a00  20 31 37 37 2c 32 2c 31  37 37 2c 32 2c 31 2c 31  | 177,2,177,2,1,1|
00001a10  2c 31 36 39 2c 32 2c 31  36 39 2c 32 0d 10 04 1f  |,169,2,169,2....|
00001a20  dc 20 31 2c 31 2c 39 37  2c 32 2c 39 37 2c 32 2c  |. 1,1,97,2,97,2,|
00001a30  31 30 39 2c 32 2c 31 33  37 2c 32 0d 10 0e 21 dc  |109,2,137,2...!.|
00001a40  20 31 33 37 2c 34 2c 31  38 35 2c 32 2c 31 38 35  | 137,4,185,2,185|
00001a50  2c 32 2c 31 2c 31 2c 31  36 39 2c 32 0d 10 18 1f  |,2,1,1,169,2....|
00001a60  dc 20 31 36 39 2c 32 2c  31 2c 31 2c 39 37 2c 32  |. 169,2,1,1,97,2|
00001a70  2c 39 37 2c 32 2c 31 30  39 2c 32 0d 10 22 21 dc  |,97,2,109,2.."!.|
00001a80  20 31 33 37 2c 32 2c 31  33 37 2c 34 2c 31 38 35  | 137,2,137,4,185|
00001a90  2c 32 2c 31 38 35 2c 32  2c 31 2c 31 0d 10 2c 21  |,2,185,2,1,1..,!|
00001aa0  dc 20 31 36 35 2c 32 2c  31 36 35 2c 32 2c 31 2c  |. 165,2,165,2,1,|
00001ab0  31 2c 31 30 31 2c 32 2c  31 30 31 2c 32 0d 10 36  |1,101,2,101,2..6|
00001ac0  23 dc 20 31 31 37 2c 32  2c 31 32 39 2c 32 2c 31  |#. 117,2,129,2,1|
00001ad0  34 39 2c 34 2c 31 39 37  2c 32 2c 31 39 37 2c 32  |49,4,197,2,197,2|
00001ae0  0d 10 40 1f dc 20 31 2c  31 2c 31 37 37 2c 32 2c  |..@.. 1,1,177,2,|
00001af0  31 37 37 2c 32 2c 31 2c  31 2c 31 30 31 2c 32 0d  |177,2,1,1,101,2.|
00001b00  10 4a 23 dc 20 31 30 31  2c 32 2c 31 31 37 2c 32  |.J#. 101,2,117,2|
00001b10  2c 31 32 39 2c 32 2c 31  34 39 2c 34 2c 31 39 37  |,129,2,149,4,197|
00001b20  2c 32 0d 10 54 1f dc 20  31 39 37 2c 32 2c 31 2c  |,2..T.. 197,2,1,|
00001b30  31 2c 31 38 35 2c 32 2c  31 38 35 2c 32 2c 31 2c  |1,185,2,185,2,1,|
00001b40  31 0d 10 5e 23 dc 20 31  35 37 2c 32 2c 31 35 37  |1..^#. 157,2,157|
00001b50  2c 32 2c 31 36 39 2c 32  2c 31 38 35 2c 32 2c 31  |,2,169,2,185,2,1|
00001b60  38 35 2c 38 0d 10 68 23  dc 20 31 37 33 2c 32 2c  |85,8..h#. 173,2,|
00001b70  31 37 37 2c 32 2c 32 31  33 2c 38 2c 31 39 37 2c  |177,2,213,8,197,|
00001b80  32 2c 31 36 35 2c 32 0d  10 72 1d dc 20 31 36 35  |2,165,2..r.. 165|
00001b90  2c 34 2c 31 35 37 2c 32  2c 31 38 35 2c 34 2c 31  |,4,157,2,185,4,1|
00001ba0  37 37 2c 32 0d 10 7c 10  dc 20 31 34 39 2c 31 32  |77,2..|.. 149,12|
00001bb0  2c 30 2c 30 0d ff                                 |,0,0..|
00001bb6