&�adfs::Blank.$.!Badger.NEWSCROLL2

� >NEWSCROLL2
*FX229,0
*FX200,0
� �::�desk_top:�
?� saminx%(4),saminy%(4),samcount%(4),n_type%(4),pause_c%(4)
� ass_code% 2048
&� scale% 1024,input% 20,output% 16
&� anim_at_l%(100,6),pos_type%(100)
	M� gox%(20),goy%(20),amount%(20),bad%(20),path%(20):� 1 extra for button 9

total_but%=18
)� but%(total_but%,4),but$(total_but%)
&� rnd_table% 3560,emask%(40),r%(5)

Hload$=�~(rnd_table%):�"LOAD <Badger$DIR>.otherpics.rnd_clear "+load$

loop%=1
time%=�
�:loop%=loop%+1:�time%+50<�
�loop%>5000 arm%=3:� arm%=1


�pull_variables
�initialise_sprite_area
'�load_sprite(sprite_area1%,"main1")

�assemble_draw

�12
ș"OS_RemoveCursors"
cd%=0:� current direction
total_locations%=22
Fcar1%=0:car2%=0:car1x%=0:car1y%=0:car2x%=0:car2y%=0:ct%=0:nocar%=0
 /many%=468:manx%=1102:man_type%=1:go_farm%=0
!foxx%=428:foxy%=370
"Atime_control%=6       :� speed of animation ARM 3 (for Paul!)
#every_other%=0
$*RUN !DTPalette
%*FX112,2
&T�pri2(0,500,0,1,128,2,"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.,'")
'T�pri2(0,300,0,1,128,1,"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.,'")
(*FX112,1
)
*	�Ty@
+******************
,L%=location%
-M%=start_flag%
.N%=second_deads_found%
/O%=first_deads_location%
0P%=second_deads_location%
1Q%=liquid_count%
2R%=food_count%
3
S%=lives%
4T%=time_of_day_count%
5U%=points%
6
V%=foods%
7*****************
8
9�palette
:�find_starts
;
<
=�M%=0:M%=1:�introduction
>�select_anim_pos(1,21)
?�location_finder(L%)
@ax%=nax%:ay%=nay%
A"�find_screen(1,screen_loaded%)
B"�find_screen(2,screen_loaded%)
C
D
E�set_up_blank
F
G�main_move_loop
H� PROCsenses_loop
I	�DG@
J
K��main_move_loop
Lȗ�
Mȗ� 1068,156
N�bottom_frame
O�clear_text
P� PROCinitialise_buttons(1)
Q%� PROCcheck_buttons(1,total_but%)
R�
S. �L%=16 � (Q%<1 � R%<3):�man_with_gun_text
TD �24,872;4;1262;300;18,0,130,16,24,876;8;1258;296;18,0,129,16,26
U3 �plot_sprite_scaled(1002,92,1,1,1,1,"compass")
V �initialise_buttons(1)
W �L%<23 �foodandwater
X ȗ � 700,92
Y �sight%=0 but%(9,3)=0
Z �set_up_button_blank
[ ȗ � 700,92
\  �
]%   �:�check_buttons(1,total_but%)
^5   �L%=6 � L%=9 � L%=11 � L%=21 � L%=20:�move_car
_   �go_farm%=1 �point_man
`   �selected%>0
a*  � path%(selected%-1)>0 � selected%>8
b�  � selected%=9:�"FX112,2":�26:ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,320,0:�"FX112,1":�senses:B%=screen_two%:C%=screen_one%:�wiz:�putcarsback:�set_up_blank:� �
c$  �selected%=10:�information:� �
d  �selected%=11:�clue:� �
e �26
f; �L%=6 � L%=9 � L%=11 � L%=21 � L%=20:�check_clear_cars
gY �L%=36 � go_farm%=1 � (selected%=1 � selected%=5 � selected%=7):�paddy(1):go_farm%=2
h
i �animation
j �small_animate
k
lG �new_location%=36 � path%(selected%-1)=89 � go_farm%<>2 go_farm%=1
m# �new_location%=99 �end_badger1
n& �new_location%=98 �drowned_badger
o! �new_location%=97 �shot_dead
p' �new_location%=35 � foxx%<800 �fox
qf �new_location%=96 new_location%=22:�end_of_part1:B%=screen_two%:C%=screen_one%:�wiz:�bottom_frame
r L%=new_location%
s$ �location_finder(new_location%)
t T%=T%+1: � time of day
u
v� �
w�
x
y��putcarsback
z3 �L%=6 � L%=9 � L%=11 � L%=21 � L%=20:�move_car
{ �
|
}��check_clear_cars
~� �L%=6 � path%(selected%-1)=15:�clear_cars:�:car1%=�(3):�car1%<>car2%:car1x%=-460:car1y%=660:�:car2%=�(3):�car2%<>car1%:car2x%=-1200:car2y%=660:�
� �L%=9 � path%(selected%-1)=24:�clear_cars:�:car1%=�(3):�car1%<>car2%:car1x%=-460:car1y%=660:�:car2%=�(3):�car2%<>car1%:car2x%=1400:car2y%=512:ș"OS_SpriteOp",&12F,sprite_area1%,"car"+�(car2%):�
�F � IFL%=6 AND path%(selected%-1)=14:PROCclear_cars:PROCdelete_cars
�F � IFL%=9 AND path%(selected%-1)=23:PROCclear_cars:PROCdelete_cars
�5 �L%=21 � L%=20 � L%=11 � L%=6 � L%=9:�clear_cars
�= � path%(selected%-1)=55 car1%=�(3):car1x%=-60:car1y%=660
�� � path%(selected%-1)=14 � path%(selected%-1)=23 � path%(selected%-1)=34 � path%(selected%-1)=52 � path%(selected%-1)=28 :�delete_cars
��
�
���clear_cars
��car1%=0 � car2%=0 �
�4nocar%=1:�:�move_car:�car1%=0 � car2%=0:nocar%=0
��
�
�
���animation
�time%=�
� �path_finder(selected%-1)
�ps%=path%(selected%-1)
�Fpss%=0:�ps%=15 � ps%=24 � ps%=55 � ps%=57 � ps%=89 � ps%=90:pss%=1
�*FX229,1
��moves%=1�num_moves%
�# �amount%(moves%)<0 �scroll:�:�
��f%=1�amount%(moves%)
�*FX112,2
�$ �arm%=3 �pause(time_control%-2)
�: ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,320,0
� �pss%=1 �path
�. ax%=ax%+gox%(moves%):ay%=ay%+goy%(moves%)
�; � COLOUR3:PRINTTAB(0,0);ax%,ay%;" ";path%(selected%-1)
�^ �sprite_plot(sprite_area1%,"bad"+�(bad%(moves%)),ax%,ay%+128,12,8,14,15):cd%=bad%(moves%)
�*FX112,1
�' B%=screen_two%:C%=screen_one%:�wiz
� �
� �
�
 *FX229,0
��
�
�
��path
� �ps%=15 �squash_badger
� �ps%=24 �squash_badger2
� �ps%=55 �car_moved
� �ps%=57 �shot_badger
� �ps%=89 �point_man
�9 �ps%=90 � moves%=2 � go_farm%=2 �paddy(3):go_farm%=3
��
�
�
�
�
�
���paddy(nu%)
��ș"OS_SpriteOp",&13C,sprite_area1%,"scroll2",0:�plot_sprite_scaled(manx%-64,many%-320,1,1,1,1,"man_farm"+�(nu%)):ș"OS_SpriteOp",&13C,sprite_area1%,0,0:�
�
�	��fox
��24,400;320;1214;500;
��
�  foxx%=foxx%+4
�4  �plot_sprite_scaled(foxx%,foxy%,1,1,1,1,"fox")
�  �pause(1)
�� foxx%=1300
��26
��
�
���shot_badger
��moves%=1:�
�/�plot_sprite_scaled(658,560,1,1,1,1,"man2")
�G�moves%=3:�plot_sprite_scaled(620,686,1,1,1,1,"shot1"):�2,-15,10,10
�:�moves%=4:�plot_sprite_scaled(620,686,1,1,1,1,"shot2")
�G�moves%=5:�plot_sprite_scaled(620,686,1,1,1,1,"shot1"):�2,-15,10,10
�:�moves%=6:�plot_sprite_scaled(620,686,1,1,1,1,"shot2")
��
�
���point_man
�
�st_pause
�w�new_location%=36 � go_farm%<>2 � manx%>400:many%=many%:manx%=manx%-8:man_type%=(man_type%-1)*-1+2:�:�en_pause(1):�
�H�26:�plot_sprite_scaled(manx%,many%,1,1,1,1,"man_farm"+�(man_type%))
��en_pause(10)
��
�
���squash_badger
��24,64;320;1216;960;
�_�car1%>0 car1x%=car1x%+24:ș"OS_SpriteOp",&122,sprite_area1%,"car"+�(car1%),car1x%,car1y%,0
�_�car2%>0 car2x%=car2x%+24:ș"OS_SpriteOp",&122,sprite_area1%,"car"+�(car2%),car2x%,car2y%,0
��
�
���squash_badger2
��24,64;320;1216;960;
�Vcar2x%=car2x%-24:ș"OS_SpriteOp",&122,sprite_area1%,"car"+�(car2%),car2x%,car2y%,0
��
�
���car_moved
�(�car1x%>1280 � amount%(moves%)<>15:�
�*FX112,1
��
��24,64;320;1216;960;
�* �:� time%+(time_control%/2)<�:time%=�
�Vcar1x%=car1x%+20:ș"OS_SpriteOp",&122,sprite_area1%,"car"+�(car1%),car1x%,car1y%,0
��car1x%>1280
��delete_cars
�ay%=ay%+320
�*FX112,2
��
�
���shot_dead
��merge_sprite("death")
�*FX112,2
�&�24,64;320;1216;960;18,0,128,16,26
�0�plot_sprite_scaled(670,400,1,1,1,1,"death")
�J�pri2(128,800,0,1,128,1,"Badgers are rarely shot,  but you have been")
�>�pri2(128,740,0,1,128,1,"unlucky.  You have lost a life!")
�E�pri2(128,680,0,1,128,1,"Go back and continue your journey more")
�)�pri2(128,620,0,1,128,1,"carefully.")
�*FX112,1
��pause(100)
�+�explode_merge(screen_one%,screen_two%)
��bottom_frame
��clear_text
�
�space
��delete_death
��S%=1 �end_it_all
�S%=S%-1:L%=1
��
�
���drowned_badger
��merge_sprite("death")
�*FX112,2
�&�24,64;320;1216;960;18,0,128,16,26
�:�pri2(128,800,0,1,128,1,"Badgers can swim,  but this")
�;�pri2(128,740,0,1,128,1,"stream is very fast flowing.")

4�pri2(128,680,0,1,128,1,"You have lost a life!")


8�pri2(128,620,0,1,128,1,"Go back and continue your")

6�pri2(128,560,0,1,128,1,"journey more carefully.")

3�plot_sprite_scaled(800,540,1,1,1,1,"rivdeath")

*FX112,1

�pause(100)

+�explode_merge(screen_one%,screen_two%)

�bottom_frame

�clear_text

	
�space


�delete_death

�S%=1 �end_it_all

S%=S%-1:L%=1


�





��end_badger1

�f%=1�5

& �:� time%+time_control%<�:time%=�

*FX112,2

: ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,320,0

* �path%(selected%-1)=15 �squash_badger

+ �path%(selected%-1)=24 �squash_badger2

*FX112,1

' B%=screen_two%:C%=screen_one%:�wiz

 �

 �clear_text:�bottom_frame

*FX112,2

&�24,64;320;1216;960;18,0,128,16,26

�merge_sprite("death")

0�plot_sprite_scaled(670,400,1,1,1,1,"death")

F�pri2(128,860,0,1,128,1,"Thousands of badgers are killed by cars")

 F�pri2(128,800,0,1,128,1,"each year.  Can you find a safer way to")

!@�pri2(128,740,0,1,128,1,"reach the other side of the road?")

"E�pri2(128,640,0,1,128,1,"Go back and continue your journey more")

#)�pri2(128,580,0,1,128,1,"carefully.")

$*FX112,1

%�pause(100)

&+�explode_merge(screen_one%,screen_two%)

'�bottom_frame

(�clear_text

)
�space

*�delete_death

+�S%=1:�end_it_all

,S%=S%-1:L%=1

-�

.

/ ��select_anim_pos(bot%,top%)

0	��DNA

1(�f%=bot% � top%:anim_at_l%(f%,0)=0:�

2�f%=bot% � top%

3�pos_type%(f%)

4�

5� anim_at_l%(1,0)=1

6� anim_at_l%(1,1)=6

7� anim_at_l%(1,2)=0

8� anim_at_l%(1,3)=0

9� anim_at_l%(1,4)=0

:� anim_at_l%(1,5)=0

;H� anim_at_l%(1,6)=2:REM code used to set type of senses that appear.

<4�set_an_pos(1,16,15,15,0,0,2) :� 2=rabbit escape

=?� (V% � 4)=0 �set_an_pos(1,6,15,15,0,0,6)  :� 6=rabbit hole

>8� (V% � 1)=0 �set_an_pos(1,1,2,0,0,0,1)    :� 1=dung

?A� bot%=1 � (V% � 1)=0 �set_an_pos(1,1,2,0,0,0,1)    :� 1=dung

@8� (V% � 8)=0 �set_an_pos(3,0,17,17,0,0,3)  :� 3=frog

A7� bot%=1 �set_an_pos(15,0,12,0,0,0,4)   :� 4=poison

B8� (V% � 2)=0 �set_an_pos(1,0,0,0,0,0,5)    :� 5=worm

CA� bot%=1 � (V% � 2)=0 �set_an_pos(1,0,0,0,0,0,5)    :� 5=worm

D9� (V% � 16)=0 �set_an_pos(1,0,0,0,0,0,7)    :� 7=bulb

EB� bot%=1 � (V% � 16)=0 �set_an_pos(1,0,0,0,0,0,7)    :� 7=bulb

F;� (V% � 32)=0 �set_an_pos(14,0,0,0,0,0,9)   :� 9=spider

G3� bot%=1 �set_an_pos(8,0,22,22,0,0,8)  :� 8=man

H3� bot%=1 �set_an_pos(8,0,22,22,0,0,8)  :� 8=man

I�

J

KK� 1=grass 2=road 3=water 4=stone 5=bush 6=tunnel 7=forest 8=grass blank

LI� 9=foxes 10=forest track 11=genral forest 12=empty hole 13=semi open

M&� 14=wall spider 15=poisoned water

N� 8,1,1,1,1,2,15,1,2,1

O� 14,1,3,3,8,8,1,5,3,4

P � 6,7,9,11,10,11,10,10,11,11

Q!� 11,11,11,5,10,10,11,11,11,3

R� 13,13

S

T,��set_an_pos(type%,a%,b%,c%,d%,e%,code%)

U�

V+rnd%=�(total_locations%):�rnd%=1 � �DVA

W2� anim_at_l%(rnd%,0)=0 � pos_type%(rnd%)=type%

Xanim_at_l%(rnd%,0)=1

Yanim_at_l%(rnd%,1)=a%

Zanim_at_l%(rnd%,2)=b%

[anim_at_l%(rnd%,3)=c%

\anim_at_l%(rnd%,4)=d%

]anim_at_l%(rnd%,5)=e%

^Lanim_at_l%(rnd%,6)=code% :� code used to set type of senses that appear.

_�

`

a ��location_finder(location%)

b	��D}A

c�locfind%=1 � location%

d�� loc%,screen_loaded%,nax%,nay%,sight%,smell%,hearing%,touch%,taste%,path%(0),path%(1),path%(2),path%(3),path%(4),path%(5),path%(6),path%(7),run%

e�

f%re_sight%=sight%:re_smell%=smell%

gcode%=0

h/�L%=16 � R%=3 � Q%=1:smell%=2:re_smell%=2:�

i5�L%=16 � (R%<>3 � Q%<>1):smell%=22:re_smell%=22:�

j�anim_at_l%(loc%,0)=0:�

k)�anim_at_l%(loc%,6)=8 � Q%=1 � R%=3:�

l�R%=3 � location%<22 :�

m(� if food is eaten the don`t set it!

n7�anim_at_l%(loc%,6)=1 � (V% � 1)=1 �:� if bug eaten

o8�anim_at_l%(loc%,6)=3 � (V% � 8)=8 �:� if frog eaten

p8�anim_at_l%(loc%,6)=5 � (V% � 2)=2 �:� if worm eaten

q:�anim_at_l%(loc%,6)=6 � (V% � 4)=4 �:� if rabbit eaten

r:�anim_at_l%(loc%,6)=7 � (V% � 16)=16 �:� if bulb eaten

s� set food in postion

t3�anim_at_l%(loc%,1)>0:sight%=anim_at_l%(loc%,1)

u3�anim_at_l%(loc%,2)>0:smell%=anim_at_l%(loc%,2)

v5�anim_at_l%(loc%,3)>0:hearing%=anim_at_l%(loc%,3)

w3�anim_at_l%(loc%,4)>0:touch%=anim_at_l%(loc%,4)

x3�anim_at_l%(loc%,5)>0:taste%=anim_at_l%(loc%,5)

ycode%=anim_at_l%(loc%,6)

z(�pos_type%(loc%)=15 re_smell%=smell%

{�

|

}7� 1,1,688,384,   6,4,14,3,3,    8,12,1,0,0,0,0,0, 3

~7� 2,2,272,528,   6,4,14,3,3,    3,0,29,0,0,0,2,0, 3

8� 3,3,272,768,   6,4,14,3,3,    0,0,20,16,4,0,5,0, 4

�8� 4,4,640,576,   6,4,14,3,3,    13,6,0,9,7,0,0,0, 12

�8� 5,1,960,768,   6,4,14,3,3,    0,0,0,0,0,11,0,10, 7

�8� 6,5,640,384,   9,13,10,3,3,   0,0,0,0,14,0,0,15, 5

�9� 7,3,688,608,   11,21,14,3,3,  0,18,0,0,0,0,0,17, 12

�<� 8,3,1040,816,  6,4,14,3,3,    22,0,25,0,32,19,21,0, 10

�9� 9,6,1040,384,  9,13,10,3,3,   24,0,0,0,23,0,0,0, 12

�;� 10,8,624,816,  6,4,14,3,3,    0,0,0,33,39,0,26,27, 12

�7� 11,9,472,320,  19,13,14,3,3,  0,0,0,28,0,0,0,0, 7

�:� 12,2,952,400,  6,4,14,3,3,    31,0,36,0,0,0,30,0, 10

�9� 13,8,720,720,  20,21,21,3,3,  0,0,35,0,0,0,0,34, 14

�:� 14,7,720,368,  18,21,14,21,3, 38,0,40,0,0,0,37,0, 12

�

�

�9� 15,10,512,304, 6,4,14,3,3,    42,0,0,0,0,0,41,0, 14

�:� 16,11,512,400, 6,4,14,3,3,    51,0,0,0,43,0,44,0, 15

�:� 17,8,928,567,  6,4,14,3,3,    46,0,45,0,0,0,0,48, 15

�8� 18,8,928,727,  28,4,14,3,3,   0,0,0,0,47,0,0,0, 16

�9� 19,8,864,640,  20,21,21,3,3,  0,0,0,49,0,0,0,50, 15

�9� 20,12,376,320, 19,13,14,3,3,  0,0,0,0,52,0,53,0, 15

�9� 21,9,936,296,  25,13,14,3,3,  55,0,54,0,0,0,0,0, 20

�9� 22,13,936,400, 6,4,14,3,3,    60,0,58,0,0,0,0,0, 23

�2��find_screen(screen_to_write%,screen_loaded%)

�load1$=�~(picture1%)

�screen$=�(screen_loaded%)

�7� "LOAD <Badger$DIR>.screens.SC"+screen$+" "+load1$

�"�"FX 112,"+�(screen_to_write%)

�e�screen_loaded%=5 � screen_loaded%=6 � screen_loaded%=9 � screen_loaded%=12:�merge_sprite("cars")

�#�24,0;256;1278;1020;18,0,128,16

�#�24,4;260;1274;1016;18,0,131,16

�$�24,12;268;1266;1008;18,0,130,16

�#�24,54;308;1224;972;18,0,131,16

�#�24,62;316;1216;964;18,0,129,16

��24,62;316;1216;964;

�-ȑ-512,0:A%=picture1%:B%=0:�draw_picture%

��26

�	ȑ0,0

�8�0,3:� 62,316:� 1218,316:�1218,964:� 62,964:� 62,316

�4�screen_loaded%=11 � (Q%<1 � R%<3):�man_with_gun

�*FX112,1

��

�

���foodandwater

�P�pri2(64,100,0,1,128,1,"Meals needed="+�(3-R%)+"    Drinks needed="+�(1-Q%))

��

�

���man_with_gun

�3� "LOAD <Badger$DIR>.otherpics.cowgone "+load1$

�"�"FX 112,"+�(screen_to_write%)

��24,62;316;1216;964;

�3ȑ-512,0:A%=picture1%:B%=0:�draw_picture%:ȑ0,0

�gun_x%=658:gun_y%=560

�5�plot_sprite_scaled(gun_x%,gun_y%,1,1,1,1,"MAN1")

�	�26:�

�

���man_with_gun_text

��bottom_frame:�clear_text

�C�pri2(64,200,0,1,128,1,"Oh dear!  Here is a human with a gun.")

�J�pri2(64,140,0,1,128,1,"It may be safer to come back this way�later.")

�ȗ�

��26

�
�space

��bottom_frame:�clear_text

��

�

���bottom_frame

�"�24,0;256;1278;316;18,0,128,16

�"�24,4;260;1274;316;18,0,131,16

�#�24,12;268;1266;316;18,0,130,16

�#�24,54;308;1224;316;18,0,131,16

��

���clear_text

�#�24,0;0;1278;256;18,0,128,16,26

��

�

���points

�2xp%=218:�f%=1�3:� S%<f% a$="dead" � a$="lives"

�7�plot_sprite_scaled(xp%,-4,1,1,1,1,a$):xp%=xp%+64:�

�F�pri2(64,20,0,1,128,1,"Lives                       Points "+�(U%))

��

�

�

���set_up_blank

��26

�
 *FX112,2

��26

�C ș"OS_SpriteOp",&110,sprite_area1%,"scroll1",0,64,320,1216,960

�C ș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1216,960

�
 *FX112,1

�=�sprite_plot(sprite_area1%,"bad0",ax%,ay%+128,12,8,14,15)

��

�

���path_finder(dir%)

�2�path%(dir%)=51 � (Q%<1 � R%<3):path%(dir%)=57

�2�path%(dir%)=42 �animate_small(64,900,"fox",3)

�	��d{A

��dirfind%=1�path%(dir%)

�6� path_no%,screen_loaded%,new_location%,num_moves%

��moves%=1�num_moves%

�;�gox%(moves%),goy%(moves%),amount%(moves%),bad%(moves%)

�D� nothing,scroll direction,minus number,reprint badger direction

��

��

��gox%(1)<>100 �

�

�&� calculate the opposite of a path

�

�repeat%=goy%(1)

�	��d{A

��dirfind%=1�repeat%

�'� path_no%,blank%,blank%,num_moves%

��moves%=num_moves% � 1 �-1

�;�gox%(moves%),goy%(moves%),amount%(moves%),bad%(moves%)

��

��

�

��moves%=1�num_moves%

�_�amount%(moves%)=-4 goy%(moves%)=goy%(moves%)+2:�goy%(moves%)>4 goy%(moves%)=goy%(moves%)-4

�Q�amount%(moves%)>0  gox%(moves%)=gox%(moves%)*-1:goy%(moves%)=goy%(moves%)*-1

�%bad%(moves%)=(bad%(moves%)+4) � 8

��

�

��

�

�S� 1,2,2,7, 8,8,14,1, 8,0,14,2, 8,-8,6,3, 8,0,16,2, 0,3,-4,2, 8,8,10,1, 8,0,16,2

�*� 2,1,1,1, 100,1,0,0:REM opposite of 1

�H� 3,3,3,6, 0,8,38,0, 0,2,-4,0, -8,8,8,7, 0,8,16,0, 8,8,8,1, 0,8,24,0

�*� 4,2,2,1, 100,3,0,0:REM opposite of 3

�9� 5,4,4,4, -8,0,26,6, 0,1,-4,6, -8,-8,24,5, -8,0,32,6
*� 6,3,3,1, 100,5,0,0:REM opposite of 5

9� 7,1,1,4, -8,-8,32,5, 0,4,-4,4, 8,-8,38,3, 0,-8,18,4
� 8,4,4,1, 100,7,0,0
5� 9,1,5,4, 8,0,8,2, 8,-8,32,3, 0,4,-4,4, 0,-8,8,4
� 10,4,4,1, 100,9,0,0
.� 11,1,1,3, 0,-8,8,4, -8,-8,34,5, 0,-8,6,4
� 12,1,5,1, 100,11,0,0
+� 13,5,6,3, 0,8,32,0, 0,2,-4,0, 0,8,8,0
� 14,4,4,1, 100,13,0,0
	F� 15,5,99,4, -8,8,24,7, -8,0,16,6, -8,8,4,7, 0,8,8,0:REM car death

#� 16,3,7,2, 8,0,32,2, 8,-8,20,3
� 17,3,3,1, 100,16,0,0
"� 18,3,8,2, 8,8,26,1, 8,0,18,2

� 19,3,7,1, 100,18,0,0
+� 20,3,8,3, 8,0,20,2, 8,8,6,1, 8,0,70,2
� 21,3,3,1, 100,20,0,0
*� 22,6,9,3, 0,8,2,0, 0,2,-4,0, 0,8,8,0
� 23,3,8,1, 100,22,0,0
)� 24,6,99,1, 0,8,12,0:REM car death 2
,� 25,8,10,3, 8,0,6,2, 0,3,-4,2, 8,0,70,2
� 26,3,8,1, 100,25,0,0
-� 27,9,11,3, -8,8,2,7, 0,2,-4,7, -8,0,1,6
� 28,8,10,1, 100,27,0,0
K� 29,2,12,6, 8,-8,4,3, 8,0,16,2, 8,8,12,1, 8,0,9,2, 8,-8,24,3, 8,0,20,2
� 30,2,2,1, 100,29,0,0
6� 31,3,8,4, 0,8,54,0, 0,2,-4,0, 0,8,51,0, 8,8,11,1
� 32,2,12,1, 100,31,0,0
� 33,8,13,1, 8,-8,12,3
� 34,8,10,1, 100,33,0,0
D� 35,9,98,4, 8,0,10,2, 0,8,12,8, 0,2,-4,8, 0,8,16,9 :REM drowned
J� 36,7,14,6, 8,0,17,2, 0,3,-4,2, 8,8,4,1, 8,0,50,2, 8,-8,8,3, 8,0,20,2
� 37,2,12,1, 100,36,0,0
 K� 38,8,10,6, -8,0,8,6, -8,8,12,7, 0,8,46,0, 0,2,-4,0, 0,8,54,0, 8,8,8,1
!� 39,7,14,1, 100,38,0,0
"V� 40,10,15,6, 8,0,12,2, 8,-8,4,3, 8,0,30,2, 0,3,-4,2, 8,-8,4,3, 8,0,52,2:REM 14-15
#%� 41,7,14,1, 100,40,0,0:REM 15-14
$8� 42,11,16,3, 0,8,66,0, 0,2,-4,0, 0,8,10,0:REM 15-16
%&� 43,10,15,1, 100,42,0,0:REM 16-15
&c� 44,8,17,7, -8,0,16,6, -8,8,4,7, -8,0,36,6, 0,1,-4,6, 0,8,8,0, -8,8,10,7, -8,0,10,6 :REM 16-17
'&� 45,11,16,1, 100,44,0,0:REM 17-16
(%� 46,8,18,1, 0,8,20,0  :REM 17-18
)%� 47,8,17,1, 100,46,0,0:REM 18-17
*%� 48,8,19,1, -8,8,8,7  :REM 17-19
+%� 49,8,17,1, 100,48,0,0:REM 19-17
,E� 50,9,98,4, -8,8,4,7, 0,8,20,10, 0,2,-4,10, 0,8,16,9:drowned two
-U� 51,12,20,6, 0,8,12,0, 8,8,4,1, 0,8,34,0, -8,8,4,7, 0,2,-4,7, -8,0,1,6:REM 16-20
.&� 52,11,16,1, 100,51,0,0:REM 20-16
/N� 53,9,21,5, -8,0,30,6, -8,-8,3,5, -8,0,6,6, 0,1,-4,6, -8,0,18,6:REM 20-21
0&� 54,12,20,1, 100,53,0,0:REM 21-20
1K� 55,13,96,5, 0,8,10,0, 0,8,15,9, 0,8,2,0, 0,2,-4,0, 0,8,10,0:REM 21-22
2/� 56,9,21,1, 100,55,0,0:REM 22-21 void path
3K� 57,8,97,6, 0,8,36,0 ,0,8,15,0, 0,8,1,0, -2,0,2,0, -4,0,1,0, 0,0,50,11
4h� 58,14,23,8, 8,8,8,1, 8,0,10,2, 0,3,-4,2, 8,0,20,2, 8,-8,8,3, 8,0,12,2, 8,8,12,1, 0,8,4,0:REM 22-23
5
6��show_senses(action_go%)
7
se%=30
86�find_sight(sight%,26,646,530,312,"You can see..")
9�code%=9:�spider_anim
:�code%=2:�rabbit_ears
;�pause(se%)
<5�find_sight(smell%,578,646,322,238,"Can smell..")
=�pause(se%)
>6�find_sight(hearing%,928,646,322,238,"Can hear..")
?�pause(se%)
@3�find_sight(touch%,24,276,322,238,"Can feel..")
A�pause(se%)
B5�find_sight(taste%,358,276,322,238,"Can taste..")
C�action_go%=0 �
D
dig%=0
E�pause(se%)
F��pos_type%(L%)=5:�merge_sprite("hid_bad"):�find_sight(26,698,276,558,238,"Action?"):�24,706;284;1248;336;18,0,136,16,26:�delete_hid_bad:�
GP�find_sight(5,698,276,558,238,"Action?"):�24,706;284;1248;336;18,0,136,16,26
H�
I
J��senses
K
pat%=0
L-�d_sprite("scroll1"):�d_sprite("scroll2")
M�merge_sprite("senses1")
N�clear_text:�bottom_frame
O�26
P�show_senses(1)
Q�initialise_buttons(2)
R
S �check_buttons(1,total_but%)
T�
U �initialise_buttons(2)
V$  �:�check_buttons(1,total_but%)
W  �selected%>0
X
  kill%=0
YQ  �pos_type%(L%)=5 � (selected%<>4 � selected%<>1):�stuck_in_bush:selected%=0
Z0  �selected%=2 � code%=2:selected%=6:kill%=1
[0  �selected%=2 � code%=3:selected%=6:kill%=1
\0  �selected%=5 � code%=2:selected%=6:kill%=1
]0  �selected%=5 � code%=3:selected%=6:kill%=1
^9  �selected%=2 � code%=9:selected%=5:� spider on wall
_+  �selected%=8:�search_anim:selected%=0
`(  �selected%=2:�eat_anim:selected%=0
a(  �selected%=6:�run_anim:selected%=0
b(  �selected%=7:�dig_anim:selected%=0
c*  �selected%=3:�drink_anim:selected%=0
d*  �selected%=4:�sleep_anim:selected%=0
e+  �selected%=5:�attack_anim:selected%=0
f � selected%=1
g�delete_senses1
h�clear_text:�bottom_frame
i�
j
k��delete_senses1
l'�d_sprite("cow"):�d_sprite("bugl1")
m@�d_sprite("poison"):�d_sprite("wheel1"):�d_sprite("exhaust")
n�d_sprite("lfrog_1")
o,�d_sprite("rabbit"):�d_sprite("rabears")
p-�d_sprite("gal_1"):�d_sprite("bigspider")
q��d_sprite("man"):�d_sprite("worm2"):�d_sprite("bulb"):�d_sprite("fox"):�d_sprite("chicken"):�d_sprite("dog"):�d_sprite("owl_1")
r�
s
t��delete_hid_bad
u�d_sprite("hide1")
v�
w
x��delete_rabeat
y=�d_sprite("hole1"):�d_sprite("hole2"):�d_sprite("rabeat")
z�
{
|��delete_cars
}9�d_sprite("car1"):�d_sprite("car2"):�d_sprite("car3")
~�

���delete_drink
�/�d_sprite("badger11"):�d_sprite("badger12")
�-�d_sprite("water"):�d_sprite("wateredge")
��
�
���delete_search
�C�d_sprite("badger8"):�d_sprite("badger10"):�d_sprite("badger9")
��
�
���delete_death
�,�d_sprite("death"):�d_sprite("rivdeath")
��
�
���delete_kill
�-�d_sprite("froggy1"):�d_sprite("froggy2")
�B�d_sprite("rabbit1"):�d_sprite("rabbit2"):�d_sprite("rabbit3")
��
�
���delete_dig
�9�d_sprite("dig1"):�d_sprite("dig2"):�d_sprite("dig3")
�9�d_sprite("dig4"):�d_sprite("dig5"):�d_sprite("dig6")
�9�d_sprite("dig7"):�d_sprite("dig8"):�d_sprite("dig9")
��d_sprite("dig11")
��
�
���delete_start
��d_sprite("start_bad")
��
�
���stuck_in_bush
�R�clear_text:�message("You cannot do that here,  the bush","is far too thick.")
��
�
���spider_anim
�/�little_anim(380,928,0,-4,30,"spider1",0,1)
��d_sprite("scroll1")
��
�
���rabbit_ears
�/�little_anim(360,840,-4,0,30,"rabears",0,1)
��d_sprite("scroll1")
��
�
�H��little_anim(samx%,samy%,saminx%,saminy%,samcount%,type$,fol%,end%)
�7ș"OS_SpriteOp",&118,sprite_area1%,type$ � r0,r1,B%
�fcol1%=5:fcol2%=5:fcol3%=5
��type$="rabears":fcol1%=2
�
�width%=(!(B%+16)+1)*16
�height%=(!(B%+20)+1)*4
�a�fol%=0:ș"OS_SpriteOp",&110,sprite_area1%,"scroll1",0,samx%,samy%,samx%+width%,samy%+height%
�6�plot_sprite_scaled(samx%,samy%,1,1,1,1,"scroll1")
��f%=1� samcount%
�P�sprite_plot(sprite_area1%,type$,samx%,samy%+height%,4,fcol1%,fcol2%,fcol3%)
��pause(arm%*2)
�6�plot_sprite_scaled(samx%,samy%,1,1,1,1,"scroll1")
�+samx%=samx%+saminx%:samy%=samy%+saminy%
�Yș"OS_SpriteOp",&110,sprite_area1%,"scroll1",0,samx%,samy%,samx%+width%,samy%+height%
�6�type$="spider1":�0,3:�4,samx%+20,samy%+36:�1,0,16
��
�I�end%=1:�sprite_plot(sprite_area1%,type$,samx%,samy%+height%,4,5,5,5)
��
�
���attack_anim
�mess%=0
� �code%=9 �eat_spider:mess%=1
�p�L%=16 � R%=3 � Q%=1 �clear_text:�message("You cannot attack a cow.","You would get squashed flat!"):mess%=1
�t�L%=16 � (R%<3 � Q%<1) �clear_text:�message("You cannot attack a man with a gun!"," You might be shot."):mess%=1
�b�L%=6 � L%=9:�clear_text:�message("You cannot attack a car.  It will always win."," "):mess%=1
�V�code%=6 � mess%=0 �clear_text:�message("You cannot see this rabbit."," "):mess%=1
�I�mess%=0:�clear_text:�message("There is nothing here to attack."," ")
��
�
���sleep_anim
�mess%=0
ˡ� IFpos_type%(L%)=5:PROCmerge_sprite("hid_bad"):PROCfind_sight(27,698,276,558,238,"Action?"):VDU24,706;284;1248;336;18,0,136,16,26:PROCdelete_hid_bad:mess%=1
�?�mess%=0:�clear_text:�message("You are not tired yet."," ")
��
�
���dig_anim
д�code%=6:�set_action:�0,11:�32,284:�1248,284:�merge_sprite("rabhole"):�clear_text:�pri2(64,180,0,1,128,1,"You dig for the rabbit."):�plot_sprite_scaled(432,286,1,1,1,1,"HOLE1")
ъ�dig%=1 � (code%=1 � code%=5 � code%=7):�clear_text:�pri2(64,140,0,1,128,1,"There is no need to dig any deeper."):�space:�clear_text:�
Ҡ�dig%=1:�clear_text:�pri2(64,180,0,1,128,1,"There is no food here and it"):�pri2(64,120,0,1,128,1,"is not a good place to dig a sett."):�space:�clear_text:�
��merge_sprite("act_dig")
��clear_text
�*�pri2(64,180,0,1,128,1,"You dig.....")
��26
� �ff%=1�10
�  �st_pause
�1  �plot_sprite_scaled(706,340,1,1,1,1,"dig6")
�6�ff%>6 �plot_sprite_scaled(706,340,1,1,1,1,"dig7")
�  �en_pause(20)
�  �st_pause
�1  �plot_sprite_scaled(706,340,1,1,1,1,"dig1")
�6�ff%>6 �plot_sprite_scaled(706,340,1,1,1,1,"dig5")
�  �en_pause(20)
��
� �ff%=1�10
�  �st_pause
�2  �plot_sprite_scaled(706,368,1,1,1,1,"dig11")
�6�ff%=3 �plot_sprite_scaled(706,340,1,1,1,1,"dig8")
�  �en_pause(20)
�  �st_pause
�1  �plot_sprite_scaled(706,368,1,1,1,1,"dig3")
�6�ff%=5 �plot_sprite_scaled(706,340,1,1,1,1,"dig9")
�  �en_pause(20)
�  �st_pause
�1  �plot_sprite_scaled(706,368,1,1,1,1,"dig2")
�7�ff%=8 �plot_sprite_scaled(706,340,1,1,1,1,"dig10")
�  �en_pause(20)
��
�0�plot_sprite_scaled(706,368,1,1,1,1,"dig11")
�dig%=1:pat%=1
��delete_dig
�mess%=0
��clear_text
��code%=1:�find_doe:�
�*�code%=6:�kill_rabbit:� never returns!
�?�code%=5:sight%=re_sight%:smell%=23:�show_senses(0):mess%=1
�?�code%=7:sight%=re_sight%:smell%=24:�show_senses(0):mess%=1
���mess%=0:sight%=re_sight%:smell%=re_smell%:hearing%=14:touch%=3:taste%=3:code%=0:�message("You find nothing of interest."," "):�show_senses(1)
��
�
���search_anim
��code%=9:�look_at_spider:�
��merge_sprite("act_search")
��clear_text
�.�pri2(64,180,0,1,128,1,"You search......")


�26

�fff%=1�3

 ��TWC

 �ff%=1�6

  �bd%
:  �plot_sprite_scaled(706,340,1,1,1,1,"badger"+�(bd%))
B  �dig%=1 � bd%<>5 �plot_sprite_scaled(706,340,1,1,1,1,"dig9")
B  �dig%=1 � bd%=5 �plot_sprite_scaled(706,340,1,1,1,1,"dig10")
	  �pause(30)

 �
�

pat%=1

�delete_search
mess%=0
�clear_text
�code%=1:�find_doe:�
"�code%=5 � dig%=1:�find_worm:�
"�code%=7 � dig%=1:�find_bulb:�
O�code%=6 �message("You can hear noises from under the ground."," "):mess%=1
��mess%=0:�message("You find nothing of interest."," "):sight%=re_sight%:smell%=re_smell%:hearing%=14:touch%=3:taste%=3:code%=0:�show_senses(1)
�

� 6,8,9,8,6,5:REM search

��find_worm
:�message("You have found some worms."," "):�clear_text
�

��find_bulb
:�message("You have found some bulbs."," "):�clear_text
�
 
!��find_doe
"�mess%=1:sight%=6:smell%=7:�message("You turn the cowpat over."," "):B%=screen_two%:C%=screen_one%:�wiz:�bottom_frame:�show_senses(1)
#�
$
%��eat_anim
&�26
'
(]�pos_type%(L%)=3 � pos_type%(L%)=6:�clear_text:�message("There is nothing to eat."," "):�
)H�R%>2:�clear_text:�message("You do not need any more to eat."," "):�
*�merge_sprite("act_search")
+�clear_text
,)�pri2(64,180,0,1,128,1,"You eat....")
-
�fff%=1�3
.
 ��DAC
/
 �ff%=1�6
0
  �bd%
1:  �plot_sprite_scaled(706,340,1,1,1,1,"badger"+�(bd%))
2B  �dig%=1 � bd%<>5 �plot_sprite_scaled(706,340,1,1,1,1,"dig9")
3B  �dig%=1 � bd%=5 �plot_sprite_scaled(706,340,1,1,1,1,"dig10")
4  �pause(30)
5 �
6�
7�delete_search
8mess%=0
9�clear_text
: �code%=1 � pat%=1:�eat_doe:�
;Q�code%=1 � pat%=0:�message("You taste the cow pat.","Yuk!"):�show_senses(1):�
<!�code%=5 � dig%=1:�eat_worm:�
=!�code%=7 � dig%=1:�eat_bulb:�
>��mess%=0:�message("You taste the grass."," "):sight%=re_sight%:smell%=re_smell%:hearing%=14:touch%=3:taste%=4:�show_senses(1)
?�
@
A� 6,8,10,8,6,5:REM search
B
C��look_at_spider
Dload1$=�~(picture1%)
E6� "LOAD <Badger$DIR>.otherpics.spiderwall "+load1$
F�26
G*ȑ0,0:A%=picture1%:B%=0:�draw_picture%
H�pre_eat_spider(1000)
IG�clear_text:�message("You search and find a","large juicy spider.")
J&B%=screen_two%:C%=screen_one%:�wiz
K�bottom_frame
LLsight%=re_sight%:smell%=31:hearing%=14:touch%=3:taste%=3:�show_senses(1)
M�
N
O
P��eat_spider
Qload1$=�~(picture1%)
R6� "LOAD <Badger$DIR>.otherpics.spiderwall "+load1$
S�26
T*ȑ0,0:A%=picture1%:B%=0:�draw_picture%
U�pre_eat_spider(1120)
V�pause(20)
W�go_eat_spider
X
Y3�clear_text:�message("You eat the spider."," ")
Z&B%=screen_two%:C%=screen_one%:�wiz
[�bottom_frame
\\sight%=re_sight%:smell%=re_smell%:hearing%=14:touch%=3:taste%=31:code%=0:�show_senses(1)
]'�add_points(10,"for finding food.")
^taste%=3
_�show_senses(1)
`�cancel_food(32)
a�rp
b�
c
d��pre_eat_spider(am%)
e/�little_anim(960,564,0,-4,36,"spider1",0,1)
f�24,706;282;1248;612;
gX�f%=1240 � am% �-8:�pause(arm%*3):�plot_sprite_scaled(f%,284,1,1,1,1,"spiderlick"):�
h�
i
j��go_eat_spider
kY�f%=1120 � 1000 �-8:�pause(arm%*2):�plot_sprite_scaled(f%,284,1,1,1,1,"spiderlick"):�
l6 �plot_sprite_scaled(944,284,1,1,1,1,"spiderlick")
m5�plot_sprite_scaled(940,284,1,1,1,1,"eatspider1")
n�pause(10)
o5�plot_sprite_scaled(984,284,1,1,1,1,"spiderlick")
p5�plot_sprite_scaled(940,284,1,1,1,1,"eatspider2")
qH�f%=984 � 1000 �4:�plot_sprite_scaled(f%,284,1,1,1,1,"spiderlick"):�
r5�plot_sprite_scaled(1000,352,1,1,1,1,"CLOSELICK")
s
t�
u
v��run_anim
w�set_action
x�clear_text
y3�kill%=0:�pri2(64,180,0,1,128,1,"You run.....")
za�code%=2 � kill%=1:�merge_sprite("act_kill"):�pri2(64,180,0,1,128,1,"You attack the rabbit.")
{_�code%=3 � kill%=1:�merge_sprite("act_kill"):�pri2(64,180,0,1,128,1,"You attack the frog.")
|8�24,30;278;1248;719;:xpos%=706:run_length%=16:pl%=10
}`�code%=2 � kill%=1:rabbit%=1:rab_x%=512:run_length%=9:pl%=10:r%(1)=1:r%(2)=2:r%(3)=4:r%(4)=3
~��code%=3 � kill%=1:frog%=2:frog_x%=256:frog_y%=360:run_length%=12:pl%=10:j_count%=0:�plot_sprite_scaled(1180,288,1,1,1,1,"wateredge")
�fff%=1�run_length%
�
 ��tTC
�
 �ff%=1�6
�  �st_pause
�
  �bd%
�   �code%=2 � kill%=1:�rabbit
�P  �code%=3 � kill%=1:�frog:�plot_sprite_scaled(1180,288,1,1,1,1,"wateredge")
�<  �plot_sprite_scaled(xpos%,340,1,1,1,1,"badger"+�(bd%))
�k  �(code%=2 � code%=3) � xpos%<120 � (bd%=2 � bd%=7) �plot_sprite_scaled(xpos%,340,1,1,1,1,"openmouth")
�  �en_pause(pl%)
�  xpos%=xpos%-12
� �
��
��26
�mess%=0
��clear_text
�/�code%=2 � kill%=1:�run_rabbit:�delete_kill
�-�code%=3 � kill%=1:�eat_frog:�delete_kill
�4�mess%=0:�message("You run away."," "):L%=run%:�
��
�
�� 2,6,5,7,5,6:REM run
�
���drink_anim
�g�pos_type%(L%)<>3 � pos_type%(L%)<>15:�clear_text:�message("There is nothing to drink here."," "):�
�J�Q%>0:�clear_text:�message("You do not need any more to drink."," "):�
��merge_sprite("act_drink")
��set_action
�4�plot_sprite_scaled(300,288,1,1,1,1,"wateredge")
��f%=434� 718 �12
�/�plot_sprite_scaled(f%,288,1,1,1,1,"water")
��
�2ș"OS_SpriteOp",&12F,sprite_area1%,"wateredge"
�4�plot_sprite_scaled(720,288,1,1,1,1,"wateredge")
�2ș"OS_SpriteOp",&12F,sprite_area1%,"wateredge"
�3�plot_sprite_scaled(714,336,1,1,1,1,"badger11")
��clear_text
�,�pri2(64,180,0,1,128,1,"You drink.....")
� �ff%=1�15
�5  �plot_sprite_scaled(718,336,1,1,1,1,"badger11")
�  �pause(20)
�5  �plot_sprite_scaled(722,336,1,1,1,1,"badger12")
�  �pause(20)
� �
��delete_drink
�mess%=0
��clear_text
��pos_type%(L%)=15 �poisoned
���mess%=0:sight%=re_sight%:smell%=re_smell%:hearing%=14:touch%=3:taste%=21:code%=0:�show_senses(1):�message("You drink the water."," "):�add_points(10,"for finding a drink.")
�Q%=Q%+1
�K�clear_text:�message("You do not need any more water for a while."," ")
��
�
���poisoned
��merge_sprite("death")
�*FX112,2
�&�24,64;320;1216;960;18,0,128,16,26
�0�plot_sprite_scaled(670,400,1,1,1,1,"death")
�=�pri2(128,800,0,1,128,1,"You have drunk poisoned water.")
�4�pri2(128,740,0,1,128,1,"You have lost a life.")
�@�pri2(128,680,0,1,128,1,"Go back and continue your journey")
�.�pri2(128,620,0,1,128,1,"more carefully.")
�*FX112,1
��pause(100)
�+�explode_merge(screen_one%,screen_two%)
��bottom_frame
��26
�
�space
��delete_death
��S%=1:�end_it_all
�S%=S%-1
�L%=1
��
�
���kill_rabbit
�<�plot_sprite_scaled(700,286,1,1,1,1,"HOLE2"):�pause(100)
˚mess%=1:taste%=15:smell%=15:hearing%=14:B%=screen_two%:C%=screen_one%:�wiz:�bottom_frame:�show_senses(1):�plot_sprite_scaled(706,340,1,1,1,1,"rabeat")
̌�message("You eat the rabbit.","It tastes delicious!"):�add_points(10,"for finding food."):taste%=3:smell%=4:hearing%=14:�show_senses(1)
�"�delete_rabeat:�cancel_food(4)
��rp
��
�
���rabbit
�rab_x%=rab_x%-16
�*rabbit%=rabbit%+1:�rabbit%=5 rabbit%=1
�C�plot_sprite_scaled(rab_x%,356,1,1,1,1,"rabbit"+�(r%(rabbit%)))
��
�
�
��frog
�frog_x%=frog_x%-8
�j_count%=j_count%+1
�,�j_count%=5 � frog%=1:frog%=2:j_count%=0
�,�j_count%=2 � frog%=2:frog%=1:j_count%=0
��frog%=2 frog_x%=frog_x%+8
�B�plot_sprite_scaled(frog_x%,frog_y%,1,1,1,1,"froggy"+�(frog%))
��
�
���cancel_food(food_value%)
�i�f%=1�6:anim_at_l%(L%,f%)=0:�:sight%=re_sight%:smell%=re_smell%:hearing%=14:touch%=3:taste%=3:code%=0
�V%=(V% � food_value%)
��
�
���eat_worm
��mess%=1:taste%=23:smell%=23:hearing%=3:�message("You eat the worms.","They taste delicious!"):B%=screen_two%:C%=screen_one%:�wiz:�bottom_frame:�show_senses(1):�add_points(10,"for finding food.")
�Ataste%=3:smell%=4:hearing%=14:�show_senses(1):�cancel_food(2)
��rp
��
�
���eat_bulb
��mess%=1:taste%=24:smell%=24:hearing%=3:�message("You eat the bulbs.","They taste delicious!"):B%=screen_two%:C%=screen_one%:�wiz:�bottom_frame:�show_senses(1):�add_points(10,"for finding food.")
�Btaste%=3:smell%=4:hearing%=14:�show_senses(1):�cancel_food(16)
��rp
��
�
�
��eat_doe
��mess%=1:taste%=7:smell%=3:hearing%=3:�message("You eat the Doe Beetles.","They taste delicious!"):B%=screen_two%:C%=screen_one%:�wiz:�bottom_frame:�show_senses(1):�add_points(10,"for finding food.")
�Ataste%=3:smell%=4:hearing%=14:�show_senses(1):�cancel_food(1)
��rp
��
�
���eat_rabbit
��mess%=1:sight%=6:smell%=3:hearing%=3:taste%=15:�message("You eat the rabbit.","It tastes delicious!"):B%=screen_two%:C%=screen_one%:�wiz:�bottom_frame:�show_senses(1):�add_points(10,"for finding food.")
�Ataste%=3:smell%=4:hearing%=14:�show_senses(1):�cancel_food(4)
��rp
��
�
���eat_frog
�q�R%>2:�clear_text:�message("You could have caught the frog but you","do not need any more to eat."):mess%=1:�
��mess%=1:smell%=17:hearing%=14:taste%=17:touch%=3:�message("You eat the frog.","It tastes delicious!"):B%=screen_two%:C%=screen_one%:�wiz:�bottom_frame:�show_senses(1):�add_points(10,"for finding food.")
Ltaste%=3:smell%=21:hearing%=21:touch%=21:�show_senses(1):�cancel_food(8)

�rp
�

��run_rabbit
�mess%=1:sight%=re_sight%:smell%=re_smell%:hearing%=14:taste%=3:�message("The rabbit runs away.","Rabbits are too fast above ground!"):code%=0:B%=screen_two%:C%=screen_one%:�wiz:�bottom_frame:�show_senses(1)
�cancel_food(0)
�

	��rp

�clear_text
\�R%<2:�message("You will need to find more food before","you travel north of the road.")
<�R%>1:�message("You need no more food for a while."," ")

R%=R%+1
�

��message(a$,b$)
@�pri2(64,160,0,1,128,1,a$):�pri2(64,100,0,1,128,1,b$):�space
�clear_text
�

��add_points(add%,message$)
�26:*fx112,1
p�pri2(64,160,0,1,128,1,"Well done,  you gain..."):�pri2(64,100,0,1,128,1,�(add%)+" points "+message$):�space
�clear_text
U%=U%+add%
�

��set_action
�26
�0,3
�f%=0 � 8 �2
 U�20+f%,278+f%:�5,1258-f%,278+f%:�5,1258-f%,632-f%:�5,20+f%,632-f%:�5,20+f%,278+f%
!�
"�24,30;278;1258;719;
#�f%=698 � 0 �-16
$2�plot_sprite_scaled(f%+4,288,1,1,1,1,"grass2")
%�
&%�24,30;396;706;620;18,0,132,16,26
'&�24,30;570;1248;624;18,0,132,16,26
(�
)
*1��find_sight(floop%,fsx%,fsy%,fsl%,tl%,text$)
+	��TwD
,� f%=1 � floop%
-4�num%,file$,sp1$,spx1%,spy1%,scol%,t2$,tx%,ty%:�
.%�senses_box(fsx%,fsy%,fsl%,scol%)
/��file$<>""load$=�~(picture1%):� "LOAD <Badger$DIR>.otherpics."+file$+" "+load$:ȑfsx%,fsy%-128:A%=picture1%:B%=0:�draw_picture%:ȑ0,0
0E�sp1$<>"":�plot_sprite_scaled(fsx%+spx1%,fsy%+spy1%,1,1,1,1,sp1$)
13�t2$<>"":�pri2(tx%+fsx%,ty%+fsy%,0,1,128,2,t2$)
2�26
3(�word_box(fsx%-8,fsy%+300,tl%,text$)
4	ȑ0,0
5�
6
7�1,cowpat,"",0,0,129,"",0,0
8�2,"",cow,48,90,140,"",0,0
9%�3,"","",0,0,128,"Nothing",80,160
:(�4,"grassy","",0,0,129,"Grass",96,20
;#�5,"","badger5",8,64,132,"",0,0
< �6,"grass","",0,0,129,"",0,0
=!�7,"",bugl1,96,120,141,"",0,0
> �8,"",car3,96,160,141,"",0,0
?#�9,"TRACKPIC","",0,0,129,"",0,0
@$�10,"","WHEEL1",48,30,131,"",0,0
A$�11,"LAKESIDE","",0,0,129,"",0,0
B$�12,"","POISON",48,40,131,"",0,0
C%�13,"","EXHAUST",48,30,131,"",0,0
D)�14,"","WIND2",48,12,131,"Wind",96,20
E#�15,"","Rabbit",8,48,140,"",0,0
F!�16,"grass","",0,0,129,"",0,0
G%�17,"","lfrog_1",20,48,132,"",0,0
H$�18,"RIVERMID","",0,0,129,"",0,0
I#�19,"WALLPIC","",0,0,129,"",0,0
J%�20,"RIVERSIDE","",0,0,129,"",0,0
K(�21,"WATER","",0,0,129,"Water",90,20
L!�22,"","MAN",64,16,139,"",0,0
M#�23,"","WORM2",64,32,139,"",0,0
N"�24,"","BULB",64,16,139,"",0,0
O"�25,"TUNPIC","",0,0,129,"",0,0
P"�26,"","HIDE1",8,64,132,"",0,0
Q"�27,"","HIDE2",8,64,132,"",0,0
R#�28,"BRAMBLE","",0,0,129,"",0,0
S!�29,"HOLE1","",0,0,129,"",0,0
T �30,"","fox",38,8,140,"",0,0
U'�31,"","BIGSPIDER",72,64,140,"",0,0
V
W
X��word_box(x%,y%,l%,a$)
Yp�24,x%;y%;x%+l%;y%+56;18,0,129,16,24,x%+4;y%+4;x%+l%-4;y%+52;18,0,128,16,26:�pri2(x%+8,y%+16,0,1,128,2,a$):�
Z
["��senses_box(sx%,sy%,l%,scol%)
\[�24,sx%;sy%;sx%+l%;sy%+344;18,0,131,16,24,sx%+8;sy%+8;sx%+l%-8;sy%+336;18,0,scol%,16,26
]�
^
_��start_car
`A=�(100)
a�A>2 � nocar%=1 �
b�A=1 � car1%>0 �
c�A=2 � car2%>0 �
d:�A=1 �:car1%=�(3):�car1%<>car2%:car1x%=-300:car1y%=660
e:�A=2 �:car2%=�(3):�car2%<>car1%:car2x%=1200:car2y%=512
f:�A=2 ș"OS_SpriteOp",&12F,sprite_area1%,"car"+�(car2%)
g�
h
i��move_car
j(�go_farm%=1 � manx%>300 �point_man:�
k
l!�car1%=0 � car2%=0 �start_car
m"�car1x%>1220 � car1%>0:car1%=0
nT�car2x%<-300 � car2%>0:ș"OS_SpriteOp",&12F,sprite_area1%,"car"+�(car2%):car2%=0
o�ct%+2>�:�:�ct%=�
p�24,64;320;1216;960;
q_�car1%>0 car1x%=car1x%+12:ș"OS_SpriteOp",&122,sprite_area1%,"car"+�(car1%),car1x%,car1y%,0
r_�car2%>0 car2x%=car2x%-12:ș"OS_SpriteOp",&122,sprite_area1%,"car"+�(car2%),car2x%,car2y%,0
s�
t
u��information
v�bottom_frame:�clear_text
w
mes%=0
x��Q%=1 � R%=3 �pri2(64,160,0,1,128,1,"You have had enough food and water.  Now find"):�pri2(64,100,0,1,128,1,"a safe way to the other side of the road."):mes%=1
yy_print%=200
zt� R%<3 � R%>0 �  mes%=0 �pri2(64,y_print%,0,1,128,1,"You must find something more to eat."):y_print%=y_print%-60
{g� R%=0 � mes%=0 �pri2(64,y_print%,0,1,128,1,"You must find something to eat."):y_print%=y_print%-60
|i� Q%=0 � mes%=0 �pri2(64,y_print%,0,1,128,1,"You must find something to drink."):y_print%=y_print%-60
}G� mes%=0 �pri2(64,y_print%,0,1,128,1,"Then continue your journey.")
~
�space
�clear_text
�r�24,872;4;1262;300;18,0,130,16,24,876;8;1258;296;18,0,129,16,26:�plot_sprite_scaled(1002,92,1,1,1,1,"compass")
��
�
�
��compass
�r�24,872;4;1262;300;18,0,130,16,24,876;8;1258;296;18,0,129,16,26:�plot_sprite_scaled(1002,92,1,1,1,1,"compass")
��
�
���end_it_all
�2�18,0,131,16,24,64;108;1216;932;18,0,128,16,26
��merge_sprite("death")
�<�pri2(128,800,0,1,128,1,"You have lost all your lives.")
�D�pri2(128,740,0,1,128,1,"You must start the adventure from the")
�.�pri2(128,680,0,1,128,1,"very beginning.")
�0�plot_sprite_scaled(340,300,1,1,1,1,"death")
��space_two
�M%=0:�"PRELINK"
�
�
�
���scroll
�# �find_screen(2,screen_loaded%)
�*FX112,2
� �26
�C ș"OS_SpriteOp",&110,sprite_area1%,"scroll1",0,64,320,1214,960
�*FX112,1
�!�goy%(moves%)=1 �scroll_right
� �goy%(moves%)=2 �scroll_down
� �goy%(moves%)=3 �scroll_left
��goy%(moves%)=4 �scroll_up
�*FX112,2
� �26
�C ș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1216,960
�*FX112,1
� �26
�� VDU24,62;316;1216;964;
�8�0,3:� 62,316:� 1218,316:�1218,964:� 62,964:� 62,316
�� VDU26
��
�
���scroll_up
��24,64;320;1216;960;
�!�sf%=(320-632) � (320-320) �8
�'�:� time%+time_control%/3<�:time%=�
�ȓ 64,320,1152,640 � 64,328
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,sf%,0
��
�
�ay%=640
�
�*FX112,2
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,640,0
�7ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,0,0
�Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1216,960
�*FX112,1
�
��f%=1�16
�%�:� time%+time_control%<�:time%=�
�*FX112,2
�: ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,320,0
� ay%=ay%-8
� �L%=11 � L%=20 ax%=ax%+8
�
�M �sprite_plot(sprite_area1%,"bad"+�(bad%(moves%)),ax%,ay%+128,12,8,14,15)
�*FX112,1
�' B%=screen_two%:C%=screen_one%:�wiz
��
�
�*FX112,2
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
�Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1216,768
�*FX112,1
�
��sf%=(320-312) � (320) �8
�'�:� time%+time_control%/3<�:time%=�
�ȓ 64,320,1152,640 � 64,328
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,sf%,0
��
�
�ay%=832
�
�*FX112,2
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
�Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1024,960
�*FX112,1
�
��
�
�
���scroll_down
��24,64;320;1216;960;
��sf%=(952) � (320+256) �-8
�'�:� time%+time_control%/3<�:time%=�
�ȓ 64,320,1152,640 � 64,312
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,sf%,0
��
�
�ay%=448
�
�*FX112,2
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,576,0
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,-64,0
�Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1216,960
�*FX112,1
�
��f%=1�16
�%�:� time%+time_control%<�:time%=�
�*FX112,2
�: ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,320,0
� ay%=ay%+8
�7 �L%=10 � L%=16 ax%=ax%-8 :� was code%=2 OR L%=16??
�M �sprite_plot(sprite_area1%,"bad"+�(bad%(moves%)),ax%,ay%+128,12,8,14,15)
�*FX112,1
�' B%=screen_two%:C%=screen_one%:�wiz
��
�
�*FX112,2
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
�Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,448,1216,960
�*FX112,1
�
�&�sf%=(320+256+128) � (320+128) �-8
�'�:� time%+time_control%/3<�:time%=�
�ȓ 64,320,1152,640 � 64,312
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,sf%,0
��
�
�ay%=320
�
*FX112,2

9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1024,960
*FX112,1

�


��scroll_right
	�24,64;320;1216;960;

"�sf%=(64-1144) � (640-1152) �8
'�:� time%+time_control%/3<�:time%=�
ȓ 64,320,1152,640 � 72,320

:ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",sf%,320,0
�
ax%=640

*FX112,2
?ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",640-1152,320,0
:ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",640,320,0
Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1216,960
*FX112,1

�f%=1�16
%�:� time%+time_control%<�:time%=�
*FX112,2
: ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,320,0
 ax%=ax%-8
M �sprite_plot(sprite_area1%,"bad"+�(bad%(moves%)),ax%,ay%+128,12,8,14,15)
*FX112,1
' B%=screen_two%:C%=screen_one%:�wiz
�
 
!*FX112,2
"9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
#Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1024,960
$
%*FX112,1
&
'�sf%=64-568 � 64 �8
('�:� time%+time_control%/3<�:time%=�
)ȓ 64,320,1152,640 � 72,320
*:ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",sf%,320,0
+�
,ax%=1088
-
.*FX112,2
/9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
0Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1216,960
1*FX112,1
2
3�
4
5��scroll_left
6�24,64;320;1216;960;
7�sf%=1208 � 640 �-8
8'�:� time%+time_control%/3<�:time%=�
9ȓ 64,320,1152,640 � 56,320
::ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",sf%,320,0
;�
<ax%=512
=
>*FX112,2
??ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",640-1152,320,0
@:ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",640,320,0
ABș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1216,960
B
C*FX112,1
D
E�f%=1�16
F%�:� time%+time_control%<�:time%=�
G*FX112,2
H: ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",64,320,0
I ax%=ax%+8
JM �sprite_plot(sprite_area1%,"bad"+�(bad%(moves%)),ax%,ay%+128,12,8,14,15)
K*FX112,1
L' B%=screen_two%:C%=screen_one%:�wiz
M�
N
O*FX112,2
P9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
QCș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,192,320,1216,960
R
S*FX112,1
T
U�sf%=768 � 192 �-8
V'�:� time%+time_control%/3<�:time%=�
Wȓ 64,320,1152,640 � 56,320
X:ș"OS_SpriteOp",&122,sprite_area1%,"scroll2",sf%,320,0
Y�
Z
ax%=64
[
\*FX112,2
]9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
^Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1216,960
_*FX112,1
`
a�
b
c
d
e��assemble_draw
f
 �F=0�3�3
g P%=ass_code%
h[
i
 OPT 0
j
k.wiz
l
MOV R3,#0
m.save_screen_loop
nLDR R5,[R1,R3]
oSTR R5,[R2,R3]
pADD R3,R3,#4
qCMP R3,#&E000
rBNE save_screen_loop
sMOV R15,R14
t
u]
v�
w�
x
y��space
z  simon%=0
{  �initialise_buttons(0)
|1  �:�check_buttons(1,total_but%):�selected%>0
}&  �24,900;4;1200;74;18,0,128,16,26
~  ȗ � 700,60
�
�
���st_pause
�time%=�
��
�
���en_pause(t%)
��:�time%+t%<�:�
�
���pause(t%)
�time%=�
��:�time%+t%<�:�
�
�;��sprite_plot(area%,name$,sx%,sy%,mask%,bk1%,bk2%,bk3%)
�	h%=H%
�A%=�find_screen(148)
�/ș"OS_SpriteOp",&118,area%,name$ � r0,r1,B%
�
C%=sx% /4
�D%=(1028-(sy%))/4
�$E%=mask%:F%=bk1%:G%=bk2%:H%=bk3%
��simons_sprite%
�	H%=h%
��
�
�B��sprite_plot_sprite(area%,name$,sx%,sy%,mask%,bk1%,bk2%,bk3%)
�	h%=H%
�A%=blank_address%
�/ș"OS_SpriteOp",&118,area%,name$ � r0,r1,B%
�
C%=sx% /4
�D%=(1028-(sy%))/4
�$E%=mask%:F%=bk1%:G%=bk2%:H%=bk3%
��simons_sprite%
�	H%=h%
��
�
���load_sprite(at%,name$)
�Dș"OS_SpriteOp",&10A,sprite_area1%,"<Badger$DIR>.sprites."+name$
��
�
���merge_sprite(name$)
�Dș"OS_SpriteOp",&10B,sprite_area1%,"<Badger$DIR>.sprites."+name$
��
�
���d_sprite(name$)
�,ș"OS_SpriteOp",&119,sprite_area1%,name$
��
�
�5��plot_sprite_scaled(x%,y%,xm%,ym%,xd%,yd%,name$)
�!(scale%+0)=xm%
�!(scale%+4)=ym%
�!(scale%+8)=xd%
�!(scale%+12)=yd%
�=ș"OS_SpriteOp",&134,sprite_area1%,name$,x%,y%,0,scale%,0
��
�
�5��plot_sprite_masked(x%,y%,xm%,ym%,xd%,yd%,name$)
�!(scale%+0)=xm%
�!(scale%+4)=ym%
�!(scale%+8)=xd%
�!(scale%+12)=yd%
�=ș"OS_SpriteOp",&134,sprite_area1%,name$,x%,y%,8,scale%,0
��
�
���initialise_sprite_area
�O!sprite_area1%=&3E800:sprite_area1%!8=16:ș"OS_SpriteOp",&109,sprite_area1%
��
�
���find_starts
�*FX112,1
�screen_one%=� screen_start%
�*FX112,2
�screen_two%=� screen_start%
�*FX112,1
��
�
�
���pull_variables
�clear_sprite%=!(H%+0)
�draw_picture%=!(H%+4)
�screen_start%=!(H%+8)
�simons_sprite%=!(H%+12)
�explode_merge%=!(H%+16)
�block_merge%=!(H%+20)
�slow_merge%=!(H%+24)
�delay%=!(H%+28)
�save_screen%=!(H%+32)
�fonts%=!(H%+36)
�letters%=!(H%+40)
�crunchsp%=!(H%+44)
�expandsp%=!(H%+48)
�cspname%=!(H%+52)
�nspname%=!(H%+56)
�
�1sprite_area1%=H%+1024*5          :�   5k code
�3picture1%=sprite_area1%+1024*250 :� 250k sprite
�5picture2%=picture1%+1024*10      :�  10k picture1
�5page%=picture2%+1024*10          :�  10k picture2
�� total simon bits=275k
��
�
�
�ݤfind_screen(scr%)
�*!input%=scr%             :� 148 OR 149
�!(input%+4)=-1
�+ș "OS_ReadVduVariables",input%,output%
�
=!output%
�
�
��palette
��p%,r%,g%,b%
�	��dqE
��p%=0�15
��r%,g%,b%:�p%,r%,g%,b%
��:�
�
�,� 255,255,255,170,170,170,85,85,85,0,0,0
�)� 0,0,153,0,0,255,0,204,255,255,255,0
�%� 0,96,0,221,0,0,136,17,0,0,102,0
�%� 0,153,34,0,204,0,0,140,16,0,0,0
�
� ��initialise_buttons(which%)
� �which%=0:��TAF:total_but%=1
�4�which%=1:��TBF:total_but%=10:�points:ȗ� 700,92
�[�which%=2:��TDF:total_but%=9:�pri2(600,200,0,1,128,1,"or which action....."):ȗ� 700,92
� �which%=3:��TFF:total_but%=1
��f%=1 � total_but%
�9�but%(f%,1),but%(f%,2),but%(f%,3),but%(f%,4),but$(f%)
�C�total_but%=9 � (L%=39 � L%=23) but%(9,3)=1:but$(9)="Go inside"
��print_single_button(f%)
��
�

� 860,4,1,300,CONTINUE
�� 1008,208,1,116,"  N",1132,208,1,116,NE,1132,112,1,116,"  E",1132,16,1,116,SE,1008,16,1,116,"  S",884,16,1,116,SW,884,112,1,116,"  W",884,208,1,116,NW,32,170,1,512,"Check your senses",564,170,1,290,"Information"

z� 32,182,1,480,"Return to plan view",32,94,1,280,"Eat",338,94,1,280,"Drink",644,94,1,280,"Sleep",950,94,1,280,"Attack"
M� 32,4,1,280,"Run",338,4,1,280,"Dig",644,4,1,280,"Search",950,4,0,280," "
� 860,12,1,300,CONTINUE

 ��print_buttons(start%,end%)
	�f%=start% � end%

box_length%=but%(f%,4)
�but%(f%,3)=0:�:�
1�but%(f%,3)=1:text_colour%=1:back_colour%=128

1�but%(f%,3)=2:text_colour%=4:back_colour%=132
�update_single_button(f%)
�:�

 ��check_buttons(start%,end%)
fbox%=0:selected%=0
ȗmx%,my%,mc%
�f%=start% � end%
�but%(f%,3)=0:�:� �T\F
j�but%(f%,1)<mx% � but%(f%,2)<my% � (but%(f%,1)+but%(f%,4))>mx% � but%(f%,2)+88>my% arrow%=1 � arrow%=0
c�arrow%=1 � but%(f%,3)=2:text_colour%=7:back_colour%=135:�update_single_button(f%):but%(f%,3)=1
c�arrow%=0 � but%(f%,3)=1:text_colour%=1:back_colour%=128:�update_single_button(f%):but%(f%,3)=2
%�arrow%=1 � but%(f%,3)>0:fbox%=f%
�
$�mc%=4 � fbox%>0:selected%=fbox%
�

��update_single_button(g%)
 �but%(f%,3)=0:�
!`�total_but%=1:�text_colour%=7:�plot_sprite_scaled(900,simon%,1,1,1,1,"goon2"):but%(f%,3)=1:�
"_�total_but%=1:�text_colour%=1:�plot_sprite_scaled(900,simon%,1,1,1,1,"goon"):but%(f%,3)=2:�
#�total_but%=1:�
$M�24,but%(f%,1);but%(f%,2);but%(f%,1)+but%(f%,4);but%(f%,2)+80;18,0,130,16
%S�24,but%(f%,1)+4;but%(f%,2)+4;but%(f%,1)+but%(f%,4)-4;but%(f%,2)+76;18,0,128,16
&S�24,but%(f%,1)+8;but%(f%,2)+8;but%(f%,1)+but%(f%,4)-8;but%(f%,2)+72;18,0,130,16
'_�24,but%(f%,1)+12;but%(f%,2)+12;but%(f%,1)+but%(f%,4)-12;but%(f%,2)+68;18,0,back_colour%,16
(M�pri2(but%(f%,1)+16,but%(f%,2)+24,0,text_colour%,back_colour%,1,but$(f%))
)�
*
+��print_single_button(g%)
,�total_but%=1:�
-�but%(f%,3)=0:�
.��24,but%(f%,1);but%(f%,2);but%(f%,1)+but%(f%,4);but%(f%,2)+80;18,0,129,16,24,but%(f%,1)+4;but%(f%,2)+4;but%(f%,1)+but%(f%,4)-4;but%(f%,2)+76;18,0,128,16,26:�
/��24,but%(f%,1);but%(f%,2);but%(f%,1)+but%(f%,4);but%(f%,2)+80;18,0,131,16,24,but%(f%,1)+4;but%(f%,2)+4;but%(f%,1)+but%(f%,4)-4;but%(f%,2)+76;18,0,129,16
0T�0,2:�but%(f%,1)+8,but%(f%,2)+4:�1,but%(f%,4)-16,0:�0,-4,4:�1,-(but%(f%,4)-24),0
1Q�but%(f%,1)+8,but%(f%,2)+76:�1,but%(f%,4)-16,0:�0,-4,-4:�1,-(but%(f%,4)-24),0
2�
3
4��set_up_button_blank
5col1%=4:col2%=7
6�f%=1� 8
7�0,col1%
8�ff%=0 � 4 �2
9�ff%=0 � ff%=2 �0,2 � �0,0
:3�path%(f%-1)=0:but%(f%,3)=0:�0,1:� but%(f%,3)=1
;z�but%(f%,1)+ff%,but%(f%,2)+ff%:�1,but%(f%,4)-(ff%*2),0:�1,0,80-(ff%*2):�1,-1*(but%(f%,4)-(ff%*2)),0:�1,0,-(80-(ff%*2))
<�
=�
>�
?
@'��pri2(x%,y%,ll%,col%,bcol%,si%,a$)
A#ș"Font_SetFontColours",0,0,1,2
BC%=320:D%=360
C�si%=2:C%=260:D%=290
D A%=x%:B%=y%:E%=col%:F%=bcol%
ET�sent%=1� �(a$):?(letters%+(sent%-1))=�(�a$,sent%,1)):�:?(letters%+(sent%-1))=13
F�0,0,0,0,0,0,0,0,0
G� fonts%
H�
I
J��block_merge(to%,from%)
K
B%=to%
LC%=from%
MD%=rnd_table%
NE%=880*4
O�block_merge%
P�
Q
R��slow_merge(to%,from%)
S
B%=to%
TC%=from%
UD%=rnd_table%
VE%=880*4
W�slow_merge%
X�
Y
Z��explode_merge(to%,from%)
[�f%=1�40:emask%(f%)=0:�
\
B%=to%
]C%=from%
^D%=rnd_table%
_E%=40*4
`
amount%=0
a�f%=1�30
bamount%=amount%+1
c�ff%=1�amount%
d3emask%(ff%)=emask%(ff%)+8:�emask%(ff%)>64:�:�:�
e d%=(ff%-1)*160:�ff%>22:�:�:�
fD%=rnd_table%+d%
gF%=emask%(ff%)
h�explode_merge%
i�
j�
k�
l
mݤreadsysvar(a$)
nOș "OS_ReadVarVal",a$,blk%,256,0,0 � ,,a%:a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
o=a$
p
qݤreadstring(p%)
r2�a$:a$="":ȕ �a$<255 � ?p%>31 a$+=�?p%:p%+=1:�
s=a$
t
u��introduction
vload1$=�~(picture1%)
w5� "LOAD <Badger$DIR>.otherpics.startpic2 "+load1$
x5�26,18,0,131,16,24,64;104;1216;936;18,0,129,16,26
y2ȑ0,-28:A%=picture1%:B%=0:�draw_picture%:ȑ0,0
z*fx112,1
{,�pri2(470,750,0,1,128,1,"BADGER TRAILS")
|�pause(200)
}@�pri2(374,652,0,1,128,2,"Software written by Simon Hosler.")
~H�pri2(312,592,0,1,128,2,"(C) 1993 S. Hosler and Sherston Software.")
ȗ�
��space_two
�load1$=�~(picture1%)
�5� "LOAD <Badger$DIR>.otherpics.startpic3 "+load1$
��merge_sprite("start_bad")
�*fx112,1
�2�18,0,131,16,24,64;104;1216;942;18,0,129,16,26
�2ȑ0,-24:A%=picture1%:B%=0:�draw_picture%:ȑ0,0
�0�pri2(224,720,0,1,128,1,"You are a badger.")
�4�plot_sprite_scaled(340,450,1,1,1,1,"start_bad")
�B�pri2(224,370,0,1,128,1,"You are just about a metre long and")
�)�pri2(224,310,0,1,128,1,"40cm high.")
��pause(100)
�load1$=�~(picture1%)
�4� "LOAD <Badger$DIR>.otherpics.startpic "+load1$
��space_two
�&�24,64;108;1216;932;18,0,129,16,26
�2ȑ0,-24:A%=picture1%:B%=0:�draw_picture%:ȑ0,0
�@�pri2(224,820,0,1,128,1,"You are a long way from your sett")
�@�pri2(224,760,0,1,128,1,"and will need to find a way home.")
��space_two
�&�24,64;700;1216;932;18,0,128,16,26
��pause(100)
�B�pri2(224,840,0,1,128,1,"There will be many dangers to avoid")
�E�pri2(224,780,0,1,128,1,"and tasks to complete before you reach")
�$�pri2(224,720,0,1,128,1,"home.")
��space_two
�&�24,64;104;1216;936;18,0,129,16,26
�load1$=�~(picture1%)
�5� "LOAD <Badger$DIR>.otherpics.startpic2 "+load1$
�2ȑ0,-28:A%=picture1%:B%=0:�draw_picture%:ȑ0,0
�*fx112,1
�(�pri2(528,750,0,1,128,1,"Task one-")
��pause(200)
�C�pri2(256,690,0,1,128,1,"Before you travel north of the road,")
�<�pri2(256,630,0,1,128,1,"you must find food and water.")
��space_two
��delete_start
��merge_sprite("senses1")
�&�24,64;104;1216;942;18,0,128,16,26
�<�pri2(128,800,0,1,128,1,"Find three different foods...")
��pause(150)
�.�pri2(800,800,0,1,128,1,"..for example..")
��pause(100)
�7�sprite_plot(sprite_area1%,"bulb",230,770,11,1,1,1)
��pause(100)
�8�sprite_plot(sprite_area1%,"worm2",530,770,11,1,1,1)
��pause(100)
�9�sprite_plot(sprite_area1%,"lfrog_1",830,770,4,1,1,1)
�M�pri2(178,680,0,1,128,1,"1                     2                      3")
��delete_senses1
�1�pri2(192,440,0,1,128,1,"..and fresh water.")
��merge_sprite("death")
�3�plot_sprite_scaled(700,180,1,1,1,1,"rivdeath")
��delete_death
��space_two
��26,18,0,129,16
�L%=1
��
�
���end_of_part1
��bottom_frame:�clear_text
�N�pri2(96,120,0,1,128,1,"Well done!   You have completed your first task.")
��space:�clear_text
�T�pri2(32,160,0,1,128,1,"As it is becoming light,  you will need to find a safe")
�V�pri2(32,100,0,1,128,1,"place to sleep.  Then you must find a way past the farm.")
��space:�clear_text
�
�
�X�pri2(32,120,0,1,128,1,"Unfortunately,  this is the end of the demonstration disk.")
�
�space
�5�26,18,0,131,16,24,64;104;1216;938;18,0,129,16,26
�load1$=�~(picture1%)
�5� "LOAD <Badger$DIR>.otherpics.startpic2 "+load1$
�2ȑ0,-28:A%=picture1%:B%=0:�draw_picture%:ȑ0,0
�*fx112,1
�
�,�pri2(528,750,0,1,128,1,"Badger Trails")
��pause(200)
�J�pri2(200,690,0,1,128,1,"For the complete adventure please contact:-")
τ�pri2(200,630,0,1,128,1,"Sherston Software, Sherston, Malmesbury,"):�pri2(310,570,0,1,128,1,"Wilts. SN16 0LH  Tel. 0666 840433")
�5�pri2(500,510,0,1,128,2,"Ctrl and Q to restart.")
�&M%=0:L%=1:V%=0:R%=0:Q%=0:S%=3:U%=0
�	�:� �
�STOPPED
�
���space_two
��pause(100)
� simon%=12
� �initialise_buttons(3)
�0 �:�check_buttons(1,total_but%):�selected%>0
�& �24,900;12;1200;86;18,0,131,16,26
� ȗ � 700,60
��
�
�.��animate_small(samx%,samy%,type$,anynum%)
�
� �TVG
��f%=1�anynum%
��num_bits%,ap%,saminx%(1),saminy%(1),samcount%(1),n_type%(1),pause_c%(1),saminx%(2),saminy%(2),samcount%(2),n_type%(2),pause_c%(2),saminx%(3),saminy%(3),samcount%(3),n_type%(3),pause_c%(3),saminx%(4),saminy%(4),samcount%(4),n_type%(4),pause_c%(4)
��
�
�*FX112,2
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
�*FX112,1
�
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
�C�sprite_plot(sprite_area1%,"bad"+�(cd%),ax%,ay%+128,12,8,14,15)
�Bș"OS_SpriteOp",&110,sprite_area1%,"scroll1",0,64,320,1214,960
�Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1214,960
�
� spx%=samx%-64:spy%=samy%-320
��anyloop%=1�num_bits%
�type%=1:count%=1
� �samf%=1�samcount%(anyloop%)
�
�st_pause
�count%=count%+1
�Z�count%=pause_c%(anyloop%):type%=type%+1:count%=1:�type%=(n_type%(anyloop%))+1:type%=1
�2ș"OS_SpriteOp",&13C,sprite_area1%,"scroll1",0
�9�plot_sprite_masked(spx%,spy%,1,1,1,1,type$+�(type%))
�*ș"OS_SpriteOp",&13C,sprite_area1%,0,0
�9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0
�0ș"OS_SpriteOp",&119,sprite_area1%,"scroll1"
�:ș"OS_SpriteOp",&11B,sprite_area1%,"scroll2","scroll1"
�*FX112,1
�;spx%=spx%+saminx%(anyloop%):spy%=spy%+saminy%(anyloop%)
��en_pause(ap%)
��
�E�anynum%=4 � anyloop%=2:ș"OS_SpriteOp",&12F,sprite_area1%,"fox1"
��
9ș"OS_SpriteOp",&122,sprite_area1%,"scroll1",64,320,0

*FX112,2
Bș"OS_SpriteOp",&110,sprite_area1%,"scroll1",0,64,320,1214,960
Bș"OS_SpriteOp",&110,sprite_area1%,"scroll2",0,64,320,1214,960
*FX112,1
�

��small_animate
9�new_location%=12 �animate_small(308,900,"lrabbit",1)
	��new_location%=8:ș"OS_SpriteOp",&121,sprite_area1%,"lrabbit1":ș"OS_SpriteOp",&121,sprite_area1%,"lrabbit2":�animate_small(160,720,"lrabbit",2):ș"OS_SpriteOp",&121,sprite_area1%,"lrabbit1":ș"OS_SpriteOp",&121,sprite_area1%,"lrabbit2"

8�new_location%=16 � L%=15 � (R%<3 � Q%<1):�fox_look1
.�new_location%=14 � (L%=10 � L%=12) �duck1
�


��fox_look1
Nș"OS_SpriteOp",&12F,sprite_area1%,"fox1":�animate_small(1200,780,"fox",4)
�

��duck1
%�animate_small(1200,600,"duck",5)
�

F�1,4, 0,-8,54,2,10, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0        :rabbit
F�1,4, 0,8,30,2,10,   0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0       :rabbit
C�1,6, 16,0,80,1,200, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0       :fox
D�3,4, -8,0,30,1,100, 0,0,50,2,10, 8,0,35,1,100, 0,0,0,0,0  :fox2
K�4,6, -4,2,30,1,100, -1,4,20,1,100, -2,4,20,1,100, -4,4,35,1,100 :ducks
F�3,4, 0,-8,40,1,100, 0,8,10,1,100, 0,-8,10,1,100, 0,0,0,0,0:spider

��desk_top
ș"OS_RestoreCursors"
6�:�buf% 4:�i%=1�16:Ȗ:�c%=0�16:�c%<16v%=16 � v%=24
 Pș"OS_ReadPalette",c%,v% � ,,d%:!buf%=d%:�b%=1�3:�buf%?b%>0buf%?b%-=16:�:�:�
!%�19,c%,v%,buf%?1,buf%?2,buf%?3:�,
"	*FX15
#*FX225,1
$ *KEY0 PAGE=&8F00|MOLD|MRUN|M
%*FX138,0,128
&
*BASIC
G��
�

00000000  0d 00 00 26 f4 ff 61 64  66 73 3a 3a 42 6c 61 6e  |...&..adfs::Blan|
00000010  6b 2e 24 2e 21 42 61 64  67 65 72 2e 4e 45 57 53  |k.$.!Badger.NEWS|
00000020  43 52 4f 4c 4c 32 0d 00  01 11 f4 20 3e 4e 45 57  |CROLL2..... >NEW|
00000030  53 43 52 4f 4c 4c 32 0d  00 02 0c 2a 46 58 32 32  |SCROLL2....*FX22|
00000040  39 2c 30 0d 00 03 0c 2a  46 58 32 30 30 2c 30 0d  |9,0....*FX200,0.|
00000050  00 04 17 ee 20 85 3a ee  85 87 3a f2 64 65 73 6b  |.... .:...:.desk|
00000060  5f 74 6f 70 3a e0 0d 00  05 3f de 20 73 61 6d 69  |_top:....?. sami|
00000070  6e 78 25 28 34 29 2c 73  61 6d 69 6e 79 25 28 34  |nx%(4),saminy%(4|
00000080  29 2c 73 61 6d 63 6f 75  6e 74 25 28 34 29 2c 6e  |),samcount%(4),n|
00000090  5f 74 79 70 65 25 28 34  29 2c 70 61 75 73 65 5f  |_type%(4),pause_|
000000a0  63 25 28 34 29 0d 00 06  14 de 20 61 73 73 5f 63  |c%(4)..... ass_c|
000000b0  6f 64 65 25 20 32 30 34  38 0d 00 07 26 de 20 73  |ode% 2048...&. s|
000000c0  63 61 6c 65 25 20 31 30  32 34 2c 69 6e 70 75 74  |cale% 1024,input|
000000d0  25 20 32 30 2c 6f 75 74  70 75 74 25 20 31 36 0d  |% 20,output% 16.|
000000e0  00 08 26 de 20 61 6e 69  6d 5f 61 74 5f 6c 25 28  |..&. anim_at_l%(|
000000f0  31 30 30 2c 36 29 2c 70  6f 73 5f 74 79 70 65 25  |100,6),pos_type%|
00000100  28 31 30 30 29 0d 00 09  4d de 20 67 6f 78 25 28  |(100)...M. gox%(|
00000110  32 30 29 2c 67 6f 79 25  28 32 30 29 2c 61 6d 6f  |20),goy%(20),amo|
00000120  75 6e 74 25 28 32 30 29  2c 62 61 64 25 28 32 30  |unt%(20),bad%(20|
00000130  29 2c 70 61 74 68 25 28  32 30 29 3a f4 20 31 20  |),path%(20):. 1 |
00000140  65 78 74 72 61 20 66 6f  72 20 62 75 74 74 6f 6e  |extra for button|
00000150  20 39 0d 00 0a 11 74 6f  74 61 6c 5f 62 75 74 25  | 9....total_but%|
00000160  3d 31 38 0d 00 0b 29 de  20 62 75 74 25 28 74 6f  |=18...). but%(to|
00000170  74 61 6c 5f 62 75 74 25  2c 34 29 2c 62 75 74 24  |tal_but%,4),but$|
00000180  28 74 6f 74 61 6c 5f 62  75 74 25 29 0d 00 0c 26  |(total_but%)...&|
00000190  de 20 72 6e 64 5f 74 61  62 6c 65 25 20 33 35 36  |. rnd_table% 356|
000001a0  30 2c 65 6d 61 73 6b 25  28 34 30 29 2c 72 25 28  |0,emask%(40),r%(|
000001b0  35 29 0d 00 0d 48 6c 6f  61 64 24 3d c3 7e 28 72  |5)...Hload$=.~(r|
000001c0  6e 64 5f 74 61 62 6c 65  25 29 3a ff 22 4c 4f 41  |nd_table%):."LOA|
000001d0  44 20 3c 42 61 64 67 65  72 24 44 49 52 3e 2e 6f  |D <Badger$DIR>.o|
000001e0  74 68 65 72 70 69 63 73  2e 72 6e 64 5f 63 6c 65  |therpics.rnd_cle|
000001f0  61 72 20 22 2b 6c 6f 61  64 24 0d 00 0e 04 0d 00  |ar "+load$......|
00000200  0f 0b 6c 6f 6f 70 25 3d  31 0d 00 10 0b 74 69 6d  |..loop%=1....tim|
00000210  65 25 3d 91 0d 00 11 1f  f5 3a 6c 6f 6f 70 25 3d  |e%=......:loop%=|
00000220  6c 6f 6f 70 25 2b 31 3a  fd 74 69 6d 65 25 2b 35  |loop%+1:.time%+5|
00000230  30 3c 91 0d 00 12 1f e7  6c 6f 6f 70 25 3e 35 30  |0<......loop%>50|
00000240  30 30 20 61 72 6d 25 3d  33 3a 8b 20 61 72 6d 25  |00 arm%=3:. arm%|
00000250  3d 31 0d 00 13 04 0d 00  14 04 0d 00 15 13 f2 70  |=1.............p|
00000260  75 6c 6c 5f 76 61 72 69  61 62 6c 65 73 0d 00 16  |ull_variables...|
00000270  1b f2 69 6e 69 74 69 61  6c 69 73 65 5f 73 70 72  |..initialise_spr|
00000280  69 74 65 5f 61 72 65 61  0d 00 17 27 f2 6c 6f 61  |ite_area...'.loa|
00000290  64 5f 73 70 72 69 74 65  28 73 70 72 69 74 65 5f  |d_sprite(sprite_|
000002a0  61 72 65 61 31 25 2c 22  6d 61 69 6e 31 22 29 0d  |area1%,"main1").|
000002b0  00 18 04 0d 00 19 12 f2  61 73 73 65 6d 62 6c 65  |........assemble|
000002c0  5f 64 72 61 77 0d 00 1a  04 0d 00 1b 07 eb 31 32  |_draw.........12|
000002d0  0d 00 1c 18 c8 99 22 4f  53 5f 52 65 6d 6f 76 65  |......"OS_Remove|
000002e0  43 75 72 73 6f 72 73 22  0d 00 1d 1d 63 64 25 3d  |Cursors"....cd%=|
000002f0  30 3a f4 20 63 75 72 72  65 6e 74 20 64 69 72 65  |0:. current dire|
00000300  63 74 69 6f 6e 0d 00 1e  17 74 6f 74 61 6c 5f 6c  |ction....total_l|
00000310  6f 63 61 74 69 6f 6e 73  25 3d 32 32 0d 00 1f 46  |ocations%=22...F|
00000320  63 61 72 31 25 3d 30 3a  63 61 72 32 25 3d 30 3a  |car1%=0:car2%=0:|
00000330  63 61 72 31 78 25 3d 30  3a 63 61 72 31 79 25 3d  |car1x%=0:car1y%=|
00000340  30 3a 63 61 72 32 78 25  3d 30 3a 63 61 72 32 79  |0:car2x%=0:car2y|
00000350  25 3d 30 3a 63 74 25 3d  30 3a 6e 6f 63 61 72 25  |%=0:ct%=0:nocar%|
00000360  3d 30 0d 00 20 2f 6d 61  6e 79 25 3d 34 36 38 3a  |=0.. /many%=468:|
00000370  6d 61 6e 78 25 3d 31 31  30 32 3a 6d 61 6e 5f 74  |manx%=1102:man_t|
00000380  79 70 65 25 3d 31 3a 67  6f 5f 66 61 72 6d 25 3d  |ype%=1:go_farm%=|
00000390  30 0d 00 21 17 66 6f 78  78 25 3d 34 32 38 3a 66  |0..!.foxx%=428:f|
000003a0  6f 78 79 25 3d 33 37 30  0d 00 22 41 74 69 6d 65  |oxy%=370.."Atime|
000003b0  5f 63 6f 6e 74 72 6f 6c  25 3d 36 20 20 20 20 20  |_control%=6     |
000003c0  20 20 3a f4 20 73 70 65  65 64 20 6f 66 20 61 6e  |  :. speed of an|
000003d0  69 6d 61 74 69 6f 6e 20  41 52 4d 20 33 20 28 66  |imation ARM 3 (f|
000003e0  6f 72 20 50 61 75 6c 21  29 0d 00 23 12 65 76 65  |or Paul!)..#.eve|
000003f0  72 79 5f 6f 74 68 65 72  25 3d 30 0d 00 24 13 2a  |ry_other%=0..$.*|
00000400  52 55 4e 20 21 44 54 50  61 6c 65 74 74 65 0d 00  |RUN !DTPalette..|
00000410  25 0c 2a 46 58 31 31 32  2c 32 0d 00 26 54 f2 70  |%.*FX112,2..&T.p|
00000420  72 69 32 28 30 2c 35 30  30 2c 30 2c 31 2c 31 32  |ri2(0,500,0,1,12|
00000430  38 2c 32 2c 22 61 62 63  64 65 66 67 68 69 6a 6b  |8,2,"abcdefghijk|
00000440  6c 6d 6e 6f 70 71 72 73  74 75 76 77 78 79 7a 41  |lmnopqrstuvwxyzA|
00000450  42 43 44 45 46 47 48 49  4a 4b 4c 4d 4e 4f 50 51  |BCDEFGHIJKLMNOPQ|
00000460  52 53 54 55 56 57 58 59  5a 2e 2c 27 22 29 0d 00  |RSTUVWXYZ.,'")..|
00000470  27 54 f2 70 72 69 32 28  30 2c 33 30 30 2c 30 2c  |'T.pri2(0,300,0,|
00000480  31 2c 31 32 38 2c 31 2c  22 61 62 63 64 65 66 67  |1,128,1,"abcdefg|
00000490  68 69 6a 6b 6c 6d 6e 6f  70 71 72 73 74 75 76 77  |hijklmnopqrstuvw|
000004a0  78 79 7a 41 42 43 44 45  46 47 48 49 4a 4b 4c 4d  |xyzABCDEFGHIJKLM|
000004b0  4e 4f 50 51 52 53 54 55  56 57 58 59 5a 2e 2c 27  |NOPQRSTUVWXYZ.,'|
000004c0  22 29 0d 00 28 0c 2a 46  58 31 31 32 2c 31 0d 00  |")..(.*FX112,1..|
000004d0  29 04 0d 00 2a 09 e5 8d  54 79 40 0d 00 2b 16 2a  |)...*...Ty@..+.*|
000004e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000004f0  2a 0d 00 2c 10 4c 25 3d  6c 6f 63 61 74 69 6f 6e  |*..,.L%=location|
00000500  25 0d 00 2d 12 4d 25 3d  73 74 61 72 74 5f 66 6c  |%..-.M%=start_fl|
00000510  61 67 25 0d 00 2e 1a 4e  25 3d 73 65 63 6f 6e 64  |ag%....N%=second|
00000520  5f 64 65 61 64 73 5f 66  6f 75 6e 64 25 0d 00 2f  |_deads_found%../|
00000530  1c 4f 25 3d 66 69 72 73  74 5f 64 65 61 64 73 5f  |.O%=first_deads_|
00000540  6c 6f 63 61 74 69 6f 6e  25 0d 00 30 1d 50 25 3d  |location%..0.P%=|
00000550  73 65 63 6f 6e 64 5f 64  65 61 64 73 5f 6c 6f 63  |second_deads_loc|
00000560  61 74 69 6f 6e 25 0d 00  31 14 51 25 3d 6c 69 71  |ation%..1.Q%=liq|
00000570  75 69 64 5f 63 6f 75 6e  74 25 0d 00 32 12 52 25  |uid_count%..2.R%|
00000580  3d 66 6f 6f 64 5f 63 6f  75 6e 74 25 0d 00 33 0d  |=food_count%..3.|
00000590  53 25 3d 6c 69 76 65 73  25 0d 00 34 19 54 25 3d  |S%=lives%..4.T%=|
000005a0  74 69 6d 65 5f 6f 66 5f  64 61 79 5f 63 6f 75 6e  |time_of_day_coun|
000005b0  74 25 0d 00 35 0e 55 25  3d 70 6f 69 6e 74 73 25  |t%..5.U%=points%|
000005c0  0d 00 36 0d 56 25 3d 66  6f 6f 64 73 25 0d 00 37  |..6.V%=foods%..7|
000005d0  15 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
000005e0  2a 2a 0d 00 38 04 0d 00  39 0c f2 70 61 6c 65 74  |**..8...9..palet|
000005f0  74 65 0d 00 3a 10 f2 66  69 6e 64 5f 73 74 61 72  |te..:..find_star|
00000600  74 73 0d 00 3b 04 0d 00  3c 04 0d 00 3d 1c e7 4d  |ts..;...<...=..M|
00000610  25 3d 30 3a 4d 25 3d 31  3a f2 69 6e 74 72 6f 64  |%=0:M%=1:.introd|
00000620  75 63 74 69 6f 6e 0d 00  3e 1a f2 73 65 6c 65 63  |uction..>..selec|
00000630  74 5f 61 6e 69 6d 5f 70  6f 73 28 31 2c 32 31 29  |t_anim_pos(1,21)|
00000640  0d 00 3f 18 f2 6c 6f 63  61 74 69 6f 6e 5f 66 69  |..?..location_fi|
00000650  6e 64 65 72 28 4c 25 29  0d 00 40 15 61 78 25 3d  |nder(L%)..@.ax%=|
00000660  6e 61 78 25 3a 61 79 25  3d 6e 61 79 25 0d 00 41  |nax%:ay%=nay%..A|
00000670  22 f2 66 69 6e 64 5f 73  63 72 65 65 6e 28 31 2c  |".find_screen(1,|
00000680  73 63 72 65 65 6e 5f 6c  6f 61 64 65 64 25 29 0d  |screen_loaded%).|
00000690  00 42 22 f2 66 69 6e 64  5f 73 63 72 65 65 6e 28  |.B".find_screen(|
000006a0  32 2c 73 63 72 65 65 6e  5f 6c 6f 61 64 65 64 25  |2,screen_loaded%|
000006b0  29 0d 00 43 04 0d 00 44  04 0d 00 45 11 f2 73 65  |)..C...D...E..se|
000006c0  74 5f 75 70 5f 62 6c 61  6e 6b 0d 00 46 04 0d 00  |t_up_blank..F...|
000006d0  47 13 f2 6d 61 69 6e 5f  6d 6f 76 65 5f 6c 6f 6f  |G..main_move_loo|
000006e0  70 0d 00 48 15 f4 20 50  52 4f 43 73 65 6e 73 65  |p..H.. PROCsense|
000006f0  73 5f 6c 6f 6f 70 0d 00  49 09 e5 8d 44 47 40 0d  |s_loop..I...DG@.|
00000700  00 4a 04 0d 00 4b 14 dd  f2 6d 61 69 6e 5f 6d 6f  |.J...K...main_mo|
00000710  76 65 5f 6c 6f 6f 70 0d  00 4c 07 c8 97 ee 0d 00  |ve_loop..L......|
00000720  4d 10 c8 97 b8 20 31 30  36 38 2c 31 35 36 0d 00  |M.... 1068,156..|
00000730  4e 11 f2 62 6f 74 74 6f  6d 5f 66 72 61 6d 65 0d  |N..bottom_frame.|
00000740  00 4f 0f f2 63 6c 65 61  72 5f 74 65 78 74 0d 00  |.O..clear_text..|
00000750  50 1f f4 20 50 52 4f 43  69 6e 69 74 69 61 6c 69  |P.. PROCinitiali|
00000760  73 65 5f 62 75 74 74 6f  6e 73 28 31 29 0d 00 51  |se_buttons(1)..Q|
00000770  25 f4 20 50 52 4f 43 63  68 65 63 6b 5f 62 75 74  |%. PROCcheck_but|
00000780  74 6f 6e 73 28 31 2c 74  6f 74 61 6c 5f 62 75 74  |tons(1,total_but|
00000790  25 29 0d 00 52 05 f5 0d  00 53 2e 20 e7 4c 25 3d  |%)..R....S. .L%=|
000007a0  31 36 20 80 20 28 51 25  3c 31 20 84 20 52 25 3c  |16 . (Q%<1 . R%<|
000007b0  33 29 3a f2 6d 61 6e 5f  77 69 74 68 5f 67 75 6e  |3):.man_with_gun|
000007c0  5f 74 65 78 74 0d 00 54  44 20 ef 32 34 2c 38 37  |_text..TD .24,87|
000007d0  32 3b 34 3b 31 32 36 32  3b 33 30 30 3b 31 38 2c  |2;4;1262;300;18,|
000007e0  30 2c 31 33 30 2c 31 36  2c 32 34 2c 38 37 36 3b  |0,130,16,24,876;|
000007f0  38 3b 31 32 35 38 3b 32  39 36 3b 31 38 2c 30 2c  |8;1258;296;18,0,|
00000800  31 32 39 2c 31 36 2c 32  36 0d 00 55 33 20 f2 70  |129,16,26..U3 .p|
00000810  6c 6f 74 5f 73 70 72 69  74 65 5f 73 63 61 6c 65  |lot_sprite_scale|
00000820  64 28 31 30 30 32 2c 39  32 2c 31 2c 31 2c 31 2c  |d(1002,92,1,1,1,|
00000830  31 2c 22 63 6f 6d 70 61  73 73 22 29 0d 00 56 1b  |1,"compass")..V.|
00000840  20 f2 69 6e 69 74 69 61  6c 69 73 65 5f 62 75 74  | .initialise_but|
00000850  74 6f 6e 73 28 31 29 0d  00 57 19 20 e7 4c 25 3c  |tons(1)..W. .L%<|
00000860  32 33 20 f2 66 6f 6f 64  61 6e 64 77 61 74 65 72  |23 .foodandwater|
00000870  0d 00 58 10 20 c8 97 20  b8 20 37 30 30 2c 39 32  |..X. .. . 700,92|
00000880  0d 00 59 1a 20 e7 73 69  67 68 74 25 3d 30 20 62  |..Y. .sight%=0 b|
00000890  75 74 25 28 39 2c 33 29  3d 30 0d 00 5a 19 20 f2  |ut%(9,3)=0..Z. .|
000008a0  73 65 74 5f 75 70 5f 62  75 74 74 6f 6e 5f 62 6c  |set_up_button_bl|
000008b0  61 6e 6b 0d 00 5b 10 20  c8 97 20 b8 20 37 30 30  |ank..[. .. . 700|
000008c0  2c 39 32 0d 00 5c 07 20  20 f5 0d 00 5d 25 20 20  |,92..\.  ...]%  |
000008d0  20 f5 3a f2 63 68 65 63  6b 5f 62 75 74 74 6f 6e  | .:.check_button|
000008e0  73 28 31 2c 74 6f 74 61  6c 5f 62 75 74 25 29 0d  |s(1,total_but%).|
000008f0  00 5e 35 20 20 20 e7 4c  25 3d 36 20 84 20 4c 25  |.^5   .L%=6 . L%|
00000900  3d 39 20 84 20 4c 25 3d  31 31 20 84 20 4c 25 3d  |=9 . L%=11 . L%=|
00000910  32 31 20 84 20 4c 25 3d  32 30 3a f2 6d 6f 76 65  |21 . L%=20:.move|
00000920  5f 63 61 72 0d 00 5f 1d  20 20 20 e7 67 6f 5f 66  |_car.._.   .go_f|
00000930  61 72 6d 25 3d 31 20 f2  70 6f 69 6e 74 5f 6d 61  |arm%=1 .point_ma|
00000940  6e 0d 00 60 13 20 20 20  fd 73 65 6c 65 63 74 65  |n..`.   .selecte|
00000950  64 25 3e 30 0d 00 61 2a  20 20 fd 20 70 61 74 68  |d%>0..a*  . path|
00000960  25 28 73 65 6c 65 63 74  65 64 25 2d 31 29 3e 30  |%(selected%-1)>0|
00000970  20 84 20 73 65 6c 65 63  74 65 64 25 3e 38 0d 00  | . selected%>8..|
00000980  62 ad 20 20 e7 20 73 65  6c 65 63 74 65 64 25 3d  |b.  . selected%=|
00000990  39 3a ff 22 46 58 31 31  32 2c 32 22 3a ef 32 36  |9:."FX112,2":.26|
000009a0  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
000009b0  2c 26 31 32 32 2c 73 70  72 69 74 65 5f 61 72 65  |,&122,sprite_are|
000009c0  61 31 25 2c 22 73 63 72  6f 6c 6c 32 22 2c 36 34  |a1%,"scroll2",64|
000009d0  2c 33 32 30 2c 30 3a ff  22 46 58 31 31 32 2c 31  |,320,0:."FX112,1|
000009e0  22 3a f2 73 65 6e 73 65  73 3a 42 25 3d 73 63 72  |":.senses:B%=scr|
000009f0  65 65 6e 5f 74 77 6f 25  3a 43 25 3d 73 63 72 65  |een_two%:C%=scre|
00000a00  65 6e 5f 6f 6e 65 25 3a  d6 77 69 7a 3a f2 70 75  |en_one%:.wiz:.pu|
00000a10  74 63 61 72 73 62 61 63  6b 3a f2 73 65 74 5f 75  |tcarsback:.set_u|
00000a20  70 5f 62 6c 61 6e 6b 3a  fd 20 a3 0d 00 63 24 20  |p_blank:. ...c$ |
00000a30  20 e7 73 65 6c 65 63 74  65 64 25 3d 31 30 3a f2  | .selected%=10:.|
00000a40  69 6e 66 6f 72 6d 61 74  69 6f 6e 3a fd 20 a3 0d  |information:. ..|
00000a50  00 64 1d 20 20 e7 73 65  6c 65 63 74 65 64 25 3d  |.d.  .selected%=|
00000a60  31 31 3a f2 63 6c 75 65  3a fd 20 a3 0d 00 65 08  |11:.clue:. ...e.|
00000a70  20 ef 32 36 0d 00 66 3b  20 e7 4c 25 3d 36 20 84  | .26..f; .L%=6 .|
00000a80  20 4c 25 3d 39 20 84 20  4c 25 3d 31 31 20 84 20  | L%=9 . L%=11 . |
00000a90  4c 25 3d 32 31 20 84 20  4c 25 3d 32 30 3a f2 63  |L%=21 . L%=20:.c|
00000aa0  68 65 63 6b 5f 63 6c 65  61 72 5f 63 61 72 73 0d  |heck_clear_cars.|
00000ab0  00 67 59 20 e7 4c 25 3d  33 36 20 80 20 67 6f 5f  |.gY .L%=36 . go_|
00000ac0  66 61 72 6d 25 3d 31 20  80 20 28 73 65 6c 65 63  |farm%=1 . (selec|
00000ad0  74 65 64 25 3d 31 20 84  20 73 65 6c 65 63 74 65  |ted%=1 . selecte|
00000ae0  64 25 3d 35 20 84 20 73  65 6c 65 63 74 65 64 25  |d%=5 . selected%|
00000af0  3d 37 29 3a f2 70 61 64  64 79 28 31 29 3a 67 6f  |=7):.paddy(1):go|
00000b00  5f 66 61 72 6d 25 3d 32  0d 00 68 04 0d 00 69 0f  |_farm%=2..h...i.|
00000b10  20 f2 61 6e 69 6d 61 74  69 6f 6e 0d 00 6a 13 20  | .animation..j. |
00000b20  f2 73 6d 61 6c 6c 5f 61  6e 69 6d 61 74 65 0d 00  |.small_animate..|
00000b30  6b 04 0d 00 6c 47 20 e7  6e 65 77 5f 6c 6f 63 61  |k...lG .new_loca|
00000b40  74 69 6f 6e 25 3d 33 36  20 80 20 70 61 74 68 25  |tion%=36 . path%|
00000b50  28 73 65 6c 65 63 74 65  64 25 2d 31 29 3d 38 39  |(selected%-1)=89|
00000b60  20 80 20 67 6f 5f 66 61  72 6d 25 3c 3e 32 20 67  | . go_farm%<>2 g|
00000b70  6f 5f 66 61 72 6d 25 3d  31 0d 00 6d 23 20 e7 6e  |o_farm%=1..m# .n|
00000b80  65 77 5f 6c 6f 63 61 74  69 6f 6e 25 3d 39 39 20  |ew_location%=99 |
00000b90  f2 65 6e 64 5f 62 61 64  67 65 72 31 0d 00 6e 26  |.end_badger1..n&|
00000ba0  20 e7 6e 65 77 5f 6c 6f  63 61 74 69 6f 6e 25 3d  | .new_location%=|
00000bb0  39 38 20 f2 64 72 6f 77  6e 65 64 5f 62 61 64 67  |98 .drowned_badg|
00000bc0  65 72 0d 00 6f 21 20 e7  6e 65 77 5f 6c 6f 63 61  |er..o! .new_loca|
00000bd0  74 69 6f 6e 25 3d 39 37  20 f2 73 68 6f 74 5f 64  |tion%=97 .shot_d|
00000be0  65 61 64 0d 00 70 27 20  e7 6e 65 77 5f 6c 6f 63  |ead..p' .new_loc|
00000bf0  61 74 69 6f 6e 25 3d 33  35 20 80 20 66 6f 78 78  |ation%=35 . foxx|
00000c00  25 3c 38 30 30 20 f2 66  6f 78 0d 00 71 66 20 e7  |%<800 .fox..qf .|
00000c10  6e 65 77 5f 6c 6f 63 61  74 69 6f 6e 25 3d 39 36  |new_location%=96|
00000c20  20 6e 65 77 5f 6c 6f 63  61 74 69 6f 6e 25 3d 32  | new_location%=2|
00000c30  32 3a f2 65 6e 64 5f 6f  66 5f 70 61 72 74 31 3a  |2:.end_of_part1:|
00000c40  42 25 3d 73 63 72 65 65  6e 5f 74 77 6f 25 3a 43  |B%=screen_two%:C|
00000c50  25 3d 73 63 72 65 65 6e  5f 6f 6e 65 25 3a d6 77  |%=screen_one%:.w|
00000c60  69 7a 3a f2 62 6f 74 74  6f 6d 5f 66 72 61 6d 65  |iz:.bottom_frame|
00000c70  0d 00 72 15 20 4c 25 3d  6e 65 77 5f 6c 6f 63 61  |..r. L%=new_loca|
00000c80  74 69 6f 6e 25 0d 00 73  24 20 f2 6c 6f 63 61 74  |tion%..s$ .locat|
00000c90  69 6f 6e 5f 66 69 6e 64  65 72 28 6e 65 77 5f 6c  |ion_finder(new_l|
00000ca0  6f 63 61 74 69 6f 6e 25  29 0d 00 74 1b 20 54 25  |ocation%)..t. T%|
00000cb0  3d 54 25 2b 31 3a 20 f4  20 74 69 6d 65 20 6f 66  |=T%+1: . time of|
00000cc0  20 64 61 79 0d 00 75 04  0d 00 76 07 fd 20 a3 0d  | day..u...v.. ..|
00000cd0  00 77 05 e1 0d 00 78 04  0d 00 79 11 dd f2 70 75  |.w....x...y...pu|
00000ce0  74 63 61 72 73 62 61 63  6b 0d 00 7a 33 20 e7 4c  |tcarsback..z3 .L|
00000cf0  25 3d 36 20 84 20 4c 25  3d 39 20 84 20 4c 25 3d  |%=6 . L%=9 . L%=|
00000d00  31 31 20 84 20 4c 25 3d  32 31 20 84 20 4c 25 3d  |11 . L%=21 . L%=|
00000d10  32 30 3a f2 6d 6f 76 65  5f 63 61 72 0d 00 7b 06  |20:.move_car..{.|
00000d20  20 e1 0d 00 7c 04 0d 00  7d 16 dd f2 63 68 65 63  | ...|...}...chec|
00000d30  6b 5f 63 6c 65 61 72 5f  63 61 72 73 0d 00 7e 95  |k_clear_cars..~.|
00000d40  20 e7 4c 25 3d 36 20 80  20 70 61 74 68 25 28 73  | .L%=6 . path%(s|
00000d50  65 6c 65 63 74 65 64 25  2d 31 29 3d 31 35 3a f2  |elected%-1)=15:.|
00000d60  63 6c 65 61 72 5f 63 61  72 73 3a f5 3a 63 61 72  |clear_cars:.:car|
00000d70  31 25 3d b3 28 33 29 3a  fd 63 61 72 31 25 3c 3e  |1%=.(3):.car1%<>|
00000d80  63 61 72 32 25 3a 63 61  72 31 78 25 3d 2d 34 36  |car2%:car1x%=-46|
00000d90  30 3a 63 61 72 31 79 25  3d 36 36 30 3a f5 3a 63  |0:car1y%=660:.:c|
00000da0  61 72 32 25 3d b3 28 33  29 3a fd 63 61 72 32 25  |ar2%=.(3):.car2%|
00000db0  3c 3e 63 61 72 31 25 3a  63 61 72 32 78 25 3d 2d  |<>car1%:car2x%=-|
00000dc0  31 32 30 30 3a 63 61 72  32 79 25 3d 36 36 30 3a  |1200:car2y%=660:|
00000dd0  e1 0d 00 7f c6 20 e7 4c  25 3d 39 20 80 20 70 61  |..... .L%=9 . pa|
00000de0  74 68 25 28 73 65 6c 65  63 74 65 64 25 2d 31 29  |th%(selected%-1)|
00000df0  3d 32 34 3a f2 63 6c 65  61 72 5f 63 61 72 73 3a  |=24:.clear_cars:|
00000e00  f5 3a 63 61 72 31 25 3d  b3 28 33 29 3a fd 63 61  |.:car1%=.(3):.ca|
00000e10  72 31 25 3c 3e 63 61 72  32 25 3a 63 61 72 31 78  |r1%<>car2%:car1x|
00000e20  25 3d 2d 34 36 30 3a 63  61 72 31 79 25 3d 36 36  |%=-460:car1y%=66|
00000e30  30 3a f5 3a 63 61 72 32  25 3d b3 28 33 29 3a fd  |0:.:car2%=.(3):.|
00000e40  63 61 72 32 25 3c 3e 63  61 72 31 25 3a 63 61 72  |car2%<>car1%:car|
00000e50  32 78 25 3d 31 34 30 30  3a 63 61 72 32 79 25 3d  |2x%=1400:car2y%=|
00000e60  35 31 32 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |512:.."OS_Sprite|
00000e70  4f 70 22 2c 26 31 32 46  2c 73 70 72 69 74 65 5f  |Op",&12F,sprite_|
00000e80  61 72 65 61 31 25 2c 22  63 61 72 22 2b c3 28 63  |area1%,"car"+.(c|
00000e90  61 72 32 25 29 3a e1 0d  00 80 46 20 f4 20 49 46  |ar2%):....F . IF|
00000ea0  4c 25 3d 36 20 41 4e 44  20 70 61 74 68 25 28 73  |L%=6 AND path%(s|
00000eb0  65 6c 65 63 74 65 64 25  2d 31 29 3d 31 34 3a 50  |elected%-1)=14:P|
00000ec0  52 4f 43 63 6c 65 61 72  5f 63 61 72 73 3a 50 52  |ROCclear_cars:PR|
00000ed0  4f 43 64 65 6c 65 74 65  5f 63 61 72 73 0d 00 81  |OCdelete_cars...|
00000ee0  46 20 f4 20 49 46 4c 25  3d 39 20 41 4e 44 20 70  |F . IFL%=9 AND p|
00000ef0  61 74 68 25 28 73 65 6c  65 63 74 65 64 25 2d 31  |ath%(selected%-1|
00000f00  29 3d 32 33 3a 50 52 4f  43 63 6c 65 61 72 5f 63  |)=23:PROCclear_c|
00000f10  61 72 73 3a 50 52 4f 43  64 65 6c 65 74 65 5f 63  |ars:PROCdelete_c|
00000f20  61 72 73 0d 00 82 35 20  e7 4c 25 3d 32 31 20 84  |ars...5 .L%=21 .|
00000f30  20 4c 25 3d 32 30 20 84  20 4c 25 3d 31 31 20 84  | L%=20 . L%=11 .|
00000f40  20 4c 25 3d 36 20 84 20  4c 25 3d 39 3a f2 63 6c  | L%=6 . L%=9:.cl|
00000f50  65 61 72 5f 63 61 72 73  0d 00 83 3d 20 e7 20 70  |ear_cars...= . p|
00000f60  61 74 68 25 28 73 65 6c  65 63 74 65 64 25 2d 31  |ath%(selected%-1|
00000f70  29 3d 35 35 20 63 61 72  31 25 3d b3 28 33 29 3a  |)=55 car1%=.(3):|
00000f80  63 61 72 31 78 25 3d 2d  36 30 3a 63 61 72 31 79  |car1x%=-60:car1y|
00000f90  25 3d 36 36 30 0d 00 84  8a 20 e7 20 70 61 74 68  |%=660.... . path|
00000fa0  25 28 73 65 6c 65 63 74  65 64 25 2d 31 29 3d 31  |%(selected%-1)=1|
00000fb0  34 20 84 20 70 61 74 68  25 28 73 65 6c 65 63 74  |4 . path%(select|
00000fc0  65 64 25 2d 31 29 3d 32  33 20 84 20 70 61 74 68  |ed%-1)=23 . path|
00000fd0  25 28 73 65 6c 65 63 74  65 64 25 2d 31 29 3d 33  |%(selected%-1)=3|
00000fe0  34 20 84 20 70 61 74 68  25 28 73 65 6c 65 63 74  |4 . path%(select|
00000ff0  65 64 25 2d 31 29 3d 35  32 20 84 20 70 61 74 68  |ed%-1)=52 . path|
00001000  25 28 73 65 6c 65 63 74  65 64 25 2d 31 29 3d 32  |%(selected%-1)=2|
00001010  38 20 3a f2 64 65 6c 65  74 65 5f 63 61 72 73 0d  |8 :.delete_cars.|
00001020  00 85 05 e1 0d 00 86 04  0d 00 87 10 dd f2 63 6c  |..............cl|
00001030  65 61 72 5f 63 61 72 73  0d 00 88 18 e7 63 61 72  |ear_cars.....car|
00001040  31 25 3d 30 20 80 20 63  61 72 32 25 3d 30 20 e1  |1%=0 . car2%=0 .|
00001050  0d 00 89 34 6e 6f 63 61  72 25 3d 31 3a f5 3a f2  |...4nocar%=1:.:.|
00001060  6d 6f 76 65 5f 63 61 72  3a fd 63 61 72 31 25 3d  |move_car:.car1%=|
00001070  30 20 80 20 63 61 72 32  25 3d 30 3a 6e 6f 63 61  |0 . car2%=0:noca|
00001080  72 25 3d 30 0d 00 8a 05  e1 0d 00 8b 04 0d 00 8c  |r%=0............|
00001090  04 0d 00 8d 0f dd f2 61  6e 69 6d 61 74 69 6f 6e  |.......animation|
000010a0  0d 00 8e 0b 74 69 6d 65  25 3d 91 0d 00 8f 1e 20  |....time%=..... |
000010b0  f2 70 61 74 68 5f 66 69  6e 64 65 72 28 73 65 6c  |.path_finder(sel|
000010c0  65 63 74 65 64 25 2d 31  29 0d 00 90 1a 70 73 25  |ected%-1)....ps%|
000010d0  3d 70 61 74 68 25 28 73  65 6c 65 63 74 65 64 25  |=path%(selected%|
000010e0  2d 31 29 0d 00 91 46 70  73 73 25 3d 30 3a e7 70  |-1)...Fpss%=0:.p|
000010f0  73 25 3d 31 35 20 84 20  70 73 25 3d 32 34 20 84  |s%=15 . ps%=24 .|
00001100  20 70 73 25 3d 35 35 20  84 20 70 73 25 3d 35 37  | ps%=55 . ps%=57|
00001110  20 84 20 70 73 25 3d 38  39 20 84 20 70 73 25 3d  | . ps%=89 . ps%=|
00001120  39 30 3a 70 73 73 25 3d  31 0d 00 92 0c 2a 46 58  |90:pss%=1....*FX|
00001130  32 32 39 2c 31 0d 00 93  18 e3 6d 6f 76 65 73 25  |229,1.....moves%|
00001140  3d 31 b8 6e 75 6d 5f 6d  6f 76 65 73 25 0d 00 94  |=1.num_moves%...|
00001150  23 20 e7 61 6d 6f 75 6e  74 25 28 6d 6f 76 65 73  |# .amount%(moves|
00001160  25 29 3c 30 20 f2 73 63  72 6f 6c 6c 3a ed 3a e1  |%)<0 .scroll:.:.|
00001170  0d 00 95 19 e3 66 25 3d  31 b8 61 6d 6f 75 6e 74  |.....f%=1.amount|
00001180  25 28 6d 6f 76 65 73 25  29 0d 00 96 0c 2a 46 58  |%(moves%)....*FX|
00001190  31 31 32 2c 32 0d 00 97  24 20 e7 61 72 6d 25 3d  |112,2...$ .arm%=|
000011a0  33 20 f2 70 61 75 73 65  28 74 69 6d 65 5f 63 6f  |3 .pause(time_co|
000011b0  6e 74 72 6f 6c 25 2d 32  29 0d 00 98 3a 20 c8 99  |ntrol%-2)...: ..|
000011c0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
000011d0  32 32 2c 73 70 72 69 74  65 5f 61 72 65 61 31 25  |22,sprite_area1%|
000011e0  2c 22 73 63 72 6f 6c 6c  32 22 2c 36 34 2c 33 32  |,"scroll2",64,32|
000011f0  30 2c 30 0d 00 99 12 20  e7 70 73 73 25 3d 31 20  |0,0.... .pss%=1 |
00001200  f2 70 61 74 68 0d 00 9a  2e 20 61 78 25 3d 61 78  |.path.... ax%=ax|
00001210  25 2b 67 6f 78 25 28 6d  6f 76 65 73 25 29 3a 61  |%+gox%(moves%):a|
00001220  79 25 3d 61 79 25 2b 67  6f 79 25 28 6d 6f 76 65  |y%=ay%+goy%(move|
00001230  73 25 29 0d 00 9b 3b 20  f4 20 43 4f 4c 4f 55 52  |s%)...; . COLOUR|
00001240  33 3a 50 52 49 4e 54 54  41 42 28 30 2c 30 29 3b  |3:PRINTTAB(0,0);|
00001250  61 78 25 2c 61 79 25 3b  22 20 22 3b 70 61 74 68  |ax%,ay%;" ";path|
00001260  25 28 73 65 6c 65 63 74  65 64 25 2d 31 29 0d 00  |%(selected%-1)..|
00001270  9c 5e 20 f2 73 70 72 69  74 65 5f 70 6c 6f 74 28  |.^ .sprite_plot(|
00001280  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 22 62  |sprite_area1%,"b|
00001290  61 64 22 2b c3 28 62 61  64 25 28 6d 6f 76 65 73  |ad"+.(bad%(moves|
000012a0  25 29 29 2c 61 78 25 2c  61 79 25 2b 31 32 38 2c  |%)),ax%,ay%+128,|
000012b0  31 32 2c 38 2c 31 34 2c  31 35 29 3a 63 64 25 3d  |12,8,14,15):cd%=|
000012c0  62 61 64 25 28 6d 6f 76  65 73 25 29 0d 00 9d 0c  |bad%(moves%)....|
000012d0  2a 46 58 31 31 32 2c 31  0d 00 9e 27 20 42 25 3d  |*FX112,1...' B%=|
000012e0  73 63 72 65 65 6e 5f 74  77 6f 25 3a 43 25 3d 73  |screen_two%:C%=s|
000012f0  63 72 65 65 6e 5f 6f 6e  65 25 3a d6 77 69 7a 0d  |creen_one%:.wiz.|
00001300  00 9f 06 20 ed 0d 00 a0  06 20 ed 0d 00 a1 0d 20  |... ..... ..... |
00001310  2a 46 58 32 32 39 2c 30  0d 00 a2 05 e1 0d 00 a3  |*FX229,0........|
00001320  04 0d 00 a4 0a dd f2 70  61 74 68 0d 00 a5 1b 20  |.......path.... |
00001330  e7 70 73 25 3d 31 35 20  f2 73 71 75 61 73 68 5f  |.ps%=15 .squash_|
00001340  62 61 64 67 65 72 0d 00  a6 1c 20 e7 70 73 25 3d  |badger.... .ps%=|
00001350  32 34 20 f2 73 71 75 61  73 68 5f 62 61 64 67 65  |24 .squash_badge|
00001360  72 32 0d 00 a7 17 20 e7  70 73 25 3d 35 35 20 f2  |r2.... .ps%=55 .|
00001370  63 61 72 5f 6d 6f 76 65  64 0d 00 a8 19 20 e7 70  |car_moved.... .p|
00001380  73 25 3d 35 37 20 f2 73  68 6f 74 5f 62 61 64 67  |s%=57 .shot_badg|
00001390  65 72 0d 00 a9 17 20 e7  70 73 25 3d 38 39 20 f2  |er.... .ps%=89 .|
000013a0  70 6f 69 6e 74 5f 6d 61  6e 0d 00 aa 39 20 e7 70  |point_man...9 .p|
000013b0  73 25 3d 39 30 20 80 20  6d 6f 76 65 73 25 3d 32  |s%=90 . moves%=2|
000013c0  20 80 20 67 6f 5f 66 61  72 6d 25 3d 32 20 f2 70  | . go_farm%=2 .p|
000013d0  61 64 64 79 28 33 29 3a  67 6f 5f 66 61 72 6d 25  |addy(3):go_farm%|
000013e0  3d 33 0d 00 ab 05 e1 0d  00 ac 04 0d 00 ad 04 0d  |=3..............|
000013f0  00 ae 04 0d 00 af 04 0d  00 b0 04 0d 00 b1 10 dd  |................|
00001400  f2 70 61 64 64 79 28 6e  75 25 29 0d 00 b2 9d c8  |.paddy(nu%).....|
00001410  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00001420  31 33 43 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |13C,sprite_area1|
00001430  25 2c 22 73 63 72 6f 6c  6c 32 22 2c 30 3a f2 70  |%,"scroll2",0:.p|
00001440  6c 6f 74 5f 73 70 72 69  74 65 5f 73 63 61 6c 65  |lot_sprite_scale|
00001450  64 28 6d 61 6e 78 25 2d  36 34 2c 6d 61 6e 79 25  |d(manx%-64,many%|
00001460  2d 33 32 30 2c 31 2c 31  2c 31 2c 31 2c 22 6d 61  |-320,1,1,1,1,"ma|
00001470  6e 5f 66 61 72 6d 22 2b  c3 28 6e 75 25 29 29 3a  |n_farm"+.(nu%)):|
00001480  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00001490  26 31 33 43 2c 73 70 72  69 74 65 5f 61 72 65 61  |&13C,sprite_area|
000014a0  31 25 2c 30 2c 30 3a e1  0d 00 b3 04 0d 00 b4 09  |1%,0,0:.........|
000014b0  dd f2 66 6f 78 0d 00 b5  19 ef 32 34 2c 34 30 30  |..fox.....24,400|
000014c0  3b 33 32 30 3b 31 32 31  34 3b 35 30 30 3b 0d 00  |;320;1214;500;..|
000014d0  b6 05 f5 0d 00 b7 13 20  20 66 6f 78 78 25 3d 66  |.......  foxx%=f|
000014e0  6f 78 78 25 2b 34 0d 00  b8 34 20 20 f2 70 6c 6f  |oxx%+4...4  .plo|
000014f0  74 5f 73 70 72 69 74 65  5f 73 63 61 6c 65 64 28  |t_sprite_scaled(|
00001500  66 6f 78 78 25 2c 66 6f  78 79 25 2c 31 2c 31 2c  |foxx%,foxy%,1,1,|
00001510  31 2c 31 2c 22 66 6f 78  22 29 0d 00 b9 0f 20 20  |1,1,"fox")....  |
00001520  f2 70 61 75 73 65 28 31  29 0d 00 ba 10 fd 20 66  |.pause(1)..... f|
00001530  6f 78 78 25 3d 31 33 30  30 0d 00 bb 07 ef 32 36  |oxx%=1300.....26|
00001540  0d 00 bc 05 e1 0d 00 bd  04 0d 00 be 11 dd f2 73  |...............s|
00001550  68 6f 74 5f 62 61 64 67  65 72 0d 00 bf 0f e7 6d  |hot_badger.....m|
00001560  6f 76 65 73 25 3d 31 3a  e1 0d 00 c0 2f f2 70 6c  |oves%=1:..../.pl|
00001570  6f 74 5f 73 70 72 69 74  65 5f 73 63 61 6c 65 64  |ot_sprite_scaled|
00001580  28 36 35 38 2c 35 36 30  2c 31 2c 31 2c 31 2c 31  |(658,560,1,1,1,1|
00001590  2c 22 6d 61 6e 32 22 29  0d 00 c1 47 e7 6d 6f 76  |,"man2")...G.mov|
000015a0  65 73 25 3d 33 3a f2 70  6c 6f 74 5f 73 70 72 69  |es%=3:.plot_spri|
000015b0  74 65 5f 73 63 61 6c 65  64 28 36 32 30 2c 36 38  |te_scaled(620,68|
000015c0  36 2c 31 2c 31 2c 31 2c  31 2c 22 73 68 6f 74 31  |6,1,1,1,1,"shot1|
000015d0  22 29 3a d4 32 2c 2d 31  35 2c 31 30 2c 31 30 0d  |"):.2,-15,10,10.|
000015e0  00 c2 3a e7 6d 6f 76 65  73 25 3d 34 3a f2 70 6c  |..:.moves%=4:.pl|
000015f0  6f 74 5f 73 70 72 69 74  65 5f 73 63 61 6c 65 64  |ot_sprite_scaled|
00001600  28 36 32 30 2c 36 38 36  2c 31 2c 31 2c 31 2c 31  |(620,686,1,1,1,1|
00001610  2c 22 73 68 6f 74 32 22  29 0d 00 c3 47 e7 6d 6f  |,"shot2")...G.mo|
00001620  76 65 73 25 3d 35 3a f2  70 6c 6f 74 5f 73 70 72  |ves%=5:.plot_spr|
00001630  69 74 65 5f 73 63 61 6c  65 64 28 36 32 30 2c 36  |ite_scaled(620,6|
00001640  38 36 2c 31 2c 31 2c 31  2c 31 2c 22 73 68 6f 74  |86,1,1,1,1,"shot|
00001650  31 22 29 3a d4 32 2c 2d  31 35 2c 31 30 2c 31 30  |1"):.2,-15,10,10|
00001660  0d 00 c4 3a e7 6d 6f 76  65 73 25 3d 36 3a f2 70  |...:.moves%=6:.p|
00001670  6c 6f 74 5f 73 70 72 69  74 65 5f 73 63 61 6c 65  |lot_sprite_scale|
00001680  64 28 36 32 30 2c 36 38  36 2c 31 2c 31 2c 31 2c  |d(620,686,1,1,1,|
00001690  31 2c 22 73 68 6f 74 32  22 29 0d 00 c5 05 e1 0d  |1,"shot2")......|
000016a0  00 c6 04 0d 00 c7 0f dd  f2 70 6f 69 6e 74 5f 6d  |.........point_m|
000016b0  61 6e 0d 00 c8 0d f2 73  74 5f 70 61 75 73 65 0d  |an.....st_pause.|
000016c0  00 c9 77 e7 6e 65 77 5f  6c 6f 63 61 74 69 6f 6e  |..w.new_location|
000016d0  25 3d 33 36 20 80 20 67  6f 5f 66 61 72 6d 25 3c  |%=36 . go_farm%<|
000016e0  3e 32 20 80 20 6d 61 6e  78 25 3e 34 30 30 3a 6d  |>2 . manx%>400:m|
000016f0  61 6e 79 25 3d 6d 61 6e  79 25 3a 6d 61 6e 78 25  |any%=many%:manx%|
00001700  3d 6d 61 6e 78 25 2d 38  3a 6d 61 6e 5f 74 79 70  |=manx%-8:man_typ|
00001710  65 25 3d 28 6d 61 6e 5f  74 79 70 65 25 2d 31 29  |e%=(man_type%-1)|
00001720  2a 2d 31 2b 32 3a 8b 3a  f2 65 6e 5f 70 61 75 73  |*-1+2:.:.en_paus|
00001730  65 28 31 29 3a e1 0d 00  ca 48 ef 32 36 3a f2 70  |e(1):....H.26:.p|
00001740  6c 6f 74 5f 73 70 72 69  74 65 5f 73 63 61 6c 65  |lot_sprite_scale|
00001750  64 28 6d 61 6e 78 25 2c  6d 61 6e 79 25 2c 31 2c  |d(manx%,many%,1,|
00001760  31 2c 31 2c 31 2c 22 6d  61 6e 5f 66 61 72 6d 22  |1,1,1,"man_farm"|
00001770  2b c3 28 6d 61 6e 5f 74  79 70 65 25 29 29 0d 00  |+.(man_type%))..|
00001780  cb 11 f2 65 6e 5f 70 61  75 73 65 28 31 30 29 0d  |...en_pause(10).|
00001790  00 cc 05 e1 0d 00 cd 04  0d 00 ce 13 dd f2 73 71  |..............sq|
000017a0  75 61 73 68 5f 62 61 64  67 65 72 0d 00 cf 18 ef  |uash_badger.....|
000017b0  32 34 2c 36 34 3b 33 32  30 3b 31 32 31 36 3b 39  |24,64;320;1216;9|
000017c0  36 30 3b 0d 00 d0 5f e7  63 61 72 31 25 3e 30 20  |60;..._.car1%>0 |
000017d0  63 61 72 31 78 25 3d 63  61 72 31 78 25 2b 32 34  |car1x%=car1x%+24|
000017e0  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
000017f0  2c 26 31 32 32 2c 73 70  72 69 74 65 5f 61 72 65  |,&122,sprite_are|
00001800  61 31 25 2c 22 63 61 72  22 2b c3 28 63 61 72 31  |a1%,"car"+.(car1|
00001810  25 29 2c 63 61 72 31 78  25 2c 63 61 72 31 79 25  |%),car1x%,car1y%|
00001820  2c 30 0d 00 d1 5f e7 63  61 72 32 25 3e 30 20 63  |,0..._.car2%>0 c|
00001830  61 72 32 78 25 3d 63 61  72 32 78 25 2b 32 34 3a  |ar2x%=car2x%+24:|
00001840  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00001850  26 31 32 32 2c 73 70 72  69 74 65 5f 61 72 65 61  |&122,sprite_area|
00001860  31 25 2c 22 63 61 72 22  2b c3 28 63 61 72 32 25  |1%,"car"+.(car2%|
00001870  29 2c 63 61 72 32 78 25  2c 63 61 72 32 79 25 2c  |),car2x%,car2y%,|
00001880  30 0d 00 d2 05 e1 0d 00  d3 04 0d 00 d4 14 dd f2  |0...............|
00001890  73 71 75 61 73 68 5f 62  61 64 67 65 72 32 0d 00  |squash_badger2..|
000018a0  d5 18 ef 32 34 2c 36 34  3b 33 32 30 3b 31 32 31  |...24,64;320;121|
000018b0  36 3b 39 36 30 3b 0d 00  d6 56 63 61 72 32 78 25  |6;960;...Vcar2x%|
000018c0  3d 63 61 72 32 78 25 2d  32 34 3a c8 99 22 4f 53  |=car2x%-24:.."OS|
000018d0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 32 2c  |_SpriteOp",&122,|
000018e0  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 22 63  |sprite_area1%,"c|
000018f0  61 72 22 2b c3 28 63 61  72 32 25 29 2c 63 61 72  |ar"+.(car2%),car|
00001900  32 78 25 2c 63 61 72 32  79 25 2c 30 0d 00 d7 05  |2x%,car2y%,0....|
00001910  e1 0d 00 d8 04 0d 00 d9  0f dd f2 63 61 72 5f 6d  |...........car_m|
00001920  6f 76 65 64 0d 00 da 28  e7 63 61 72 31 78 25 3e  |oved...(.car1x%>|
00001930  31 32 38 30 20 84 20 61  6d 6f 75 6e 74 25 28 6d  |1280 . amount%(m|
00001940  6f 76 65 73 25 29 3c 3e  31 35 3a e1 0d 00 db 0c  |oves%)<>15:.....|
00001950  2a 46 58 31 31 32 2c 31  0d 00 dc 05 f5 0d 00 dd  |*FX112,1........|
00001960  18 ef 32 34 2c 36 34 3b  33 32 30 3b 31 32 31 36  |..24,64;320;1216|
00001970  3b 39 36 30 3b 0d 00 de  2a 20 f5 3a fd 20 74 69  |;960;...* .:. ti|
00001980  6d 65 25 2b 28 74 69 6d  65 5f 63 6f 6e 74 72 6f  |me%+(time_contro|
00001990  6c 25 2f 32 29 3c 91 3a  74 69 6d 65 25 3d 91 0d  |l%/2)<.:time%=..|
000019a0  00 df 56 63 61 72 31 78  25 3d 63 61 72 31 78 25  |..Vcar1x%=car1x%|
000019b0  2b 32 30 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |+20:.."OS_Sprite|
000019c0  4f 70 22 2c 26 31 32 32  2c 73 70 72 69 74 65 5f  |Op",&122,sprite_|
000019d0  61 72 65 61 31 25 2c 22  63 61 72 22 2b c3 28 63  |area1%,"car"+.(c|
000019e0  61 72 31 25 29 2c 63 61  72 31 78 25 2c 63 61 72  |ar1%),car1x%,car|
000019f0  31 79 25 2c 30 0d 00 e0  10 fd 63 61 72 31 78 25  |1y%,0.....car1x%|
00001a00  3e 31 32 38 30 0d 00 e1  10 f2 64 65 6c 65 74 65  |>1280.....delete|
00001a10  5f 63 61 72 73 0d 00 e2  0f 61 79 25 3d 61 79 25  |_cars....ay%=ay%|
00001a20  2b 33 32 30 0d 00 e3 0c  2a 46 58 31 31 32 2c 32  |+320....*FX112,2|
00001a30  0d 00 e4 05 e1 0d 00 e5  04 0d 00 e6 0f dd f2 73  |...............s|
00001a40  68 6f 74 5f 64 65 61 64  0d 00 e7 1a f2 6d 65 72  |hot_dead.....mer|
00001a50  67 65 5f 73 70 72 69 74  65 28 22 64 65 61 74 68  |ge_sprite("death|
00001a60  22 29 0d 00 e8 0c 2a 46  58 31 31 32 2c 32 0d 00  |")....*FX112,2..|
00001a70  e9 26 ef 32 34 2c 36 34  3b 33 32 30 3b 31 32 31  |.&.24,64;320;121|
00001a80  36 3b 39 36 30 3b 31 38  2c 30 2c 31 32 38 2c 31  |6;960;18,0,128,1|
00001a90  36 2c 32 36 0d 00 ea 30  f2 70 6c 6f 74 5f 73 70  |6,26...0.plot_sp|
00001aa0  72 69 74 65 5f 73 63 61  6c 65 64 28 36 37 30 2c  |rite_scaled(670,|
00001ab0  34 30 30 2c 31 2c 31 2c  31 2c 31 2c 22 64 65 61  |400,1,1,1,1,"dea|
00001ac0  74 68 22 29 0d 00 eb 4a  f2 70 72 69 32 28 31 32  |th")...J.pri2(12|
00001ad0  38 2c 38 30 30 2c 30 2c  31 2c 31 32 38 2c 31 2c  |8,800,0,1,128,1,|
00001ae0  22 42 61 64 67 65 72 73  20 61 72 65 20 72 61 72  |"Badgers are rar|
00001af0  65 6c 79 20 73 68 6f 74  2c 20 20 62 75 74 20 79  |ely shot,  but y|
00001b00  6f 75 20 68 61 76 65 20  62 65 65 6e 22 29 0d 00  |ou have been")..|
00001b10  ec 3e f2 70 72 69 32 28  31 32 38 2c 37 34 30 2c  |.>.pri2(128,740,|
00001b20  30 2c 31 2c 31 32 38 2c  31 2c 22 75 6e 6c 75 63  |0,1,128,1,"unluc|
00001b30  6b 79 2e 20 20 59 6f 75  20 68 61 76 65 20 6c 6f  |ky.  You have lo|
00001b40  73 74 20 61 20 6c 69 66  65 21 22 29 0d 00 ed 45  |st a life!")...E|
00001b50  f2 70 72 69 32 28 31 32  38 2c 36 38 30 2c 30 2c  |.pri2(128,680,0,|
00001b60  31 2c 31 32 38 2c 31 2c  22 47 6f 20 62 61 63 6b  |1,128,1,"Go back|
00001b70  20 61 6e 64 20 63 6f 6e  74 69 6e 75 65 20 79 6f  | and continue yo|
00001b80  75 72 20 6a 6f 75 72 6e  65 79 20 6d 6f 72 65 22  |ur journey more"|
00001b90  29 0d 00 ee 29 f2 70 72  69 32 28 31 32 38 2c 36  |)...).pri2(128,6|
00001ba0  32 30 2c 30 2c 31 2c 31  32 38 2c 31 2c 22 63 61  |20,0,1,128,1,"ca|
00001bb0  72 65 66 75 6c 6c 79 2e  22 29 0d 00 ef 0c 2a 46  |refully.")....*F|
00001bc0  58 31 31 32 2c 31 0d 00  f0 0f f2 70 61 75 73 65  |X112,1.....pause|
00001bd0  28 31 30 30 29 0d 00 f1  2b f2 65 78 70 6c 6f 64  |(100)...+.explod|
00001be0  65 5f 6d 65 72 67 65 28  73 63 72 65 65 6e 5f 6f  |e_merge(screen_o|
00001bf0  6e 65 25 2c 73 63 72 65  65 6e 5f 74 77 6f 25 29  |ne%,screen_two%)|
00001c00  0d 00 f2 11 f2 62 6f 74  74 6f 6d 5f 66 72 61 6d  |.....bottom_fram|
00001c10  65 0d 00 f3 0f f2 63 6c  65 61 72 5f 74 65 78 74  |e.....clear_text|
00001c20  0d 00 f4 0a f2 73 70 61  63 65 0d 00 f5 11 f2 64  |.....space.....d|
00001c30  65 6c 65 74 65 5f 64 65  61 74 68 0d 00 f6 15 e7  |elete_death.....|
00001c40  53 25 3d 31 20 f2 65 6e  64 5f 69 74 5f 61 6c 6c  |S%=1 .end_it_all|
00001c50  0d 00 f7 10 53 25 3d 53  25 2d 31 3a 4c 25 3d 31  |....S%=S%-1:L%=1|
00001c60  0d 00 f8 05 f9 0d 00 f9  04 0d 00 fa 14 dd f2 64  |...............d|
00001c70  72 6f 77 6e 65 64 5f 62  61 64 67 65 72 0d 00 fb  |rowned_badger...|
00001c80  1a f2 6d 65 72 67 65 5f  73 70 72 69 74 65 28 22  |..merge_sprite("|
00001c90  64 65 61 74 68 22 29 0d  00 fc 0c 2a 46 58 31 31  |death")....*FX11|
00001ca0  32 2c 32 0d 00 fd 26 ef  32 34 2c 36 34 3b 33 32  |2,2...&.24,64;32|
00001cb0  30 3b 31 32 31 36 3b 39  36 30 3b 31 38 2c 30 2c  |0;1216;960;18,0,|
00001cc0  31 32 38 2c 31 36 2c 32  36 0d 00 fe 3a f2 70 72  |128,16,26...:.pr|
00001cd0  69 32 28 31 32 38 2c 38  30 30 2c 30 2c 31 2c 31  |i2(128,800,0,1,1|
00001ce0  32 38 2c 31 2c 22 42 61  64 67 65 72 73 20 63 61  |28,1,"Badgers ca|
00001cf0  6e 20 73 77 69 6d 2c 20  20 62 75 74 20 74 68 69  |n swim,  but thi|
00001d00  73 22 29 0d 00 ff 3b f2  70 72 69 32 28 31 32 38  |s")...;.pri2(128|
00001d10  2c 37 34 30 2c 30 2c 31  2c 31 32 38 2c 31 2c 22  |,740,0,1,128,1,"|
00001d20  73 74 72 65 61 6d 20 69  73 20 76 65 72 79 20 66  |stream is very f|
00001d30  61 73 74 20 66 6c 6f 77  69 6e 67 2e 22 29 0d 01  |ast flowing.")..|
00001d40  00 34 f2 70 72 69 32 28  31 32 38 2c 36 38 30 2c  |.4.pri2(128,680,|
00001d50  30 2c 31 2c 31 32 38 2c  31 2c 22 59 6f 75 20 68  |0,1,128,1,"You h|
00001d60  61 76 65 20 6c 6f 73 74  20 61 20 6c 69 66 65 21  |ave lost a life!|
00001d70  22 29 0d 01 01 38 f2 70  72 69 32 28 31 32 38 2c  |")...8.pri2(128,|
00001d80  36 32 30 2c 30 2c 31 2c  31 32 38 2c 31 2c 22 47  |620,0,1,128,1,"G|
00001d90  6f 20 62 61 63 6b 20 61  6e 64 20 63 6f 6e 74 69  |o back and conti|
00001da0  6e 75 65 20 79 6f 75 72  22 29 0d 01 02 36 f2 70  |nue your")...6.p|
00001db0  72 69 32 28 31 32 38 2c  35 36 30 2c 30 2c 31 2c  |ri2(128,560,0,1,|
00001dc0  31 32 38 2c 31 2c 22 6a  6f 75 72 6e 65 79 20 6d  |128,1,"journey m|
00001dd0  6f 72 65 20 63 61 72 65  66 75 6c 6c 79 2e 22 29  |ore carefully.")|
00001de0  0d 01 03 33 f2 70 6c 6f  74 5f 73 70 72 69 74 65  |...3.plot_sprite|
00001df0  5f 73 63 61 6c 65 64 28  38 30 30 2c 35 34 30 2c  |_scaled(800,540,|
00001e00  31 2c 31 2c 31 2c 31 2c  22 72 69 76 64 65 61 74  |1,1,1,1,"rivdeat|
00001e10  68 22 29 0d 01 04 0c 2a  46 58 31 31 32 2c 31 0d  |h")....*FX112,1.|
00001e20  01 05 0f f2 70 61 75 73  65 28 31 30 30 29 0d 01  |....pause(100)..|
00001e30  06 2b f2 65 78 70 6c 6f  64 65 5f 6d 65 72 67 65  |.+.explode_merge|
00001e40  28 73 63 72 65 65 6e 5f  6f 6e 65 25 2c 73 63 72  |(screen_one%,scr|
00001e50  65 65 6e 5f 74 77 6f 25  29 0d 01 07 11 f2 62 6f  |een_two%).....bo|
00001e60  74 74 6f 6d 5f 66 72 61  6d 65 0d 01 08 0f f2 63  |ttom_frame.....c|
00001e70  6c 65 61 72 5f 74 65 78  74 0d 01 09 0a f2 73 70  |lear_text.....sp|
00001e80  61 63 65 0d 01 0a 11 f2  64 65 6c 65 74 65 5f 64  |ace.....delete_d|
00001e90  65 61 74 68 0d 01 0b 15  e7 53 25 3d 31 20 f2 65  |eath.....S%=1 .e|
00001ea0  6e 64 5f 69 74 5f 61 6c  6c 0d 01 0c 10 53 25 3d  |nd_it_all....S%=|
00001eb0  53 25 2d 31 3a 4c 25 3d  31 0d 01 0d 05 f9 0d 01  |S%-1:L%=1.......|
00001ec0  0e 04 0d 01 0f 04 0d 01  10 11 dd f2 65 6e 64 5f  |............end_|
00001ed0  62 61 64 67 65 72 31 0d  01 11 0b e3 66 25 3d 31  |badger1.....f%=1|
00001ee0  b8 35 0d 01 12 26 20 f5  3a fd 20 74 69 6d 65 25  |.5...& .:. time%|
00001ef0  2b 74 69 6d 65 5f 63 6f  6e 74 72 6f 6c 25 3c 91  |+time_control%<.|
00001f00  3a 74 69 6d 65 25 3d 91  0d 01 13 0c 2a 46 58 31  |:time%=.....*FX1|
00001f10  31 32 2c 32 0d 01 14 3a  20 c8 99 22 4f 53 5f 53  |12,2...: .."OS_S|
00001f20  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 73 70  |priteOp",&122,sp|
00001f30  72 69 74 65 5f 61 72 65  61 31 25 2c 22 73 63 72  |rite_area1%,"scr|
00001f40  6f 6c 6c 32 22 2c 36 34  2c 33 32 30 2c 30 0d 01  |oll2",64,320,0..|
00001f50  15 2a 20 e7 70 61 74 68  25 28 73 65 6c 65 63 74  |.* .path%(select|
00001f60  65 64 25 2d 31 29 3d 31  35 20 f2 73 71 75 61 73  |ed%-1)=15 .squas|
00001f70  68 5f 62 61 64 67 65 72  0d 01 16 2b 20 e7 70 61  |h_badger...+ .pa|
00001f80  74 68 25 28 73 65 6c 65  63 74 65 64 25 2d 31 29  |th%(selected%-1)|
00001f90  3d 32 34 20 f2 73 71 75  61 73 68 5f 62 61 64 67  |=24 .squash_badg|
00001fa0  65 72 32 0d 01 17 0c 2a  46 58 31 31 32 2c 31 0d  |er2....*FX112,1.|
00001fb0  01 18 27 20 42 25 3d 73  63 72 65 65 6e 5f 74 77  |..' B%=screen_tw|
00001fc0  6f 25 3a 43 25 3d 73 63  72 65 65 6e 5f 6f 6e 65  |o%:C%=screen_one|
00001fd0  25 3a d6 77 69 7a 0d 01  19 06 20 ed 0d 01 1a 1e  |%:.wiz.... .....|
00001fe0  20 f2 63 6c 65 61 72 5f  74 65 78 74 3a f2 62 6f  | .clear_text:.bo|
00001ff0  74 74 6f 6d 5f 66 72 61  6d 65 0d 01 1b 0c 2a 46  |ttom_frame....*F|
00002000  58 31 31 32 2c 32 0d 01  1c 26 ef 32 34 2c 36 34  |X112,2...&.24,64|
00002010  3b 33 32 30 3b 31 32 31  36 3b 39 36 30 3b 31 38  |;320;1216;960;18|
00002020  2c 30 2c 31 32 38 2c 31  36 2c 32 36 0d 01 1d 1a  |,0,128,16,26....|
00002030  f2 6d 65 72 67 65 5f 73  70 72 69 74 65 28 22 64  |.merge_sprite("d|
00002040  65 61 74 68 22 29 0d 01  1e 30 f2 70 6c 6f 74 5f  |eath")...0.plot_|
00002050  73 70 72 69 74 65 5f 73  63 61 6c 65 64 28 36 37  |sprite_scaled(67|
00002060  30 2c 34 30 30 2c 31 2c  31 2c 31 2c 31 2c 22 64  |0,400,1,1,1,1,"d|
00002070  65 61 74 68 22 29 0d 01  1f 46 f2 70 72 69 32 28  |eath")...F.pri2(|
00002080  31 32 38 2c 38 36 30 2c  30 2c 31 2c 31 32 38 2c  |128,860,0,1,128,|
00002090  31 2c 22 54 68 6f 75 73  61 6e 64 73 20 6f 66 20  |1,"Thousands of |
000020a0  62 61 64 67 65 72 73 20  61 72 65 20 6b 69 6c 6c  |badgers are kill|
000020b0  65 64 20 62 79 20 63 61  72 73 22 29 0d 01 20 46  |ed by cars").. F|
000020c0  f2 70 72 69 32 28 31 32  38 2c 38 30 30 2c 30 2c  |.pri2(128,800,0,|
000020d0  31 2c 31 32 38 2c 31 2c  22 65 61 63 68 20 79 65  |1,128,1,"each ye|
000020e0  61 72 2e 20 20 43 61 6e  20 79 6f 75 20 66 69 6e  |ar.  Can you fin|
000020f0  64 20 61 20 73 61 66 65  72 20 77 61 79 20 74 6f  |d a safer way to|
00002100  22 29 0d 01 21 40 f2 70  72 69 32 28 31 32 38 2c  |")..!@.pri2(128,|
00002110  37 34 30 2c 30 2c 31 2c  31 32 38 2c 31 2c 22 72  |740,0,1,128,1,"r|
00002120  65 61 63 68 20 74 68 65  20 6f 74 68 65 72 20 73  |each the other s|
00002130  69 64 65 20 6f 66 20 74  68 65 20 72 6f 61 64 3f  |ide of the road?|
00002140  22 29 0d 01 22 45 f2 70  72 69 32 28 31 32 38 2c  |").."E.pri2(128,|
00002150  36 34 30 2c 30 2c 31 2c  31 32 38 2c 31 2c 22 47  |640,0,1,128,1,"G|
00002160  6f 20 62 61 63 6b 20 61  6e 64 20 63 6f 6e 74 69  |o back and conti|
00002170  6e 75 65 20 79 6f 75 72  20 6a 6f 75 72 6e 65 79  |nue your journey|
00002180  20 6d 6f 72 65 22 29 0d  01 23 29 f2 70 72 69 32  | more")..#).pri2|
00002190  28 31 32 38 2c 35 38 30  2c 30 2c 31 2c 31 32 38  |(128,580,0,1,128|
000021a0  2c 31 2c 22 63 61 72 65  66 75 6c 6c 79 2e 22 29  |,1,"carefully.")|
000021b0  0d 01 24 0c 2a 46 58 31  31 32 2c 31 0d 01 25 0f  |..$.*FX112,1..%.|
000021c0  f2 70 61 75 73 65 28 31  30 30 29 0d 01 26 2b f2  |.pause(100)..&+.|
000021d0  65 78 70 6c 6f 64 65 5f  6d 65 72 67 65 28 73 63  |explode_merge(sc|
000021e0  72 65 65 6e 5f 6f 6e 65  25 2c 73 63 72 65 65 6e  |reen_one%,screen|
000021f0  5f 74 77 6f 25 29 0d 01  27 11 f2 62 6f 74 74 6f  |_two%)..'..botto|
00002200  6d 5f 66 72 61 6d 65 0d  01 28 0f f2 63 6c 65 61  |m_frame..(..clea|
00002210  72 5f 74 65 78 74 0d 01  29 0a f2 73 70 61 63 65  |r_text..)..space|
00002220  0d 01 2a 11 f2 64 65 6c  65 74 65 5f 64 65 61 74  |..*..delete_deat|
00002230  68 0d 01 2b 15 e7 53 25  3d 31 3a f2 65 6e 64 5f  |h..+..S%=1:.end_|
00002240  69 74 5f 61 6c 6c 0d 01  2c 10 53 25 3d 53 25 2d  |it_all..,.S%=S%-|
00002250  31 3a 4c 25 3d 31 0d 01  2d 05 f9 0d 01 2e 04 0d  |1:L%=1..-.......|
00002260  01 2f 20 dd f2 73 65 6c  65 63 74 5f 61 6e 69 6d  |./ ..select_anim|
00002270  5f 70 6f 73 28 62 6f 74  25 2c 74 6f 70 25 29 0d  |_pos(bot%,top%).|
00002280  01 30 09 f7 8d 44 4e 41  0d 01 31 28 e3 66 25 3d  |.0...DNA..1(.f%=|
00002290  62 6f 74 25 20 b8 20 74  6f 70 25 3a 61 6e 69 6d  |bot% . top%:anim|
000022a0  5f 61 74 5f 6c 25 28 66  25 2c 30 29 3d 30 3a ed  |_at_l%(f%,0)=0:.|
000022b0  0d 01 32 13 e3 66 25 3d  62 6f 74 25 20 b8 20 74  |..2..f%=bot% . t|
000022c0  6f 70 25 0d 01 33 12 f3  70 6f 73 5f 74 79 70 65  |op%..3..pos_type|
000022d0  25 28 66 25 29 0d 01 34  05 ed 0d 01 35 17 f4 20  |%(f%)..4....5.. |
000022e0  61 6e 69 6d 5f 61 74 5f  6c 25 28 31 2c 30 29 3d  |anim_at_l%(1,0)=|
000022f0  31 0d 01 36 17 f4 20 61  6e 69 6d 5f 61 74 5f 6c  |1..6.. anim_at_l|
00002300  25 28 31 2c 31 29 3d 36  0d 01 37 17 f4 20 61 6e  |%(1,1)=6..7.. an|
00002310  69 6d 5f 61 74 5f 6c 25  28 31 2c 32 29 3d 30 0d  |im_at_l%(1,2)=0.|
00002320  01 38 17 f4 20 61 6e 69  6d 5f 61 74 5f 6c 25 28  |.8.. anim_at_l%(|
00002330  31 2c 33 29 3d 30 0d 01  39 17 f4 20 61 6e 69 6d  |1,3)=0..9.. anim|
00002340  5f 61 74 5f 6c 25 28 31  2c 34 29 3d 30 0d 01 3a  |_at_l%(1,4)=0..:|
00002350  17 f4 20 61 6e 69 6d 5f  61 74 5f 6c 25 28 31 2c  |.. anim_at_l%(1,|
00002360  35 29 3d 30 0d 01 3b 48  f4 20 61 6e 69 6d 5f 61  |5)=0..;H. anim_a|
00002370  74 5f 6c 25 28 31 2c 36  29 3d 32 3a 52 45 4d 20  |t_l%(1,6)=2:REM |
00002380  63 6f 64 65 20 75 73 65  64 20 74 6f 20 73 65 74  |code used to set|
00002390  20 74 79 70 65 20 6f 66  20 73 65 6e 73 65 73 20  | type of senses |
000023a0  74 68 61 74 20 61 70 70  65 61 72 2e 0d 01 3c 34  |that appear...<4|
000023b0  f2 73 65 74 5f 61 6e 5f  70 6f 73 28 31 2c 31 36  |.set_an_pos(1,16|
000023c0  2c 31 35 2c 31 35 2c 30  2c 30 2c 32 29 20 3a f4  |,15,15,0,0,2) :.|
000023d0  20 32 3d 72 61 62 62 69  74 20 65 73 63 61 70 65  | 2=rabbit escape|
000023e0  0d 01 3d 3f e7 20 28 56  25 20 80 20 34 29 3d 30  |..=?. (V% . 4)=0|
000023f0  20 f2 73 65 74 5f 61 6e  5f 70 6f 73 28 31 2c 36  | .set_an_pos(1,6|
00002400  2c 31 35 2c 31 35 2c 30  2c 30 2c 36 29 20 20 3a  |,15,15,0,0,6)  :|
00002410  f4 20 36 3d 72 61 62 62  69 74 20 68 6f 6c 65 0d  |. 6=rabbit hole.|
00002420  01 3e 38 e7 20 28 56 25  20 80 20 31 29 3d 30 20  |.>8. (V% . 1)=0 |
00002430  f2 73 65 74 5f 61 6e 5f  70 6f 73 28 31 2c 31 2c  |.set_an_pos(1,1,|
00002440  32 2c 30 2c 30 2c 30 2c  31 29 20 20 20 20 3a f4  |2,0,0,0,1)    :.|
00002450  20 31 3d 64 75 6e 67 0d  01 3f 41 e7 20 62 6f 74  | 1=dung..?A. bot|
00002460  25 3d 31 20 80 20 28 56  25 20 80 20 31 29 3d 30  |%=1 . (V% . 1)=0|
00002470  20 f2 73 65 74 5f 61 6e  5f 70 6f 73 28 31 2c 31  | .set_an_pos(1,1|
00002480  2c 32 2c 30 2c 30 2c 30  2c 31 29 20 20 20 20 3a  |,2,0,0,0,1)    :|
00002490  f4 20 31 3d 64 75 6e 67  0d 01 40 38 e7 20 28 56  |. 1=dung..@8. (V|
000024a0  25 20 80 20 38 29 3d 30  20 f2 73 65 74 5f 61 6e  |% . 8)=0 .set_an|
000024b0  5f 70 6f 73 28 33 2c 30  2c 31 37 2c 31 37 2c 30  |_pos(3,0,17,17,0|
000024c0  2c 30 2c 33 29 20 20 3a  f4 20 33 3d 66 72 6f 67  |,0,3)  :. 3=frog|
000024d0  0d 01 41 37 e7 20 62 6f  74 25 3d 31 20 f2 73 65  |..A7. bot%=1 .se|
000024e0  74 5f 61 6e 5f 70 6f 73  28 31 35 2c 30 2c 31 32  |t_an_pos(15,0,12|
000024f0  2c 30 2c 30 2c 30 2c 34  29 20 20 20 3a f4 20 34  |,0,0,0,4)   :. 4|
00002500  3d 70 6f 69 73 6f 6e 0d  01 42 38 e7 20 28 56 25  |=poison..B8. (V%|
00002510  20 80 20 32 29 3d 30 20  f2 73 65 74 5f 61 6e 5f  | . 2)=0 .set_an_|
00002520  70 6f 73 28 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |pos(1,0,0,0,0,0,|
00002530  35 29 20 20 20 20 3a f4  20 35 3d 77 6f 72 6d 0d  |5)    :. 5=worm.|
00002540  01 43 41 e7 20 62 6f 74  25 3d 31 20 80 20 28 56  |.CA. bot%=1 . (V|
00002550  25 20 80 20 32 29 3d 30  20 f2 73 65 74 5f 61 6e  |% . 2)=0 .set_an|
00002560  5f 70 6f 73 28 31 2c 30  2c 30 2c 30 2c 30 2c 30  |_pos(1,0,0,0,0,0|
00002570  2c 35 29 20 20 20 20 3a  f4 20 35 3d 77 6f 72 6d  |,5)    :. 5=worm|
00002580  0d 01 44 39 e7 20 28 56  25 20 80 20 31 36 29 3d  |..D9. (V% . 16)=|
00002590  30 20 f2 73 65 74 5f 61  6e 5f 70 6f 73 28 31 2c  |0 .set_an_pos(1,|
000025a0  30 2c 30 2c 30 2c 30 2c  30 2c 37 29 20 20 20 20  |0,0,0,0,0,7)    |
000025b0  3a f4 20 37 3d 62 75 6c  62 0d 01 45 42 e7 20 62  |:. 7=bulb..EB. b|
000025c0  6f 74 25 3d 31 20 80 20  28 56 25 20 80 20 31 36  |ot%=1 . (V% . 16|
000025d0  29 3d 30 20 f2 73 65 74  5f 61 6e 5f 70 6f 73 28  |)=0 .set_an_pos(|
000025e0  31 2c 30 2c 30 2c 30 2c  30 2c 30 2c 37 29 20 20  |1,0,0,0,0,0,7)  |
000025f0  20 20 3a f4 20 37 3d 62  75 6c 62 0d 01 46 3b e7  |  :. 7=bulb..F;.|
00002600  20 28 56 25 20 80 20 33  32 29 3d 30 20 f2 73 65  | (V% . 32)=0 .se|
00002610  74 5f 61 6e 5f 70 6f 73  28 31 34 2c 30 2c 30 2c  |t_an_pos(14,0,0,|
00002620  30 2c 30 2c 30 2c 39 29  20 20 20 3a f4 20 39 3d  |0,0,0,9)   :. 9=|
00002630  73 70 69 64 65 72 0d 01  47 33 e7 20 62 6f 74 25  |spider..G3. bot%|
00002640  3d 31 20 f2 73 65 74 5f  61 6e 5f 70 6f 73 28 38  |=1 .set_an_pos(8|
00002650  2c 30 2c 32 32 2c 32 32  2c 30 2c 30 2c 38 29 20  |,0,22,22,0,0,8) |
00002660  20 3a f4 20 38 3d 6d 61  6e 0d 01 48 33 e7 20 62  | :. 8=man..H3. b|
00002670  6f 74 25 3d 31 20 f2 73  65 74 5f 61 6e 5f 70 6f  |ot%=1 .set_an_po|
00002680  73 28 38 2c 30 2c 32 32  2c 32 32 2c 30 2c 30 2c  |s(8,0,22,22,0,0,|
00002690  38 29 20 20 3a f4 20 38  3d 6d 61 6e 0d 01 49 05  |8)  :. 8=man..I.|
000026a0  e1 0d 01 4a 04 0d 01 4b  4b f4 20 31 3d 67 72 61  |...J...KK. 1=gra|
000026b0  73 73 20 32 3d 72 6f 61  64 20 33 3d 77 61 74 65  |ss 2=road 3=wate|
000026c0  72 20 34 3d 73 74 6f 6e  65 20 35 3d 62 75 73 68  |r 4=stone 5=bush|
000026d0  20 36 3d 74 75 6e 6e 65  6c 20 37 3d 66 6f 72 65  | 6=tunnel 7=fore|
000026e0  73 74 20 38 3d 67 72 61  73 73 20 62 6c 61 6e 6b  |st 8=grass blank|
000026f0  0d 01 4c 49 f4 20 39 3d  66 6f 78 65 73 20 31 30  |..LI. 9=foxes 10|
00002700  3d 66 6f 72 65 73 74 20  74 72 61 63 6b 20 31 31  |=forest track 11|
00002710  3d 67 65 6e 72 61 6c 20  66 6f 72 65 73 74 20 31  |=genral forest 1|
00002720  32 3d 65 6d 70 74 79 20  68 6f 6c 65 20 31 33 3d  |2=empty hole 13=|
00002730  73 65 6d 69 20 6f 70 65  6e 0d 01 4d 26 f4 20 31  |semi open..M&. 1|
00002740  34 3d 77 61 6c 6c 20 73  70 69 64 65 72 20 31 35  |4=wall spider 15|
00002750  3d 70 6f 69 73 6f 6e 65  64 20 77 61 74 65 72 0d  |=poisoned water.|
00002760  01 4e 1a dc 20 38 2c 31  2c 31 2c 31 2c 31 2c 32  |.N.. 8,1,1,1,1,2|
00002770  2c 31 35 2c 31 2c 32 2c  31 0d 01 4f 1a dc 20 31  |,15,1,2,1..O.. 1|
00002780  34 2c 31 2c 33 2c 33 2c  38 2c 38 2c 31 2c 35 2c  |4,1,3,3,8,8,1,5,|
00002790  33 2c 34 0d 01 50 20 dc  20 36 2c 37 2c 39 2c 31  |3,4..P . 6,7,9,1|
000027a0  31 2c 31 30 2c 31 31 2c  31 30 2c 31 30 2c 31 31  |1,10,11,10,10,11|
000027b0  2c 31 31 0d 01 51 21 dc  20 31 31 2c 31 31 2c 31  |,11..Q!. 11,11,1|
000027c0  31 2c 35 2c 31 30 2c 31  30 2c 31 31 2c 31 31 2c  |1,5,10,10,11,11,|
000027d0  31 31 2c 33 0d 01 52 0b  dc 20 31 33 2c 31 33 0d  |11,3..R.. 13,13.|
000027e0  01 53 04 0d 01 54 2c dd  f2 73 65 74 5f 61 6e 5f  |.S...T,..set_an_|
000027f0  70 6f 73 28 74 79 70 65  25 2c 61 25 2c 62 25 2c  |pos(type%,a%,b%,|
00002800  63 25 2c 64 25 2c 65 25  2c 63 6f 64 65 25 29 0d  |c%,d%,e%,code%).|
00002810  01 55 05 f5 0d 01 56 2b  72 6e 64 25 3d b3 28 74  |.U....V+rnd%=.(t|
00002820  6f 74 61 6c 5f 6c 6f 63  61 74 69 6f 6e 73 25 29  |otal_locations%)|
00002830  3a e7 72 6e 64 25 3d 31  20 e5 20 8d 44 56 41 0d  |:.rnd%=1 . .DVA.|
00002840  01 57 32 fd 20 61 6e 69  6d 5f 61 74 5f 6c 25 28  |.W2. anim_at_l%(|
00002850  72 6e 64 25 2c 30 29 3d  30 20 80 20 70 6f 73 5f  |rnd%,0)=0 . pos_|
00002860  74 79 70 65 25 28 72 6e  64 25 29 3d 74 79 70 65  |type%(rnd%)=type|
00002870  25 0d 01 58 18 61 6e 69  6d 5f 61 74 5f 6c 25 28  |%..X.anim_at_l%(|
00002880  72 6e 64 25 2c 30 29 3d  31 0d 01 59 19 61 6e 69  |rnd%,0)=1..Y.ani|
00002890  6d 5f 61 74 5f 6c 25 28  72 6e 64 25 2c 31 29 3d  |m_at_l%(rnd%,1)=|
000028a0  61 25 0d 01 5a 19 61 6e  69 6d 5f 61 74 5f 6c 25  |a%..Z.anim_at_l%|
000028b0  28 72 6e 64 25 2c 32 29  3d 62 25 0d 01 5b 19 61  |(rnd%,2)=b%..[.a|
000028c0  6e 69 6d 5f 61 74 5f 6c  25 28 72 6e 64 25 2c 33  |nim_at_l%(rnd%,3|
000028d0  29 3d 63 25 0d 01 5c 19  61 6e 69 6d 5f 61 74 5f  |)=c%..\.anim_at_|
000028e0  6c 25 28 72 6e 64 25 2c  34 29 3d 64 25 0d 01 5d  |l%(rnd%,4)=d%..]|
000028f0  19 61 6e 69 6d 5f 61 74  5f 6c 25 28 72 6e 64 25  |.anim_at_l%(rnd%|
00002900  2c 35 29 3d 65 25 0d 01  5e 4c 61 6e 69 6d 5f 61  |,5)=e%..^Lanim_a|
00002910  74 5f 6c 25 28 72 6e 64  25 2c 36 29 3d 63 6f 64  |t_l%(rnd%,6)=cod|
00002920  65 25 20 3a f4 20 63 6f  64 65 20 75 73 65 64 20  |e% :. code used |
00002930  74 6f 20 73 65 74 20 74  79 70 65 20 6f 66 20 73  |to set type of s|
00002940  65 6e 73 65 73 20 74 68  61 74 20 61 70 70 65 61  |enses that appea|
00002950  72 2e 0d 01 5f 05 e1 0d  01 60 04 0d 01 61 20 dd  |r..._....`...a .|
00002960  f2 6c 6f 63 61 74 69 6f  6e 5f 66 69 6e 64 65 72  |.location_finder|
00002970  28 6c 6f 63 61 74 69 6f  6e 25 29 0d 01 62 09 f7  |(location%)..b..|
00002980  8d 44 7d 41 0d 01 63 1b  e3 6c 6f 63 66 69 6e 64  |.D}A..c..locfind|
00002990  25 3d 31 20 b8 20 6c 6f  63 61 74 69 6f 6e 25 0d  |%=1 . location%.|
000029a0  01 64 95 f3 20 6c 6f 63  25 2c 73 63 72 65 65 6e  |.d.. loc%,screen|
000029b0  5f 6c 6f 61 64 65 64 25  2c 6e 61 78 25 2c 6e 61  |_loaded%,nax%,na|
000029c0  79 25 2c 73 69 67 68 74  25 2c 73 6d 65 6c 6c 25  |y%,sight%,smell%|
000029d0  2c 68 65 61 72 69 6e 67  25 2c 74 6f 75 63 68 25  |,hearing%,touch%|
000029e0  2c 74 61 73 74 65 25 2c  70 61 74 68 25 28 30 29  |,taste%,path%(0)|
000029f0  2c 70 61 74 68 25 28 31  29 2c 70 61 74 68 25 28  |,path%(1),path%(|
00002a00  32 29 2c 70 61 74 68 25  28 33 29 2c 70 61 74 68  |2),path%(3),path|
00002a10  25 28 34 29 2c 70 61 74  68 25 28 35 29 2c 70 61  |%(4),path%(5),pa|
00002a20  74 68 25 28 36 29 2c 70  61 74 68 25 28 37 29 2c  |th%(6),path%(7),|
00002a30  72 75 6e 25 0d 01 65 05  ed 0d 01 66 25 72 65 5f  |run%..e....f%re_|
00002a40  73 69 67 68 74 25 3d 73  69 67 68 74 25 3a 72 65  |sight%=sight%:re|
00002a50  5f 73 6d 65 6c 6c 25 3d  73 6d 65 6c 6c 25 0d 01  |_smell%=smell%..|
00002a60  67 0b 63 6f 64 65 25 3d  30 0d 01 68 2f e7 4c 25  |g.code%=0..h/.L%|
00002a70  3d 31 36 20 80 20 52 25  3d 33 20 80 20 51 25 3d  |=16 . R%=3 . Q%=|
00002a80  31 3a 73 6d 65 6c 6c 25  3d 32 3a 72 65 5f 73 6d  |1:smell%=2:re_sm|
00002a90  65 6c 6c 25 3d 32 3a e1  0d 01 69 35 e7 4c 25 3d  |ell%=2:...i5.L%=|
00002aa0  31 36 20 80 20 28 52 25  3c 3e 33 20 84 20 51 25  |16 . (R%<>3 . Q%|
00002ab0  3c 3e 31 29 3a 73 6d 65  6c 6c 25 3d 32 32 3a 72  |<>1):smell%=22:r|
00002ac0  65 5f 73 6d 65 6c 6c 25  3d 32 32 3a e1 0d 01 6a  |e_smell%=22:...j|
00002ad0  1b e7 61 6e 69 6d 5f 61  74 5f 6c 25 28 6c 6f 63  |..anim_at_l%(loc|
00002ae0  25 2c 30 29 3d 30 3a e1  0d 01 6b 29 e7 61 6e 69  |%,0)=0:...k).ani|
00002af0  6d 5f 61 74 5f 6c 25 28  6c 6f 63 25 2c 36 29 3d  |m_at_l%(loc%,6)=|
00002b00  38 20 80 20 51 25 3d 31  20 80 20 52 25 3d 33 3a  |8 . Q%=1 . R%=3:|
00002b10  e1 0d 01 6c 1b e7 52 25  3d 33 20 80 20 6c 6f 63  |...l..R%=3 . loc|
00002b20  61 74 69 6f 6e 25 3c 32  32 20 3a e1 0d 01 6d 28  |ation%<22 :...m(|
00002b30  f4 20 69 66 20 66 6f 6f  64 20 69 73 20 65 61 74  |. if food is eat|
00002b40  65 6e 20 74 68 65 20 64  6f 6e 60 74 20 73 65 74  |en the don`t set|
00002b50  20 69 74 21 0d 01 6e 37  e7 61 6e 69 6d 5f 61 74  | it!..n7.anim_at|
00002b60  5f 6c 25 28 6c 6f 63 25  2c 36 29 3d 31 20 80 20  |_l%(loc%,6)=1 . |
00002b70  28 56 25 20 80 20 31 29  3d 31 20 e1 3a f4 20 69  |(V% . 1)=1 .:. i|
00002b80  66 20 62 75 67 20 65 61  74 65 6e 0d 01 6f 38 e7  |f bug eaten..o8.|
00002b90  61 6e 69 6d 5f 61 74 5f  6c 25 28 6c 6f 63 25 2c  |anim_at_l%(loc%,|
00002ba0  36 29 3d 33 20 80 20 28  56 25 20 80 20 38 29 3d  |6)=3 . (V% . 8)=|
00002bb0  38 20 e1 3a f4 20 69 66  20 66 72 6f 67 20 65 61  |8 .:. if frog ea|
00002bc0  74 65 6e 0d 01 70 38 e7  61 6e 69 6d 5f 61 74 5f  |ten..p8.anim_at_|
00002bd0  6c 25 28 6c 6f 63 25 2c  36 29 3d 35 20 80 20 28  |l%(loc%,6)=5 . (|
00002be0  56 25 20 80 20 32 29 3d  32 20 e1 3a f4 20 69 66  |V% . 2)=2 .:. if|
00002bf0  20 77 6f 72 6d 20 65 61  74 65 6e 0d 01 71 3a e7  | worm eaten..q:.|
00002c00  61 6e 69 6d 5f 61 74 5f  6c 25 28 6c 6f 63 25 2c  |anim_at_l%(loc%,|
00002c10  36 29 3d 36 20 80 20 28  56 25 20 80 20 34 29 3d  |6)=6 . (V% . 4)=|
00002c20  34 20 e1 3a f4 20 69 66  20 72 61 62 62 69 74 20  |4 .:. if rabbit |
00002c30  65 61 74 65 6e 0d 01 72  3a e7 61 6e 69 6d 5f 61  |eaten..r:.anim_a|
00002c40  74 5f 6c 25 28 6c 6f 63  25 2c 36 29 3d 37 20 80  |t_l%(loc%,6)=7 .|
00002c50  20 28 56 25 20 80 20 31  36 29 3d 31 36 20 e1 3a  | (V% . 16)=16 .:|
00002c60  f4 20 69 66 20 62 75 6c  62 20 65 61 74 65 6e 0d  |. if bulb eaten.|
00002c70  01 73 19 f4 20 73 65 74  20 66 6f 6f 64 20 69 6e  |.s.. set food in|
00002c80  20 70 6f 73 74 69 6f 6e  0d 01 74 33 e7 61 6e 69  | postion..t3.ani|
00002c90  6d 5f 61 74 5f 6c 25 28  6c 6f 63 25 2c 31 29 3e  |m_at_l%(loc%,1)>|
00002ca0  30 3a 73 69 67 68 74 25  3d 61 6e 69 6d 5f 61 74  |0:sight%=anim_at|
00002cb0  5f 6c 25 28 6c 6f 63 25  2c 31 29 0d 01 75 33 e7  |_l%(loc%,1)..u3.|
00002cc0  61 6e 69 6d 5f 61 74 5f  6c 25 28 6c 6f 63 25 2c  |anim_at_l%(loc%,|
00002cd0  32 29 3e 30 3a 73 6d 65  6c 6c 25 3d 61 6e 69 6d  |2)>0:smell%=anim|
00002ce0  5f 61 74 5f 6c 25 28 6c  6f 63 25 2c 32 29 0d 01  |_at_l%(loc%,2)..|
00002cf0  76 35 e7 61 6e 69 6d 5f  61 74 5f 6c 25 28 6c 6f  |v5.anim_at_l%(lo|
00002d00  63 25 2c 33 29 3e 30 3a  68 65 61 72 69 6e 67 25  |c%,3)>0:hearing%|
00002d10  3d 61 6e 69 6d 5f 61 74  5f 6c 25 28 6c 6f 63 25  |=anim_at_l%(loc%|
00002d20  2c 33 29 0d 01 77 33 e7  61 6e 69 6d 5f 61 74 5f  |,3)..w3.anim_at_|
00002d30  6c 25 28 6c 6f 63 25 2c  34 29 3e 30 3a 74 6f 75  |l%(loc%,4)>0:tou|
00002d40  63 68 25 3d 61 6e 69 6d  5f 61 74 5f 6c 25 28 6c  |ch%=anim_at_l%(l|
00002d50  6f 63 25 2c 34 29 0d 01  78 33 e7 61 6e 69 6d 5f  |oc%,4)..x3.anim_|
00002d60  61 74 5f 6c 25 28 6c 6f  63 25 2c 35 29 3e 30 3a  |at_l%(loc%,5)>0:|
00002d70  74 61 73 74 65 25 3d 61  6e 69 6d 5f 61 74 5f 6c  |taste%=anim_at_l|
00002d80  25 28 6c 6f 63 25 2c 35  29 0d 01 79 1c 63 6f 64  |%(loc%,5)..y.cod|
00002d90  65 25 3d 61 6e 69 6d 5f  61 74 5f 6c 25 28 6c 6f  |e%=anim_at_l%(lo|
00002da0  63 25 2c 36 29 0d 01 7a  28 e7 70 6f 73 5f 74 79  |c%,6)..z(.pos_ty|
00002db0  70 65 25 28 6c 6f 63 25  29 3d 31 35 20 72 65 5f  |pe%(loc%)=15 re_|
00002dc0  73 6d 65 6c 6c 25 3d 73  6d 65 6c 6c 25 0d 01 7b  |smell%=smell%..{|
00002dd0  05 e1 0d 01 7c 04 0d 01  7d 37 dc 20 31 2c 31 2c  |....|...}7. 1,1,|
00002de0  36 38 38 2c 33 38 34 2c  20 20 20 36 2c 34 2c 31  |688,384,   6,4,1|
00002df0  34 2c 33 2c 33 2c 20 20  20 20 38 2c 31 32 2c 31  |4,3,3,    8,12,1|
00002e00  2c 30 2c 30 2c 30 2c 30  2c 30 2c 20 33 0d 01 7e  |,0,0,0,0,0, 3..~|
00002e10  37 dc 20 32 2c 32 2c 32  37 32 2c 35 32 38 2c 20  |7. 2,2,272,528, |
00002e20  20 20 36 2c 34 2c 31 34  2c 33 2c 33 2c 20 20 20  |  6,4,14,3,3,   |
00002e30  20 33 2c 30 2c 32 39 2c  30 2c 30 2c 30 2c 32 2c  | 3,0,29,0,0,0,2,|
00002e40  30 2c 20 33 0d 01 7f 38  dc 20 33 2c 33 2c 32 37  |0, 3...8. 3,3,27|
00002e50  32 2c 37 36 38 2c 20 20  20 36 2c 34 2c 31 34 2c  |2,768,   6,4,14,|
00002e60  33 2c 33 2c 20 20 20 20  30 2c 30 2c 32 30 2c 31  |3,3,    0,0,20,1|
00002e70  36 2c 34 2c 30 2c 35 2c  30 2c 20 34 0d 01 80 38  |6,4,0,5,0, 4...8|
00002e80  dc 20 34 2c 34 2c 36 34  30 2c 35 37 36 2c 20 20  |. 4,4,640,576,  |
00002e90  20 36 2c 34 2c 31 34 2c  33 2c 33 2c 20 20 20 20  | 6,4,14,3,3,    |
00002ea0  31 33 2c 36 2c 30 2c 39  2c 37 2c 30 2c 30 2c 30  |13,6,0,9,7,0,0,0|
00002eb0  2c 20 31 32 0d 01 81 38  dc 20 35 2c 31 2c 39 36  |, 12...8. 5,1,96|
00002ec0  30 2c 37 36 38 2c 20 20  20 36 2c 34 2c 31 34 2c  |0,768,   6,4,14,|
00002ed0  33 2c 33 2c 20 20 20 20  30 2c 30 2c 30 2c 30 2c  |3,3,    0,0,0,0,|
00002ee0  30 2c 31 31 2c 30 2c 31  30 2c 20 37 0d 01 82 38  |0,11,0,10, 7...8|
00002ef0  dc 20 36 2c 35 2c 36 34  30 2c 33 38 34 2c 20 20  |. 6,5,640,384,  |
00002f00  20 39 2c 31 33 2c 31 30  2c 33 2c 33 2c 20 20 20  | 9,13,10,3,3,   |
00002f10  30 2c 30 2c 30 2c 30 2c  31 34 2c 30 2c 30 2c 31  |0,0,0,0,14,0,0,1|
00002f20  35 2c 20 35 0d 01 83 39  dc 20 37 2c 33 2c 36 38  |5, 5...9. 7,3,68|
00002f30  38 2c 36 30 38 2c 20 20  20 31 31 2c 32 31 2c 31  |8,608,   11,21,1|
00002f40  34 2c 33 2c 33 2c 20 20  30 2c 31 38 2c 30 2c 30  |4,3,3,  0,18,0,0|
00002f50  2c 30 2c 30 2c 30 2c 31  37 2c 20 31 32 0d 01 84  |,0,0,0,17, 12...|
00002f60  3c dc 20 38 2c 33 2c 31  30 34 30 2c 38 31 36 2c  |<. 8,3,1040,816,|
00002f70  20 20 36 2c 34 2c 31 34  2c 33 2c 33 2c 20 20 20  |  6,4,14,3,3,   |
00002f80  20 32 32 2c 30 2c 32 35  2c 30 2c 33 32 2c 31 39  | 22,0,25,0,32,19|
00002f90  2c 32 31 2c 30 2c 20 31  30 0d 01 85 39 dc 20 39  |,21,0, 10...9. 9|
00002fa0  2c 36 2c 31 30 34 30 2c  33 38 34 2c 20 20 39 2c  |,6,1040,384,  9,|
00002fb0  31 33 2c 31 30 2c 33 2c  33 2c 20 20 20 32 34 2c  |13,10,3,3,   24,|
00002fc0  30 2c 30 2c 30 2c 32 33  2c 30 2c 30 2c 30 2c 20  |0,0,0,23,0,0,0, |
00002fd0  31 32 0d 01 86 3b dc 20  31 30 2c 38 2c 36 32 34  |12...;. 10,8,624|
00002fe0  2c 38 31 36 2c 20 20 36  2c 34 2c 31 34 2c 33 2c  |,816,  6,4,14,3,|
00002ff0  33 2c 20 20 20 20 30 2c  30 2c 30 2c 33 33 2c 33  |3,    0,0,0,33,3|
00003000  39 2c 30 2c 32 36 2c 32  37 2c 20 31 32 0d 01 87  |9,0,26,27, 12...|
00003010  37 dc 20 31 31 2c 39 2c  34 37 32 2c 33 32 30 2c  |7. 11,9,472,320,|
00003020  20 20 31 39 2c 31 33 2c  31 34 2c 33 2c 33 2c 20  |  19,13,14,3,3, |
00003030  20 30 2c 30 2c 30 2c 32  38 2c 30 2c 30 2c 30 2c  | 0,0,0,28,0,0,0,|
00003040  30 2c 20 37 0d 01 88 3a  dc 20 31 32 2c 32 2c 39  |0, 7...:. 12,2,9|
00003050  35 32 2c 34 30 30 2c 20  20 36 2c 34 2c 31 34 2c  |52,400,  6,4,14,|
00003060  33 2c 33 2c 20 20 20 20  33 31 2c 30 2c 33 36 2c  |3,3,    31,0,36,|
00003070  30 2c 30 2c 30 2c 33 30  2c 30 2c 20 31 30 0d 01  |0,0,0,30,0, 10..|
00003080  89 39 dc 20 31 33 2c 38  2c 37 32 30 2c 37 32 30  |.9. 13,8,720,720|
00003090  2c 20 20 32 30 2c 32 31  2c 32 31 2c 33 2c 33 2c  |,  20,21,21,3,3,|
000030a0  20 20 30 2c 30 2c 33 35  2c 30 2c 30 2c 30 2c 30  |  0,0,35,0,0,0,0|
000030b0  2c 33 34 2c 20 31 34 0d  01 8a 3a dc 20 31 34 2c  |,34, 14...:. 14,|
000030c0  37 2c 37 32 30 2c 33 36  38 2c 20 20 31 38 2c 32  |7,720,368,  18,2|
000030d0  31 2c 31 34 2c 32 31 2c  33 2c 20 33 38 2c 30 2c  |1,14,21,3, 38,0,|
000030e0  34 30 2c 30 2c 30 2c 30  2c 33 37 2c 30 2c 20 31  |40,0,0,0,37,0, 1|
000030f0  32 0d 01 8b 04 0d 01 8c  04 0d 01 8d 39 dc 20 31  |2...........9. 1|
00003100  35 2c 31 30 2c 35 31 32  2c 33 30 34 2c 20 36 2c  |5,10,512,304, 6,|
00003110  34 2c 31 34 2c 33 2c 33  2c 20 20 20 20 34 32 2c  |4,14,3,3,    42,|
00003120  30 2c 30 2c 30 2c 30 2c  30 2c 34 31 2c 30 2c 20  |0,0,0,0,0,41,0, |
00003130  31 34 0d 01 8e 3a dc 20  31 36 2c 31 31 2c 35 31  |14...:. 16,11,51|
00003140  32 2c 34 30 30 2c 20 36  2c 34 2c 31 34 2c 33 2c  |2,400, 6,4,14,3,|
00003150  33 2c 20 20 20 20 35 31  2c 30 2c 30 2c 30 2c 34  |3,    51,0,0,0,4|
00003160  33 2c 30 2c 34 34 2c 30  2c 20 31 35 0d 01 8f 3a  |3,0,44,0, 15...:|
00003170  dc 20 31 37 2c 38 2c 39  32 38 2c 35 36 37 2c 20  |. 17,8,928,567, |
00003180  20 36 2c 34 2c 31 34 2c  33 2c 33 2c 20 20 20 20  | 6,4,14,3,3,    |
00003190  34 36 2c 30 2c 34 35 2c  30 2c 30 2c 30 2c 30 2c  |46,0,45,0,0,0,0,|
000031a0  34 38 2c 20 31 35 0d 01  90 38 dc 20 31 38 2c 38  |48, 15...8. 18,8|
000031b0  2c 39 32 38 2c 37 32 37  2c 20 20 32 38 2c 34 2c  |,928,727,  28,4,|
000031c0  31 34 2c 33 2c 33 2c 20  20 20 30 2c 30 2c 30 2c  |14,3,3,   0,0,0,|
000031d0  30 2c 34 37 2c 30 2c 30  2c 30 2c 20 31 36 0d 01  |0,47,0,0,0, 16..|
000031e0  91 39 dc 20 31 39 2c 38  2c 38 36 34 2c 36 34 30  |.9. 19,8,864,640|
000031f0  2c 20 20 32 30 2c 32 31  2c 32 31 2c 33 2c 33 2c  |,  20,21,21,3,3,|
00003200  20 20 30 2c 30 2c 30 2c  34 39 2c 30 2c 30 2c 30  |  0,0,0,49,0,0,0|
00003210  2c 35 30 2c 20 31 35 0d  01 92 39 dc 20 32 30 2c  |,50, 15...9. 20,|
00003220  31 32 2c 33 37 36 2c 33  32 30 2c 20 31 39 2c 31  |12,376,320, 19,1|
00003230  33 2c 31 34 2c 33 2c 33  2c 20 20 30 2c 30 2c 30  |3,14,3,3,  0,0,0|
00003240  2c 30 2c 35 32 2c 30 2c  35 33 2c 30 2c 20 31 35  |,0,52,0,53,0, 15|
00003250  0d 01 93 39 dc 20 32 31  2c 39 2c 39 33 36 2c 32  |...9. 21,9,936,2|
00003260  39 36 2c 20 20 32 35 2c  31 33 2c 31 34 2c 33 2c  |96,  25,13,14,3,|
00003270  33 2c 20 20 35 35 2c 30  2c 35 34 2c 30 2c 30 2c  |3,  55,0,54,0,0,|
00003280  30 2c 30 2c 30 2c 20 32  30 0d 01 94 39 dc 20 32  |0,0,0, 20...9. 2|
00003290  32 2c 31 33 2c 39 33 36  2c 34 30 30 2c 20 36 2c  |2,13,936,400, 6,|
000032a0  34 2c 31 34 2c 33 2c 33  2c 20 20 20 20 36 30 2c  |4,14,3,3,    60,|
000032b0  30 2c 35 38 2c 30 2c 30  2c 30 2c 30 2c 30 2c 20  |0,58,0,0,0,0,0, |
000032c0  32 33 0d 01 95 32 dd f2  66 69 6e 64 5f 73 63 72  |23...2..find_scr|
000032d0  65 65 6e 28 73 63 72 65  65 6e 5f 74 6f 5f 77 72  |een(screen_to_wr|
000032e0  69 74 65 25 2c 73 63 72  65 65 6e 5f 6c 6f 61 64  |ite%,screen_load|
000032f0  65 64 25 29 0d 01 96 18  6c 6f 61 64 31 24 3d c3  |ed%)....load1$=.|
00003300  7e 28 70 69 63 74 75 72  65 31 25 29 0d 01 97 1d  |~(picture1%)....|
00003310  73 63 72 65 65 6e 24 3d  c3 28 73 63 72 65 65 6e  |screen$=.(screen|
00003320  5f 6c 6f 61 64 65 64 25  29 0d 01 98 37 ff 20 22  |_loaded%)...7. "|
00003330  4c 4f 41 44 20 3c 42 61  64 67 65 72 24 44 49 52  |LOAD <Badger$DIR|
00003340  3e 2e 73 63 72 65 65 6e  73 2e 53 43 22 2b 73 63  |>.screens.SC"+sc|
00003350  72 65 65 6e 24 2b 22 20  22 2b 6c 6f 61 64 31 24  |reen$+" "+load1$|
00003360  0d 01 99 22 ff 22 46 58  20 31 31 32 2c 22 2b c3  |..."."FX 112,"+.|
00003370  28 73 63 72 65 65 6e 5f  74 6f 5f 77 72 69 74 65  |(screen_to_write|
00003380  25 29 0d 01 9a 65 e7 73  63 72 65 65 6e 5f 6c 6f  |%)...e.screen_lo|
00003390  61 64 65 64 25 3d 35 20  84 20 73 63 72 65 65 6e  |aded%=5 . screen|
000033a0  5f 6c 6f 61 64 65 64 25  3d 36 20 84 20 73 63 72  |_loaded%=6 . scr|
000033b0  65 65 6e 5f 6c 6f 61 64  65 64 25 3d 39 20 84 20  |een_loaded%=9 . |
000033c0  73 63 72 65 65 6e 5f 6c  6f 61 64 65 64 25 3d 31  |screen_loaded%=1|
000033d0  32 3a f2 6d 65 72 67 65  5f 73 70 72 69 74 65 28  |2:.merge_sprite(|
000033e0  22 63 61 72 73 22 29 0d  01 9b 23 ef 32 34 2c 30  |"cars")...#.24,0|
000033f0  3b 32 35 36 3b 31 32 37  38 3b 31 30 32 30 3b 31  |;256;1278;1020;1|
00003400  38 2c 30 2c 31 32 38 2c  31 36 0d 01 9c 23 ef 32  |8,0,128,16...#.2|
00003410  34 2c 34 3b 32 36 30 3b  31 32 37 34 3b 31 30 31  |4,4;260;1274;101|
00003420  36 3b 31 38 2c 30 2c 31  33 31 2c 31 36 0d 01 9d  |6;18,0,131,16...|
00003430  24 ef 32 34 2c 31 32 3b  32 36 38 3b 31 32 36 36  |$.24,12;268;1266|
00003440  3b 31 30 30 38 3b 31 38  2c 30 2c 31 33 30 2c 31  |;1008;18,0,130,1|
00003450  36 0d 01 9e 23 ef 32 34  2c 35 34 3b 33 30 38 3b  |6...#.24,54;308;|
00003460  31 32 32 34 3b 39 37 32  3b 31 38 2c 30 2c 31 33  |1224;972;18,0,13|
00003470  31 2c 31 36 0d 01 9f 23  ef 32 34 2c 36 32 3b 33  |1,16...#.24,62;3|
00003480  31 36 3b 31 32 31 36 3b  39 36 34 3b 31 38 2c 30  |16;1216;964;18,0|
00003490  2c 31 32 39 2c 31 36 0d  01 a0 18 ef 32 34 2c 36  |,129,16.....24,6|
000034a0  32 3b 33 31 36 3b 31 32  31 36 3b 39 36 34 3b 0d  |2;316;1216;964;.|
000034b0  01 a1 2d c8 91 2d 35 31  32 2c 30 3a 41 25 3d 70  |..-..-512,0:A%=p|
000034c0  69 63 74 75 72 65 31 25  3a 42 25 3d 30 3a d6 64  |icture1%:B%=0:.d|
000034d0  72 61 77 5f 70 69 63 74  75 72 65 25 0d 01 a2 07  |raw_picture%....|
000034e0  ef 32 36 0d 01 a3 09 c8  91 30 2c 30 0d 01 a4 38  |.26......0,0...8|
000034f0  e6 30 2c 33 3a ec 20 36  32 2c 33 31 36 3a df 20  |.0,3:. 62,316:. |
00003500  31 32 31 38 2c 33 31 36  3a df 31 32 31 38 2c 39  |1218,316:.1218,9|
00003510  36 34 3a df 20 36 32 2c  39 36 34 3a df 20 36 32  |64:. 62,964:. 62|
00003520  2c 33 31 36 0d 01 a5 34  e7 73 63 72 65 65 6e 5f  |,316...4.screen_|
00003530  6c 6f 61 64 65 64 25 3d  31 31 20 80 20 28 51 25  |loaded%=11 . (Q%|
00003540  3c 31 20 84 20 52 25 3c  33 29 3a f2 6d 61 6e 5f  |<1 . R%<3):.man_|
00003550  77 69 74 68 5f 67 75 6e  0d 01 a6 0c 2a 46 58 31  |with_gun....*FX1|
00003560  31 32 2c 31 0d 01 a7 05  e1 0d 01 a8 04 0d 01 a9  |12,1............|
00003570  12 dd f2 66 6f 6f 64 61  6e 64 77 61 74 65 72 0d  |...foodandwater.|
00003580  01 aa 50 f2 70 72 69 32  28 36 34 2c 31 30 30 2c  |..P.pri2(64,100,|
00003590  30 2c 31 2c 31 32 38 2c  31 2c 22 4d 65 61 6c 73  |0,1,128,1,"Meals|
000035a0  20 6e 65 65 64 65 64 3d  22 2b c3 28 33 2d 52 25  | needed="+.(3-R%|
000035b0  29 2b 22 20 20 20 20 44  72 69 6e 6b 73 20 6e 65  |)+"    Drinks ne|
000035c0  65 64 65 64 3d 22 2b c3  28 31 2d 51 25 29 29 0d  |eded="+.(1-Q%)).|
000035d0  01 ab 05 e1 0d 01 ac 04  0d 01 ad 12 dd f2 6d 61  |..............ma|
000035e0  6e 5f 77 69 74 68 5f 67  75 6e 0d 01 ae 33 ff 20  |n_with_gun...3. |
000035f0  22 4c 4f 41 44 20 3c 42  61 64 67 65 72 24 44 49  |"LOAD <Badger$DI|
00003600  52 3e 2e 6f 74 68 65 72  70 69 63 73 2e 63 6f 77  |R>.otherpics.cow|
00003610  67 6f 6e 65 20 22 2b 6c  6f 61 64 31 24 0d 01 af  |gone "+load1$...|
00003620  22 ff 22 46 58 20 31 31  32 2c 22 2b c3 28 73 63  |"."FX 112,"+.(sc|
00003630  72 65 65 6e 5f 74 6f 5f  77 72 69 74 65 25 29 0d  |reen_to_write%).|
00003640  01 b0 18 ef 32 34 2c 36  32 3b 33 31 36 3b 31 32  |....24,62;316;12|
00003650  31 36 3b 39 36 34 3b 0d  01 b1 33 c8 91 2d 35 31  |16;964;...3..-51|
00003660  32 2c 30 3a 41 25 3d 70  69 63 74 75 72 65 31 25  |2,0:A%=picture1%|
00003670  3a 42 25 3d 30 3a d6 64  72 61 77 5f 70 69 63 74  |:B%=0:.draw_pict|
00003680  75 72 65 25 3a c8 91 30  2c 30 0d 01 b2 19 67 75  |ure%:..0,0....gu|
00003690  6e 5f 78 25 3d 36 35 38  3a 67 75 6e 5f 79 25 3d  |n_x%=658:gun_y%=|
000036a0  35 36 30 0d 01 b3 35 f2  70 6c 6f 74 5f 73 70 72  |560...5.plot_spr|
000036b0  69 74 65 5f 73 63 61 6c  65 64 28 67 75 6e 5f 78  |ite_scaled(gun_x|
000036c0  25 2c 67 75 6e 5f 79 25  2c 31 2c 31 2c 31 2c 31  |%,gun_y%,1,1,1,1|
000036d0  2c 22 4d 41 4e 31 22 29  0d 01 b4 09 ef 32 36 3a  |,"MAN1").....26:|
000036e0  e1 0d 01 b5 04 0d 01 b6  17 dd f2 6d 61 6e 5f 77  |...........man_w|
000036f0  69 74 68 5f 67 75 6e 5f  74 65 78 74 0d 01 b7 1d  |ith_gun_text....|
00003700  f2 62 6f 74 74 6f 6d 5f  66 72 61 6d 65 3a f2 63  |.bottom_frame:.c|
00003710  6c 65 61 72 5f 74 65 78  74 0d 01 b8 43 f2 70 72  |lear_text...C.pr|
00003720  69 32 28 36 34 2c 32 30  30 2c 30 2c 31 2c 31 32  |i2(64,200,0,1,12|
00003730  38 2c 31 2c 22 4f 68 20  64 65 61 72 21 20 20 48  |8,1,"Oh dear!  H|
00003740  65 72 65 20 69 73 20 61  20 68 75 6d 61 6e 20 77  |ere is a human w|
00003750  69 74 68 20 61 20 67 75  6e 2e 22 29 0d 01 b9 4a  |ith a gun.")...J|
00003760  f2 70 72 69 32 28 36 34  2c 31 34 30 2c 30 2c 31  |.pri2(64,140,0,1|
00003770  2c 31 32 38 2c 31 2c 22  49 74 20 6d 61 79 20 62  |,128,1,"It may b|
00003780  65 20 73 61 66 65 72 20  74 6f 20 63 6f 6d 65 20  |e safer to come |
00003790  62 61 63 6b 20 74 68 69  73 20 77 61 79 a0 6c 61  |back this way.la|
000037a0  74 65 72 2e 22 29 0d 01  ba 07 c8 97 ee 0d 01 bb  |ter.")..........|
000037b0  07 ef 32 36 0d 01 bc 0a  f2 73 70 61 63 65 0d 01  |..26.....space..|
000037c0  bd 1d f2 62 6f 74 74 6f  6d 5f 66 72 61 6d 65 3a  |...bottom_frame:|
000037d0  f2 63 6c 65 61 72 5f 74  65 78 74 0d 01 be 05 e1  |.clear_text.....|
000037e0  0d 01 bf 04 0d 01 c0 12  dd f2 62 6f 74 74 6f 6d  |..........bottom|
000037f0  5f 66 72 61 6d 65 0d 01  c1 22 ef 32 34 2c 30 3b  |_frame...".24,0;|
00003800  32 35 36 3b 31 32 37 38  3b 33 31 36 3b 31 38 2c  |256;1278;316;18,|
00003810  30 2c 31 32 38 2c 31 36  0d 01 c2 22 ef 32 34 2c  |0,128,16...".24,|
00003820  34 3b 32 36 30 3b 31 32  37 34 3b 33 31 36 3b 31  |4;260;1274;316;1|
00003830  38 2c 30 2c 31 33 31 2c  31 36 0d 01 c3 23 ef 32  |8,0,131,16...#.2|
00003840  34 2c 31 32 3b 32 36 38  3b 31 32 36 36 3b 33 31  |4,12;268;1266;31|
00003850  36 3b 31 38 2c 30 2c 31  33 30 2c 31 36 0d 01 c4  |6;18,0,130,16...|
00003860  23 ef 32 34 2c 35 34 3b  33 30 38 3b 31 32 32 34  |#.24,54;308;1224|
00003870  3b 33 31 36 3b 31 38 2c  30 2c 31 33 31 2c 31 36  |;316;18,0,131,16|
00003880  0d 01 c5 05 e1 0d 01 c6  10 dd f2 63 6c 65 61 72  |...........clear|
00003890  5f 74 65 78 74 0d 01 c7  23 ef 32 34 2c 30 3b 30  |_text...#.24,0;0|
000038a0  3b 31 32 37 38 3b 32 35  36 3b 31 38 2c 30 2c 31  |;1278;256;18,0,1|
000038b0  32 38 2c 31 36 2c 32 36  0d 01 c8 05 e1 0d 01 c9  |28,16,26........|
000038c0  04 0d 01 ca 0c dd f2 70  6f 69 6e 74 73 0d 01 cb  |.......points...|
000038d0  32 78 70 25 3d 32 31 38  3a e3 66 25 3d 31 b8 33  |2xp%=218:.f%=1.3|
000038e0  3a e7 20 53 25 3c 66 25  20 61 24 3d 22 64 65 61  |:. S%<f% a$="dea|
000038f0  64 22 20 8b 20 61 24 3d  22 6c 69 76 65 73 22 0d  |d" . a$="lives".|
00003900  01 cc 37 f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |..7.plot_sprite_|
00003910  73 63 61 6c 65 64 28 78  70 25 2c 2d 34 2c 31 2c  |scaled(xp%,-4,1,|
00003920  31 2c 31 2c 31 2c 61 24  29 3a 78 70 25 3d 78 70  |1,1,1,a$):xp%=xp|
00003930  25 2b 36 34 3a ed 0d 01  cd 46 f2 70 72 69 32 28  |%+64:....F.pri2(|
00003940  36 34 2c 32 30 2c 30 2c  31 2c 31 32 38 2c 31 2c  |64,20,0,1,128,1,|
00003950  22 4c 69 76 65 73 20 20  20 20 20 20 20 20 20 20  |"Lives          |
00003960  20 20 20 20 20 20 20 20  20 20 20 20 20 50 6f 69  |             Poi|
00003970  6e 74 73 20 22 2b c3 28  55 25 29 29 0d 01 ce 05  |nts "+.(U%))....|
00003980  e1 0d 01 cf 04 0d 01 d0  04 0d 01 d1 12 dd f2 73  |...............s|
00003990  65 74 5f 75 70 5f 62 6c  61 6e 6b 0d 01 d2 07 ef  |et_up_blank.....|
000039a0  32 36 0d 01 d3 0d 20 2a  46 58 31 31 32 2c 32 0d  |26.... *FX112,2.|
000039b0  01 d4 07 ef 32 36 0d 01  d5 43 20 c8 99 22 4f 53  |....26...C .."OS|
000039c0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 30 2c  |_SpriteOp",&110,|
000039d0  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 22 73  |sprite_area1%,"s|
000039e0  63 72 6f 6c 6c 31 22 2c  30 2c 36 34 2c 33 32 30  |croll1",0,64,320|
000039f0  2c 31 32 31 36 2c 39 36  30 0d 01 d6 43 20 c8 99  |,1216,960...C ..|
00003a00  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00003a10  31 30 2c 73 70 72 69 74  65 5f 61 72 65 61 31 25  |10,sprite_area1%|
00003a20  2c 22 73 63 72 6f 6c 6c  32 22 2c 30 2c 36 34 2c  |,"scroll2",0,64,|
00003a30  33 32 30 2c 31 32 31 36  2c 39 36 30 0d 01 d7 0d  |320,1216,960....|
00003a40  20 2a 46 58 31 31 32 2c  31 0d 01 d8 3d f2 73 70  | *FX112,1...=.sp|
00003a50  72 69 74 65 5f 70 6c 6f  74 28 73 70 72 69 74 65  |rite_plot(sprite|
00003a60  5f 61 72 65 61 31 25 2c  22 62 61 64 30 22 2c 61  |_area1%,"bad0",a|
00003a70  78 25 2c 61 79 25 2b 31  32 38 2c 31 32 2c 38 2c  |x%,ay%+128,12,8,|
00003a80  31 34 2c 31 35 29 0d 01  d9 05 e1 0d 01 da 04 0d  |14,15)..........|
00003a90  01 db 17 dd f2 70 61 74  68 5f 66 69 6e 64 65 72  |.....path_finder|
00003aa0  28 64 69 72 25 29 0d 01  dc 32 e7 70 61 74 68 25  |(dir%)...2.path%|
00003ab0  28 64 69 72 25 29 3d 35  31 20 80 20 28 51 25 3c  |(dir%)=51 . (Q%<|
00003ac0  31 20 84 20 52 25 3c 33  29 3a 70 61 74 68 25 28  |1 . R%<3):path%(|
00003ad0  64 69 72 25 29 3d 35 37  0d 01 dd 32 e7 70 61 74  |dir%)=57...2.pat|
00003ae0  68 25 28 64 69 72 25 29  3d 34 32 20 f2 61 6e 69  |h%(dir%)=42 .ani|
00003af0  6d 61 74 65 5f 73 6d 61  6c 6c 28 36 34 2c 39 30  |mate_small(64,90|
00003b00  30 2c 22 66 6f 78 22 2c  33 29 0d 01 de 09 f7 8d  |0,"fox",3)......|
00003b10  64 7b 41 0d 01 df 1b e3  64 69 72 66 69 6e 64 25  |d{A.....dirfind%|
00003b20  3d 31 b8 70 61 74 68 25  28 64 69 72 25 29 0d 01  |=1.path%(dir%)..|
00003b30  e0 36 f3 20 70 61 74 68  5f 6e 6f 25 2c 73 63 72  |.6. path_no%,scr|
00003b40  65 65 6e 5f 6c 6f 61 64  65 64 25 2c 6e 65 77 5f  |een_loaded%,new_|
00003b50  6c 6f 63 61 74 69 6f 6e  25 2c 6e 75 6d 5f 6d 6f  |location%,num_mo|
00003b60  76 65 73 25 0d 01 e1 18  e3 6d 6f 76 65 73 25 3d  |ves%.....moves%=|
00003b70  31 b8 6e 75 6d 5f 6d 6f  76 65 73 25 0d 01 e2 3b  |1.num_moves%...;|
00003b80  f3 67 6f 78 25 28 6d 6f  76 65 73 25 29 2c 67 6f  |.gox%(moves%),go|
00003b90  79 25 28 6d 6f 76 65 73  25 29 2c 61 6d 6f 75 6e  |y%(moves%),amoun|
00003ba0  74 25 28 6d 6f 76 65 73  25 29 2c 62 61 64 25 28  |t%(moves%),bad%(|
00003bb0  6d 6f 76 65 73 25 29 0d  01 e3 44 f4 20 6e 6f 74  |moves%)...D. not|
00003bc0  68 69 6e 67 2c 73 63 72  6f 6c 6c 20 64 69 72 65  |hing,scroll dire|
00003bd0  63 74 69 6f 6e 2c 6d 69  6e 75 73 20 6e 75 6d 62  |ction,minus numb|
00003be0  65 72 2c 72 65 70 72 69  6e 74 20 62 61 64 67 65  |er,reprint badge|
00003bf0  72 20 64 69 72 65 63 74  69 6f 6e 0d 01 e4 05 ed  |r direction.....|
00003c00  0d 01 e5 05 ed 0d 01 e6  13 e7 67 6f 78 25 28 31  |..........gox%(1|
00003c10  29 3c 3e 31 30 30 20 e1  0d 01 e7 04 0d 01 e8 26  |)<>100 ........&|
00003c20  f4 20 63 61 6c 63 75 6c  61 74 65 20 74 68 65 20  |. calculate the |
00003c30  6f 70 70 6f 73 69 74 65  20 6f 66 20 61 20 70 61  |opposite of a pa|
00003c40  74 68 0d 01 e9 04 0d 01  ea 13 72 65 70 65 61 74  |th........repeat|
00003c50  25 3d 67 6f 79 25 28 31  29 0d 01 eb 09 f7 8d 64  |%=goy%(1)......d|
00003c60  7b 41 0d 01 ec 17 e3 64  69 72 66 69 6e 64 25 3d  |{A.....dirfind%=|
00003c70  31 b8 72 65 70 65 61 74  25 0d 01 ed 27 f3 20 70  |1.repeat%...'. p|
00003c80  61 74 68 5f 6e 6f 25 2c  62 6c 61 6e 6b 25 2c 62  |ath_no%,blank%,b|
00003c90  6c 61 6e 6b 25 2c 6e 75  6d 5f 6d 6f 76 65 73 25  |lank%,num_moves%|
00003ca0  0d 01 ee 1e e3 6d 6f 76  65 73 25 3d 6e 75 6d 5f  |.....moves%=num_|
00003cb0  6d 6f 76 65 73 25 20 b8  20 31 20 88 2d 31 0d 01  |moves% . 1 .-1..|
00003cc0  ef 3b f3 67 6f 78 25 28  6d 6f 76 65 73 25 29 2c  |.;.gox%(moves%),|
00003cd0  67 6f 79 25 28 6d 6f 76  65 73 25 29 2c 61 6d 6f  |goy%(moves%),amo|
00003ce0  75 6e 74 25 28 6d 6f 76  65 73 25 29 2c 62 61 64  |unt%(moves%),bad|
00003cf0  25 28 6d 6f 76 65 73 25  29 0d 01 f0 05 ed 0d 01  |%(moves%).......|
00003d00  f1 05 ed 0d 01 f2 04 0d  01 f3 18 e3 6d 6f 76 65  |............move|
00003d10  73 25 3d 31 b8 6e 75 6d  5f 6d 6f 76 65 73 25 0d  |s%=1.num_moves%.|
00003d20  01 f4 5f e7 61 6d 6f 75  6e 74 25 28 6d 6f 76 65  |.._.amount%(move|
00003d30  73 25 29 3d 2d 34 20 67  6f 79 25 28 6d 6f 76 65  |s%)=-4 goy%(move|
00003d40  73 25 29 3d 67 6f 79 25  28 6d 6f 76 65 73 25 29  |s%)=goy%(moves%)|
00003d50  2b 32 3a e7 67 6f 79 25  28 6d 6f 76 65 73 25 29  |+2:.goy%(moves%)|
00003d60  3e 34 20 67 6f 79 25 28  6d 6f 76 65 73 25 29 3d  |>4 goy%(moves%)=|
00003d70  67 6f 79 25 28 6d 6f 76  65 73 25 29 2d 34 0d 01  |goy%(moves%)-4..|
00003d80  f5 51 e7 61 6d 6f 75 6e  74 25 28 6d 6f 76 65 73  |.Q.amount%(moves|
00003d90  25 29 3e 30 20 20 67 6f  78 25 28 6d 6f 76 65 73  |%)>0  gox%(moves|
00003da0  25 29 3d 67 6f 78 25 28  6d 6f 76 65 73 25 29 2a  |%)=gox%(moves%)*|
00003db0  2d 31 3a 67 6f 79 25 28  6d 6f 76 65 73 25 29 3d  |-1:goy%(moves%)=|
00003dc0  67 6f 79 25 28 6d 6f 76  65 73 25 29 2a 2d 31 0d  |goy%(moves%)*-1.|
00003dd0  01 f6 25 62 61 64 25 28  6d 6f 76 65 73 25 29 3d  |..%bad%(moves%)=|
00003de0  28 62 61 64 25 28 6d 6f  76 65 73 25 29 2b 34 29  |(bad%(moves%)+4)|
00003df0  20 83 20 38 0d 01 f7 05  ed 0d 01 f8 04 0d 01 f9  | . 8............|
00003e00  05 e1 0d 01 fa 04 0d 01  fb 53 dc 20 31 2c 32 2c  |.........S. 1,2,|
00003e10  32 2c 37 2c 20 38 2c 38  2c 31 34 2c 31 2c 20 38  |2,7, 8,8,14,1, 8|
00003e20  2c 30 2c 31 34 2c 32 2c  20 38 2c 2d 38 2c 36 2c  |,0,14,2, 8,-8,6,|
00003e30  33 2c 20 38 2c 30 2c 31  36 2c 32 2c 20 30 2c 33  |3, 8,0,16,2, 0,3|
00003e40  2c 2d 34 2c 32 2c 20 38  2c 38 2c 31 30 2c 31 2c  |,-4,2, 8,8,10,1,|
00003e50  20 38 2c 30 2c 31 36 2c  32 0d 01 fc 2a dc 20 32  | 8,0,16,2...*. 2|
00003e60  2c 31 2c 31 2c 31 2c 20  31 30 30 2c 31 2c 30 2c  |,1,1,1, 100,1,0,|
00003e70  30 3a 52 45 4d 20 6f 70  70 6f 73 69 74 65 20 6f  |0:REM opposite o|
00003e80  66 20 31 0d 01 fd 48 dc  20 33 2c 33 2c 33 2c 36  |f 1...H. 3,3,3,6|
00003e90  2c 20 30 2c 38 2c 33 38  2c 30 2c 20 30 2c 32 2c  |, 0,8,38,0, 0,2,|
00003ea0  2d 34 2c 30 2c 20 2d 38  2c 38 2c 38 2c 37 2c 20  |-4,0, -8,8,8,7, |
00003eb0  30 2c 38 2c 31 36 2c 30  2c 20 38 2c 38 2c 38 2c  |0,8,16,0, 8,8,8,|
00003ec0  31 2c 20 30 2c 38 2c 32  34 2c 30 0d 01 fe 2a dc  |1, 0,8,24,0...*.|
00003ed0  20 34 2c 32 2c 32 2c 31  2c 20 31 30 30 2c 33 2c  | 4,2,2,1, 100,3,|
00003ee0  30 2c 30 3a 52 45 4d 20  6f 70 70 6f 73 69 74 65  |0,0:REM opposite|
00003ef0  20 6f 66 20 33 0d 01 ff  39 dc 20 35 2c 34 2c 34  | of 3...9. 5,4,4|
00003f00  2c 34 2c 20 2d 38 2c 30  2c 32 36 2c 36 2c 20 30  |,4, -8,0,26,6, 0|
00003f10  2c 31 2c 2d 34 2c 36 2c  20 2d 38 2c 2d 38 2c 32  |,1,-4,6, -8,-8,2|
00003f20  34 2c 35 2c 20 2d 38 2c  30 2c 33 32 2c 36 0d 02  |4,5, -8,0,32,6..|
00003f30  00 2a dc 20 36 2c 33 2c  33 2c 31 2c 20 31 30 30  |.*. 6,3,3,1, 100|
00003f40  2c 35 2c 30 2c 30 3a 52  45 4d 20 6f 70 70 6f 73  |,5,0,0:REM oppos|
00003f50  69 74 65 20 6f 66 20 35  0d 02 01 39 dc 20 37 2c  |ite of 5...9. 7,|
00003f60  31 2c 31 2c 34 2c 20 2d  38 2c 2d 38 2c 33 32 2c  |1,1,4, -8,-8,32,|
00003f70  35 2c 20 30 2c 34 2c 2d  34 2c 34 2c 20 38 2c 2d  |5, 0,4,-4,4, 8,-|
00003f80  38 2c 33 38 2c 33 2c 20  30 2c 2d 38 2c 31 38 2c  |8,38,3, 0,-8,18,|
00003f90  34 0d 02 02 18 dc 20 38  2c 34 2c 34 2c 31 2c 20  |4..... 8,4,4,1, |
00003fa0  31 30 30 2c 37 2c 30 2c  30 0d 02 03 35 dc 20 39  |100,7,0,0...5. 9|
00003fb0  2c 31 2c 35 2c 34 2c 20  38 2c 30 2c 38 2c 32 2c  |,1,5,4, 8,0,8,2,|
00003fc0  20 38 2c 2d 38 2c 33 32  2c 33 2c 20 30 2c 34 2c  | 8,-8,32,3, 0,4,|
00003fd0  2d 34 2c 34 2c 20 30 2c  2d 38 2c 38 2c 34 0d 02  |-4,4, 0,-8,8,4..|
00003fe0  04 19 dc 20 31 30 2c 34  2c 34 2c 31 2c 20 31 30  |... 10,4,4,1, 10|
00003ff0  30 2c 39 2c 30 2c 30 0d  02 05 2e dc 20 31 31 2c  |0,9,0,0..... 11,|
00004000  31 2c 31 2c 33 2c 20 30  2c 2d 38 2c 38 2c 34 2c  |1,1,3, 0,-8,8,4,|
00004010  20 2d 38 2c 2d 38 2c 33  34 2c 35 2c 20 30 2c 2d  | -8,-8,34,5, 0,-|
00004020  38 2c 36 2c 34 0d 02 06  1a dc 20 31 32 2c 31 2c  |8,6,4..... 12,1,|
00004030  35 2c 31 2c 20 31 30 30  2c 31 31 2c 30 2c 30 0d  |5,1, 100,11,0,0.|
00004040  02 07 2b dc 20 31 33 2c  35 2c 36 2c 33 2c 20 30  |..+. 13,5,6,3, 0|
00004050  2c 38 2c 33 32 2c 30 2c  20 30 2c 32 2c 2d 34 2c  |,8,32,0, 0,2,-4,|
00004060  30 2c 20 30 2c 38 2c 38  2c 30 0d 02 08 1a dc 20  |0, 0,8,8,0..... |
00004070  31 34 2c 34 2c 34 2c 31  2c 20 31 30 30 2c 31 33  |14,4,4,1, 100,13|
00004080  2c 30 2c 30 0d 02 09 46  dc 20 31 35 2c 35 2c 39  |,0,0...F. 15,5,9|
00004090  39 2c 34 2c 20 2d 38 2c  38 2c 32 34 2c 37 2c 20  |9,4, -8,8,24,7, |
000040a0  2d 38 2c 30 2c 31 36 2c  36 2c 20 2d 38 2c 38 2c  |-8,0,16,6, -8,8,|
000040b0  34 2c 37 2c 20 30 2c 38  2c 38 2c 30 3a 52 45 4d  |4,7, 0,8,8,0:REM|
000040c0  20 63 61 72 20 64 65 61  74 68 0d 02 0a 23 dc 20  | car death...#. |
000040d0  31 36 2c 33 2c 37 2c 32  2c 20 38 2c 30 2c 33 32  |16,3,7,2, 8,0,32|
000040e0  2c 32 2c 20 38 2c 2d 38  2c 32 30 2c 33 0d 02 0b  |,2, 8,-8,20,3...|
000040f0  1a dc 20 31 37 2c 33 2c  33 2c 31 2c 20 31 30 30  |.. 17,3,3,1, 100|
00004100  2c 31 36 2c 30 2c 30 0d  02 0c 22 dc 20 31 38 2c  |,16,0,0...". 18,|
00004110  33 2c 38 2c 32 2c 20 38  2c 38 2c 32 36 2c 31 2c  |3,8,2, 8,8,26,1,|
00004120  20 38 2c 30 2c 31 38 2c  32 0d 02 0d 1a dc 20 31  | 8,0,18,2..... 1|
00004130  39 2c 33 2c 37 2c 31 2c  20 31 30 30 2c 31 38 2c  |9,3,7,1, 100,18,|
00004140  30 2c 30 0d 02 0e 2b dc  20 32 30 2c 33 2c 38 2c  |0,0...+. 20,3,8,|
00004150  33 2c 20 38 2c 30 2c 32  30 2c 32 2c 20 38 2c 38  |3, 8,0,20,2, 8,8|
00004160  2c 36 2c 31 2c 20 38 2c  30 2c 37 30 2c 32 0d 02  |,6,1, 8,0,70,2..|
00004170  0f 1a dc 20 32 31 2c 33  2c 33 2c 31 2c 20 31 30  |... 21,3,3,1, 10|
00004180  30 2c 32 30 2c 30 2c 30  0d 02 10 2a dc 20 32 32  |0,20,0,0...*. 22|
00004190  2c 36 2c 39 2c 33 2c 20  30 2c 38 2c 32 2c 30 2c  |,6,9,3, 0,8,2,0,|
000041a0  20 30 2c 32 2c 2d 34 2c  30 2c 20 30 2c 38 2c 38  | 0,2,-4,0, 0,8,8|
000041b0  2c 30 0d 02 11 1a dc 20  32 33 2c 33 2c 38 2c 31  |,0..... 23,3,8,1|
000041c0  2c 20 31 30 30 2c 32 32  2c 30 2c 30 0d 02 12 29  |, 100,22,0,0...)|
000041d0  dc 20 32 34 2c 36 2c 39  39 2c 31 2c 20 30 2c 38  |. 24,6,99,1, 0,8|
000041e0  2c 31 32 2c 30 3a 52 45  4d 20 63 61 72 20 64 65  |,12,0:REM car de|
000041f0  61 74 68 20 32 0d 02 13  2c dc 20 32 35 2c 38 2c  |ath 2...,. 25,8,|
00004200  31 30 2c 33 2c 20 38 2c  30 2c 36 2c 32 2c 20 30  |10,3, 8,0,6,2, 0|
00004210  2c 33 2c 2d 34 2c 32 2c  20 38 2c 30 2c 37 30 2c  |,3,-4,2, 8,0,70,|
00004220  32 0d 02 14 1a dc 20 32  36 2c 33 2c 38 2c 31 2c  |2..... 26,3,8,1,|
00004230  20 31 30 30 2c 32 35 2c  30 2c 30 0d 02 15 2d dc  | 100,25,0,0...-.|
00004240  20 32 37 2c 39 2c 31 31  2c 33 2c 20 2d 38 2c 38  | 27,9,11,3, -8,8|
00004250  2c 32 2c 37 2c 20 30 2c  32 2c 2d 34 2c 37 2c 20  |,2,7, 0,2,-4,7, |
00004260  2d 38 2c 30 2c 31 2c 36  0d 02 16 1b dc 20 32 38  |-8,0,1,6..... 28|
00004270  2c 38 2c 31 30 2c 31 2c  20 31 30 30 2c 32 37 2c  |,8,10,1, 100,27,|
00004280  30 2c 30 0d 02 17 4b dc  20 32 39 2c 32 2c 31 32  |0,0...K. 29,2,12|
00004290  2c 36 2c 20 38 2c 2d 38  2c 34 2c 33 2c 20 38 2c  |,6, 8,-8,4,3, 8,|
000042a0  30 2c 31 36 2c 32 2c 20  38 2c 38 2c 31 32 2c 31  |0,16,2, 8,8,12,1|
000042b0  2c 20 38 2c 30 2c 39 2c  32 2c 20 38 2c 2d 38 2c  |, 8,0,9,2, 8,-8,|
000042c0  32 34 2c 33 2c 20 38 2c  30 2c 32 30 2c 32 0d 02  |24,3, 8,0,20,2..|
000042d0  18 1a dc 20 33 30 2c 32  2c 32 2c 31 2c 20 31 30  |... 30,2,2,1, 10|
000042e0  30 2c 32 39 2c 30 2c 30  0d 02 19 36 dc 20 33 31  |0,29,0,0...6. 31|
000042f0  2c 33 2c 38 2c 34 2c 20  30 2c 38 2c 35 34 2c 30  |,3,8,4, 0,8,54,0|
00004300  2c 20 30 2c 32 2c 2d 34  2c 30 2c 20 30 2c 38 2c  |, 0,2,-4,0, 0,8,|
00004310  35 31 2c 30 2c 20 38 2c  38 2c 31 31 2c 31 0d 02  |51,0, 8,8,11,1..|
00004320  1a 1b dc 20 33 32 2c 32  2c 31 32 2c 31 2c 20 31  |... 32,2,12,1, 1|
00004330  30 30 2c 33 31 2c 30 2c  30 0d 02 1b 1a dc 20 33  |00,31,0,0..... 3|
00004340  33 2c 38 2c 31 33 2c 31  2c 20 38 2c 2d 38 2c 31  |3,8,13,1, 8,-8,1|
00004350  32 2c 33 0d 02 1c 1b dc  20 33 34 2c 38 2c 31 30  |2,3..... 34,8,10|
00004360  2c 31 2c 20 31 30 30 2c  33 33 2c 30 2c 30 0d 02  |,1, 100,33,0,0..|
00004370  1d 44 dc 20 33 35 2c 39  2c 39 38 2c 34 2c 20 38  |.D. 35,9,98,4, 8|
00004380  2c 30 2c 31 30 2c 32 2c  20 30 2c 38 2c 31 32 2c  |,0,10,2, 0,8,12,|
00004390  38 2c 20 30 2c 32 2c 2d  34 2c 38 2c 20 30 2c 38  |8, 0,2,-4,8, 0,8|
000043a0  2c 31 36 2c 39 20 3a 52  45 4d 20 64 72 6f 77 6e  |,16,9 :REM drown|
000043b0  65 64 0d 02 1e 4a dc 20  33 36 2c 37 2c 31 34 2c  |ed...J. 36,7,14,|
000043c0  36 2c 20 38 2c 30 2c 31  37 2c 32 2c 20 30 2c 33  |6, 8,0,17,2, 0,3|
000043d0  2c 2d 34 2c 32 2c 20 38  2c 38 2c 34 2c 31 2c 20  |,-4,2, 8,8,4,1, |
000043e0  38 2c 30 2c 35 30 2c 32  2c 20 38 2c 2d 38 2c 38  |8,0,50,2, 8,-8,8|
000043f0  2c 33 2c 20 38 2c 30 2c  32 30 2c 32 0d 02 1f 1b  |,3, 8,0,20,2....|
00004400  dc 20 33 37 2c 32 2c 31  32 2c 31 2c 20 31 30 30  |. 37,2,12,1, 100|
00004410  2c 33 36 2c 30 2c 30 0d  02 20 4b dc 20 33 38 2c  |,36,0,0.. K. 38,|
00004420  38 2c 31 30 2c 36 2c 20  2d 38 2c 30 2c 38 2c 36  |8,10,6, -8,0,8,6|
00004430  2c 20 2d 38 2c 38 2c 31  32 2c 37 2c 20 30 2c 38  |, -8,8,12,7, 0,8|
00004440  2c 34 36 2c 30 2c 20 30  2c 32 2c 2d 34 2c 30 2c  |,46,0, 0,2,-4,0,|
00004450  20 30 2c 38 2c 35 34 2c  30 2c 20 38 2c 38 2c 38  | 0,8,54,0, 8,8,8|
00004460  2c 31 0d 02 21 1b dc 20  33 39 2c 37 2c 31 34 2c  |,1..!.. 39,7,14,|
00004470  31 2c 20 31 30 30 2c 33  38 2c 30 2c 30 0d 02 22  |1, 100,38,0,0.."|
00004480  56 dc 20 34 30 2c 31 30  2c 31 35 2c 36 2c 20 38  |V. 40,10,15,6, 8|
00004490  2c 30 2c 31 32 2c 32 2c  20 38 2c 2d 38 2c 34 2c  |,0,12,2, 8,-8,4,|
000044a0  33 2c 20 38 2c 30 2c 33  30 2c 32 2c 20 30 2c 33  |3, 8,0,30,2, 0,3|
000044b0  2c 2d 34 2c 32 2c 20 38  2c 2d 38 2c 34 2c 33 2c  |,-4,2, 8,-8,4,3,|
000044c0  20 38 2c 30 2c 35 32 2c  32 3a 52 45 4d 20 31 34  | 8,0,52,2:REM 14|
000044d0  2d 31 35 0d 02 23 25 dc  20 34 31 2c 37 2c 31 34  |-15..#%. 41,7,14|
000044e0  2c 31 2c 20 31 30 30 2c  34 30 2c 30 2c 30 3a 52  |,1, 100,40,0,0:R|
000044f0  45 4d 20 31 35 2d 31 34  0d 02 24 38 dc 20 34 32  |EM 15-14..$8. 42|
00004500  2c 31 31 2c 31 36 2c 33  2c 20 30 2c 38 2c 36 36  |,11,16,3, 0,8,66|
00004510  2c 30 2c 20 30 2c 32 2c  2d 34 2c 30 2c 20 30 2c  |,0, 0,2,-4,0, 0,|
00004520  38 2c 31 30 2c 30 3a 52  45 4d 20 31 35 2d 31 36  |8,10,0:REM 15-16|
00004530  0d 02 25 26 dc 20 34 33  2c 31 30 2c 31 35 2c 31  |..%&. 43,10,15,1|
00004540  2c 20 31 30 30 2c 34 32  2c 30 2c 30 3a 52 45 4d  |, 100,42,0,0:REM|
00004550  20 31 36 2d 31 35 0d 02  26 63 dc 20 34 34 2c 38  | 16-15..&c. 44,8|
00004560  2c 31 37 2c 37 2c 20 2d  38 2c 30 2c 31 36 2c 36  |,17,7, -8,0,16,6|
00004570  2c 20 2d 38 2c 38 2c 34  2c 37 2c 20 2d 38 2c 30  |, -8,8,4,7, -8,0|
00004580  2c 33 36 2c 36 2c 20 30  2c 31 2c 2d 34 2c 36 2c  |,36,6, 0,1,-4,6,|
00004590  20 30 2c 38 2c 38 2c 30  2c 20 2d 38 2c 38 2c 31  | 0,8,8,0, -8,8,1|
000045a0  30 2c 37 2c 20 2d 38 2c  30 2c 31 30 2c 36 20 3a  |0,7, -8,0,10,6 :|
000045b0  52 45 4d 20 31 36 2d 31  37 0d 02 27 26 dc 20 34  |REM 16-17..'&. 4|
000045c0  35 2c 31 31 2c 31 36 2c  31 2c 20 31 30 30 2c 34  |5,11,16,1, 100,4|
000045d0  34 2c 30 2c 30 3a 52 45  4d 20 31 37 2d 31 36 0d  |4,0,0:REM 17-16.|
000045e0  02 28 25 dc 20 34 36 2c  38 2c 31 38 2c 31 2c 20  |.(%. 46,8,18,1, |
000045f0  30 2c 38 2c 32 30 2c 30  20 20 3a 52 45 4d 20 31  |0,8,20,0  :REM 1|
00004600  37 2d 31 38 0d 02 29 25  dc 20 34 37 2c 38 2c 31  |7-18..)%. 47,8,1|
00004610  37 2c 31 2c 20 31 30 30  2c 34 36 2c 30 2c 30 3a  |7,1, 100,46,0,0:|
00004620  52 45 4d 20 31 38 2d 31  37 0d 02 2a 25 dc 20 34  |REM 18-17..*%. 4|
00004630  38 2c 38 2c 31 39 2c 31  2c 20 2d 38 2c 38 2c 38  |8,8,19,1, -8,8,8|
00004640  2c 37 20 20 3a 52 45 4d  20 31 37 2d 31 39 0d 02  |,7  :REM 17-19..|
00004650  2b 25 dc 20 34 39 2c 38  2c 31 37 2c 31 2c 20 31  |+%. 49,8,17,1, 1|
00004660  30 30 2c 34 38 2c 30 2c  30 3a 52 45 4d 20 31 39  |00,48,0,0:REM 19|
00004670  2d 31 37 0d 02 2c 45 dc  20 35 30 2c 39 2c 39 38  |-17..,E. 50,9,98|
00004680  2c 34 2c 20 2d 38 2c 38  2c 34 2c 37 2c 20 30 2c  |,4, -8,8,4,7, 0,|
00004690  38 2c 32 30 2c 31 30 2c  20 30 2c 32 2c 2d 34 2c  |8,20,10, 0,2,-4,|
000046a0  31 30 2c 20 30 2c 38 2c  31 36 2c 39 3a 64 72 6f  |10, 0,8,16,9:dro|
000046b0  77 6e 65 64 20 74 77 6f  0d 02 2d 55 dc 20 35 31  |wned two..-U. 51|
000046c0  2c 31 32 2c 32 30 2c 36  2c 20 30 2c 38 2c 31 32  |,12,20,6, 0,8,12|
000046d0  2c 30 2c 20 38 2c 38 2c  34 2c 31 2c 20 30 2c 38  |,0, 8,8,4,1, 0,8|
000046e0  2c 33 34 2c 30 2c 20 2d  38 2c 38 2c 34 2c 37 2c  |,34,0, -8,8,4,7,|
000046f0  20 30 2c 32 2c 2d 34 2c  37 2c 20 2d 38 2c 30 2c  | 0,2,-4,7, -8,0,|
00004700  31 2c 36 3a 52 45 4d 20  31 36 2d 32 30 0d 02 2e  |1,6:REM 16-20...|
00004710  26 dc 20 35 32 2c 31 31  2c 31 36 2c 31 2c 20 31  |&. 52,11,16,1, 1|
00004720  30 30 2c 35 31 2c 30 2c  30 3a 52 45 4d 20 32 30  |00,51,0,0:REM 20|
00004730  2d 31 36 0d 02 2f 4e dc  20 35 33 2c 39 2c 32 31  |-16../N. 53,9,21|
00004740  2c 35 2c 20 2d 38 2c 30  2c 33 30 2c 36 2c 20 2d  |,5, -8,0,30,6, -|
00004750  38 2c 2d 38 2c 33 2c 35  2c 20 2d 38 2c 30 2c 36  |8,-8,3,5, -8,0,6|
00004760  2c 36 2c 20 30 2c 31 2c  2d 34 2c 36 2c 20 2d 38  |,6, 0,1,-4,6, -8|
00004770  2c 30 2c 31 38 2c 36 3a  52 45 4d 20 32 30 2d 32  |,0,18,6:REM 20-2|
00004780  31 0d 02 30 26 dc 20 35  34 2c 31 32 2c 32 30 2c  |1..0&. 54,12,20,|
00004790  31 2c 20 31 30 30 2c 35  33 2c 30 2c 30 3a 52 45  |1, 100,53,0,0:RE|
000047a0  4d 20 32 31 2d 32 30 0d  02 31 4b dc 20 35 35 2c  |M 21-20..1K. 55,|
000047b0  31 33 2c 39 36 2c 35 2c  20 30 2c 38 2c 31 30 2c  |13,96,5, 0,8,10,|
000047c0  30 2c 20 30 2c 38 2c 31  35 2c 39 2c 20 30 2c 38  |0, 0,8,15,9, 0,8|
000047d0  2c 32 2c 30 2c 20 30 2c  32 2c 2d 34 2c 30 2c 20  |,2,0, 0,2,-4,0, |
000047e0  30 2c 38 2c 31 30 2c 30  3a 52 45 4d 20 32 31 2d  |0,8,10,0:REM 21-|
000047f0  32 32 0d 02 32 2f dc 20  35 36 2c 39 2c 32 31 2c  |22..2/. 56,9,21,|
00004800  31 2c 20 31 30 30 2c 35  35 2c 30 2c 30 3a 52 45  |1, 100,55,0,0:RE|
00004810  4d 20 32 32 2d 32 31 20  76 6f 69 64 20 70 61 74  |M 22-21 void pat|
00004820  68 0d 02 33 4b dc 20 35  37 2c 38 2c 39 37 2c 36  |h..3K. 57,8,97,6|
00004830  2c 20 30 2c 38 2c 33 36  2c 30 20 2c 30 2c 38 2c  |, 0,8,36,0 ,0,8,|
00004840  31 35 2c 30 2c 20 30 2c  38 2c 31 2c 30 2c 20 2d  |15,0, 0,8,1,0, -|
00004850  32 2c 30 2c 32 2c 30 2c  20 2d 34 2c 30 2c 31 2c  |2,0,2,0, -4,0,1,|
00004860  30 2c 20 30 2c 30 2c 35  30 2c 31 31 0d 02 34 68  |0, 0,0,50,11..4h|
00004870  dc 20 35 38 2c 31 34 2c  32 33 2c 38 2c 20 38 2c  |. 58,14,23,8, 8,|
00004880  38 2c 38 2c 31 2c 20 38  2c 30 2c 31 30 2c 32 2c  |8,8,1, 8,0,10,2,|
00004890  20 30 2c 33 2c 2d 34 2c  32 2c 20 38 2c 30 2c 32  | 0,3,-4,2, 8,0,2|
000048a0  30 2c 32 2c 20 38 2c 2d  38 2c 38 2c 33 2c 20 38  |0,2, 8,-8,8,3, 8|
000048b0  2c 30 2c 31 32 2c 32 2c  20 38 2c 38 2c 31 32 2c  |,0,12,2, 8,8,12,|
000048c0  31 2c 20 30 2c 38 2c 34  2c 30 3a 52 45 4d 20 32  |1, 0,8,4,0:REM 2|
000048d0  32 2d 32 33 0d 02 35 04  0d 02 36 1d dd f2 73 68  |2-23..5...6...sh|
000048e0  6f 77 5f 73 65 6e 73 65  73 28 61 63 74 69 6f 6e  |ow_senses(action|
000048f0  5f 67 6f 25 29 0d 02 37  0a 73 65 25 3d 33 30 0d  |_go%)..7.se%=30.|
00004900  02 38 36 f2 66 69 6e 64  5f 73 69 67 68 74 28 73  |.86.find_sight(s|
00004910  69 67 68 74 25 2c 32 36  2c 36 34 36 2c 35 33 30  |ight%,26,646,530|
00004920  2c 33 31 32 2c 22 59 6f  75 20 63 61 6e 20 73 65  |,312,"You can se|
00004930  65 2e 2e 22 29 0d 02 39  19 e7 63 6f 64 65 25 3d  |e..")..9..code%=|
00004940  39 3a f2 73 70 69 64 65  72 5f 61 6e 69 6d 0d 02  |9:.spider_anim..|
00004950  3a 19 e7 63 6f 64 65 25  3d 32 3a f2 72 61 62 62  |:..code%=2:.rabb|
00004960  69 74 5f 65 61 72 73 0d  02 3b 0f f2 70 61 75 73  |it_ears..;..paus|
00004970  65 28 73 65 25 29 0d 02  3c 35 f2 66 69 6e 64 5f  |e(se%)..<5.find_|
00004980  73 69 67 68 74 28 73 6d  65 6c 6c 25 2c 35 37 38  |sight(smell%,578|
00004990  2c 36 34 36 2c 33 32 32  2c 32 33 38 2c 22 43 61  |,646,322,238,"Ca|
000049a0  6e 20 73 6d 65 6c 6c 2e  2e 22 29 0d 02 3d 0f f2  |n smell..")..=..|
000049b0  70 61 75 73 65 28 73 65  25 29 0d 02 3e 36 f2 66  |pause(se%)..>6.f|
000049c0  69 6e 64 5f 73 69 67 68  74 28 68 65 61 72 69 6e  |ind_sight(hearin|
000049d0  67 25 2c 39 32 38 2c 36  34 36 2c 33 32 32 2c 32  |g%,928,646,322,2|
000049e0  33 38 2c 22 43 61 6e 20  68 65 61 72 2e 2e 22 29  |38,"Can hear..")|
000049f0  0d 02 3f 0f f2 70 61 75  73 65 28 73 65 25 29 0d  |..?..pause(se%).|
00004a00  02 40 33 f2 66 69 6e 64  5f 73 69 67 68 74 28 74  |.@3.find_sight(t|
00004a10  6f 75 63 68 25 2c 32 34  2c 32 37 36 2c 33 32 32  |ouch%,24,276,322|
00004a20  2c 32 33 38 2c 22 43 61  6e 20 66 65 65 6c 2e 2e  |,238,"Can feel..|
00004a30  22 29 0d 02 41 0f f2 70  61 75 73 65 28 73 65 25  |")..A..pause(se%|
00004a40  29 0d 02 42 35 f2 66 69  6e 64 5f 73 69 67 68 74  |)..B5.find_sight|
00004a50  28 74 61 73 74 65 25 2c  33 35 38 2c 32 37 36 2c  |(taste%,358,276,|
00004a60  33 32 32 2c 32 33 38 2c  22 43 61 6e 20 74 61 73  |322,238,"Can tas|
00004a70  74 65 2e 2e 22 29 0d 02  43 13 e7 61 63 74 69 6f  |te..")..C..actio|
00004a80  6e 5f 67 6f 25 3d 30 20  e1 0d 02 44 0a 64 69 67  |n_go%=0 ...D.dig|
00004a90  25 3d 30 0d 02 45 0f f2  70 61 75 73 65 28 73 65  |%=0..E..pause(se|
00004aa0  25 29 0d 02 46 8d e7 70  6f 73 5f 74 79 70 65 25  |%)..F..pos_type%|
00004ab0  28 4c 25 29 3d 35 3a f2  6d 65 72 67 65 5f 73 70  |(L%)=5:.merge_sp|
00004ac0  72 69 74 65 28 22 68 69  64 5f 62 61 64 22 29 3a  |rite("hid_bad"):|
00004ad0  f2 66 69 6e 64 5f 73 69  67 68 74 28 32 36 2c 36  |.find_sight(26,6|
00004ae0  39 38 2c 32 37 36 2c 35  35 38 2c 32 33 38 2c 22  |98,276,558,238,"|
00004af0  41 63 74 69 6f 6e 3f 22  29 3a ef 32 34 2c 37 30  |Action?"):.24,70|
00004b00  36 3b 32 38 34 3b 31 32  34 38 3b 33 33 36 3b 31  |6;284;1248;336;1|
00004b10  38 2c 30 2c 31 33 36 2c  31 36 2c 32 36 3a f2 64  |8,0,136,16,26:.d|
00004b20  65 6c 65 74 65 5f 68 69  64 5f 62 61 64 3a e1 0d  |elete_hid_bad:..|
00004b30  02 47 50 f2 66 69 6e 64  5f 73 69 67 68 74 28 35  |.GP.find_sight(5|
00004b40  2c 36 39 38 2c 32 37 36  2c 35 35 38 2c 32 33 38  |,698,276,558,238|
00004b50  2c 22 41 63 74 69 6f 6e  3f 22 29 3a ef 32 34 2c  |,"Action?"):.24,|
00004b60  37 30 36 3b 32 38 34 3b  31 32 34 38 3b 33 33 36  |706;284;1248;336|
00004b70  3b 31 38 2c 30 2c 31 33  36 2c 31 36 2c 32 36 0d  |;18,0,136,16,26.|
00004b80  02 48 05 e1 0d 02 49 04  0d 02 4a 0c dd f2 73 65  |.H....I...J...se|
00004b90  6e 73 65 73 0d 02 4b 0a  70 61 74 25 3d 30 0d 02  |nses..K.pat%=0..|
00004ba0  4c 2d f2 64 5f 73 70 72  69 74 65 28 22 73 63 72  |L-.d_sprite("scr|
00004bb0  6f 6c 6c 31 22 29 3a f2  64 5f 73 70 72 69 74 65  |oll1"):.d_sprite|
00004bc0  28 22 73 63 72 6f 6c 6c  32 22 29 0d 02 4d 1c f2  |("scroll2")..M..|
00004bd0  6d 65 72 67 65 5f 73 70  72 69 74 65 28 22 73 65  |merge_sprite("se|
00004be0  6e 73 65 73 31 22 29 0d  02 4e 1d f2 63 6c 65 61  |nses1")..N..clea|
00004bf0  72 5f 74 65 78 74 3a f2  62 6f 74 74 6f 6d 5f 66  |r_text:.bottom_f|
00004c00  72 61 6d 65 0d 02 4f 07  ef 32 36 0d 02 50 13 f2  |rame..O..26..P..|
00004c10  73 68 6f 77 5f 73 65 6e  73 65 73 28 31 29 0d 02  |show_senses(1)..|
00004c20  51 1a f2 69 6e 69 74 69  61 6c 69 73 65 5f 62 75  |Q..initialise_bu|
00004c30  74 74 6f 6e 73 28 32 29  0d 02 52 04 0d 02 53 20  |ttons(2)..R...S |
00004c40  f2 63 68 65 63 6b 5f 62  75 74 74 6f 6e 73 28 31  |.check_buttons(1|
00004c50  2c 74 6f 74 61 6c 5f 62  75 74 25 29 0d 02 54 05  |,total_but%)..T.|
00004c60  f5 0d 02 55 1b 20 f2 69  6e 69 74 69 61 6c 69 73  |...U. .initialis|
00004c70  65 5f 62 75 74 74 6f 6e  73 28 32 29 0d 02 56 24  |e_buttons(2)..V$|
00004c80  20 20 f5 3a f2 63 68 65  63 6b 5f 62 75 74 74 6f  |  .:.check_butto|
00004c90  6e 73 28 31 2c 74 6f 74  61 6c 5f 62 75 74 25 29  |ns(1,total_but%)|
00004ca0  0d 02 57 12 20 20 fd 73  65 6c 65 63 74 65 64 25  |..W.  .selected%|
00004cb0  3e 30 0d 02 58 0d 20 20  6b 69 6c 6c 25 3d 30 0d  |>0..X.  kill%=0.|
00004cc0  02 59 51 20 20 e7 70 6f  73 5f 74 79 70 65 25 28  |.YQ  .pos_type%(|
00004cd0  4c 25 29 3d 35 20 80 20  28 73 65 6c 65 63 74 65  |L%)=5 . (selecte|
00004ce0  64 25 3c 3e 34 20 80 20  73 65 6c 65 63 74 65 64  |d%<>4 . selected|
00004cf0  25 3c 3e 31 29 3a f2 73  74 75 63 6b 5f 69 6e 5f  |%<>1):.stuck_in_|
00004d00  62 75 73 68 3a 73 65 6c  65 63 74 65 64 25 3d 30  |bush:selected%=0|
00004d10  0d 02 5a 30 20 20 e7 73  65 6c 65 63 74 65 64 25  |..Z0  .selected%|
00004d20  3d 32 20 80 20 63 6f 64  65 25 3d 32 3a 73 65 6c  |=2 . code%=2:sel|
00004d30  65 63 74 65 64 25 3d 36  3a 6b 69 6c 6c 25 3d 31  |ected%=6:kill%=1|
00004d40  0d 02 5b 30 20 20 e7 73  65 6c 65 63 74 65 64 25  |..[0  .selected%|
00004d50  3d 32 20 80 20 63 6f 64  65 25 3d 33 3a 73 65 6c  |=2 . code%=3:sel|
00004d60  65 63 74 65 64 25 3d 36  3a 6b 69 6c 6c 25 3d 31  |ected%=6:kill%=1|
00004d70  0d 02 5c 30 20 20 e7 73  65 6c 65 63 74 65 64 25  |..\0  .selected%|
00004d80  3d 35 20 80 20 63 6f 64  65 25 3d 32 3a 73 65 6c  |=5 . code%=2:sel|
00004d90  65 63 74 65 64 25 3d 36  3a 6b 69 6c 6c 25 3d 31  |ected%=6:kill%=1|
00004da0  0d 02 5d 30 20 20 e7 73  65 6c 65 63 74 65 64 25  |..]0  .selected%|
00004db0  3d 35 20 80 20 63 6f 64  65 25 3d 33 3a 73 65 6c  |=5 . code%=3:sel|
00004dc0  65 63 74 65 64 25 3d 36  3a 6b 69 6c 6c 25 3d 31  |ected%=6:kill%=1|
00004dd0  0d 02 5e 39 20 20 e7 73  65 6c 65 63 74 65 64 25  |..^9  .selected%|
00004de0  3d 32 20 80 20 63 6f 64  65 25 3d 39 3a 73 65 6c  |=2 . code%=9:sel|
00004df0  65 63 74 65 64 25 3d 35  3a f4 20 73 70 69 64 65  |ected%=5:. spide|
00004e00  72 20 6f 6e 20 77 61 6c  6c 0d 02 5f 2b 20 20 e7  |r on wall.._+  .|
00004e10  73 65 6c 65 63 74 65 64  25 3d 38 3a f2 73 65 61  |selected%=8:.sea|
00004e20  72 63 68 5f 61 6e 69 6d  3a 73 65 6c 65 63 74 65  |rch_anim:selecte|
00004e30  64 25 3d 30 0d 02 60 28  20 20 e7 73 65 6c 65 63  |d%=0..`(  .selec|
00004e40  74 65 64 25 3d 32 3a f2  65 61 74 5f 61 6e 69 6d  |ted%=2:.eat_anim|
00004e50  3a 73 65 6c 65 63 74 65  64 25 3d 30 0d 02 61 28  |:selected%=0..a(|
00004e60  20 20 e7 73 65 6c 65 63  74 65 64 25 3d 36 3a f2  |  .selected%=6:.|
00004e70  72 75 6e 5f 61 6e 69 6d  3a 73 65 6c 65 63 74 65  |run_anim:selecte|
00004e80  64 25 3d 30 0d 02 62 28  20 20 e7 73 65 6c 65 63  |d%=0..b(  .selec|
00004e90  74 65 64 25 3d 37 3a f2  64 69 67 5f 61 6e 69 6d  |ted%=7:.dig_anim|
00004ea0  3a 73 65 6c 65 63 74 65  64 25 3d 30 0d 02 63 2a  |:selected%=0..c*|
00004eb0  20 20 e7 73 65 6c 65 63  74 65 64 25 3d 33 3a f2  |  .selected%=3:.|
00004ec0  64 72 69 6e 6b 5f 61 6e  69 6d 3a 73 65 6c 65 63  |drink_anim:selec|
00004ed0  74 65 64 25 3d 30 0d 02  64 2a 20 20 e7 73 65 6c  |ted%=0..d*  .sel|
00004ee0  65 63 74 65 64 25 3d 34  3a f2 73 6c 65 65 70 5f  |ected%=4:.sleep_|
00004ef0  61 6e 69 6d 3a 73 65 6c  65 63 74 65 64 25 3d 30  |anim:selected%=0|
00004f00  0d 02 65 2b 20 20 e7 73  65 6c 65 63 74 65 64 25  |..e+  .selected%|
00004f10  3d 35 3a f2 61 74 74 61  63 6b 5f 61 6e 69 6d 3a  |=5:.attack_anim:|
00004f20  73 65 6c 65 63 74 65 64  25 3d 30 0d 02 66 12 20  |selected%=0..f. |
00004f30  fd 20 73 65 6c 65 63 74  65 64 25 3d 31 0d 02 67  |. selected%=1..g|
00004f40  13 f2 64 65 6c 65 74 65  5f 73 65 6e 73 65 73 31  |..delete_senses1|
00004f50  0d 02 68 1d f2 63 6c 65  61 72 5f 74 65 78 74 3a  |..h..clear_text:|
00004f60  f2 62 6f 74 74 6f 6d 5f  66 72 61 6d 65 0d 02 69  |.bottom_frame..i|
00004f70  05 e1 0d 02 6a 04 0d 02  6b 14 dd f2 64 65 6c 65  |....j...k...dele|
00004f80  74 65 5f 73 65 6e 73 65  73 31 0d 02 6c 27 f2 64  |te_senses1..l'.d|
00004f90  5f 73 70 72 69 74 65 28  22 63 6f 77 22 29 3a f2  |_sprite("cow"):.|
00004fa0  64 5f 73 70 72 69 74 65  28 22 62 75 67 6c 31 22  |d_sprite("bugl1"|
00004fb0  29 0d 02 6d 40 f2 64 5f  73 70 72 69 74 65 28 22  |)..m@.d_sprite("|
00004fc0  70 6f 69 73 6f 6e 22 29  3a f2 64 5f 73 70 72 69  |poison"):.d_spri|
00004fd0  74 65 28 22 77 68 65 65  6c 31 22 29 3a f2 64 5f  |te("wheel1"):.d_|
00004fe0  73 70 72 69 74 65 28 22  65 78 68 61 75 73 74 22  |sprite("exhaust"|
00004ff0  29 0d 02 6e 18 f2 64 5f  73 70 72 69 74 65 28 22  |)..n..d_sprite("|
00005000  6c 66 72 6f 67 5f 31 22  29 0d 02 6f 2c f2 64 5f  |lfrog_1")..o,.d_|
00005010  73 70 72 69 74 65 28 22  72 61 62 62 69 74 22 29  |sprite("rabbit")|
00005020  3a f2 64 5f 73 70 72 69  74 65 28 22 72 61 62 65  |:.d_sprite("rabe|
00005030  61 72 73 22 29 0d 02 70  2d f2 64 5f 73 70 72 69  |ars")..p-.d_spri|
00005040  74 65 28 22 67 61 6c 5f  31 22 29 3a f2 64 5f 73  |te("gal_1"):.d_s|
00005050  70 72 69 74 65 28 22 62  69 67 73 70 69 64 65 72  |prite("bigspider|
00005060  22 29 0d 02 71 83 f2 64  5f 73 70 72 69 74 65 28  |")..q..d_sprite(|
00005070  22 6d 61 6e 22 29 3a f2  64 5f 73 70 72 69 74 65  |"man"):.d_sprite|
00005080  28 22 77 6f 72 6d 32 22  29 3a f2 64 5f 73 70 72  |("worm2"):.d_spr|
00005090  69 74 65 28 22 62 75 6c  62 22 29 3a f2 64 5f 73  |ite("bulb"):.d_s|
000050a0  70 72 69 74 65 28 22 66  6f 78 22 29 3a f2 64 5f  |prite("fox"):.d_|
000050b0  73 70 72 69 74 65 28 22  63 68 69 63 6b 65 6e 22  |sprite("chicken"|
000050c0  29 3a f2 64 5f 73 70 72  69 74 65 28 22 64 6f 67  |):.d_sprite("dog|
000050d0  22 29 3a f2 64 5f 73 70  72 69 74 65 28 22 6f 77  |"):.d_sprite("ow|
000050e0  6c 5f 31 22 29 0d 02 72  05 e1 0d 02 73 04 0d 02  |l_1")..r....s...|
000050f0  74 14 dd f2 64 65 6c 65  74 65 5f 68 69 64 5f 62  |t...delete_hid_b|
00005100  61 64 0d 02 75 16 f2 64  5f 73 70 72 69 74 65 28  |ad..u..d_sprite(|
00005110  22 68 69 64 65 31 22 29  0d 02 76 05 e1 0d 02 77  |"hide1")..v....w|
00005120  04 0d 02 78 13 dd f2 64  65 6c 65 74 65 5f 72 61  |...x...delete_ra|
00005130  62 65 61 74 0d 02 79 3d  f2 64 5f 73 70 72 69 74  |beat..y=.d_sprit|
00005140  65 28 22 68 6f 6c 65 31  22 29 3a f2 64 5f 73 70  |e("hole1"):.d_sp|
00005150  72 69 74 65 28 22 68 6f  6c 65 32 22 29 3a f2 64  |rite("hole2"):.d|
00005160  5f 73 70 72 69 74 65 28  22 72 61 62 65 61 74 22  |_sprite("rabeat"|
00005170  29 0d 02 7a 05 e1 0d 02  7b 04 0d 02 7c 11 dd f2  |)..z....{...|...|
00005180  64 65 6c 65 74 65 5f 63  61 72 73 0d 02 7d 39 f2  |delete_cars..}9.|
00005190  64 5f 73 70 72 69 74 65  28 22 63 61 72 31 22 29  |d_sprite("car1")|
000051a0  3a f2 64 5f 73 70 72 69  74 65 28 22 63 61 72 32  |:.d_sprite("car2|
000051b0  22 29 3a f2 64 5f 73 70  72 69 74 65 28 22 63 61  |"):.d_sprite("ca|
000051c0  72 33 22 29 0d 02 7e 05  e1 0d 02 7f 04 0d 02 80  |r3")..~.........|
000051d0  12 dd f2 64 65 6c 65 74  65 5f 64 72 69 6e 6b 0d  |...delete_drink.|
000051e0  02 81 2f f2 64 5f 73 70  72 69 74 65 28 22 62 61  |../.d_sprite("ba|
000051f0  64 67 65 72 31 31 22 29  3a f2 64 5f 73 70 72 69  |dger11"):.d_spri|
00005200  74 65 28 22 62 61 64 67  65 72 31 32 22 29 0d 02  |te("badger12")..|
00005210  82 2d f2 64 5f 73 70 72  69 74 65 28 22 77 61 74  |.-.d_sprite("wat|
00005220  65 72 22 29 3a f2 64 5f  73 70 72 69 74 65 28 22  |er"):.d_sprite("|
00005230  77 61 74 65 72 65 64 67  65 22 29 0d 02 83 05 e1  |wateredge").....|
00005240  0d 02 84 04 0d 02 85 13  dd f2 64 65 6c 65 74 65  |..........delete|
00005250  5f 73 65 61 72 63 68 0d  02 86 43 f2 64 5f 73 70  |_search...C.d_sp|
00005260  72 69 74 65 28 22 62 61  64 67 65 72 38 22 29 3a  |rite("badger8"):|
00005270  f2 64 5f 73 70 72 69 74  65 28 22 62 61 64 67 65  |.d_sprite("badge|
00005280  72 31 30 22 29 3a f2 64  5f 73 70 72 69 74 65 28  |r10"):.d_sprite(|
00005290  22 62 61 64 67 65 72 39  22 29 0d 02 87 05 e1 0d  |"badger9")......|
000052a0  02 88 04 0d 02 89 12 dd  f2 64 65 6c 65 74 65 5f  |.........delete_|
000052b0  64 65 61 74 68 0d 02 8a  2c f2 64 5f 73 70 72 69  |death...,.d_spri|
000052c0  74 65 28 22 64 65 61 74  68 22 29 3a f2 64 5f 73  |te("death"):.d_s|
000052d0  70 72 69 74 65 28 22 72  69 76 64 65 61 74 68 22  |prite("rivdeath"|
000052e0  29 0d 02 8b 05 e1 0d 02  8c 04 0d 02 8d 11 dd f2  |)...............|
000052f0  64 65 6c 65 74 65 5f 6b  69 6c 6c 0d 02 8e 2d f2  |delete_kill...-.|
00005300  64 5f 73 70 72 69 74 65  28 22 66 72 6f 67 67 79  |d_sprite("froggy|
00005310  31 22 29 3a f2 64 5f 73  70 72 69 74 65 28 22 66  |1"):.d_sprite("f|
00005320  72 6f 67 67 79 32 22 29  0d 02 8f 42 f2 64 5f 73  |roggy2")...B.d_s|
00005330  70 72 69 74 65 28 22 72  61 62 62 69 74 31 22 29  |prite("rabbit1")|
00005340  3a f2 64 5f 73 70 72 69  74 65 28 22 72 61 62 62  |:.d_sprite("rabb|
00005350  69 74 32 22 29 3a f2 64  5f 73 70 72 69 74 65 28  |it2"):.d_sprite(|
00005360  22 72 61 62 62 69 74 33  22 29 0d 02 90 05 e1 0d  |"rabbit3")......|
00005370  02 91 04 0d 02 92 10 dd  f2 64 65 6c 65 74 65 5f  |.........delete_|
00005380  64 69 67 0d 02 93 39 f2  64 5f 73 70 72 69 74 65  |dig...9.d_sprite|
00005390  28 22 64 69 67 31 22 29  3a f2 64 5f 73 70 72 69  |("dig1"):.d_spri|
000053a0  74 65 28 22 64 69 67 32  22 29 3a f2 64 5f 73 70  |te("dig2"):.d_sp|
000053b0  72 69 74 65 28 22 64 69  67 33 22 29 0d 02 94 39  |rite("dig3")...9|
000053c0  f2 64 5f 73 70 72 69 74  65 28 22 64 69 67 34 22  |.d_sprite("dig4"|
000053d0  29 3a f2 64 5f 73 70 72  69 74 65 28 22 64 69 67  |):.d_sprite("dig|
000053e0  35 22 29 3a f2 64 5f 73  70 72 69 74 65 28 22 64  |5"):.d_sprite("d|
000053f0  69 67 36 22 29 0d 02 95  39 f2 64 5f 73 70 72 69  |ig6")...9.d_spri|
00005400  74 65 28 22 64 69 67 37  22 29 3a f2 64 5f 73 70  |te("dig7"):.d_sp|
00005410  72 69 74 65 28 22 64 69  67 38 22 29 3a f2 64 5f  |rite("dig8"):.d_|
00005420  73 70 72 69 74 65 28 22  64 69 67 39 22 29 0d 02  |sprite("dig9")..|
00005430  96 16 f2 64 5f 73 70 72  69 74 65 28 22 64 69 67  |...d_sprite("dig|
00005440  31 31 22 29 0d 02 97 05  e1 0d 02 98 04 0d 02 99  |11")............|
00005450  12 dd f2 64 65 6c 65 74  65 5f 73 74 61 72 74 0d  |...delete_start.|
00005460  02 9a 1a f2 64 5f 73 70  72 69 74 65 28 22 73 74  |....d_sprite("st|
00005470  61 72 74 5f 62 61 64 22  29 0d 02 9b 05 e1 0d 02  |art_bad").......|
00005480  9c 04 0d 02 9d 13 dd f2  73 74 75 63 6b 5f 69 6e  |........stuck_in|
00005490  5f 62 75 73 68 0d 02 9e  52 f2 63 6c 65 61 72 5f  |_bush...R.clear_|
000054a0  74 65 78 74 3a f2 6d 65  73 73 61 67 65 28 22 59  |text:.message("Y|
000054b0  6f 75 20 63 61 6e 6e 6f  74 20 64 6f 20 74 68 61  |ou cannot do tha|
000054c0  74 20 68 65 72 65 2c 20  20 74 68 65 20 62 75 73  |t here,  the bus|
000054d0  68 22 2c 22 69 73 20 66  61 72 20 74 6f 6f 20 74  |h","is far too t|
000054e0  68 69 63 6b 2e 22 29 0d  02 9f 05 e1 0d 02 a0 04  |hick.").........|
000054f0  0d 02 a1 11 dd f2 73 70  69 64 65 72 5f 61 6e 69  |......spider_ani|
00005500  6d 0d 02 a2 2f f2 6c 69  74 74 6c 65 5f 61 6e 69  |m.../.little_ani|
00005510  6d 28 33 38 30 2c 39 32  38 2c 30 2c 2d 34 2c 33  |m(380,928,0,-4,3|
00005520  30 2c 22 73 70 69 64 65  72 31 22 2c 30 2c 31 29  |0,"spider1",0,1)|
00005530  0d 02 a3 18 f2 64 5f 73  70 72 69 74 65 28 22 73  |.....d_sprite("s|
00005540  63 72 6f 6c 6c 31 22 29  0d 02 a4 05 e1 0d 02 a5  |croll1")........|
00005550  04 0d 02 a6 11 dd f2 72  61 62 62 69 74 5f 65 61  |.......rabbit_ea|
00005560  72 73 0d 02 a7 2f f2 6c  69 74 74 6c 65 5f 61 6e  |rs.../.little_an|
00005570  69 6d 28 33 36 30 2c 38  34 30 2c 2d 34 2c 30 2c  |im(360,840,-4,0,|
00005580  33 30 2c 22 72 61 62 65  61 72 73 22 2c 30 2c 31  |30,"rabears",0,1|
00005590  29 0d 02 a8 18 f2 64 5f  73 70 72 69 74 65 28 22  |).....d_sprite("|
000055a0  73 63 72 6f 6c 6c 31 22  29 0d 02 a9 05 e1 0d 02  |scroll1").......|
000055b0  aa 04 0d 02 ab 48 dd f2  6c 69 74 74 6c 65 5f 61  |.....H..little_a|
000055c0  6e 69 6d 28 73 61 6d 78  25 2c 73 61 6d 79 25 2c  |nim(samx%,samy%,|
000055d0  73 61 6d 69 6e 78 25 2c  73 61 6d 69 6e 79 25 2c  |saminx%,saminy%,|
000055e0  73 61 6d 63 6f 75 6e 74  25 2c 74 79 70 65 24 2c  |samcount%,type$,|
000055f0  66 6f 6c 25 2c 65 6e 64  25 29 0d 02 ac 37 c8 99  |fol%,end%)...7..|
00005600  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00005610  31 38 2c 73 70 72 69 74  65 5f 61 72 65 61 31 25  |18,sprite_area1%|
00005620  2c 74 79 70 65 24 20 b8  20 72 30 2c 72 31 2c 42  |,type$ . r0,r1,B|
00005630  25 0d 02 ad 1e 66 63 6f  6c 31 25 3d 35 3a 66 63  |%....fcol1%=5:fc|
00005640  6f 6c 32 25 3d 35 3a 66  63 6f 6c 33 25 3d 35 0d  |ol2%=5:fcol3%=5.|
00005650  02 ae 1d e7 74 79 70 65  24 3d 22 72 61 62 65 61  |....type$="rabea|
00005660  72 73 22 3a 66 63 6f 6c  31 25 3d 32 0d 02 af 04  |rs":fcol1%=2....|
00005670  0d 02 b0 1a 77 69 64 74  68 25 3d 28 21 28 42 25  |....width%=(!(B%|
00005680  2b 31 36 29 2b 31 29 2a  31 36 0d 02 b1 1a 68 65  |+16)+1)*16....he|
00005690  69 67 68 74 25 3d 28 21  28 42 25 2b 32 30 29 2b  |ight%=(!(B%+20)+|
000056a0  31 29 2a 34 0d 02 b2 61  e7 66 6f 6c 25 3d 30 3a  |1)*4...a.fol%=0:|
000056b0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000056c0  26 31 31 30 2c 73 70 72  69 74 65 5f 61 72 65 61  |&110,sprite_area|
000056d0  31 25 2c 22 73 63 72 6f  6c 6c 31 22 2c 30 2c 73  |1%,"scroll1",0,s|
000056e0  61 6d 78 25 2c 73 61 6d  79 25 2c 73 61 6d 78 25  |amx%,samy%,samx%|
000056f0  2b 77 69 64 74 68 25 2c  73 61 6d 79 25 2b 68 65  |+width%,samy%+he|
00005700  69 67 68 74 25 0d 02 b3  36 f2 70 6c 6f 74 5f 73  |ight%...6.plot_s|
00005710  70 72 69 74 65 5f 73 63  61 6c 65 64 28 73 61 6d  |prite_scaled(sam|
00005720  78 25 2c 73 61 6d 79 25  2c 31 2c 31 2c 31 2c 31  |x%,samy%,1,1,1,1|
00005730  2c 22 73 63 72 6f 6c 6c  31 22 29 0d 02 b4 14 e3  |,"scroll1").....|
00005740  66 25 3d 31 b8 20 73 61  6d 63 6f 75 6e 74 25 0d  |f%=1. samcount%.|
00005750  02 b5 50 f2 73 70 72 69  74 65 5f 70 6c 6f 74 28  |..P.sprite_plot(|
00005760  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 74 79  |sprite_area1%,ty|
00005770  70 65 24 2c 73 61 6d 78  25 2c 73 61 6d 79 25 2b  |pe$,samx%,samy%+|
00005780  68 65 69 67 68 74 25 2c  34 2c 66 63 6f 6c 31 25  |height%,4,fcol1%|
00005790  2c 66 63 6f 6c 32 25 2c  66 63 6f 6c 33 25 29 0d  |,fcol2%,fcol3%).|
000057a0  02 b6 12 f2 70 61 75 73  65 28 61 72 6d 25 2a 32  |....pause(arm%*2|
000057b0  29 0d 02 b7 36 f2 70 6c  6f 74 5f 73 70 72 69 74  |)...6.plot_sprit|
000057c0  65 5f 73 63 61 6c 65 64  28 73 61 6d 78 25 2c 73  |e_scaled(samx%,s|
000057d0  61 6d 79 25 2c 31 2c 31  2c 31 2c 31 2c 22 73 63  |amy%,1,1,1,1,"sc|
000057e0  72 6f 6c 6c 31 22 29 0d  02 b8 2b 73 61 6d 78 25  |roll1")...+samx%|
000057f0  3d 73 61 6d 78 25 2b 73  61 6d 69 6e 78 25 3a 73  |=samx%+saminx%:s|
00005800  61 6d 79 25 3d 73 61 6d  79 25 2b 73 61 6d 69 6e  |amy%=samy%+samin|
00005810  79 25 0d 02 b9 59 c8 99  22 4f 53 5f 53 70 72 69  |y%...Y.."OS_Spri|
00005820  74 65 4f 70 22 2c 26 31  31 30 2c 73 70 72 69 74  |teOp",&110,sprit|
00005830  65 5f 61 72 65 61 31 25  2c 22 73 63 72 6f 6c 6c  |e_area1%,"scroll|
00005840  31 22 2c 30 2c 73 61 6d  78 25 2c 73 61 6d 79 25  |1",0,samx%,samy%|
00005850  2c 73 61 6d 78 25 2b 77  69 64 74 68 25 2c 73 61  |,samx%+width%,sa|
00005860  6d 79 25 2b 68 65 69 67  68 74 25 0d 02 ba 36 e7  |my%+height%...6.|
00005870  74 79 70 65 24 3d 22 73  70 69 64 65 72 31 22 3a  |type$="spider1":|
00005880  e6 30 2c 33 3a f0 34 2c  73 61 6d 78 25 2b 32 30  |.0,3:.4,samx%+20|
00005890  2c 73 61 6d 79 25 2b 33  36 3a f0 31 2c 30 2c 31  |,samy%+36:.1,0,1|
000058a0  36 0d 02 bb 05 ed 0d 02  bc 49 e7 65 6e 64 25 3d  |6........I.end%=|
000058b0  31 3a f2 73 70 72 69 74  65 5f 70 6c 6f 74 28 73  |1:.sprite_plot(s|
000058c0  70 72 69 74 65 5f 61 72  65 61 31 25 2c 74 79 70  |prite_area1%,typ|
000058d0  65 24 2c 73 61 6d 78 25  2c 73 61 6d 79 25 2b 68  |e$,samx%,samy%+h|
000058e0  65 69 67 68 74 25 2c 34  2c 35 2c 35 2c 35 29 0d  |eight%,4,5,5,5).|
000058f0  02 bd 05 e1 0d 02 be 04  0d 02 bf 11 dd f2 61 74  |..............at|
00005900  74 61 63 6b 5f 61 6e 69  6d 0d 02 c0 0b 6d 65 73  |tack_anim....mes|
00005910  73 25 3d 30 0d 02 c1 20  e7 63 6f 64 65 25 3d 39  |s%=0... .code%=9|
00005920  20 f2 65 61 74 5f 73 70  69 64 65 72 3a 6d 65 73  | .eat_spider:mes|
00005930  73 25 3d 31 0d 02 c2 70  e7 4c 25 3d 31 36 20 80  |s%=1...p.L%=16 .|
00005940  20 52 25 3d 33 20 80 20  51 25 3d 31 20 f2 63 6c  | R%=3 . Q%=1 .cl|
00005950  65 61 72 5f 74 65 78 74  3a f2 6d 65 73 73 61 67  |ear_text:.messag|
00005960  65 28 22 59 6f 75 20 63  61 6e 6e 6f 74 20 61 74  |e("You cannot at|
00005970  74 61 63 6b 20 61 20 63  6f 77 2e 22 2c 22 59 6f  |tack a cow.","Yo|
00005980  75 20 77 6f 75 6c 64 20  67 65 74 20 73 71 75 61  |u would get squa|
00005990  73 68 65 64 20 66 6c 61  74 21 22 29 3a 6d 65 73  |shed flat!"):mes|
000059a0  73 25 3d 31 0d 02 c3 74  e7 4c 25 3d 31 36 20 80  |s%=1...t.L%=16 .|
000059b0  20 28 52 25 3c 33 20 84  20 51 25 3c 31 29 20 f2  | (R%<3 . Q%<1) .|
000059c0  63 6c 65 61 72 5f 74 65  78 74 3a f2 6d 65 73 73  |clear_text:.mess|
000059d0  61 67 65 28 22 59 6f 75  20 63 61 6e 6e 6f 74 20  |age("You cannot |
000059e0  61 74 74 61 63 6b 20 61  20 6d 61 6e 20 77 69 74  |attack a man wit|
000059f0  68 20 61 20 67 75 6e 21  22 2c 22 20 59 6f 75 20  |h a gun!"," You |
00005a00  6d 69 67 68 74 20 62 65  20 73 68 6f 74 2e 22 29  |might be shot.")|
00005a10  3a 6d 65 73 73 25 3d 31  0d 02 c4 62 e7 4c 25 3d  |:mess%=1...b.L%=|
00005a20  36 20 84 20 4c 25 3d 39  3a f2 63 6c 65 61 72 5f  |6 . L%=9:.clear_|
00005a30  74 65 78 74 3a f2 6d 65  73 73 61 67 65 28 22 59  |text:.message("Y|
00005a40  6f 75 20 63 61 6e 6e 6f  74 20 61 74 74 61 63 6b  |ou cannot attack|
00005a50  20 61 20 63 61 72 2e 20  20 49 74 20 77 69 6c 6c  | a car.  It will|
00005a60  20 61 6c 77 61 79 73 20  77 69 6e 2e 22 2c 22 20  | always win."," |
00005a70  22 29 3a 6d 65 73 73 25  3d 31 0d 02 c5 56 e7 63  |"):mess%=1...V.c|
00005a80  6f 64 65 25 3d 36 20 80  20 6d 65 73 73 25 3d 30  |ode%=6 . mess%=0|
00005a90  20 f2 63 6c 65 61 72 5f  74 65 78 74 3a f2 6d 65  | .clear_text:.me|
00005aa0  73 73 61 67 65 28 22 59  6f 75 20 63 61 6e 6e 6f  |ssage("You canno|
00005ab0  74 20 73 65 65 20 74 68  69 73 20 72 61 62 62 69  |t see this rabbi|
00005ac0  74 2e 22 2c 22 20 22 29  3a 6d 65 73 73 25 3d 31  |t."," "):mess%=1|
00005ad0  0d 02 c6 49 e7 6d 65 73  73 25 3d 30 3a f2 63 6c  |...I.mess%=0:.cl|
00005ae0  65 61 72 5f 74 65 78 74  3a f2 6d 65 73 73 61 67  |ear_text:.messag|
00005af0  65 28 22 54 68 65 72 65  20 69 73 20 6e 6f 74 68  |e("There is noth|
00005b00  69 6e 67 20 68 65 72 65  20 74 6f 20 61 74 74 61  |ing here to atta|
00005b10  63 6b 2e 22 2c 22 20 22  29 0d 02 c7 05 e1 0d 02  |ck."," ").......|
00005b20  c8 04 0d 02 c9 10 dd f2  73 6c 65 65 70 5f 61 6e  |........sleep_an|
00005b30  69 6d 0d 02 ca 0b 6d 65  73 73 25 3d 30 0d 02 cb  |im....mess%=0...|
00005b40  a1 f4 20 49 46 70 6f 73  5f 74 79 70 65 25 28 4c  |.. IFpos_type%(L|
00005b50  25 29 3d 35 3a 50 52 4f  43 6d 65 72 67 65 5f 73  |%)=5:PROCmerge_s|
00005b60  70 72 69 74 65 28 22 68  69 64 5f 62 61 64 22 29  |prite("hid_bad")|
00005b70  3a 50 52 4f 43 66 69 6e  64 5f 73 69 67 68 74 28  |:PROCfind_sight(|
00005b80  32 37 2c 36 39 38 2c 32  37 36 2c 35 35 38 2c 32  |27,698,276,558,2|
00005b90  33 38 2c 22 41 63 74 69  6f 6e 3f 22 29 3a 56 44  |38,"Action?"):VD|
00005ba0  55 32 34 2c 37 30 36 3b  32 38 34 3b 31 32 34 38  |U24,706;284;1248|
00005bb0  3b 33 33 36 3b 31 38 2c  30 2c 31 33 36 2c 31 36  |;336;18,0,136,16|
00005bc0  2c 32 36 3a 50 52 4f 43  64 65 6c 65 74 65 5f 68  |,26:PROCdelete_h|
00005bd0  69 64 5f 62 61 64 3a 6d  65 73 73 25 3d 31 0d 02  |id_bad:mess%=1..|
00005be0  cc 3f e7 6d 65 73 73 25  3d 30 3a f2 63 6c 65 61  |.?.mess%=0:.clea|
00005bf0  72 5f 74 65 78 74 3a f2  6d 65 73 73 61 67 65 28  |r_text:.message(|
00005c00  22 59 6f 75 20 61 72 65  20 6e 6f 74 20 74 69 72  |"You are not tir|
00005c10  65 64 20 79 65 74 2e 22  2c 22 20 22 29 0d 02 cd  |ed yet."," ")...|
00005c20  05 e1 0d 02 ce 04 0d 02  cf 0e dd f2 64 69 67 5f  |............dig_|
00005c30  61 6e 69 6d 0d 02 d0 b4  e7 63 6f 64 65 25 3d 36  |anim.....code%=6|
00005c40  3a f2 73 65 74 5f 61 63  74 69 6f 6e 3a e6 30 2c  |:.set_action:.0,|
00005c50  31 31 3a ec 33 32 2c 32  38 34 3a df 31 32 34 38  |11:.32,284:.1248|
00005c60  2c 32 38 34 3a f2 6d 65  72 67 65 5f 73 70 72 69  |,284:.merge_spri|
00005c70  74 65 28 22 72 61 62 68  6f 6c 65 22 29 3a f2 63  |te("rabhole"):.c|
00005c80  6c 65 61 72 5f 74 65 78  74 3a f2 70 72 69 32 28  |lear_text:.pri2(|
00005c90  36 34 2c 31 38 30 2c 30  2c 31 2c 31 32 38 2c 31  |64,180,0,1,128,1|
00005ca0  2c 22 59 6f 75 20 64 69  67 20 66 6f 72 20 74 68  |,"You dig for th|
00005cb0  65 20 72 61 62 62 69 74  2e 22 29 3a f2 70 6c 6f  |e rabbit."):.plo|
00005cc0  74 5f 73 70 72 69 74 65  5f 73 63 61 6c 65 64 28  |t_sprite_scaled(|
00005cd0  34 33 32 2c 32 38 36 2c  31 2c 31 2c 31 2c 31 2c  |432,286,1,1,1,1,|
00005ce0  22 48 4f 4c 45 31 22 29  0d 02 d1 8a e7 64 69 67  |"HOLE1").....dig|
00005cf0  25 3d 31 20 80 20 28 63  6f 64 65 25 3d 31 20 84  |%=1 . (code%=1 .|
00005d00  20 63 6f 64 65 25 3d 35  20 84 20 63 6f 64 65 25  | code%=5 . code%|
00005d10  3d 37 29 3a f2 63 6c 65  61 72 5f 74 65 78 74 3a  |=7):.clear_text:|
00005d20  f2 70 72 69 32 28 36 34  2c 31 34 30 2c 30 2c 31  |.pri2(64,140,0,1|
00005d30  2c 31 32 38 2c 31 2c 22  54 68 65 72 65 20 69 73  |,128,1,"There is|
00005d40  20 6e 6f 20 6e 65 65 64  20 74 6f 20 64 69 67 20  | no need to dig |
00005d50  61 6e 79 20 64 65 65 70  65 72 2e 22 29 3a f2 73  |any deeper."):.s|
00005d60  70 61 63 65 3a f2 63 6c  65 61 72 5f 74 65 78 74  |pace:.clear_text|
00005d70  3a e1 0d 02 d2 a0 e7 64  69 67 25 3d 31 3a f2 63  |:......dig%=1:.c|
00005d80  6c 65 61 72 5f 74 65 78  74 3a f2 70 72 69 32 28  |lear_text:.pri2(|
00005d90  36 34 2c 31 38 30 2c 30  2c 31 2c 31 32 38 2c 31  |64,180,0,1,128,1|
00005da0  2c 22 54 68 65 72 65 20  69 73 20 6e 6f 20 66 6f  |,"There is no fo|
00005db0  6f 64 20 68 65 72 65 20  61 6e 64 20 69 74 22 29  |od here and it")|
00005dc0  3a f2 70 72 69 32 28 36  34 2c 31 32 30 2c 30 2c  |:.pri2(64,120,0,|
00005dd0  31 2c 31 32 38 2c 31 2c  22 69 73 20 6e 6f 74 20  |1,128,1,"is not |
00005de0  61 20 67 6f 6f 64 20 70  6c 61 63 65 20 74 6f 20  |a good place to |
00005df0  64 69 67 20 61 20 73 65  74 74 2e 22 29 3a f2 73  |dig a sett."):.s|
00005e00  70 61 63 65 3a f2 63 6c  65 61 72 5f 74 65 78 74  |pace:.clear_text|
00005e10  3a e1 0d 02 d3 1c f2 6d  65 72 67 65 5f 73 70 72  |:......merge_spr|
00005e20  69 74 65 28 22 61 63 74  5f 64 69 67 22 29 0d 02  |ite("act_dig")..|
00005e30  d4 0f f2 63 6c 65 61 72  5f 74 65 78 74 0d 02 d5  |...clear_text...|
00005e40  2a f2 70 72 69 32 28 36  34 2c 31 38 30 2c 30 2c  |*.pri2(64,180,0,|
00005e50  31 2c 31 32 38 2c 31 2c  22 59 6f 75 20 64 69 67  |1,128,1,"You dig|
00005e60  2e 2e 2e 2e 2e 22 29 0d  02 d6 07 ef 32 36 0d 02  |.....").....26..|
00005e70  d7 0e 20 e3 66 66 25 3d  31 b8 31 30 0d 02 d8 0f  |.. .ff%=1.10....|
00005e80  20 20 f2 73 74 5f 70 61  75 73 65 0d 02 d9 31 20  |  .st_pause...1 |
00005e90  20 f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 73 63  | .plot_sprite_sc|
00005ea0  61 6c 65 64 28 37 30 36  2c 33 34 30 2c 31 2c 31  |aled(706,340,1,1|
00005eb0  2c 31 2c 31 2c 22 64 69  67 36 22 29 0d 02 da 36  |,1,1,"dig6")...6|
00005ec0  e7 66 66 25 3e 36 20 f2  70 6c 6f 74 5f 73 70 72  |.ff%>6 .plot_spr|
00005ed0  69 74 65 5f 73 63 61 6c  65 64 28 37 30 36 2c 33  |ite_scaled(706,3|
00005ee0  34 30 2c 31 2c 31 2c 31  2c 31 2c 22 64 69 67 37  |40,1,1,1,1,"dig7|
00005ef0  22 29 0d 02 db 13 20 20  f2 65 6e 5f 70 61 75 73  |")....  .en_paus|
00005f00  65 28 32 30 29 0d 02 dc  0f 20 20 f2 73 74 5f 70  |e(20)....  .st_p|
00005f10  61 75 73 65 0d 02 dd 31  20 20 f2 70 6c 6f 74 5f  |ause...1  .plot_|
00005f20  73 70 72 69 74 65 5f 73  63 61 6c 65 64 28 37 30  |sprite_scaled(70|
00005f30  36 2c 33 34 30 2c 31 2c  31 2c 31 2c 31 2c 22 64  |6,340,1,1,1,1,"d|
00005f40  69 67 31 22 29 0d 02 de  36 e7 66 66 25 3e 36 20  |ig1")...6.ff%>6 |
00005f50  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 73 63 61  |.plot_sprite_sca|
00005f60  6c 65 64 28 37 30 36 2c  33 34 30 2c 31 2c 31 2c  |led(706,340,1,1,|
00005f70  31 2c 31 2c 22 64 69 67  35 22 29 0d 02 df 13 20  |1,1,"dig5").... |
00005f80  20 f2 65 6e 5f 70 61 75  73 65 28 32 30 29 0d 02  | .en_pause(20)..|
00005f90  e0 05 ed 0d 02 e1 0e 20  e3 66 66 25 3d 31 b8 31  |....... .ff%=1.1|
00005fa0  30 0d 02 e2 0f 20 20 f2  73 74 5f 70 61 75 73 65  |0....  .st_pause|
00005fb0  0d 02 e3 32 20 20 f2 70  6c 6f 74 5f 73 70 72 69  |...2  .plot_spri|
00005fc0  74 65 5f 73 63 61 6c 65  64 28 37 30 36 2c 33 36  |te_scaled(706,36|
00005fd0  38 2c 31 2c 31 2c 31 2c  31 2c 22 64 69 67 31 31  |8,1,1,1,1,"dig11|
00005fe0  22 29 0d 02 e4 36 e7 66  66 25 3d 33 20 f2 70 6c  |")...6.ff%=3 .pl|
00005ff0  6f 74 5f 73 70 72 69 74  65 5f 73 63 61 6c 65 64  |ot_sprite_scaled|
00006000  28 37 30 36 2c 33 34 30  2c 31 2c 31 2c 31 2c 31  |(706,340,1,1,1,1|
00006010  2c 22 64 69 67 38 22 29  0d 02 e5 13 20 20 f2 65  |,"dig8")....  .e|
00006020  6e 5f 70 61 75 73 65 28  32 30 29 0d 02 e6 0f 20  |n_pause(20).... |
00006030  20 f2 73 74 5f 70 61 75  73 65 0d 02 e7 31 20 20  | .st_pause...1  |
00006040  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 73 63 61  |.plot_sprite_sca|
00006050  6c 65 64 28 37 30 36 2c  33 36 38 2c 31 2c 31 2c  |led(706,368,1,1,|
00006060  31 2c 31 2c 22 64 69 67  33 22 29 0d 02 e8 36 e7  |1,1,"dig3")...6.|
00006070  66 66 25 3d 35 20 f2 70  6c 6f 74 5f 73 70 72 69  |ff%=5 .plot_spri|
00006080  74 65 5f 73 63 61 6c 65  64 28 37 30 36 2c 33 34  |te_scaled(706,34|
00006090  30 2c 31 2c 31 2c 31 2c  31 2c 22 64 69 67 39 22  |0,1,1,1,1,"dig9"|
000060a0  29 0d 02 e9 13 20 20 f2  65 6e 5f 70 61 75 73 65  |)....  .en_pause|
000060b0  28 32 30 29 0d 02 ea 0f  20 20 f2 73 74 5f 70 61  |(20)....  .st_pa|
000060c0  75 73 65 0d 02 eb 31 20  20 f2 70 6c 6f 74 5f 73  |use...1  .plot_s|
000060d0  70 72 69 74 65 5f 73 63  61 6c 65 64 28 37 30 36  |prite_scaled(706|
000060e0  2c 33 36 38 2c 31 2c 31  2c 31 2c 31 2c 22 64 69  |,368,1,1,1,1,"di|
000060f0  67 32 22 29 0d 02 ec 37  e7 66 66 25 3d 38 20 f2  |g2")...7.ff%=8 .|
00006100  70 6c 6f 74 5f 73 70 72  69 74 65 5f 73 63 61 6c  |plot_sprite_scal|
00006110  65 64 28 37 30 36 2c 33  34 30 2c 31 2c 31 2c 31  |ed(706,340,1,1,1|
00006120  2c 31 2c 22 64 69 67 31  30 22 29 0d 02 ed 13 20  |,1,"dig10").... |
00006130  20 f2 65 6e 5f 70 61 75  73 65 28 32 30 29 0d 02  | .en_pause(20)..|
00006140  ee 05 ed 0d 02 ef 30 f2  70 6c 6f 74 5f 73 70 72  |......0.plot_spr|
00006150  69 74 65 5f 73 63 61 6c  65 64 28 37 30 36 2c 33  |ite_scaled(706,3|
00006160  36 38 2c 31 2c 31 2c 31  2c 31 2c 22 64 69 67 31  |68,1,1,1,1,"dig1|
00006170  31 22 29 0d 02 f0 11 64  69 67 25 3d 31 3a 70 61  |1")....dig%=1:pa|
00006180  74 25 3d 31 0d 02 f1 0f  f2 64 65 6c 65 74 65 5f  |t%=1.....delete_|
00006190  64 69 67 0d 02 f2 0b 6d  65 73 73 25 3d 30 0d 02  |dig....mess%=0..|
000061a0  f3 0f f2 63 6c 65 61 72  5f 74 65 78 74 0d 02 f4  |...clear_text...|
000061b0  18 e7 63 6f 64 65 25 3d  31 3a f2 66 69 6e 64 5f  |..code%=1:.find_|
000061c0  64 6f 65 3a e1 0d 02 f5  2a e7 63 6f 64 65 25 3d  |doe:....*.code%=|
000061d0  36 3a f2 6b 69 6c 6c 5f  72 61 62 62 69 74 3a f4  |6:.kill_rabbit:.|
000061e0  20 6e 65 76 65 72 20 72  65 74 75 72 6e 73 21 0d  | never returns!.|
000061f0  02 f6 3f e7 63 6f 64 65  25 3d 35 3a 73 69 67 68  |..?.code%=5:sigh|
00006200  74 25 3d 72 65 5f 73 69  67 68 74 25 3a 73 6d 65  |t%=re_sight%:sme|
00006210  6c 6c 25 3d 32 33 3a f2  73 68 6f 77 5f 73 65 6e  |ll%=23:.show_sen|
00006220  73 65 73 28 30 29 3a 6d  65 73 73 25 3d 31 0d 02  |ses(0):mess%=1..|
00006230  f7 3f e7 63 6f 64 65 25  3d 37 3a 73 69 67 68 74  |.?.code%=7:sight|
00006240  25 3d 72 65 5f 73 69 67  68 74 25 3a 73 6d 65 6c  |%=re_sight%:smel|
00006250  6c 25 3d 32 34 3a f2 73  68 6f 77 5f 73 65 6e 73  |l%=24:.show_sens|
00006260  65 73 28 30 29 3a 6d 65  73 73 25 3d 31 0d 02 f8  |es(0):mess%=1...|
00006270  92 e7 6d 65 73 73 25 3d  30 3a 73 69 67 68 74 25  |..mess%=0:sight%|
00006280  3d 72 65 5f 73 69 67 68  74 25 3a 73 6d 65 6c 6c  |=re_sight%:smell|
00006290  25 3d 72 65 5f 73 6d 65  6c 6c 25 3a 68 65 61 72  |%=re_smell%:hear|
000062a0  69 6e 67 25 3d 31 34 3a  74 6f 75 63 68 25 3d 33  |ing%=14:touch%=3|
000062b0  3a 74 61 73 74 65 25 3d  33 3a 63 6f 64 65 25 3d  |:taste%=3:code%=|
000062c0  30 3a f2 6d 65 73 73 61  67 65 28 22 59 6f 75 20  |0:.message("You |
000062d0  66 69 6e 64 20 6e 6f 74  68 69 6e 67 20 6f 66 20  |find nothing of |
000062e0  69 6e 74 65 72 65 73 74  2e 22 2c 22 20 22 29 3a  |interest."," "):|
000062f0  f2 73 68 6f 77 5f 73 65  6e 73 65 73 28 31 29 0d  |.show_senses(1).|
00006300  02 f9 05 e1 0d 02 fa 04  0d 02 fb 11 dd f2 73 65  |..............se|
00006310  61 72 63 68 5f 61 6e 69  6d 0d 02 fc 1e e7 63 6f  |arch_anim.....co|
00006320  64 65 25 3d 39 3a f2 6c  6f 6f 6b 5f 61 74 5f 73  |de%=9:.look_at_s|
00006330  70 69 64 65 72 3a e1 0d  02 fd 1f f2 6d 65 72 67  |pider:......merg|
00006340  65 5f 73 70 72 69 74 65  28 22 61 63 74 5f 73 65  |e_sprite("act_se|
00006350  61 72 63 68 22 29 0d 02  fe 0f f2 63 6c 65 61 72  |arch").....clear|
00006360  5f 74 65 78 74 0d 02 ff  2e f2 70 72 69 32 28 36  |_text.....pri2(6|
00006370  34 2c 31 38 30 2c 30 2c  31 2c 31 32 38 2c 31 2c  |4,180,0,1,128,1,|
00006380  22 59 6f 75 20 73 65 61  72 63 68 2e 2e 2e 2e 2e  |"You search.....|
00006390  2e 22 29 0d 03 00 04 0d  03 01 07 ef 32 36 0d 03  |.").........26..|
000063a0  02 0d e3 66 66 66 25 3d  31 b8 33 0d 03 03 0a 20  |...fff%=1.3.... |
000063b0  f7 8d 54 57 43 0d 03 04  0d 20 e3 66 66 25 3d 31  |..TWC.... .ff%=1|
000063c0  b8 36 0d 03 05 0a 20 20  f3 62 64 25 0d 03 06 3a  |.6....  .bd%...:|
000063d0  20 20 f2 70 6c 6f 74 5f  73 70 72 69 74 65 5f 73  |  .plot_sprite_s|
000063e0  63 61 6c 65 64 28 37 30  36 2c 33 34 30 2c 31 2c  |caled(706,340,1,|
000063f0  31 2c 31 2c 31 2c 22 62  61 64 67 65 72 22 2b c3  |1,1,1,"badger"+.|
00006400  28 62 64 25 29 29 0d 03  07 42 20 20 e7 64 69 67  |(bd%))...B  .dig|
00006410  25 3d 31 20 80 20 62 64  25 3c 3e 35 20 f2 70 6c  |%=1 . bd%<>5 .pl|
00006420  6f 74 5f 73 70 72 69 74  65 5f 73 63 61 6c 65 64  |ot_sprite_scaled|
00006430  28 37 30 36 2c 33 34 30  2c 31 2c 31 2c 31 2c 31  |(706,340,1,1,1,1|
00006440  2c 22 64 69 67 39 22 29  0d 03 08 42 20 20 e7 64  |,"dig9")...B  .d|
00006450  69 67 25 3d 31 20 80 20  62 64 25 3d 35 20 f2 70  |ig%=1 . bd%=5 .p|
00006460  6c 6f 74 5f 73 70 72 69  74 65 5f 73 63 61 6c 65  |lot_sprite_scale|
00006470  64 28 37 30 36 2c 33 34  30 2c 31 2c 31 2c 31 2c  |d(706,340,1,1,1,|
00006480  31 2c 22 64 69 67 31 30  22 29 0d 03 09 10 20 20  |1,"dig10")....  |
00006490  f2 70 61 75 73 65 28 33  30 29 0d 03 0a 06 20 ed  |.pause(30).... .|
000064a0  0d 03 0b 05 ed 0d 03 0c  0a 70 61 74 25 3d 31 0d  |.........pat%=1.|
000064b0  03 0d 12 f2 64 65 6c 65  74 65 5f 73 65 61 72 63  |....delete_searc|
000064c0  68 0d 03 0e 0b 6d 65 73  73 25 3d 30 0d 03 0f 0f  |h....mess%=0....|
000064d0  f2 63 6c 65 61 72 5f 74  65 78 74 0d 03 10 18 e7  |.clear_text.....|
000064e0  63 6f 64 65 25 3d 31 3a  f2 66 69 6e 64 5f 64 6f  |code%=1:.find_do|
000064f0  65 3a e1 0d 03 11 22 e7  63 6f 64 65 25 3d 35 20  |e:....".code%=5 |
00006500  80 20 64 69 67 25 3d 31  3a f2 66 69 6e 64 5f 77  |. dig%=1:.find_w|
00006510  6f 72 6d 3a e1 0d 03 12  22 e7 63 6f 64 65 25 3d  |orm:....".code%=|
00006520  37 20 80 20 64 69 67 25  3d 31 3a f2 66 69 6e 64  |7 . dig%=1:.find|
00006530  5f 62 75 6c 62 3a e1 0d  03 13 4f e7 63 6f 64 65  |_bulb:....O.code|
00006540  25 3d 36 20 f2 6d 65 73  73 61 67 65 28 22 59 6f  |%=6 .message("Yo|
00006550  75 20 63 61 6e 20 68 65  61 72 20 6e 6f 69 73 65  |u can hear noise|
00006560  73 20 66 72 6f 6d 20 75  6e 64 65 72 20 74 68 65  |s from under the|
00006570  20 67 72 6f 75 6e 64 2e  22 2c 22 20 22 29 3a 6d  | ground."," "):m|
00006580  65 73 73 25 3d 31 0d 03  14 92 e7 6d 65 73 73 25  |ess%=1.....mess%|
00006590  3d 30 3a f2 6d 65 73 73  61 67 65 28 22 59 6f 75  |=0:.message("You|
000065a0  20 66 69 6e 64 20 6e 6f  74 68 69 6e 67 20 6f 66  | find nothing of|
000065b0  20 69 6e 74 65 72 65 73  74 2e 22 2c 22 20 22 29  | interest."," ")|
000065c0  3a 73 69 67 68 74 25 3d  72 65 5f 73 69 67 68 74  |:sight%=re_sight|
000065d0  25 3a 73 6d 65 6c 6c 25  3d 72 65 5f 73 6d 65 6c  |%:smell%=re_smel|
000065e0  6c 25 3a 68 65 61 72 69  6e 67 25 3d 31 34 3a 74  |l%:hearing%=14:t|
000065f0  6f 75 63 68 25 3d 33 3a  74 61 73 74 65 25 3d 33  |ouch%=3:taste%=3|
00006600  3a 63 6f 64 65 25 3d 30  3a f2 73 68 6f 77 5f 73  |:code%=0:.show_s|
00006610  65 6e 73 65 73 28 31 29  0d 03 15 05 e1 0d 03 16  |enses(1)........|
00006620  04 0d 03 17 1c dc 20 36  2c 38 2c 39 2c 38 2c 36  |...... 6,8,9,8,6|
00006630  2c 35 3a 52 45 4d 20 73  65 61 72 63 68 0d 03 18  |,5:REM search...|
00006640  04 0d 03 19 0f dd f2 66  69 6e 64 5f 77 6f 72 6d  |.......find_worm|
00006650  0d 03 1a 3a f2 6d 65 73  73 61 67 65 28 22 59 6f  |...:.message("Yo|
00006660  75 20 68 61 76 65 20 66  6f 75 6e 64 20 73 6f 6d  |u have found som|
00006670  65 20 77 6f 72 6d 73 2e  22 2c 22 20 22 29 3a f2  |e worms."," "):.|
00006680  63 6c 65 61 72 5f 74 65  78 74 0d 03 1b 05 e1 0d  |clear_text......|
00006690  03 1c 04 0d 03 1d 0f dd  f2 66 69 6e 64 5f 62 75  |.........find_bu|
000066a0  6c 62 0d 03 1e 3a f2 6d  65 73 73 61 67 65 28 22  |lb...:.message("|
000066b0  59 6f 75 20 68 61 76 65  20 66 6f 75 6e 64 20 73  |You have found s|
000066c0  6f 6d 65 20 62 75 6c 62  73 2e 22 2c 22 20 22 29  |ome bulbs."," ")|
000066d0  3a f2 63 6c 65 61 72 5f  74 65 78 74 0d 03 1f 05  |:.clear_text....|
000066e0  e1 0d 03 20 04 0d 03 21  0e dd f2 66 69 6e 64 5f  |... ...!...find_|
000066f0  64 6f 65 0d 03 22 88 6d  65 73 73 25 3d 31 3a 73  |doe..".mess%=1:s|
00006700  69 67 68 74 25 3d 36 3a  73 6d 65 6c 6c 25 3d 37  |ight%=6:smell%=7|
00006710  3a f2 6d 65 73 73 61 67  65 28 22 59 6f 75 20 74  |:.message("You t|
00006720  75 72 6e 20 74 68 65 20  63 6f 77 70 61 74 20 6f  |urn the cowpat o|
00006730  76 65 72 2e 22 2c 22 20  22 29 3a 42 25 3d 73 63  |ver."," "):B%=sc|
00006740  72 65 65 6e 5f 74 77 6f  25 3a 43 25 3d 73 63 72  |reen_two%:C%=scr|
00006750  65 65 6e 5f 6f 6e 65 25  3a d6 77 69 7a 3a f2 62  |een_one%:.wiz:.b|
00006760  6f 74 74 6f 6d 5f 66 72  61 6d 65 3a f2 73 68 6f  |ottom_frame:.sho|
00006770  77 5f 73 65 6e 73 65 73  28 31 29 0d 03 23 05 e1  |w_senses(1)..#..|
00006780  0d 03 24 04 0d 03 25 0e  dd f2 65 61 74 5f 61 6e  |..$...%...eat_an|
00006790  69 6d 0d 03 26 07 ef 32  36 0d 03 27 04 0d 03 28  |im..&..26..'...(|
000067a0  5d e7 70 6f 73 5f 74 79  70 65 25 28 4c 25 29 3d  |].pos_type%(L%)=|
000067b0  33 20 84 20 70 6f 73 5f  74 79 70 65 25 28 4c 25  |3 . pos_type%(L%|
000067c0  29 3d 36 3a f2 63 6c 65  61 72 5f 74 65 78 74 3a  |)=6:.clear_text:|
000067d0  f2 6d 65 73 73 61 67 65  28 22 54 68 65 72 65 20  |.message("There |
000067e0  69 73 20 6e 6f 74 68 69  6e 67 20 74 6f 20 65 61  |is nothing to ea|
000067f0  74 2e 22 2c 22 20 22 29  3a e1 0d 03 29 48 e7 52  |t."," "):...)H.R|
00006800  25 3e 32 3a f2 63 6c 65  61 72 5f 74 65 78 74 3a  |%>2:.clear_text:|
00006810  f2 6d 65 73 73 61 67 65  28 22 59 6f 75 20 64 6f  |.message("You do|
00006820  20 6e 6f 74 20 6e 65 65  64 20 61 6e 79 20 6d 6f  | not need any mo|
00006830  72 65 20 74 6f 20 65 61  74 2e 22 2c 22 20 22 29  |re to eat."," ")|
00006840  3a e1 0d 03 2a 1f f2 6d  65 72 67 65 5f 73 70 72  |:...*..merge_spr|
00006850  69 74 65 28 22 61 63 74  5f 73 65 61 72 63 68 22  |ite("act_search"|
00006860  29 0d 03 2b 0f f2 63 6c  65 61 72 5f 74 65 78 74  |)..+..clear_text|
00006870  0d 03 2c 29 f2 70 72 69  32 28 36 34 2c 31 38 30  |..,).pri2(64,180|
00006880  2c 30 2c 31 2c 31 32 38  2c 31 2c 22 59 6f 75 20  |,0,1,128,1,"You |
00006890  65 61 74 2e 2e 2e 2e 22  29 0d 03 2d 0d e3 66 66  |eat....")..-..ff|
000068a0  66 25 3d 31 b8 33 0d 03  2e 0a 20 f7 8d 44 41 43  |f%=1.3.... ..DAC|
000068b0  0d 03 2f 0d 20 e3 66 66  25 3d 31 b8 36 0d 03 30  |../. .ff%=1.6..0|
000068c0  0a 20 20 f3 62 64 25 0d  03 31 3a 20 20 f2 70 6c  |.  .bd%..1:  .pl|
000068d0  6f 74 5f 73 70 72 69 74  65 5f 73 63 61 6c 65 64  |ot_sprite_scaled|
000068e0  28 37 30 36 2c 33 34 30  2c 31 2c 31 2c 31 2c 31  |(706,340,1,1,1,1|
000068f0  2c 22 62 61 64 67 65 72  22 2b c3 28 62 64 25 29  |,"badger"+.(bd%)|
00006900  29 0d 03 32 42 20 20 e7  64 69 67 25 3d 31 20 80  |)..2B  .dig%=1 .|
00006910  20 62 64 25 3c 3e 35 20  f2 70 6c 6f 74 5f 73 70  | bd%<>5 .plot_sp|
00006920  72 69 74 65 5f 73 63 61  6c 65 64 28 37 30 36 2c  |rite_scaled(706,|
00006930  33 34 30 2c 31 2c 31 2c  31 2c 31 2c 22 64 69 67  |340,1,1,1,1,"dig|
00006940  39 22 29 0d 03 33 42 20  20 e7 64 69 67 25 3d 31  |9")..3B  .dig%=1|
00006950  20 80 20 62 64 25 3d 35  20 f2 70 6c 6f 74 5f 73  | . bd%=5 .plot_s|
00006960  70 72 69 74 65 5f 73 63  61 6c 65 64 28 37 30 36  |prite_scaled(706|
00006970  2c 33 34 30 2c 31 2c 31  2c 31 2c 31 2c 22 64 69  |,340,1,1,1,1,"di|
00006980  67 31 30 22 29 0d 03 34  10 20 20 f2 70 61 75 73  |g10")..4.  .paus|
00006990  65 28 33 30 29 0d 03 35  06 20 ed 0d 03 36 05 ed  |e(30)..5. ...6..|
000069a0  0d 03 37 12 f2 64 65 6c  65 74 65 5f 73 65 61 72  |..7..delete_sear|
000069b0  63 68 0d 03 38 0b 6d 65  73 73 25 3d 30 0d 03 39  |ch..8.mess%=0..9|
000069c0  0f f2 63 6c 65 61 72 5f  74 65 78 74 0d 03 3a 20  |..clear_text..: |
000069d0  e7 63 6f 64 65 25 3d 31  20 80 20 70 61 74 25 3d  |.code%=1 . pat%=|
000069e0  31 3a f2 65 61 74 5f 64  6f 65 3a e1 0d 03 3b 51  |1:.eat_doe:...;Q|
000069f0  e7 63 6f 64 65 25 3d 31  20 80 20 70 61 74 25 3d  |.code%=1 . pat%=|
00006a00  30 3a f2 6d 65 73 73 61  67 65 28 22 59 6f 75 20  |0:.message("You |
00006a10  74 61 73 74 65 20 74 68  65 20 63 6f 77 20 70 61  |taste the cow pa|
00006a20  74 2e 22 2c 22 59 75 6b  21 22 29 3a f2 73 68 6f  |t.","Yuk!"):.sho|
00006a30  77 5f 73 65 6e 73 65 73  28 31 29 3a e1 0d 03 3c  |w_senses(1):...<|
00006a40  21 e7 63 6f 64 65 25 3d  35 20 80 20 64 69 67 25  |!.code%=5 . dig%|
00006a50  3d 31 3a f2 65 61 74 5f  77 6f 72 6d 3a e1 0d 03  |=1:.eat_worm:...|
00006a60  3d 21 e7 63 6f 64 65 25  3d 37 20 80 20 64 69 67  |=!.code%=7 . dig|
00006a70  25 3d 31 3a f2 65 61 74  5f 62 75 6c 62 3a e1 0d  |%=1:.eat_bulb:..|
00006a80  03 3e 81 e7 6d 65 73 73  25 3d 30 3a f2 6d 65 73  |.>..mess%=0:.mes|
00006a90  73 61 67 65 28 22 59 6f  75 20 74 61 73 74 65 20  |sage("You taste |
00006aa0  74 68 65 20 67 72 61 73  73 2e 22 2c 22 20 22 29  |the grass."," ")|
00006ab0  3a 73 69 67 68 74 25 3d  72 65 5f 73 69 67 68 74  |:sight%=re_sight|
00006ac0  25 3a 73 6d 65 6c 6c 25  3d 72 65 5f 73 6d 65 6c  |%:smell%=re_smel|
00006ad0  6c 25 3a 68 65 61 72 69  6e 67 25 3d 31 34 3a 74  |l%:hearing%=14:t|
00006ae0  6f 75 63 68 25 3d 33 3a  74 61 73 74 65 25 3d 34  |ouch%=3:taste%=4|
00006af0  3a f2 73 68 6f 77 5f 73  65 6e 73 65 73 28 31 29  |:.show_senses(1)|
00006b00  0d 03 3f 05 e1 0d 03 40  04 0d 03 41 1d dc 20 36  |..?....@...A.. 6|
00006b10  2c 38 2c 31 30 2c 38 2c  36 2c 35 3a 52 45 4d 20  |,8,10,8,6,5:REM |
00006b20  73 65 61 72 63 68 0d 03  42 04 0d 03 43 14 dd f2  |search..B...C...|
00006b30  6c 6f 6f 6b 5f 61 74 5f  73 70 69 64 65 72 0d 03  |look_at_spider..|
00006b40  44 18 6c 6f 61 64 31 24  3d c3 7e 28 70 69 63 74  |D.load1$=.~(pict|
00006b50  75 72 65 31 25 29 0d 03  45 36 ff 20 22 4c 4f 41  |ure1%)..E6. "LOA|
00006b60  44 20 3c 42 61 64 67 65  72 24 44 49 52 3e 2e 6f  |D <Badger$DIR>.o|
00006b70  74 68 65 72 70 69 63 73  2e 73 70 69 64 65 72 77  |therpics.spiderw|
00006b80  61 6c 6c 20 22 2b 6c 6f  61 64 31 24 0d 03 46 07  |all "+load1$..F.|
00006b90  ef 32 36 0d 03 47 2a c8  91 30 2c 30 3a 41 25 3d  |.26..G*..0,0:A%=|
00006ba0  70 69 63 74 75 72 65 31  25 3a 42 25 3d 30 3a d6  |picture1%:B%=0:.|
00006bb0  64 72 61 77 5f 70 69 63  74 75 72 65 25 0d 03 48  |draw_picture%..H|
00006bc0  19 f2 70 72 65 5f 65 61  74 5f 73 70 69 64 65 72  |..pre_eat_spider|
00006bd0  28 31 30 30 30 29 0d 03  49 47 f2 63 6c 65 61 72  |(1000)..IG.clear|
00006be0  5f 74 65 78 74 3a f2 6d  65 73 73 61 67 65 28 22  |_text:.message("|
00006bf0  59 6f 75 20 73 65 61 72  63 68 20 61 6e 64 20 66  |You search and f|
00006c00  69 6e 64 20 61 22 2c 22  6c 61 72 67 65 20 6a 75  |ind a","large ju|
00006c10  69 63 79 20 73 70 69 64  65 72 2e 22 29 0d 03 4a  |icy spider.")..J|
00006c20  26 42 25 3d 73 63 72 65  65 6e 5f 74 77 6f 25 3a  |&B%=screen_two%:|
00006c30  43 25 3d 73 63 72 65 65  6e 5f 6f 6e 65 25 3a d6  |C%=screen_one%:.|
00006c40  77 69 7a 0d 03 4b 11 f2  62 6f 74 74 6f 6d 5f 66  |wiz..K..bottom_f|
00006c50  72 61 6d 65 0d 03 4c 4c  73 69 67 68 74 25 3d 72  |rame..LLsight%=r|
00006c60  65 5f 73 69 67 68 74 25  3a 73 6d 65 6c 6c 25 3d  |e_sight%:smell%=|
00006c70  33 31 3a 68 65 61 72 69  6e 67 25 3d 31 34 3a 74  |31:hearing%=14:t|
00006c80  6f 75 63 68 25 3d 33 3a  74 61 73 74 65 25 3d 33  |ouch%=3:taste%=3|
00006c90  3a f2 73 68 6f 77 5f 73  65 6e 73 65 73 28 31 29  |:.show_senses(1)|
00006ca0  0d 03 4d 05 e1 0d 03 4e  04 0d 03 4f 04 0d 03 50  |..M....N...O...P|
00006cb0  10 dd f2 65 61 74 5f 73  70 69 64 65 72 0d 03 51  |...eat_spider..Q|
00006cc0  18 6c 6f 61 64 31 24 3d  c3 7e 28 70 69 63 74 75  |.load1$=.~(pictu|
00006cd0  72 65 31 25 29 0d 03 52  36 ff 20 22 4c 4f 41 44  |re1%)..R6. "LOAD|
00006ce0  20 3c 42 61 64 67 65 72  24 44 49 52 3e 2e 6f 74  | <Badger$DIR>.ot|
00006cf0  68 65 72 70 69 63 73 2e  73 70 69 64 65 72 77 61  |herpics.spiderwa|
00006d00  6c 6c 20 22 2b 6c 6f 61  64 31 24 0d 03 53 07 ef  |ll "+load1$..S..|
00006d10  32 36 0d 03 54 2a c8 91  30 2c 30 3a 41 25 3d 70  |26..T*..0,0:A%=p|
00006d20  69 63 74 75 72 65 31 25  3a 42 25 3d 30 3a d6 64  |icture1%:B%=0:.d|
00006d30  72 61 77 5f 70 69 63 74  75 72 65 25 0d 03 55 19  |raw_picture%..U.|
00006d40  f2 70 72 65 5f 65 61 74  5f 73 70 69 64 65 72 28  |.pre_eat_spider(|
00006d50  31 31 32 30 29 0d 03 56  0e f2 70 61 75 73 65 28  |1120)..V..pause(|
00006d60  32 30 29 0d 03 57 12 f2  67 6f 5f 65 61 74 5f 73  |20)..W..go_eat_s|
00006d70  70 69 64 65 72 0d 03 58  04 0d 03 59 33 f2 63 6c  |pider..X...Y3.cl|
00006d80  65 61 72 5f 74 65 78 74  3a f2 6d 65 73 73 61 67  |ear_text:.messag|
00006d90  65 28 22 59 6f 75 20 65  61 74 20 74 68 65 20 73  |e("You eat the s|
00006da0  70 69 64 65 72 2e 22 2c  22 20 22 29 0d 03 5a 26  |pider."," ")..Z&|
00006db0  42 25 3d 73 63 72 65 65  6e 5f 74 77 6f 25 3a 43  |B%=screen_two%:C|
00006dc0  25 3d 73 63 72 65 65 6e  5f 6f 6e 65 25 3a d6 77  |%=screen_one%:.w|
00006dd0  69 7a 0d 03 5b 11 f2 62  6f 74 74 6f 6d 5f 66 72  |iz..[..bottom_fr|
00006de0  61 6d 65 0d 03 5c 5c 73  69 67 68 74 25 3d 72 65  |ame..\\sight%=re|
00006df0  5f 73 69 67 68 74 25 3a  73 6d 65 6c 6c 25 3d 72  |_sight%:smell%=r|
00006e00  65 5f 73 6d 65 6c 6c 25  3a 68 65 61 72 69 6e 67  |e_smell%:hearing|
00006e10  25 3d 31 34 3a 74 6f 75  63 68 25 3d 33 3a 74 61  |%=14:touch%=3:ta|
00006e20  73 74 65 25 3d 33 31 3a  63 6f 64 65 25 3d 30 3a  |ste%=31:code%=0:|
00006e30  f2 73 68 6f 77 5f 73 65  6e 73 65 73 28 31 29 0d  |.show_senses(1).|
00006e40  03 5d 27 f2 61 64 64 5f  70 6f 69 6e 74 73 28 31  |.]'.add_points(1|
00006e50  30 2c 22 66 6f 72 20 66  69 6e 64 69 6e 67 20 66  |0,"for finding f|
00006e60  6f 6f 64 2e 22 29 0d 03  5e 0c 74 61 73 74 65 25  |ood.")..^.taste%|
00006e70  3d 33 0d 03 5f 13 f2 73  68 6f 77 5f 73 65 6e 73  |=3.._..show_sens|
00006e80  65 73 28 31 29 0d 03 60  14 f2 63 61 6e 63 65 6c  |es(1)..`..cancel|
00006e90  5f 66 6f 6f 64 28 33 32  29 0d 03 61 07 f2 72 70  |_food(32)..a..rp|
00006ea0  0d 03 62 05 e1 0d 03 63  04 0d 03 64 19 dd f2 70  |..b....c...d...p|
00006eb0  72 65 5f 65 61 74 5f 73  70 69 64 65 72 28 61 6d  |re_eat_spider(am|
00006ec0  25 29 0d 03 65 2f f2 6c  69 74 74 6c 65 5f 61 6e  |%)..e/.little_an|
00006ed0  69 6d 28 39 36 30 2c 35  36 34 2c 30 2c 2d 34 2c  |im(960,564,0,-4,|
00006ee0  33 36 2c 22 73 70 69 64  65 72 31 22 2c 30 2c 31  |36,"spider1",0,1|
00006ef0  29 0d 03 66 19 ef 32 34  2c 37 30 36 3b 32 38 32  |)..f..24,706;282|
00006f00  3b 31 32 34 38 3b 36 31  32 3b 0d 03 67 58 e3 66  |;1248;612;..gX.f|
00006f10  25 3d 31 32 34 30 20 b8  20 61 6d 25 20 88 2d 38  |%=1240 . am% .-8|
00006f20  3a f2 70 61 75 73 65 28  61 72 6d 25 2a 33 29 3a  |:.pause(arm%*3):|
00006f30  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 73 63 61  |.plot_sprite_sca|
00006f40  6c 65 64 28 66 25 2c 32  38 34 2c 31 2c 31 2c 31  |led(f%,284,1,1,1|
00006f50  2c 31 2c 22 73 70 69 64  65 72 6c 69 63 6b 22 29  |,1,"spiderlick")|
00006f60  3a ed 0d 03 68 05 e1 0d  03 69 04 0d 03 6a 13 dd  |:...h....i...j..|
00006f70  f2 67 6f 5f 65 61 74 5f  73 70 69 64 65 72 0d 03  |.go_eat_spider..|
00006f80  6b 59 e3 66 25 3d 31 31  32 30 20 b8 20 31 30 30  |kY.f%=1120 . 100|
00006f90  30 20 88 2d 38 3a f2 70  61 75 73 65 28 61 72 6d  |0 .-8:.pause(arm|
00006fa0  25 2a 32 29 3a f2 70 6c  6f 74 5f 73 70 72 69 74  |%*2):.plot_sprit|
00006fb0  65 5f 73 63 61 6c 65 64  28 66 25 2c 32 38 34 2c  |e_scaled(f%,284,|
00006fc0  31 2c 31 2c 31 2c 31 2c  22 73 70 69 64 65 72 6c  |1,1,1,1,"spiderl|
00006fd0  69 63 6b 22 29 3a ed 0d  03 6c 36 20 f2 70 6c 6f  |ick"):...l6 .plo|
00006fe0  74 5f 73 70 72 69 74 65  5f 73 63 61 6c 65 64 28  |t_sprite_scaled(|
00006ff0  39 34 34 2c 32 38 34 2c  31 2c 31 2c 31 2c 31 2c  |944,284,1,1,1,1,|
00007000  22 73 70 69 64 65 72 6c  69 63 6b 22 29 0d 03 6d  |"spiderlick")..m|
00007010  35 f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 73 63  |5.plot_sprite_sc|
00007020  61 6c 65 64 28 39 34 30  2c 32 38 34 2c 31 2c 31  |aled(940,284,1,1|
00007030  2c 31 2c 31 2c 22 65 61  74 73 70 69 64 65 72 31  |,1,1,"eatspider1|
00007040  22 29 0d 03 6e 0e f2 70  61 75 73 65 28 31 30 29  |")..n..pause(10)|
00007050  0d 03 6f 35 f2 70 6c 6f  74 5f 73 70 72 69 74 65  |..o5.plot_sprite|
00007060  5f 73 63 61 6c 65 64 28  39 38 34 2c 32 38 34 2c  |_scaled(984,284,|
00007070  31 2c 31 2c 31 2c 31 2c  22 73 70 69 64 65 72 6c  |1,1,1,1,"spiderl|
00007080  69 63 6b 22 29 0d 03 70  35 f2 70 6c 6f 74 5f 73  |ick")..p5.plot_s|
00007090  70 72 69 74 65 5f 73 63  61 6c 65 64 28 39 34 30  |prite_scaled(940|
000070a0  2c 32 38 34 2c 31 2c 31  2c 31 2c 31 2c 22 65 61  |,284,1,1,1,1,"ea|
000070b0  74 73 70 69 64 65 72 32  22 29 0d 03 71 48 e3 66  |tspider2")..qH.f|
000070c0  25 3d 39 38 34 20 b8 20  31 30 30 30 20 88 34 3a  |%=984 . 1000 .4:|
000070d0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 73 63 61  |.plot_sprite_sca|
000070e0  6c 65 64 28 66 25 2c 32  38 34 2c 31 2c 31 2c 31  |led(f%,284,1,1,1|
000070f0  2c 31 2c 22 73 70 69 64  65 72 6c 69 63 6b 22 29  |,1,"spiderlick")|
00007100  3a ed 0d 03 72 35 f2 70  6c 6f 74 5f 73 70 72 69  |:...r5.plot_spri|
00007110  74 65 5f 73 63 61 6c 65  64 28 31 30 30 30 2c 33  |te_scaled(1000,3|
00007120  35 32 2c 31 2c 31 2c 31  2c 31 2c 22 43 4c 4f 53  |52,1,1,1,1,"CLOS|
00007130  45 4c 49 43 4b 22 29 0d  03 73 04 0d 03 74 05 e1  |ELICK")..s...t..|
00007140  0d 03 75 04 0d 03 76 0e  dd f2 72 75 6e 5f 61 6e  |..u...v...run_an|
00007150  69 6d 0d 03 77 0f f2 73  65 74 5f 61 63 74 69 6f  |im..w..set_actio|
00007160  6e 0d 03 78 0f f2 63 6c  65 61 72 5f 74 65 78 74  |n..x..clear_text|
00007170  0d 03 79 33 e7 6b 69 6c  6c 25 3d 30 3a f2 70 72  |..y3.kill%=0:.pr|
00007180  69 32 28 36 34 2c 31 38  30 2c 30 2c 31 2c 31 32  |i2(64,180,0,1,12|
00007190  38 2c 31 2c 22 59 6f 75  20 72 75 6e 2e 2e 2e 2e  |8,1,"You run....|
000071a0  2e 22 29 0d 03 7a 61 e7  63 6f 64 65 25 3d 32 20  |.")..za.code%=2 |
000071b0  80 20 6b 69 6c 6c 25 3d  31 3a f2 6d 65 72 67 65  |. kill%=1:.merge|
000071c0  5f 73 70 72 69 74 65 28  22 61 63 74 5f 6b 69 6c  |_sprite("act_kil|
000071d0  6c 22 29 3a f2 70 72 69  32 28 36 34 2c 31 38 30  |l"):.pri2(64,180|
000071e0  2c 30 2c 31 2c 31 32 38  2c 31 2c 22 59 6f 75 20  |,0,1,128,1,"You |
000071f0  61 74 74 61 63 6b 20 74  68 65 20 72 61 62 62 69  |attack the rabbi|
00007200  74 2e 22 29 0d 03 7b 5f  e7 63 6f 64 65 25 3d 33  |t.")..{_.code%=3|
00007210  20 80 20 6b 69 6c 6c 25  3d 31 3a f2 6d 65 72 67  | . kill%=1:.merg|
00007220  65 5f 73 70 72 69 74 65  28 22 61 63 74 5f 6b 69  |e_sprite("act_ki|
00007230  6c 6c 22 29 3a f2 70 72  69 32 28 36 34 2c 31 38  |ll"):.pri2(64,18|
00007240  30 2c 30 2c 31 2c 31 32  38 2c 31 2c 22 59 6f 75  |0,0,1,128,1,"You|
00007250  20 61 74 74 61 63 6b 20  74 68 65 20 66 72 6f 67  | attack the frog|
00007260  2e 22 29 0d 03 7c 38 ef  32 34 2c 33 30 3b 32 37  |.")..|8.24,30;27|
00007270  38 3b 31 32 34 38 3b 37  31 39 3b 3a 78 70 6f 73  |8;1248;719;:xpos|
00007280  25 3d 37 30 36 3a 72 75  6e 5f 6c 65 6e 67 74 68  |%=706:run_length|
00007290  25 3d 31 36 3a 70 6c 25  3d 31 30 0d 03 7d 60 e7  |%=16:pl%=10..}`.|
000072a0  63 6f 64 65 25 3d 32 20  80 20 6b 69 6c 6c 25 3d  |code%=2 . kill%=|
000072b0  31 3a 72 61 62 62 69 74  25 3d 31 3a 72 61 62 5f  |1:rabbit%=1:rab_|
000072c0  78 25 3d 35 31 32 3a 72  75 6e 5f 6c 65 6e 67 74  |x%=512:run_lengt|
000072d0  68 25 3d 39 3a 70 6c 25  3d 31 30 3a 72 25 28 31  |h%=9:pl%=10:r%(1|
000072e0  29 3d 31 3a 72 25 28 32  29 3d 32 3a 72 25 28 33  |)=1:r%(2)=2:r%(3|
000072f0  29 3d 34 3a 72 25 28 34  29 3d 33 0d 03 7e 89 e7  |)=4:r%(4)=3..~..|
00007300  63 6f 64 65 25 3d 33 20  80 20 6b 69 6c 6c 25 3d  |code%=3 . kill%=|
00007310  31 3a 66 72 6f 67 25 3d  32 3a 66 72 6f 67 5f 78  |1:frog%=2:frog_x|
00007320  25 3d 32 35 36 3a 66 72  6f 67 5f 79 25 3d 33 36  |%=256:frog_y%=36|
00007330  30 3a 72 75 6e 5f 6c 65  6e 67 74 68 25 3d 31 32  |0:run_length%=12|
00007340  3a 70 6c 25 3d 31 30 3a  6a 5f 63 6f 75 6e 74 25  |:pl%=10:j_count%|
00007350  3d 30 3a f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |=0:.plot_sprite_|
00007360  73 63 61 6c 65 64 28 31  31 38 30 2c 32 38 38 2c  |scaled(1180,288,|
00007370  31 2c 31 2c 31 2c 31 2c  22 77 61 74 65 72 65 64  |1,1,1,1,"watered|
00007380  67 65 22 29 0d 03 7f 17  e3 66 66 66 25 3d 31 b8  |ge").....fff%=1.|
00007390  72 75 6e 5f 6c 65 6e 67  74 68 25 0d 03 80 0a 20  |run_length%.... |
000073a0  f7 8d 74 54 43 0d 03 81  0d 20 e3 66 66 25 3d 31  |..tTC.... .ff%=1|
000073b0  b8 36 0d 03 82 0f 20 20  f2 73 74 5f 70 61 75 73  |.6....  .st_paus|
000073c0  65 0d 03 83 0a 20 20 f3  62 64 25 0d 03 84 20 20  |e....  .bd%...  |
000073d0  20 e7 63 6f 64 65 25 3d  32 20 80 20 6b 69 6c 6c  | .code%=2 . kill|
000073e0  25 3d 31 3a f2 72 61 62  62 69 74 0d 03 85 50 20  |%=1:.rabbit...P |
000073f0  20 e7 63 6f 64 65 25 3d  33 20 80 20 6b 69 6c 6c  | .code%=3 . kill|
00007400  25 3d 31 3a f2 66 72 6f  67 3a f2 70 6c 6f 74 5f  |%=1:.frog:.plot_|
00007410  73 70 72 69 74 65 5f 73  63 61 6c 65 64 28 31 31  |sprite_scaled(11|
00007420  38 30 2c 32 38 38 2c 31  2c 31 2c 31 2c 31 2c 22  |80,288,1,1,1,1,"|
00007430  77 61 74 65 72 65 64 67  65 22 29 0d 03 86 3c 20  |wateredge")...< |
00007440  20 f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 73 63  | .plot_sprite_sc|
00007450  61 6c 65 64 28 78 70 6f  73 25 2c 33 34 30 2c 31  |aled(xpos%,340,1|
00007460  2c 31 2c 31 2c 31 2c 22  62 61 64 67 65 72 22 2b  |,1,1,1,"badger"+|
00007470  c3 28 62 64 25 29 29 0d  03 87 6b 20 20 e7 28 63  |.(bd%))...k  .(c|
00007480  6f 64 65 25 3d 32 20 84  20 63 6f 64 65 25 3d 33  |ode%=2 . code%=3|
00007490  29 20 80 20 78 70 6f 73  25 3c 31 32 30 20 80 20  |) . xpos%<120 . |
000074a0  28 62 64 25 3d 32 20 84  20 62 64 25 3d 37 29 20  |(bd%=2 . bd%=7) |
000074b0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 73 63 61  |.plot_sprite_sca|
000074c0  6c 65 64 28 78 70 6f 73  25 2c 33 34 30 2c 31 2c  |led(xpos%,340,1,|
000074d0  31 2c 31 2c 31 2c 22 6f  70 65 6e 6d 6f 75 74 68  |1,1,1,"openmouth|
000074e0  22 29 0d 03 88 14 20 20  f2 65 6e 5f 70 61 75 73  |")....  .en_paus|
000074f0  65 28 70 6c 25 29 0d 03  89 14 20 20 78 70 6f 73  |e(pl%)....  xpos|
00007500  25 3d 78 70 6f 73 25 2d  31 32 0d 03 8a 06 20 ed  |%=xpos%-12.... .|
00007510  0d 03 8b 05 ed 0d 03 8c  07 ef 32 36 0d 03 8d 0b  |..........26....|
00007520  6d 65 73 73 25 3d 30 0d  03 8e 0f f2 63 6c 65 61  |mess%=0.....clea|
00007530  72 5f 74 65 78 74 0d 03  8f 2f e7 63 6f 64 65 25  |r_text.../.code%|
00007540  3d 32 20 80 20 6b 69 6c  6c 25 3d 31 3a f2 72 75  |=2 . kill%=1:.ru|
00007550  6e 5f 72 61 62 62 69 74  3a f2 64 65 6c 65 74 65  |n_rabbit:.delete|
00007560  5f 6b 69 6c 6c 0d 03 90  2d e7 63 6f 64 65 25 3d  |_kill...-.code%=|
00007570  33 20 80 20 6b 69 6c 6c  25 3d 31 3a f2 65 61 74  |3 . kill%=1:.eat|
00007580  5f 66 72 6f 67 3a f2 64  65 6c 65 74 65 5f 6b 69  |_frog:.delete_ki|
00007590  6c 6c 0d 03 91 34 e7 6d  65 73 73 25 3d 30 3a f2  |ll...4.mess%=0:.|
000075a0  6d 65 73 73 61 67 65 28  22 59 6f 75 20 72 75 6e  |message("You run|
000075b0  20 61 77 61 79 2e 22 2c  22 20 22 29 3a 4c 25 3d  | away."," "):L%=|
000075c0  72 75 6e 25 3a f9 0d 03  92 05 e1 0d 03 93 04 0d  |run%:...........|
000075d0  03 94 19 dc 20 32 2c 36  2c 35 2c 37 2c 35 2c 36  |.... 2,6,5,7,5,6|
000075e0  3a 52 45 4d 20 72 75 6e  0d 03 95 04 0d 03 96 10  |:REM run........|
000075f0  dd f2 64 72 69 6e 6b 5f  61 6e 69 6d 0d 03 97 67  |..drink_anim...g|
00007600  e7 70 6f 73 5f 74 79 70  65 25 28 4c 25 29 3c 3e  |.pos_type%(L%)<>|
00007610  33 20 80 20 70 6f 73 5f  74 79 70 65 25 28 4c 25  |3 . pos_type%(L%|
00007620  29 3c 3e 31 35 3a f2 63  6c 65 61 72 5f 74 65 78  |)<>15:.clear_tex|
00007630  74 3a f2 6d 65 73 73 61  67 65 28 22 54 68 65 72  |t:.message("Ther|
00007640  65 20 69 73 20 6e 6f 74  68 69 6e 67 20 74 6f 20  |e is nothing to |
00007650  64 72 69 6e 6b 20 68 65  72 65 2e 22 2c 22 20 22  |drink here."," "|
00007660  29 3a e1 0d 03 98 4a e7  51 25 3e 30 3a f2 63 6c  |):....J.Q%>0:.cl|
00007670  65 61 72 5f 74 65 78 74  3a f2 6d 65 73 73 61 67  |ear_text:.messag|
00007680  65 28 22 59 6f 75 20 64  6f 20 6e 6f 74 20 6e 65  |e("You do not ne|
00007690  65 64 20 61 6e 79 20 6d  6f 72 65 20 74 6f 20 64  |ed any more to d|
000076a0  72 69 6e 6b 2e 22 2c 22  20 22 29 3a e1 0d 03 99  |rink."," "):....|
000076b0  1e f2 6d 65 72 67 65 5f  73 70 72 69 74 65 28 22  |..merge_sprite("|
000076c0  61 63 74 5f 64 72 69 6e  6b 22 29 0d 03 9a 0f f2  |act_drink").....|
000076d0  73 65 74 5f 61 63 74 69  6f 6e 0d 03 9b 34 f2 70  |set_action...4.p|
000076e0  6c 6f 74 5f 73 70 72 69  74 65 5f 73 63 61 6c 65  |lot_sprite_scale|
000076f0  64 28 33 30 30 2c 32 38  38 2c 31 2c 31 2c 31 2c  |d(300,288,1,1,1,|
00007700  31 2c 22 77 61 74 65 72  65 64 67 65 22 29 0d 03  |1,"wateredge")..|
00007710  9c 14 e3 66 25 3d 34 33  34 b8 20 37 31 38 20 88  |...f%=434. 718 .|
00007720  31 32 0d 03 9d 2f f2 70  6c 6f 74 5f 73 70 72 69  |12.../.plot_spri|
00007730  74 65 5f 73 63 61 6c 65  64 28 66 25 2c 32 38 38  |te_scaled(f%,288|
00007740  2c 31 2c 31 2c 31 2c 31  2c 22 77 61 74 65 72 22  |,1,1,1,1,"water"|
00007750  29 0d 03 9e 05 ed 0d 03  9f 32 c8 99 22 4f 53 5f  |)........2.."OS_|
00007760  53 70 72 69 74 65 4f 70  22 2c 26 31 32 46 2c 73  |SpriteOp",&12F,s|
00007770  70 72 69 74 65 5f 61 72  65 61 31 25 2c 22 77 61  |prite_area1%,"wa|
00007780  74 65 72 65 64 67 65 22  0d 03 a0 34 f2 70 6c 6f  |teredge"...4.plo|
00007790  74 5f 73 70 72 69 74 65  5f 73 63 61 6c 65 64 28  |t_sprite_scaled(|
000077a0  37 32 30 2c 32 38 38 2c  31 2c 31 2c 31 2c 31 2c  |720,288,1,1,1,1,|
000077b0  22 77 61 74 65 72 65 64  67 65 22 29 0d 03 a1 32  |"wateredge")...2|
000077c0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000077d0  26 31 32 46 2c 73 70 72  69 74 65 5f 61 72 65 61  |&12F,sprite_area|
000077e0  31 25 2c 22 77 61 74 65  72 65 64 67 65 22 0d 03  |1%,"wateredge"..|
000077f0  a2 33 f2 70 6c 6f 74 5f  73 70 72 69 74 65 5f 73  |.3.plot_sprite_s|
00007800  63 61 6c 65 64 28 37 31  34 2c 33 33 36 2c 31 2c  |caled(714,336,1,|
00007810  31 2c 31 2c 31 2c 22 62  61 64 67 65 72 31 31 22  |1,1,1,"badger11"|
00007820  29 0d 03 a3 0f f2 63 6c  65 61 72 5f 74 65 78 74  |).....clear_text|
00007830  0d 03 a4 2c f2 70 72 69  32 28 36 34 2c 31 38 30  |...,.pri2(64,180|
00007840  2c 30 2c 31 2c 31 32 38  2c 31 2c 22 59 6f 75 20  |,0,1,128,1,"You |
00007850  64 72 69 6e 6b 2e 2e 2e  2e 2e 22 29 0d 03 a5 0e  |drink.....")....|
00007860  20 e3 66 66 25 3d 31 b8  31 35 0d 03 a6 35 20 20  | .ff%=1.15...5  |
00007870  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 73 63 61  |.plot_sprite_sca|
00007880  6c 65 64 28 37 31 38 2c  33 33 36 2c 31 2c 31 2c  |led(718,336,1,1,|
00007890  31 2c 31 2c 22 62 61 64  67 65 72 31 31 22 29 0d  |1,1,"badger11").|
000078a0  03 a7 10 20 20 f2 70 61  75 73 65 28 32 30 29 0d  |...  .pause(20).|
000078b0  03 a8 35 20 20 f2 70 6c  6f 74 5f 73 70 72 69 74  |..5  .plot_sprit|
000078c0  65 5f 73 63 61 6c 65 64  28 37 32 32 2c 33 33 36  |e_scaled(722,336|
000078d0  2c 31 2c 31 2c 31 2c 31  2c 22 62 61 64 67 65 72  |,1,1,1,1,"badger|
000078e0  31 32 22 29 0d 03 a9 10  20 20 f2 70 61 75 73 65  |12")....  .pause|
000078f0  28 32 30 29 0d 03 aa 06  20 ed 0d 03 ab 11 f2 64  |(20).... ......d|
00007900  65 6c 65 74 65 5f 64 72  69 6e 6b 0d 03 ac 0b 6d  |elete_drink....m|
00007910  65 73 73 25 3d 30 0d 03  ad 0f f2 63 6c 65 61 72  |ess%=0.....clear|
00007920  5f 74 65 78 74 0d 03 ae  1f e7 70 6f 73 5f 74 79  |_text.....pos_ty|
00007930  70 65 25 28 4c 25 29 3d  31 35 20 f2 70 6f 69 73  |pe%(L%)=15 .pois|
00007940  6f 6e 65 64 0d 03 af b1  e7 6d 65 73 73 25 3d 30  |oned.....mess%=0|
00007950  3a 73 69 67 68 74 25 3d  72 65 5f 73 69 67 68 74  |:sight%=re_sight|
00007960  25 3a 73 6d 65 6c 6c 25  3d 72 65 5f 73 6d 65 6c  |%:smell%=re_smel|
00007970  6c 25 3a 68 65 61 72 69  6e 67 25 3d 31 34 3a 74  |l%:hearing%=14:t|
00007980  6f 75 63 68 25 3d 33 3a  74 61 73 74 65 25 3d 32  |ouch%=3:taste%=2|
00007990  31 3a 63 6f 64 65 25 3d  30 3a f2 73 68 6f 77 5f  |1:code%=0:.show_|
000079a0  73 65 6e 73 65 73 28 31  29 3a f2 6d 65 73 73 61  |senses(1):.messa|
000079b0  67 65 28 22 59 6f 75 20  64 72 69 6e 6b 20 74 68  |ge("You drink th|
000079c0  65 20 77 61 74 65 72 2e  22 2c 22 20 22 29 3a f2  |e water."," "):.|
000079d0  61 64 64 5f 70 6f 69 6e  74 73 28 31 30 2c 22 66  |add_points(10,"f|
000079e0  6f 72 20 66 69 6e 64 69  6e 67 20 61 20 64 72 69  |or finding a dri|
000079f0  6e 6b 2e 22 29 0d 03 b0  0b 51 25 3d 51 25 2b 31  |nk.")....Q%=Q%+1|
00007a00  0d 03 b1 4b f2 63 6c 65  61 72 5f 74 65 78 74 3a  |...K.clear_text:|
00007a10  f2 6d 65 73 73 61 67 65  28 22 59 6f 75 20 64 6f  |.message("You do|
00007a20  20 6e 6f 74 20 6e 65 65  64 20 61 6e 79 20 6d 6f  | not need any mo|
00007a30  72 65 20 77 61 74 65 72  20 66 6f 72 20 61 20 77  |re water for a w|
00007a40  68 69 6c 65 2e 22 2c 22  20 22 29 0d 03 b2 05 e1  |hile."," ").....|
00007a50  0d 03 b3 04 0d 03 b4 0e  dd f2 70 6f 69 73 6f 6e  |..........poison|
00007a60  65 64 0d 03 b5 1a f2 6d  65 72 67 65 5f 73 70 72  |ed.....merge_spr|
00007a70  69 74 65 28 22 64 65 61  74 68 22 29 0d 03 b6 0c  |ite("death")....|
00007a80  2a 46 58 31 31 32 2c 32  0d 03 b7 26 ef 32 34 2c  |*FX112,2...&.24,|
00007a90  36 34 3b 33 32 30 3b 31  32 31 36 3b 39 36 30 3b  |64;320;1216;960;|
00007aa0  31 38 2c 30 2c 31 32 38  2c 31 36 2c 32 36 0d 03  |18,0,128,16,26..|
00007ab0  b8 30 f2 70 6c 6f 74 5f  73 70 72 69 74 65 5f 73  |.0.plot_sprite_s|
00007ac0  63 61 6c 65 64 28 36 37  30 2c 34 30 30 2c 31 2c  |caled(670,400,1,|
00007ad0  31 2c 31 2c 31 2c 22 64  65 61 74 68 22 29 0d 03  |1,1,1,"death")..|
00007ae0  b9 3d f2 70 72 69 32 28  31 32 38 2c 38 30 30 2c  |.=.pri2(128,800,|
00007af0  30 2c 31 2c 31 32 38 2c  31 2c 22 59 6f 75 20 68  |0,1,128,1,"You h|
00007b00  61 76 65 20 64 72 75 6e  6b 20 70 6f 69 73 6f 6e  |ave drunk poison|
00007b10  65 64 20 77 61 74 65 72  2e 22 29 0d 03 ba 34 f2  |ed water.")...4.|
00007b20  70 72 69 32 28 31 32 38  2c 37 34 30 2c 30 2c 31  |pri2(128,740,0,1|
00007b30  2c 31 32 38 2c 31 2c 22  59 6f 75 20 68 61 76 65  |,128,1,"You have|
00007b40  20 6c 6f 73 74 20 61 20  6c 69 66 65 2e 22 29 0d  | lost a life.").|
00007b50  03 bb 40 f2 70 72 69 32  28 31 32 38 2c 36 38 30  |..@.pri2(128,680|
00007b60  2c 30 2c 31 2c 31 32 38  2c 31 2c 22 47 6f 20 62  |,0,1,128,1,"Go b|
00007b70  61 63 6b 20 61 6e 64 20  63 6f 6e 74 69 6e 75 65  |ack and continue|
00007b80  20 79 6f 75 72 20 6a 6f  75 72 6e 65 79 22 29 0d  | your journey").|
00007b90  03 bc 2e f2 70 72 69 32  28 31 32 38 2c 36 32 30  |....pri2(128,620|
00007ba0  2c 30 2c 31 2c 31 32 38  2c 31 2c 22 6d 6f 72 65  |,0,1,128,1,"more|
00007bb0  20 63 61 72 65 66 75 6c  6c 79 2e 22 29 0d 03 bd  | carefully.")...|
00007bc0  0c 2a 46 58 31 31 32 2c  31 0d 03 be 0f f2 70 61  |.*FX112,1.....pa|
00007bd0  75 73 65 28 31 30 30 29  0d 03 bf 2b f2 65 78 70  |use(100)...+.exp|
00007be0  6c 6f 64 65 5f 6d 65 72  67 65 28 73 63 72 65 65  |lode_merge(scree|
00007bf0  6e 5f 6f 6e 65 25 2c 73  63 72 65 65 6e 5f 74 77  |n_one%,screen_tw|
00007c00  6f 25 29 0d 03 c0 11 f2  62 6f 74 74 6f 6d 5f 66  |o%).....bottom_f|
00007c10  72 61 6d 65 0d 03 c1 07  ef 32 36 0d 03 c2 0a f2  |rame.....26.....|
00007c20  73 70 61 63 65 0d 03 c3  11 f2 64 65 6c 65 74 65  |space.....delete|
00007c30  5f 64 65 61 74 68 0d 03  c4 15 e7 53 25 3d 31 3a  |_death.....S%=1:|
00007c40  f2 65 6e 64 5f 69 74 5f  61 6c 6c 0d 03 c5 0b 53  |.end_it_all....S|
00007c50  25 3d 53 25 2d 31 0d 03  c6 08 4c 25 3d 31 0d 03  |%=S%-1....L%=1..|
00007c60  c7 05 f9 0d 03 c8 04 0d  03 c9 11 dd f2 6b 69 6c  |.............kil|
00007c70  6c 5f 72 61 62 62 69 74  0d 03 ca 3c f2 70 6c 6f  |l_rabbit...<.plo|
00007c80  74 5f 73 70 72 69 74 65  5f 73 63 61 6c 65 64 28  |t_sprite_scaled(|
00007c90  37 30 30 2c 32 38 36 2c  31 2c 31 2c 31 2c 31 2c  |700,286,1,1,1,1,|
00007ca0  22 48 4f 4c 45 32 22 29  3a f2 70 61 75 73 65 28  |"HOLE2"):.pause(|
00007cb0  31 30 30 29 0d 03 cb 9a  6d 65 73 73 25 3d 31 3a  |100)....mess%=1:|
00007cc0  74 61 73 74 65 25 3d 31  35 3a 73 6d 65 6c 6c 25  |taste%=15:smell%|
00007cd0  3d 31 35 3a 68 65 61 72  69 6e 67 25 3d 31 34 3a  |=15:hearing%=14:|
00007ce0  42 25 3d 73 63 72 65 65  6e 5f 74 77 6f 25 3a 43  |B%=screen_two%:C|
00007cf0  25 3d 73 63 72 65 65 6e  5f 6f 6e 65 25 3a d6 77  |%=screen_one%:.w|
00007d00  69 7a 3a f2 62 6f 74 74  6f 6d 5f 66 72 61 6d 65  |iz:.bottom_frame|
00007d10  3a f2 73 68 6f 77 5f 73  65 6e 73 65 73 28 31 29  |:.show_senses(1)|
00007d20  3a f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 73 63  |:.plot_sprite_sc|
00007d30  61 6c 65 64 28 37 30 36  2c 33 34 30 2c 31 2c 31  |aled(706,340,1,1|
00007d40  2c 31 2c 31 2c 22 72 61  62 65 61 74 22 29 0d 03  |,1,1,"rabeat")..|
00007d50  cc 8c f2 6d 65 73 73 61  67 65 28 22 59 6f 75 20  |...message("You |
00007d60  65 61 74 20 74 68 65 20  72 61 62 62 69 74 2e 22  |eat the rabbit."|
00007d70  2c 22 49 74 20 74 61 73  74 65 73 20 64 65 6c 69  |,"It tastes deli|
00007d80  63 69 6f 75 73 21 22 29  3a f2 61 64 64 5f 70 6f  |cious!"):.add_po|
00007d90  69 6e 74 73 28 31 30 2c  22 66 6f 72 20 66 69 6e  |ints(10,"for fin|
00007da0  64 69 6e 67 20 66 6f 6f  64 2e 22 29 3a 74 61 73  |ding food."):tas|
00007db0  74 65 25 3d 33 3a 73 6d  65 6c 6c 25 3d 34 3a 68  |te%=3:smell%=4:h|
00007dc0  65 61 72 69 6e 67 25 3d  31 34 3a f2 73 68 6f 77  |earing%=14:.show|
00007dd0  5f 73 65 6e 73 65 73 28  31 29 0d 03 cd 22 f2 64  |_senses(1)...".d|
00007de0  65 6c 65 74 65 5f 72 61  62 65 61 74 3a f2 63 61  |elete_rabeat:.ca|
00007df0  6e 63 65 6c 5f 66 6f 6f  64 28 34 29 0d 03 ce 07  |ncel_food(4)....|
00007e00  f2 72 70 0d 03 cf 05 e1  0d 03 d0 04 0d 03 d1 0c  |.rp.............|
00007e10  dd f2 72 61 62 62 69 74  0d 03 d2 14 72 61 62 5f  |..rabbit....rab_|
00007e20  78 25 3d 72 61 62 5f 78  25 2d 31 36 0d 03 d3 2a  |x%=rab_x%-16...*|
00007e30  72 61 62 62 69 74 25 3d  72 61 62 62 69 74 25 2b  |rabbit%=rabbit%+|
00007e40  31 3a e7 72 61 62 62 69  74 25 3d 35 20 72 61 62  |1:.rabbit%=5 rab|
00007e50  62 69 74 25 3d 31 0d 03  d4 43 f2 70 6c 6f 74 5f  |bit%=1...C.plot_|
00007e60  73 70 72 69 74 65 5f 73  63 61 6c 65 64 28 72 61  |sprite_scaled(ra|
00007e70  62 5f 78 25 2c 33 35 36  2c 31 2c 31 2c 31 2c 31  |b_x%,356,1,1,1,1|
00007e80  2c 22 72 61 62 62 69 74  22 2b c3 28 72 25 28 72  |,"rabbit"+.(r%(r|
00007e90  61 62 62 69 74 25 29 29  29 0d 03 d5 05 e1 0d 03  |abbit%))).......|
00007ea0  d6 04 0d 03 d7 0a dd f2  66 72 6f 67 0d 03 d8 15  |........frog....|
00007eb0  66 72 6f 67 5f 78 25 3d  66 72 6f 67 5f 78 25 2d  |frog_x%=frog_x%-|
00007ec0  38 0d 03 d9 17 6a 5f 63  6f 75 6e 74 25 3d 6a 5f  |8....j_count%=j_|
00007ed0  63 6f 75 6e 74 25 2b 31  0d 03 da 2c e7 6a 5f 63  |count%+1...,.j_c|
00007ee0  6f 75 6e 74 25 3d 35 20  80 20 66 72 6f 67 25 3d  |ount%=5 . frog%=|
00007ef0  31 3a 66 72 6f 67 25 3d  32 3a 6a 5f 63 6f 75 6e  |1:frog%=2:j_coun|
00007f00  74 25 3d 30 0d 03 db 2c  e7 6a 5f 63 6f 75 6e 74  |t%=0...,.j_count|
00007f10  25 3d 32 20 80 20 66 72  6f 67 25 3d 32 3a 66 72  |%=2 . frog%=2:fr|
00007f20  6f 67 25 3d 31 3a 6a 5f  63 6f 75 6e 74 25 3d 30  |og%=1:j_count%=0|
00007f30  0d 03 dc 1e e7 66 72 6f  67 25 3d 32 20 66 72 6f  |.....frog%=2 fro|
00007f40  67 5f 78 25 3d 66 72 6f  67 5f 78 25 2b 38 0d 03  |g_x%=frog_x%+8..|
00007f50  dd 42 f2 70 6c 6f 74 5f  73 70 72 69 74 65 5f 73  |.B.plot_sprite_s|
00007f60  63 61 6c 65 64 28 66 72  6f 67 5f 78 25 2c 66 72  |caled(frog_x%,fr|
00007f70  6f 67 5f 79 25 2c 31 2c  31 2c 31 2c 31 2c 22 66  |og_y%,1,1,1,1,"f|
00007f80  72 6f 67 67 79 22 2b c3  28 66 72 6f 67 25 29 29  |roggy"+.(frog%))|
00007f90  0d 03 de 05 e1 0d 03 df  04 0d 03 e0 1e dd f2 63  |...............c|
00007fa0  61 6e 63 65 6c 5f 66 6f  6f 64 28 66 6f 6f 64 5f  |ancel_food(food_|
00007fb0  76 61 6c 75 65 25 29 0d  03 e1 69 e3 66 25 3d 31  |value%)...i.f%=1|
00007fc0  b8 36 3a 61 6e 69 6d 5f  61 74 5f 6c 25 28 4c 25  |.6:anim_at_l%(L%|
00007fd0  2c 66 25 29 3d 30 3a ed  3a 73 69 67 68 74 25 3d  |,f%)=0:.:sight%=|
00007fe0  72 65 5f 73 69 67 68 74  25 3a 73 6d 65 6c 6c 25  |re_sight%:smell%|
00007ff0  3d 72 65 5f 73 6d 65 6c  6c 25 3a 68 65 61 72 69  |=re_smell%:heari|
00008000  6e 67 25 3d 31 34 3a 74  6f 75 63 68 25 3d 33 3a  |ng%=14:touch%=3:|
00008010  74 61 73 74 65 25 3d 33  3a 63 6f 64 65 25 3d 30  |taste%=3:code%=0|
00008020  0d 03 e2 19 56 25 3d 28  56 25 20 84 20 66 6f 6f  |....V%=(V% . foo|
00008030  64 5f 76 61 6c 75 65 25  29 0d 03 e3 05 e1 0d 03  |d_value%).......|
00008040  e4 04 0d 03 e5 0e dd f2  65 61 74 5f 77 6f 72 6d  |........eat_worm|
00008050  0d 03 e6 c6 6d 65 73 73  25 3d 31 3a 74 61 73 74  |....mess%=1:tast|
00008060  65 25 3d 32 33 3a 73 6d  65 6c 6c 25 3d 32 33 3a  |e%=23:smell%=23:|
00008070  68 65 61 72 69 6e 67 25  3d 33 3a f2 6d 65 73 73  |hearing%=3:.mess|
00008080  61 67 65 28 22 59 6f 75  20 65 61 74 20 74 68 65  |age("You eat the|
00008090  20 77 6f 72 6d 73 2e 22  2c 22 54 68 65 79 20 74  | worms.","They t|
000080a0  61 73 74 65 20 64 65 6c  69 63 69 6f 75 73 21 22  |aste delicious!"|
000080b0  29 3a 42 25 3d 73 63 72  65 65 6e 5f 74 77 6f 25  |):B%=screen_two%|
000080c0  3a 43 25 3d 73 63 72 65  65 6e 5f 6f 6e 65 25 3a  |:C%=screen_one%:|
000080d0  d6 77 69 7a 3a f2 62 6f  74 74 6f 6d 5f 66 72 61  |.wiz:.bottom_fra|
000080e0  6d 65 3a f2 73 68 6f 77  5f 73 65 6e 73 65 73 28  |me:.show_senses(|
000080f0  31 29 3a f2 61 64 64 5f  70 6f 69 6e 74 73 28 31  |1):.add_points(1|
00008100  30 2c 22 66 6f 72 20 66  69 6e 64 69 6e 67 20 66  |0,"for finding f|
00008110  6f 6f 64 2e 22 29 0d 03  e7 41 74 61 73 74 65 25  |ood.")...Ataste%|
00008120  3d 33 3a 73 6d 65 6c 6c  25 3d 34 3a 68 65 61 72  |=3:smell%=4:hear|
00008130  69 6e 67 25 3d 31 34 3a  f2 73 68 6f 77 5f 73 65  |ing%=14:.show_se|
00008140  6e 73 65 73 28 31 29 3a  f2 63 61 6e 63 65 6c 5f  |nses(1):.cancel_|
00008150  66 6f 6f 64 28 32 29 0d  03 e8 07 f2 72 70 0d 03  |food(2).....rp..|
00008160  e9 05 e1 0d 03 ea 04 0d  03 eb 0e dd f2 65 61 74  |.............eat|
00008170  5f 62 75 6c 62 0d 03 ec  c6 6d 65 73 73 25 3d 31  |_bulb....mess%=1|
00008180  3a 74 61 73 74 65 25 3d  32 34 3a 73 6d 65 6c 6c  |:taste%=24:smell|
00008190  25 3d 32 34 3a 68 65 61  72 69 6e 67 25 3d 33 3a  |%=24:hearing%=3:|
000081a0  f2 6d 65 73 73 61 67 65  28 22 59 6f 75 20 65 61  |.message("You ea|
000081b0  74 20 74 68 65 20 62 75  6c 62 73 2e 22 2c 22 54  |t the bulbs.","T|
000081c0  68 65 79 20 74 61 73 74  65 20 64 65 6c 69 63 69  |hey taste delici|
000081d0  6f 75 73 21 22 29 3a 42  25 3d 73 63 72 65 65 6e  |ous!"):B%=screen|
000081e0  5f 74 77 6f 25 3a 43 25  3d 73 63 72 65 65 6e 5f  |_two%:C%=screen_|
000081f0  6f 6e 65 25 3a d6 77 69  7a 3a f2 62 6f 74 74 6f  |one%:.wiz:.botto|
00008200  6d 5f 66 72 61 6d 65 3a  f2 73 68 6f 77 5f 73 65  |m_frame:.show_se|
00008210  6e 73 65 73 28 31 29 3a  f2 61 64 64 5f 70 6f 69  |nses(1):.add_poi|
00008220  6e 74 73 28 31 30 2c 22  66 6f 72 20 66 69 6e 64  |nts(10,"for find|
00008230  69 6e 67 20 66 6f 6f 64  2e 22 29 0d 03 ed 42 74  |ing food.")...Bt|
00008240  61 73 74 65 25 3d 33 3a  73 6d 65 6c 6c 25 3d 34  |aste%=3:smell%=4|
00008250  3a 68 65 61 72 69 6e 67  25 3d 31 34 3a f2 73 68  |:hearing%=14:.sh|
00008260  6f 77 5f 73 65 6e 73 65  73 28 31 29 3a f2 63 61  |ow_senses(1):.ca|
00008270  6e 63 65 6c 5f 66 6f 6f  64 28 31 36 29 0d 03 ee  |ncel_food(16)...|
00008280  07 f2 72 70 0d 03 ef 05  e1 0d 03 f0 04 0d 03 f1  |..rp............|
00008290  0d dd f2 65 61 74 5f 64  6f 65 0d 03 f2 ca 6d 65  |...eat_doe....me|
000082a0  73 73 25 3d 31 3a 74 61  73 74 65 25 3d 37 3a 73  |ss%=1:taste%=7:s|
000082b0  6d 65 6c 6c 25 3d 33 3a  68 65 61 72 69 6e 67 25  |mell%=3:hearing%|
000082c0  3d 33 3a f2 6d 65 73 73  61 67 65 28 22 59 6f 75  |=3:.message("You|
000082d0  20 65 61 74 20 74 68 65  20 44 6f 65 20 42 65 65  | eat the Doe Bee|
000082e0  74 6c 65 73 2e 22 2c 22  54 68 65 79 20 74 61 73  |tles.","They tas|
000082f0  74 65 20 64 65 6c 69 63  69 6f 75 73 21 22 29 3a  |te delicious!"):|
00008300  42 25 3d 73 63 72 65 65  6e 5f 74 77 6f 25 3a 43  |B%=screen_two%:C|
00008310  25 3d 73 63 72 65 65 6e  5f 6f 6e 65 25 3a d6 77  |%=screen_one%:.w|
00008320  69 7a 3a f2 62 6f 74 74  6f 6d 5f 66 72 61 6d 65  |iz:.bottom_frame|
00008330  3a f2 73 68 6f 77 5f 73  65 6e 73 65 73 28 31 29  |:.show_senses(1)|
00008340  3a f2 61 64 64 5f 70 6f  69 6e 74 73 28 31 30 2c  |:.add_points(10,|
00008350  22 66 6f 72 20 66 69 6e  64 69 6e 67 20 66 6f 6f  |"for finding foo|
00008360  64 2e 22 29 0d 03 f3 41  74 61 73 74 65 25 3d 33  |d.")...Ataste%=3|
00008370  3a 73 6d 65 6c 6c 25 3d  34 3a 68 65 61 72 69 6e  |:smell%=4:hearin|
00008380  67 25 3d 31 34 3a f2 73  68 6f 77 5f 73 65 6e 73  |g%=14:.show_sens|
00008390  65 73 28 31 29 3a f2 63  61 6e 63 65 6c 5f 66 6f  |es(1):.cancel_fo|
000083a0  6f 64 28 31 29 0d 03 f4  07 f2 72 70 0d 03 f5 05  |od(1).....rp....|
000083b0  e1 0d 03 f6 04 0d 03 f7  10 dd f2 65 61 74 5f 72  |...........eat_r|
000083c0  61 62 62 69 74 0d 03 f8  ce 6d 65 73 73 25 3d 31  |abbit....mess%=1|
000083d0  3a 73 69 67 68 74 25 3d  36 3a 73 6d 65 6c 6c 25  |:sight%=6:smell%|
000083e0  3d 33 3a 68 65 61 72 69  6e 67 25 3d 33 3a 74 61  |=3:hearing%=3:ta|
000083f0  73 74 65 25 3d 31 35 3a  f2 6d 65 73 73 61 67 65  |ste%=15:.message|
00008400  28 22 59 6f 75 20 65 61  74 20 74 68 65 20 72 61  |("You eat the ra|
00008410  62 62 69 74 2e 22 2c 22  49 74 20 74 61 73 74 65  |bbit.","It taste|
00008420  73 20 64 65 6c 69 63 69  6f 75 73 21 22 29 3a 42  |s delicious!"):B|
00008430  25 3d 73 63 72 65 65 6e  5f 74 77 6f 25 3a 43 25  |%=screen_two%:C%|
00008440  3d 73 63 72 65 65 6e 5f  6f 6e 65 25 3a d6 77 69  |=screen_one%:.wi|
00008450  7a 3a f2 62 6f 74 74 6f  6d 5f 66 72 61 6d 65 3a  |z:.bottom_frame:|
00008460  f2 73 68 6f 77 5f 73 65  6e 73 65 73 28 31 29 3a  |.show_senses(1):|
00008470  f2 61 64 64 5f 70 6f 69  6e 74 73 28 31 30 2c 22  |.add_points(10,"|
00008480  66 6f 72 20 66 69 6e 64  69 6e 67 20 66 6f 6f 64  |for finding food|
00008490  2e 22 29 0d 03 f9 41 74  61 73 74 65 25 3d 33 3a  |.")...Ataste%=3:|
000084a0  73 6d 65 6c 6c 25 3d 34  3a 68 65 61 72 69 6e 67  |smell%=4:hearing|
000084b0  25 3d 31 34 3a f2 73 68  6f 77 5f 73 65 6e 73 65  |%=14:.show_sense|
000084c0  73 28 31 29 3a f2 63 61  6e 63 65 6c 5f 66 6f 6f  |s(1):.cancel_foo|
000084d0  64 28 34 29 0d 03 fa 07  f2 72 70 0d 03 fb 05 e1  |d(4).....rp.....|
000084e0  0d 03 fc 04 0d 03 fd 0e  dd f2 65 61 74 5f 66 72  |..........eat_fr|
000084f0  6f 67 0d 03 fe 71 e7 52  25 3e 32 3a f2 63 6c 65  |og...q.R%>2:.cle|
00008500  61 72 5f 74 65 78 74 3a  f2 6d 65 73 73 61 67 65  |ar_text:.message|
00008510  28 22 59 6f 75 20 63 6f  75 6c 64 20 68 61 76 65  |("You could have|
00008520  20 63 61 75 67 68 74 20  74 68 65 20 66 72 6f 67  | caught the frog|
00008530  20 62 75 74 20 79 6f 75  22 2c 22 64 6f 20 6e 6f  | but you","do no|
00008540  74 20 6e 65 65 64 20 61  6e 79 20 6d 6f 72 65 20  |t need any more |
00008550  74 6f 20 65 61 74 2e 22  29 3a 6d 65 73 73 25 3d  |to eat."):mess%=|
00008560  31 3a e1 0d 03 ff ce 6d  65 73 73 25 3d 31 3a 73  |1:.....mess%=1:s|
00008570  6d 65 6c 6c 25 3d 31 37  3a 68 65 61 72 69 6e 67  |mell%=17:hearing|
00008580  25 3d 31 34 3a 74 61 73  74 65 25 3d 31 37 3a 74  |%=14:taste%=17:t|
00008590  6f 75 63 68 25 3d 33 3a  f2 6d 65 73 73 61 67 65  |ouch%=3:.message|
000085a0  28 22 59 6f 75 20 65 61  74 20 74 68 65 20 66 72  |("You eat the fr|
000085b0  6f 67 2e 22 2c 22 49 74  20 74 61 73 74 65 73 20  |og.","It tastes |
000085c0  64 65 6c 69 63 69 6f 75  73 21 22 29 3a 42 25 3d  |delicious!"):B%=|
000085d0  73 63 72 65 65 6e 5f 74  77 6f 25 3a 43 25 3d 73  |screen_two%:C%=s|
000085e0  63 72 65 65 6e 5f 6f 6e  65 25 3a d6 77 69 7a 3a  |creen_one%:.wiz:|
000085f0  f2 62 6f 74 74 6f 6d 5f  66 72 61 6d 65 3a f2 73  |.bottom_frame:.s|
00008600  68 6f 77 5f 73 65 6e 73  65 73 28 31 29 3a f2 61  |how_senses(1):.a|
00008610  64 64 5f 70 6f 69 6e 74  73 28 31 30 2c 22 66 6f  |dd_points(10,"fo|
00008620  72 20 66 69 6e 64 69 6e  67 20 66 6f 6f 64 2e 22  |r finding food."|
00008630  29 0d 04 00 4c 74 61 73  74 65 25 3d 33 3a 73 6d  |)...Ltaste%=3:sm|
00008640  65 6c 6c 25 3d 32 31 3a  68 65 61 72 69 6e 67 25  |ell%=21:hearing%|
00008650  3d 32 31 3a 74 6f 75 63  68 25 3d 32 31 3a f2 73  |=21:touch%=21:.s|
00008660  68 6f 77 5f 73 65 6e 73  65 73 28 31 29 3a f2 63  |how_senses(1):.c|
00008670  61 6e 63 65 6c 5f 66 6f  6f 64 28 38 29 0d 04 01  |ancel_food(8)...|
00008680  07 f2 72 70 0d 04 02 05  e1 0d 04 03 04 0d 04 04  |..rp............|
00008690  10 dd f2 72 75 6e 5f 72  61 62 62 69 74 0d 04 05  |...run_rabbit...|
000086a0  d2 6d 65 73 73 25 3d 31  3a 73 69 67 68 74 25 3d  |.mess%=1:sight%=|
000086b0  72 65 5f 73 69 67 68 74  25 3a 73 6d 65 6c 6c 25  |re_sight%:smell%|
000086c0  3d 72 65 5f 73 6d 65 6c  6c 25 3a 68 65 61 72 69  |=re_smell%:heari|
000086d0  6e 67 25 3d 31 34 3a 74  61 73 74 65 25 3d 33 3a  |ng%=14:taste%=3:|
000086e0  f2 6d 65 73 73 61 67 65  28 22 54 68 65 20 72 61  |.message("The ra|
000086f0  62 62 69 74 20 72 75 6e  73 20 61 77 61 79 2e 22  |bbit runs away."|
00008700  2c 22 52 61 62 62 69 74  73 20 61 72 65 20 74 6f  |,"Rabbits are to|
00008710  6f 20 66 61 73 74 20 61  62 6f 76 65 20 67 72 6f  |o fast above gro|
00008720  75 6e 64 21 22 29 3a 63  6f 64 65 25 3d 30 3a 42  |und!"):code%=0:B|
00008730  25 3d 73 63 72 65 65 6e  5f 74 77 6f 25 3a 43 25  |%=screen_two%:C%|
00008740  3d 73 63 72 65 65 6e 5f  6f 6e 65 25 3a d6 77 69  |=screen_one%:.wi|
00008750  7a 3a f2 62 6f 74 74 6f  6d 5f 66 72 61 6d 65 3a  |z:.bottom_frame:|
00008760  f2 73 68 6f 77 5f 73 65  6e 73 65 73 28 31 29 0d  |.show_senses(1).|
00008770  04 06 13 f2 63 61 6e 63  65 6c 5f 66 6f 6f 64 28  |....cancel_food(|
00008780  30 29 0d 04 07 05 e1 0d  04 08 04 0d 04 09 08 dd  |0)..............|
00008790  f2 72 70 0d 04 0a 0f f2  63 6c 65 61 72 5f 74 65  |.rp.....clear_te|
000087a0  78 74 0d 04 0b 5c e7 52  25 3c 32 3a f2 6d 65 73  |xt...\.R%<2:.mes|
000087b0  73 61 67 65 28 22 59 6f  75 20 77 69 6c 6c 20 6e  |sage("You will n|
000087c0  65 65 64 20 74 6f 20 66  69 6e 64 20 6d 6f 72 65  |eed to find more|
000087d0  20 66 6f 6f 64 20 62 65  66 6f 72 65 22 2c 22 79  | food before","y|
000087e0  6f 75 20 74 72 61 76 65  6c 20 6e 6f 72 74 68 20  |ou travel north |
000087f0  6f 66 20 74 68 65 20 72  6f 61 64 2e 22 29 0d 04  |of the road.")..|
00008800  0c 3c e7 52 25 3e 31 3a  f2 6d 65 73 73 61 67 65  |.<.R%>1:.message|
00008810  28 22 59 6f 75 20 6e 65  65 64 20 6e 6f 20 6d 6f  |("You need no mo|
00008820  72 65 20 66 6f 6f 64 20  66 6f 72 20 61 20 77 68  |re food for a wh|
00008830  69 6c 65 2e 22 2c 22 20  22 29 0d 04 0d 0b 52 25  |ile."," ")....R%|
00008840  3d 52 25 2b 31 0d 04 0e  05 e1 0d 04 0f 04 0d 04  |=R%+1...........|
00008850  10 14 dd f2 6d 65 73 73  61 67 65 28 61 24 2c 62  |....message(a$,b|
00008860  24 29 0d 04 11 40 f2 70  72 69 32 28 36 34 2c 31  |$)...@.pri2(64,1|
00008870  36 30 2c 30 2c 31 2c 31  32 38 2c 31 2c 61 24 29  |60,0,1,128,1,a$)|
00008880  3a f2 70 72 69 32 28 36  34 2c 31 30 30 2c 30 2c  |:.pri2(64,100,0,|
00008890  31 2c 31 32 38 2c 31 2c  62 24 29 3a f2 73 70 61  |1,128,1,b$):.spa|
000088a0  63 65 0d 04 12 0f f2 63  6c 65 61 72 5f 74 65 78  |ce.....clear_tex|
000088b0  74 0d 04 13 05 e1 0d 04  14 04 0d 04 15 1f dd f2  |t...............|
000088c0  61 64 64 5f 70 6f 69 6e  74 73 28 61 64 64 25 2c  |add_points(add%,|
000088d0  6d 65 73 73 61 67 65 24  29 0d 04 16 10 ef 32 36  |message$).....26|
000088e0  3a 2a 66 78 31 31 32 2c  31 0d 04 17 70 f2 70 72  |:*fx112,1...p.pr|
000088f0  69 32 28 36 34 2c 31 36  30 2c 30 2c 31 2c 31 32  |i2(64,160,0,1,12|
00008900  38 2c 31 2c 22 57 65 6c  6c 20 64 6f 6e 65 2c 20  |8,1,"Well done, |
00008910  20 79 6f 75 20 67 61 69  6e 2e 2e 2e 22 29 3a f2  | you gain..."):.|
00008920  70 72 69 32 28 36 34 2c  31 30 30 2c 30 2c 31 2c  |pri2(64,100,0,1,|
00008930  31 32 38 2c 31 2c c3 28  61 64 64 25 29 2b 22 20  |128,1,.(add%)+" |
00008940  70 6f 69 6e 74 73 20 22  2b 6d 65 73 73 61 67 65  |points "+message|
00008950  24 29 3a f2 73 70 61 63  65 0d 04 18 0f f2 63 6c  |$):.space.....cl|
00008960  65 61 72 5f 74 65 78 74  0d 04 19 0e 55 25 3d 55  |ear_text....U%=U|
00008970  25 2b 61 64 64 25 0d 04  1a 05 e1 0d 04 1b 04 0d  |%+add%..........|
00008980  04 1c 10 dd f2 73 65 74  5f 61 63 74 69 6f 6e 0d  |.....set_action.|
00008990  04 1d 07 ef 32 36 0d 04  1e 08 e6 30 2c 33 0d 04  |....26.....0,3..|
000089a0  1f 10 e3 66 25 3d 30 20  b8 20 38 20 88 32 0d 04  |...f%=0 . 8 .2..|
000089b0  20 55 ec 32 30 2b 66 25  2c 32 37 38 2b 66 25 3a  | U.20+f%,278+f%:|
000089c0  f0 35 2c 31 32 35 38 2d  66 25 2c 32 37 38 2b 66  |.5,1258-f%,278+f|
000089d0  25 3a f0 35 2c 31 32 35  38 2d 66 25 2c 36 33 32  |%:.5,1258-f%,632|
000089e0  2d 66 25 3a f0 35 2c 32  30 2b 66 25 2c 36 33 32  |-f%:.5,20+f%,632|
000089f0  2d 66 25 3a f0 35 2c 32  30 2b 66 25 2c 32 37 38  |-f%:.5,20+f%,278|
00008a00  2b 66 25 0d 04 21 05 ed  0d 04 22 18 ef 32 34 2c  |+f%..!...."..24,|
00008a10  33 30 3b 32 37 38 3b 31  32 35 38 3b 37 31 39 3b  |30;278;1258;719;|
00008a20  0d 04 23 14 e3 66 25 3d  36 39 38 20 b8 20 30 20  |..#..f%=698 . 0 |
00008a30  88 2d 31 36 0d 04 24 32  f2 70 6c 6f 74 5f 73 70  |.-16..$2.plot_sp|
00008a40  72 69 74 65 5f 73 63 61  6c 65 64 28 66 25 2b 34  |rite_scaled(f%+4|
00008a50  2c 32 38 38 2c 31 2c 31  2c 31 2c 31 2c 22 67 72  |,288,1,1,1,1,"gr|
00008a60  61 73 73 32 22 29 0d 04  25 05 ed 0d 04 26 25 ef  |ass2")..%....&%.|
00008a70  32 34 2c 33 30 3b 33 39  36 3b 37 30 36 3b 36 32  |24,30;396;706;62|
00008a80  30 3b 31 38 2c 30 2c 31  33 32 2c 31 36 2c 32 36  |0;18,0,132,16,26|
00008a90  0d 04 27 26 ef 32 34 2c  33 30 3b 35 37 30 3b 31  |..'&.24,30;570;1|
00008aa0  32 34 38 3b 36 32 34 3b  31 38 2c 30 2c 31 33 32  |248;624;18,0,132|
00008ab0  2c 31 36 2c 32 36 0d 04  28 05 e1 0d 04 29 04 0d  |,16,26..(....)..|
00008ac0  04 2a 31 dd f2 66 69 6e  64 5f 73 69 67 68 74 28  |.*1..find_sight(|
00008ad0  66 6c 6f 6f 70 25 2c 66  73 78 25 2c 66 73 79 25  |floop%,fsx%,fsy%|
00008ae0  2c 66 73 6c 25 2c 74 6c  25 2c 74 65 78 74 24 29  |,fsl%,tl%,text$)|
00008af0  0d 04 2b 09 f7 8d 54 77  44 0d 04 2c 13 e3 20 66  |..+...TwD..,.. f|
00008b00  25 3d 31 20 b8 20 66 6c  6f 6f 70 25 0d 04 2d 34  |%=1 . floop%..-4|
00008b10  f3 6e 75 6d 25 2c 66 69  6c 65 24 2c 73 70 31 24  |.num%,file$,sp1$|
00008b20  2c 73 70 78 31 25 2c 73  70 79 31 25 2c 73 63 6f  |,spx1%,spy1%,sco|
00008b30  6c 25 2c 74 32 24 2c 74  78 25 2c 74 79 25 3a ed  |l%,t2$,tx%,ty%:.|
00008b40  0d 04 2e 25 f2 73 65 6e  73 65 73 5f 62 6f 78 28  |...%.senses_box(|
00008b50  66 73 78 25 2c 66 73 79  25 2c 66 73 6c 25 2c 73  |fsx%,fsy%,fsl%,s|
00008b60  63 6f 6c 25 29 0d 04 2f  89 e7 66 69 6c 65 24 3c  |col%)../..file$<|
00008b70  3e 22 22 6c 6f 61 64 24  3d c3 7e 28 70 69 63 74  |>""load$=.~(pict|
00008b80  75 72 65 31 25 29 3a ff  20 22 4c 4f 41 44 20 3c  |ure1%):. "LOAD <|
00008b90  42 61 64 67 65 72 24 44  49 52 3e 2e 6f 74 68 65  |Badger$DIR>.othe|
00008ba0  72 70 69 63 73 2e 22 2b  66 69 6c 65 24 2b 22 20  |rpics."+file$+" |
00008bb0  22 2b 6c 6f 61 64 24 3a  c8 91 66 73 78 25 2c 66  |"+load$:..fsx%,f|
00008bc0  73 79 25 2d 31 32 38 3a  41 25 3d 70 69 63 74 75  |sy%-128:A%=pictu|
00008bd0  72 65 31 25 3a 42 25 3d  30 3a d6 64 72 61 77 5f  |re1%:B%=0:.draw_|
00008be0  70 69 63 74 75 72 65 25  3a c8 91 30 2c 30 0d 04  |picture%:..0,0..|
00008bf0  30 45 e7 73 70 31 24 3c  3e 22 22 3a f2 70 6c 6f  |0E.sp1$<>"":.plo|
00008c00  74 5f 73 70 72 69 74 65  5f 73 63 61 6c 65 64 28  |t_sprite_scaled(|
00008c10  66 73 78 25 2b 73 70 78  31 25 2c 66 73 79 25 2b  |fsx%+spx1%,fsy%+|
00008c20  73 70 79 31 25 2c 31 2c  31 2c 31 2c 31 2c 73 70  |spy1%,1,1,1,1,sp|
00008c30  31 24 29 0d 04 31 33 e7  74 32 24 3c 3e 22 22 3a  |1$)..13.t2$<>"":|
00008c40  f2 70 72 69 32 28 74 78  25 2b 66 73 78 25 2c 74  |.pri2(tx%+fsx%,t|
00008c50  79 25 2b 66 73 79 25 2c  30 2c 31 2c 31 32 38 2c  |y%+fsy%,0,1,128,|
00008c60  32 2c 74 32 24 29 0d 04  32 07 ef 32 36 0d 04 33  |2,t2$)..2..26..3|
00008c70  28 f2 77 6f 72 64 5f 62  6f 78 28 66 73 78 25 2d  |(.word_box(fsx%-|
00008c80  38 2c 66 73 79 25 2b 33  30 30 2c 74 6c 25 2c 74  |8,fsy%+300,tl%,t|
00008c90  65 78 74 24 29 0d 04 34  09 c8 91 30 2c 30 0d 04  |ext$)..4...0,0..|
00008ca0  35 05 e1 0d 04 36 04 0d  04 37 1f dc 31 2c 63 6f  |5....6...7..1,co|
00008cb0  77 70 61 74 2c 22 22 2c  30 2c 30 2c 31 32 39 2c  |wpat,"",0,0,129,|
00008cc0  22 22 2c 30 2c 30 0d 04  38 1e dc 32 2c 22 22 2c  |"",0,0..8..2,"",|
00008cd0  63 6f 77 2c 34 38 2c 39  30 2c 31 34 30 2c 22 22  |cow,48,90,140,""|
00008ce0  2c 30 2c 30 0d 04 39 25  dc 33 2c 22 22 2c 22 22  |,0,0..9%.3,"",""|
00008cf0  2c 30 2c 30 2c 31 32 38  2c 22 4e 6f 74 68 69 6e  |,0,0,128,"Nothin|
00008d00  67 22 2c 38 30 2c 31 36  30 0d 04 3a 28 dc 34 2c  |g",80,160..:(.4,|
00008d10  22 67 72 61 73 73 79 22  2c 22 22 2c 30 2c 30 2c  |"grassy","",0,0,|
00008d20  31 32 39 2c 22 47 72 61  73 73 22 2c 39 36 2c 32  |129,"Grass",96,2|
00008d30  30 0d 04 3b 23 dc 35 2c  22 22 2c 22 62 61 64 67  |0..;#.5,"","badg|
00008d40  65 72 35 22 2c 38 2c 36  34 2c 31 33 32 2c 22 22  |er5",8,64,132,""|
00008d50  2c 30 2c 30 0d 04 3c 20  dc 36 2c 22 67 72 61 73  |,0,0..< .6,"gras|
00008d60  73 22 2c 22 22 2c 30 2c  30 2c 31 32 39 2c 22 22  |s","",0,0,129,""|
00008d70  2c 30 2c 30 0d 04 3d 21  dc 37 2c 22 22 2c 62 75  |,0,0..=!.7,"",bu|
00008d80  67 6c 31 2c 39 36 2c 31  32 30 2c 31 34 31 2c 22  |gl1,96,120,141,"|
00008d90  22 2c 30 2c 30 0d 04 3e  20 dc 38 2c 22 22 2c 63  |",0,0..> .8,"",c|
00008da0  61 72 33 2c 39 36 2c 31  36 30 2c 31 34 31 2c 22  |ar3,96,160,141,"|
00008db0  22 2c 30 2c 30 0d 04 3f  23 dc 39 2c 22 54 52 41  |",0,0..?#.9,"TRA|
00008dc0  43 4b 50 49 43 22 2c 22  22 2c 30 2c 30 2c 31 32  |CKPIC","",0,0,12|
00008dd0  39 2c 22 22 2c 30 2c 30  0d 04 40 24 dc 31 30 2c  |9,"",0,0..@$.10,|
00008de0  22 22 2c 22 57 48 45 45  4c 31 22 2c 34 38 2c 33  |"","WHEEL1",48,3|
00008df0  30 2c 31 33 31 2c 22 22  2c 30 2c 30 0d 04 41 24  |0,131,"",0,0..A$|
00008e00  dc 31 31 2c 22 4c 41 4b  45 53 49 44 45 22 2c 22  |.11,"LAKESIDE","|
00008e10  22 2c 30 2c 30 2c 31 32  39 2c 22 22 2c 30 2c 30  |",0,0,129,"",0,0|
00008e20  0d 04 42 24 dc 31 32 2c  22 22 2c 22 50 4f 49 53  |..B$.12,"","POIS|
00008e30  4f 4e 22 2c 34 38 2c 34  30 2c 31 33 31 2c 22 22  |ON",48,40,131,""|
00008e40  2c 30 2c 30 0d 04 43 25  dc 31 33 2c 22 22 2c 22  |,0,0..C%.13,"","|
00008e50  45 58 48 41 55 53 54 22  2c 34 38 2c 33 30 2c 31  |EXHAUST",48,30,1|
00008e60  33 31 2c 22 22 2c 30 2c  30 0d 04 44 29 dc 31 34  |31,"",0,0..D).14|
00008e70  2c 22 22 2c 22 57 49 4e  44 32 22 2c 34 38 2c 31  |,"","WIND2",48,1|
00008e80  32 2c 31 33 31 2c 22 57  69 6e 64 22 2c 39 36 2c  |2,131,"Wind",96,|
00008e90  32 30 0d 04 45 23 dc 31  35 2c 22 22 2c 22 52 61  |20..E#.15,"","Ra|
00008ea0  62 62 69 74 22 2c 38 2c  34 38 2c 31 34 30 2c 22  |bbit",8,48,140,"|
00008eb0  22 2c 30 2c 30 0d 04 46  21 dc 31 36 2c 22 67 72  |",0,0..F!.16,"gr|
00008ec0  61 73 73 22 2c 22 22 2c  30 2c 30 2c 31 32 39 2c  |ass","",0,0,129,|
00008ed0  22 22 2c 30 2c 30 0d 04  47 25 dc 31 37 2c 22 22  |"",0,0..G%.17,""|
00008ee0  2c 22 6c 66 72 6f 67 5f  31 22 2c 32 30 2c 34 38  |,"lfrog_1",20,48|
00008ef0  2c 31 33 32 2c 22 22 2c  30 2c 30 0d 04 48 24 dc  |,132,"",0,0..H$.|
00008f00  31 38 2c 22 52 49 56 45  52 4d 49 44 22 2c 22 22  |18,"RIVERMID",""|
00008f10  2c 30 2c 30 2c 31 32 39  2c 22 22 2c 30 2c 30 0d  |,0,0,129,"",0,0.|
00008f20  04 49 23 dc 31 39 2c 22  57 41 4c 4c 50 49 43 22  |.I#.19,"WALLPIC"|
00008f30  2c 22 22 2c 30 2c 30 2c  31 32 39 2c 22 22 2c 30  |,"",0,0,129,"",0|
00008f40  2c 30 0d 04 4a 25 dc 32  30 2c 22 52 49 56 45 52  |,0..J%.20,"RIVER|
00008f50  53 49 44 45 22 2c 22 22  2c 30 2c 30 2c 31 32 39  |SIDE","",0,0,129|
00008f60  2c 22 22 2c 30 2c 30 0d  04 4b 28 dc 32 31 2c 22  |,"",0,0..K(.21,"|
00008f70  57 41 54 45 52 22 2c 22  22 2c 30 2c 30 2c 31 32  |WATER","",0,0,12|
00008f80  39 2c 22 57 61 74 65 72  22 2c 39 30 2c 32 30 0d  |9,"Water",90,20.|
00008f90  04 4c 21 dc 32 32 2c 22  22 2c 22 4d 41 4e 22 2c  |.L!.22,"","MAN",|
00008fa0  36 34 2c 31 36 2c 31 33  39 2c 22 22 2c 30 2c 30  |64,16,139,"",0,0|
00008fb0  0d 04 4d 23 dc 32 33 2c  22 22 2c 22 57 4f 52 4d  |..M#.23,"","WORM|
00008fc0  32 22 2c 36 34 2c 33 32  2c 31 33 39 2c 22 22 2c  |2",64,32,139,"",|
00008fd0  30 2c 30 0d 04 4e 22 dc  32 34 2c 22 22 2c 22 42  |0,0..N".24,"","B|
00008fe0  55 4c 42 22 2c 36 34 2c  31 36 2c 31 33 39 2c 22  |ULB",64,16,139,"|
00008ff0  22 2c 30 2c 30 0d 04 4f  22 dc 32 35 2c 22 54 55  |",0,0..O".25,"TU|
00009000  4e 50 49 43 22 2c 22 22  2c 30 2c 30 2c 31 32 39  |NPIC","",0,0,129|
00009010  2c 22 22 2c 30 2c 30 0d  04 50 22 dc 32 36 2c 22  |,"",0,0..P".26,"|
00009020  22 2c 22 48 49 44 45 31  22 2c 38 2c 36 34 2c 31  |","HIDE1",8,64,1|
00009030  33 32 2c 22 22 2c 30 2c  30 0d 04 51 22 dc 32 37  |32,"",0,0..Q".27|
00009040  2c 22 22 2c 22 48 49 44  45 32 22 2c 38 2c 36 34  |,"","HIDE2",8,64|
00009050  2c 31 33 32 2c 22 22 2c  30 2c 30 0d 04 52 23 dc  |,132,"",0,0..R#.|
00009060  32 38 2c 22 42 52 41 4d  42 4c 45 22 2c 22 22 2c  |28,"BRAMBLE","",|
00009070  30 2c 30 2c 31 32 39 2c  22 22 2c 30 2c 30 0d 04  |0,0,129,"",0,0..|
00009080  53 21 dc 32 39 2c 22 48  4f 4c 45 31 22 2c 22 22  |S!.29,"HOLE1",""|
00009090  2c 30 2c 30 2c 31 32 39  2c 22 22 2c 30 2c 30 0d  |,0,0,129,"",0,0.|
000090a0  04 54 20 dc 33 30 2c 22  22 2c 22 66 6f 78 22 2c  |.T .30,"","fox",|
000090b0  33 38 2c 38 2c 31 34 30  2c 22 22 2c 30 2c 30 0d  |38,8,140,"",0,0.|
000090c0  04 55 27 dc 33 31 2c 22  22 2c 22 42 49 47 53 50  |.U'.31,"","BIGSP|
000090d0  49 44 45 52 22 2c 37 32  2c 36 34 2c 31 34 30 2c  |IDER",72,64,140,|
000090e0  22 22 2c 30 2c 30 0d 04  56 04 0d 04 57 04 0d 04  |"",0,0..V...W...|
000090f0  58 1b dd f2 77 6f 72 64  5f 62 6f 78 28 78 25 2c  |X...word_box(x%,|
00009100  79 25 2c 6c 25 2c 61 24  29 0d 04 59 70 ef 32 34  |y%,l%,a$)..Yp.24|
00009110  2c 78 25 3b 79 25 3b 78  25 2b 6c 25 3b 79 25 2b  |,x%;y%;x%+l%;y%+|
00009120  35 36 3b 31 38 2c 30 2c  31 32 39 2c 31 36 2c 32  |56;18,0,129,16,2|
00009130  34 2c 78 25 2b 34 3b 79  25 2b 34 3b 78 25 2b 6c  |4,x%+4;y%+4;x%+l|
00009140  25 2d 34 3b 79 25 2b 35  32 3b 31 38 2c 30 2c 31  |%-4;y%+52;18,0,1|
00009150  32 38 2c 31 36 2c 32 36  3a f2 70 72 69 32 28 78  |28,16,26:.pri2(x|
00009160  25 2b 38 2c 79 25 2b 31  36 2c 30 2c 31 2c 31 32  |%+8,y%+16,0,1,12|
00009170  38 2c 32 2c 61 24 29 3a  e1 0d 04 5a 04 0d 04 5b  |8,2,a$):...Z...[|
00009180  22 dd f2 73 65 6e 73 65  73 5f 62 6f 78 28 73 78  |"..senses_box(sx|
00009190  25 2c 73 79 25 2c 6c 25  2c 73 63 6f 6c 25 29 0d  |%,sy%,l%,scol%).|
000091a0  04 5c 5b ef 32 34 2c 73  78 25 3b 73 79 25 3b 73  |.\[.24,sx%;sy%;s|
000091b0  78 25 2b 6c 25 3b 73 79  25 2b 33 34 34 3b 31 38  |x%+l%;sy%+344;18|
000091c0  2c 30 2c 31 33 31 2c 31  36 2c 32 34 2c 73 78 25  |,0,131,16,24,sx%|
000091d0  2b 38 3b 73 79 25 2b 38  3b 73 78 25 2b 6c 25 2d  |+8;sy%+8;sx%+l%-|
000091e0  38 3b 73 79 25 2b 33 33  36 3b 31 38 2c 30 2c 73  |8;sy%+336;18,0,s|
000091f0  63 6f 6c 25 2c 31 36 2c  32 36 0d 04 5d 05 e1 0d  |col%,16,26..]...|
00009200  04 5e 04 0d 04 5f 0f dd  f2 73 74 61 72 74 5f 63  |.^..._...start_c|
00009210  61 72 0d 04 60 0c 41 3d  b3 28 31 30 30 29 0d 04  |ar..`.A=.(100)..|
00009220  61 15 e7 41 3e 32 20 84  20 6e 6f 63 61 72 25 3d  |a..A>2 . nocar%=|
00009230  31 20 e1 0d 04 62 14 e7  41 3d 31 20 80 20 63 61  |1 ...b..A=1 . ca|
00009240  72 31 25 3e 30 20 e1 0d  04 63 14 e7 41 3d 32 20  |r1%>0 ...c..A=2 |
00009250  80 20 63 61 72 32 25 3e  30 20 e1 0d 04 64 3a e7  |. car2%>0 ...d:.|
00009260  41 3d 31 20 f5 3a 63 61  72 31 25 3d b3 28 33 29  |A=1 .:car1%=.(3)|
00009270  3a fd 63 61 72 31 25 3c  3e 63 61 72 32 25 3a 63  |:.car1%<>car2%:c|
00009280  61 72 31 78 25 3d 2d 33  30 30 3a 63 61 72 31 79  |ar1x%=-300:car1y|
00009290  25 3d 36 36 30 0d 04 65  3a e7 41 3d 32 20 f5 3a  |%=660..e:.A=2 .:|
000092a0  63 61 72 32 25 3d b3 28  33 29 3a fd 63 61 72 32  |car2%=.(3):.car2|
000092b0  25 3c 3e 63 61 72 31 25  3a 63 61 72 32 78 25 3d  |%<>car1%:car2x%=|
000092c0  31 32 30 30 3a 63 61 72  32 79 25 3d 35 31 32 0d  |1200:car2y%=512.|
000092d0  04 66 3a e7 41 3d 32 20  c8 99 22 4f 53 5f 53 70  |.f:.A=2 .."OS_Sp|
000092e0  72 69 74 65 4f 70 22 2c  26 31 32 46 2c 73 70 72  |riteOp",&12F,spr|
000092f0  69 74 65 5f 61 72 65 61  31 25 2c 22 63 61 72 22  |ite_area1%,"car"|
00009300  2b c3 28 63 61 72 32 25  29 0d 04 67 05 e1 0d 04  |+.(car2%)..g....|
00009310  68 04 0d 04 69 0e dd f2  6d 6f 76 65 5f 63 61 72  |h...i...move_car|
00009320  0d 04 6a 28 e7 67 6f 5f  66 61 72 6d 25 3d 31 20  |..j(.go_farm%=1 |
00009330  80 20 6d 61 6e 78 25 3e  33 30 30 20 f2 70 6f 69  |. manx%>300 .poi|
00009340  6e 74 5f 6d 61 6e 3a e1  0d 04 6b 04 0d 04 6c 21  |nt_man:...k...l!|
00009350  e7 63 61 72 31 25 3d 30  20 84 20 63 61 72 32 25  |.car1%=0 . car2%|
00009360  3d 30 20 f2 73 74 61 72  74 5f 63 61 72 0d 04 6d  |=0 .start_car..m|
00009370  22 e7 63 61 72 31 78 25  3e 31 32 32 30 20 80 20  |".car1x%>1220 . |
00009380  63 61 72 31 25 3e 30 3a  63 61 72 31 25 3d 30 0d  |car1%>0:car1%=0.|
00009390  04 6e 54 e7 63 61 72 32  78 25 3c 2d 33 30 30 20  |.nT.car2x%<-300 |
000093a0  80 20 63 61 72 32 25 3e  30 3a c8 99 22 4f 53 5f  |. car2%>0:.."OS_|
000093b0  53 70 72 69 74 65 4f 70  22 2c 26 31 32 46 2c 73  |SpriteOp",&12F,s|
000093c0  70 72 69 74 65 5f 61 72  65 61 31 25 2c 22 63 61  |prite_area1%,"ca|
000093d0  72 22 2b c3 28 63 61 72  32 25 29 3a 63 61 72 32  |r"+.(car2%):car2|
000093e0  25 3d 30 0d 04 6f 15 e7  63 74 25 2b 32 3e 91 3a  |%=0..o..ct%+2>.:|
000093f0  e1 3a 8b 63 74 25 3d 91  0d 04 70 18 ef 32 34 2c  |.:.ct%=...p..24,|
00009400  36 34 3b 33 32 30 3b 31  32 31 36 3b 39 36 30 3b  |64;320;1216;960;|
00009410  0d 04 71 5f e7 63 61 72  31 25 3e 30 20 63 61 72  |..q_.car1%>0 car|
00009420  31 78 25 3d 63 61 72 31  78 25 2b 31 32 3a c8 99  |1x%=car1x%+12:..|
00009430  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00009440  32 32 2c 73 70 72 69 74  65 5f 61 72 65 61 31 25  |22,sprite_area1%|
00009450  2c 22 63 61 72 22 2b c3  28 63 61 72 31 25 29 2c  |,"car"+.(car1%),|
00009460  63 61 72 31 78 25 2c 63  61 72 31 79 25 2c 30 0d  |car1x%,car1y%,0.|
00009470  04 72 5f e7 63 61 72 32  25 3e 30 20 63 61 72 32  |.r_.car2%>0 car2|
00009480  78 25 3d 63 61 72 32 78  25 2d 31 32 3a c8 99 22  |x%=car2x%-12:.."|
00009490  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
000094a0  32 2c 73 70 72 69 74 65  5f 61 72 65 61 31 25 2c  |2,sprite_area1%,|
000094b0  22 63 61 72 22 2b c3 28  63 61 72 32 25 29 2c 63  |"car"+.(car2%),c|
000094c0  61 72 32 78 25 2c 63 61  72 32 79 25 2c 30 0d 04  |ar2x%,car2y%,0..|
000094d0  73 05 e1 0d 04 74 04 0d  04 75 11 dd f2 69 6e 66  |s....t...u...inf|
000094e0  6f 72 6d 61 74 69 6f 6e  0d 04 76 1d f2 62 6f 74  |ormation..v..bot|
000094f0  74 6f 6d 5f 66 72 61 6d  65 3a f2 63 6c 65 61 72  |tom_frame:.clear|
00009500  5f 74 65 78 74 0d 04 77  0a 6d 65 73 25 3d 30 0d  |_text..w.mes%=0.|
00009510  04 78 a3 e7 51 25 3d 31  20 80 20 52 25 3d 33 20  |.x..Q%=1 . R%=3 |
00009520  f2 70 72 69 32 28 36 34  2c 31 36 30 2c 30 2c 31  |.pri2(64,160,0,1|
00009530  2c 31 32 38 2c 31 2c 22  59 6f 75 20 68 61 76 65  |,128,1,"You have|
00009540  20 68 61 64 20 65 6e 6f  75 67 68 20 66 6f 6f 64  | had enough food|
00009550  20 61 6e 64 20 77 61 74  65 72 2e 20 20 4e 6f 77  | and water.  Now|
00009560  20 66 69 6e 64 22 29 3a  f2 70 72 69 32 28 36 34  | find"):.pri2(64|
00009570  2c 31 30 30 2c 30 2c 31  2c 31 32 38 2c 31 2c 22  |,100,0,1,128,1,"|
00009580  61 20 73 61 66 65 20 77  61 79 20 74 6f 20 74 68  |a safe way to th|
00009590  65 20 6f 74 68 65 72 20  73 69 64 65 20 6f 66 20  |e other side of |
000095a0  74 68 65 20 72 6f 61 64  2e 22 29 3a 6d 65 73 25  |the road."):mes%|
000095b0  3d 31 0d 04 79 10 79 5f  70 72 69 6e 74 25 3d 32  |=1..y.y_print%=2|
000095c0  30 30 0d 04 7a 74 e7 20  52 25 3c 33 20 80 20 52  |00..zt. R%<3 . R|
000095d0  25 3e 30 20 80 20 20 6d  65 73 25 3d 30 20 f2 70  |%>0 .  mes%=0 .p|
000095e0  72 69 32 28 36 34 2c 79  5f 70 72 69 6e 74 25 2c  |ri2(64,y_print%,|
000095f0  30 2c 31 2c 31 32 38 2c  31 2c 22 59 6f 75 20 6d  |0,1,128,1,"You m|
00009600  75 73 74 20 66 69 6e 64  20 73 6f 6d 65 74 68 69  |ust find somethi|
00009610  6e 67 20 6d 6f 72 65 20  74 6f 20 65 61 74 2e 22  |ng more to eat."|
00009620  29 3a 79 5f 70 72 69 6e  74 25 3d 79 5f 70 72 69  |):y_print%=y_pri|
00009630  6e 74 25 2d 36 30 0d 04  7b 67 e7 20 52 25 3d 30  |nt%-60..{g. R%=0|
00009640  20 80 20 6d 65 73 25 3d  30 20 f2 70 72 69 32 28  | . mes%=0 .pri2(|
00009650  36 34 2c 79 5f 70 72 69  6e 74 25 2c 30 2c 31 2c  |64,y_print%,0,1,|
00009660  31 32 38 2c 31 2c 22 59  6f 75 20 6d 75 73 74 20  |128,1,"You must |
00009670  66 69 6e 64 20 73 6f 6d  65 74 68 69 6e 67 20 74  |find something t|
00009680  6f 20 65 61 74 2e 22 29  3a 79 5f 70 72 69 6e 74  |o eat."):y_print|
00009690  25 3d 79 5f 70 72 69 6e  74 25 2d 36 30 0d 04 7c  |%=y_print%-60..||
000096a0  69 e7 20 51 25 3d 30 20  80 20 6d 65 73 25 3d 30  |i. Q%=0 . mes%=0|
000096b0  20 f2 70 72 69 32 28 36  34 2c 79 5f 70 72 69 6e  | .pri2(64,y_prin|
000096c0  74 25 2c 30 2c 31 2c 31  32 38 2c 31 2c 22 59 6f  |t%,0,1,128,1,"Yo|
000096d0  75 20 6d 75 73 74 20 66  69 6e 64 20 73 6f 6d 65  |u must find some|
000096e0  74 68 69 6e 67 20 74 6f  20 64 72 69 6e 6b 2e 22  |thing to drink."|
000096f0  29 3a 79 5f 70 72 69 6e  74 25 3d 79 5f 70 72 69  |):y_print%=y_pri|
00009700  6e 74 25 2d 36 30 0d 04  7d 47 e7 20 6d 65 73 25  |nt%-60..}G. mes%|
00009710  3d 30 20 f2 70 72 69 32  28 36 34 2c 79 5f 70 72  |=0 .pri2(64,y_pr|
00009720  69 6e 74 25 2c 30 2c 31  2c 31 32 38 2c 31 2c 22  |int%,0,1,128,1,"|
00009730  54 68 65 6e 20 63 6f 6e  74 69 6e 75 65 20 79 6f  |Then continue yo|
00009740  75 72 20 6a 6f 75 72 6e  65 79 2e 22 29 0d 04 7e  |ur journey.")..~|
00009750  0a f2 73 70 61 63 65 0d  04 7f 0f f2 63 6c 65 61  |..space.....clea|
00009760  72 5f 74 65 78 74 0d 04  80 72 ef 32 34 2c 38 37  |r_text...r.24,87|
00009770  32 3b 34 3b 31 32 36 32  3b 33 30 30 3b 31 38 2c  |2;4;1262;300;18,|
00009780  30 2c 31 33 30 2c 31 36  2c 32 34 2c 38 37 36 3b  |0,130,16,24,876;|
00009790  38 3b 31 32 35 38 3b 32  39 36 3b 31 38 2c 30 2c  |8;1258;296;18,0,|
000097a0  31 32 39 2c 31 36 2c 32  36 3a f2 70 6c 6f 74 5f  |129,16,26:.plot_|
000097b0  73 70 72 69 74 65 5f 73  63 61 6c 65 64 28 31 30  |sprite_scaled(10|
000097c0  30 32 2c 39 32 2c 31 2c  31 2c 31 2c 31 2c 22 63  |02,92,1,1,1,1,"c|
000097d0  6f 6d 70 61 73 73 22 29  0d 04 81 05 e1 0d 04 82  |ompass")........|
000097e0  04 0d 04 83 0d dd f2 63  6f 6d 70 61 73 73 0d 04  |.......compass..|
000097f0  84 72 ef 32 34 2c 38 37  32 3b 34 3b 31 32 36 32  |.r.24,872;4;1262|
00009800  3b 33 30 30 3b 31 38 2c  30 2c 31 33 30 2c 31 36  |;300;18,0,130,16|
00009810  2c 32 34 2c 38 37 36 3b  38 3b 31 32 35 38 3b 32  |,24,876;8;1258;2|
00009820  39 36 3b 31 38 2c 30 2c  31 32 39 2c 31 36 2c 32  |96;18,0,129,16,2|
00009830  36 3a f2 70 6c 6f 74 5f  73 70 72 69 74 65 5f 73  |6:.plot_sprite_s|
00009840  63 61 6c 65 64 28 31 30  30 32 2c 39 32 2c 31 2c  |caled(1002,92,1,|
00009850  31 2c 31 2c 31 2c 22 63  6f 6d 70 61 73 73 22 29  |1,1,1,"compass")|
00009860  0d 04 85 05 e1 0d 04 86  04 0d 04 87 10 dd f2 65  |...............e|
00009870  6e 64 5f 69 74 5f 61 6c  6c 0d 04 88 32 ef 31 38  |nd_it_all...2.18|
00009880  2c 30 2c 31 33 31 2c 31  36 2c 32 34 2c 36 34 3b  |,0,131,16,24,64;|
00009890  31 30 38 3b 31 32 31 36  3b 39 33 32 3b 31 38 2c  |108;1216;932;18,|
000098a0  30 2c 31 32 38 2c 31 36  2c 32 36 0d 04 89 1a f2  |0,128,16,26.....|
000098b0  6d 65 72 67 65 5f 73 70  72 69 74 65 28 22 64 65  |merge_sprite("de|
000098c0  61 74 68 22 29 0d 04 8a  3c f2 70 72 69 32 28 31  |ath")...<.pri2(1|
000098d0  32 38 2c 38 30 30 2c 30  2c 31 2c 31 32 38 2c 31  |28,800,0,1,128,1|
000098e0  2c 22 59 6f 75 20 68 61  76 65 20 6c 6f 73 74 20  |,"You have lost |
000098f0  61 6c 6c 20 79 6f 75 72  20 6c 69 76 65 73 2e 22  |all your lives."|
00009900  29 0d 04 8b 44 f2 70 72  69 32 28 31 32 38 2c 37  |)...D.pri2(128,7|
00009910  34 30 2c 30 2c 31 2c 31  32 38 2c 31 2c 22 59 6f  |40,0,1,128,1,"Yo|
00009920  75 20 6d 75 73 74 20 73  74 61 72 74 20 74 68 65  |u must start the|
00009930  20 61 64 76 65 6e 74 75  72 65 20 66 72 6f 6d 20  | adventure from |
00009940  74 68 65 22 29 0d 04 8c  2e f2 70 72 69 32 28 31  |the").....pri2(1|
00009950  32 38 2c 36 38 30 2c 30  2c 31 2c 31 32 38 2c 31  |28,680,0,1,128,1|
00009960  2c 22 76 65 72 79 20 62  65 67 69 6e 6e 69 6e 67  |,"very beginning|
00009970  2e 22 29 0d 04 8d 30 f2  70 6c 6f 74 5f 73 70 72  |.")...0.plot_spr|
00009980  69 74 65 5f 73 63 61 6c  65 64 28 33 34 30 2c 33  |ite_scaled(340,3|
00009990  30 30 2c 31 2c 31 2c 31  2c 31 2c 22 64 65 61 74  |00,1,1,1,1,"deat|
000099a0  68 22 29 0d 04 8e 0e f2  73 70 61 63 65 5f 74 77  |h").....space_tw|
000099b0  6f 0d 04 8f 13 4d 25 3d  30 3a d7 22 50 52 45 4c  |o....M%=0:."PREL|
000099c0  49 4e 4b 22 0d 04 90 04  0d 04 91 04 0d 04 92 04  |INK"............|
000099d0  0d 04 93 0c dd f2 73 63  72 6f 6c 6c 0d 04 94 23  |......scroll...#|
000099e0  20 f2 66 69 6e 64 5f 73  63 72 65 65 6e 28 32 2c  | .find_screen(2,|
000099f0  73 63 72 65 65 6e 5f 6c  6f 61 64 65 64 25 29 0d  |screen_loaded%).|
00009a00  04 95 0c 2a 46 58 31 31  32 2c 32 0d 04 96 08 20  |...*FX112,2.... |
00009a10  ef 32 36 0d 04 97 43 20  c8 99 22 4f 53 5f 53 70  |.26...C .."OS_Sp|
00009a20  72 69 74 65 4f 70 22 2c  26 31 31 30 2c 73 70 72  |riteOp",&110,spr|
00009a30  69 74 65 5f 61 72 65 61  31 25 2c 22 73 63 72 6f  |ite_area1%,"scro|
00009a40  6c 6c 31 22 2c 30 2c 36  34 2c 33 32 30 2c 31 32  |ll1",0,64,320,12|
00009a50  31 34 2c 39 36 30 0d 04  98 0c 2a 46 58 31 31 32  |14,960....*FX112|
00009a60  2c 31 0d 04 99 21 e7 67  6f 79 25 28 6d 6f 76 65  |,1...!.goy%(move|
00009a70  73 25 29 3d 31 20 f2 73  63 72 6f 6c 6c 5f 72 69  |s%)=1 .scroll_ri|
00009a80  67 68 74 0d 04 9a 20 e7  67 6f 79 25 28 6d 6f 76  |ght... .goy%(mov|
00009a90  65 73 25 29 3d 32 20 f2  73 63 72 6f 6c 6c 5f 64  |es%)=2 .scroll_d|
00009aa0  6f 77 6e 0d 04 9b 20 e7  67 6f 79 25 28 6d 6f 76  |own... .goy%(mov|
00009ab0  65 73 25 29 3d 33 20 f2  73 63 72 6f 6c 6c 5f 6c  |es%)=3 .scroll_l|
00009ac0  65 66 74 0d 04 9c 1e e7  67 6f 79 25 28 6d 6f 76  |eft.....goy%(mov|
00009ad0  65 73 25 29 3d 34 20 f2  73 63 72 6f 6c 6c 5f 75  |es%)=4 .scroll_u|
00009ae0  70 0d 04 9d 0c 2a 46 58  31 31 32 2c 32 0d 04 9e  |p....*FX112,2...|
00009af0  08 20 ef 32 36 0d 04 9f  43 20 c8 99 22 4f 53 5f  |. .26...C .."OS_|
00009b00  53 70 72 69 74 65 4f 70  22 2c 26 31 31 30 2c 73  |SpriteOp",&110,s|
00009b10  70 72 69 74 65 5f 61 72  65 61 31 25 2c 22 73 63  |prite_area1%,"sc|
00009b20  72 6f 6c 6c 32 22 2c 30  2c 36 34 2c 33 32 30 2c  |roll2",0,64,320,|
00009b30  31 32 31 36 2c 39 36 30  0d 04 a0 0c 2a 46 58 31  |1216,960....*FX1|
00009b40  31 32 2c 31 0d 04 a1 08  20 ef 32 36 0d 04 a2 1c  |12,1.... .26....|
00009b50  f4 20 56 44 55 32 34 2c  36 32 3b 33 31 36 3b 31  |. VDU24,62;316;1|
00009b60  32 31 36 3b 39 36 34 3b  0d 04 a3 38 e6 30 2c 33  |216;964;...8.0,3|
00009b70  3a ec 20 36 32 2c 33 31  36 3a df 20 31 32 31 38  |:. 62,316:. 1218|
00009b80  2c 33 31 36 3a df 31 32  31 38 2c 39 36 34 3a df  |,316:.1218,964:.|
00009b90  20 36 32 2c 39 36 34 3a  df 20 36 32 2c 33 31 36  | 62,964:. 62,316|
00009ba0  0d 04 a4 0b f4 20 56 44  55 32 36 0d 04 a5 05 e1  |..... VDU26.....|
00009bb0  0d 04 a6 04 0d 04 a7 0f  dd f2 73 63 72 6f 6c 6c  |..........scroll|
00009bc0  5f 75 70 0d 04 a8 18 ef  32 34 2c 36 34 3b 33 32  |_up.....24,64;32|
00009bd0  30 3b 31 32 31 36 3b 39  36 30 3b 0d 04 a9 21 e3  |0;1216;960;...!.|
00009be0  73 66 25 3d 28 33 32 30  2d 36 33 32 29 20 b8 20  |sf%=(320-632) . |
00009bf0  28 33 32 30 2d 33 32 30  29 20 88 38 0d 04 aa 27  |(320-320) .8...'|
00009c00  f5 3a fd 20 74 69 6d 65  25 2b 74 69 6d 65 5f 63  |.:. time%+time_c|
00009c10  6f 6e 74 72 6f 6c 25 2f  33 3c 91 3a 74 69 6d 65  |ontrol%/3<.:time|
00009c20  25 3d 91 0d 04 ab 1f c8  93 20 36 34 2c 33 32 30  |%=....... 64,320|
00009c30  2c 31 31 35 32 2c 36 34  30 20 b8 20 36 34 2c 33  |,1152,640 . 64,3|
00009c40  32 38 0d 04 ac 39 c8 99  22 4f 53 5f 53 70 72 69  |28...9.."OS_Spri|
00009c50  74 65 4f 70 22 2c 26 31  32 32 2c 73 70 72 69 74  |teOp",&122,sprit|
00009c60  65 5f 61 72 65 61 31 25  2c 22 73 63 72 6f 6c 6c  |e_area1%,"scroll|
00009c70  31 22 2c 36 34 2c 73 66  25 2c 30 0d 04 ad 05 ed  |1",64,sf%,0.....|
00009c80  0d 04 ae 04 0d 04 af 0b  61 79 25 3d 36 34 30 0d  |........ay%=640.|
00009c90  04 b0 04 0d 04 b1 0c 2a  46 58 31 31 32 2c 32 0d  |.......*FX112,2.|
00009ca0  04 b2 39 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..9.."OS_SpriteO|
00009cb0  70 22 2c 26 31 32 32 2c  73 70 72 69 74 65 5f 61  |p",&122,sprite_a|
00009cc0  72 65 61 31 25 2c 22 73  63 72 6f 6c 6c 32 22 2c  |rea1%,"scroll2",|
00009cd0  36 34 2c 36 34 30 2c 30  0d 04 b3 37 c8 99 22 4f  |64,640,0...7.."O|
00009ce0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 32 32  |S_SpriteOp",&122|
00009cf0  2c 73 70 72 69 74 65 5f  61 72 65 61 31 25 2c 22  |,sprite_area1%,"|
00009d00  73 63 72 6f 6c 6c 31 22  2c 36 34 2c 30 2c 30 0d  |scroll1",64,0,0.|
00009d10  04 b4 42 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..B.."OS_SpriteO|
00009d20  70 22 2c 26 31 31 30 2c  73 70 72 69 74 65 5f 61  |p",&110,sprite_a|
00009d30  72 65 61 31 25 2c 22 73  63 72 6f 6c 6c 32 22 2c  |rea1%,"scroll2",|
00009d40  30 2c 36 34 2c 33 32 30  2c 31 32 31 36 2c 39 36  |0,64,320,1216,96|
00009d50  30 0d 04 b5 0c 2a 46 58  31 31 32 2c 31 0d 04 b6  |0....*FX112,1...|
00009d60  04 0d 04 b7 0c e3 66 25  3d 31 b8 31 36 0d 04 b8  |......f%=1.16...|
00009d70  25 f5 3a fd 20 74 69 6d  65 25 2b 74 69 6d 65 5f  |%.:. time%+time_|
00009d80  63 6f 6e 74 72 6f 6c 25  3c 91 3a 74 69 6d 65 25  |control%<.:time%|
00009d90  3d 91 0d 04 b9 0c 2a 46  58 31 31 32 2c 32 0d 04  |=.....*FX112,2..|
00009da0  ba 3a 20 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.: .."OS_SpriteO|
00009db0  70 22 2c 26 31 32 32 2c  73 70 72 69 74 65 5f 61  |p",&122,sprite_a|
00009dc0  72 65 61 31 25 2c 22 73  63 72 6f 6c 6c 32 22 2c  |rea1%,"scroll2",|
00009dd0  36 34 2c 33 32 30 2c 30  0d 04 bb 0e 20 61 79 25  |64,320,0.... ay%|
00009de0  3d 61 79 25 2d 38 0d 04  bc 1d 20 e7 4c 25 3d 31  |=ay%-8.... .L%=1|
00009df0  31 20 84 20 4c 25 3d 32  30 20 61 78 25 3d 61 78  |1 . L%=20 ax%=ax|
00009e00  25 2b 38 0d 04 bd 04 0d  04 be 4d 20 f2 73 70 72  |%+8.......M .spr|
00009e10  69 74 65 5f 70 6c 6f 74  28 73 70 72 69 74 65 5f  |ite_plot(sprite_|
00009e20  61 72 65 61 31 25 2c 22  62 61 64 22 2b c3 28 62  |area1%,"bad"+.(b|
00009e30  61 64 25 28 6d 6f 76 65  73 25 29 29 2c 61 78 25  |ad%(moves%)),ax%|
00009e40  2c 61 79 25 2b 31 32 38  2c 31 32 2c 38 2c 31 34  |,ay%+128,12,8,14|
00009e50  2c 31 35 29 0d 04 bf 0c  2a 46 58 31 31 32 2c 31  |,15)....*FX112,1|
00009e60  0d 04 c0 27 20 42 25 3d  73 63 72 65 65 6e 5f 74  |...' B%=screen_t|
00009e70  77 6f 25 3a 43 25 3d 73  63 72 65 65 6e 5f 6f 6e  |wo%:C%=screen_on|
00009e80  65 25 3a d6 77 69 7a 0d  04 c1 05 ed 0d 04 c2 04  |e%:.wiz.........|
00009e90  0d 04 c3 0c 2a 46 58 31  31 32 2c 32 0d 04 c4 39  |....*FX112,2...9|
00009ea0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00009eb0  26 31 32 32 2c 73 70 72  69 74 65 5f 61 72 65 61  |&122,sprite_area|
00009ec0  31 25 2c 22 73 63 72 6f  6c 6c 31 22 2c 36 34 2c  |1%,"scroll1",64,|
00009ed0  33 32 30 2c 30 0d 04 c5  42 c8 99 22 4f 53 5f 53  |320,0...B.."OS_S|
00009ee0  70 72 69 74 65 4f 70 22  2c 26 31 31 30 2c 73 70  |priteOp",&110,sp|
00009ef0  72 69 74 65 5f 61 72 65  61 31 25 2c 22 73 63 72  |rite_area1%,"scr|
00009f00  6f 6c 6c 32 22 2c 30 2c  36 34 2c 33 32 30 2c 31  |oll2",0,64,320,1|
00009f10  32 31 36 2c 37 36 38 0d  04 c6 0c 2a 46 58 31 31  |216,768....*FX11|
00009f20  32 2c 31 0d 04 c7 04 0d  04 c8 1d e3 73 66 25 3d  |2,1.........sf%=|
00009f30  28 33 32 30 2d 33 31 32  29 20 b8 20 28 33 32 30  |(320-312) . (320|
00009f40  29 20 88 38 0d 04 c9 27  f5 3a fd 20 74 69 6d 65  |) .8...'.:. time|
00009f50  25 2b 74 69 6d 65 5f 63  6f 6e 74 72 6f 6c 25 2f  |%+time_control%/|
00009f60  33 3c 91 3a 74 69 6d 65  25 3d 91 0d 04 ca 1f c8  |3<.:time%=......|
00009f70  93 20 36 34 2c 33 32 30  2c 31 31 35 32 2c 36 34  |. 64,320,1152,64|
00009f80  30 20 b8 20 36 34 2c 33  32 38 0d 04 cb 39 c8 99  |0 . 64,328...9..|
00009f90  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00009fa0  32 32 2c 73 70 72 69 74  65 5f 61 72 65 61 31 25  |22,sprite_area1%|
00009fb0  2c 22 73 63 72 6f 6c 6c  32 22 2c 36 34 2c 73 66  |,"scroll2",64,sf|
00009fc0  25 2c 30 0d 04 cc 05 ed  0d 04 cd 04 0d 04 ce 0b  |%,0.............|
00009fd0  61 79 25 3d 38 33 32 0d  04 cf 04 0d 04 d0 0c 2a  |ay%=832........*|
00009fe0  46 58 31 31 32 2c 32 0d  04 d1 39 c8 99 22 4f 53  |FX112,2...9.."OS|
00009ff0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 32 2c  |_SpriteOp",&122,|
0000a000  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 22 73  |sprite_area1%,"s|
0000a010  63 72 6f 6c 6c 31 22 2c  36 34 2c 33 32 30 2c 30  |croll1",64,320,0|
0000a020  0d 04 d2 42 c8 99 22 4f  53 5f 53 70 72 69 74 65  |...B.."OS_Sprite|
0000a030  4f 70 22 2c 26 31 31 30  2c 73 70 72 69 74 65 5f  |Op",&110,sprite_|
0000a040  61 72 65 61 31 25 2c 22  73 63 72 6f 6c 6c 32 22  |area1%,"scroll2"|
0000a050  2c 30 2c 36 34 2c 33 32  30 2c 31 30 32 34 2c 39  |,0,64,320,1024,9|
0000a060  36 30 0d 04 d3 0c 2a 46  58 31 31 32 2c 31 0d 04  |60....*FX112,1..|
0000a070  d4 04 0d 04 d5 05 e1 0d  04 d6 04 0d 04 d7 04 0d  |................|
0000a080  04 d8 11 dd f2 73 63 72  6f 6c 6c 5f 64 6f 77 6e  |.....scroll_down|
0000a090  0d 04 d9 18 ef 32 34 2c  36 34 3b 33 32 30 3b 31  |.....24,64;320;1|
0000a0a0  32 31 36 3b 39 36 30 3b  0d 04 da 1e e3 73 66 25  |216;960;.....sf%|
0000a0b0  3d 28 39 35 32 29 20 b8  20 28 33 32 30 2b 32 35  |=(952) . (320+25|
0000a0c0  36 29 20 88 2d 38 0d 04  db 27 f5 3a fd 20 74 69  |6) .-8...'.:. ti|
0000a0d0  6d 65 25 2b 74 69 6d 65  5f 63 6f 6e 74 72 6f 6c  |me%+time_control|
0000a0e0  25 2f 33 3c 91 3a 74 69  6d 65 25 3d 91 0d 04 dc  |%/3<.:time%=....|
0000a0f0  1f c8 93 20 36 34 2c 33  32 30 2c 31 31 35 32 2c  |... 64,320,1152,|
0000a100  36 34 30 20 b8 20 36 34  2c 33 31 32 0d 04 dd 39  |640 . 64,312...9|
0000a110  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
0000a120  26 31 32 32 2c 73 70 72  69 74 65 5f 61 72 65 61  |&122,sprite_area|
0000a130  31 25 2c 22 73 63 72 6f  6c 6c 31 22 2c 36 34 2c  |1%,"scroll1",64,|
0000a140  73 66 25 2c 30 0d 04 de  05 ed 0d 04 df 04 0d 04  |sf%,0...........|
0000a150  e0 0b 61 79 25 3d 34 34  38 0d 04 e1 04 0d 04 e2  |..ay%=448.......|
0000a160  0c 2a 46 58 31 31 32 2c  32 0d 04 e3 39 c8 99 22  |.*FX112,2...9.."|
0000a170  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
0000a180  32 2c 73 70 72 69 74 65  5f 61 72 65 61 31 25 2c  |2,sprite_area1%,|
0000a190  22 73 63 72 6f 6c 6c 31  22 2c 36 34 2c 35 37 36  |"scroll1",64,576|
0000a1a0  2c 30 0d 04 e4 39 c8 99  22 4f 53 5f 53 70 72 69  |,0...9.."OS_Spri|
0000a1b0  74 65 4f 70 22 2c 26 31  32 32 2c 73 70 72 69 74  |teOp",&122,sprit|
0000a1c0  65 5f 61 72 65 61 31 25  2c 22 73 63 72 6f 6c 6c  |e_area1%,"scroll|
0000a1d0  32 22 2c 36 34 2c 2d 36  34 2c 30 0d 04 e5 42 c8  |2",64,-64,0...B.|
0000a1e0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
0000a1f0  31 31 30 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |110,sprite_area1|
0000a200  25 2c 22 73 63 72 6f 6c  6c 32 22 2c 30 2c 36 34  |%,"scroll2",0,64|
0000a210  2c 33 32 30 2c 31 32 31  36 2c 39 36 30 0d 04 e6  |,320,1216,960...|
0000a220  0c 2a 46 58 31 31 32 2c  31 0d 04 e7 04 0d 04 e8  |.*FX112,1.......|
0000a230  0c e3 66 25 3d 31 b8 31  36 0d 04 e9 25 f5 3a fd  |..f%=1.16...%.:.|
0000a240  20 74 69 6d 65 25 2b 74  69 6d 65 5f 63 6f 6e 74  | time%+time_cont|
0000a250  72 6f 6c 25 3c 91 3a 74  69 6d 65 25 3d 91 0d 04  |rol%<.:time%=...|
0000a260  ea 0c 2a 46 58 31 31 32  2c 32 0d 04 eb 3a 20 c8  |..*FX112,2...: .|
0000a270  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
0000a280  31 32 32 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |122,sprite_area1|
0000a290  25 2c 22 73 63 72 6f 6c  6c 32 22 2c 36 34 2c 33  |%,"scroll2",64,3|
0000a2a0  32 30 2c 30 0d 04 ec 0e  20 61 79 25 3d 61 79 25  |20,0.... ay%=ay%|
0000a2b0  2b 38 0d 04 ed 37 20 e7  4c 25 3d 31 30 20 84 20  |+8...7 .L%=10 . |
0000a2c0  4c 25 3d 31 36 20 61 78  25 3d 61 78 25 2d 38 20  |L%=16 ax%=ax%-8 |
0000a2d0  3a f4 20 77 61 73 20 63  6f 64 65 25 3d 32 20 4f  |:. was code%=2 O|
0000a2e0  52 20 4c 25 3d 31 36 3f  3f 0d 04 ee 4d 20 f2 73  |R L%=16??...M .s|
0000a2f0  70 72 69 74 65 5f 70 6c  6f 74 28 73 70 72 69 74  |prite_plot(sprit|
0000a300  65 5f 61 72 65 61 31 25  2c 22 62 61 64 22 2b c3  |e_area1%,"bad"+.|
0000a310  28 62 61 64 25 28 6d 6f  76 65 73 25 29 29 2c 61  |(bad%(moves%)),a|
0000a320  78 25 2c 61 79 25 2b 31  32 38 2c 31 32 2c 38 2c  |x%,ay%+128,12,8,|
0000a330  31 34 2c 31 35 29 0d 04  ef 0c 2a 46 58 31 31 32  |14,15)....*FX112|
0000a340  2c 31 0d 04 f0 27 20 42  25 3d 73 63 72 65 65 6e  |,1...' B%=screen|
0000a350  5f 74 77 6f 25 3a 43 25  3d 73 63 72 65 65 6e 5f  |_two%:C%=screen_|
0000a360  6f 6e 65 25 3a d6 77 69  7a 0d 04 f1 05 ed 0d 04  |one%:.wiz.......|
0000a370  f2 04 0d 04 f3 0c 2a 46  58 31 31 32 2c 32 0d 04  |......*FX112,2..|
0000a380  f4 39 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.9.."OS_SpriteOp|
0000a390  22 2c 26 31 32 32 2c 73  70 72 69 74 65 5f 61 72  |",&122,sprite_ar|
0000a3a0  65 61 31 25 2c 22 73 63  72 6f 6c 6c 31 22 2c 36  |ea1%,"scroll1",6|
0000a3b0  34 2c 33 32 30 2c 30 0d  04 f5 42 c8 99 22 4f 53  |4,320,0...B.."OS|
0000a3c0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 30 2c  |_SpriteOp",&110,|
0000a3d0  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 22 73  |sprite_area1%,"s|
0000a3e0  63 72 6f 6c 6c 32 22 2c  30 2c 36 34 2c 34 34 38  |croll2",0,64,448|
0000a3f0  2c 31 32 31 36 2c 39 36  30 0d 04 f6 0c 2a 46 58  |,1216,960....*FX|
0000a400  31 31 32 2c 31 0d 04 f7  04 0d 04 f8 26 e3 73 66  |112,1.......&.sf|
0000a410  25 3d 28 33 32 30 2b 32  35 36 2b 31 32 38 29 20  |%=(320+256+128) |
0000a420  b8 20 28 33 32 30 2b 31  32 38 29 20 88 2d 38 0d  |. (320+128) .-8.|
0000a430  04 f9 27 f5 3a fd 20 74  69 6d 65 25 2b 74 69 6d  |..'.:. time%+tim|
0000a440  65 5f 63 6f 6e 74 72 6f  6c 25 2f 33 3c 91 3a 74  |e_control%/3<.:t|
0000a450  69 6d 65 25 3d 91 0d 04  fa 1f c8 93 20 36 34 2c  |ime%=....... 64,|
0000a460  33 32 30 2c 31 31 35 32  2c 36 34 30 20 b8 20 36  |320,1152,640 . 6|
0000a470  34 2c 33 31 32 0d 04 fb  39 c8 99 22 4f 53 5f 53  |4,312...9.."OS_S|
0000a480  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 73 70  |priteOp",&122,sp|
0000a490  72 69 74 65 5f 61 72 65  61 31 25 2c 22 73 63 72  |rite_area1%,"scr|
0000a4a0  6f 6c 6c 32 22 2c 36 34  2c 73 66 25 2c 30 0d 04  |oll2",64,sf%,0..|
0000a4b0  fc 05 ed 0d 04 fd 04 0d  04 fe 0b 61 79 25 3d 33  |...........ay%=3|
0000a4c0  32 30 0d 04 ff 04 0d 05  00 0c 2a 46 58 31 31 32  |20........*FX112|
0000a4d0  2c 32 0d 05 01 39 c8 99  22 4f 53 5f 53 70 72 69  |,2...9.."OS_Spri|
0000a4e0  74 65 4f 70 22 2c 26 31  32 32 2c 73 70 72 69 74  |teOp",&122,sprit|
0000a4f0  65 5f 61 72 65 61 31 25  2c 22 73 63 72 6f 6c 6c  |e_area1%,"scroll|
0000a500  31 22 2c 36 34 2c 33 32  30 2c 30 0d 05 02 42 c8  |1",64,320,0...B.|
0000a510  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
0000a520  31 31 30 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |110,sprite_area1|
0000a530  25 2c 22 73 63 72 6f 6c  6c 32 22 2c 30 2c 36 34  |%,"scroll2",0,64|
0000a540  2c 33 32 30 2c 31 30 32  34 2c 39 36 30 0d 05 03  |,320,1024,960...|
0000a550  0c 2a 46 58 31 31 32 2c  31 0d 05 04 04 0d 05 05  |.*FX112,1.......|
0000a560  05 e1 0d 05 06 04 0d 05  07 04 0d 05 08 12 dd f2  |................|
0000a570  73 63 72 6f 6c 6c 5f 72  69 67 68 74 0d 05 09 18  |scroll_right....|
0000a580  ef 32 34 2c 36 34 3b 33  32 30 3b 31 32 31 36 3b  |.24,64;320;1216;|
0000a590  39 36 30 3b 0d 05 0a 22  e3 73 66 25 3d 28 36 34  |960;...".sf%=(64|
0000a5a0  2d 31 31 34 34 29 20 b8  20 28 36 34 30 2d 31 31  |-1144) . (640-11|
0000a5b0  35 32 29 20 88 38 0d 05  0b 27 f5 3a fd 20 74 69  |52) .8...'.:. ti|
0000a5c0  6d 65 25 2b 74 69 6d 65  5f 63 6f 6e 74 72 6f 6c  |me%+time_control|
0000a5d0  25 2f 33 3c 91 3a 74 69  6d 65 25 3d 91 0d 05 0c  |%/3<.:time%=....|
0000a5e0  1f c8 93 20 36 34 2c 33  32 30 2c 31 31 35 32 2c  |... 64,320,1152,|
0000a5f0  36 34 30 20 b8 20 37 32  2c 33 32 30 0d 05 0d 3a  |640 . 72,320...:|
0000a600  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
0000a610  26 31 32 32 2c 73 70 72  69 74 65 5f 61 72 65 61  |&122,sprite_area|
0000a620  31 25 2c 22 73 63 72 6f  6c 6c 31 22 2c 73 66 25  |1%,"scroll1",sf%|
0000a630  2c 33 32 30 2c 30 0d 05  0e 05 ed 0d 05 0f 0b 61  |,320,0.........a|
0000a640  78 25 3d 36 34 30 0d 05  10 04 0d 05 11 0c 2a 46  |x%=640........*F|
0000a650  58 31 31 32 2c 32 0d 05  12 3f c8 99 22 4f 53 5f  |X112,2...?.."OS_|
0000a660  53 70 72 69 74 65 4f 70  22 2c 26 31 32 32 2c 73  |SpriteOp",&122,s|
0000a670  70 72 69 74 65 5f 61 72  65 61 31 25 2c 22 73 63  |prite_area1%,"sc|
0000a680  72 6f 6c 6c 31 22 2c 36  34 30 2d 31 31 35 32 2c  |roll1",640-1152,|
0000a690  33 32 30 2c 30 0d 05 13  3a c8 99 22 4f 53 5f 53  |320,0...:.."OS_S|
0000a6a0  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 73 70  |priteOp",&122,sp|
0000a6b0  72 69 74 65 5f 61 72 65  61 31 25 2c 22 73 63 72  |rite_area1%,"scr|
0000a6c0  6f 6c 6c 32 22 2c 36 34  30 2c 33 32 30 2c 30 0d  |oll2",640,320,0.|
0000a6d0  05 14 42 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..B.."OS_SpriteO|
0000a6e0  70 22 2c 26 31 31 30 2c  73 70 72 69 74 65 5f 61  |p",&110,sprite_a|
0000a6f0  72 65 61 31 25 2c 22 73  63 72 6f 6c 6c 32 22 2c  |rea1%,"scroll2",|
0000a700  30 2c 36 34 2c 33 32 30  2c 31 32 31 36 2c 39 36  |0,64,320,1216,96|
0000a710  30 0d 05 15 0c 2a 46 58  31 31 32 2c 31 0d 05 16  |0....*FX112,1...|
0000a720  04 0d 05 17 0c e3 66 25  3d 31 b8 31 36 0d 05 18  |......f%=1.16...|
0000a730  25 f5 3a fd 20 74 69 6d  65 25 2b 74 69 6d 65 5f  |%.:. time%+time_|
0000a740  63 6f 6e 74 72 6f 6c 25  3c 91 3a 74 69 6d 65 25  |control%<.:time%|
0000a750  3d 91 0d 05 19 0c 2a 46  58 31 31 32 2c 32 0d 05  |=.....*FX112,2..|
0000a760  1a 3a 20 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.: .."OS_SpriteO|
0000a770  70 22 2c 26 31 32 32 2c  73 70 72 69 74 65 5f 61  |p",&122,sprite_a|
0000a780  72 65 61 31 25 2c 22 73  63 72 6f 6c 6c 32 22 2c  |rea1%,"scroll2",|
0000a790  36 34 2c 33 32 30 2c 30  0d 05 1b 0e 20 61 78 25  |64,320,0.... ax%|
0000a7a0  3d 61 78 25 2d 38 0d 05  1c 4d 20 f2 73 70 72 69  |=ax%-8...M .spri|
0000a7b0  74 65 5f 70 6c 6f 74 28  73 70 72 69 74 65 5f 61  |te_plot(sprite_a|
0000a7c0  72 65 61 31 25 2c 22 62  61 64 22 2b c3 28 62 61  |rea1%,"bad"+.(ba|
0000a7d0  64 25 28 6d 6f 76 65 73  25 29 29 2c 61 78 25 2c  |d%(moves%)),ax%,|
0000a7e0  61 79 25 2b 31 32 38 2c  31 32 2c 38 2c 31 34 2c  |ay%+128,12,8,14,|
0000a7f0  31 35 29 0d 05 1d 0c 2a  46 58 31 31 32 2c 31 0d  |15)....*FX112,1.|
0000a800  05 1e 27 20 42 25 3d 73  63 72 65 65 6e 5f 74 77  |..' B%=screen_tw|
0000a810  6f 25 3a 43 25 3d 73 63  72 65 65 6e 5f 6f 6e 65  |o%:C%=screen_one|
0000a820  25 3a d6 77 69 7a 0d 05  1f 05 ed 0d 05 20 04 0d  |%:.wiz....... ..|
0000a830  05 21 0c 2a 46 58 31 31  32 2c 32 0d 05 22 39 c8  |.!.*FX112,2.."9.|
0000a840  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
0000a850  31 32 32 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |122,sprite_area1|
0000a860  25 2c 22 73 63 72 6f 6c  6c 31 22 2c 36 34 2c 33  |%,"scroll1",64,3|
0000a870  32 30 2c 30 0d 05 23 42  c8 99 22 4f 53 5f 53 70  |20,0..#B.."OS_Sp|
0000a880  72 69 74 65 4f 70 22 2c  26 31 31 30 2c 73 70 72  |riteOp",&110,spr|
0000a890  69 74 65 5f 61 72 65 61  31 25 2c 22 73 63 72 6f  |ite_area1%,"scro|
0000a8a0  6c 6c 32 22 2c 30 2c 36  34 2c 33 32 30 2c 31 30  |ll2",0,64,320,10|
0000a8b0  32 34 2c 39 36 30 0d 05  24 04 0d 05 25 0c 2a 46  |24,960..$...%.*F|
0000a8c0  58 31 31 32 2c 31 0d 05  26 04 0d 05 27 17 e3 73  |X112,1..&...'..s|
0000a8d0  66 25 3d 36 34 2d 35 36  38 20 b8 20 36 34 20 88  |f%=64-568 . 64 .|
0000a8e0  38 0d 05 28 27 f5 3a fd  20 74 69 6d 65 25 2b 74  |8..('.:. time%+t|
0000a8f0  69 6d 65 5f 63 6f 6e 74  72 6f 6c 25 2f 33 3c 91  |ime_control%/3<.|
0000a900  3a 74 69 6d 65 25 3d 91  0d 05 29 1f c8 93 20 36  |:time%=...)... 6|
0000a910  34 2c 33 32 30 2c 31 31  35 32 2c 36 34 30 20 b8  |4,320,1152,640 .|
0000a920  20 37 32 2c 33 32 30 0d  05 2a 3a c8 99 22 4f 53  | 72,320..*:.."OS|
0000a930  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 32 2c  |_SpriteOp",&122,|
0000a940  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 22 73  |sprite_area1%,"s|
0000a950  63 72 6f 6c 6c 32 22 2c  73 66 25 2c 33 32 30 2c  |croll2",sf%,320,|
0000a960  30 0d 05 2b 05 ed 0d 05  2c 0c 61 78 25 3d 31 30  |0..+....,.ax%=10|
0000a970  38 38 0d 05 2d 04 0d 05  2e 0c 2a 46 58 31 31 32  |88..-.....*FX112|
0000a980  2c 32 0d 05 2f 39 c8 99  22 4f 53 5f 53 70 72 69  |,2../9.."OS_Spri|
0000a990  74 65 4f 70 22 2c 26 31  32 32 2c 73 70 72 69 74  |teOp",&122,sprit|
0000a9a0  65 5f 61 72 65 61 31 25  2c 22 73 63 72 6f 6c 6c  |e_area1%,"scroll|
0000a9b0  31 22 2c 36 34 2c 33 32  30 2c 30 0d 05 30 42 c8  |1",64,320,0..0B.|
0000a9c0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
0000a9d0  31 31 30 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |110,sprite_area1|
0000a9e0  25 2c 22 73 63 72 6f 6c  6c 32 22 2c 30 2c 36 34  |%,"scroll2",0,64|
0000a9f0  2c 33 32 30 2c 31 32 31  36 2c 39 36 30 0d 05 31  |,320,1216,960..1|
0000aa00  0c 2a 46 58 31 31 32 2c  31 0d 05 32 04 0d 05 33  |.*FX112,1..2...3|
0000aa10  05 e1 0d 05 34 04 0d 05  35 11 dd f2 73 63 72 6f  |....4...5...scro|
0000aa20  6c 6c 5f 6c 65 66 74 0d  05 36 18 ef 32 34 2c 36  |ll_left..6..24,6|
0000aa30  34 3b 33 32 30 3b 31 32  31 36 3b 39 36 30 3b 0d  |4;320;1216;960;.|
0000aa40  05 37 17 e3 73 66 25 3d  31 32 30 38 20 b8 20 36  |.7..sf%=1208 . 6|
0000aa50  34 30 20 88 2d 38 0d 05  38 27 f5 3a fd 20 74 69  |40 .-8..8'.:. ti|
0000aa60  6d 65 25 2b 74 69 6d 65  5f 63 6f 6e 74 72 6f 6c  |me%+time_control|
0000aa70  25 2f 33 3c 91 3a 74 69  6d 65 25 3d 91 0d 05 39  |%/3<.:time%=...9|
0000aa80  1f c8 93 20 36 34 2c 33  32 30 2c 31 31 35 32 2c  |... 64,320,1152,|
0000aa90  36 34 30 20 b8 20 35 36  2c 33 32 30 0d 05 3a 3a  |640 . 56,320..::|
0000aaa0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
0000aab0  26 31 32 32 2c 73 70 72  69 74 65 5f 61 72 65 61  |&122,sprite_area|
0000aac0  31 25 2c 22 73 63 72 6f  6c 6c 31 22 2c 73 66 25  |1%,"scroll1",sf%|
0000aad0  2c 33 32 30 2c 30 0d 05  3b 05 ed 0d 05 3c 0b 61  |,320,0..;....<.a|
0000aae0  78 25 3d 35 31 32 0d 05  3d 04 0d 05 3e 0c 2a 46  |x%=512..=...>.*F|
0000aaf0  58 31 31 32 2c 32 0d 05  3f 3f c8 99 22 4f 53 5f  |X112,2..??.."OS_|
0000ab00  53 70 72 69 74 65 4f 70  22 2c 26 31 32 32 2c 73  |SpriteOp",&122,s|
0000ab10  70 72 69 74 65 5f 61 72  65 61 31 25 2c 22 73 63  |prite_area1%,"sc|
0000ab20  72 6f 6c 6c 32 22 2c 36  34 30 2d 31 31 35 32 2c  |roll2",640-1152,|
0000ab30  33 32 30 2c 30 0d 05 40  3a c8 99 22 4f 53 5f 53  |320,0..@:.."OS_S|
0000ab40  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 73 70  |priteOp",&122,sp|
0000ab50  72 69 74 65 5f 61 72 65  61 31 25 2c 22 73 63 72  |rite_area1%,"scr|
0000ab60  6f 6c 6c 31 22 2c 36 34  30 2c 33 32 30 2c 30 0d  |oll1",640,320,0.|
0000ab70  05 41 42 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.AB.."OS_SpriteO|
0000ab80  70 22 2c 26 31 31 30 2c  73 70 72 69 74 65 5f 61  |p",&110,sprite_a|
0000ab90  72 65 61 31 25 2c 22 73  63 72 6f 6c 6c 32 22 2c  |rea1%,"scroll2",|
0000aba0  30 2c 36 34 2c 33 32 30  2c 31 32 31 36 2c 39 36  |0,64,320,1216,96|
0000abb0  30 0d 05 42 04 0d 05 43  0c 2a 46 58 31 31 32 2c  |0..B...C.*FX112,|
0000abc0  31 0d 05 44 04 0d 05 45  0c e3 66 25 3d 31 b8 31  |1..D...E..f%=1.1|
0000abd0  36 0d 05 46 25 f5 3a fd  20 74 69 6d 65 25 2b 74  |6..F%.:. time%+t|
0000abe0  69 6d 65 5f 63 6f 6e 74  72 6f 6c 25 3c 91 3a 74  |ime_control%<.:t|
0000abf0  69 6d 65 25 3d 91 0d 05  47 0c 2a 46 58 31 31 32  |ime%=...G.*FX112|
0000ac00  2c 32 0d 05 48 3a 20 c8  99 22 4f 53 5f 53 70 72  |,2..H: .."OS_Spr|
0000ac10  69 74 65 4f 70 22 2c 26  31 32 32 2c 73 70 72 69  |iteOp",&122,spri|
0000ac20  74 65 5f 61 72 65 61 31  25 2c 22 73 63 72 6f 6c  |te_area1%,"scrol|
0000ac30  6c 32 22 2c 36 34 2c 33  32 30 2c 30 0d 05 49 0e  |l2",64,320,0..I.|
0000ac40  20 61 78 25 3d 61 78 25  2b 38 0d 05 4a 4d 20 f2  | ax%=ax%+8..JM .|
0000ac50  73 70 72 69 74 65 5f 70  6c 6f 74 28 73 70 72 69  |sprite_plot(spri|
0000ac60  74 65 5f 61 72 65 61 31  25 2c 22 62 61 64 22 2b  |te_area1%,"bad"+|
0000ac70  c3 28 62 61 64 25 28 6d  6f 76 65 73 25 29 29 2c  |.(bad%(moves%)),|
0000ac80  61 78 25 2c 61 79 25 2b  31 32 38 2c 31 32 2c 38  |ax%,ay%+128,12,8|
0000ac90  2c 31 34 2c 31 35 29 0d  05 4b 0c 2a 46 58 31 31  |,14,15)..K.*FX11|
0000aca0  32 2c 31 0d 05 4c 27 20  42 25 3d 73 63 72 65 65  |2,1..L' B%=scree|
0000acb0  6e 5f 74 77 6f 25 3a 43  25 3d 73 63 72 65 65 6e  |n_two%:C%=screen|
0000acc0  5f 6f 6e 65 25 3a d6 77  69 7a 0d 05 4d 05 ed 0d  |_one%:.wiz..M...|
0000acd0  05 4e 04 0d 05 4f 0c 2a  46 58 31 31 32 2c 32 0d  |.N...O.*FX112,2.|
0000ace0  05 50 39 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.P9.."OS_SpriteO|
0000acf0  70 22 2c 26 31 32 32 2c  73 70 72 69 74 65 5f 61  |p",&122,sprite_a|
0000ad00  72 65 61 31 25 2c 22 73  63 72 6f 6c 6c 31 22 2c  |rea1%,"scroll1",|
0000ad10  36 34 2c 33 32 30 2c 30  0d 05 51 43 c8 99 22 4f  |64,320,0..QC.."O|
0000ad20  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 30  |S_SpriteOp",&110|
0000ad30  2c 73 70 72 69 74 65 5f  61 72 65 61 31 25 2c 22  |,sprite_area1%,"|
0000ad40  73 63 72 6f 6c 6c 32 22  2c 30 2c 31 39 32 2c 33  |scroll2",0,192,3|
0000ad50  32 30 2c 31 32 31 36 2c  39 36 30 0d 05 52 04 0d  |20,1216,960..R..|
0000ad60  05 53 0c 2a 46 58 31 31  32 2c 31 0d 05 54 04 0d  |.S.*FX112,1..T..|
0000ad70  05 55 16 e3 73 66 25 3d  37 36 38 20 b8 20 31 39  |.U..sf%=768 . 19|
0000ad80  32 20 88 2d 38 0d 05 56  27 f5 3a fd 20 74 69 6d  |2 .-8..V'.:. tim|
0000ad90  65 25 2b 74 69 6d 65 5f  63 6f 6e 74 72 6f 6c 25  |e%+time_control%|
0000ada0  2f 33 3c 91 3a 74 69 6d  65 25 3d 91 0d 05 57 1f  |/3<.:time%=...W.|
0000adb0  c8 93 20 36 34 2c 33 32  30 2c 31 31 35 32 2c 36  |.. 64,320,1152,6|
0000adc0  34 30 20 b8 20 35 36 2c  33 32 30 0d 05 58 3a c8  |40 . 56,320..X:.|
0000add0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
0000ade0  31 32 32 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |122,sprite_area1|
0000adf0  25 2c 22 73 63 72 6f 6c  6c 32 22 2c 73 66 25 2c  |%,"scroll2",sf%,|
0000ae00  33 32 30 2c 30 0d 05 59  05 ed 0d 05 5a 0a 61 78  |320,0..Y....Z.ax|
0000ae10  25 3d 36 34 0d 05 5b 04  0d 05 5c 0c 2a 46 58 31  |%=64..[...\.*FX1|
0000ae20  31 32 2c 32 0d 05 5d 39  c8 99 22 4f 53 5f 53 70  |12,2..]9.."OS_Sp|
0000ae30  72 69 74 65 4f 70 22 2c  26 31 32 32 2c 73 70 72  |riteOp",&122,spr|
0000ae40  69 74 65 5f 61 72 65 61  31 25 2c 22 73 63 72 6f  |ite_area1%,"scro|
0000ae50  6c 6c 31 22 2c 36 34 2c  33 32 30 2c 30 0d 05 5e  |ll1",64,320,0..^|
0000ae60  42 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |B.."OS_SpriteOp"|
0000ae70  2c 26 31 31 30 2c 73 70  72 69 74 65 5f 61 72 65  |,&110,sprite_are|
0000ae80  61 31 25 2c 22 73 63 72  6f 6c 6c 32 22 2c 30 2c  |a1%,"scroll2",0,|
0000ae90  36 34 2c 33 32 30 2c 31  32 31 36 2c 39 36 30 0d  |64,320,1216,960.|
0000aea0  05 5f 0c 2a 46 58 31 31  32 2c 31 0d 05 60 04 0d  |._.*FX112,1..`..|
0000aeb0  05 61 05 e1 0d 05 62 04  0d 05 63 04 0d 05 64 04  |.a....b...c...d.|
0000aec0  0d 05 65 13 dd f2 61 73  73 65 6d 62 6c 65 5f 64  |..e...assemble_d|
0000aed0  72 61 77 0d 05 66 0d 20  e3 46 3d 30 b8 33 88 33  |raw..f. .F=0.3.3|
0000aee0  0d 05 67 11 20 50 25 3d  61 73 73 5f 63 6f 64 65  |..g. P%=ass_code|
0000aef0  25 0d 05 68 05 5b 0d 05  69 0a 20 4f 50 54 20 30  |%..h.[..i. OPT 0|
0000af00  0d 05 6a 04 0d 05 6b 08  2e 77 69 7a 0d 05 6c 0d  |..j...k..wiz..l.|
0000af10  4d 4f 56 20 52 33 2c 23  30 0d 05 6d 15 2e 73 61  |MOV R3,#0..m..sa|
0000af20  76 65 5f 73 63 72 65 65  6e 5f 6c 6f 6f 70 0d 05  |ve_screen_loop..|
0000af30  6e 12 4c 44 52 20 52 35  2c 5b 52 31 2c 52 33 5d  |n.LDR R5,[R1,R3]|
0000af40  0d 05 6f 12 53 54 52 20  52 35 2c 5b 52 32 2c 52  |..o.STR R5,[R2,R|
0000af50  33 5d 0d 05 70 10 41 44  44 20 52 33 2c 52 33 2c  |3]..p.ADD R3,R3,|
0000af60  23 34 0d 05 71 11 43 4d  50 20 52 33 2c 23 26 45  |#4..q.CMP R3,#&E|
0000af70  30 30 30 0d 05 72 18 42  4e 45 20 73 61 76 65 5f  |000..r.BNE save_|
0000af80  73 63 72 65 65 6e 5f 6c  6f 6f 70 0d 05 73 0f 4d  |screen_loop..s.M|
0000af90  4f 56 20 52 31 35 2c 52  31 34 0d 05 74 04 0d 05  |OV R15,R14..t...|
0000afa0  75 05 5d 0d 05 76 05 ed  0d 05 77 05 e1 0d 05 78  |u.]..v....w....x|
0000afb0  04 0d 05 79 0b dd f2 73  70 61 63 65 0d 05 7a 0e  |...y...space..z.|
0000afc0  20 20 73 69 6d 6f 6e 25  3d 30 0d 05 7b 1c 20 20  |  simon%=0..{.  |
0000afd0  f2 69 6e 69 74 69 61 6c  69 73 65 5f 62 75 74 74  |.initialise_butt|
0000afe0  6f 6e 73 28 30 29 0d 05  7c 31 20 20 f5 3a f2 63  |ons(0)..|1  .:.c|
0000aff0  68 65 63 6b 5f 62 75 74  74 6f 6e 73 28 31 2c 74  |heck_buttons(1,t|
0000b000  6f 74 61 6c 5f 62 75 74  25 29 3a fd 73 65 6c 65  |otal_but%):.sele|
0000b010  63 74 65 64 25 3e 30 0d  05 7d 26 20 20 ef 32 34  |cted%>0..}&  .24|
0000b020  2c 39 30 30 3b 34 3b 31  32 30 30 3b 37 34 3b 31  |,900;4;1200;74;1|
0000b030  38 2c 30 2c 31 32 38 2c  31 36 2c 32 36 0d 05 7e  |8,0,128,16,26..~|
0000b040  11 20 20 c8 97 20 b8 20  37 30 30 2c 36 30 0d 05  |.  .. . 700,60..|
0000b050  7f 05 e1 0d 05 80 04 0d  05 81 0e dd f2 73 74 5f  |.............st_|
0000b060  70 61 75 73 65 0d 05 82  0b 74 69 6d 65 25 3d 91  |pause....time%=.|
0000b070  0d 05 83 05 e1 0d 05 84  04 0d 05 85 12 dd f2 65  |...............e|
0000b080  6e 5f 70 61 75 73 65 28  74 25 29 0d 05 86 13 f5  |n_pause(t%).....|
0000b090  3a fd 74 69 6d 65 25 2b  74 25 3c 91 3a e1 0d 05  |:.time%+t%<.:...|
0000b0a0  87 04 0d 05 88 0f dd f2  70 61 75 73 65 28 74 25  |........pause(t%|
0000b0b0  29 0d 05 89 0b 74 69 6d  65 25 3d 91 0d 05 8a 13  |)....time%=.....|
0000b0c0  f5 3a fd 74 69 6d 65 25  2b 74 25 3c 91 3a e1 0d  |.:.time%+t%<.:..|
0000b0d0  05 8b 04 0d 05 8c 3b dd  f2 73 70 72 69 74 65 5f  |......;..sprite_|
0000b0e0  70 6c 6f 74 28 61 72 65  61 25 2c 6e 61 6d 65 24  |plot(area%,name$|
0000b0f0  2c 73 78 25 2c 73 79 25  2c 6d 61 73 6b 25 2c 62  |,sx%,sy%,mask%,b|
0000b100  6b 31 25 2c 62 6b 32 25  2c 62 6b 33 25 29 0d 05  |k1%,bk2%,bk3%)..|
0000b110  8d 09 68 25 3d 48 25 0d  05 8e 18 41 25 3d a4 66  |..h%=H%....A%=.f|
0000b120  69 6e 64 5f 73 63 72 65  65 6e 28 31 34 38 29 0d  |ind_screen(148).|
0000b130  05 8f 2f c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |../.."OS_SpriteO|
0000b140  70 22 2c 26 31 31 38 2c  61 72 65 61 25 2c 6e 61  |p",&118,area%,na|
0000b150  6d 65 24 20 b8 20 72 30  2c 72 31 2c 42 25 0d 05  |me$ . r0,r1,B%..|
0000b160  90 0d 43 25 3d 73 78 25  20 2f 34 0d 05 91 15 44  |..C%=sx% /4....D|
0000b170  25 3d 28 31 30 32 38 2d  28 73 79 25 29 29 2f 34  |%=(1028-(sy%))/4|
0000b180  0d 05 92 24 45 25 3d 6d  61 73 6b 25 3a 46 25 3d  |...$E%=mask%:F%=|
0000b190  62 6b 31 25 3a 47 25 3d  62 6b 32 25 3a 48 25 3d  |bk1%:G%=bk2%:H%=|
0000b1a0  62 6b 33 25 0d 05 93 13  d6 73 69 6d 6f 6e 73 5f  |bk3%.....simons_|
0000b1b0  73 70 72 69 74 65 25 0d  05 94 09 48 25 3d 68 25  |sprite%....H%=h%|
0000b1c0  0d 05 95 05 e1 0d 05 96  04 0d 05 97 42 dd f2 73  |............B..s|
0000b1d0  70 72 69 74 65 5f 70 6c  6f 74 5f 73 70 72 69 74  |prite_plot_sprit|
0000b1e0  65 28 61 72 65 61 25 2c  6e 61 6d 65 24 2c 73 78  |e(area%,name$,sx|
0000b1f0  25 2c 73 79 25 2c 6d 61  73 6b 25 2c 62 6b 31 25  |%,sy%,mask%,bk1%|
0000b200  2c 62 6b 32 25 2c 62 6b  33 25 29 0d 05 98 09 68  |,bk2%,bk3%)....h|
0000b210  25 3d 48 25 0d 05 99 15  41 25 3d 62 6c 61 6e 6b  |%=H%....A%=blank|
0000b220  5f 61 64 64 72 65 73 73  25 0d 05 9a 2f c8 99 22  |_address%.../.."|
0000b230  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
0000b240  38 2c 61 72 65 61 25 2c  6e 61 6d 65 24 20 b8 20  |8,area%,name$ . |
0000b250  72 30 2c 72 31 2c 42 25  0d 05 9b 0d 43 25 3d 73  |r0,r1,B%....C%=s|
0000b260  78 25 20 2f 34 0d 05 9c  15 44 25 3d 28 31 30 32  |x% /4....D%=(102|
0000b270  38 2d 28 73 79 25 29 29  2f 34 0d 05 9d 24 45 25  |8-(sy%))/4...$E%|
0000b280  3d 6d 61 73 6b 25 3a 46  25 3d 62 6b 31 25 3a 47  |=mask%:F%=bk1%:G|
0000b290  25 3d 62 6b 32 25 3a 48  25 3d 62 6b 33 25 0d 05  |%=bk2%:H%=bk3%..|
0000b2a0  9e 13 d6 73 69 6d 6f 6e  73 5f 73 70 72 69 74 65  |...simons_sprite|
0000b2b0  25 0d 05 9f 09 48 25 3d  68 25 0d 05 a0 05 e1 0d  |%....H%=h%......|
0000b2c0  05 a1 04 0d 05 a2 1c dd  f2 6c 6f 61 64 5f 73 70  |.........load_sp|
0000b2d0  72 69 74 65 28 61 74 25  2c 6e 61 6d 65 24 29 0d  |rite(at%,name$).|
0000b2e0  05 a3 44 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..D.."OS_SpriteO|
0000b2f0  70 22 2c 26 31 30 41 2c  73 70 72 69 74 65 5f 61  |p",&10A,sprite_a|
0000b300  72 65 61 31 25 2c 22 3c  42 61 64 67 65 72 24 44  |rea1%,"<Badger$D|
0000b310  49 52 3e 2e 73 70 72 69  74 65 73 2e 22 2b 6e 61  |IR>.sprites."+na|
0000b320  6d 65 24 0d 05 a4 05 e1  0d 05 a5 04 0d 05 a6 19  |me$.............|
0000b330  dd f2 6d 65 72 67 65 5f  73 70 72 69 74 65 28 6e  |..merge_sprite(n|
0000b340  61 6d 65 24 29 0d 05 a7  44 c8 99 22 4f 53 5f 53  |ame$)...D.."OS_S|
0000b350  70 72 69 74 65 4f 70 22  2c 26 31 30 42 2c 73 70  |priteOp",&10B,sp|
0000b360  72 69 74 65 5f 61 72 65  61 31 25 2c 22 3c 42 61  |rite_area1%,"<Ba|
0000b370  64 67 65 72 24 44 49 52  3e 2e 73 70 72 69 74 65  |dger$DIR>.sprite|
0000b380  73 2e 22 2b 6e 61 6d 65  24 0d 05 a8 05 e1 0d 05  |s."+name$.......|
0000b390  a9 04 0d 05 aa 15 dd f2  64 5f 73 70 72 69 74 65  |........d_sprite|
0000b3a0  28 6e 61 6d 65 24 29 0d  05 ab 2c c8 99 22 4f 53  |(name$)...,.."OS|
0000b3b0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 39 2c  |_SpriteOp",&119,|
0000b3c0  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 6e 61  |sprite_area1%,na|
0000b3d0  6d 65 24 0d 05 ac 05 e1  0d 05 ad 04 0d 05 ae 35  |me$............5|
0000b3e0  dd f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 73 63  |..plot_sprite_sc|
0000b3f0  61 6c 65 64 28 78 25 2c  79 25 2c 78 6d 25 2c 79  |aled(x%,y%,xm%,y|
0000b400  6d 25 2c 78 64 25 2c 79  64 25 2c 6e 61 6d 65 24  |m%,xd%,yd%,name$|
0000b410  29 0d 05 af 13 21 28 73  63 61 6c 65 25 2b 30 29  |)....!(scale%+0)|
0000b420  3d 78 6d 25 0d 05 b0 13  21 28 73 63 61 6c 65 25  |=xm%....!(scale%|
0000b430  2b 34 29 3d 79 6d 25 0d  05 b1 13 21 28 73 63 61  |+4)=ym%....!(sca|
0000b440  6c 65 25 2b 38 29 3d 78  64 25 0d 05 b2 14 21 28  |le%+8)=xd%....!(|
0000b450  73 63 61 6c 65 25 2b 31  32 29 3d 79 64 25 0d 05  |scale%+12)=yd%..|
0000b460  b3 3d c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.=.."OS_SpriteOp|
0000b470  22 2c 26 31 33 34 2c 73  70 72 69 74 65 5f 61 72  |",&134,sprite_ar|
0000b480  65 61 31 25 2c 6e 61 6d  65 24 2c 78 25 2c 79 25  |ea1%,name$,x%,y%|
0000b490  2c 30 2c 73 63 61 6c 65  25 2c 30 0d 05 b4 05 e1  |,0,scale%,0.....|
0000b4a0  0d 05 b5 04 0d 05 b6 35  dd f2 70 6c 6f 74 5f 73  |.......5..plot_s|
0000b4b0  70 72 69 74 65 5f 6d 61  73 6b 65 64 28 78 25 2c  |prite_masked(x%,|
0000b4c0  79 25 2c 78 6d 25 2c 79  6d 25 2c 78 64 25 2c 79  |y%,xm%,ym%,xd%,y|
0000b4d0  64 25 2c 6e 61 6d 65 24  29 0d 05 b7 13 21 28 73  |d%,name$)....!(s|
0000b4e0  63 61 6c 65 25 2b 30 29  3d 78 6d 25 0d 05 b8 13  |cale%+0)=xm%....|
0000b4f0  21 28 73 63 61 6c 65 25  2b 34 29 3d 79 6d 25 0d  |!(scale%+4)=ym%.|
0000b500  05 b9 13 21 28 73 63 61  6c 65 25 2b 38 29 3d 78  |...!(scale%+8)=x|
0000b510  64 25 0d 05 ba 14 21 28  73 63 61 6c 65 25 2b 31  |d%....!(scale%+1|
0000b520  32 29 3d 79 64 25 0d 05  bb 3d c8 99 22 4f 53 5f  |2)=yd%...=.."OS_|
0000b530  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |SpriteOp",&134,s|
0000b540  70 72 69 74 65 5f 61 72  65 61 31 25 2c 6e 61 6d  |prite_area1%,nam|
0000b550  65 24 2c 78 25 2c 79 25  2c 38 2c 73 63 61 6c 65  |e$,x%,y%,8,scale|
0000b560  25 2c 30 0d 05 bc 05 e1  0d 05 bd 04 0d 05 be 1c  |%,0.............|
0000b570  dd f2 69 6e 69 74 69 61  6c 69 73 65 5f 73 70 72  |..initialise_spr|
0000b580  69 74 65 5f 61 72 65 61  0d 05 bf 4f 21 73 70 72  |ite_area...O!spr|
0000b590  69 74 65 5f 61 72 65 61  31 25 3d 26 33 45 38 30  |ite_area1%=&3E80|
0000b5a0  30 3a 73 70 72 69 74 65  5f 61 72 65 61 31 25 21  |0:sprite_area1%!|
0000b5b0  38 3d 31 36 3a c8 99 22  4f 53 5f 53 70 72 69 74  |8=16:.."OS_Sprit|
0000b5c0  65 4f 70 22 2c 26 31 30  39 2c 73 70 72 69 74 65  |eOp",&109,sprite|
0000b5d0  5f 61 72 65 61 31 25 0d  05 c0 05 e1 0d 05 c1 04  |_area1%.........|
0000b5e0  0d 05 c2 11 dd f2 66 69  6e 64 5f 73 74 61 72 74  |......find_start|
0000b5f0  73 0d 05 c3 0c 2a 46 58  31 31 32 2c 31 0d 05 c4  |s....*FX112,1...|
0000b600  1f 73 63 72 65 65 6e 5f  6f 6e 65 25 3d ba 20 73  |.screen_one%=. s|
0000b610  63 72 65 65 6e 5f 73 74  61 72 74 25 0d 05 c5 0c  |creen_start%....|
0000b620  2a 46 58 31 31 32 2c 32  0d 05 c6 1f 73 63 72 65  |*FX112,2....scre|
0000b630  65 6e 5f 74 77 6f 25 3d  ba 20 73 63 72 65 65 6e  |en_two%=. screen|
0000b640  5f 73 74 61 72 74 25 0d  05 c7 0c 2a 46 58 31 31  |_start%....*FX11|
0000b650  32 2c 31 0d 05 c8 05 e1  0d 05 c9 04 0d 05 ca 04  |2,1.............|
0000b660  0d 05 cb 14 dd f2 70 75  6c 6c 5f 76 61 72 69 61  |......pull_varia|
0000b670  62 6c 65 73 0d 05 cc 19  63 6c 65 61 72 5f 73 70  |bles....clear_sp|
0000b680  72 69 74 65 25 3d 21 28  48 25 2b 30 29 0d 05 cd  |rite%=!(H%+0)...|
0000b690  19 64 72 61 77 5f 70 69  63 74 75 72 65 25 3d 21  |.draw_picture%=!|
0000b6a0  28 48 25 2b 34 29 0d 05  ce 19 73 63 72 65 65 6e  |(H%+4)....screen|
0000b6b0  5f 73 74 61 72 74 25 3d  21 28 48 25 2b 38 29 0d  |_start%=!(H%+8).|
0000b6c0  05 cf 1b 73 69 6d 6f 6e  73 5f 73 70 72 69 74 65  |...simons_sprite|
0000b6d0  25 3d 21 28 48 25 2b 31  32 29 0d 05 d0 1b 65 78  |%=!(H%+12)....ex|
0000b6e0  70 6c 6f 64 65 5f 6d 65  72 67 65 25 3d 21 28 48  |plode_merge%=!(H|
0000b6f0  25 2b 31 36 29 0d 05 d1  19 62 6c 6f 63 6b 5f 6d  |%+16)....block_m|
0000b700  65 72 67 65 25 3d 21 28  48 25 2b 32 30 29 0d 05  |erge%=!(H%+20)..|
0000b710  d2 18 73 6c 6f 77 5f 6d  65 72 67 65 25 3d 21 28  |..slow_merge%=!(|
0000b720  48 25 2b 32 34 29 0d 05  d3 13 64 65 6c 61 79 25  |H%+24)....delay%|
0000b730  3d 21 28 48 25 2b 32 38  29 0d 05 d4 19 73 61 76  |=!(H%+28)....sav|
0000b740  65 5f 73 63 72 65 65 6e  25 3d 21 28 48 25 2b 33  |e_screen%=!(H%+3|
0000b750  32 29 0d 05 d5 13 66 6f  6e 74 73 25 3d 21 28 48  |2)....fonts%=!(H|
0000b760  25 2b 33 36 29 0d 05 d6  15 6c 65 74 74 65 72 73  |%+36)....letters|
0000b770  25 3d 21 28 48 25 2b 34  30 29 0d 05 d7 16 63 72  |%=!(H%+40)....cr|
0000b780  75 6e 63 68 73 70 25 3d  21 28 48 25 2b 34 34 29  |unchsp%=!(H%+44)|
0000b790  0d 05 d8 16 65 78 70 61  6e 64 73 70 25 3d 21 28  |....expandsp%=!(|
0000b7a0  48 25 2b 34 38 29 0d 05  d9 15 63 73 70 6e 61 6d  |H%+48)....cspnam|
0000b7b0  65 25 3d 21 28 48 25 2b  35 32 29 0d 05 da 15 6e  |e%=!(H%+52)....n|
0000b7c0  73 70 6e 61 6d 65 25 3d  21 28 48 25 2b 35 36 29  |spname%=!(H%+56)|
0000b7d0  0d 05 db 04 0d 05 dc 31  73 70 72 69 74 65 5f 61  |.......1sprite_a|
0000b7e0  72 65 61 31 25 3d 48 25  2b 31 30 32 34 2a 35 20  |rea1%=H%+1024*5 |
0000b7f0  20 20 20 20 20 20 20 20  20 3a f4 20 20 20 35 6b  |         :.   5k|
0000b800  20 63 6f 64 65 0d 05 dd  33 70 69 63 74 75 72 65  | code...3picture|
0000b810  31 25 3d 73 70 72 69 74  65 5f 61 72 65 61 31 25  |1%=sprite_area1%|
0000b820  2b 31 30 32 34 2a 32 35  30 20 3a f4 20 32 35 30  |+1024*250 :. 250|
0000b830  6b 20 73 70 72 69 74 65  0d 05 de 35 70 69 63 74  |k sprite...5pict|
0000b840  75 72 65 32 25 3d 70 69  63 74 75 72 65 31 25 2b  |ure2%=picture1%+|
0000b850  31 30 32 34 2a 31 30 20  20 20 20 20 20 3a f4 20  |1024*10      :. |
0000b860  20 31 30 6b 20 70 69 63  74 75 72 65 31 0d 05 df  | 10k picture1...|
0000b870  35 70 61 67 65 25 3d 70  69 63 74 75 72 65 32 25  |5page%=picture2%|
0000b880  2b 31 30 32 34 2a 31 30  20 20 20 20 20 20 20 20  |+1024*10        |
0000b890  20 20 3a f4 20 20 31 30  6b 20 70 69 63 74 75 72  |  :.  10k pictur|
0000b8a0  65 32 0d 05 e0 1b f4 20  74 6f 74 61 6c 20 73 69  |e2..... total si|
0000b8b0  6d 6f 6e 20 62 69 74 73  3d 32 37 35 6b 0d 05 e1  |mon bits=275k...|
0000b8c0  05 e1 0d 05 e2 04 0d 05  e3 04 0d 05 e4 17 dd a4  |................|
0000b8d0  66 69 6e 64 5f 73 63 72  65 65 6e 28 73 63 72 25  |find_screen(scr%|
0000b8e0  29 0d 05 e5 2a 21 69 6e  70 75 74 25 3d 73 63 72  |)...*!input%=scr|
0000b8f0  25 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |%             :.|
0000b900  20 31 34 38 20 4f 52 20  31 34 39 0d 05 e6 12 21  | 148 OR 149....!|
0000b910  28 69 6e 70 75 74 25 2b  34 29 3d 2d 31 0d 05 e7  |(input%+4)=-1...|
0000b920  2b c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |+.. "OS_ReadVduV|
0000b930  61 72 69 61 62 6c 65 73  22 2c 69 6e 70 75 74 25  |ariables",input%|
0000b940  2c 6f 75 74 70 75 74 25  0d 05 e8 0d 3d 21 6f 75  |,output%....=!ou|
0000b950  74 70 75 74 25 0d 05 e9  04 0d 05 ea 0d dd f2 70  |tput%..........p|
0000b960  61 6c 65 74 74 65 0d 05  eb 10 ea 70 25 2c 72 25  |alette.....p%,r%|
0000b970  2c 67 25 2c 62 25 0d 05  ec 09 f7 8d 64 71 45 0d  |,g%,b%......dqE.|
0000b980  05 ed 0c e3 70 25 3d 30  b8 31 35 0d 05 ee 1a f3  |....p%=0.15.....|
0000b990  72 25 2c 67 25 2c 62 25  3a fb 70 25 2c 72 25 2c  |r%,g%,b%:.p%,r%,|
0000b9a0  67 25 2c 62 25 0d 05 ef  07 ed 3a e1 0d 05 f0 04  |g%,b%.....:.....|
0000b9b0  0d 05 f1 2c dc 20 32 35  35 2c 32 35 35 2c 32 35  |...,. 255,255,25|
0000b9c0  35 2c 31 37 30 2c 31 37  30 2c 31 37 30 2c 38 35  |5,170,170,170,85|
0000b9d0  2c 38 35 2c 38 35 2c 30  2c 30 2c 30 0d 05 f2 29  |,85,85,0,0,0...)|
0000b9e0  dc 20 30 2c 30 2c 31 35  33 2c 30 2c 30 2c 32 35  |. 0,0,153,0,0,25|
0000b9f0  35 2c 30 2c 32 30 34 2c  32 35 35 2c 32 35 35 2c  |5,0,204,255,255,|
0000ba00  32 35 35 2c 30 0d 05 f3  25 dc 20 30 2c 39 36 2c  |255,0...%. 0,96,|
0000ba10  30 2c 32 32 31 2c 30 2c  30 2c 31 33 36 2c 31 37  |0,221,0,0,136,17|
0000ba20  2c 30 2c 30 2c 31 30 32  2c 30 0d 05 f4 25 dc 20  |,0,0,102,0...%. |
0000ba30  30 2c 31 35 33 2c 33 34  2c 30 2c 32 30 34 2c 30  |0,153,34,0,204,0|
0000ba40  2c 30 2c 31 34 30 2c 31  36 2c 30 2c 30 2c 30 0d  |,0,140,16,0,0,0.|
0000ba50  05 f5 04 0d 05 f6 20 dd  f2 69 6e 69 74 69 61 6c  |...... ..initial|
0000ba60  69 73 65 5f 62 75 74 74  6f 6e 73 28 77 68 69 63  |ise_buttons(whic|
0000ba70  68 25 29 0d 05 f7 20 e7  77 68 69 63 68 25 3d 30  |h%)... .which%=0|
0000ba80  3a f7 8d 54 41 46 3a 74  6f 74 61 6c 5f 62 75 74  |:..TAF:total_but|
0000ba90  25 3d 31 0d 05 f8 34 e7  77 68 69 63 68 25 3d 31  |%=1...4.which%=1|
0000baa0  3a f7 8d 54 42 46 3a 74  6f 74 61 6c 5f 62 75 74  |:..TBF:total_but|
0000bab0  25 3d 31 30 3a f2 70 6f  69 6e 74 73 3a c8 97 b8  |%=10:.points:...|
0000bac0  20 37 30 30 2c 39 32 0d  05 f9 5b e7 77 68 69 63  | 700,92...[.whic|
0000bad0  68 25 3d 32 3a f7 8d 54  44 46 3a 74 6f 74 61 6c  |h%=2:..TDF:total|
0000bae0  5f 62 75 74 25 3d 39 3a  f2 70 72 69 32 28 36 30  |_but%=9:.pri2(60|
0000baf0  30 2c 32 30 30 2c 30 2c  31 2c 31 32 38 2c 31 2c  |0,200,0,1,128,1,|
0000bb00  22 6f 72 20 77 68 69 63  68 20 61 63 74 69 6f 6e  |"or which action|
0000bb10  2e 2e 2e 2e 2e 22 29 3a  c8 97 b8 20 37 30 30 2c  |....."):... 700,|
0000bb20  39 32 0d 05 fa 20 e7 77  68 69 63 68 25 3d 33 3a  |92... .which%=3:|
0000bb30  f7 8d 54 46 46 3a 74 6f  74 61 6c 5f 62 75 74 25  |..TFF:total_but%|
0000bb40  3d 31 0d 05 fb 16 e3 66  25 3d 31 20 b8 20 74 6f  |=1.....f%=1 . to|
0000bb50  74 61 6c 5f 62 75 74 25  0d 05 fc 39 f3 62 75 74  |tal_but%...9.but|
0000bb60  25 28 66 25 2c 31 29 2c  62 75 74 25 28 66 25 2c  |%(f%,1),but%(f%,|
0000bb70  32 29 2c 62 75 74 25 28  66 25 2c 33 29 2c 62 75  |2),but%(f%,3),bu|
0000bb80  74 25 28 66 25 2c 34 29  2c 62 75 74 24 28 66 25  |t%(f%,4),but$(f%|
0000bb90  29 0d 05 fd 43 e7 74 6f  74 61 6c 5f 62 75 74 25  |)...C.total_but%|
0000bba0  3d 39 20 80 20 28 4c 25  3d 33 39 20 84 20 4c 25  |=9 . (L%=39 . L%|
0000bbb0  3d 32 33 29 20 62 75 74  25 28 39 2c 33 29 3d 31  |=23) but%(9,3)=1|
0000bbc0  3a 62 75 74 24 28 39 29  3d 22 47 6f 20 69 6e 73  |:but$(9)="Go ins|
0000bbd0  69 64 65 22 0d 05 fe 1c  f2 70 72 69 6e 74 5f 73  |ide".....print_s|
0000bbe0  69 6e 67 6c 65 5f 62 75  74 74 6f 6e 28 66 25 29  |ingle_button(f%)|
0000bbf0  0d 05 ff 05 ed 0d 06 00  05 e1 0d 06 01 1a dc 20  |............... |
0000bc00  38 36 30 2c 34 2c 31 2c  33 30 30 2c 43 4f 4e 54  |860,4,1,300,CONT|
0000bc10  49 4e 55 45 0d 06 02 d8  dc 20 31 30 30 38 2c 32  |INUE..... 1008,2|
0000bc20  30 38 2c 31 2c 31 31 36  2c 22 20 20 4e 22 2c 31  |08,1,116,"  N",1|
0000bc30  31 33 32 2c 32 30 38 2c  31 2c 31 31 36 2c 4e 45  |132,208,1,116,NE|
0000bc40  2c 31 31 33 32 2c 31 31  32 2c 31 2c 31 31 36 2c  |,1132,112,1,116,|
0000bc50  22 20 20 45 22 2c 31 31  33 32 2c 31 36 2c 31 2c  |"  E",1132,16,1,|
0000bc60  31 31 36 2c 53 45 2c 31  30 30 38 2c 31 36 2c 31  |116,SE,1008,16,1|
0000bc70  2c 31 31 36 2c 22 20 20  53 22 2c 38 38 34 2c 31  |,116,"  S",884,1|
0000bc80  36 2c 31 2c 31 31 36 2c  53 57 2c 38 38 34 2c 31  |6,1,116,SW,884,1|
0000bc90  31 32 2c 31 2c 31 31 36  2c 22 20 20 57 22 2c 38  |12,1,116,"  W",8|
0000bca0  38 34 2c 32 30 38 2c 31  2c 31 31 36 2c 4e 57 2c  |84,208,1,116,NW,|
0000bcb0  33 32 2c 31 37 30 2c 31  2c 35 31 32 2c 22 43 68  |32,170,1,512,"Ch|
0000bcc0  65 63 6b 20 79 6f 75 72  20 73 65 6e 73 65 73 22  |eck your senses"|
0000bcd0  2c 35 36 34 2c 31 37 30  2c 31 2c 32 39 30 2c 22  |,564,170,1,290,"|
0000bce0  49 6e 66 6f 72 6d 61 74  69 6f 6e 22 0d 06 03 04  |Information"....|
0000bcf0  0d 06 04 7a dc 20 33 32  2c 31 38 32 2c 31 2c 34  |...z. 32,182,1,4|
0000bd00  38 30 2c 22 52 65 74 75  72 6e 20 74 6f 20 70 6c  |80,"Return to pl|
0000bd10  61 6e 20 76 69 65 77 22  2c 33 32 2c 39 34 2c 31  |an view",32,94,1|
0000bd20  2c 32 38 30 2c 22 45 61  74 22 2c 33 33 38 2c 39  |,280,"Eat",338,9|
0000bd30  34 2c 31 2c 32 38 30 2c  22 44 72 69 6e 6b 22 2c  |4,1,280,"Drink",|
0000bd40  36 34 34 2c 39 34 2c 31  2c 32 38 30 2c 22 53 6c  |644,94,1,280,"Sl|
0000bd50  65 65 70 22 2c 39 35 30  2c 39 34 2c 31 2c 32 38  |eep",950,94,1,28|
0000bd60  30 2c 22 41 74 74 61 63  6b 22 0d 06 05 4d dc 20  |0,"Attack"...M. |
0000bd70  33 32 2c 34 2c 31 2c 32  38 30 2c 22 52 75 6e 22  |32,4,1,280,"Run"|
0000bd80  2c 33 33 38 2c 34 2c 31  2c 32 38 30 2c 22 44 69  |,338,4,1,280,"Di|
0000bd90  67 22 2c 36 34 34 2c 34  2c 31 2c 32 38 30 2c 22  |g",644,4,1,280,"|
0000bda0  53 65 61 72 63 68 22 2c  39 35 30 2c 34 2c 30 2c  |Search",950,4,0,|
0000bdb0  32 38 30 2c 22 20 22 0d  06 06 1b dc 20 38 36 30  |280," "..... 860|
0000bdc0  2c 31 32 2c 31 2c 33 30  30 2c 43 4f 4e 54 49 4e  |,12,1,300,CONTIN|
0000bdd0  55 45 0d 06 07 04 0d 06  08 20 dd f2 70 72 69 6e  |UE....... ..prin|
0000bde0  74 5f 62 75 74 74 6f 6e  73 28 73 74 61 72 74 25  |t_buttons(start%|
0000bdf0  2c 65 6e 64 25 29 0d 06  09 15 e3 66 25 3d 73 74  |,end%).....f%=st|
0000be00  61 72 74 25 20 b8 20 65  6e 64 25 0d 06 0a 1a 62  |art% . end%....b|
0000be10  6f 78 5f 6c 65 6e 67 74  68 25 3d 62 75 74 25 28  |ox_length%=but%(|
0000be20  66 25 2c 34 29 0d 06 0b  15 e7 62 75 74 25 28 66  |f%,4).....but%(f|
0000be30  25 2c 33 29 3d 30 3a ed  3a e1 0d 06 0c 31 e7 62  |%,3)=0:.:....1.b|
0000be40  75 74 25 28 66 25 2c 33  29 3d 31 3a 74 65 78 74  |ut%(f%,3)=1:text|
0000be50  5f 63 6f 6c 6f 75 72 25  3d 31 3a 62 61 63 6b 5f  |_colour%=1:back_|
0000be60  63 6f 6c 6f 75 72 25 3d  31 32 38 0d 06 0d 31 e7  |colour%=128...1.|
0000be70  62 75 74 25 28 66 25 2c  33 29 3d 32 3a 74 65 78  |but%(f%,3)=2:tex|
0000be80  74 5f 63 6f 6c 6f 75 72  25 3d 34 3a 62 61 63 6b  |t_colour%=4:back|
0000be90  5f 63 6f 6c 6f 75 72 25  3d 31 33 32 0d 06 0e 1d  |_colour%=132....|
0000bea0  f2 75 70 64 61 74 65 5f  73 69 6e 67 6c 65 5f 62  |.update_single_b|
0000beb0  75 74 74 6f 6e 28 66 25  29 0d 06 0f 07 ed 3a e1  |utton(f%).....:.|
0000bec0  0d 06 10 04 0d 06 11 20  dd f2 63 68 65 63 6b 5f  |....... ..check_|
0000bed0  62 75 74 74 6f 6e 73 28  73 74 61 72 74 25 2c 65  |buttons(start%,e|
0000bee0  6e 64 25 29 0d 06 12 17  66 62 6f 78 25 3d 30 3a  |nd%)....fbox%=0:|
0000bef0  73 65 6c 65 63 74 65 64  25 3d 30 0d 06 13 11 c8  |selected%=0.....|
0000bf00  97 6d 78 25 2c 6d 79 25  2c 6d 63 25 0d 06 15 15  |.mx%,my%,mc%....|
0000bf10  e3 66 25 3d 73 74 61 72  74 25 20 b8 20 65 6e 64  |.f%=start% . end|
0000bf20  25 0d 06 16 1a e7 62 75  74 25 28 66 25 2c 33 29  |%.....but%(f%,3)|
0000bf30  3d 30 3a ed 3a e5 20 8d  54 5c 46 0d 06 17 6a e7  |=0:.:. .T\F...j.|
0000bf40  62 75 74 25 28 66 25 2c  31 29 3c 6d 78 25 20 80  |but%(f%,1)<mx% .|
0000bf50  20 62 75 74 25 28 66 25  2c 32 29 3c 6d 79 25 20  | but%(f%,2)<my% |
0000bf60  80 20 28 62 75 74 25 28  66 25 2c 31 29 2b 62 75  |. (but%(f%,1)+bu|
0000bf70  74 25 28 66 25 2c 34 29  29 3e 6d 78 25 20 80 20  |t%(f%,4))>mx% . |
0000bf80  62 75 74 25 28 66 25 2c  32 29 2b 38 38 3e 6d 79  |but%(f%,2)+88>my|
0000bf90  25 20 61 72 72 6f 77 25  3d 31 20 8b 20 61 72 72  |% arrow%=1 . arr|
0000bfa0  6f 77 25 3d 30 0d 06 18  63 e7 61 72 72 6f 77 25  |ow%=0...c.arrow%|
0000bfb0  3d 31 20 80 20 62 75 74  25 28 66 25 2c 33 29 3d  |=1 . but%(f%,3)=|
0000bfc0  32 3a 74 65 78 74 5f 63  6f 6c 6f 75 72 25 3d 37  |2:text_colour%=7|
0000bfd0  3a 62 61 63 6b 5f 63 6f  6c 6f 75 72 25 3d 31 33  |:back_colour%=13|
0000bfe0  35 3a f2 75 70 64 61 74  65 5f 73 69 6e 67 6c 65  |5:.update_single|
0000bff0  5f 62 75 74 74 6f 6e 28  66 25 29 3a 62 75 74 25  |_button(f%):but%|
0000c000  28 66 25 2c 33 29 3d 31  0d 06 19 63 e7 61 72 72  |(f%,3)=1...c.arr|
0000c010  6f 77 25 3d 30 20 80 20  62 75 74 25 28 66 25 2c  |ow%=0 . but%(f%,|
0000c020  33 29 3d 31 3a 74 65 78  74 5f 63 6f 6c 6f 75 72  |3)=1:text_colour|
0000c030  25 3d 31 3a 62 61 63 6b  5f 63 6f 6c 6f 75 72 25  |%=1:back_colour%|
0000c040  3d 31 32 38 3a f2 75 70  64 61 74 65 5f 73 69 6e  |=128:.update_sin|
0000c050  67 6c 65 5f 62 75 74 74  6f 6e 28 66 25 29 3a 62  |gle_button(f%):b|
0000c060  75 74 25 28 66 25 2c 33  29 3d 32 0d 06 1a 25 e7  |ut%(f%,3)=2...%.|
0000c070  61 72 72 6f 77 25 3d 31  20 80 20 62 75 74 25 28  |arrow%=1 . but%(|
0000c080  66 25 2c 33 29 3e 30 3a  66 62 6f 78 25 3d 66 25  |f%,3)>0:fbox%=f%|
0000c090  0d 06 1b 05 ed 0d 06 1c  24 e7 6d 63 25 3d 34 20  |........$.mc%=4 |
0000c0a0  80 20 66 62 6f 78 25 3e  30 3a 73 65 6c 65 63 74  |. fbox%>0:select|
0000c0b0  65 64 25 3d 66 62 6f 78  25 0d 06 1d 05 e1 0d 06  |ed%=fbox%.......|
0000c0c0  1e 04 0d 06 1f 1e dd f2  75 70 64 61 74 65 5f 73  |........update_s|
0000c0d0  69 6e 67 6c 65 5f 62 75  74 74 6f 6e 28 67 25 29  |ingle_button(g%)|
0000c0e0  0d 06 20 13 e7 62 75 74  25 28 66 25 2c 33 29 3d  |.. ..but%(f%,3)=|
0000c0f0  30 3a e1 0d 06 21 60 e7  74 6f 74 61 6c 5f 62 75  |0:...!`.total_bu|
0000c100  74 25 3d 31 3a e7 74 65  78 74 5f 63 6f 6c 6f 75  |t%=1:.text_colou|
0000c110  72 25 3d 37 3a f2 70 6c  6f 74 5f 73 70 72 69 74  |r%=7:.plot_sprit|
0000c120  65 5f 73 63 61 6c 65 64  28 39 30 30 2c 73 69 6d  |e_scaled(900,sim|
0000c130  6f 6e 25 2c 31 2c 31 2c  31 2c 31 2c 22 67 6f 6f  |on%,1,1,1,1,"goo|
0000c140  6e 32 22 29 3a 62 75 74  25 28 66 25 2c 33 29 3d  |n2"):but%(f%,3)=|
0000c150  31 3a e1 0d 06 22 5f e7  74 6f 74 61 6c 5f 62 75  |1:..."_.total_bu|
0000c160  74 25 3d 31 3a e7 74 65  78 74 5f 63 6f 6c 6f 75  |t%=1:.text_colou|
0000c170  72 25 3d 31 3a f2 70 6c  6f 74 5f 73 70 72 69 74  |r%=1:.plot_sprit|
0000c180  65 5f 73 63 61 6c 65 64  28 39 30 30 2c 73 69 6d  |e_scaled(900,sim|
0000c190  6f 6e 25 2c 31 2c 31 2c  31 2c 31 2c 22 67 6f 6f  |on%,1,1,1,1,"goo|
0000c1a0  6e 22 29 3a 62 75 74 25  28 66 25 2c 33 29 3d 32  |n"):but%(f%,3)=2|
0000c1b0  3a e1 0d 06 23 13 e7 74  6f 74 61 6c 5f 62 75 74  |:...#..total_but|
0000c1c0  25 3d 31 3a e1 0d 06 24  4d ef 32 34 2c 62 75 74  |%=1:...$M.24,but|
0000c1d0  25 28 66 25 2c 31 29 3b  62 75 74 25 28 66 25 2c  |%(f%,1);but%(f%,|
0000c1e0  32 29 3b 62 75 74 25 28  66 25 2c 31 29 2b 62 75  |2);but%(f%,1)+bu|
0000c1f0  74 25 28 66 25 2c 34 29  3b 62 75 74 25 28 66 25  |t%(f%,4);but%(f%|
0000c200  2c 32 29 2b 38 30 3b 31  38 2c 30 2c 31 33 30 2c  |,2)+80;18,0,130,|
0000c210  31 36 0d 06 25 53 ef 32  34 2c 62 75 74 25 28 66  |16..%S.24,but%(f|
0000c220  25 2c 31 29 2b 34 3b 62  75 74 25 28 66 25 2c 32  |%,1)+4;but%(f%,2|
0000c230  29 2b 34 3b 62 75 74 25  28 66 25 2c 31 29 2b 62  |)+4;but%(f%,1)+b|
0000c240  75 74 25 28 66 25 2c 34  29 2d 34 3b 62 75 74 25  |ut%(f%,4)-4;but%|
0000c250  28 66 25 2c 32 29 2b 37  36 3b 31 38 2c 30 2c 31  |(f%,2)+76;18,0,1|
0000c260  32 38 2c 31 36 0d 06 26  53 ef 32 34 2c 62 75 74  |28,16..&S.24,but|
0000c270  25 28 66 25 2c 31 29 2b  38 3b 62 75 74 25 28 66  |%(f%,1)+8;but%(f|
0000c280  25 2c 32 29 2b 38 3b 62  75 74 25 28 66 25 2c 31  |%,2)+8;but%(f%,1|
0000c290  29 2b 62 75 74 25 28 66  25 2c 34 29 2d 38 3b 62  |)+but%(f%,4)-8;b|
0000c2a0  75 74 25 28 66 25 2c 32  29 2b 37 32 3b 31 38 2c  |ut%(f%,2)+72;18,|
0000c2b0  30 2c 31 33 30 2c 31 36  0d 06 27 5f ef 32 34 2c  |0,130,16..'_.24,|
0000c2c0  62 75 74 25 28 66 25 2c  31 29 2b 31 32 3b 62 75  |but%(f%,1)+12;bu|
0000c2d0  74 25 28 66 25 2c 32 29  2b 31 32 3b 62 75 74 25  |t%(f%,2)+12;but%|
0000c2e0  28 66 25 2c 31 29 2b 62  75 74 25 28 66 25 2c 34  |(f%,1)+but%(f%,4|
0000c2f0  29 2d 31 32 3b 62 75 74  25 28 66 25 2c 32 29 2b  |)-12;but%(f%,2)+|
0000c300  36 38 3b 31 38 2c 30 2c  62 61 63 6b 5f 63 6f 6c  |68;18,0,back_col|
0000c310  6f 75 72 25 2c 31 36 0d  06 28 4d f2 70 72 69 32  |our%,16..(M.pri2|
0000c320  28 62 75 74 25 28 66 25  2c 31 29 2b 31 36 2c 62  |(but%(f%,1)+16,b|
0000c330  75 74 25 28 66 25 2c 32  29 2b 32 34 2c 30 2c 74  |ut%(f%,2)+24,0,t|
0000c340  65 78 74 5f 63 6f 6c 6f  75 72 25 2c 62 61 63 6b  |ext_colour%,back|
0000c350  5f 63 6f 6c 6f 75 72 25  2c 31 2c 62 75 74 24 28  |_colour%,1,but$(|
0000c360  66 25 29 29 0d 06 29 05  e1 0d 06 2a 04 0d 06 2b  |f%))..)....*...+|
0000c370  1d dd f2 70 72 69 6e 74  5f 73 69 6e 67 6c 65 5f  |...print_single_|
0000c380  62 75 74 74 6f 6e 28 67  25 29 0d 06 2c 13 e7 74  |button(g%)..,..t|
0000c390  6f 74 61 6c 5f 62 75 74  25 3d 31 3a e1 0d 06 2d  |otal_but%=1:...-|
0000c3a0  13 e7 62 75 74 25 28 66  25 2c 33 29 3d 30 3a e1  |..but%(f%,3)=0:.|
0000c3b0  0d 06 2e a1 ef 32 34 2c  62 75 74 25 28 66 25 2c  |.....24,but%(f%,|
0000c3c0  31 29 3b 62 75 74 25 28  66 25 2c 32 29 3b 62 75  |1);but%(f%,2);bu|
0000c3d0  74 25 28 66 25 2c 31 29  2b 62 75 74 25 28 66 25  |t%(f%,1)+but%(f%|
0000c3e0  2c 34 29 3b 62 75 74 25  28 66 25 2c 32 29 2b 38  |,4);but%(f%,2)+8|
0000c3f0  30 3b 31 38 2c 30 2c 31  32 39 2c 31 36 2c 32 34  |0;18,0,129,16,24|
0000c400  2c 62 75 74 25 28 66 25  2c 31 29 2b 34 3b 62 75  |,but%(f%,1)+4;bu|
0000c410  74 25 28 66 25 2c 32 29  2b 34 3b 62 75 74 25 28  |t%(f%,2)+4;but%(|
0000c420  66 25 2c 31 29 2b 62 75  74 25 28 66 25 2c 34 29  |f%,1)+but%(f%,4)|
0000c430  2d 34 3b 62 75 74 25 28  66 25 2c 32 29 2b 37 36  |-4;but%(f%,2)+76|
0000c440  3b 31 38 2c 30 2c 31 32  38 2c 31 36 2c 32 36 3a  |;18,0,128,16,26:|
0000c450  e1 0d 06 2f 9c ef 32 34  2c 62 75 74 25 28 66 25  |.../..24,but%(f%|
0000c460  2c 31 29 3b 62 75 74 25  28 66 25 2c 32 29 3b 62  |,1);but%(f%,2);b|
0000c470  75 74 25 28 66 25 2c 31  29 2b 62 75 74 25 28 66  |ut%(f%,1)+but%(f|
0000c480  25 2c 34 29 3b 62 75 74  25 28 66 25 2c 32 29 2b  |%,4);but%(f%,2)+|
0000c490  38 30 3b 31 38 2c 30 2c  31 33 31 2c 31 36 2c 32  |80;18,0,131,16,2|
0000c4a0  34 2c 62 75 74 25 28 66  25 2c 31 29 2b 34 3b 62  |4,but%(f%,1)+4;b|
0000c4b0  75 74 25 28 66 25 2c 32  29 2b 34 3b 62 75 74 25  |ut%(f%,2)+4;but%|
0000c4c0  28 66 25 2c 31 29 2b 62  75 74 25 28 66 25 2c 34  |(f%,1)+but%(f%,4|
0000c4d0  29 2d 34 3b 62 75 74 25  28 66 25 2c 32 29 2b 37  |)-4;but%(f%,2)+7|
0000c4e0  36 3b 31 38 2c 30 2c 31  32 39 2c 31 36 0d 06 30  |6;18,0,129,16..0|
0000c4f0  54 e6 30 2c 32 3a ec 62  75 74 25 28 66 25 2c 31  |T.0,2:.but%(f%,1|
0000c500  29 2b 38 2c 62 75 74 25  28 66 25 2c 32 29 2b 34  |)+8,but%(f%,2)+4|
0000c510  3a f0 31 2c 62 75 74 25  28 66 25 2c 34 29 2d 31  |:.1,but%(f%,4)-1|
0000c520  36 2c 30 3a f0 30 2c 2d  34 2c 34 3a f0 31 2c 2d  |6,0:.0,-4,4:.1,-|
0000c530  28 62 75 74 25 28 66 25  2c 34 29 2d 32 34 29 2c  |(but%(f%,4)-24),|
0000c540  30 0d 06 31 51 ec 62 75  74 25 28 66 25 2c 31 29  |0..1Q.but%(f%,1)|
0000c550  2b 38 2c 62 75 74 25 28  66 25 2c 32 29 2b 37 36  |+8,but%(f%,2)+76|
0000c560  3a f0 31 2c 62 75 74 25  28 66 25 2c 34 29 2d 31  |:.1,but%(f%,4)-1|
0000c570  36 2c 30 3a f0 30 2c 2d  34 2c 2d 34 3a f0 31 2c  |6,0:.0,-4,-4:.1,|
0000c580  2d 28 62 75 74 25 28 66  25 2c 34 29 2d 32 34 29  |-(but%(f%,4)-24)|
0000c590  2c 30 0d 06 32 05 e1 0d  06 33 04 0d 06 34 19 dd  |,0..2....3...4..|
0000c5a0  f2 73 65 74 5f 75 70 5f  62 75 74 74 6f 6e 5f 62  |.set_up_button_b|
0000c5b0  6c 61 6e 6b 0d 06 35 13  63 6f 6c 31 25 3d 34 3a  |lank..5.col1%=4:|
0000c5c0  63 6f 6c 32 25 3d 37 0d  06 36 0c e3 66 25 3d 31  |col2%=7..6..f%=1|
0000c5d0  b8 20 38 0d 06 37 0c e6  30 2c 63 6f 6c 31 25 0d  |. 8..7..0,col1%.|
0000c5e0  06 38 11 e3 66 66 25 3d  30 20 b8 20 34 20 88 32  |.8..ff%=0 . 4 .2|
0000c5f0  0d 06 39 1e e7 66 66 25  3d 30 20 84 20 66 66 25  |..9..ff%=0 . ff%|
0000c600  3d 32 20 e6 30 2c 32 20  8b 20 e6 30 2c 30 0d 06  |=2 .0,2 . .0,0..|
0000c610  3a 33 e7 70 61 74 68 25  28 66 25 2d 31 29 3d 30  |:3.path%(f%-1)=0|
0000c620  3a 62 75 74 25 28 66 25  2c 33 29 3d 30 3a e6 30  |:but%(f%,3)=0:.0|
0000c630  2c 31 3a 8b 20 62 75 74  25 28 66 25 2c 33 29 3d  |,1:. but%(f%,3)=|
0000c640  31 0d 06 3b 7a ec 62 75  74 25 28 66 25 2c 31 29  |1..;z.but%(f%,1)|
0000c650  2b 66 66 25 2c 62 75 74  25 28 66 25 2c 32 29 2b  |+ff%,but%(f%,2)+|
0000c660  66 66 25 3a f0 31 2c 62  75 74 25 28 66 25 2c 34  |ff%:.1,but%(f%,4|
0000c670  29 2d 28 66 66 25 2a 32  29 2c 30 3a f0 31 2c 30  |)-(ff%*2),0:.1,0|
0000c680  2c 38 30 2d 28 66 66 25  2a 32 29 3a f0 31 2c 2d  |,80-(ff%*2):.1,-|
0000c690  31 2a 28 62 75 74 25 28  66 25 2c 34 29 2d 28 66  |1*(but%(f%,4)-(f|
0000c6a0  66 25 2a 32 29 29 2c 30  3a f0 31 2c 30 2c 2d 28  |f%*2)),0:.1,0,-(|
0000c6b0  38 30 2d 28 66 66 25 2a  32 29 29 0d 06 3c 05 ed  |80-(ff%*2))..<..|
0000c6c0  0d 06 3d 05 ed 0d 06 3e  05 e1 0d 06 3f 04 0d 06  |..=....>....?...|
0000c6d0  40 27 dd f2 70 72 69 32  28 78 25 2c 79 25 2c 6c  |@'..pri2(x%,y%,l|
0000c6e0  6c 25 2c 63 6f 6c 25 2c  62 63 6f 6c 25 2c 73 69  |l%,col%,bcol%,si|
0000c6f0  25 2c 61 24 29 0d 06 41  23 c8 99 22 46 6f 6e 74  |%,a$)..A#.."Font|
0000c700  5f 53 65 74 46 6f 6e 74  43 6f 6c 6f 75 72 73 22  |_SetFontColours"|
0000c710  2c 30 2c 30 2c 31 2c 32  0d 06 42 11 43 25 3d 33  |,0,0,1,2..B.C%=3|
0000c720  32 30 3a 44 25 3d 33 36  30 0d 06 43 18 e7 73 69  |20:D%=360..C..si|
0000c730  25 3d 32 3a 43 25 3d 32  36 30 3a 44 25 3d 32 39  |%=2:C%=260:D%=29|
0000c740  30 0d 06 44 20 41 25 3d  78 25 3a 42 25 3d 79 25  |0..D A%=x%:B%=y%|
0000c750  3a 45 25 3d 63 6f 6c 25  3a 46 25 3d 62 63 6f 6c  |:E%=col%:F%=bcol|
0000c760  25 0d 06 45 54 e3 73 65  6e 74 25 3d 31 b8 20 a9  |%..ET.sent%=1. .|
0000c770  28 61 24 29 3a 3f 28 6c  65 74 74 65 72 73 25 2b  |(a$):?(letters%+|
0000c780  28 73 65 6e 74 25 2d 31  29 29 3d 97 28 c1 61 24  |(sent%-1))=.(.a$|
0000c790  2c 73 65 6e 74 25 2c 31  29 29 3a ed 3a 3f 28 6c  |,sent%,1)):.:?(l|
0000c7a0  65 74 74 65 72 73 25 2b  28 73 65 6e 74 25 2d 31  |etters%+(sent%-1|
0000c7b0  29 29 3d 31 33 0d 06 46  16 ef 30 2c 30 2c 30 2c  |))=13..F..0,0,0,|
0000c7c0  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 06 47 0c d6  |0,0,0,0,0,0..G..|
0000c7d0  20 66 6f 6e 74 73 25 0d  06 48 05 e1 0d 06 49 04  | fonts%..H....I.|
0000c7e0  0d 06 4a 1c dd f2 62 6c  6f 63 6b 5f 6d 65 72 67  |..J...block_merg|
0000c7f0  65 28 74 6f 25 2c 66 72  6f 6d 25 29 0d 06 4b 0a  |e(to%,from%)..K.|
0000c800  42 25 3d 74 6f 25 0d 06  4c 0c 43 25 3d 66 72 6f  |B%=to%..L.C%=fro|
0000c810  6d 25 0d 06 4d 11 44 25  3d 72 6e 64 5f 74 61 62  |m%..M.D%=rnd_tab|
0000c820  6c 65 25 0d 06 4e 0c 45  25 3d 38 38 30 2a 34 0d  |le%..N.E%=880*4.|
0000c830  06 4f 11 d6 62 6c 6f 63  6b 5f 6d 65 72 67 65 25  |.O..block_merge%|
0000c840  0d 06 50 05 e1 0d 06 51  04 0d 06 52 1b dd f2 73  |..P....Q...R...s|
0000c850  6c 6f 77 5f 6d 65 72 67  65 28 74 6f 25 2c 66 72  |low_merge(to%,fr|
0000c860  6f 6d 25 29 0d 06 53 0a  42 25 3d 74 6f 25 0d 06  |om%)..S.B%=to%..|
0000c870  54 0c 43 25 3d 66 72 6f  6d 25 0d 06 55 11 44 25  |T.C%=from%..U.D%|
0000c880  3d 72 6e 64 5f 74 61 62  6c 65 25 0d 06 56 0c 45  |=rnd_table%..V.E|
0000c890  25 3d 38 38 30 2a 34 0d  06 57 10 d6 73 6c 6f 77  |%=880*4..W..slow|
0000c8a0  5f 6d 65 72 67 65 25 0d  06 58 05 e1 0d 06 59 04  |_merge%..X....Y.|
0000c8b0  0d 06 5a 1e dd f2 65 78  70 6c 6f 64 65 5f 6d 65  |..Z...explode_me|
0000c8c0  72 67 65 28 74 6f 25 2c  66 72 6f 6d 25 29 0d 06  |rge(to%,from%)..|
0000c8d0  5b 1b e3 66 25 3d 31 b8  34 30 3a 65 6d 61 73 6b  |[..f%=1.40:emask|
0000c8e0  25 28 66 25 29 3d 30 3a  ed 0d 06 5c 0a 42 25 3d  |%(f%)=0:...\.B%=|
0000c8f0  74 6f 25 0d 06 5d 0c 43  25 3d 66 72 6f 6d 25 0d  |to%..].C%=from%.|
0000c900  06 5e 11 44 25 3d 72 6e  64 5f 74 61 62 6c 65 25  |.^.D%=rnd_table%|
0000c910  0d 06 5f 0b 45 25 3d 34  30 2a 34 0d 06 60 0d 61  |.._.E%=40*4..`.a|
0000c920  6d 6f 75 6e 74 25 3d 30  0d 06 61 0c e3 66 25 3d  |mount%=0..a..f%=|
0000c930  31 b8 33 30 0d 06 62 15  61 6d 6f 75 6e 74 25 3d  |1.30..b.amount%=|
0000c940  61 6d 6f 75 6e 74 25 2b  31 0d 06 63 12 e3 66 66  |amount%+1..c..ff|
0000c950  25 3d 31 b8 61 6d 6f 75  6e 74 25 0d 06 64 33 65  |%=1.amount%..d3e|
0000c960  6d 61 73 6b 25 28 66 66  25 29 3d 65 6d 61 73 6b  |mask%(ff%)=emask|
0000c970  25 28 66 66 25 29 2b 38  3a e7 65 6d 61 73 6b 25  |%(ff%)+8:.emask%|
0000c980  28 66 66 25 29 3e 36 34  3a ed 3a ed 3a e1 0d 06  |(ff%)>64:.:.:...|
0000c990  65 20 64 25 3d 28 66 66  25 2d 31 29 2a 31 36 30  |e d%=(ff%-1)*160|
0000c9a0  3a e7 66 66 25 3e 32 32  3a ed 3a ed 3a e1 0d 06  |:.ff%>22:.:.:...|
0000c9b0  66 14 44 25 3d 72 6e 64  5f 74 61 62 6c 65 25 2b  |f.D%=rnd_table%+|
0000c9c0  64 25 0d 06 67 12 46 25  3d 65 6d 61 73 6b 25 28  |d%..g.F%=emask%(|
0000c9d0  66 66 25 29 0d 06 68 13  d6 65 78 70 6c 6f 64 65  |ff%)..h..explode|
0000c9e0  5f 6d 65 72 67 65 25 0d  06 69 05 ed 0d 06 6a 05  |_merge%..i....j.|
0000c9f0  ed 0d 06 6b 05 e1 0d 06  6c 04 0d 06 6d 14 dd a4  |...k....l...m...|
0000ca00  72 65 61 64 73 79 73 76  61 72 28 61 24 29 0d 06  |readsysvar(a$)..|
0000ca10  6e 4f c8 99 20 22 4f 53  5f 52 65 61 64 56 61 72  |nO.. "OS_ReadVar|
0000ca20  56 61 6c 22 2c 61 24 2c  62 6c 6b 25 2c 32 35 36  |Val",a$,blk%,256|
0000ca30  2c 30 2c 30 20 b8 20 2c  2c 61 25 3a 61 24 3d 22  |,0,0 . ,,a%:a$="|
0000ca40  22 3a e3 41 25 3d 30 b8  61 25 2d 31 3a 61 24 2b  |":.A%=0.a%-1:a$+|
0000ca50  3d bd 28 62 6c 6b 25 3f  41 25 29 3a ed 0d 06 6f  |=.(blk%?A%):...o|
0000ca60  07 3d 61 24 0d 06 70 04  0d 06 71 14 dd a4 72 65  |.=a$..p...q...re|
0000ca70  61 64 73 74 72 69 6e 67  28 70 25 29 0d 06 72 32  |adstring(p%)..r2|
0000ca80  ea 61 24 3a 61 24 3d 22  22 3a c8 95 20 a9 61 24  |.a$:a$="":.. .a$|
0000ca90  3c 32 35 35 20 80 20 3f  70 25 3e 33 31 20 61 24  |<255 . ?p%>31 a$|
0000caa0  2b 3d bd 3f 70 25 3a 70  25 2b 3d 31 3a ce 0d 06  |+=.?p%:p%+=1:...|
0000cab0  73 07 3d 61 24 0d 06 74  04 0d 06 75 12 dd f2 69  |s.=a$..t...u...i|
0000cac0  6e 74 72 6f 64 75 63 74  69 6f 6e 0d 06 76 18 6c  |ntroduction..v.l|
0000cad0  6f 61 64 31 24 3d c3 7e  28 70 69 63 74 75 72 65  |oad1$=.~(picture|
0000cae0  31 25 29 0d 06 77 35 ff  20 22 4c 4f 41 44 20 3c  |1%)..w5. "LOAD <|
0000caf0  42 61 64 67 65 72 24 44  49 52 3e 2e 6f 74 68 65  |Badger$DIR>.othe|
0000cb00  72 70 69 63 73 2e 73 74  61 72 74 70 69 63 32 20  |rpics.startpic2 |
0000cb10  22 2b 6c 6f 61 64 31 24  0d 06 78 35 ef 32 36 2c  |"+load1$..x5.26,|
0000cb20  31 38 2c 30 2c 31 33 31  2c 31 36 2c 32 34 2c 36  |18,0,131,16,24,6|
0000cb30  34 3b 31 30 34 3b 31 32  31 36 3b 39 33 36 3b 31  |4;104;1216;936;1|
0000cb40  38 2c 30 2c 31 32 39 2c  31 36 2c 32 36 0d 06 79  |8,0,129,16,26..y|
0000cb50  32 c8 91 30 2c 2d 32 38  3a 41 25 3d 70 69 63 74  |2..0,-28:A%=pict|
0000cb60  75 72 65 31 25 3a 42 25  3d 30 3a d6 64 72 61 77  |ure1%:B%=0:.draw|
0000cb70  5f 70 69 63 74 75 72 65  25 3a c8 91 30 2c 30 0d  |_picture%:..0,0.|
0000cb80  06 7a 0c 2a 66 78 31 31  32 2c 31 0d 06 7b 2c f2  |.z.*fx112,1..{,.|
0000cb90  70 72 69 32 28 34 37 30  2c 37 35 30 2c 30 2c 31  |pri2(470,750,0,1|
0000cba0  2c 31 32 38 2c 31 2c 22  42 41 44 47 45 52 20 54  |,128,1,"BADGER T|
0000cbb0  52 41 49 4c 53 22 29 0d  06 7c 0f f2 70 61 75 73  |RAILS")..|..paus|
0000cbc0  65 28 32 30 30 29 0d 06  7d 40 f2 70 72 69 32 28  |e(200)..}@.pri2(|
0000cbd0  33 37 34 2c 36 35 32 2c  30 2c 31 2c 31 32 38 2c  |374,652,0,1,128,|
0000cbe0  32 2c 22 53 6f 66 74 77  61 72 65 20 77 72 69 74  |2,"Software writ|
0000cbf0  74 65 6e 20 62 79 20 53  69 6d 6f 6e 20 48 6f 73  |ten by Simon Hos|
0000cc00  6c 65 72 2e 22 29 0d 06  7e 48 f2 70 72 69 32 28  |ler.")..~H.pri2(|
0000cc10  33 31 32 2c 35 39 32 2c  30 2c 31 2c 31 32 38 2c  |312,592,0,1,128,|
0000cc20  32 2c 22 28 43 29 20 31  39 39 33 20 53 2e 20 48  |2,"(C) 1993 S. H|
0000cc30  6f 73 6c 65 72 20 61 6e  64 20 53 68 65 72 73 74  |osler and Sherst|
0000cc40  6f 6e 20 53 6f 66 74 77  61 72 65 2e 22 29 0d 06  |on Software.")..|
0000cc50  7f 07 c8 97 ee 0d 06 80  0e f2 73 70 61 63 65 5f  |..........space_|
0000cc60  74 77 6f 0d 06 81 18 6c  6f 61 64 31 24 3d c3 7e  |two....load1$=.~|
0000cc70  28 70 69 63 74 75 72 65  31 25 29 0d 06 82 35 ff  |(picture1%)...5.|
0000cc80  20 22 4c 4f 41 44 20 3c  42 61 64 67 65 72 24 44  | "LOAD <Badger$D|
0000cc90  49 52 3e 2e 6f 74 68 65  72 70 69 63 73 2e 73 74  |IR>.otherpics.st|
0000cca0  61 72 74 70 69 63 33 20  22 2b 6c 6f 61 64 31 24  |artpic3 "+load1$|
0000ccb0  0d 06 83 1e f2 6d 65 72  67 65 5f 73 70 72 69 74  |.....merge_sprit|
0000ccc0  65 28 22 73 74 61 72 74  5f 62 61 64 22 29 0d 06  |e("start_bad")..|
0000ccd0  84 0c 2a 66 78 31 31 32  2c 31 0d 06 85 32 ef 31  |..*fx112,1...2.1|
0000cce0  38 2c 30 2c 31 33 31 2c  31 36 2c 32 34 2c 36 34  |8,0,131,16,24,64|
0000ccf0  3b 31 30 34 3b 31 32 31  36 3b 39 34 32 3b 31 38  |;104;1216;942;18|
0000cd00  2c 30 2c 31 32 39 2c 31  36 2c 32 36 0d 06 86 32  |,0,129,16,26...2|
0000cd10  c8 91 30 2c 2d 32 34 3a  41 25 3d 70 69 63 74 75  |..0,-24:A%=pictu|
0000cd20  72 65 31 25 3a 42 25 3d  30 3a d6 64 72 61 77 5f  |re1%:B%=0:.draw_|
0000cd30  70 69 63 74 75 72 65 25  3a c8 91 30 2c 30 0d 06  |picture%:..0,0..|
0000cd40  87 30 f2 70 72 69 32 28  32 32 34 2c 37 32 30 2c  |.0.pri2(224,720,|
0000cd50  30 2c 31 2c 31 32 38 2c  31 2c 22 59 6f 75 20 61  |0,1,128,1,"You a|
0000cd60  72 65 20 61 20 62 61 64  67 65 72 2e 22 29 0d 06  |re a badger.")..|
0000cd70  88 34 f2 70 6c 6f 74 5f  73 70 72 69 74 65 5f 73  |.4.plot_sprite_s|
0000cd80  63 61 6c 65 64 28 33 34  30 2c 34 35 30 2c 31 2c  |caled(340,450,1,|
0000cd90  31 2c 31 2c 31 2c 22 73  74 61 72 74 5f 62 61 64  |1,1,1,"start_bad|
0000cda0  22 29 0d 06 89 42 f2 70  72 69 32 28 32 32 34 2c  |")...B.pri2(224,|
0000cdb0  33 37 30 2c 30 2c 31 2c  31 32 38 2c 31 2c 22 59  |370,0,1,128,1,"Y|
0000cdc0  6f 75 20 61 72 65 20 6a  75 73 74 20 61 62 6f 75  |ou are just abou|
0000cdd0  74 20 61 20 6d 65 74 72  65 20 6c 6f 6e 67 20 61  |t a metre long a|
0000cde0  6e 64 22 29 0d 06 8a 29  f2 70 72 69 32 28 32 32  |nd")...).pri2(22|
0000cdf0  34 2c 33 31 30 2c 30 2c  31 2c 31 32 38 2c 31 2c  |4,310,0,1,128,1,|
0000ce00  22 34 30 63 6d 20 68 69  67 68 2e 22 29 0d 06 8b  |"40cm high.")...|
0000ce10  0f f2 70 61 75 73 65 28  31 30 30 29 0d 06 8c 18  |..pause(100)....|
0000ce20  6c 6f 61 64 31 24 3d c3  7e 28 70 69 63 74 75 72  |load1$=.~(pictur|
0000ce30  65 31 25 29 0d 06 8d 34  ff 20 22 4c 4f 41 44 20  |e1%)...4. "LOAD |
0000ce40  3c 42 61 64 67 65 72 24  44 49 52 3e 2e 6f 74 68  |<Badger$DIR>.oth|
0000ce50  65 72 70 69 63 73 2e 73  74 61 72 74 70 69 63 20  |erpics.startpic |
0000ce60  22 2b 6c 6f 61 64 31 24  0d 06 8e 0e f2 73 70 61  |"+load1$.....spa|
0000ce70  63 65 5f 74 77 6f 0d 06  8f 26 ef 32 34 2c 36 34  |ce_two...&.24,64|
0000ce80  3b 31 30 38 3b 31 32 31  36 3b 39 33 32 3b 31 38  |;108;1216;932;18|
0000ce90  2c 30 2c 31 32 39 2c 31  36 2c 32 36 0d 06 90 32  |,0,129,16,26...2|
0000cea0  c8 91 30 2c 2d 32 34 3a  41 25 3d 70 69 63 74 75  |..0,-24:A%=pictu|
0000ceb0  72 65 31 25 3a 42 25 3d  30 3a d6 64 72 61 77 5f  |re1%:B%=0:.draw_|
0000cec0  70 69 63 74 75 72 65 25  3a c8 91 30 2c 30 0d 06  |picture%:..0,0..|
0000ced0  91 40 f2 70 72 69 32 28  32 32 34 2c 38 32 30 2c  |.@.pri2(224,820,|
0000cee0  30 2c 31 2c 31 32 38 2c  31 2c 22 59 6f 75 20 61  |0,1,128,1,"You a|
0000cef0  72 65 20 61 20 6c 6f 6e  67 20 77 61 79 20 66 72  |re a long way fr|
0000cf00  6f 6d 20 79 6f 75 72 20  73 65 74 74 22 29 0d 06  |om your sett")..|
0000cf10  92 40 f2 70 72 69 32 28  32 32 34 2c 37 36 30 2c  |.@.pri2(224,760,|
0000cf20  30 2c 31 2c 31 32 38 2c  31 2c 22 61 6e 64 20 77  |0,1,128,1,"and w|
0000cf30  69 6c 6c 20 6e 65 65 64  20 74 6f 20 66 69 6e 64  |ill need to find|
0000cf40  20 61 20 77 61 79 20 68  6f 6d 65 2e 22 29 0d 06  | a way home.")..|
0000cf50  93 0e f2 73 70 61 63 65  5f 74 77 6f 0d 06 94 26  |...space_two...&|
0000cf60  ef 32 34 2c 36 34 3b 37  30 30 3b 31 32 31 36 3b  |.24,64;700;1216;|
0000cf70  39 33 32 3b 31 38 2c 30  2c 31 32 38 2c 31 36 2c  |932;18,0,128,16,|
0000cf80  32 36 0d 06 95 0f f2 70  61 75 73 65 28 31 30 30  |26.....pause(100|
0000cf90  29 0d 06 96 42 f2 70 72  69 32 28 32 32 34 2c 38  |)...B.pri2(224,8|
0000cfa0  34 30 2c 30 2c 31 2c 31  32 38 2c 31 2c 22 54 68  |40,0,1,128,1,"Th|
0000cfb0  65 72 65 20 77 69 6c 6c  20 62 65 20 6d 61 6e 79  |ere will be many|
0000cfc0  20 64 61 6e 67 65 72 73  20 74 6f 20 61 76 6f 69  | dangers to avoi|
0000cfd0  64 22 29 0d 06 97 45 f2  70 72 69 32 28 32 32 34  |d")...E.pri2(224|
0000cfe0  2c 37 38 30 2c 30 2c 31  2c 31 32 38 2c 31 2c 22  |,780,0,1,128,1,"|
0000cff0  61 6e 64 20 74 61 73 6b  73 20 74 6f 20 63 6f 6d  |and tasks to com|
0000d000  70 6c 65 74 65 20 62 65  66 6f 72 65 20 79 6f 75  |plete before you|
0000d010  20 72 65 61 63 68 22 29  0d 06 98 24 f2 70 72 69  | reach")...$.pri|
0000d020  32 28 32 32 34 2c 37 32  30 2c 30 2c 31 2c 31 32  |2(224,720,0,1,12|
0000d030  38 2c 31 2c 22 68 6f 6d  65 2e 22 29 0d 06 99 0e  |8,1,"home.")....|
0000d040  f2 73 70 61 63 65 5f 74  77 6f 0d 06 9a 26 ef 32  |.space_two...&.2|
0000d050  34 2c 36 34 3b 31 30 34  3b 31 32 31 36 3b 39 33  |4,64;104;1216;93|
0000d060  36 3b 31 38 2c 30 2c 31  32 39 2c 31 36 2c 32 36  |6;18,0,129,16,26|
0000d070  0d 06 9b 18 6c 6f 61 64  31 24 3d c3 7e 28 70 69  |....load1$=.~(pi|
0000d080  63 74 75 72 65 31 25 29  0d 06 9c 35 ff 20 22 4c  |cture1%)...5. "L|
0000d090  4f 41 44 20 3c 42 61 64  67 65 72 24 44 49 52 3e  |OAD <Badger$DIR>|
0000d0a0  2e 6f 74 68 65 72 70 69  63 73 2e 73 74 61 72 74  |.otherpics.start|
0000d0b0  70 69 63 32 20 22 2b 6c  6f 61 64 31 24 0d 06 9d  |pic2 "+load1$...|
0000d0c0  32 c8 91 30 2c 2d 32 38  3a 41 25 3d 70 69 63 74  |2..0,-28:A%=pict|
0000d0d0  75 72 65 31 25 3a 42 25  3d 30 3a d6 64 72 61 77  |ure1%:B%=0:.draw|
0000d0e0  5f 70 69 63 74 75 72 65  25 3a c8 91 30 2c 30 0d  |_picture%:..0,0.|
0000d0f0  06 9e 0c 2a 66 78 31 31  32 2c 31 0d 06 9f 28 f2  |...*fx112,1...(.|
0000d100  70 72 69 32 28 35 32 38  2c 37 35 30 2c 30 2c 31  |pri2(528,750,0,1|
0000d110  2c 31 32 38 2c 31 2c 22  54 61 73 6b 20 6f 6e 65  |,128,1,"Task one|
0000d120  2d 22 29 0d 06 a0 0f f2  70 61 75 73 65 28 32 30  |-").....pause(20|
0000d130  30 29 0d 06 a1 43 f2 70  72 69 32 28 32 35 36 2c  |0)...C.pri2(256,|
0000d140  36 39 30 2c 30 2c 31 2c  31 32 38 2c 31 2c 22 42  |690,0,1,128,1,"B|
0000d150  65 66 6f 72 65 20 79 6f  75 20 74 72 61 76 65 6c  |efore you travel|
0000d160  20 6e 6f 72 74 68 20 6f  66 20 74 68 65 20 72 6f  | north of the ro|
0000d170  61 64 2c 22 29 0d 06 a2  3c f2 70 72 69 32 28 32  |ad,")...<.pri2(2|
0000d180  35 36 2c 36 33 30 2c 30  2c 31 2c 31 32 38 2c 31  |56,630,0,1,128,1|
0000d190  2c 22 79 6f 75 20 6d 75  73 74 20 66 69 6e 64 20  |,"you must find |
0000d1a0  66 6f 6f 64 20 61 6e 64  20 77 61 74 65 72 2e 22  |food and water."|
0000d1b0  29 0d 06 a3 0e f2 73 70  61 63 65 5f 74 77 6f 0d  |).....space_two.|
0000d1c0  06 a4 11 f2 64 65 6c 65  74 65 5f 73 74 61 72 74  |....delete_start|
0000d1d0  0d 06 a5 1c f2 6d 65 72  67 65 5f 73 70 72 69 74  |.....merge_sprit|
0000d1e0  65 28 22 73 65 6e 73 65  73 31 22 29 0d 06 a6 26  |e("senses1")...&|
0000d1f0  ef 32 34 2c 36 34 3b 31  30 34 3b 31 32 31 36 3b  |.24,64;104;1216;|
0000d200  39 34 32 3b 31 38 2c 30  2c 31 32 38 2c 31 36 2c  |942;18,0,128,16,|
0000d210  32 36 0d 06 a7 3c f2 70  72 69 32 28 31 32 38 2c  |26...<.pri2(128,|
0000d220  38 30 30 2c 30 2c 31 2c  31 32 38 2c 31 2c 22 46  |800,0,1,128,1,"F|
0000d230  69 6e 64 20 74 68 72 65  65 20 64 69 66 66 65 72  |ind three differ|
0000d240  65 6e 74 20 66 6f 6f 64  73 2e 2e 2e 22 29 0d 06  |ent foods...")..|
0000d250  a8 0f f2 70 61 75 73 65  28 31 35 30 29 0d 06 a9  |...pause(150)...|
0000d260  2e f2 70 72 69 32 28 38  30 30 2c 38 30 30 2c 30  |..pri2(800,800,0|
0000d270  2c 31 2c 31 32 38 2c 31  2c 22 2e 2e 66 6f 72 20  |,1,128,1,"..for |
0000d280  65 78 61 6d 70 6c 65 2e  2e 22 29 0d 06 aa 0f f2  |example..").....|
0000d290  70 61 75 73 65 28 31 30  30 29 0d 06 ab 37 f2 73  |pause(100)...7.s|
0000d2a0  70 72 69 74 65 5f 70 6c  6f 74 28 73 70 72 69 74  |prite_plot(sprit|
0000d2b0  65 5f 61 72 65 61 31 25  2c 22 62 75 6c 62 22 2c  |e_area1%,"bulb",|
0000d2c0  32 33 30 2c 37 37 30 2c  31 31 2c 31 2c 31 2c 31  |230,770,11,1,1,1|
0000d2d0  29 0d 06 ac 0f f2 70 61  75 73 65 28 31 30 30 29  |).....pause(100)|
0000d2e0  0d 06 ad 38 f2 73 70 72  69 74 65 5f 70 6c 6f 74  |...8.sprite_plot|
0000d2f0  28 73 70 72 69 74 65 5f  61 72 65 61 31 25 2c 22  |(sprite_area1%,"|
0000d300  77 6f 72 6d 32 22 2c 35  33 30 2c 37 37 30 2c 31  |worm2",530,770,1|
0000d310  31 2c 31 2c 31 2c 31 29  0d 06 ae 0f f2 70 61 75  |1,1,1,1).....pau|
0000d320  73 65 28 31 30 30 29 0d  06 af 39 f2 73 70 72 69  |se(100)...9.spri|
0000d330  74 65 5f 70 6c 6f 74 28  73 70 72 69 74 65 5f 61  |te_plot(sprite_a|
0000d340  72 65 61 31 25 2c 22 6c  66 72 6f 67 5f 31 22 2c  |rea1%,"lfrog_1",|
0000d350  38 33 30 2c 37 37 30 2c  34 2c 31 2c 31 2c 31 29  |830,770,4,1,1,1)|
0000d360  0d 06 b0 4d f2 70 72 69  32 28 31 37 38 2c 36 38  |...M.pri2(178,68|
0000d370  30 2c 30 2c 31 2c 31 32  38 2c 31 2c 22 31 20 20  |0,0,1,128,1,"1  |
0000d380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000d390  20 20 20 32 20 20 20 20  20 20 20 20 20 20 20 20  |   2            |
0000d3a0  20 20 20 20 20 20 20 20  20 20 33 22 29 0d 06 b1  |          3")...|
0000d3b0  13 f2 64 65 6c 65 74 65  5f 73 65 6e 73 65 73 31  |..delete_senses1|
0000d3c0  0d 06 b2 31 f2 70 72 69  32 28 31 39 32 2c 34 34  |...1.pri2(192,44|
0000d3d0  30 2c 30 2c 31 2c 31 32  38 2c 31 2c 22 2e 2e 61  |0,0,1,128,1,"..a|
0000d3e0  6e 64 20 66 72 65 73 68  20 77 61 74 65 72 2e 22  |nd fresh water."|
0000d3f0  29 0d 06 b3 1a f2 6d 65  72 67 65 5f 73 70 72 69  |).....merge_spri|
0000d400  74 65 28 22 64 65 61 74  68 22 29 0d 06 b4 33 f2  |te("death")...3.|
0000d410  70 6c 6f 74 5f 73 70 72  69 74 65 5f 73 63 61 6c  |plot_sprite_scal|
0000d420  65 64 28 37 30 30 2c 31  38 30 2c 31 2c 31 2c 31  |ed(700,180,1,1,1|
0000d430  2c 31 2c 22 72 69 76 64  65 61 74 68 22 29 0d 06  |,1,"rivdeath")..|
0000d440  b5 11 f2 64 65 6c 65 74  65 5f 64 65 61 74 68 0d  |...delete_death.|
0000d450  06 b6 0e f2 73 70 61 63  65 5f 74 77 6f 0d 06 b7  |....space_two...|
0000d460  13 ef 32 36 2c 31 38 2c  30 2c 31 32 39 2c 31 36  |..26,18,0,129,16|
0000d470  0d 06 b8 08 4c 25 3d 31  0d 06 b9 05 e1 0d 06 ba  |....L%=1........|
0000d480  04 0d 06 bb 12 dd f2 65  6e 64 5f 6f 66 5f 70 61  |.......end_of_pa|
0000d490  72 74 31 0d 06 bc 1d f2  62 6f 74 74 6f 6d 5f 66  |rt1.....bottom_f|
0000d4a0  72 61 6d 65 3a f2 63 6c  65 61 72 5f 74 65 78 74  |rame:.clear_text|
0000d4b0  0d 06 bd 4e f2 70 72 69  32 28 39 36 2c 31 32 30  |...N.pri2(96,120|
0000d4c0  2c 30 2c 31 2c 31 32 38  2c 31 2c 22 57 65 6c 6c  |,0,1,128,1,"Well|
0000d4d0  20 64 6f 6e 65 21 20 20  20 59 6f 75 20 68 61 76  | done!   You hav|
0000d4e0  65 20 63 6f 6d 70 6c 65  74 65 64 20 79 6f 75 72  |e completed your|
0000d4f0  20 66 69 72 73 74 20 74  61 73 6b 2e 22 29 0d 06  | first task.")..|
0000d500  be 16 f2 73 70 61 63 65  3a f2 63 6c 65 61 72 5f  |...space:.clear_|
0000d510  74 65 78 74 0d 06 bf 54  f2 70 72 69 32 28 33 32  |text...T.pri2(32|
0000d520  2c 31 36 30 2c 30 2c 31  2c 31 32 38 2c 31 2c 22  |,160,0,1,128,1,"|
0000d530  41 73 20 69 74 20 69 73  20 62 65 63 6f 6d 69 6e  |As it is becomin|
0000d540  67 20 6c 69 67 68 74 2c  20 20 79 6f 75 20 77 69  |g light,  you wi|
0000d550  6c 6c 20 6e 65 65 64 20  74 6f 20 66 69 6e 64 20  |ll need to find |
0000d560  61 20 73 61 66 65 22 29  0d 06 c0 56 f2 70 72 69  |a safe")...V.pri|
0000d570  32 28 33 32 2c 31 30 30  2c 30 2c 31 2c 31 32 38  |2(32,100,0,1,128|
0000d580  2c 31 2c 22 70 6c 61 63  65 20 74 6f 20 73 6c 65  |,1,"place to sle|
0000d590  65 70 2e 20 20 54 68 65  6e 20 79 6f 75 20 6d 75  |ep.  Then you mu|
0000d5a0  73 74 20 66 69 6e 64 20  61 20 77 61 79 20 70 61  |st find a way pa|
0000d5b0  73 74 20 74 68 65 20 66  61 72 6d 2e 22 29 0d 06  |st the farm.")..|
0000d5c0  c1 16 f2 73 70 61 63 65  3a f2 63 6c 65 61 72 5f  |...space:.clear_|
0000d5d0  74 65 78 74 0d 06 c2 04  0d 06 c3 04 0d 06 c4 58  |text...........X|
0000d5e0  f2 70 72 69 32 28 33 32  2c 31 32 30 2c 30 2c 31  |.pri2(32,120,0,1|
0000d5f0  2c 31 32 38 2c 31 2c 22  55 6e 66 6f 72 74 75 6e  |,128,1,"Unfortun|
0000d600  61 74 65 6c 79 2c 20 20  74 68 69 73 20 69 73 20  |ately,  this is |
0000d610  74 68 65 20 65 6e 64 20  6f 66 20 74 68 65 20 64  |the end of the d|
0000d620  65 6d 6f 6e 73 74 72 61  74 69 6f 6e 20 64 69 73  |emonstration dis|
0000d630  6b 2e 22 29 0d 06 c5 0a  f2 73 70 61 63 65 0d 06  |k.").....space..|
0000d640  c6 35 ef 32 36 2c 31 38  2c 30 2c 31 33 31 2c 31  |.5.26,18,0,131,1|
0000d650  36 2c 32 34 2c 36 34 3b  31 30 34 3b 31 32 31 36  |6,24,64;104;1216|
0000d660  3b 39 33 38 3b 31 38 2c  30 2c 31 32 39 2c 31 36  |;938;18,0,129,16|
0000d670  2c 32 36 0d 06 c7 18 6c  6f 61 64 31 24 3d c3 7e  |,26....load1$=.~|
0000d680  28 70 69 63 74 75 72 65  31 25 29 0d 06 c8 35 ff  |(picture1%)...5.|
0000d690  20 22 4c 4f 41 44 20 3c  42 61 64 67 65 72 24 44  | "LOAD <Badger$D|
0000d6a0  49 52 3e 2e 6f 74 68 65  72 70 69 63 73 2e 73 74  |IR>.otherpics.st|
0000d6b0  61 72 74 70 69 63 32 20  22 2b 6c 6f 61 64 31 24  |artpic2 "+load1$|
0000d6c0  0d 06 c9 32 c8 91 30 2c  2d 32 38 3a 41 25 3d 70  |...2..0,-28:A%=p|
0000d6d0  69 63 74 75 72 65 31 25  3a 42 25 3d 30 3a d6 64  |icture1%:B%=0:.d|
0000d6e0  72 61 77 5f 70 69 63 74  75 72 65 25 3a c8 91 30  |raw_picture%:..0|
0000d6f0  2c 30 0d 06 ca 0c 2a 66  78 31 31 32 2c 31 0d 06  |,0....*fx112,1..|
0000d700  cb 04 0d 06 cc 2c f2 70  72 69 32 28 35 32 38 2c  |.....,.pri2(528,|
0000d710  37 35 30 2c 30 2c 31 2c  31 32 38 2c 31 2c 22 42  |750,0,1,128,1,"B|
0000d720  61 64 67 65 72 20 54 72  61 69 6c 73 22 29 0d 06  |adger Trails")..|
0000d730  cd 0f f2 70 61 75 73 65  28 32 30 30 29 0d 06 ce  |...pause(200)...|
0000d740  4a f2 70 72 69 32 28 32  30 30 2c 36 39 30 2c 30  |J.pri2(200,690,0|
0000d750  2c 31 2c 31 32 38 2c 31  2c 22 46 6f 72 20 74 68  |,1,128,1,"For th|
0000d760  65 20 63 6f 6d 70 6c 65  74 65 20 61 64 76 65 6e  |e complete adven|
0000d770  74 75 72 65 20 70 6c 65  61 73 65 20 63 6f 6e 74  |ture please cont|
0000d780  61 63 74 3a 2d 22 29 0d  06 cf 84 f2 70 72 69 32  |act:-").....pri2|
0000d790  28 32 30 30 2c 36 33 30  2c 30 2c 31 2c 31 32 38  |(200,630,0,1,128|
0000d7a0  2c 31 2c 22 53 68 65 72  73 74 6f 6e 20 53 6f 66  |,1,"Sherston Sof|
0000d7b0  74 77 61 72 65 2c 20 53  68 65 72 73 74 6f 6e 2c  |tware, Sherston,|
0000d7c0  20 4d 61 6c 6d 65 73 62  75 72 79 2c 22 29 3a f2  | Malmesbury,"):.|
0000d7d0  70 72 69 32 28 33 31 30  2c 35 37 30 2c 30 2c 31  |pri2(310,570,0,1|
0000d7e0  2c 31 32 38 2c 31 2c 22  57 69 6c 74 73 2e 20 53  |,128,1,"Wilts. S|
0000d7f0  4e 31 36 20 30 4c 48 20  20 54 65 6c 2e 20 30 36  |N16 0LH  Tel. 06|
0000d800  36 36 20 38 34 30 34 33  33 22 29 0d 06 d0 35 f2  |66 840433")...5.|
0000d810  70 72 69 32 28 35 30 30  2c 35 31 30 2c 30 2c 31  |pri2(500,510,0,1|
0000d820  2c 31 32 38 2c 32 2c 22  43 74 72 6c 20 61 6e 64  |,128,2,"Ctrl and|
0000d830  20 51 20 74 6f 20 72 65  73 74 61 72 74 2e 22 29  | Q to restart.")|
0000d840  0d 06 d1 26 4d 25 3d 30  3a 4c 25 3d 31 3a 56 25  |...&M%=0:L%=1:V%|
0000d850  3d 30 3a 52 25 3d 30 3a  51 25 3d 30 3a 53 25 3d  |=0:R%=0:Q%=0:S%=|
0000d860  33 3a 55 25 3d 30 0d 06  d2 09 f5 3a fd 20 a3 0d  |3:U%=0.....:. ..|
0000d870  06 d3 0b 53 54 4f 50 50  45 44 0d 06 d4 04 0d 06  |...STOPPED......|
0000d880  d5 0f dd f2 73 70 61 63  65 5f 74 77 6f 0d 06 d6  |....space_two...|
0000d890  0f f2 70 61 75 73 65 28  31 30 30 29 0d 06 d7 0e  |..pause(100)....|
0000d8a0  20 73 69 6d 6f 6e 25 3d  31 32 0d 06 d8 1b 20 f2  | simon%=12.... .|
0000d8b0  69 6e 69 74 69 61 6c 69  73 65 5f 62 75 74 74 6f  |initialise_butto|
0000d8c0  6e 73 28 33 29 0d 06 d9  30 20 f5 3a f2 63 68 65  |ns(3)...0 .:.che|
0000d8d0  63 6b 5f 62 75 74 74 6f  6e 73 28 31 2c 74 6f 74  |ck_buttons(1,tot|
0000d8e0  61 6c 5f 62 75 74 25 29  3a fd 73 65 6c 65 63 74  |al_but%):.select|
0000d8f0  65 64 25 3e 30 0d 06 da  26 20 ef 32 34 2c 39 30  |ed%>0...& .24,90|
0000d900  30 3b 31 32 3b 31 32 30  30 3b 38 36 3b 31 38 2c  |0;12;1200;86;18,|
0000d910  30 2c 31 33 31 2c 31 36  2c 32 36 0d 06 db 10 20  |0,131,16,26.... |
0000d920  c8 97 20 b8 20 37 30 30  2c 36 30 0d 06 dc 05 e1  |.. . 700,60.....|
0000d930  0d 06 dd 04 0d 06 de 2e  dd f2 61 6e 69 6d 61 74  |..........animat|
0000d940  65 5f 73 6d 61 6c 6c 28  73 61 6d 78 25 2c 73 61  |e_small(samx%,sa|
0000d950  6d 79 25 2c 74 79 70 65  24 2c 61 6e 79 6e 75 6d  |my%,type$,anynum|
0000d960  25 29 0d 06 df 0a f7 20  8d 54 56 47 0d 06 e0 11  |%)..... .TVG....|
0000d970  e3 66 25 3d 31 b8 61 6e  79 6e 75 6d 25 0d 06 e1  |.f%=1.anynum%...|
0000d980  fa f3 6e 75 6d 5f 62 69  74 73 25 2c 61 70 25 2c  |..num_bits%,ap%,|
0000d990  73 61 6d 69 6e 78 25 28  31 29 2c 73 61 6d 69 6e  |saminx%(1),samin|
0000d9a0  79 25 28 31 29 2c 73 61  6d 63 6f 75 6e 74 25 28  |y%(1),samcount%(|
0000d9b0  31 29 2c 6e 5f 74 79 70  65 25 28 31 29 2c 70 61  |1),n_type%(1),pa|
0000d9c0  75 73 65 5f 63 25 28 31  29 2c 73 61 6d 69 6e 78  |use_c%(1),saminx|
0000d9d0  25 28 32 29 2c 73 61 6d  69 6e 79 25 28 32 29 2c  |%(2),saminy%(2),|
0000d9e0  73 61 6d 63 6f 75 6e 74  25 28 32 29 2c 6e 5f 74  |samcount%(2),n_t|
0000d9f0  79 70 65 25 28 32 29 2c  70 61 75 73 65 5f 63 25  |ype%(2),pause_c%|
0000da00  28 32 29 2c 73 61 6d 69  6e 78 25 28 33 29 2c 73  |(2),saminx%(3),s|
0000da10  61 6d 69 6e 79 25 28 33  29 2c 73 61 6d 63 6f 75  |aminy%(3),samcou|
0000da20  6e 74 25 28 33 29 2c 6e  5f 74 79 70 65 25 28 33  |nt%(3),n_type%(3|
0000da30  29 2c 70 61 75 73 65 5f  63 25 28 33 29 2c 73 61  |),pause_c%(3),sa|
0000da40  6d 69 6e 78 25 28 34 29  2c 73 61 6d 69 6e 79 25  |minx%(4),saminy%|
0000da50  28 34 29 2c 73 61 6d 63  6f 75 6e 74 25 28 34 29  |(4),samcount%(4)|
0000da60  2c 6e 5f 74 79 70 65 25  28 34 29 2c 70 61 75 73  |,n_type%(4),paus|
0000da70  65 5f 63 25 28 34 29 0d  06 e2 05 ed 0d 06 e3 04  |e_c%(4).........|
0000da80  0d 06 e4 0c 2a 46 58 31  31 32 2c 32 0d 06 e5 39  |....*FX112,2...9|
0000da90  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
0000daa0  26 31 32 32 2c 73 70 72  69 74 65 5f 61 72 65 61  |&122,sprite_area|
0000dab0  31 25 2c 22 73 63 72 6f  6c 6c 31 22 2c 36 34 2c  |1%,"scroll1",64,|
0000dac0  33 32 30 2c 30 0d 06 e6  0c 2a 46 58 31 31 32 2c  |320,0....*FX112,|
0000dad0  31 0d 06 e7 04 0d 06 e8  39 c8 99 22 4f 53 5f 53  |1.......9.."OS_S|
0000dae0  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 73 70  |priteOp",&122,sp|
0000daf0  72 69 74 65 5f 61 72 65  61 31 25 2c 22 73 63 72  |rite_area1%,"scr|
0000db00  6f 6c 6c 31 22 2c 36 34  2c 33 32 30 2c 30 0d 06  |oll1",64,320,0..|
0000db10  e9 43 f2 73 70 72 69 74  65 5f 70 6c 6f 74 28 73  |.C.sprite_plot(s|
0000db20  70 72 69 74 65 5f 61 72  65 61 31 25 2c 22 62 61  |prite_area1%,"ba|
0000db30  64 22 2b c3 28 63 64 25  29 2c 61 78 25 2c 61 79  |d"+.(cd%),ax%,ay|
0000db40  25 2b 31 32 38 2c 31 32  2c 38 2c 31 34 2c 31 35  |%+128,12,8,14,15|
0000db50  29 0d 06 ea 42 c8 99 22  4f 53 5f 53 70 72 69 74  |)...B.."OS_Sprit|
0000db60  65 4f 70 22 2c 26 31 31  30 2c 73 70 72 69 74 65  |eOp",&110,sprite|
0000db70  5f 61 72 65 61 31 25 2c  22 73 63 72 6f 6c 6c 31  |_area1%,"scroll1|
0000db80  22 2c 30 2c 36 34 2c 33  32 30 2c 31 32 31 34 2c  |",0,64,320,1214,|
0000db90  39 36 30 0d 06 eb 42 c8  99 22 4f 53 5f 53 70 72  |960...B.."OS_Spr|
0000dba0  69 74 65 4f 70 22 2c 26  31 31 30 2c 73 70 72 69  |iteOp",&110,spri|
0000dbb0  74 65 5f 61 72 65 61 31  25 2c 22 73 63 72 6f 6c  |te_area1%,"scrol|
0000dbc0  6c 32 22 2c 30 2c 36 34  2c 33 32 30 2c 31 32 31  |l2",0,64,320,121|
0000dbd0  34 2c 39 36 30 0d 06 ec  04 0d 06 ed 20 73 70 78  |4,960....... spx|
0000dbe0  25 3d 73 61 6d 78 25 2d  36 34 3a 73 70 79 25 3d  |%=samx%-64:spy%=|
0000dbf0  73 61 6d 79 25 2d 33 32  30 0d 06 ee 19 e3 61 6e  |samy%-320.....an|
0000dc00  79 6c 6f 6f 70 25 3d 31  b8 6e 75 6d 5f 62 69 74  |yloop%=1.num_bit|
0000dc10  73 25 0d 06 ef 14 74 79  70 65 25 3d 31 3a 63 6f  |s%....type%=1:co|
0000dc20  75 6e 74 25 3d 31 0d 06  f0 20 e3 73 61 6d 66 25  |unt%=1... .samf%|
0000dc30  3d 31 b8 73 61 6d 63 6f  75 6e 74 25 28 61 6e 79  |=1.samcount%(any|
0000dc40  6c 6f 6f 70 25 29 0d 06  f1 0d f2 73 74 5f 70 61  |loop%).....st_pa|
0000dc50  75 73 65 0d 06 f2 13 63  6f 75 6e 74 25 3d 63 6f  |use....count%=co|
0000dc60  75 6e 74 25 2b 31 0d 06  f3 5a e7 63 6f 75 6e 74  |unt%+1...Z.count|
0000dc70  25 3d 70 61 75 73 65 5f  63 25 28 61 6e 79 6c 6f  |%=pause_c%(anylo|
0000dc80  6f 70 25 29 3a 74 79 70  65 25 3d 74 79 70 65 25  |op%):type%=type%|
0000dc90  2b 31 3a 63 6f 75 6e 74  25 3d 31 3a e7 74 79 70  |+1:count%=1:.typ|
0000dca0  65 25 3d 28 6e 5f 74 79  70 65 25 28 61 6e 79 6c  |e%=(n_type%(anyl|
0000dcb0  6f 6f 70 25 29 29 2b 31  3a 74 79 70 65 25 3d 31  |oop%))+1:type%=1|
0000dcc0  0d 06 f4 32 c8 99 22 4f  53 5f 53 70 72 69 74 65  |...2.."OS_Sprite|
0000dcd0  4f 70 22 2c 26 31 33 43  2c 73 70 72 69 74 65 5f  |Op",&13C,sprite_|
0000dce0  61 72 65 61 31 25 2c 22  73 63 72 6f 6c 6c 31 22  |area1%,"scroll1"|
0000dcf0  2c 30 0d 06 f5 39 f2 70  6c 6f 74 5f 73 70 72 69  |,0...9.plot_spri|
0000dd00  74 65 5f 6d 61 73 6b 65  64 28 73 70 78 25 2c 73  |te_masked(spx%,s|
0000dd10  70 79 25 2c 31 2c 31 2c  31 2c 31 2c 74 79 70 65  |py%,1,1,1,1,type|
0000dd20  24 2b c3 28 74 79 70 65  25 29 29 0d 06 f6 2a c8  |$+.(type%))...*.|
0000dd30  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
0000dd40  31 33 43 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |13C,sprite_area1|
0000dd50  25 2c 30 2c 30 0d 06 f7  39 c8 99 22 4f 53 5f 53  |%,0,0...9.."OS_S|
0000dd60  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 73 70  |priteOp",&122,sp|
0000dd70  72 69 74 65 5f 61 72 65  61 31 25 2c 22 73 63 72  |rite_area1%,"scr|
0000dd80  6f 6c 6c 31 22 2c 36 34  2c 33 32 30 2c 30 0d 06  |oll1",64,320,0..|
0000dd90  f8 30 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.0.."OS_SpriteOp|
0000dda0  22 2c 26 31 31 39 2c 73  70 72 69 74 65 5f 61 72  |",&119,sprite_ar|
0000ddb0  65 61 31 25 2c 22 73 63  72 6f 6c 6c 31 22 0d 06  |ea1%,"scroll1"..|
0000ddc0  f9 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.:.."OS_SpriteOp|
0000ddd0  22 2c 26 31 31 42 2c 73  70 72 69 74 65 5f 61 72  |",&11B,sprite_ar|
0000dde0  65 61 31 25 2c 22 73 63  72 6f 6c 6c 32 22 2c 22  |ea1%,"scroll2","|
0000ddf0  73 63 72 6f 6c 6c 31 22  0d 06 fa 0c 2a 46 58 31  |scroll1"....*FX1|
0000de00  31 32 2c 31 0d 06 fb 3b  73 70 78 25 3d 73 70 78  |12,1...;spx%=spx|
0000de10  25 2b 73 61 6d 69 6e 78  25 28 61 6e 79 6c 6f 6f  |%+saminx%(anyloo|
0000de20  70 25 29 3a 73 70 79 25  3d 73 70 79 25 2b 73 61  |p%):spy%=spy%+sa|
0000de30  6d 69 6e 79 25 28 61 6e  79 6c 6f 6f 70 25 29 0d  |miny%(anyloop%).|
0000de40  06 fc 12 f2 65 6e 5f 70  61 75 73 65 28 61 70 25  |....en_pause(ap%|
0000de50  29 0d 06 fd 05 ed 0d 06  fe 45 e7 61 6e 79 6e 75  |)........E.anynu|
0000de60  6d 25 3d 34 20 80 20 61  6e 79 6c 6f 6f 70 25 3d  |m%=4 . anyloop%=|
0000de70  32 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |2:.."OS_SpriteOp|
0000de80  22 2c 26 31 32 46 2c 73  70 72 69 74 65 5f 61 72  |",&12F,sprite_ar|
0000de90  65 61 31 25 2c 22 66 6f  78 31 22 0d 06 ff 05 ed  |ea1%,"fox1".....|
0000dea0  0d 07 00 39 c8 99 22 4f  53 5f 53 70 72 69 74 65  |...9.."OS_Sprite|
0000deb0  4f 70 22 2c 26 31 32 32  2c 73 70 72 69 74 65 5f  |Op",&122,sprite_|
0000dec0  61 72 65 61 31 25 2c 22  73 63 72 6f 6c 6c 31 22  |area1%,"scroll1"|
0000ded0  2c 36 34 2c 33 32 30 2c  30 0d 07 01 0c 2a 46 58  |,64,320,0....*FX|
0000dee0  31 31 32 2c 32 0d 07 02  42 c8 99 22 4f 53 5f 53  |112,2...B.."OS_S|
0000def0  70 72 69 74 65 4f 70 22  2c 26 31 31 30 2c 73 70  |priteOp",&110,sp|
0000df00  72 69 74 65 5f 61 72 65  61 31 25 2c 22 73 63 72  |rite_area1%,"scr|
0000df10  6f 6c 6c 31 22 2c 30 2c  36 34 2c 33 32 30 2c 31  |oll1",0,64,320,1|
0000df20  32 31 34 2c 39 36 30 0d  07 03 42 c8 99 22 4f 53  |214,960...B.."OS|
0000df30  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 30 2c  |_SpriteOp",&110,|
0000df40  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 22 73  |sprite_area1%,"s|
0000df50  63 72 6f 6c 6c 32 22 2c  30 2c 36 34 2c 33 32 30  |croll2",0,64,320|
0000df60  2c 31 32 31 34 2c 39 36  30 0d 07 04 0c 2a 46 58  |,1214,960....*FX|
0000df70  31 31 32 2c 31 0d 07 05  05 e1 0d 07 06 04 0d 07  |112,1...........|
0000df80  07 13 dd f2 73 6d 61 6c  6c 5f 61 6e 69 6d 61 74  |....small_animat|
0000df90  65 0d 07 08 39 e7 6e 65  77 5f 6c 6f 63 61 74 69  |e...9.new_locati|
0000dfa0  6f 6e 25 3d 31 32 20 f2  61 6e 69 6d 61 74 65 5f  |on%=12 .animate_|
0000dfb0  73 6d 61 6c 6c 28 33 30  38 2c 39 30 30 2c 22 6c  |small(308,900,"l|
0000dfc0  72 61 62 62 69 74 22 2c  31 29 0d 07 09 f0 e7 6e  |rabbit",1).....n|
0000dfd0  65 77 5f 6c 6f 63 61 74  69 6f 6e 25 3d 38 3a c8  |ew_location%=8:.|
0000dfe0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
0000dff0  31 32 31 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |121,sprite_area1|
0000e000  25 2c 22 6c 72 61 62 62  69 74 31 22 3a c8 99 22  |%,"lrabbit1":.."|
0000e010  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
0000e020  31 2c 73 70 72 69 74 65  5f 61 72 65 61 31 25 2c  |1,sprite_area1%,|
0000e030  22 6c 72 61 62 62 69 74  32 22 3a f2 61 6e 69 6d  |"lrabbit2":.anim|
0000e040  61 74 65 5f 73 6d 61 6c  6c 28 31 36 30 2c 37 32  |ate_small(160,72|
0000e050  30 2c 22 6c 72 61 62 62  69 74 22 2c 32 29 3a c8  |0,"lrabbit",2):.|
0000e060  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
0000e070  31 32 31 2c 73 70 72 69  74 65 5f 61 72 65 61 31  |121,sprite_area1|
0000e080  25 2c 22 6c 72 61 62 62  69 74 31 22 3a c8 99 22  |%,"lrabbit1":.."|
0000e090  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
0000e0a0  31 2c 73 70 72 69 74 65  5f 61 72 65 61 31 25 2c  |1,sprite_area1%,|
0000e0b0  22 6c 72 61 62 62 69 74  32 22 0d 07 0a 38 e7 6e  |"lrabbit2"...8.n|
0000e0c0  65 77 5f 6c 6f 63 61 74  69 6f 6e 25 3d 31 36 20  |ew_location%=16 |
0000e0d0  80 20 4c 25 3d 31 35 20  80 20 28 52 25 3c 33 20  |. L%=15 . (R%<3 |
0000e0e0  84 20 51 25 3c 31 29 3a  f2 66 6f 78 5f 6c 6f 6f  |. Q%<1):.fox_loo|
0000e0f0  6b 31 0d 07 0b 2e e7 6e  65 77 5f 6c 6f 63 61 74  |k1.....new_locat|
0000e100  69 6f 6e 25 3d 31 34 20  80 20 28 4c 25 3d 31 30  |ion%=14 . (L%=10|
0000e110  20 84 20 4c 25 3d 31 32  29 20 f2 64 75 63 6b 31  | . L%=12) .duck1|
0000e120  0d 07 0c 05 e1 0d 07 0d  04 0d 07 0e 0f dd f2 66  |...............f|
0000e130  6f 78 5f 6c 6f 6f 6b 31  0d 07 0f 4e c8 99 22 4f  |ox_look1...N.."O|
0000e140  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 32 46  |S_SpriteOp",&12F|
0000e150  2c 73 70 72 69 74 65 5f  61 72 65 61 31 25 2c 22  |,sprite_area1%,"|
0000e160  66 6f 78 31 22 3a f2 61  6e 69 6d 61 74 65 5f 73  |fox1":.animate_s|
0000e170  6d 61 6c 6c 28 31 32 30  30 2c 37 38 30 2c 22 66  |mall(1200,780,"f|
0000e180  6f 78 22 2c 34 29 0d 07  10 05 e1 0d 07 11 04 0d  |ox",4)..........|
0000e190  07 12 0b dd f2 64 75 63  6b 31 0d 07 13 25 f2 61  |.....duck1...%.a|
0000e1a0  6e 69 6d 61 74 65 5f 73  6d 61 6c 6c 28 31 32 30  |nimate_small(120|
0000e1b0  30 2c 36 30 30 2c 22 64  75 63 6b 22 2c 35 29 0d  |0,600,"duck",5).|
0000e1c0  07 14 05 e1 0d 07 15 04  0d 07 16 46 dc 31 2c 34  |...........F.1,4|
0000e1d0  2c 20 30 2c 2d 38 2c 35  34 2c 32 2c 31 30 2c 20  |, 0,-8,54,2,10, |
0000e1e0  30 2c 30 2c 30 2c 30 2c  30 2c 20 30 2c 30 2c 30  |0,0,0,0,0, 0,0,0|
0000e1f0  2c 30 2c 30 2c 20 30 2c  30 2c 30 2c 30 2c 30 20  |,0,0, 0,0,0,0,0 |
0000e200  20 20 20 20 20 20 20 3a  72 61 62 62 69 74 0d 07  |       :rabbit..|
0000e210  17 46 dc 31 2c 34 2c 20  30 2c 38 2c 33 30 2c 32  |.F.1,4, 0,8,30,2|
0000e220  2c 31 30 2c 20 20 20 30  2c 30 2c 30 2c 30 2c 30  |,10,   0,0,0,0,0|
0000e230  2c 20 30 2c 30 2c 30 2c  30 2c 30 2c 20 30 2c 30  |, 0,0,0,0,0, 0,0|
0000e240  2c 30 2c 30 2c 30 20 20  20 20 20 20 20 3a 72 61  |,0,0,0       :ra|
0000e250  62 62 69 74 0d 07 18 43  dc 31 2c 36 2c 20 31 36  |bbit...C.1,6, 16|
0000e260  2c 30 2c 38 30 2c 31 2c  32 30 30 2c 20 30 2c 30  |,0,80,1,200, 0,0|
0000e270  2c 30 2c 30 2c 30 2c 20  30 2c 30 2c 30 2c 30 2c  |,0,0,0, 0,0,0,0,|
0000e280  30 2c 20 30 2c 30 2c 30  2c 30 2c 30 20 20 20 20  |0, 0,0,0,0,0    |
0000e290  20 20 20 3a 66 6f 78 0d  07 19 44 dc 33 2c 34 2c  |   :fox...D.3,4,|
0000e2a0  20 2d 38 2c 30 2c 33 30  2c 31 2c 31 30 30 2c 20  | -8,0,30,1,100, |
0000e2b0  30 2c 30 2c 35 30 2c 32  2c 31 30 2c 20 38 2c 30  |0,0,50,2,10, 8,0|
0000e2c0  2c 33 35 2c 31 2c 31 30  30 2c 20 30 2c 30 2c 30  |,35,1,100, 0,0,0|
0000e2d0  2c 30 2c 30 20 20 3a 66  6f 78 32 0d 07 1a 4b dc  |,0,0  :fox2...K.|
0000e2e0  34 2c 36 2c 20 2d 34 2c  32 2c 33 30 2c 31 2c 31  |4,6, -4,2,30,1,1|
0000e2f0  30 30 2c 20 2d 31 2c 34  2c 32 30 2c 31 2c 31 30  |00, -1,4,20,1,10|
0000e300  30 2c 20 2d 32 2c 34 2c  32 30 2c 31 2c 31 30 30  |0, -2,4,20,1,100|
0000e310  2c 20 2d 34 2c 34 2c 33  35 2c 31 2c 31 30 30 20  |, -4,4,35,1,100 |
0000e320  3a 64 75 63 6b 73 0d 07  1b 46 dc 33 2c 34 2c 20  |:ducks...F.3,4, |
0000e330  30 2c 2d 38 2c 34 30 2c  31 2c 31 30 30 2c 20 30  |0,-8,40,1,100, 0|
0000e340  2c 38 2c 31 30 2c 31 2c  31 30 30 2c 20 30 2c 2d  |,8,10,1,100, 0,-|
0000e350  38 2c 31 30 2c 31 2c 31  30 30 2c 20 30 2c 30 2c  |8,10,1,100, 0,0,|
0000e360  30 2c 30 2c 30 3a 73 70  69 64 65 72 0d 07 1c 04  |0,0,0:spider....|
0000e370  0d 07 1d 0e dd f2 64 65  73 6b 5f 74 6f 70 0d 07  |......desk_top..|
0000e380  1e 19 c8 99 22 4f 53 5f  52 65 73 74 6f 72 65 43  |...."OS_RestoreC|
0000e390  75 72 73 6f 72 73 22 0d  07 1f 36 d8 3a de 62 75  |ursors"...6.:.bu|
0000e3a0  66 25 20 34 3a e3 69 25  3d 31 b8 31 36 3a c8 96  |f% 4:.i%=1.16:..|
0000e3b0  3a e3 63 25 3d 30 b8 31  36 3a e7 63 25 3c 31 36  |:.c%=0.16:.c%<16|
0000e3c0  76 25 3d 31 36 20 8b 20  76 25 3d 32 34 0d 07 20  |v%=16 . v%=24.. |
0000e3d0  50 c8 99 22 4f 53 5f 52  65 61 64 50 61 6c 65 74  |P.."OS_ReadPalet|
0000e3e0  74 65 22 2c 63 25 2c 76  25 20 b8 20 2c 2c 64 25  |te",c%,v% . ,,d%|
0000e3f0  3a 21 62 75 66 25 3d 64  25 3a e3 62 25 3d 31 b8  |:!buf%=d%:.b%=1.|
0000e400  33 3a e7 62 75 66 25 3f  62 25 3e 30 62 75 66 25  |3:.buf%?b%>0buf%|
0000e410  3f 62 25 2d 3d 31 36 3a  ed 3a 8b 3a ed 0d 07 21  |?b%-=16:.:.:...!|
0000e420  25 ef 31 39 2c 63 25 2c  76 25 2c 62 75 66 25 3f  |%.19,c%,v%,buf%?|
0000e430  31 2c 62 75 66 25 3f 32  2c 62 75 66 25 3f 33 3a  |1,buf%?2,buf%?3:|
0000e440  ed 2c 0d 07 22 09 2a 46  58 31 35 0d 07 23 0c 2a  |.,..".*FX15..#.*|
0000e450  46 58 32 32 35 2c 31 0d  07 24 20 2a 4b 45 59 30  |FX225,1..$ *KEY0|
0000e460  20 50 41 47 45 3d 26 38  46 30 30 7c 4d 4f 4c 44  | PAGE=&8F00|MOLD|
0000e470  7c 4d 52 55 4e 7c 4d 0d  07 25 10 2a 46 58 31 33  ||MRUN|M..%.*FX13|
0000e480  38 2c 30 2c 31 32 38 0d  07 26 0a 2a 42 41 53 49  |8,0,128..&.*BASI|
0000e490  43 0d 47 87 05 fa 0d ff                           |C.G.....|
0000e498