� FRUIT WORM
� By C.Dunkley
� (c) Electron User
(�5
2�initialise
<�
F�titles
P�
Z�screen
d�
n/�O%=0�Q%:�:E%=0:H%=H%+1:�keys:�K%=145�pause
x$�H%=60H%=2:X%?1=X%?59:Y%?1=Y%?59
�IX%?H%=?(X%+H%-1)-(D%=151)+(D%=155):Y%?H%=?(Y%+H%-1)+(D%=182)-(D%=183)
�)A%=X%?H%:B%=Y%?H%:C%=?(&900+18*B%+A%)
�4�C%=1�A%=0�A%=19�B%=3�B%=30:I%=I%-Z%:Z%=-1:�d\@
�8�C%=2Z%=Z%-1:E%=1:S%=S%+100:�1,2,10,4:�1,1)�f(S%,6)
�>�head:A%=?(X%+H%-1):B%=?(Y%+H%-1):�body:?(&900+18*B%+A%)=1
��E%<>0 �d\@
�/A%=X%?T%:B%=Y%?T%:�erase:?(&900+18*B%+A%)=0
�,T%=T%+1:�T%=60T%=2:X%?1=X%?59:Y%?1=Y%?59
�.A%=X%?T%:B%=Y%?T%:�body:?(&900+18*B%+A%)=1
�	�Z%<1
��Z% �dead ��bonus
�	�L%=0
��129:�3

 �print(350,650,"GAME  OVER")

�=0:� ��>275

	��d|R

"�N%=1�8:�A,B:�1,4,A,B:�

,�=0:� ��>475

6
�table

@�0

J�

T:

^'ݤf(A%,B%):�2:��"00000"+�A%,B%);:�3

h_�S%>=P%�L%<7�1,2,50,6:L%=L%+1:P%=P%+50000:O%=A%:W%=B%:B%=2:A%=L%+6:�up:A%=O%:B%=W%:="" �=""

r:

|��pause

�
C%=138

�	*fx21

���?&EC=0 �?&ED=0

��

�	�wait

�	�keys

�
�K%<>0

�	*fx15

��

�:

���erase(I)

��N%=1�I%

�A%=?(X%+T%):B%=?(Y%+T%)
,T%=T%+1:�T%=60T%=2:X%?1=X%?59:Y%?1=Y%?59
�Z% �splat

�0,-1,5,4
&
�erase
0S%=S%+I
:�1,1);�f(S%,6)
D
�N=1�45:�
N�1,0,0,1
X
�N=1�25:�
b�
l�
v:
�
��dead
�
�0,-1,5,8
��erase(10)
��2
�"�print(286,850,"YOU'RE DEAD!")
�L%=L%-1
�	��d@R
��N%=1�11
�
�A%,B%
��1,2,A%,B%
��1,0,0,1
��
��N=1�800:�
�
:
��bonus
 �erase(50)
*Q%=Q%+4*(Q%<>0)
4R%=R%+4:�R%=60R%=32
>
B=FR%*200
H"�print(260,832,"NEXT PATTERN")
R�4,13);
\$&110="BONUS:":�double
f�2
p $&110=�"00000"+�B,6):�double
z�N=1�330:�
��N%=1�B/100
�S%=S%+100:B=B-100
��1,1)�f(S%,6)�10,13);
��2:�0,-1,5,3
� $&110=�"00000"+�B,6):�double
��1,0,0,0
��
�
FR%=FR%+1
�	��tvR
��N%=1�25
�
�A%,B%
��A%=0 V%=0 �V%=2
��1,V%,A%,B%
�1,0,0,1
�
�N=1�700:�
$�
.:
8��print(A,B,B$)
B�5
L�N%=1�3
V�0,2-(N%=1)+(N%=2)
`�A+6*N%,B+6*N%
j$&110=B$:�double
t�
~�4
��
�:
���table
�
�black
�
line=0
�
�128:�
��1:�131
�!�print(270,960,"High Scores")
��128
��S%>score%(9) �swap
��N%=1�9
�X=N%*2+4
�1

�0,X);N%;")";�8,X);"...."
�2
�2,X);name$(N%);
(�3
2 �13,X);�"  "+�score%(N%),6)
<�
F�colours
P�line<>0 �input
Z�1:�131
d#�print(270,120,"Press any key")
n
C%=138
x	*fx15
��
�	�wait
��C%=45��0<>""
��
�:
�
��swap
�#score%(9)=S%:name$(9)="":line=9
��L%=8�1�-1
�&�score%(L%+1)>score%(L%) �exchange
��
��
�:
���exchange
7s=score%(L%):score%(L%)=score%(L%+1):score%(L%+1)=s
5s$=name$(L%):name$(L%)=name$(L%+1):name$(L%+1)=s$
line=L%
"�
,:
6��input
@	*fx15
J+�5,25);"Please enter"''�6)"your name."
T
*fx202 48
^�23,1,1,0,0;0;0;
hY=line*2+4
r�2,Y);
|	��dJR
��N%=1�18:�A,B:�1,-15,A,B:�
�
L=0:a$=""
��
�
�L+2,Y);
�a=�
�'�a>31 �a<127 �L<5 L=L+1:�a:a$=a$+�a
�$�a=127 �L>0 �127:L=L-1:a$=�a$,L)
�	�a=13
��23,1,0;0;0;0;
�name$(line)=a$
��2
�
�2,Y);a$
�
*fx202
�5,25);�(90)
�
:
&��initialise
0	*fx11
:	*fx15
D*fx229 1
N�?&212=27 �"fx163 128 1"
X-�1,1,3,-90,1,1,-2,-3,126,0,0,-126,126,126
b+�2,1,1,-2,1,7,5,12,126,0,0,-126,126,126
l*�3,1,0,0,0,10,10,10,126,-4,-1,-4,126,0
v$�4,2,0,0,0,0,0,0,64,-7,0,0,126,0
�
rnd=�(-�)
�0�W%700,X%60,Y%60,name$(9),score%(9),fruit(3)
�$score%(1)=340400:name$(1)=" LSI"
��N%=2�9
�score%(N%)=500*(21-N%)
�name$(N%)="Acorn"
��
�
�assemble
��characters
��
�:
���titles
��23,1,0;0;0;0;
�
!S%=0:L%=3:R%=8:FR%=1:P%=50000

Q%=248
 
�black
*�1:�128
4�N%=1�59
>�"  C.Dunkley";
H�
R�"  C.Dunkle";
\�3
f�5,28);"C.Dunkley";
p!�print(350,1000,"Fruit Worm")
z'�print(40,70,"Sound ON/OFF (S/Q)?")
��24,80;170;1236;910;
��0,131:�
��28,1,25,18,3
�
�3:�130:�
�u�'"  Guide the worm  around the screen,eating:           and avoiding the  rocks,outer fence and your own tail.";
�2�'"A BONUS is awardedat the end of eachframe."
�>�'"Extra worms are   awarded for every 50,000 pts scored."
��1
�,�'"   CONTROLS: A";�12);"< >";�(16);"Z";
�!�''"   P - Pause ";:�3:�"ON";
�B%=7
��N%=1�3
�A%=6+2*N%:�fruit(N%)
	�
		��TFS
	�colours
	$�N%=1�10:�A,B:�1,-10,A,B:�
	.	*fx21
	8
C%=133
	B�
	L	�wait
	VA=�0 �32
	`�A=113 �A=115
	j	*fx15
	t�"fx210 "+�-(A=113)
	~�26
	��
	�:
	�
��wait
	�t=4
	�C%=C%+1
	��C%>188 C%=1:��dTR
	��C%>0 �C%<17 t=1
	��C%>46 �C%<67 t=2
	��C%>86 �C%<129 t=3
	��t=4 �loop=1�250:�:�
	��A,B
	��t=1 �1,3,A,B:�
�t=2 �1,-15,A,B:�

"�t=3 �A=0 �1,0,A,B ��1,-15,A,B
�
:
(��screen
2
�128:�
<
�black
F�A%=1�29
P�B%=1�18
Z?(&900+B%+A%*18)=0
d�,
n�129
x0�19,31);" ";�0,0);�40," ");�0,30);�39," ");
��3
�%�1,30);"FR:"�3,0);"SC"�(10);"HI"
�8�1,1);�f(S%,6);�(6);�f(score%(1),6)�4,30);�f(FR%,2)
��0,2);�224;�18,�225);�226;
� �0,29);�227;�18,�225);�228;
��N%=3�28
��0,N%);�229;�19,N%);�229;
��
�?&9BE=1
�?&9BD=1
�?&9BF=1
�?&9D0=1
�?&9AC=1
A%=10:B%=10:�right
A%=9:�body
�N%=1�L%
"A%=N%+6
,B%=2:�up
6�
@�print(375,50,"Fruit Worm")
JZ%=R%:I%=Z%+2
T�N%=1�Z%/4
^�locate(1,rock)
h�
r�N%=1�Z%+8
|�locate(2,fruit(�(3)))
��
��colours
��
��N%=1�17
�
�A%,B%
��A%=0 V%=0 �V%=2
��1,V%,A%,B%
��1,0,0,1
��
�D%=151:K%=0
�
H%=2:T%=1
�X%?1=9:Y%?1=10
�X%?2=10:Y%?2=10
?&9BF=0
?&9D0=0
?&9AC=0
&
�pause
0�129:�2
:�
D:
N��locate(a,b)
X�
bA%=�(18):B%=�(26)+3
l�?(&900+B%*18+A%)=0
v?(&900+B%*18+A%)=a
��b
��
�:
���characters
� �23,224,0,1,3,6,12,25,51,102
�#�23,225,0,255,255,0,0,255,255,0
�'�23,226,0,128,192,96,48,152,204,102
� �23,227,102,51,25,12,6,3,1,0
�'�23,228,102,204,152,48,96,192,128,0
�+�23,229,102,102,102,102,102,102,102,102
��
�:
�
��colours

)�19,0,2;0;19,1,1;0;19,2,3;0;19,3,0;0;

�

:

 ��black

*�N%=0�3:�19,N%,0;0;:�

4�

>:

H��assemble

R
�N%=0�2�2

\P%=W%:[OPTN%

f
.erase

pLDA#erase_data �256:STA&72

zLDA#erase_data �256:STA&73

�JMPprint

�	.rock

�LDA#rock_data �256:STA&72

�LDA#rock_data �256:STA&73

�JMPprint

�
.splat

�LDA#splat_data �256:STA&72

�LDA#splat_data �256:STA&73

�JMPprint

�
.fruit(1)

�LDA#fruit1_data �256:STA&72

�LDA#fruit1_data �256:STA&73

�JMPprint

.fruit(2)
LDA#fruit2_data �256:STA&72
LDA#fruit2_data �256:STA&73
$JMPprint
.
.fruit(3)
8LDA#fruit3_data �256:STA&72
BLDA#fruit3_data �256:STA&73
LJMPprint
V	.left
`LDA#left_data �256:STA&72
jLDA#left_data �256:STA&73
tJMPprint
~
.right
�LDA#right_data �256:STA&72
�LDA#right_data �256:STA&73
�JMPprint
�.up
�LDA#up_data �256:STA&72
�LDA#up_data �256:STA&73
�JMPprint
�	.down
�LDA#down_data �256:STA&72
�LDA#down_data �256:STA&73
�JMPprint
�	.body
LDA#body_data �256:STA&72

LDA#body_data �256:STA&73
JMPprint
:
(.fruit1_data
2;EQUD&03896600:EQUD&01030707:EQUD&0C088866:EQUD&080CC24A
<.fruit2_data
F;EQUD&11001166:EQUD&062D0622:EQUD&06CC0000:EQUD&0000062D
P.erase_data
ZEQUD0:EQUD0:EQUD0:EQUD0
d.splat_data
n;EQUD&7D657FAA:EQUD&1253DABB:EQUD&AABBCCDD:EQUD&11002200
x.rock_data
�;EQUD&31101010:EQUD&F0F76371:EQUD&6CECC880:EQUD&C0FC3E3E
�.fruit3_data
�;EQUD&65329966:EQUD&3354ADDA:EQUD&A24C9966:EQUD&CC6AB553
�.body_data
�;EQUD&DFAF5733:EQUD&3367DFAF:EQUD&5DBB6ECC:EQUD&CCAE5FBF
�.left_data
�;EQUD&DF763311:EQUD&112356AF:EQUD&5FBF6ECC:EQUD&CCAE5FBF
�.right_data
�;EQUD&AFDF6733:EQUD&3357AFDF:EQUD&BFE6CC88:EQUD&884CA65F
�.up_data
�;EQUD&FD673311:EQUD&3367DFAF:EQUD&5BAE4C88:EQUD&CCAE5FBF
�.down_data
�;EQUD&DFAF5733:EQUD&112357AD:EQUD&5FBF6ECC:EQUD&88CC6EFB
:

.print
LDA#� �256:STA&74
"LDA#� �256:STA&75
,LDA&404:ASLA:ASLA:TAX:LDY#4
6
.loop1
@&TXA:CLC:ADC&74:STA&74:BCCn1:INC&75
J.n1
TDEY:BNEloop1
^%LDA&408:ASLA:ASLA:ASLA:TAX:LDY#40
h
.loop2
r&TXA:CLC:ADC&74:STA&74:BCCn2:INC&75
|.n2
�DEY:BNEloop2
�	LDY#0
�
.loopP
�1LDA(&72),Y:STA(&74),Y:INY:CPY#16:BNEloopP:RTS
�:
�	.keys
�LDA&EC:LDX&ED
�BEQcontkeys
�TXA
�
.contkeys
�STA&42C
�CMP#151:BEQyes
�CMP#155:BEQyes
CMP#182:BEQyes
CMP#183:BNEhomekeys
.yes
&STA&410
0
.homekeys
:RTS
D:
N	.head
XLDA&410
bCMP#155:BNEnotleft:JMPleft
l.notleft
v CMP#151:BNEnotright:JMPright
�
.notright
�CMP#182:BNEnotup:JMPup
�
.notup
�CMP#183:BNEnotdown:JMPdown
�.notdown
�RTS
�:
�.double
�
LDA#0:PHA
�.loopD1
�$PLA:TAX:LDA&110,X:CMP#13:BEQfini
�
STA&80
�INX:TXA:PHA
!LDX#&80:LDY#0:LDA#10:JSR&FFF1
$LDA#23:JSR&FFEE:LDA#255:JSR&FFEE
	LDY#1
 .loopD2
*LDA&80,Y:JSR&FFEE:JSR&FFEE
4INY:CPY#5:BNEloopD2
>3LDA#255:JSR&FFEE:LDA#8:JSR&FFEE:LDA#10:JSR&FFEE
H$LDA#23:JSR&FFEE:LDA#255:JSR&FFEE
R.loopD3
\LDA&80,Y:JSR&FFEE:JSR&FFEE
fINY:CPY#9:BNEloopD3
p$LDA#255:JSR&FFEE:LDA#11:JSR&FFEE
z
JMPloopD1
�
.fini RTS
�]:�
��
�:
�k�136,2,128,2,136,12,128,2,120,2,116,2,108,2,104,8,108,16,0,2,136,2,128,2,136,12,116,6,120,6,104,6,108,8
���108,1,116,1,108,1,100,1,96,1,80,1,80,2,88,1,96,1,88,1,80,1,76,1,60,1,60,2,108,1,116,1,108,1,100,1,96,1,80,1,80,1,96,1,68,2,76,4,80,4
�;�68,8,68,6,68,2,68,8,80,6,76,2,76,4,68,4,68,6,64,2,68,8
�p�101,5,121,3,137,5,121,2,129,2,121,2,129,2,121,4,117,3,101,5,121,3,137,5,121,2,129,2,121,2,129,2,121,4,117,3
�g�121,2,141,8,141,8,149,8,149,8,169,14,157,2,141,6,141,2,157,6,141,2,129,8,161,16,149,6,137,2,141,16
�k�53,5,69,5,81,6,89,3,81,5,69,5,53,5,69,5,81,6,89,3,81,5,69,5,53,5,69,5,81,15,89,15,73,6,69,3,73,5,61,10
��101,5,121,5,0,0,121,5,117,3,109,2,117,4,121,5,101,4,0,1,101,4,0,1,101,4,121,5,0,0,121,5,117,2,109,2,117,4,121,5,101,4,0,1,101,4,0,1
�[�101,4,89,5,0,0,89,5,81,5,0,0,81,5,73,6,0,7,101,5,89,5,0,0,89,5,81,5,0,0,81,5,73,6,0,10
�5�101,8,81,8,101,16,117,4,121,4,109,4,117,4,101,16
@�129,9,117,4,121,4,129,9,101,9,121,4,129,4,137,4,145,4,149,4
�

00000000  0d 00 0a 10 f4 20 46 52  55 49 54 20 57 4f 52 4d  |..... FRUIT WORM|
00000010  0d 00 14 12 f4 20 42 79  20 43 2e 44 75 6e 6b 6c  |..... By C.Dunkl|
00000020  65 79 0d 00 1e 17 f4 20  28 63 29 20 45 6c 65 63  |ey..... (c) Elec|
00000030  74 72 6f 6e 20 55 73 65  72 0d 00 28 06 eb 35 0d  |tron User..(..5.|
00000040  00 32 0f f2 69 6e 69 74  69 61 6c 69 73 65 0d 00  |.2..initialise..|
00000050  3c 05 f5 0d 00 46 0b f2  74 69 74 6c 65 73 0d 00  |<....F..titles..|
00000060  50 05 f5 0d 00 5a 0b f2  73 63 72 65 65 6e 0d 00  |P....Z..screen..|
00000070  64 05 f5 0d 00 6e 2f e3  4f 25 3d 30 b8 51 25 3a  |d....n/.O%=0.Q%:|
00000080  ed 3a 45 25 3d 30 3a 48  25 3d 48 25 2b 31 3a d6  |.:E%=0:H%=H%+1:.|
00000090  6b 65 79 73 3a e7 4b 25  3d 31 34 35 f2 70 61 75  |keys:.K%=145.pau|
000000a0  73 65 0d 00 78 24 e7 48  25 3d 36 30 48 25 3d 32  |se..x$.H%=60H%=2|
000000b0  3a 58 25 3f 31 3d 58 25  3f 35 39 3a 59 25 3f 31  |:X%?1=X%?59:Y%?1|
000000c0  3d 59 25 3f 35 39 0d 00  82 49 58 25 3f 48 25 3d  |=Y%?59...IX%?H%=|
000000d0  3f 28 58 25 2b 48 25 2d  31 29 2d 28 44 25 3d 31  |?(X%+H%-1)-(D%=1|
000000e0  35 31 29 2b 28 44 25 3d  31 35 35 29 3a 59 25 3f  |51)+(D%=155):Y%?|
000000f0  48 25 3d 3f 28 59 25 2b  48 25 2d 31 29 2b 28 44  |H%=?(Y%+H%-1)+(D|
00000100  25 3d 31 38 32 29 2d 28  44 25 3d 31 38 33 29 0d  |%=182)-(D%=183).|
00000110  00 8c 29 41 25 3d 58 25  3f 48 25 3a 42 25 3d 59  |..)A%=X%?H%:B%=Y|
00000120  25 3f 48 25 3a 43 25 3d  3f 28 26 39 30 30 2b 31  |%?H%:C%=?(&900+1|
00000130  38 2a 42 25 2b 41 25 29  0d 00 96 34 e7 43 25 3d  |8*B%+A%)...4.C%=|
00000140  31 84 41 25 3d 30 84 41  25 3d 31 39 84 42 25 3d  |1.A%=0.A%=19.B%=|
00000150  33 84 42 25 3d 33 30 3a  49 25 3d 49 25 2d 5a 25  |3.B%=30:I%=I%-Z%|
00000160  3a 5a 25 3d 2d 31 3a e5  8d 64 5c 40 0d 00 a0 38  |:Z%=-1:..d\@...8|
00000170  e7 43 25 3d 32 5a 25 3d  5a 25 2d 31 3a 45 25 3d  |.C%=2Z%=Z%-1:E%=|
00000180  31 3a 53 25 3d 53 25 2b  31 30 30 3a d4 31 2c 32  |1:S%=S%+100:.1,2|
00000190  2c 31 30 2c 34 3a f1 8a  31 2c 31 29 a4 66 28 53  |,10,4:..1,1).f(S|
000001a0  25 2c 36 29 0d 00 aa 3e  d6 68 65 61 64 3a 41 25  |%,6)...>.head:A%|
000001b0  3d 3f 28 58 25 2b 48 25  2d 31 29 3a 42 25 3d 3f  |=?(X%+H%-1):B%=?|
000001c0  28 59 25 2b 48 25 2d 31  29 3a d6 62 6f 64 79 3a  |(Y%+H%-1):.body:|
000001d0  3f 28 26 39 30 30 2b 31  38 2a 42 25 2b 41 25 29  |?(&900+18*B%+A%)|
000001e0  3d 31 0d 00 b4 10 e7 45  25 3c 3e 30 20 e5 8d 64  |=1.....E%<>0 ..d|
000001f0  5c 40 0d 00 be 2f 41 25  3d 58 25 3f 54 25 3a 42  |\@.../A%=X%?T%:B|
00000200  25 3d 59 25 3f 54 25 3a  d6 65 72 61 73 65 3a 3f  |%=Y%?T%:.erase:?|
00000210  28 26 39 30 30 2b 31 38  2a 42 25 2b 41 25 29 3d  |(&900+18*B%+A%)=|
00000220  30 0d 00 c8 2c 54 25 3d  54 25 2b 31 3a e7 54 25  |0...,T%=T%+1:.T%|
00000230  3d 36 30 54 25 3d 32 3a  58 25 3f 31 3d 58 25 3f  |=60T%=2:X%?1=X%?|
00000240  35 39 3a 59 25 3f 31 3d  59 25 3f 35 39 0d 00 d2  |59:Y%?1=Y%?59...|
00000250  2e 41 25 3d 58 25 3f 54  25 3a 42 25 3d 59 25 3f  |.A%=X%?T%:B%=Y%?|
00000260  54 25 3a d6 62 6f 64 79  3a 3f 28 26 39 30 30 2b  |T%:.body:?(&900+|
00000270  31 38 2a 42 25 2b 41 25  29 3d 31 0d 00 dc 09 fd  |18*B%+A%)=1.....|
00000280  5a 25 3c 31 0d 00 e6 15  e7 5a 25 20 f2 64 65 61  |Z%<1.....Z% .dea|
00000290  64 20 8b f2 62 6f 6e 75  73 0d 00 f0 09 fd 4c 25  |d ..bonus.....L%|
000002a0  3d 30 0d 00 fa 0b fb 31  32 39 3a fb 33 0d 01 04  |=0.....129:.3...|
000002b0  20 f2 70 72 69 6e 74 28  33 35 30 2c 36 35 30 2c  | .print(350,650,|
000002c0  22 47 41 4d 45 20 20 4f  56 45 52 22 29 0d 01 0e  |"GAME  OVER")...|
000002d0  10 d1 3d 30 3a f5 20 fd  91 3e 32 37 35 0d 01 18  |..=0:. ..>275...|
000002e0  09 f7 8d 64 7c 52 0d 01  22 1b e3 4e 25 3d 31 b8  |...d|R.."..N%=1.|
000002f0  38 3a f3 41 2c 42 3a d4  31 2c 34 2c 41 2c 42 3a  |8:.A,B:.1,4,A,B:|
00000300  ed 0d 01 2c 10 d1 3d 30  3a f5 20 fd 91 3e 34 37  |...,..=0:. ..>47|
00000310  35 0d 01 36 0a f2 74 61  62 6c 65 0d 01 40 06 fd  |5..6..table..@..|
00000320  30 0d 01 4a 05 e0 0d 01  54 05 3a 0d 01 5e 27 dd  |0..J....T.:..^'.|
00000330  a4 66 28 41 25 2c 42 25  29 3a fb 32 3a f1 c2 22  |.f(A%,B%):.2:.."|
00000340  30 30 30 30 30 22 2b c3  41 25 2c 42 25 29 3b 3a  |00000"+.A%,B%);:|
00000350  fb 33 0d 01 68 5f e7 53  25 3e 3d 50 25 80 4c 25  |.3..h_.S%>=P%.L%|
00000360  3c 37 d4 31 2c 32 2c 35  30 2c 36 3a 4c 25 3d 4c  |<7.1,2,50,6:L%=L|
00000370  25 2b 31 3a 50 25 3d 50  25 2b 35 30 30 30 30 3a  |%+1:P%=P%+50000:|
00000380  4f 25 3d 41 25 3a 57 25  3d 42 25 3a 42 25 3d 32  |O%=A%:W%=B%:B%=2|
00000390  3a 41 25 3d 4c 25 2b 36  3a d6 75 70 3a 41 25 3d  |:A%=L%+6:.up:A%=|
000003a0  4f 25 3a 42 25 3d 57 25  3a 3d 22 22 20 8b 3d 22  |O%:B%=W%:="" .="|
000003b0  22 0d 01 72 05 3a 0d 01  7c 0b dd f2 70 61 75 73  |"..r.:..|...paus|
000003c0  65 0d 01 86 0a 43 25 3d  31 33 38 0d 01 90 09 2a  |e....C%=138....*|
000003d0  66 78 32 31 0d 01 9a 14  f5 fd 3f 26 45 43 3d 30  |fx21......?&EC=0|
000003e0  20 80 3f 26 45 44 3d 30  0d 01 a4 05 f5 0d 01 ae  | .?&ED=0........|
000003f0  09 f2 77 61 69 74 0d 01  b8 09 d6 6b 65 79 73 0d  |..wait.....keys.|
00000400  01 c2 0a fd 4b 25 3c 3e  30 0d 01 cc 09 2a 66 78  |....K%<>0....*fx|
00000410  31 35 0d 01 d6 05 e1 0d  01 e0 05 3a 0d 01 ea 0e  |15.........:....|
00000420  dd f2 65 72 61 73 65 28  49 29 0d 01 f4 0c e3 4e  |..erase(I).....N|
00000430  25 3d 31 b8 49 25 0d 01  fe 1b 41 25 3d 3f 28 58  |%=1.I%....A%=?(X|
00000440  25 2b 54 25 29 3a 42 25  3d 3f 28 59 25 2b 54 25  |%+T%):B%=?(Y%+T%|
00000450  29 0d 02 08 2c 54 25 3d  54 25 2b 31 3a e7 54 25  |)...,T%=T%+1:.T%|
00000460  3d 36 30 54 25 3d 32 3a  58 25 3f 31 3d 58 25 3f  |=60T%=2:X%?1=X%?|
00000470  35 39 3a 59 25 3f 31 3d  59 25 3f 35 39 0d 02 12  |59:Y%?1=Y%?59...|
00000480  0e e7 5a 25 20 d6 73 70  6c 61 74 0d 02 1c 0d d4  |..Z% .splat.....|
00000490  30 2c 2d 31 2c 35 2c 34  0d 02 26 0a d6 65 72 61  |0,-1,5,4..&..era|
000004a0  73 65 0d 02 30 0b 53 25  3d 53 25 2b 49 0d 02 3a  |se..0.S%=S%+I..:|
000004b0  13 f1 8a 31 2c 31 29 3b  a4 66 28 53 25 2c 36 29  |...1,1);.f(S%,6)|
000004c0  0d 02 44 0d e3 4e 3d 31  b8 34 35 3a ed 0d 02 4e  |..D..N=1.45:...N|
000004d0  0c d4 31 2c 30 2c 30 2c  31 0d 02 58 0d e3 4e 3d  |..1,0,0,1..X..N=|
000004e0  31 b8 32 35 3a ed 0d 02  62 05 ed 0d 02 6c 05 e1  |1.25:...b....l..|
000004f0  0d 02 76 05 3a 0d 02 80  0a dd f2 64 65 61 64 0d  |..v.:......dead.|
00000500  02 8a 0d d4 30 2c 2d 31  2c 35 2c 38 0d 02 94 0e  |....0,-1,5,8....|
00000510  f2 65 72 61 73 65 28 31  30 29 0d 02 9e 06 fb 32  |.erase(10).....2|
00000520  0d 02 a8 22 f2 70 72 69  6e 74 28 32 38 36 2c 38  |...".print(286,8|
00000530  35 30 2c 22 59 4f 55 27  52 45 20 44 45 41 44 21  |50,"YOU'RE DEAD!|
00000540  22 29 0d 02 b2 0b 4c 25  3d 4c 25 2d 31 0d 02 bc  |")....L%=L%-1...|
00000550  09 f7 8d 64 40 52 0d 02  c6 0c e3 4e 25 3d 31 b8  |...d@R.....N%=1.|
00000560  31 31 0d 02 d0 0a f3 41  25 2c 42 25 0d 02 da 0e  |11.....A%,B%....|
00000570  d4 31 2c 32 2c 41 25 2c  42 25 0d 02 e4 0c d4 31  |.1,2,A%,B%.....1|
00000580  2c 30 2c 30 2c 31 0d 02  ee 05 ed 0d 02 f8 0e e3  |,0,0,1..........|
00000590  4e 3d 31 b8 38 30 30 3a  ed 0d 03 02 05 e1 0d 03  |N=1.800:........|
000005a0  0c 05 3a 0d 03 16 0b dd  f2 62 6f 6e 75 73 0d 03  |..:......bonus..|
000005b0  20 0e f2 65 72 61 73 65  28 35 30 29 0d 03 2a 13  | ..erase(50)..*.|
000005c0  51 25 3d 51 25 2b 34 2a  28 51 25 3c 3e 30 29 0d  |Q%=Q%+4*(Q%<>0).|
000005d0  03 34 17 52 25 3d 52 25  2b 34 3a e7 52 25 3d 36  |.4.R%=R%+4:.R%=6|
000005e0  30 52 25 3d 33 32 0d 03  3e 0d 42 3d 46 52 25 2a  |0R%=32..>.B=FR%*|
000005f0  32 30 30 0d 03 48 22 f2  70 72 69 6e 74 28 32 36  |200..H".print(26|
00000600  30 2c 38 33 32 2c 22 4e  45 58 54 20 50 41 54 54  |0,832,"NEXT PATT|
00000610  45 52 4e 22 29 0d 03 52  0c f1 8a 34 2c 31 33 29  |ERN")..R...4,13)|
00000620  3b 0d 03 5c 1a 24 26 31  31 30 3d 22 42 4f 4e 55  |;..\.$&110="BONU|
00000630  53 3a 22 3a d6 64 6f 75  62 6c 65 0d 03 66 06 fb  |S:":.double..f..|
00000640  32 0d 03 70 20 24 26 31  31 30 3d c2 22 30 30 30  |2..p $&110=."000|
00000650  30 30 22 2b c3 42 2c 36  29 3a d6 64 6f 75 62 6c  |00"+.B,6):.doubl|
00000660  65 0d 03 7a 0e e3 4e 3d  31 b8 33 33 30 3a ed 0d  |e..z..N=1.330:..|
00000670  03 84 0f e3 4e 25 3d 31  b8 42 2f 31 30 30 0d 03  |....N%=1.B/100..|
00000680  8e 15 53 25 3d 53 25 2b  31 30 30 3a 42 3d 42 2d  |..S%=S%+100:B=B-|
00000690  31 30 30 0d 03 98 1a f1  8a 31 2c 31 29 a4 66 28  |100......1,1).f(|
000006a0  53 25 2c 36 29 8a 31 30  2c 31 33 29 3b 0d 03 a2  |S%,6).10,13);...|
000006b0  10 fb 32 3a d4 30 2c 2d  31 2c 35 2c 33 0d 03 ac  |..2:.0,-1,5,3...|
000006c0  20 24 26 31 31 30 3d c2  22 30 30 30 30 30 22 2b  | $&110=."00000"+|
000006d0  c3 42 2c 36 29 3a d6 64  6f 75 62 6c 65 0d 03 b6  |.B,6):.double...|
000006e0  0c d4 31 2c 30 2c 30 2c  30 0d 03 c0 05 ed 0d 03  |..1,0,0,0.......|
000006f0  ca 0d 46 52 25 3d 46 52  25 2b 31 0d 03 d4 09 f7  |..FR%=FR%+1.....|
00000700  8d 74 76 52 0d 03 de 0c  e3 4e 25 3d 31 b8 32 35  |.tvR.....N%=1.25|
00000710  0d 03 e8 0a f3 41 25 2c  42 25 0d 03 f2 14 e7 41  |.....A%,B%.....A|
00000720  25 3d 30 20 56 25 3d 30  20 8b 56 25 3d 32 0d 03  |%=0 V%=0 .V%=2..|
00000730  fc 0f d4 31 2c 56 25 2c  41 25 2c 42 25 0d 04 06  |...1,V%,A%,B%...|
00000740  0c d4 31 2c 30 2c 30 2c  31 0d 04 10 05 ed 0d 04  |..1,0,0,1.......|
00000750  1a 0e e3 4e 3d 31 b8 37  30 30 3a ed 0d 04 24 05  |...N=1.700:...$.|
00000760  e1 0d 04 2e 05 3a 0d 04  38 13 dd f2 70 72 69 6e  |.....:..8...prin|
00000770  74 28 41 2c 42 2c 42 24  29 0d 04 42 06 ef 35 0d  |t(A,B,B$)..B..5.|
00000780  04 4c 0b e3 4e 25 3d 31  b8 33 0d 04 56 16 e6 30  |.L..N%=1.3..V..0|
00000790  2c 32 2d 28 4e 25 3d 31  29 2b 28 4e 25 3d 32 29  |,2-(N%=1)+(N%=2)|
000007a0  0d 04 60 12 ec 41 2b 36  2a 4e 25 2c 42 2b 36 2a  |..`..A+6*N%,B+6*|
000007b0  4e 25 0d 04 6a 14 24 26  31 31 30 3d 42 24 3a d6  |N%..j.$&110=B$:.|
000007c0  64 6f 75 62 6c 65 0d 04  74 05 ed 0d 04 7e 06 ef  |double..t....~..|
000007d0  34 0d 04 88 05 e1 0d 04  92 05 3a 0d 04 9c 0b dd  |4.........:.....|
000007e0  f2 74 61 62 6c 65 0d 04  a6 0a f2 62 6c 61 63 6b  |.table.....black|
000007f0  0d 04 b0 0a 6c 69 6e 65  3d 30 0d 04 ba 0a fb 31  |....line=0.....1|
00000800  32 38 3a db 0d 04 c4 0b  fb 31 3a fb 31 33 31 0d  |28:......1:.131.|
00000810  04 ce 21 f2 70 72 69 6e  74 28 32 37 30 2c 39 36  |..!.print(270,96|
00000820  30 2c 22 48 69 67 68 20  53 63 6f 72 65 73 22 29  |0,"High Scores")|
00000830  0d 04 d8 08 fb 31 32 38  0d 04 e2 17 e7 53 25 3e  |.....128.....S%>|
00000840  73 63 6f 72 65 25 28 39  29 20 f2 73 77 61 70 0d  |score%(9) .swap.|
00000850  04 ec 0b e3 4e 25 3d 31  b8 39 0d 04 f6 0c 58 3d  |....N%=1.9....X=|
00000860  4e 25 2a 32 2b 34 0d 05  00 06 fb 31 0d 05 0a 1e  |N%*2+4.....1....|
00000870  f1 8a 30 2c 58 29 3b 4e  25 3b 22 29 22 3b 8a 38  |..0,X);N%;")";.8|
00000880  2c 58 29 3b 22 2e 2e 2e  2e 22 0d 05 14 06 fb 32  |,X);"....".....2|
00000890  0d 05 1e 15 f1 8a 32 2c  58 29 3b 6e 61 6d 65 24  |......2,X);name$|
000008a0  28 4e 25 29 3b 0d 05 28  06 fb 33 0d 05 32 20 f1  |(N%);..(..3..2 .|
000008b0  8a 31 33 2c 58 29 3b c2  22 20 20 22 2b c3 73 63  |.13,X);."  "+.sc|
000008c0  6f 72 65 25 28 4e 25 29  2c 36 29 0d 05 3c 05 ed  |ore%(N%),6)..<..|
000008d0  0d 05 46 0c f2 63 6f 6c  6f 75 72 73 0d 05 50 13  |..F..colours..P.|
000008e0  e7 6c 69 6e 65 3c 3e 30  20 f2 69 6e 70 75 74 0d  |.line<>0 .input.|
000008f0  05 5a 0b fb 31 3a fb 31  33 31 0d 05 64 23 f2 70  |.Z..1:.131..d#.p|
00000900  72 69 6e 74 28 32 37 30  2c 31 32 30 2c 22 50 72  |rint(270,120,"Pr|
00000910  65 73 73 20 61 6e 79 20  6b 65 79 22 29 0d 05 6e  |ess any key")..n|
00000920  0a 43 25 3d 31 33 38 0d  05 78 09 2a 66 78 31 35  |.C%=138..x.*fx15|
00000930  0d 05 82 05 f5 0d 05 8c  09 f2 77 61 69 74 0d 05  |..........wait..|
00000940  96 11 fd 43 25 3d 34 35  84 bf 30 3c 3e 22 22 0d  |...C%=45..0<>"".|
00000950  05 a0 05 e1 0d 05 aa 05  3a 0d 05 b4 0a dd f2 73  |........:......s|
00000960  77 61 70 0d 05 be 23 73  63 6f 72 65 25 28 39 29  |wap...#score%(9)|
00000970  3d 53 25 3a 6e 61 6d 65  24 28 39 29 3d 22 22 3a  |=S%:name$(9)="":|
00000980  6c 69 6e 65 3d 39 0d 05  c8 0e e3 4c 25 3d 38 b8  |line=9.....L%=8.|
00000990  31 88 2d 31 0d 05 d2 26  e7 73 63 6f 72 65 25 28  |1.-1...&.score%(|
000009a0  4c 25 2b 31 29 3e 73 63  6f 72 65 25 28 4c 25 29  |L%+1)>score%(L%)|
000009b0  20 f2 65 78 63 68 61 6e  67 65 0d 05 dc 05 ed 0d  | .exchange......|
000009c0  05 e6 05 e1 0d 05 f0 05  3a 0d 05 fa 0e dd f2 65  |........:......e|
000009d0  78 63 68 61 6e 67 65 0d  06 04 37 73 3d 73 63 6f  |xchange...7s=sco|
000009e0  72 65 25 28 4c 25 29 3a  73 63 6f 72 65 25 28 4c  |re%(L%):score%(L|
000009f0  25 29 3d 73 63 6f 72 65  25 28 4c 25 2b 31 29 3a  |%)=score%(L%+1):|
00000a00  73 63 6f 72 65 25 28 4c  25 2b 31 29 3d 73 0d 06  |score%(L%+1)=s..|
00000a10  0e 35 73 24 3d 6e 61 6d  65 24 28 4c 25 29 3a 6e  |.5s$=name$(L%):n|
00000a20  61 6d 65 24 28 4c 25 29  3d 6e 61 6d 65 24 28 4c  |ame$(L%)=name$(L|
00000a30  25 2b 31 29 3a 6e 61 6d  65 24 28 4c 25 2b 31 29  |%+1):name$(L%+1)|
00000a40  3d 73 24 0d 06 18 0b 6c  69 6e 65 3d 4c 25 0d 06  |=s$....line=L%..|
00000a50  22 05 e1 0d 06 2c 05 3a  0d 06 36 0b dd f2 69 6e  |"....,.:..6...in|
00000a60  70 75 74 0d 06 40 09 2a  66 78 31 35 0d 06 4a 2b  |put..@.*fx15..J+|
00000a70  f1 8a 35 2c 32 35 29 3b  22 50 6c 65 61 73 65 20  |..5,25);"Please |
00000a80  65 6e 74 65 72 22 27 27  8a 36 29 22 79 6f 75 72  |enter"''.6)"your|
00000a90  20 6e 61 6d 65 2e 22 0d  06 54 0d 2a 66 78 32 30  | name."..T.*fx20|
00000aa0  32 20 34 38 0d 06 5e 14  ef 32 33 2c 31 2c 31 2c  |2 48..^..23,1,1,|
00000ab0  30 2c 30 3b 30 3b 30 3b  0d 06 68 0e 59 3d 6c 69  |0,0;0;0;..h.Y=li|
00000ac0  6e 65 2a 32 2b 34 0d 06  72 0b f1 8a 32 2c 59 29  |ne*2+4..r...2,Y)|
00000ad0  3b 0d 06 7c 09 f7 8d 64  4a 52 0d 06 86 1e e3 4e  |;..|...dJR.....N|
00000ae0  25 3d 31 b8 31 38 3a f3  41 2c 42 3a d4 31 2c 2d  |%=1.18:.A,B:.1,-|
00000af0  31 35 2c 41 2c 42 3a ed  0d 06 90 0d 4c 3d 30 3a  |15,A,B:.....L=0:|
00000b00  61 24 3d 22 22 0d 06 9a  05 f5 0d 06 a4 0d f1 8a  |a$=""...........|
00000b10  4c 2b 32 2c 59 29 3b 0d  06 ae 07 61 3d a5 0d 06  |L+2,Y);....a=...|
00000b20  b8 27 e7 61 3e 33 31 20  80 61 3c 31 32 37 20 80  |.'.a>31 .a<127 .|
00000b30  4c 3c 35 20 4c 3d 4c 2b  31 3a ef 61 3a 61 24 3d  |L<5 L=L+1:.a:a$=|
00000b40  61 24 2b bd 61 0d 06 c2  24 e7 61 3d 31 32 37 20  |a$+.a...$.a=127 |
00000b50  80 4c 3e 30 20 ef 31 32  37 3a 4c 3d 4c 2d 31 3a  |.L>0 .127:L=L-1:|
00000b60  61 24 3d c0 61 24 2c 4c  29 0d 06 cc 09 fd 61 3d  |a$=.a$,L).....a=|
00000b70  31 33 0d 06 d6 12 ef 32  33 2c 31 2c 30 3b 30 3b  |13.....23,1,0;0;|
00000b80  30 3b 30 3b 0d 06 e0 12  6e 61 6d 65 24 28 6c 69  |0;0;....name$(li|
00000b90  6e 65 29 3d 61 24 0d 06  ea 06 fb 32 0d 06 f4 0d  |ne)=a$.....2....|
00000ba0  f1 8a 32 2c 59 29 3b 61  24 0d 06 fe 0a 2a 66 78  |..2,Y);a$....*fx|
00000bb0  32 30 32 0d 07 08 11 f1  8a 35 2c 32 35 29 3b 89  |202......5,25);.|
00000bc0  28 39 30 29 0d 07 12 05  e1 0d 07 1c 05 3a 0d 07  |(90).........:..|
00000bd0  26 10 dd f2 69 6e 69 74  69 61 6c 69 73 65 0d 07  |&...initialise..|
00000be0  30 09 2a 66 78 31 31 0d  07 3a 09 2a 66 78 31 35  |0.*fx11..:.*fx15|
00000bf0  0d 07 44 0c 2a 66 78 32  32 39 20 31 0d 07 4e 1c  |..D.*fx229 1..N.|
00000c00  e7 3f 26 32 31 32 3d 32  37 20 ff 22 66 78 31 36  |.?&212=27 ."fx16|
00000c10  33 20 31 32 38 20 31 22  0d 07 58 2d e2 31 2c 31  |3 128 1"..X-.1,1|
00000c20  2c 33 2c 2d 39 30 2c 31  2c 31 2c 2d 32 2c 2d 33  |,3,-90,1,1,-2,-3|
00000c30  2c 31 32 36 2c 30 2c 30  2c 2d 31 32 36 2c 31 32  |,126,0,0,-126,12|
00000c40  36 2c 31 32 36 0d 07 62  2b e2 32 2c 31 2c 31 2c  |6,126..b+.2,1,1,|
00000c50  2d 32 2c 31 2c 37 2c 35  2c 31 32 2c 31 32 36 2c  |-2,1,7,5,12,126,|
00000c60  30 2c 30 2c 2d 31 32 36  2c 31 32 36 2c 31 32 36  |0,0,-126,126,126|
00000c70  0d 07 6c 2a e2 33 2c 31  2c 30 2c 30 2c 30 2c 31  |..l*.3,1,0,0,0,1|
00000c80  30 2c 31 30 2c 31 30 2c  31 32 36 2c 2d 34 2c 2d  |0,10,10,126,-4,-|
00000c90  31 2c 2d 34 2c 31 32 36  2c 30 0d 07 76 24 e2 34  |1,-4,126,0..v$.4|
00000ca0  2c 32 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 36  |,2,0,0,0,0,0,0,6|
00000cb0  34 2c 2d 37 2c 30 2c 30  2c 31 32 36 2c 30 0d 07  |4,-7,0,0,126,0..|
00000cc0  80 0d 72 6e 64 3d b3 28  2d 91 29 0d 07 8a 30 de  |..rnd=.(-.)...0.|
00000cd0  57 25 37 30 30 2c 58 25  36 30 2c 59 25 36 30 2c  |W%700,X%60,Y%60,|
00000ce0  6e 61 6d 65 24 28 39 29  2c 73 63 6f 72 65 25 28  |name$(9),score%(|
00000cf0  39 29 2c 66 72 75 69 74  28 33 29 0d 07 94 24 73  |9),fruit(3)...$s|
00000d00  63 6f 72 65 25 28 31 29  3d 33 34 30 34 30 30 3a  |core%(1)=340400:|
00000d10  6e 61 6d 65 24 28 31 29  3d 22 20 4c 53 49 22 0d  |name$(1)=" LSI".|
00000d20  07 9e 0b e3 4e 25 3d 32  b8 39 0d 07 a8 1a 73 63  |....N%=2.9....sc|
00000d30  6f 72 65 25 28 4e 25 29  3d 35 30 30 2a 28 32 31  |ore%(N%)=500*(21|
00000d40  2d 4e 25 29 0d 07 b2 15  6e 61 6d 65 24 28 4e 25  |-N%)....name$(N%|
00000d50  29 3d 22 41 63 6f 72 6e  22 0d 07 bc 05 ed 0d 07  |)="Acorn".......|
00000d60  c6 0d f2 61 73 73 65 6d  62 6c 65 0d 07 d0 0f f2  |...assemble.....|
00000d70  63 68 61 72 61 63 74 65  72 73 0d 07 da 05 e1 0d  |characters......|
00000d80  07 e4 05 3a 0d 07 ee 0c  dd f2 74 69 74 6c 65 73  |...:......titles|
00000d90  0d 07 f8 12 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.....23,1,0;0;0;|
00000da0  30 3b 0d 08 02 05 db 0d  08 0c 21 53 25 3d 30 3a  |0;........!S%=0:|
00000db0  4c 25 3d 33 3a 52 25 3d  38 3a 46 52 25 3d 31 3a  |L%=3:R%=8:FR%=1:|
00000dc0  50 25 3d 35 30 30 30 30  0d 08 16 0a 51 25 3d 32  |P%=50000....Q%=2|
00000dd0  34 38 0d 08 20 0a f2 62  6c 61 63 6b 0d 08 2a 0b  |48.. ..black..*.|
00000de0  fb 31 3a fb 31 32 38 0d  08 34 0c e3 4e 25 3d 31  |.1:.128..4..N%=1|
00000df0  b8 35 39 0d 08 3e 13 f1  22 20 20 43 2e 44 75 6e  |.59..>.."  C.Dun|
00000e00  6b 6c 65 79 22 3b 0d 08  48 05 ed 0d 08 52 12 f1  |kley";..H....R..|
00000e10  22 20 20 43 2e 44 75 6e  6b 6c 65 22 3b 0d 08 5c  |"  C.Dunkle";..\|
00000e20  06 fb 33 0d 08 66 18 f1  8a 35 2c 32 38 29 3b 22  |..3..f...5,28);"|
00000e30  43 2e 44 75 6e 6b 6c 65  79 22 3b 0d 08 70 21 f2  |C.Dunkley";..p!.|
00000e40  70 72 69 6e 74 28 33 35  30 2c 31 30 30 30 2c 22  |print(350,1000,"|
00000e50  46 72 75 69 74 20 57 6f  72 6d 22 29 0d 08 7a 27  |Fruit Worm")..z'|
00000e60  f2 70 72 69 6e 74 28 34  30 2c 37 30 2c 22 53 6f  |.print(40,70,"So|
00000e70  75 6e 64 20 4f 4e 2f 4f  46 46 20 28 53 2f 51 29  |und ON/OFF (S/Q)|
00000e80  3f 22 29 0d 08 84 18 ef  32 34 2c 38 30 3b 31 37  |?").....24,80;17|
00000e90  30 3b 31 32 33 36 3b 39  31 30 3b 0d 08 8e 0c e6  |0;1236;910;.....|
00000ea0  30 2c 31 33 31 3a da 0d  08 98 11 ef 32 38 2c 31  |0,131:......28,1|
00000eb0  2c 32 35 2c 31 38 2c 33  0d 08 a2 0d fb 33 3a fb  |,25,18,3.....3:.|
00000ec0  31 33 30 3a db 0d 08 ac  75 f1 27 22 20 20 47 75  |130:....u.'"  Gu|
00000ed0  69 64 65 20 74 68 65 20  77 6f 72 6d 20 20 61 72  |ide the worm  ar|
00000ee0  6f 75 6e 64 20 74 68 65  20 73 63 72 65 65 6e 2c  |ound the screen,|
00000ef0  65 61 74 69 6e 67 3a 20  20 20 20 20 20 20 20 20  |eating:         |
00000f00  20 20 61 6e 64 20 61 76  6f 69 64 69 6e 67 20 74  |  and avoiding t|
00000f10  68 65 20 20 72 6f 63 6b  73 2c 6f 75 74 65 72 20  |he  rocks,outer |
00000f20  66 65 6e 63 65 20 61 6e  64 20 79 6f 75 72 20 6f  |fence and your o|
00000f30  77 6e 20 74 61 69 6c 2e  22 3b 0d 08 b6 32 f1 27  |wn tail.";...2.'|
00000f40  22 41 20 42 4f 4e 55 53  20 69 73 20 61 77 61 72  |"A BONUS is awar|
00000f50  64 65 64 61 74 20 74 68  65 20 65 6e 64 20 6f 66  |dedat the end of|
00000f60  20 65 61 63 68 66 72 61  6d 65 2e 22 0d 08 c0 3e  | eachframe."...>|
00000f70  f1 27 22 45 78 74 72 61  20 77 6f 72 6d 73 20 61  |.'"Extra worms a|
00000f80  72 65 20 20 20 61 77 61  72 64 65 64 20 66 6f 72  |re   awarded for|
00000f90  20 65 76 65 72 79 20 35  30 2c 30 30 30 20 70 74  | every 50,000 pt|
00000fa0  73 20 73 63 6f 72 65 64  2e 22 0d 08 ca 06 fb 31  |s scored.".....1|
00000fb0  0d 08 d4 2c f1 27 22 20  20 20 43 4f 4e 54 52 4f  |...,.'"   CONTRO|
00000fc0  4c 53 3a 20 41 22 3b 8a  31 32 29 3b 22 3c 20 3e  |LS: A";.12);"< >|
00000fd0  22 3b 89 28 31 36 29 3b  22 5a 22 3b 0d 08 de 21  |";.(16);"Z";...!|
00000fe0  f1 27 27 22 20 20 20 50  20 2d 20 50 61 75 73 65  |.''"   P - Pause|
00000ff0  20 22 3b 3a fb 33 3a f1  22 4f 4e 22 3b 0d 08 e8  | ";:.3:."ON";...|
00001000  08 42 25 3d 37 0d 08 f2  0b e3 4e 25 3d 31 b8 33  |.B%=7.....N%=1.3|
00001010  0d 08 fc 18 41 25 3d 36  2b 32 2a 4e 25 3a d6 66  |....A%=6+2*N%:.f|
00001020  72 75 69 74 28 4e 25 29  0d 09 06 05 ed 0d 09 10  |ruit(N%)........|
00001030  09 f7 8d 54 46 53 0d 09  1a 0c f2 63 6f 6c 6f 75  |...TFS.....colou|
00001040  72 73 0d 09 24 1e e3 4e  25 3d 31 b8 31 30 3a f3  |rs..$..N%=1.10:.|
00001050  41 2c 42 3a d4 31 2c 2d  31 30 2c 41 2c 42 3a ed  |A,B:.1,-10,A,B:.|
00001060  0d 09 2e 09 2a 66 78 32  31 0d 09 38 0a 43 25 3d  |....*fx21..8.C%=|
00001070  31 33 33 0d 09 42 05 f5  0d 09 4c 09 f2 77 61 69  |133..B....L..wai|
00001080  74 0d 09 56 0c 41 3d a6  30 20 84 33 32 0d 09 60  |t..V.A=.0 .32..`|
00001090  11 fd 41 3d 31 31 33 20  84 41 3d 31 31 35 0d 09  |..A=113 .A=115..|
000010a0  6a 09 2a 66 78 31 35 0d  09 74 17 ff 22 66 78 32  |j.*fx15..t.."fx2|
000010b0  31 30 20 22 2b c3 2d 28  41 3d 31 31 33 29 0d 09  |10 "+.-(A=113)..|
000010c0  7e 07 ef 32 36 0d 09 88  05 e1 0d 09 92 05 3a 0d  |~..26.........:.|
000010d0  09 9c 0a dd f2 77 61 69  74 0d 09 a6 07 74 3d 34  |.....wait....t=4|
000010e0  0d 09 b0 0b 43 25 3d 43  25 2b 31 0d 09 ba 16 e7  |....C%=C%+1.....|
000010f0  43 25 3e 31 38 38 20 43  25 3d 31 3a f7 8d 64 54  |C%>188 C%=1:..dT|
00001100  52 0d 09 c4 14 e7 43 25  3e 30 20 80 43 25 3c 31  |R.....C%>0 .C%<1|
00001110  37 20 74 3d 31 0d 09 ce  15 e7 43 25 3e 34 36 20  |7 t=1.....C%>46 |
00001120  80 43 25 3c 36 37 20 74  3d 32 0d 09 d8 16 e7 43  |.C%<67 t=2.....C|
00001130  25 3e 38 36 20 80 43 25  3c 31 32 39 20 74 3d 33  |%>86 .C%<129 t=3|
00001140  0d 09 e2 18 e7 74 3d 34  20 e3 6c 6f 6f 70 3d 31  |.....t=4 .loop=1|
00001150  b8 32 35 30 3a ed 3a e1  0d 09 ec 08 f3 41 2c 42  |.250:.:......A,B|
00001160  0d 09 f6 13 e7 74 3d 31  20 d4 31 2c 33 2c 41 2c  |.....t=1 .1,3,A,|
00001170  42 3a e1 0d 0a 00 15 e7  74 3d 32 20 d4 31 2c 2d  |B:......t=2 .1,-|
00001180  31 35 2c 41 2c 42 3a e1  0d 0a 0a 22 e7 74 3d 33  |15,A,B:....".t=3|
00001190  20 80 41 3d 30 20 d4 31  2c 30 2c 41 2c 42 20 8b  | .A=0 .1,0,A,B .|
000011a0  d4 31 2c 2d 31 35 2c 41  2c 42 0d 0a 14 05 e1 0d  |.1,-15,A,B......|
000011b0  0a 1e 05 3a 0d 0a 28 0c  dd f2 73 63 72 65 65 6e  |...:..(...screen|
000011c0  0d 0a 32 0a fb 31 32 38  3a db 0d 0a 3c 0a f2 62  |..2..128:...<..b|
000011d0  6c 61 63 6b 0d 0a 46 0c  e3 41 25 3d 31 b8 32 39  |lack..F..A%=1.29|
000011e0  0d 0a 50 0c e3 42 25 3d  31 b8 31 38 0d 0a 5a 16  |..P..B%=1.18..Z.|
000011f0  3f 28 26 39 30 30 2b 42  25 2b 41 25 2a 31 38 29  |?(&900+B%+A%*18)|
00001200  3d 30 0d 0a 64 06 ed 2c  0d 0a 6e 08 fb 31 32 39  |=0..d..,..n..129|
00001210  0d 0a 78 30 f1 8a 31 39  2c 33 31 29 3b 22 20 22  |..x0..19,31);" "|
00001220  3b 8a 30 2c 30 29 3b c4  34 30 2c 22 20 22 29 3b  |;.0,0);.40," ");|
00001230  8a 30 2c 33 30 29 3b c4  33 39 2c 22 20 22 29 3b  |.0,30);.39," ");|
00001240  0d 0a 82 06 fb 33 0d 0a  8c 25 f1 8a 31 2c 33 30  |.....3...%..1,30|
00001250  29 3b 22 46 52 3a 22 8a  33 2c 30 29 3b 22 53 43  |);"FR:".3,0);"SC|
00001260  22 89 28 31 30 29 3b 22  48 49 22 0d 0a 96 38 f1  |".(10);"HI"...8.|
00001270  8a 31 2c 31 29 3b a4 66  28 53 25 2c 36 29 3b 89  |.1,1);.f(S%,6);.|
00001280  28 36 29 3b a4 66 28 73  63 6f 72 65 25 28 31 29  |(6);.f(score%(1)|
00001290  2c 36 29 8a 34 2c 33 30  29 3b a4 66 28 46 52 25  |,6).4,30);.f(FR%|
000012a0  2c 32 29 0d 0a a0 1f f1  8a 30 2c 32 29 3b bd 32  |,2)......0,2);.2|
000012b0  32 34 3b c4 31 38 2c bd  32 32 35 29 3b bd 32 32  |24;.18,.225);.22|
000012c0  36 3b 0d 0a aa 20 f1 8a  30 2c 32 39 29 3b bd 32  |6;... ..0,29);.2|
000012d0  32 37 3b c4 31 38 2c bd  32 32 35 29 3b bd 32 32  |27;.18,.225);.22|
000012e0  38 3b 0d 0a b4 0c e3 4e  25 3d 33 b8 32 38 0d 0a  |8;.....N%=3.28..|
000012f0  be 1e f1 8a 30 2c 4e 25  29 3b bd 32 32 39 3b 8a  |....0,N%);.229;.|
00001300  31 39 2c 4e 25 29 3b bd  32 32 39 3b 0d 0a c8 05  |19,N%);.229;....|
00001310  ed 0d 0a d2 0b 3f 26 39  42 45 3d 31 0d 0a dc 0b  |.....?&9BE=1....|
00001320  3f 26 39 42 44 3d 31 0d  0a e6 0b 3f 26 39 42 46  |?&9BD=1....?&9BF|
00001330  3d 31 0d 0a f0 0b 3f 26  39 44 30 3d 31 0d 0a fa  |=1....?&9D0=1...|
00001340  0b 3f 26 39 41 43 3d 31  0d 0b 04 16 41 25 3d 31  |.?&9AC=1....A%=1|
00001350  30 3a 42 25 3d 31 30 3a  d6 72 69 67 68 74 0d 0b  |0:B%=10:.right..|
00001360  0e 0e 41 25 3d 39 3a d6  62 6f 64 79 0d 0b 18 0c  |..A%=9:.body....|
00001370  e3 4e 25 3d 31 b8 4c 25  0d 0b 22 0b 41 25 3d 4e  |.N%=1.L%..".A%=N|
00001380  25 2b 36 0d 0b 2c 0c 42  25 3d 32 3a d6 75 70 0d  |%+6..,.B%=2:.up.|
00001390  0b 36 05 ed 0d 0b 40 1f  f2 70 72 69 6e 74 28 33  |.6....@..print(3|
000013a0  37 35 2c 35 30 2c 22 46  72 75 69 74 20 57 6f 72  |75,50,"Fruit Wor|
000013b0  6d 22 29 0d 0b 4a 11 5a  25 3d 52 25 3a 49 25 3d  |m")..J.Z%=R%:I%=|
000013c0  5a 25 2b 32 0d 0b 54 0e  e3 4e 25 3d 31 b8 5a 25  |Z%+2..T..N%=1.Z%|
000013d0  2f 34 0d 0b 5e 13 f2 6c  6f 63 61 74 65 28 31 2c  |/4..^..locate(1,|
000013e0  72 6f 63 6b 29 0d 0b 68  05 ed 0d 0b 72 0e e3 4e  |rock)..h....r..N|
000013f0  25 3d 31 b8 5a 25 2b 38  0d 0b 7c 1a f2 6c 6f 63  |%=1.Z%+8..|..loc|
00001400  61 74 65 28 32 2c 66 72  75 69 74 28 b3 28 33 29  |ate(2,fruit(.(3)|
00001410  29 29 0d 0b 86 05 ed 0d  0b 90 0c f2 63 6f 6c 6f  |))..........colo|
00001420  75 72 73 0d 0b 9a 05 f7  0d 0b a4 0c e3 4e 25 3d  |urs..........N%=|
00001430  31 b8 31 37 0d 0b ae 0a  f3 41 25 2c 42 25 0d 0b  |1.17.....A%,B%..|
00001440  b8 14 e7 41 25 3d 30 20  56 25 3d 30 20 8b 56 25  |...A%=0 V%=0 .V%|
00001450  3d 32 0d 0b c2 0f d4 31  2c 56 25 2c 41 25 2c 42  |=2.....1,V%,A%,B|
00001460  25 0d 0b cc 0c d4 31 2c  30 2c 30 2c 31 0d 0b d6  |%.....1,0,0,1...|
00001470  05 ed 0d 0b e0 0f 44 25  3d 31 35 31 3a 4b 25 3d  |......D%=151:K%=|
00001480  30 0d 0b ea 0d 48 25 3d  32 3a 54 25 3d 31 0d 0b  |0....H%=2:T%=1..|
00001490  f4 12 58 25 3f 31 3d 39  3a 59 25 3f 31 3d 31 30  |..X%?1=9:Y%?1=10|
000014a0  0d 0b fe 13 58 25 3f 32  3d 31 30 3a 59 25 3f 32  |....X%?2=10:Y%?2|
000014b0  3d 31 30 0d 0c 08 0b 3f  26 39 42 46 3d 30 0d 0c  |=10....?&9BF=0..|
000014c0  12 0b 3f 26 39 44 30 3d  30 0d 0c 1c 0b 3f 26 39  |..?&9D0=0....?&9|
000014d0  41 43 3d 30 0d 0c 26 0a  f2 70 61 75 73 65 0d 0c  |AC=0..&..pause..|
000014e0  30 0b fb 31 32 39 3a fb  32 0d 0c 3a 05 e1 0d 0c  |0..129:.2..:....|
000014f0  44 05 3a 0d 0c 4e 11 dd  f2 6c 6f 63 61 74 65 28  |D.:..N...locate(|
00001500  61 2c 62 29 0d 0c 58 05  f5 0d 0c 62 17 41 25 3d  |a,b)..X....b.A%=|
00001510  b3 28 31 38 29 3a 42 25  3d b3 28 32 36 29 2b 33  |.(18):B%=.(26)+3|
00001520  0d 0c 6c 17 fd 3f 28 26  39 30 30 2b 42 25 2a 31  |..l..?(&900+B%*1|
00001530  38 2b 41 25 29 3d 30 0d  0c 76 16 3f 28 26 39 30  |8+A%)=0..v.?(&90|
00001540  30 2b 42 25 2a 31 38 2b  41 25 29 3d 61 0d 0c 80  |0+B%*18+A%)=a...|
00001550  06 d6 62 0d 0c 8a 05 e1  0d 0c 94 05 3a 0d 0c 9e  |..b.........:...|
00001560  10 dd f2 63 68 61 72 61  63 74 65 72 73 0d 0c a8  |...characters...|
00001570  20 ef 32 33 2c 32 32 34  2c 30 2c 31 2c 33 2c 36  | .23,224,0,1,3,6|
00001580  2c 31 32 2c 32 35 2c 35  31 2c 31 30 32 0d 0c b2  |,12,25,51,102...|
00001590  23 ef 32 33 2c 32 32 35  2c 30 2c 32 35 35 2c 32  |#.23,225,0,255,2|
000015a0  35 35 2c 30 2c 30 2c 32  35 35 2c 32 35 35 2c 30  |55,0,0,255,255,0|
000015b0  0d 0c bc 27 ef 32 33 2c  32 32 36 2c 30 2c 31 32  |...'.23,226,0,12|
000015c0  38 2c 31 39 32 2c 39 36  2c 34 38 2c 31 35 32 2c  |8,192,96,48,152,|
000015d0  32 30 34 2c 31 30 32 0d  0c c6 20 ef 32 33 2c 32  |204,102... .23,2|
000015e0  32 37 2c 31 30 32 2c 35  31 2c 32 35 2c 31 32 2c  |27,102,51,25,12,|
000015f0  36 2c 33 2c 31 2c 30 0d  0c d0 27 ef 32 33 2c 32  |6,3,1,0...'.23,2|
00001600  32 38 2c 31 30 32 2c 32  30 34 2c 31 35 32 2c 34  |28,102,204,152,4|
00001610  38 2c 39 36 2c 31 39 32  2c 31 32 38 2c 30 0d 0c  |8,96,192,128,0..|
00001620  da 2b ef 32 33 2c 32 32  39 2c 31 30 32 2c 31 30  |.+.23,229,102,10|
00001630  32 2c 31 30 32 2c 31 30  32 2c 31 30 32 2c 31 30  |2,102,102,102,10|
00001640  32 2c 31 30 32 2c 31 30  32 0d 0c e4 05 e1 0d 0c  |2,102,102.......|
00001650  ee 05 3a 0d 0c f8 0d dd  f2 63 6f 6c 6f 75 72 73  |..:......colours|
00001660  0d 0d 02 29 ef 31 39 2c  30 2c 32 3b 30 3b 31 39  |...).19,0,2;0;19|
00001670  2c 31 2c 31 3b 30 3b 31  39 2c 32 2c 33 3b 30 3b  |,1,1;0;19,2,3;0;|
00001680  31 39 2c 33 2c 30 3b 30  3b 0d 0d 0c 05 e1 0d 0d  |19,3,0;0;.......|
00001690  16 05 3a 0d 0d 20 0b dd  f2 62 6c 61 63 6b 0d 0d  |..:.. ...black..|
000016a0  2a 19 e3 4e 25 3d 30 b8  33 3a ef 31 39 2c 4e 25  |*..N%=0.3:.19,N%|
000016b0  2c 30 3b 30 3b 3a ed 0d  0d 34 05 e1 0d 0d 3e 05  |,0;0;:...4....>.|
000016c0  3a 0d 0d 48 0e dd f2 61  73 73 65 6d 62 6c 65 0d  |:..H...assemble.|
000016d0  0d 52 0d e3 4e 25 3d 30  b8 32 88 32 0d 0d 5c 10  |.R..N%=0.2.2..\.|
000016e0  50 25 3d 57 25 3a 5b 4f  50 54 4e 25 0d 0d 66 0a  |P%=W%:[OPTN%..f.|
000016f0  2e 65 72 61 73 65 0d 0d  70 1e 4c 44 41 23 65 72  |.erase..p.LDA#er|
00001700  61 73 65 5f 64 61 74 61  20 83 32 35 36 3a 53 54  |ase_data .256:ST|
00001710  41 26 37 32 0d 0d 7a 1e  4c 44 41 23 65 72 61 73  |A&72..z.LDA#eras|
00001720  65 5f 64 61 74 61 20 81  32 35 36 3a 53 54 41 26  |e_data .256:STA&|
00001730  37 33 0d 0d 84 0c 4a 4d  50 70 72 69 6e 74 0d 0d  |73....JMPprint..|
00001740  8e 09 2e 72 6f 63 6b 0d  0d 98 1d 4c 44 41 23 72  |...rock....LDA#r|
00001750  6f 63 6b 5f 64 61 74 61  20 83 32 35 36 3a 53 54  |ock_data .256:ST|
00001760  41 26 37 32 0d 0d a2 1d  4c 44 41 23 72 6f 63 6b  |A&72....LDA#rock|
00001770  5f 64 61 74 61 20 81 32  35 36 3a 53 54 41 26 37  |_data .256:STA&7|
00001780  33 0d 0d ac 0c 4a 4d 50  70 72 69 6e 74 0d 0d b6  |3....JMPprint...|
00001790  0a 2e 73 70 6c 61 74 0d  0d c0 1e 4c 44 41 23 73  |..splat....LDA#s|
000017a0  70 6c 61 74 5f 64 61 74  61 20 83 32 35 36 3a 53  |plat_data .256:S|
000017b0  54 41 26 37 32 0d 0d ca  1e 4c 44 41 23 73 70 6c  |TA&72....LDA#spl|
000017c0  61 74 5f 64 61 74 61 20  81 32 35 36 3a 53 54 41  |at_data .256:STA|
000017d0  26 37 33 0d 0d d4 0c 4a  4d 50 70 72 69 6e 74 0d  |&73....JMPprint.|
000017e0  0d de 0d 2e 66 72 75 69  74 28 31 29 0d 0d e8 1f  |....fruit(1)....|
000017f0  4c 44 41 23 66 72 75 69  74 31 5f 64 61 74 61 20  |LDA#fruit1_data |
00001800  83 32 35 36 3a 53 54 41  26 37 32 0d 0d f2 1f 4c  |.256:STA&72....L|
00001810  44 41 23 66 72 75 69 74  31 5f 64 61 74 61 20 81  |DA#fruit1_data .|
00001820  32 35 36 3a 53 54 41 26  37 33 0d 0d fc 0c 4a 4d  |256:STA&73....JM|
00001830  50 70 72 69 6e 74 0d 0e  06 0d 2e 66 72 75 69 74  |Pprint.....fruit|
00001840  28 32 29 0d 0e 10 1f 4c  44 41 23 66 72 75 69 74  |(2)....LDA#fruit|
00001850  32 5f 64 61 74 61 20 83  32 35 36 3a 53 54 41 26  |2_data .256:STA&|
00001860  37 32 0d 0e 1a 1f 4c 44  41 23 66 72 75 69 74 32  |72....LDA#fruit2|
00001870  5f 64 61 74 61 20 81 32  35 36 3a 53 54 41 26 37  |_data .256:STA&7|
00001880  33 0d 0e 24 0c 4a 4d 50  70 72 69 6e 74 0d 0e 2e  |3..$.JMPprint...|
00001890  0d 2e 66 72 75 69 74 28  33 29 0d 0e 38 1f 4c 44  |..fruit(3)..8.LD|
000018a0  41 23 66 72 75 69 74 33  5f 64 61 74 61 20 83 32  |A#fruit3_data .2|
000018b0  35 36 3a 53 54 41 26 37  32 0d 0e 42 1f 4c 44 41  |56:STA&72..B.LDA|
000018c0  23 66 72 75 69 74 33 5f  64 61 74 61 20 81 32 35  |#fruit3_data .25|
000018d0  36 3a 53 54 41 26 37 33  0d 0e 4c 0c 4a 4d 50 70  |6:STA&73..L.JMPp|
000018e0  72 69 6e 74 0d 0e 56 09  2e 6c 65 66 74 0d 0e 60  |rint..V..left..`|
000018f0  1d 4c 44 41 23 6c 65 66  74 5f 64 61 74 61 20 83  |.LDA#left_data .|
00001900  32 35 36 3a 53 54 41 26  37 32 0d 0e 6a 1d 4c 44  |256:STA&72..j.LD|
00001910  41 23 6c 65 66 74 5f 64  61 74 61 20 81 32 35 36  |A#left_data .256|
00001920  3a 53 54 41 26 37 33 0d  0e 74 0c 4a 4d 50 70 72  |:STA&73..t.JMPpr|
00001930  69 6e 74 0d 0e 7e 0a 2e  72 69 67 68 74 0d 0e 88  |int..~..right...|
00001940  1e 4c 44 41 23 72 69 67  68 74 5f 64 61 74 61 20  |.LDA#right_data |
00001950  83 32 35 36 3a 53 54 41  26 37 32 0d 0e 92 1e 4c  |.256:STA&72....L|
00001960  44 41 23 72 69 67 68 74  5f 64 61 74 61 20 81 32  |DA#right_data .2|
00001970  35 36 3a 53 54 41 26 37  33 0d 0e 9c 0c 4a 4d 50  |56:STA&73....JMP|
00001980  70 72 69 6e 74 0d 0e a6  07 2e 75 70 0d 0e b0 1b  |print.....up....|
00001990  4c 44 41 23 75 70 5f 64  61 74 61 20 83 32 35 36  |LDA#up_data .256|
000019a0  3a 53 54 41 26 37 32 0d  0e ba 1b 4c 44 41 23 75  |:STA&72....LDA#u|
000019b0  70 5f 64 61 74 61 20 81  32 35 36 3a 53 54 41 26  |p_data .256:STA&|
000019c0  37 33 0d 0e c4 0c 4a 4d  50 70 72 69 6e 74 0d 0e  |73....JMPprint..|
000019d0  ce 09 2e 64 6f 77 6e 0d  0e d8 1d 4c 44 41 23 64  |...down....LDA#d|
000019e0  6f 77 6e 5f 64 61 74 61  20 83 32 35 36 3a 53 54  |own_data .256:ST|
000019f0  41 26 37 32 0d 0e e2 1d  4c 44 41 23 64 6f 77 6e  |A&72....LDA#down|
00001a00  5f 64 61 74 61 20 81 32  35 36 3a 53 54 41 26 37  |_data .256:STA&7|
00001a10  33 0d 0e ec 0c 4a 4d 50  70 72 69 6e 74 0d 0e f6  |3....JMPprint...|
00001a20  09 2e 62 6f 64 79 0d 0f  00 1d 4c 44 41 23 62 6f  |..body....LDA#bo|
00001a30  64 79 5f 64 61 74 61 20  83 32 35 36 3a 53 54 41  |dy_data .256:STA|
00001a40  26 37 32 0d 0f 0a 1d 4c  44 41 23 62 6f 64 79 5f  |&72....LDA#body_|
00001a50  64 61 74 61 20 81 32 35  36 3a 53 54 41 26 37 33  |data .256:STA&73|
00001a60  0d 0f 14 0c 4a 4d 50 70  72 69 6e 74 0d 0f 1e 05  |....JMPprint....|
00001a70  3a 0d 0f 28 10 2e 66 72  75 69 74 31 5f 64 61 74  |:..(..fruit1_dat|
00001a80  61 0d 0f 32 3b 45 51 55  44 26 30 33 38 39 36 36  |a..2;EQUD&038966|
00001a90  30 30 3a 45 51 55 44 26  30 31 30 33 30 37 30 37  |00:EQUD&01030707|
00001aa0  3a 45 51 55 44 26 30 43  30 38 38 38 36 36 3a 45  |:EQUD&0C088866:E|
00001ab0  51 55 44 26 30 38 30 43  43 32 34 41 0d 0f 3c 10  |QUD&080CC24A..<.|
00001ac0  2e 66 72 75 69 74 32 5f  64 61 74 61 0d 0f 46 3b  |.fruit2_data..F;|
00001ad0  45 51 55 44 26 31 31 30  30 31 31 36 36 3a 45 51  |EQUD&11001166:EQ|
00001ae0  55 44 26 30 36 32 44 30  36 32 32 3a 45 51 55 44  |UD&062D0622:EQUD|
00001af0  26 30 36 43 43 30 30 30  30 3a 45 51 55 44 26 30  |&06CC0000:EQUD&0|
00001b00  30 30 30 30 36 32 44 0d  0f 50 0f 2e 65 72 61 73  |000062D..P..eras|
00001b10  65 5f 64 61 74 61 0d 0f  5a 1b 45 51 55 44 30 3a  |e_data..Z.EQUD0:|
00001b20  45 51 55 44 30 3a 45 51  55 44 30 3a 45 51 55 44  |EQUD0:EQUD0:EQUD|
00001b30  30 0d 0f 64 0f 2e 73 70  6c 61 74 5f 64 61 74 61  |0..d..splat_data|
00001b40  0d 0f 6e 3b 45 51 55 44  26 37 44 36 35 37 46 41  |..n;EQUD&7D657FA|
00001b50  41 3a 45 51 55 44 26 31  32 35 33 44 41 42 42 3a  |A:EQUD&1253DABB:|
00001b60  45 51 55 44 26 41 41 42  42 43 43 44 44 3a 45 51  |EQUD&AABBCCDD:EQ|
00001b70  55 44 26 31 31 30 30 32  32 30 30 0d 0f 78 0e 2e  |UD&11002200..x..|
00001b80  72 6f 63 6b 5f 64 61 74  61 0d 0f 82 3b 45 51 55  |rock_data...;EQU|
00001b90  44 26 33 31 31 30 31 30  31 30 3a 45 51 55 44 26  |D&31101010:EQUD&|
00001ba0  46 30 46 37 36 33 37 31  3a 45 51 55 44 26 36 43  |F0F76371:EQUD&6C|
00001bb0  45 43 43 38 38 30 3a 45  51 55 44 26 43 30 46 43  |ECC880:EQUD&C0FC|
00001bc0  33 45 33 45 0d 0f 8c 10  2e 66 72 75 69 74 33 5f  |3E3E.....fruit3_|
00001bd0  64 61 74 61 0d 0f 96 3b  45 51 55 44 26 36 35 33  |data...;EQUD&653|
00001be0  32 39 39 36 36 3a 45 51  55 44 26 33 33 35 34 41  |29966:EQUD&3354A|
00001bf0  44 44 41 3a 45 51 55 44  26 41 32 34 43 39 39 36  |DDA:EQUD&A24C996|
00001c00  36 3a 45 51 55 44 26 43  43 36 41 42 35 35 33 0d  |6:EQUD&CC6AB553.|
00001c10  0f a0 0e 2e 62 6f 64 79  5f 64 61 74 61 0d 0f aa  |....body_data...|
00001c20  3b 45 51 55 44 26 44 46  41 46 35 37 33 33 3a 45  |;EQUD&DFAF5733:E|
00001c30  51 55 44 26 33 33 36 37  44 46 41 46 3a 45 51 55  |QUD&3367DFAF:EQU|
00001c40  44 26 35 44 42 42 36 45  43 43 3a 45 51 55 44 26  |D&5DBB6ECC:EQUD&|
00001c50  43 43 41 45 35 46 42 46  0d 0f b4 0e 2e 6c 65 66  |CCAE5FBF.....lef|
00001c60  74 5f 64 61 74 61 0d 0f  be 3b 45 51 55 44 26 44  |t_data...;EQUD&D|
00001c70  46 37 36 33 33 31 31 3a  45 51 55 44 26 31 31 32  |F763311:EQUD&112|
00001c80  33 35 36 41 46 3a 45 51  55 44 26 35 46 42 46 36  |356AF:EQUD&5FBF6|
00001c90  45 43 43 3a 45 51 55 44  26 43 43 41 45 35 46 42  |ECC:EQUD&CCAE5FB|
00001ca0  46 0d 0f c8 0f 2e 72 69  67 68 74 5f 64 61 74 61  |F.....right_data|
00001cb0  0d 0f d2 3b 45 51 55 44  26 41 46 44 46 36 37 33  |...;EQUD&AFDF673|
00001cc0  33 3a 45 51 55 44 26 33  33 35 37 41 46 44 46 3a  |3:EQUD&3357AFDF:|
00001cd0  45 51 55 44 26 42 46 45  36 43 43 38 38 3a 45 51  |EQUD&BFE6CC88:EQ|
00001ce0  55 44 26 38 38 34 43 41  36 35 46 0d 0f dc 0c 2e  |UD&884CA65F.....|
00001cf0  75 70 5f 64 61 74 61 0d  0f e6 3b 45 51 55 44 26  |up_data...;EQUD&|
00001d00  46 44 36 37 33 33 31 31  3a 45 51 55 44 26 33 33  |FD673311:EQUD&33|
00001d10  36 37 44 46 41 46 3a 45  51 55 44 26 35 42 41 45  |67DFAF:EQUD&5BAE|
00001d20  34 43 38 38 3a 45 51 55  44 26 43 43 41 45 35 46  |4C88:EQUD&CCAE5F|
00001d30  42 46 0d 0f f0 0e 2e 64  6f 77 6e 5f 64 61 74 61  |BF.....down_data|
00001d40  0d 0f fa 3b 45 51 55 44  26 44 46 41 46 35 37 33  |...;EQUD&DFAF573|
00001d50  33 3a 45 51 55 44 26 31  31 32 33 35 37 41 44 3a  |3:EQUD&112357AD:|
00001d60  45 51 55 44 26 35 46 42  46 36 45 43 43 3a 45 51  |EQUD&5FBF6ECC:EQ|
00001d70  55 44 26 38 38 43 43 36  45 46 42 0d 10 04 05 3a  |UD&88CC6EFB....:|
00001d80  0d 10 0e 0a 2e 70 72 69  6e 74 0d 10 18 15 4c 44  |.....print....LD|
00001d90  41 23 93 20 83 32 35 36  3a 53 54 41 26 37 34 0d  |A#. .256:STA&74.|
00001da0  10 22 15 4c 44 41 23 93  20 81 32 35 36 3a 53 54  |.".LDA#. .256:ST|
00001db0  41 26 37 35 0d 10 2c 1f  4c 44 41 26 34 30 34 3a  |A&75..,.LDA&404:|
00001dc0  41 53 4c 41 3a 41 53 4c  41 3a 54 41 58 3a 4c 44  |ASLA:ASLA:TAX:LD|
00001dd0  59 23 34 0d 10 36 0a 2e  6c 6f 6f 70 31 0d 10 40  |Y#4..6..loop1..@|
00001de0  26 54 58 41 3a 43 4c 43  3a 41 44 43 26 37 34 3a  |&TXA:CLC:ADC&74:|
00001df0  53 54 41 26 37 34 3a 42  43 43 6e 31 3a 49 4e 43  |STA&74:BCCn1:INC|
00001e00  26 37 35 0d 10 4a 07 2e  6e 31 0d 10 54 10 44 45  |&75..J..n1..T.DE|
00001e10  59 3a 42 4e 45 6c 6f 6f  70 31 0d 10 5e 25 4c 44  |Y:BNEloop1..^%LD|
00001e20  41 26 34 30 38 3a 41 53  4c 41 3a 41 53 4c 41 3a  |A&408:ASLA:ASLA:|
00001e30  41 53 4c 41 3a 54 41 58  3a 4c 44 59 23 34 30 0d  |ASLA:TAX:LDY#40.|
00001e40  10 68 0a 2e 6c 6f 6f 70  32 0d 10 72 26 54 58 41  |.h..loop2..r&TXA|
00001e50  3a 43 4c 43 3a 41 44 43  26 37 34 3a 53 54 41 26  |:CLC:ADC&74:STA&|
00001e60  37 34 3a 42 43 43 6e 32  3a 49 4e 43 26 37 35 0d  |74:BCCn2:INC&75.|
00001e70  10 7c 07 2e 6e 32 0d 10  86 10 44 45 59 3a 42 4e  |.|..n2....DEY:BN|
00001e80  45 6c 6f 6f 70 32 0d 10  90 09 4c 44 59 23 30 0d  |Eloop2....LDY#0.|
00001e90  10 9a 0a 2e 6c 6f 6f 70  50 0d 10 a4 31 4c 44 41  |....loopP...1LDA|
00001ea0  28 26 37 32 29 2c 59 3a  53 54 41 28 26 37 34 29  |(&72),Y:STA(&74)|
00001eb0  2c 59 3a 49 4e 59 3a 43  50 59 23 31 36 3a 42 4e  |,Y:INY:CPY#16:BN|
00001ec0  45 6c 6f 6f 70 50 3a 52  54 53 0d 10 ae 05 3a 0d  |EloopP:RTS....:.|
00001ed0  10 b8 09 2e 6b 65 79 73  0d 10 c2 11 4c 44 41 26  |....keys....LDA&|
00001ee0  45 43 3a 4c 44 58 26 45  44 0d 10 cc 0f 42 45 51  |EC:LDX&ED....BEQ|
00001ef0  63 6f 6e 74 6b 65 79 73  0d 10 d6 07 54 58 41 0d  |contkeys....TXA.|
00001f00  10 e0 0d 2e 63 6f 6e 74  6b 65 79 73 0d 10 ea 0b  |....contkeys....|
00001f10  53 54 41 26 34 32 43 0d  10 f4 12 43 4d 50 23 31  |STA&42C....CMP#1|
00001f20  35 31 3a 42 45 51 79 65  73 0d 10 fe 12 43 4d 50  |51:BEQyes....CMP|
00001f30  23 31 35 35 3a 42 45 51  79 65 73 0d 11 08 12 43  |#155:BEQyes....C|
00001f40  4d 50 23 31 38 32 3a 42  45 51 79 65 73 0d 11 12  |MP#182:BEQyes...|
00001f50  17 43 4d 50 23 31 38 33  3a 42 4e 45 68 6f 6d 65  |.CMP#183:BNEhome|
00001f60  6b 65 79 73 0d 11 1c 08  2e 79 65 73 0d 11 26 0b  |keys.....yes..&.|
00001f70  53 54 41 26 34 31 30 0d  11 30 0d 2e 68 6f 6d 65  |STA&410..0..home|
00001f80  6b 65 79 73 0d 11 3a 07  52 54 53 0d 11 44 05 3a  |keys..:.RTS..D.:|
00001f90  0d 11 4e 09 2e 68 65 61  64 0d 11 58 0b 4c 44 41  |..N..head..X.LDA|
00001fa0  26 34 31 30 0d 11 62 1e  43 4d 50 23 31 35 35 3a  |&410..b.CMP#155:|
00001fb0  42 4e 45 6e 6f 74 6c 65  66 74 3a 4a 4d 50 6c 65  |BNEnotleft:JMPle|
00001fc0  66 74 0d 11 6c 0c 2e 6e  6f 74 6c 65 66 74 0d 11  |ft..l..notleft..|
00001fd0  76 20 43 4d 50 23 31 35  31 3a 42 4e 45 6e 6f 74  |v CMP#151:BNEnot|
00001fe0  72 69 67 68 74 3a 4a 4d  50 72 69 67 68 74 0d 11  |right:JMPright..|
00001ff0  80 0d 2e 6e 6f 74 72 69  67 68 74 0d 11 8a 1a 43  |...notright....C|
00002000  4d 50 23 31 38 32 3a 42  4e 45 6e 6f 74 75 70 3a  |MP#182:BNEnotup:|
00002010  4a 4d 50 75 70 0d 11 94  0a 2e 6e 6f 74 75 70 0d  |JMPup.....notup.|
00002020  11 9e 1e 43 4d 50 23 31  38 33 3a 42 4e 45 6e 6f  |...CMP#183:BNEno|
00002030  74 64 6f 77 6e 3a 4a 4d  50 64 6f 77 6e 0d 11 a8  |tdown:JMPdown...|
00002040  0c 2e 6e 6f 74 64 6f 77  6e 0d 11 b2 07 52 54 53  |..notdown....RTS|
00002050  0d 11 bc 05 3a 0d 11 c6  0b 2e 64 6f 75 62 6c 65  |....:.....double|
00002060  0d 11 d0 0d 4c 44 41 23  30 3a 50 48 41 0d 11 da  |....LDA#0:PHA...|
00002070  0b 2e 6c 6f 6f 70 44 31  0d 11 e4 24 50 4c 41 3a  |..loopD1...$PLA:|
00002080  54 41 58 3a 4c 44 41 26  31 31 30 2c 58 3a 43 4d  |TAX:LDA&110,X:CM|
00002090  50 23 31 33 3a 42 45 51  66 69 6e 69 0d 11 ee 0a  |P#13:BEQfini....|
000020a0  53 54 41 26 38 30 0d 11  f8 0f 49 4e 58 3a 54 58  |STA&80....INX:TX|
000020b0  41 3a 50 48 41 0d 12 02  21 4c 44 58 23 26 38 30  |A:PHA...!LDX#&80|
000020c0  3a 4c 44 59 23 30 3a 4c  44 41 23 31 30 3a 4a 53  |:LDY#0:LDA#10:JS|
000020d0  52 26 46 46 46 31 0d 12  0c 24 4c 44 41 23 32 33  |R&FFF1...$LDA#23|
000020e0  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 32 35  |:JSR&FFEE:LDA#25|
000020f0  35 3a 4a 53 52 26 46 46  45 45 0d 12 16 09 4c 44  |5:JSR&FFEE....LD|
00002100  59 23 31 0d 12 20 0b 2e  6c 6f 6f 70 44 32 0d 12  |Y#1.. ..loopD2..|
00002110  2a 1e 4c 44 41 26 38 30  2c 59 3a 4a 53 52 26 46  |*.LDA&80,Y:JSR&F|
00002120  46 45 45 3a 4a 53 52 26  46 46 45 45 0d 12 34 17  |FEE:JSR&FFEE..4.|
00002130  49 4e 59 3a 43 50 59 23  35 3a 42 4e 45 6c 6f 6f  |INY:CPY#5:BNEloo|
00002140  70 44 32 0d 12 3e 33 4c  44 41 23 32 35 35 3a 4a  |pD2..>3LDA#255:J|
00002150  53 52 26 46 46 45 45 3a  4c 44 41 23 38 3a 4a 53  |SR&FFEE:LDA#8:JS|
00002160  52 26 46 46 45 45 3a 4c  44 41 23 31 30 3a 4a 53  |R&FFEE:LDA#10:JS|
00002170  52 26 46 46 45 45 0d 12  48 24 4c 44 41 23 32 33  |R&FFEE..H$LDA#23|
00002180  3a 4a 53 52 26 46 46 45  45 3a 4c 44 41 23 32 35  |:JSR&FFEE:LDA#25|
00002190  35 3a 4a 53 52 26 46 46  45 45 0d 12 52 0b 2e 6c  |5:JSR&FFEE..R..l|
000021a0  6f 6f 70 44 33 0d 12 5c  1e 4c 44 41 26 38 30 2c  |oopD3..\.LDA&80,|
000021b0  59 3a 4a 53 52 26 46 46  45 45 3a 4a 53 52 26 46  |Y:JSR&FFEE:JSR&F|
000021c0  46 45 45 0d 12 66 17 49  4e 59 3a 43 50 59 23 39  |FEE..f.INY:CPY#9|
000021d0  3a 42 4e 45 6c 6f 6f 70  44 33 0d 12 70 24 4c 44  |:BNEloopD3..p$LD|
000021e0  41 23 32 35 35 3a 4a 53  52 26 46 46 45 45 3a 4c  |A#255:JSR&FFEE:L|
000021f0  44 41 23 31 31 3a 4a 53  52 26 46 46 45 45 0d 12  |DA#11:JSR&FFEE..|
00002200  7a 0d 4a 4d 50 6c 6f 6f  70 44 31 0d 12 84 0d 2e  |z.JMPloopD1.....|
00002210  66 69 6e 69 20 52 54 53  0d 12 8e 07 5d 3a ed 0d  |fini RTS....]:..|
00002220  12 98 05 e1 0d 12 a2 05  3a 0d 12 ac 6b dc 31 33  |........:...k.13|
00002230  36 2c 32 2c 31 32 38 2c  32 2c 31 33 36 2c 31 32  |6,2,128,2,136,12|
00002240  2c 31 32 38 2c 32 2c 31  32 30 2c 32 2c 31 31 36  |,128,2,120,2,116|
00002250  2c 32 2c 31 30 38 2c 32  2c 31 30 34 2c 38 2c 31  |,2,108,2,104,8,1|
00002260  30 38 2c 31 36 2c 30 2c  32 2c 31 33 36 2c 32 2c  |08,16,0,2,136,2,|
00002270  31 32 38 2c 32 2c 31 33  36 2c 31 32 2c 31 31 36  |128,2,136,12,116|
00002280  2c 36 2c 31 32 30 2c 36  2c 31 30 34 2c 36 2c 31  |,6,120,6,104,6,1|
00002290  30 38 2c 38 0d 12 b6 89  dc 31 30 38 2c 31 2c 31  |08,8.....108,1,1|
000022a0  31 36 2c 31 2c 31 30 38  2c 31 2c 31 30 30 2c 31  |16,1,108,1,100,1|
000022b0  2c 39 36 2c 31 2c 38 30  2c 31 2c 38 30 2c 32 2c  |,96,1,80,1,80,2,|
000022c0  38 38 2c 31 2c 39 36 2c  31 2c 38 38 2c 31 2c 38  |88,1,96,1,88,1,8|
000022d0  30 2c 31 2c 37 36 2c 31  2c 36 30 2c 31 2c 36 30  |0,1,76,1,60,1,60|
000022e0  2c 32 2c 31 30 38 2c 31  2c 31 31 36 2c 31 2c 31  |,2,108,1,116,1,1|
000022f0  30 38 2c 31 2c 31 30 30  2c 31 2c 39 36 2c 31 2c  |08,1,100,1,96,1,|
00002300  38 30 2c 31 2c 38 30 2c  31 2c 39 36 2c 31 2c 36  |80,1,80,1,96,1,6|
00002310  38 2c 32 2c 37 36 2c 34  2c 38 30 2c 34 0d 12 c0  |8,2,76,4,80,4...|
00002320  3b dc 36 38 2c 38 2c 36  38 2c 36 2c 36 38 2c 32  |;.68,8,68,6,68,2|
00002330  2c 36 38 2c 38 2c 38 30  2c 36 2c 37 36 2c 32 2c  |,68,8,80,6,76,2,|
00002340  37 36 2c 34 2c 36 38 2c  34 2c 36 38 2c 36 2c 36  |76,4,68,4,68,6,6|
00002350  34 2c 32 2c 36 38 2c 38  0d 12 ca 70 dc 31 30 31  |4,2,68,8...p.101|
00002360  2c 35 2c 31 32 31 2c 33  2c 31 33 37 2c 35 2c 31  |,5,121,3,137,5,1|
00002370  32 31 2c 32 2c 31 32 39  2c 32 2c 31 32 31 2c 32  |21,2,129,2,121,2|
00002380  2c 31 32 39 2c 32 2c 31  32 31 2c 34 2c 31 31 37  |,129,2,121,4,117|
00002390  2c 33 2c 31 30 31 2c 35  2c 31 32 31 2c 33 2c 31  |,3,101,5,121,3,1|
000023a0  33 37 2c 35 2c 31 32 31  2c 32 2c 31 32 39 2c 32  |37,5,121,2,129,2|
000023b0  2c 31 32 31 2c 32 2c 31  32 39 2c 32 2c 31 32 31  |,121,2,129,2,121|
000023c0  2c 34 2c 31 31 37 2c 33  0d 12 d4 67 dc 31 32 31  |,4,117,3...g.121|
000023d0  2c 32 2c 31 34 31 2c 38  2c 31 34 31 2c 38 2c 31  |,2,141,8,141,8,1|
000023e0  34 39 2c 38 2c 31 34 39  2c 38 2c 31 36 39 2c 31  |49,8,149,8,169,1|
000023f0  34 2c 31 35 37 2c 32 2c  31 34 31 2c 36 2c 31 34  |4,157,2,141,6,14|
00002400  31 2c 32 2c 31 35 37 2c  36 2c 31 34 31 2c 32 2c  |1,2,157,6,141,2,|
00002410  31 32 39 2c 38 2c 31 36  31 2c 31 36 2c 31 34 39  |129,8,161,16,149|
00002420  2c 36 2c 31 33 37 2c 32  2c 31 34 31 2c 31 36 0d  |,6,137,2,141,16.|
00002430  12 de 6b dc 35 33 2c 35  2c 36 39 2c 35 2c 38 31  |..k.53,5,69,5,81|
00002440  2c 36 2c 38 39 2c 33 2c  38 31 2c 35 2c 36 39 2c  |,6,89,3,81,5,69,|
00002450  35 2c 35 33 2c 35 2c 36  39 2c 35 2c 38 31 2c 36  |5,53,5,69,5,81,6|
00002460  2c 38 39 2c 33 2c 38 31  2c 35 2c 36 39 2c 35 2c  |,89,3,81,5,69,5,|
00002470  35 33 2c 35 2c 36 39 2c  35 2c 38 31 2c 31 35 2c  |53,5,69,5,81,15,|
00002480  38 39 2c 31 35 2c 37 33  2c 36 2c 36 39 2c 33 2c  |89,15,73,6,69,3,|
00002490  37 33 2c 35 2c 36 31 2c  31 30 0d 12 e8 88 dc 31  |73,5,61,10.....1|
000024a0  30 31 2c 35 2c 31 32 31  2c 35 2c 30 2c 30 2c 31  |01,5,121,5,0,0,1|
000024b0  32 31 2c 35 2c 31 31 37  2c 33 2c 31 30 39 2c 32  |21,5,117,3,109,2|
000024c0  2c 31 31 37 2c 34 2c 31  32 31 2c 35 2c 31 30 31  |,117,4,121,5,101|
000024d0  2c 34 2c 30 2c 31 2c 31  30 31 2c 34 2c 30 2c 31  |,4,0,1,101,4,0,1|
000024e0  2c 31 30 31 2c 34 2c 31  32 31 2c 35 2c 30 2c 30  |,101,4,121,5,0,0|
000024f0  2c 31 32 31 2c 35 2c 31  31 37 2c 32 2c 31 30 39  |,121,5,117,2,109|
00002500  2c 32 2c 31 31 37 2c 34  2c 31 32 31 2c 35 2c 31  |,2,117,4,121,5,1|
00002510  30 31 2c 34 2c 30 2c 31  2c 31 30 31 2c 34 2c 30  |01,4,0,1,101,4,0|
00002520  2c 31 0d 12 f2 5b dc 31  30 31 2c 34 2c 38 39 2c  |,1...[.101,4,89,|
00002530  35 2c 30 2c 30 2c 38 39  2c 35 2c 38 31 2c 35 2c  |5,0,0,89,5,81,5,|
00002540  30 2c 30 2c 38 31 2c 35  2c 37 33 2c 36 2c 30 2c  |0,0,81,5,73,6,0,|
00002550  37 2c 31 30 31 2c 35 2c  38 39 2c 35 2c 30 2c 30  |7,101,5,89,5,0,0|
00002560  2c 38 39 2c 35 2c 38 31  2c 35 2c 30 2c 30 2c 38  |,89,5,81,5,0,0,8|
00002570  31 2c 35 2c 37 33 2c 36  2c 30 2c 31 30 0d 12 fc  |1,5,73,6,0,10...|
00002580  35 dc 31 30 31 2c 38 2c  38 31 2c 38 2c 31 30 31  |5.101,8,81,8,101|
00002590  2c 31 36 2c 31 31 37 2c  34 2c 31 32 31 2c 34 2c  |,16,117,4,121,4,|
000025a0  31 30 39 2c 34 2c 31 31  37 2c 34 2c 31 30 31 2c  |109,4,117,4,101,|
000025b0  31 36 0d 13 06 40 dc 31  32 39 2c 39 2c 31 31 37  |16...@.129,9,117|
000025c0  2c 34 2c 31 32 31 2c 34  2c 31 32 39 2c 39 2c 31  |,4,121,4,129,9,1|
000025d0  30 31 2c 39 2c 31 32 31  2c 34 2c 31 32 39 2c 34  |01,9,121,4,129,4|
000025e0  2c 31 33 37 2c 34 2c 31  34 35 2c 34 2c 31 34 39  |,137,4,145,4,149|
000025f0  2c 34 0d ff                                       |,4..|
000025f4