<�ADFS::HardDisc4.$.CURR_NEW.DEMOPROG.!Tables.Pt1.Tables

!ț "<TableA$Dir>.Pt1.Library"
*FX225,1
*FX229,0

*FX220,17
�:�"FX229,1":� �:�dt|M
*KEY1 PROCdt|M
*KEY5 PROCstats|M
Q*KEY9 MOUSERECTANGLE 0,0,1278,960:REPEAT:MOUSEX,Y,Z:P.TAB(0,0)X,Y:UNTIL FALSE
	m*KEY3 length$=STR$~262144:from$=STR$~back_data%:file$="bgdata2":OSCLI"SAVE "+file$+" "+from$+" +"+length$

$� input_disk_name% 256,mouse% 16
J� pdrect% 16,pdrect2% 16,pdtrans% 16,pdplot% 8,ctrans% 256,paltab% 256
$� input% 16,output% 16,scale% 16

� but%(40,4),but$(40)
� area%(10,4)
� points%(2,10)
� string% 128
� tables%(14,5)
� tables$(14),ta$(14)
� mov_tab%(5,5)
� firstn%(14)
� secondn%(14)
� rnd_picker1%(14)
� rnd_picker2%(14)
� rnd_number1%(14)
� rnd_number2%(14)
� presented%(14)
� x_answer%(14)
� count_down%(6)
� entry_areas%(5,4)
� ds%(32,2)
� corr%(30,3)
 � scale% 16
!� input% 16
"� output% 16
#
� swl%(9)
$vga%=V%
%*FX112,1
&,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
'�V%=1 � 23,17,7,6,8;16;0;
(*FX112,2
),�V%=0 �24,0;960;1278;1022;18,0,131,16,26
*�find_screens
+�pull_variables
,�initialise_sprite_area
-addrs$=�~m_code1%
.,�"LOAD <TableA$Dir>.Pt1.GenCode "+addrs$
/�pull_gen_code_var
0sa1%=sprite_area1%
1number_of%=(Z%*3)+4
2timer_on%=1
3style%=1
4order%=2
5	*fx15
6�palette
7�19,1,24,0,0,0
8text_col%=3
9�Q%=9:�moving_tables
:�Q%=25 �
;�intro_scan_sky
<
�scan_sky
=�tscore(512,320)
>�space(900,100,0,0)
?�escape_pod
@	Q%=26
A�
B#�Q%=26:�"<TableA$Dir>.Pt1.link"
C
�Q%=201 �
D�moving_tables
E�tscore(712,360)
F�space(900,100,0,0)
G
�S%=1 �dt
H�"<TableA$Dir>.Pt1.link"
I�
J
�Q%=202 �
K
�scan_sky
L�tscore(512,300)
M�space(900,100,0,0)
N
�S%=1 �dt
O�"<TableA$Dir>.Pt1.link"
P�
Q
�Q%=213 �
R�timed_test
S�tscore(840,400)
T�space(900,100,0,0)
U
�S%=1 �dt
V�"<TableA$Dir>.Pt1.link"
W�
X�
Y��timed_test
Z
�palette2
[�19,1,24,0,0,0
\total_possible%=number_of%
]1total_got%=number_of%:total_got_fp=total_got%
^�load_sprites("timer")
_�merge_sprites("numbers")
`�merge_sprites("buttons")
a*fx112,2
b*fx113,1
c�26,18,0,128,16,18,0,4
d� O%=1 time_per_table%=20
e� O%=2 time_per_table%=15
f� O%=3 time_per_table%=11
g� O%=4 time_per_table%=8
h� O%=5 time_per_table%=6
iY�text_box(100,500,1080,180,2,"Quickly type in the answers and","then press enter","")
jb�text_box(100,700,1080,100,2,"You have "+�(time_per_table%)+" seconds for each answer!","","")
kfade$="fade"
l�fade(0,960,4,0,1,1)
m*FX113,1
n*FX112,1
o�space(900,100,0,0)
p�26,18,0,128,16,18,0,4
q5�text_box(400,640,480,100,2,"Get ready...","","")
r�pause(200)
s.�text_box(400,500,480,100,2,"Go...","","")
t�pause(50)
u�26,18,0,128,16,18,0,4
v'time_per_table%=time_per_table%*100
wc�table_three(450,886,table_from%,table_to%,lowest%,highest%,number_of%,style%,order%,timer_on%)
xtotal_got%=total_got_fp
y�
z��intro_scan_sky
{
�palette2
|�19,1,24,0,0,0
}�merge_sprites("numbers2")
~�merge_sprites("buttons")
*fx112,2
�*fx113,1
��26,18,0,131,16,18,0,4
��f%=1 � 1000
��69,�(1278),�(1024)
��
�;�pri2(230,800,"Will you escape the alien space craft?")
�fade$="fade"
��fade(0,960,4,0,1,1)
��palette
�*fx112,1
��pause(200)
�?�pri2(230,680,"This is part of four adventures, including")
�:�pri2(230,610,"thirteen different tables activities.")
��space(900,100,0,0)
�:�pri2(230,520,"The full program is available from...")
�*�pri2(450,450,"Sherston Software Ltd")
��pri2(450,380,"Sherston")
��pri2(450,310,"Malmesbury")
��pri2(450,240,"Wiltshire")
��pri2(450,170,"SN16OLH")
��space(900,100,0,0)
�mistake
��
���escape_pod
��load_sprites("escape")
�*fx112,2
��0,131:�0,7
��
��f%=1�2000
��69,�(1280),�(1024)
��
��cachesound("scifi3",1)
�)�plot_sprite(128,512,1,1,1,1,"craft")
�0B%=screen_two%:C%=screen_one%:� save_screen%
�*fx112,2
�
�f%=1 � 5
�� 1,-15,20,1
�
�pause(2)
�.�plot_sprite(332,530,1,1,1,1,"door"+�(f%))
�0B%=screen_two%:C%=screen_one%:� save_screen%
��pause(20)
��
�an_x%=332:an_y%=530
�sel_sprite$="pod"
�blank$="blank"
�*fx112,2
�� 24,4;4;1270;570;
��start_anim(blank$)
��cachesound("wind",1)
��f%=578 � 0 �-8
�
�st_pause
�� 1,-15,20,1
�an_y%=f%
��anim(blank$)
�0�plot_sprite_masked(332,530,1,1,1,1,"door6")
�0B%=screen_two%:C%=screen_one%:� save_screen%
��en_pause(6)
��
��end_anim(blank$)
�0B%=screen_two%:C%=screen_one%:� save_screen%
�*fx112,2
��cachesound("scifi3",1)
��f%=5 � 1 �-1
�� 1,-15,20,1
�
�pause(2)
�.�plot_sprite(332,530,1,1,1,1,"door"+�(f%))
�0B%=screen_two%:C%=screen_one%:� save_screen%
��pause(20)
��
�*FX112,1
�_�text_box(500,160,720,210,2,"Well done you have escaped","the Table Alien space craft.","")
��pause(200)
��
���scan_sky
�total_possible%=20
�)total_got%=20:total_got_fp=total_got%
��load_sprites("launch")
��merge_sprites("numbers2")
��merge_sprites("buttons")
�*fx112,2
�*fx113,1
��26,18,0,131,16,18,0,4
��f%=1 � 1000
��69,�(1278),�(1024)
��
�#�24,140;100;440;740;18,0,129,16
�&�24,148;108;432;732;18,0,131,16,26
�+�pri2(600,750,"Enter the launch codes")
�*�pri2(600,680,"and then press enter.")
�fade$="fade"
��fade(0,960,4,0,1,1)
��palette
�*FX113,1
�*FX112,1
��space(900,100,0,0)
�$�24,540;100;1100;920;18,0,129,16
�'�24,548;108;1092;912;18,0,131,16,26
�a�table_two(590,886,table_from%,table_to%,lowest%,highest%,number_of%,style%,order%,timer_on%)
�total_got%=total_got_fp
�*fx112,2
�*fx113,1
��26,18,0,131,16,18,0,4
��f%=1 � 1000
��69,�(1278),�(1024)
��
�>�text_box(200,850,880,90,2,"Launch codes accepted.","","")
�fade$="fade"
��fade(0,960,4,0,1,1)
��cachesound("invading2",1)
��f%=1 � 40
��pause(10)
�� �nosound=�:� 1,&17F,1,1
��
�*fx112,1
��
�f��table_three(tx%,topy%,table_from%,table_to%,lowest%,highest%,number_of%,style%,order%,timer_on%)
��set_table_one
��f%=1�12
�presented%(f%)=f%
��
�)�plot_sprite(130,400,1,1,1,1,"timer")
�	tc%=1
�5�plot_sprite(130+38,400+52,1,1,1,1,"sand"+�(tc%))
��num%=1 � number_of%
�7line$=�(tables%(num%,1))+"x"+�(tables%(num%,2))+"="
�)�rotate_numbers(tx%,topy%-64,6,line$)
�input$="":in_num%=0:ok%=0
�set_time%=�

	tc%=1


5�plot_sprite(130+38,400+52,1,1,1,1,"sand"+�(tc%))

#time_graphic%=time_per_table%/6

store_t_g%=�

�

�

in%=�(1)

"� �-store_t_g%>time_graphic% �

store_t_g%=�

	
tc%=tc%+1


5�plot_sprite(130+38,400+52,1,1,1,1,"sand"+�(tc%))

�

X�(in%=13 � �(input$)>0)� in%=127 � (in%>47 � in%<58) � (�-set_time%>time_per_table%)


�in%=127 �


in_num%=0


input$=""

7�rotate_numbers(tx%+(�(line$)*36),topy%-64,3,"ddd")

�

$�(in%>47 � in%<58) � in_num%<3 �

input$=input$+�(in%)

�in_num%=0:pr$=�(in%)+"dd"

�in_num%=1:pr$=�(in%)+"d"

�in_num%=2:pr$=�(in%)

B�rotate_numbers(tx%+(�(line$)*36)+(in_num%*36),topy%-64,1,pr$)

in_num%=in_num%+1

�

�in%=13 � input$<>"" �

	*fx15

 �tables%(num%,3)=�(input$) �

in_num%=in_num%+1

	ok%=1

B�rotate_numbers(tx%+(�(line$)*36)+(in_num%*36),topy%-64,3,"y")

 �cachesound("ok2",1)

!� 1,&17F,1,1

"�

#!�tables%(num%,3)<>�(input$) �

$total_got_fp=total_got_fp-1

%	ok%=1

&input$="":in_num%=0

'7�rotate_numbers(tx%+(�(line$)*36),topy%-64,3,"ndd")

(�cachesound("wrong2",1)

)� 1,&17F,1,1

*�pause(20)

+�

,�

--� �-set_time%>time_per_table% � in%<>13 �

.total_got_fp=total_got_fp-1

/	ok%=1

0input$="":in_num%=0

17�rotate_numbers(tx%+(�(line$)*36),topy%-64,3,"ndd")

2�cachesound("wrong2",1)

3� 1,&17F,1,1

4
tc%=tc%+1

55�plot_sprite(130+38,400+52,1,1,1,1,"sand"+�(tc%))

6�pause(20)

7�

8+� ok%=1 � (�-set_time%>time_per_table%)

9topy%=topy%-64

:�

;�

<d��table_two(tx%,topy%,table_from%,table_to%,lowest%,highest%,number_of%,style%,order%,timer_on%)

=c�Z%=1 swl%(1)=1:swl%(2)=2:swl%(3)=2:swl%(4)=3:swl%(5)=3:swl%(6)=4:swl%(7)=4:swl%(8)=5:swl%(9)=5

>c�Z%=2 swl%(1)=1:swl%(2)=2:swl%(3)=3:swl%(4)=4:swl%(5)=5:swl%(6)=6:swl%(7)=7:swl%(8)=8:swl%(9)=9

?f�Z%=3 swl%(1)=1:swl%(2)=3:swl%(3)=5:swl%(4)=7:swl%(5)=8:swl%(6)=9:swl%(7)=10:swl%(8)=11:swl%(9)=12

@�set_table_one

A�f%=1�12

Bpresented%(f%)=f%

C�

D�num%=1 � number_of%

E7line$=�(tables%(num%,1))+"x"+�(tables%(num%,2))+"="

F)�rotate_numbers(tx%,topy%-64,6,line$)

Ginput$="":in_num%=0:ok%=0

H�

I�

Jin%=�(1)

K)�in%=13 � in%=127 � (in%>47 � in%<58)

L�in%=127 �

M
in_num%=0

N
input$=""

O7�rotate_numbers(tx%+(�(line$)*36),topy%-64,3,"ddd")

P�

Q$�(in%>47 � in%<58) � in_num%<3 �

Rinput$=input$+�(in%)

S�in_num%=0:pr$=�(in%)+"dd"

T�in_num%=1:pr$=�(in%)+"d"

U�in_num%=2:pr$=�(in%)

VB�rotate_numbers(tx%+(�(line$)*36)+(in_num%*36),topy%-64,1,pr$)

Win_num%=in_num%+1

X�

Y�(in%=13 � �(input$)>0) �

Z	*FX15

[ �tables%(num%,3)=�(input$) �

\in_num%=in_num%+1

]	ok%=1

^B�rotate_numbers(tx%+(�(line$)*36)+(in_num%*36),topy%-64,3,"y")

_�cachesound("ok2",1)

`� 1,&17F,1,1

a7�swl%(1)=num% �plot_sprite(160,650,1,1,1,1,"intro")

b9�swl%(2)=num% �plot_sprite(160,520,1,1,1,1,"launch1")

c9�swl%(3)=num% �plot_sprite(300,520,1,1,1,1,"launch2")

d9�swl%(4)=num% �plot_sprite(160,400,1,1,1,1,"launch3")

e9�swl%(5)=num% �plot_sprite(300,400,1,1,1,1,"launch4")

f9�swl%(6)=num% �plot_sprite(160,280,1,1,1,1,"launch5")

g9�swl%(7)=num% �plot_sprite(300,280,1,1,1,1,"launch6")

h9�swl%(8)=num% �plot_sprite(160,160,1,1,1,1,"launch7")

i�swl%(9)=num% �

j+�plot_sprite(300,160,1,1,1,1,"launch8")

k�

l�pause(50)

m�

n!�tables%(num%,3)<>�(input$) �

ototal_got_fp=total_got_fp-1

pinput$="":in_num%=0

q7�rotate_numbers(tx%+(�(line$)*36),topy%-64,3,"ndd")

r�cachesound("wrong2",1)

s� 1,&17F,1,1

t�pause(50)

u5�rotate_numbers(tx%+(�(line$)*36),topy%-64,3,"?")

v�

w�

x� ok%=1

ytopy%=topy%-64

z�

{�

|��set_up_bomb

}*channelvoice 1 bonk

~*channelvoice 2 robots

�load_sprites("bomb")

��merge_sprites("numbers")

�fade$="fade"

�*FX112,2

��129

��

�,�plot_sprite(160,16,1,1,1,1,"greenbomb")

�*FX112,1

�*FX113,1

��129

��

��fade(0,960,4,0,1,1)

�Gș"OS_SpriteOp",&110,sprite_area1%,"blank1",0,426,518-32,832,893-32

�Gș"OS_SpriteOp",&110,sprite_area1%,"blank2",0,426,146-32,832,518-32

�� 24,430;114;830;854;

�.B%=screen_one%:C%=screen_two%:�save_screen

�*FX112,2

��18,0,128,16

��fade(0,960,4,0,1,1)

�*FX112,1

��

�*FX113,1

�*FX112,1

�a�table_one(430,854,table_from%,table_to%,lowest%,highest%,number_of%,style%,order%,timer_on%)

��

���box2(bx%,by%,bxx%,byy%)

�bxx%=bx%+bxx%:byy%=by%+byy%

�-�24,bx%-4;by%-4;bxx%+4;byy%+4;18,0,131,16

�(�24,bx%;by%;bxx%;byy%;18,0,128,16,26

��

���box3(bx%,by%,bxx%,byy%)

�bxx%=bx%+bxx%:byy%=by%+byy%

�-�24,bx%-4;by%-4;bxx%+4;byy%+4;18,0,130,16

�(�24,bx%;by%;bxx%;byy%;18,0,131,16,26

��

�d��table_one(tx%,topy%,table_from%,table_to%,lowest%,highest%,number_of%,style%,order%,timer_on%)

��set_table_one

��f%=1�12

�presented%(f%)=f%

��

� height_box%=72*number_of%+20

�0�box2(tx%,topy%-height_box%,400,height_box%)

�,�24,tx%;topy%-height_box%;tx%+400;topy%;

��num%=1�number_of%

�7line$=�(tables%(num%,1))+"x"+�(tables%(num%,2))+"="

�$x_answer%(num%)=(�(line$)*36)+12

�3�enter_line(tx%,tx%+12,topy%-(num%*72),0,line$)

��

��num%=1�number_of%

�>�enter_line(tx%,tx%+x_answer%(num%),topy%-(num%*72),0,"?")

�input$="":in_num%=0:ok%=0

��

��

�in%=�(1)

�9�(in%=13 � �(input$)>0) � in%=127 � (in%>47 � in%<58)

��in%=127 �

�input$="":in_num%=0

�>�enter_line(tx%,tx%+x_answer%(num%),topy%-(num%*72),0,"?")

��

�$�(in%>47 � in%<58) � in_num%<3 �

�input$=input$+�(in%)

�in_num%=in_num%+1

�R�enter_line(tx%,tx%+x_answer%(num%)+((in_num%-1)*36),topy%-(num%*72),0,�(in%))

��

�
�in%=13 �

�	*FX15

� �tables%(num%,3)=�(input$) �

�ok%=1:�1,-15,&2000,20

�in_num%=in_num%+1

�O�enter_line(tx%,tx%+x_answer%(num%)+((in_num%-1)*36),topy%-(num%*72),0,"y")

��

�!�tables%(num%,3)<>�(input$) �

�input$="":in_num%=0

��2,-15,&2000,20

�>�enter_line(tx%,tx%+x_answer%(num%),topy%-(num%*72),0,"n")

��pause(50)

�>�enter_line(tx%,tx%+x_answer%(num%),topy%-(num%*72),0,"?")

��

��

�� ok%=1

��

��

�0��enter_line(base_ex%,ex%,ey%,pause%,enter$)

��enter%=1 � �(enter$)

�E�enter_chr(base_ex%,ex%+(enter%*36),ey%,pause%,�enter$,enter%,1))

��

��

�-��enter_chr(base_x%,x%,y%,pause%,sprite$)

��move%=base_x%+400 � x% �-4

�*�plot_sprite(move%,y%,1,1,1,1,sprite$)

��

��1,-15,&2000,10

��

���intiger_icns

��f%=0 � 12

�9�(U% � (1<<f%))=(1<<f%) firstn%(f%)=1 � firstn%(f%)=0

��

��f%=0 � 12

�;�(W% � (1<<f%))=(1<<f%) secondn%(f%)=1 � secondn%(f%)=0

��

�1�(W% � (1<<13))=(1<<13) mixedn%=1 � mixedn%=0

��

���set_table_one

��intiger_icns

��clear_rnd1

��clear_rnd2

��find%=1 � number_of%

�repeat_error%=0

��

�!repeat_error%=repeat_error%+1

��

�rnd%=(�(13)-1)

�� firstn%(rnd%)=1

�-� rnd_picker1%(rnd%)=0 � repeat_error%=10

�rnd_picker1%(rnd%)=1

�rnd_number1%(find%)=rnd%

�repeat_error%=0

��

�!repeat_error%=repeat_error%+1

��

�rnd%=(�(13)-1)

�� secondn%(rnd%)=1

�-� rnd_picker2%(rnd%)=0 � repeat_error%=10

�rnd_picker2%(rnd%)=1

�rnd_number2%(find%)=rnd%

��

��find%=1 � number_of%

��mixedn%=1 � �(100)>50 �

�1a%=rnd_number1%(find%):b%=rnd_number2%(find%)
1rnd_number2%(find%)=a%:rnd_number1%(find%)=b%

�
(tables%(find%,1)=rnd_number1%(find%)
(tables%(find%,2)=rnd_number2%(find%)
<tables%(find%,3)=rnd_number1%(find%)*rnd_number2%(find%)
�
�
��clear_rnd1
�f%=0�12
	rnd_picker1%(f%)=0

�
�
��clear_rnd2

�f%=0�12
rnd_picker2%(f%)=0
�
�
?��text_box(st_x%,st_y%,length%,height%,just_type%,a$,b$,c$)
3�text_col%=3 �box2(st_x%,st_y%,length%,height%)
3�text_col%=0 �box3(st_x%,st_y%,length%,height%)
 f_width1%=�font_string_w(a$)
 f_width2%=�font_string_w(b$)
 f_width3%=�font_string_w(c$)
f_height%=70
,lines%=3:�c$="":lines%=2:�b$="":lines%=1
.xpos1%=st_x%+((length%-(f_width1%/400))/2)
.xpos2%=st_x%+((length%-(f_width2%/400))/2)
.xpos3%=st_x%+((length%-(f_width3%/400))/2)
�just_type%=2 �
0�xpos1%<xpos2% xpos2%=xpos1% � xpos1%=xpos2%
0�xpos2%<xpos3% xpos3%=xpos2% � xpos2%=xpos3%
0�xpos3%<xpos1% xpos1%=xpos3% � xpos3%=xpos1%
 �
!Typos1%=(st_y%-(f_height%/6)*4)+(height%-(lines%*f_height%))/2+(lines%*f_height%)
"ypos2%=ypos1%-f_height%
#ypos3%=ypos2%-f_height%
$'�text_col%=3 �pri(xpos1%,ypos1%,a$)
%(�text_col%=0 �pri2(xpos1%,ypos1%,a$)
&2�lines%>1 � text_col%=3 �pri(xpos2%,ypos2%,b$)
'3�lines%>1 � text_col%=0 �pri2(xpos2%,ypos2%,b$)
(2�lines%>2 � text_col%=3 �pri(xpos3%,ypos3%,c$)
)3�lines%>2 � text_col%=0 �pri2(xpos3%,ypos3%,c$)
*�
+��pri(x%,y%,a$)
,:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
-#ș"Font_SetFontColours",0,0,1,2
.�0,0,0,0,0,0,0,0
/ș"Font_Paint",,a$,16,x%,y%
0ș"Font_LoseFont",han%
1�
2��pri2(x%,y%,a$)
3:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
4$ș"Font_SetFontColours",0,3,2,-2
5�0,0,0,0,0,0,0,0
6ș"Font_Paint",,a$,16,x%,y%
7ș"Font_LoseFont",han%
8�
9ݤfont_string_w(string$)
:$string%=string$
;:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
<Gș"Font_StringWidth",0,string%,600000,480000,-1,80 � r0,r1,f_width%
=ș"Font_LoseFont",han%
>
=f_width%
?ݤfont_string_h(string$)
@$string%=string$
A:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
BJș"Font_StringWidth",0,string%,600000,480000,-1,80 � r0,r1,r2,f_height
Cș"Font_LoseFont",han%
D=f_height%
E��up_boxes
F�snf%=1 � 5
G�mov_tab%(snf%,4)<0 �
HV� �left_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=0 mov_tab%(snf%,1)=mov_tab%(snf%,1)-8
IE� �left_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=1 mov_tab%(snf%,4)=4
J�
K�mov_tab%(snf%,4)>0 �
LW� �right_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=0 mov_tab%(snf%,1)=mov_tab%(snf%,1)+8
MG� �right_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=1 mov_tab%(snf%,4)=-4
N�
O�mov_tab%(snf%,5)<0 �
PV� �down_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=0 mov_tab%(snf%,2)=mov_tab%(snf%,2)-8
QE� �down_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=1 mov_tab%(snf%,5)=4
R�
S�mov_tab%(snf%,5)>0 �
TT� �up_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=0 mov_tab%(snf%,2)=mov_tab%(snf%,2)+8
UD� �up_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=1 mov_tab%(snf%,5)=-4
V�
W�
X�
Y��draw_boxes
Z�snf%=1 � 5
[K�plot_sprite(mov_tab%(snf%,1),mov_tab%(snf%,2),1,1,1,1,"anbox"+�(snf%))
\�
]�
^��set_num_sprites(numb%)
_maxans%=numb%+5
`�snf%=1 � 5
a�
bpresented%(snf%)=�(maxans%)
c�presented%(snf%)<>numb%
d�
ecorrect%=�(5)
fpresented%(correct%)=numb%
g�snf%=1 � 5
h!ta$(snf%)=�(presented%(snf%))
i�
j!(scale%+0)=1
k!(scale%+4)=1
l!(scale%+8)=1
m!(scale%+12)=1
n�snf%=1 � 5
o/ș"OS_SpriteOp",&13C,sa1%,"anbox"+�(snf%),0
p5ș"OS_SpriteOp",&134,sa1%,"anbox6",0,0,8,scale%,0
q� �(ta$(snf%))=1 �
r:ș"OS_SpriteOp",&134,sa1%,ta$(snf%),4+38,12,8,scale%,0
s�
t� �(ta$(snf%))=2 �
u@ș"OS_SpriteOp",&134,sa1%,�ta$(snf%),1,1),4+19,12,8,scale%,0
vCș"OS_SpriteOp",&134,sa1%,�ta$(snf%),2,1),4+19+38,12,8,scale%,0
w�
x� �(ta$(snf%))=3 �
y=ș"OS_SpriteOp",&134,sa1%,�ta$(snf%),1,1),4,12,8,scale%,0
z@ș"OS_SpriteOp",&134,sa1%,�ta$(snf%),2,1),4+38,12,8,scale%,0
{Cș"OS_SpriteOp",&134,sa1%,�ta$(snf%),3,1),4+38+38,12,8,scale%,0
|�
}!ș"OS_SpriteOp",&13C,sa1%,0,1
~�
�snf%=1 � 5
��
�mov_tab%(snf%,1)=�(500)+532
�mov_tab%(snf%,2)=�(400)+285
�mov_tab%(snf%,3)=0
�#mov_tab%(snf%,4)=((�(2)*2)-3)*8
�#mov_tab%(snf%,5)=((�(2)*2)-3)*8
�8� IF snf%=correct% mov_tab%(snf%,3)=presented%(snf%)
�%mov_tab%(snf%,3)=presented%(snf%)
��� �left_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=0 � �right_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=0 � �up_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=0 � �down_t(mov_tab%(snf%,1),mov_tab%(snf%,2))=0
��
��
�ݤleft_t(x%,y%)
�test%=0
�-� �x%-2,y%+8)<>3 � �x%-2,y%+8)<>4 test%=1
�/� �x%-2,y%+76)<>3 � �x%-2,y%+76)<>4 test%=1
�
=test%
�ݤright_t(x%,y%)
�test%=0
�1� �x%+122,y%+8)<>3 � �x%+122,y%+8)<>4 test%=1
�3� �x%+122,y%+76)<>3 � �x%+122,y%+76)<>4 test%=1
�
=test%
�ݤdown_t(x%,y%)
�test%=0
�1� �x%+112,y%-4)<>3 � �x%+112,y%-4)<>4 test%=1
�-� �x%+8,y%-4)<>3 � �x%+8,y%-4)<>4 test%=1
�
=test%
�ݤup_t(x%,y%)
�test%=0
�3� �x%+112,y%+88)<>3 � �x%+112,y%+88)<>4 test%=1
�/� �x%+8,y%+88)<>3 � �x%+8,y%+88)<>4 test%=1
�
=test%
���moving_tables
�total_possible%=20
�)total_got%=20:total_got_fp=total_got%
��load_sprites("back3")
��merge_sprites("numbers2")
��merge_sprites("buttons")
��set_table_one
�*fx112,2
�$�plot_sprite(0,0,1,1,1,1,"sky2")
�*fx112,1
�$�plot_sprite(0,0,1,1,1,1,"sky2")
�ȗ �
�*FX112,1
��Q%=9 �
�Z�text_box(200,700,880,170,2,"You final test is to translate 'Table","Alien' code.","")
��pause(100)
�_�text_box(200,500,880,170,2,"Messages sent by the 'Table Aliens'","are always in code.","")
��space(900,80,0,0)
�$�plot_sprite(0,0,1,1,1,1,"sky2")
��
�	ct%=1
��snf%=1 � number_of%
�?tables$(snf%)=�(tables%(snf%,1))+"x"+�(tables%(snf%,2))+"="
��screen%=1 � 2
��"FX 112,"+�(screen%)
�C�plot_numbers(100,900-(snf%*64),�(tables$(snf%)),tables$(snf%))
��
��
�wait%=0
��cachesound("inside_ufo",1)
��
�$�set_num_sprites(tables%(ct%,3))
�*fx112,2
�,�plot_numbers(40,900-((ct%-1)*64),1,"-")
�*�plot_numbers(40,900-((ct%)*64),1,"+")
�*fx112,1
�,�plot_numbers(40,900-((ct%-1)*64),1,"-")
�*�plot_numbers(40,900-((ct%)*64),1,"/")
��
��
�&�wait%=0 � �nosound=�:� 1,&17F,1,1
�7wait%=wait%+1:�wait%=10 �cachesound("inside_ufo",1)
�*FX112,1
�*FX113,2
�
�st_pause
�)�plot_sprite(510,260,1,1,1,1,"MOTIF")
��draw_boxes
�
�up_boxes
��en_pause(10)
�*FX113,1
�*FX112,2
�
�st_pause
�)�plot_sprite(510,260,1,1,1,1,"MOTIF")
��draw_boxes
�
�up_boxes
�ȗmx%,my%,mc%
��en_pause(10)
�� mc%=4
�sel%=0:ok%=0
�*FX112,1
�*FX113,1
��snf%=1 � 5
�u�mov_tab%(snf%,1)<mx% � mov_tab%(snf%,1)+120>mx% � mov_tab%(snf%,2)<my% � mov_tab%(snf%,2)+90>my%:sel%=snf%:ok%=1
��
�*FX112,1
�*FX113,2
�)�plot_sprite(510,260,1,1,1,1,"MOTIF")
�� sel%>0
��cachesound("plop",1)
�� 1,&17F,1,1
��pause(10)
�&�tables%(ct%,3)=mov_tab%(sel%,3) �
��cachesound("ok2",1)
�� 1,&17F,1,1
�1tables$(ct%)=tables$(ct%)+�(mov_tab%(sel%,3))
��release
�*FX113,2
�*FX112,1
�)�plot_sprite(510,260,1,1,1,1,"MOTIF")
�K�plot_sprite(mov_tab%(sel%,1),mov_tab%(sel%,2),1,1,1,1,"anbox"+�(sel%))
�*FX113,1
�*FX112,2
�)�plot_sprite(510,260,1,1,1,1,"MOTIF")
�*FX112,1
��pause(50)
�)�plot_sprite(510,260,1,1,1,1,"MOTIF")
�,�whiz(mov_tab%(sel%,1),mov_tab%(sel%,2))
�)�plot_sprite(510,260,1,1,1,1,"MOTIF")
��screen%=1 � 2
��"FX 112,"+�(screen%)
�@�plot_numbers(100,900-(ct%*64),�(tables$(ct%)),tables$(ct%))
��
�
ct%=ct%+1
�$�set_num_sprites(tables%(ct%,3))
��
��cachesound("wrong2",1)
�� 1,&17F,1,1
total_got_fp=total_got_fp-1

wait%=1
�release
�
� ct%-1=number_of%
*FX112,2
*FX113,1
)�plot_sprite(510,260,1,1,1,1,"MOTIF")
*FX112,1
	*FX113,2

)�plot_sprite(510,260,1,1,1,1,"MOTIF")
*fx113,1
total_got%=total_got_fp

�Q%=9 �
�tscore(712,360)
�space(900,80,0,0)
$�plot_sprite(0,0,1,1,1,1,"sky2")
�T%>59 �
U�text_box(200,240,880,170,2,"You are now a qualified special","group member!","")
�space(900,80,0,0)
�
�T%<60 �
s�text_box(100,540,1080,170,2,"You have not scored enough points","to become a member of the Special Group.","")
C�text_box(200,430,880,90,2,"You will need to try again.","","")
�space(900,80,0,0)
�
*fx112,2
$�plot_sprite(0,0,1,1,1,1,"sky2")
fade$="fade"
�fade(0,960,4,0,1,1)
�cachesound("invading2",1)
� 1,&17F,1,1
 H�text_box(200,240,880,100,1,"Watch out for the Table Aliens!","","")
!fade$="fade"
"�fade(0,960,4,0,1,1)
#*fx112,1
$�space(900,80,1,0)
%*FX112,2
&$�plot_sprite(0,0,1,1,1,1,"sky2")
'fade$="fade"
(�fade(0,960,4,0,1,1)
)*FX112,2
*an_x%=-100
+
an_y%=620
,
pam%=4
-sel_sprite$="craft3"
.blank$="blank"
/�start_anim(blank$)
0�cachesound("wind",1)
1�an_x%=-100 � 340 �8
2
�st_pause
3�anim(blank$)
4� 1,&17F,1,1
5/C%=screen_one%:B%=screen_two%:�save_screen%
6 � (an_x% � 50)=0 pam%=pam%+2
7�en_pause(pam%)
8�
9�an_x%=340 � 400 �4
:
�st_pause
;�anim(blank$)
<� 1,&17F,1,1
=/C%=screen_one%:B%=screen_two%:�save_screen%
> � (an_x% � 50)=0 pam%=pam%+2
?�en_pause(pam%)
@�
Afade$="fade"
B$�plot_sprite(0,0,1,1,1,1,"sky2")
C�fade(0,960,4,0,1,1)
D*FX112,1
E�load_sprites("end")
F�merge_sprites("buttons")
G-�plot_sprite_masked(60,300,1,1,1,1,"end")
H�space(900,220,0,0)
I�dt
J�
K�
L��whiz(x%,y%)
M�24,523;273;1191;867;
Nxx%=x%:yy%=y%
OArbx%=x%+122:rby%=y%:rtx%=x%+122:rty%=y%+84:ltx%=x%:lty%=y%+84
P{ix%=4+�(4):iy%=8+�(8):iltx%=4+�(4):ilty%=(8+�(8))*-1:irtx%=(4+�(4))*-1:irty%=(8+�(8))*-1:irbx%=(4+�(4))*-1:irby%=8+�(8)
Q�0,4
R�cachesound("clang_lock",1)
S�worm%=1 � 100
T
�st_pause
U�worm% � 4=1 �1,-15,1,1
V3�plot_rect(x%,y%,rbx%,rby%,rtx%,rty%,ltx%,lty%)
W7x%=x%+ix%:ltx%=ltx%+iltx%:y%=y%+iy%:lty%=lty%+ilty%
XCrbx%=rbx%+irbx%:rtx%=rtx%+irtx%:rby%=rby%+irby%:rty%=rty%+irty%
Y �x%<523 � x%>1191 ix%=ix%*-1
Z(�ltx%<523 � ltx%>1191 iltx%=iltx%*-1
[(�rbx%<523 � rbx%>1191 irbx%=irbx%*-1
\(�rtx%<523 � rtx%>1191 irtx%=irtx%*-1
]�y%<273 � y%>867 iy%=iy%*-1
^'�lty%<273 � lty%>867 ilty%=ilty%*-1
_'�rby%<273 � rby%>867 irby%=irby%*-1
`'�rty%<273 � rty%>867 irty%=irty%*-1
a�en_pause(1)
b�
c�pause(50)
d�26
e�cachesound("ok2",1)
f� 1,&17F,1,1
g�
h4��plot_rect(x%,y%,rbx%,rby%,rtx%,rty%,ltx%,lty%)
i�3,�(15)
j&�x%,y%:�4,rbx%,rby%:�&C5,rtx%,rty%
k�
l&��rotate_numbers(x%,y%,digits%,b$)
m�cachesound("plop",1)
n	a$=""
o�(a$)<digits% �
p�
q
a$="d"+a$
r��(a$)=digits%
s�
t�rline%=1� �(b$)
urnum%=�(�b$,rline%,1))
v�rnum%>48 � rnum%<58 �
w
rbase%=48
x�
y
�st_pause
zc$=�b$,rline%)
{�c$,rline%,1)=�(rbase%)
|$�plot_numbers2(x%,y%,digits%,c$)
}rbase%=rbase%+1
~�1,-15,&3000,10
�en_pause(8)
��rbase%=rnum%
��
�c$=�b$,rline%)
�� 1,&17F,1,1
�$�plot_numbers2(x%,y%,digits%,c$)
��
��
�%��plot_numbers2(x%,y%,digits%,a$)
��pn%=1 � �(a$)
�8�plot_sprite((x%-36)+(pn%*36),y%,1,1,1,1,�a$,pn%,1))
��
��
�$��plot_numbers(x%,y%,digits%,a$)
��(a$)<digits% �
��
�
a$="d"+a$
���(a$)=digits%
��
��pn%=1 � �(a$)
�8�plot_sprite((x%-36)+(pn%*36),y%,1,1,1,1,�a$,pn%,1))
��
��
���set_new_buttons
��but_n%=1�total_but%
�2�but%(but_n%,4)=0 � but%(but_n%,4)=3:colour%=0
� �but%(but_n%,4)=1 :colour%=1
� �but%(but_n%,4)=2 :colour%=3
�b� colour%>0:�but_surround(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),colour%)
�q� colour%>0:�but_centre(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),128,colour%,but$(but_n%))
��26
��
��
���define_buttons(set%)
��set%=1:total_but%=1:��tgC
��set%=2:total_but%=4:��thC
��but_number%=1�total_but%
�z�but%(but_number%,0),but%(but_number%,1),but%(but_number%,2),but%(but_number%,3),but%(but_number%,4),but$(but_number%)
��
��
�� 100,100,200,40,2,Go on
�l� 820,100,200,60,2,value up,820,40,200,60,2,value down,1060,65,200,60,2,Correct!,20,65,200,60,2,Next box
�*��but_surround(bx%,by%,bxx%,byy%,col%)
��0,col%
�x�bx%,by%:�1,bxx%,0:�1,0,(byy%+4):�1,-2,0:�1,0,-(byy%+4):�0,2,(byy%+4):�1,-bxx%,0:�1,0,-(byy%+4):�1,2,0:�1,0,(byy%+4)
�H�vga%=1 �bx%,by%-2:�1,bxx%,0:�1,0,(byy%+8):�1,-bxx%,0:�1,0,-(byy%+8)
��
�4��but_centre(bx%,by%,bxx%,byy%,bcol%,col%,text$)
��0,bcol%:�0,col%
�!�V%=1 correct%=2 � correct%=0
�A�24,bx%+4;by%+4-correct%;bx%+bxx%-4;by%+byy%+correct%;16,26,5
�'left_margin%=(bxx%-(�(text$)*16))/2
�#�bx%+left_margin%,by%+36:�text$
��4
��
�3��plot_sprite_back(x%,y%,xm%,ym%,xd%,yd%,name$)
�Cș"OS_SpriteOp",&128,sprite_area1%,name$ � r0,r1,r2,A%,B%,r5,r6
�8�24,x%-8;y%-8;x%+8+(A%*2);y%+8+(B%*4);18,0,131,16,26
�!(scale%+0)=xm%
�!(scale%+4)=ym%*(vga%+1)
�!(scale%+8)=xd%
�!(scale%+12)=yd%
�4ș"OS_SpriteOp",&134,sa1%,name$,x%,y%,0,scale%,0
��
���check_buttons(an_num%)
�selected%=0
�ȗmx%,my%,mc%
�cb%=�(1)
��cb%=16 cb%=0:�printer
�!�cb%=19 cb%=0:�screen_save(0)
��but_n%=1 � total_but%
��but%(but_n%,4)<2:�:�
�y�mx%<but%(but_n%,0) � mx%>(but%(but_n%,0)+but%(but_n%,2)) � my%<but%(but_n%,1) � my%>(but%(but_n%,1)+but%(but_n%,3))�
ș�but%(but_n%,0)+6,but%(but_n%,1)+8)=4 � but%(but_n%,4)<3:�but_centre(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),128,3,but$(but_n%))
��
ʙ�but%(but_n%,0)+6,but%(but_n%,1)+4)=0 � but%(but_n%,4)<3:�but_centre(but%(but_n%,0),but%(but_n%,1),but%(but_n%,2),but%(but_n%,3),132,3,but$(but_n%))
��mc%=4:selected%=but_n%
��
� �an_num%>0:�sp_anim(an_num%)
��
��
���palette2
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
��19,1,24,136,136,136
��p%,r%,g%,b%
��+5
��p%=0�15
��r%,g%,b%:�p%,r%,g%,b%
��
��
�/� 255,255,255,187,187,187,136,136,136,0,0,0
�)� 0,0,175,0,0,255,0,204,255,255,255,0
�(� 204,204,0,221,0,0,136,17,0,0,153,0
�+� 0,187,34,0,255,0,255,221,170,182,82,0
���start_anim(blank$)
�=ș"OS_SpriteOp",&118,sprite_area1%,sel_sprite$ � r0,r1,r2
�<width%=(!(r2+16)+1)*16:height%=(!(r2+20)+1)*(4*(vga%+1))
�Vș"OS_SpriteOp",&110,sprite_area1%,blank$,0,an_x%,an_y%,an_x%+width%,an_y%+height%
�8�plot_sprite_masked(an_x%,an_y%,1,1,1,1,sel_sprite$)
�an_xx%=an_x%:an_yy%=an_y%
��
���anim(blank$)
�:�plot_sprite_masked(an_xx%,an_yy%,1,1,1,1+vga%,blank$)
�Vș"OS_SpriteOp",&110,sprite_area1%,blank$,0,an_x%,an_y%,an_x%+width%,an_y%+height%
�8�plot_sprite_masked(an_x%,an_y%,1,1,1,1,sel_sprite$)
�an_xx%=an_x%:an_yy%=an_y%
��
���end_anim(blank$)
�:�plot_sprite_masked(an_xx%,an_yy%,1,1,1,1+vga%,blank$)
��
�

00000000  0d 00 00 3c f4 ff 41 44  46 53 3a 3a 48 61 72 64  |...<..ADFS::Hard|
00000010  44 69 73 63 34 2e 24 2e  43 55 52 52 5f 4e 45 57  |Disc4.$.CURR_NEW|
00000020  2e 44 45 4d 4f 50 52 4f  47 2e 21 54 61 62 6c 65  |.DEMOPROG.!Table|
00000030  73 2e 50 74 31 2e 54 61  62 6c 65 73 0d 00 01 21  |s.Pt1.Tables...!|
00000040  c8 9b 20 22 3c 54 61 62  6c 65 41 24 44 69 72 3e  |.. "<TableA$Dir>|
00000050  2e 50 74 31 2e 4c 69 62  72 61 72 79 22 0d 00 02  |.Pt1.Library"...|
00000060  0c 2a 46 58 32 32 35 2c  31 0d 00 03 0c 2a 46 58  |.*FX225,1....*FX|
00000070  32 32 39 2c 30 0d 00 04  0d 2a 46 58 32 32 30 2c  |229,0....*FX220,|
00000080  31 37 0d 00 05 1c ee 85  3a ff 22 46 58 32 32 39  |17......:."FX229|
00000090  2c 31 22 3a ee 85 20 87  3a f2 64 74 7c 4d 0d 00  |,1":.. .:.dt|M..|
000000a0  06 12 2a 4b 45 59 31 20  50 52 4f 43 64 74 7c 4d  |..*KEY1 PROCdt|M|
000000b0  0d 00 07 15 2a 4b 45 59  35 20 50 52 4f 43 73 74  |....*KEY5 PROCst|
000000c0  61 74 73 7c 4d 0d 00 08  51 2a 4b 45 59 39 20 4d  |ats|M...Q*KEY9 M|
000000d0  4f 55 53 45 52 45 43 54  41 4e 47 4c 45 20 30 2c  |OUSERECTANGLE 0,|
000000e0  30 2c 31 32 37 38 2c 39  36 30 3a 52 45 50 45 41  |0,1278,960:REPEA|
000000f0  54 3a 4d 4f 55 53 45 58  2c 59 2c 5a 3a 50 2e 54  |T:MOUSEX,Y,Z:P.T|
00000100  41 42 28 30 2c 30 29 58  2c 59 3a 55 4e 54 49 4c  |AB(0,0)X,Y:UNTIL|
00000110  20 46 41 4c 53 45 0d 00  09 6d 2a 4b 45 59 33 20  | FALSE...m*KEY3 |
00000120  6c 65 6e 67 74 68 24 3d  53 54 52 24 7e 32 36 32  |length$=STR$~262|
00000130  31 34 34 3a 66 72 6f 6d  24 3d 53 54 52 24 7e 62  |144:from$=STR$~b|
00000140  61 63 6b 5f 64 61 74 61  25 3a 66 69 6c 65 24 3d  |ack_data%:file$=|
00000150  22 62 67 64 61 74 61 32  22 3a 4f 53 43 4c 49 22  |"bgdata2":OSCLI"|
00000160  53 41 56 45 20 22 2b 66  69 6c 65 24 2b 22 20 22  |SAVE "+file$+" "|
00000170  2b 66 72 6f 6d 24 2b 22  20 2b 22 2b 6c 65 6e 67  |+from$+" +"+leng|
00000180  74 68 24 0d 00 0a 24 de  20 69 6e 70 75 74 5f 64  |th$...$. input_d|
00000190  69 73 6b 5f 6e 61 6d 65  25 20 32 35 36 2c 6d 6f  |isk_name% 256,mo|
000001a0  75 73 65 25 20 31 36 0d  00 0b 4a de 20 70 64 72  |use% 16...J. pdr|
000001b0  65 63 74 25 20 31 36 2c  70 64 72 65 63 74 32 25  |ect% 16,pdrect2%|
000001c0  20 31 36 2c 70 64 74 72  61 6e 73 25 20 31 36 2c  | 16,pdtrans% 16,|
000001d0  70 64 70 6c 6f 74 25 20  38 2c 63 74 72 61 6e 73  |pdplot% 8,ctrans|
000001e0  25 20 32 35 36 2c 70 61  6c 74 61 62 25 20 32 35  |% 256,paltab% 25|
000001f0  36 0d 00 0c 24 de 20 69  6e 70 75 74 25 20 31 36  |6...$. input% 16|
00000200  2c 6f 75 74 70 75 74 25  20 31 36 2c 73 63 61 6c  |,output% 16,scal|
00000210  65 25 20 31 36 0d 00 0d  19 de 20 62 75 74 25 28  |e% 16..... but%(|
00000220  34 30 2c 34 29 2c 62 75  74 24 28 34 30 29 0d 00  |40,4),but$(40)..|
00000230  0e 11 de 20 61 72 65 61  25 28 31 30 2c 34 29 0d  |... area%(10,4).|
00000240  00 0f 13 de 20 70 6f 69  6e 74 73 25 28 32 2c 31  |.... points%(2,1|
00000250  30 29 0d 00 10 11 de 20  73 74 72 69 6e 67 25 20  |0)..... string% |
00000260  31 32 38 0d 00 11 13 de  20 74 61 62 6c 65 73 25  |128..... tables%|
00000270  28 31 34 2c 35 29 0d 00  12 19 de 20 74 61 62 6c  |(14,5)..... tabl|
00000280  65 73 24 28 31 34 29 2c  74 61 24 28 31 34 29 0d  |es$(14),ta$(14).|
00000290  00 13 13 de 20 6d 6f 76  5f 74 61 62 25 28 35 2c  |.... mov_tab%(5,|
000002a0  35 29 0d 00 14 11 de 20  66 69 72 73 74 6e 25 28  |5)..... firstn%(|
000002b0  31 34 29 0d 00 15 12 de  20 73 65 63 6f 6e 64 6e  |14)..... secondn|
000002c0  25 28 31 34 29 0d 00 16  16 de 20 72 6e 64 5f 70  |%(14)..... rnd_p|
000002d0  69 63 6b 65 72 31 25 28  31 34 29 0d 00 17 16 de  |icker1%(14).....|
000002e0  20 72 6e 64 5f 70 69 63  6b 65 72 32 25 28 31 34  | rnd_picker2%(14|
000002f0  29 0d 00 18 16 de 20 72  6e 64 5f 6e 75 6d 62 65  |)..... rnd_numbe|
00000300  72 31 25 28 31 34 29 0d  00 19 16 de 20 72 6e 64  |r1%(14)..... rnd|
00000310  5f 6e 75 6d 62 65 72 32  25 28 31 34 29 0d 00 1a  |_number2%(14)...|
00000320  14 de 20 70 72 65 73 65  6e 74 65 64 25 28 31 34  |.. presented%(14|
00000330  29 0d 00 1b 13 de 20 78  5f 61 6e 73 77 65 72 25  |)..... x_answer%|
00000340  28 31 34 29 0d 00 1c 14  de 20 63 6f 75 6e 74 5f  |(14)..... count_|
00000350  64 6f 77 6e 25 28 36 29  0d 00 1d 17 de 20 65 6e  |down%(6)..... en|
00000360  74 72 79 5f 61 72 65 61  73 25 28 35 2c 34 29 0d  |try_areas%(5,4).|
00000370  00 1e 0f de 20 64 73 25  28 33 32 2c 32 29 0d 00  |.... ds%(32,2)..|
00000380  1f 11 de 20 63 6f 72 72  25 28 33 30 2c 33 29 0d  |... corr%(30,3).|
00000390  00 20 0f de 20 73 63 61  6c 65 25 20 31 36 0d 00  |. .. scale% 16..|
000003a0  21 0f de 20 69 6e 70 75  74 25 20 31 36 0d 00 22  |!.. input% 16.."|
000003b0  10 de 20 6f 75 74 70 75  74 25 20 31 36 0d 00 23  |.. output% 16..#|
000003c0  0d de 20 73 77 6c 25 28  39 29 0d 00 24 0b 76 67  |.. swl%(9)..$.vg|
000003d0  61 25 3d 56 25 0d 00 25  0c 2a 46 58 31 31 32 2c  |a%=V%..%.*FX112,|
000003e0  31 0d 00 26 2c e7 56 25  3d 30 20 ef 32 34 2c 30  |1..&,.V%=0 .24,0|
000003f0  3b 39 36 30 3b 31 32 37  38 3b 31 30 32 32 3b 31  |;960;1278;1022;1|
00000400  38 2c 30 2c 31 33 31 2c  31 36 2c 32 36 0d 00 27  |8,0,131,16,26..'|
00000410  1d e7 56 25 3d 31 20 ef  20 32 33 2c 31 37 2c 37  |..V%=1 . 23,17,7|
00000420  2c 36 2c 38 3b 31 36 3b  30 3b 0d 00 28 0c 2a 46  |,6,8;16;0;..(.*F|
00000430  58 31 31 32 2c 32 0d 00  29 2c e7 56 25 3d 30 20  |X112,2..),.V%=0 |
00000440  ef 32 34 2c 30 3b 39 36  30 3b 31 32 37 38 3b 31  |.24,0;960;1278;1|
00000450  30 32 32 3b 31 38 2c 30  2c 31 33 31 2c 31 36 2c  |022;18,0,131,16,|
00000460  32 36 0d 00 2a 11 f2 66  69 6e 64 5f 73 63 72 65  |26..*..find_scre|
00000470  65 6e 73 0d 00 2b 13 f2  70 75 6c 6c 5f 76 61 72  |ens..+..pull_var|
00000480  69 61 62 6c 65 73 0d 00  2c 1b f2 69 6e 69 74 69  |iables..,..initi|
00000490  61 6c 69 73 65 5f 73 70  72 69 74 65 5f 61 72 65  |alise_sprite_are|
000004a0  61 0d 00 2d 15 61 64 64  72 73 24 3d c3 7e 6d 5f  |a..-.addrs$=.~m_|
000004b0  63 6f 64 65 31 25 0d 00  2e 2c ff 22 4c 4f 41 44  |code1%...,."LOAD|
000004c0  20 3c 54 61 62 6c 65 41  24 44 69 72 3e 2e 50 74  | <TableA$Dir>.Pt|
000004d0  31 2e 47 65 6e 43 6f 64  65 20 22 2b 61 64 64 72  |1.GenCode "+addr|
000004e0  73 24 0d 00 2f 16 f2 70  75 6c 6c 5f 67 65 6e 5f  |s$../..pull_gen_|
000004f0  63 6f 64 65 5f 76 61 72  0d 00 30 16 73 61 31 25  |code_var..0.sa1%|
00000500  3d 73 70 72 69 74 65 5f  61 72 65 61 31 25 0d 00  |=sprite_area1%..|
00000510  31 17 6e 75 6d 62 65 72  5f 6f 66 25 3d 28 5a 25  |1.number_of%=(Z%|
00000520  2a 33 29 2b 34 0d 00 32  0f 74 69 6d 65 72 5f 6f  |*3)+4..2.timer_o|
00000530  6e 25 3d 31 0d 00 33 0c  73 74 79 6c 65 25 3d 31  |n%=1..3.style%=1|
00000540  0d 00 34 0c 6f 72 64 65  72 25 3d 32 0d 00 35 09  |..4.order%=2..5.|
00000550  2a 66 78 31 35 0d 00 36  0c f2 70 61 6c 65 74 74  |*fx15..6..palett|
00000560  65 0d 00 37 12 ef 31 39  2c 31 2c 32 34 2c 30 2c  |e..7..19,1,24,0,|
00000570  30 2c 30 0d 00 38 0f 74  65 78 74 5f 63 6f 6c 25  |0,0..8.text_col%|
00000580  3d 33 0d 00 39 18 e7 51  25 3d 39 3a f2 6d 6f 76  |=3..9..Q%=9:.mov|
00000590  69 6e 67 5f 74 61 62 6c  65 73 0d 00 3a 0c e7 51  |ing_tables..:..Q|
000005a0  25 3d 32 35 20 8c 0d 00  3b 13 f2 69 6e 74 72 6f  |%=25 ...;..intro|
000005b0  5f 73 63 61 6e 5f 73 6b  79 0d 00 3c 0d f2 73 63  |_scan_sky..<..sc|
000005c0  61 6e 5f 73 6b 79 0d 00  3d 14 f2 74 73 63 6f 72  |an_sky..=..tscor|
000005d0  65 28 35 31 32 2c 33 32  30 29 0d 00 3e 17 f2 73  |e(512,320)..>..s|
000005e0  70 61 63 65 28 39 30 30  2c 31 30 30 2c 30 2c 30  |pace(900,100,0,0|
000005f0  29 0d 00 3f 0f f2 65 73  63 61 70 65 5f 70 6f 64  |)..?..escape_pod|
00000600  0d 00 40 09 51 25 3d 32  36 0d 00 41 05 cd 0d 00  |..@.Q%=26..A....|
00000610  42 23 e7 51 25 3d 32 36  3a d7 22 3c 54 61 62 6c  |B#.Q%=26:."<Tabl|
00000620  65 41 24 44 69 72 3e 2e  50 74 31 2e 6c 69 6e 6b  |eA$Dir>.Pt1.link|
00000630  22 0d 00 43 0d e7 51 25  3d 32 30 31 20 8c 0d 00  |"..C..Q%=201 ...|
00000640  44 12 f2 6d 6f 76 69 6e  67 5f 74 61 62 6c 65 73  |D..moving_tables|
00000650  0d 00 45 14 f2 74 73 63  6f 72 65 28 37 31 32 2c  |..E..tscore(712,|
00000660  33 36 30 29 0d 00 46 17  f2 73 70 61 63 65 28 39  |360)..F..space(9|
00000670  30 30 2c 31 30 30 2c 30  2c 30 29 0d 00 47 0d e7  |00,100,0,0)..G..|
00000680  53 25 3d 31 20 f2 64 74  0d 00 48 1c d7 22 3c 54  |S%=1 .dt..H.."<T|
00000690  61 62 6c 65 41 24 44 69  72 3e 2e 50 74 31 2e 6c  |ableA$Dir>.Pt1.l|
000006a0  69 6e 6b 22 0d 00 49 05  cd 0d 00 4a 0d e7 51 25  |ink"..I....J..Q%|
000006b0  3d 32 30 32 20 8c 0d 00  4b 0d f2 73 63 61 6e 5f  |=202 ...K..scan_|
000006c0  73 6b 79 0d 00 4c 14 f2  74 73 63 6f 72 65 28 35  |sky..L..tscore(5|
000006d0  31 32 2c 33 30 30 29 0d  00 4d 17 f2 73 70 61 63  |12,300)..M..spac|
000006e0  65 28 39 30 30 2c 31 30  30 2c 30 2c 30 29 0d 00  |e(900,100,0,0)..|
000006f0  4e 0d e7 53 25 3d 31 20  f2 64 74 0d 00 4f 1c d7  |N..S%=1 .dt..O..|
00000700  22 3c 54 61 62 6c 65 41  24 44 69 72 3e 2e 50 74  |"<TableA$Dir>.Pt|
00000710  31 2e 6c 69 6e 6b 22 0d  00 50 05 cd 0d 00 51 0d  |1.link"..P....Q.|
00000720  e7 51 25 3d 32 31 33 20  8c 0d 00 52 0f f2 74 69  |.Q%=213 ...R..ti|
00000730  6d 65 64 5f 74 65 73 74  0d 00 53 14 f2 74 73 63  |med_test..S..tsc|
00000740  6f 72 65 28 38 34 30 2c  34 30 30 29 0d 00 54 17  |ore(840,400)..T.|
00000750  f2 73 70 61 63 65 28 39  30 30 2c 31 30 30 2c 30  |.space(900,100,0|
00000760  2c 30 29 0d 00 55 0d e7  53 25 3d 31 20 f2 64 74  |,0)..U..S%=1 .dt|
00000770  0d 00 56 1c d7 22 3c 54  61 62 6c 65 41 24 44 69  |..V.."<TableA$Di|
00000780  72 3e 2e 50 74 31 2e 6c  69 6e 6b 22 0d 00 57 05  |r>.Pt1.link"..W.|
00000790  cd 0d 00 58 05 e0 0d 00  59 10 dd f2 74 69 6d 65  |...X....Y...time|
000007a0  64 5f 74 65 73 74 0d 00  5a 0d f2 70 61 6c 65 74  |d_test..Z..palet|
000007b0  74 65 32 0d 00 5b 12 ef  31 39 2c 31 2c 32 34 2c  |te2..[..19,1,24,|
000007c0  30 2c 30 2c 30 0d 00 5c  1e 74 6f 74 61 6c 5f 70  |0,0,0..\.total_p|
000007d0  6f 73 73 69 62 6c 65 25  3d 6e 75 6d 62 65 72 5f  |ossible%=number_|
000007e0  6f 66 25 0d 00 5d 31 74  6f 74 61 6c 5f 67 6f 74  |of%..]1total_got|
000007f0  25 3d 6e 75 6d 62 65 72  5f 6f 66 25 3a 74 6f 74  |%=number_of%:tot|
00000800  61 6c 5f 67 6f 74 5f 66  70 3d 74 6f 74 61 6c 5f  |al_got_fp=total_|
00000810  67 6f 74 25 0d 00 5e 1a  f2 6c 6f 61 64 5f 73 70  |got%..^..load_sp|
00000820  72 69 74 65 73 28 22 74  69 6d 65 72 22 29 0d 00  |rites("timer")..|
00000830  5f 1d f2 6d 65 72 67 65  5f 73 70 72 69 74 65 73  |_..merge_sprites|
00000840  28 22 6e 75 6d 62 65 72  73 22 29 0d 00 60 1d f2  |("numbers")..`..|
00000850  6d 65 72 67 65 5f 73 70  72 69 74 65 73 28 22 62  |merge_sprites("b|
00000860  75 74 74 6f 6e 73 22 29  0d 00 61 0c 2a 66 78 31  |uttons")..a.*fx1|
00000870  31 32 2c 32 0d 00 62 0c  2a 66 78 31 31 33 2c 31  |12,2..b.*fx113,1|
00000880  0d 00 63 1a ef 32 36 2c  31 38 2c 30 2c 31 32 38  |..c..26,18,0,128|
00000890  2c 31 36 2c 31 38 2c 30  2c 34 0d 00 64 1d e7 20  |,16,18,0,4..d.. |
000008a0  4f 25 3d 31 20 74 69 6d  65 5f 70 65 72 5f 74 61  |O%=1 time_per_ta|
000008b0  62 6c 65 25 3d 32 30 0d  00 65 1d e7 20 4f 25 3d  |ble%=20..e.. O%=|
000008c0  32 20 74 69 6d 65 5f 70  65 72 5f 74 61 62 6c 65  |2 time_per_table|
000008d0  25 3d 31 35 0d 00 66 1d  e7 20 4f 25 3d 33 20 74  |%=15..f.. O%=3 t|
000008e0  69 6d 65 5f 70 65 72 5f  74 61 62 6c 65 25 3d 31  |ime_per_table%=1|
000008f0  31 0d 00 67 1c e7 20 4f  25 3d 34 20 74 69 6d 65  |1..g.. O%=4 time|
00000900  5f 70 65 72 5f 74 61 62  6c 65 25 3d 38 0d 00 68  |_per_table%=8..h|
00000910  1c e7 20 4f 25 3d 35 20  74 69 6d 65 5f 70 65 72  |.. O%=5 time_per|
00000920  5f 74 61 62 6c 65 25 3d  36 0d 00 69 59 f2 74 65  |_table%=6..iY.te|
00000930  78 74 5f 62 6f 78 28 31  30 30 2c 35 30 30 2c 31  |xt_box(100,500,1|
00000940  30 38 30 2c 31 38 30 2c  32 2c 22 51 75 69 63 6b  |080,180,2,"Quick|
00000950  6c 79 20 74 79 70 65 20  69 6e 20 74 68 65 20 61  |ly type in the a|
00000960  6e 73 77 65 72 73 20 61  6e 64 22 2c 22 74 68 65  |nswers and","the|
00000970  6e 20 70 72 65 73 73 20  65 6e 74 65 72 22 2c 22  |n press enter","|
00000980  22 29 0d 00 6a 62 f2 74  65 78 74 5f 62 6f 78 28  |")..jb.text_box(|
00000990  31 30 30 2c 37 30 30 2c  31 30 38 30 2c 31 30 30  |100,700,1080,100|
000009a0  2c 32 2c 22 59 6f 75 20  68 61 76 65 20 22 2b c3  |,2,"You have "+.|
000009b0  28 74 69 6d 65 5f 70 65  72 5f 74 61 62 6c 65 25  |(time_per_table%|
000009c0  29 2b 22 20 73 65 63 6f  6e 64 73 20 66 6f 72 20  |)+" seconds for |
000009d0  65 61 63 68 20 61 6e 73  77 65 72 21 22 2c 22 22  |each answer!",""|
000009e0  2c 22 22 29 0d 00 6b 10  66 61 64 65 24 3d 22 66  |,"")..k.fade$="f|
000009f0  61 64 65 22 0d 00 6c 18  f2 66 61 64 65 28 30 2c  |ade"..l..fade(0,|
00000a00  39 36 30 2c 34 2c 30 2c  31 2c 31 29 0d 00 6d 0c  |960,4,0,1,1)..m.|
00000a10  2a 46 58 31 31 33 2c 31  0d 00 6e 0c 2a 46 58 31  |*FX113,1..n.*FX1|
00000a20  31 32 2c 31 0d 00 6f 17  f2 73 70 61 63 65 28 39  |12,1..o..space(9|
00000a30  30 30 2c 31 30 30 2c 30  2c 30 29 0d 00 70 1a ef  |00,100,0,0)..p..|
00000a40  32 36 2c 31 38 2c 30 2c  31 32 38 2c 31 36 2c 31  |26,18,0,128,16,1|
00000a50  38 2c 30 2c 34 0d 00 71  35 f2 74 65 78 74 5f 62  |8,0,4..q5.text_b|
00000a60  6f 78 28 34 30 30 2c 36  34 30 2c 34 38 30 2c 31  |ox(400,640,480,1|
00000a70  30 30 2c 32 2c 22 47 65  74 20 72 65 61 64 79 2e  |00,2,"Get ready.|
00000a80  2e 2e 22 2c 22 22 2c 22  22 29 0d 00 72 0f f2 70  |..","","")..r..p|
00000a90  61 75 73 65 28 32 30 30  29 0d 00 73 2e f2 74 65  |ause(200)..s..te|
00000aa0  78 74 5f 62 6f 78 28 34  30 30 2c 35 30 30 2c 34  |xt_box(400,500,4|
00000ab0  38 30 2c 31 30 30 2c 32  2c 22 47 6f 2e 2e 2e 22  |80,100,2,"Go..."|
00000ac0  2c 22 22 2c 22 22 29 0d  00 74 0e f2 70 61 75 73  |,"","")..t..paus|
00000ad0  65 28 35 30 29 0d 00 75  1a ef 32 36 2c 31 38 2c  |e(50)..u..26,18,|
00000ae0  30 2c 31 32 38 2c 31 36  2c 31 38 2c 30 2c 34 0d  |0,128,16,18,0,4.|
00000af0  00 76 27 74 69 6d 65 5f  70 65 72 5f 74 61 62 6c  |.v'time_per_tabl|
00000b00  65 25 3d 74 69 6d 65 5f  70 65 72 5f 74 61 62 6c  |e%=time_per_tabl|
00000b10  65 25 2a 31 30 30 0d 00  77 63 f2 74 61 62 6c 65  |e%*100..wc.table|
00000b20  5f 74 68 72 65 65 28 34  35 30 2c 38 38 36 2c 74  |_three(450,886,t|
00000b30  61 62 6c 65 5f 66 72 6f  6d 25 2c 74 61 62 6c 65  |able_from%,table|
00000b40  5f 74 6f 25 2c 6c 6f 77  65 73 74 25 2c 68 69 67  |_to%,lowest%,hig|
00000b50  68 65 73 74 25 2c 6e 75  6d 62 65 72 5f 6f 66 25  |hest%,number_of%|
00000b60  2c 73 74 79 6c 65 25 2c  6f 72 64 65 72 25 2c 74  |,style%,order%,t|
00000b70  69 6d 65 72 5f 6f 6e 25  29 0d 00 78 1b 74 6f 74  |imer_on%)..x.tot|
00000b80  61 6c 5f 67 6f 74 25 3d  74 6f 74 61 6c 5f 67 6f  |al_got%=total_go|
00000b90  74 5f 66 70 0d 00 79 05  e1 0d 00 7a 14 dd f2 69  |t_fp..y....z...i|
00000ba0  6e 74 72 6f 5f 73 63 61  6e 5f 73 6b 79 0d 00 7b  |ntro_scan_sky..{|
00000bb0  0d f2 70 61 6c 65 74 74  65 32 0d 00 7c 12 ef 31  |..palette2..|..1|
00000bc0  39 2c 31 2c 32 34 2c 30  2c 30 2c 30 0d 00 7d 1e  |9,1,24,0,0,0..}.|
00000bd0  f2 6d 65 72 67 65 5f 73  70 72 69 74 65 73 28 22  |.merge_sprites("|
00000be0  6e 75 6d 62 65 72 73 32  22 29 0d 00 7e 1d f2 6d  |numbers2")..~..m|
00000bf0  65 72 67 65 5f 73 70 72  69 74 65 73 28 22 62 75  |erge_sprites("bu|
00000c00  74 74 6f 6e 73 22 29 0d  00 7f 0c 2a 66 78 31 31  |ttons")....*fx11|
00000c10  32 2c 32 0d 00 80 0c 2a  66 78 31 31 33 2c 31 0d  |2,2....*fx113,1.|
00000c20  00 81 1a ef 32 36 2c 31  38 2c 30 2c 31 33 31 2c  |....26,18,0,131,|
00000c30  31 36 2c 31 38 2c 30 2c  34 0d 00 82 10 e3 66 25  |16,18,0,4.....f%|
00000c40  3d 31 20 b8 20 31 30 30  30 0d 00 83 17 f0 36 39  |=1 . 1000.....69|
00000c50  2c b3 28 31 32 37 38 29  2c b3 28 31 30 32 34 29  |,.(1278),.(1024)|
00000c60  0d 00 84 05 ed 0d 00 85  3b f2 70 72 69 32 28 32  |........;.pri2(2|
00000c70  33 30 2c 38 30 30 2c 22  57 69 6c 6c 20 79 6f 75  |30,800,"Will you|
00000c80  20 65 73 63 61 70 65 20  74 68 65 20 61 6c 69 65  | escape the alie|
00000c90  6e 20 73 70 61 63 65 20  63 72 61 66 74 3f 22 29  |n space craft?")|
00000ca0  0d 00 86 10 66 61 64 65  24 3d 22 66 61 64 65 22  |....fade$="fade"|
00000cb0  0d 00 87 18 f2 66 61 64  65 28 30 2c 39 36 30 2c  |.....fade(0,960,|
00000cc0  34 2c 30 2c 31 2c 31 29  0d 00 88 0c f2 70 61 6c  |4,0,1,1).....pal|
00000cd0  65 74 74 65 0d 00 89 0c  2a 66 78 31 31 32 2c 31  |ette....*fx112,1|
00000ce0  0d 00 8a 0f f2 70 61 75  73 65 28 32 30 30 29 0d  |.....pause(200).|
00000cf0  00 8b 3f f2 70 72 69 32  28 32 33 30 2c 36 38 30  |..?.pri2(230,680|
00000d00  2c 22 54 68 69 73 20 69  73 20 70 61 72 74 20 6f  |,"This is part o|
00000d10  66 20 66 6f 75 72 20 61  64 76 65 6e 74 75 72 65  |f four adventure|
00000d20  73 2c 20 69 6e 63 6c 75  64 69 6e 67 22 29 0d 00  |s, including")..|
00000d30  8c 3a f2 70 72 69 32 28  32 33 30 2c 36 31 30 2c  |.:.pri2(230,610,|
00000d40  22 74 68 69 72 74 65 65  6e 20 64 69 66 66 65 72  |"thirteen differ|
00000d50  65 6e 74 20 74 61 62 6c  65 73 20 61 63 74 69 76  |ent tables activ|
00000d60  69 74 69 65 73 2e 22 29  0d 00 8d 17 f2 73 70 61  |ities.").....spa|
00000d70  63 65 28 39 30 30 2c 31  30 30 2c 30 2c 30 29 0d  |ce(900,100,0,0).|
00000d80  00 8e 3a f2 70 72 69 32  28 32 33 30 2c 35 32 30  |..:.pri2(230,520|
00000d90  2c 22 54 68 65 20 66 75  6c 6c 20 70 72 6f 67 72  |,"The full progr|
00000da0  61 6d 20 69 73 20 61 76  61 69 6c 61 62 6c 65 20  |am is available |
00000db0  66 72 6f 6d 2e 2e 2e 22  29 0d 00 8f 2a f2 70 72  |from...")...*.pr|
00000dc0  69 32 28 34 35 30 2c 34  35 30 2c 22 53 68 65 72  |i2(450,450,"Sher|
00000dd0  73 74 6f 6e 20 53 6f 66  74 77 61 72 65 20 4c 74  |ston Software Lt|
00000de0  64 22 29 0d 00 90 1d f2  70 72 69 32 28 34 35 30  |d").....pri2(450|
00000df0  2c 33 38 30 2c 22 53 68  65 72 73 74 6f 6e 22 29  |,380,"Sherston")|
00000e00  0d 00 91 1f f2 70 72 69  32 28 34 35 30 2c 33 31  |.....pri2(450,31|
00000e10  30 2c 22 4d 61 6c 6d 65  73 62 75 72 79 22 29 0d  |0,"Malmesbury").|
00000e20  00 92 1e f2 70 72 69 32  28 34 35 30 2c 32 34 30  |....pri2(450,240|
00000e30  2c 22 57 69 6c 74 73 68  69 72 65 22 29 0d 00 93  |,"Wiltshire")...|
00000e40  1c f2 70 72 69 32 28 34  35 30 2c 31 37 30 2c 22  |..pri2(450,170,"|
00000e50  53 4e 31 36 4f 4c 48 22  29 0d 00 94 17 f2 73 70  |SN16OLH").....sp|
00000e60  61 63 65 28 39 30 30 2c  31 30 30 2c 30 2c 30 29  |ace(900,100,0,0)|
00000e70  0d 00 95 0b 6d 69 73 74  61 6b 65 0d 00 96 05 e1  |....mistake.....|
00000e80  0d 00 97 10 dd f2 65 73  63 61 70 65 5f 70 6f 64  |......escape_pod|
00000e90  0d 00 98 1b f2 6c 6f 61  64 5f 73 70 72 69 74 65  |.....load_sprite|
00000ea0  73 28 22 65 73 63 61 70  65 22 29 0d 00 99 0c 2a  |s("escape")....*|
00000eb0  66 78 31 31 32 2c 32 0d  00 9a 0f e6 30 2c 31 33  |fx112,2.....0,13|
00000ec0  31 3a e6 30 2c 37 0d 00  9b 05 da 0d 00 9c 0e e3  |1:.0,7..........|
00000ed0  66 25 3d 31 b8 32 30 30  30 0d 00 9d 17 f0 36 39  |f%=1.2000.....69|
00000ee0  2c b3 28 31 32 38 30 29  2c b3 28 31 30 32 34 29  |,.(1280),.(1024)|
00000ef0  0d 00 9e 05 ed 0d 00 9f  1b f2 63 61 63 68 65 73  |..........caches|
00000f00  6f 75 6e 64 28 22 73 63  69 66 69 33 22 2c 31 29  |ound("scifi3",1)|
00000f10  0d 00 a0 29 f2 70 6c 6f  74 5f 73 70 72 69 74 65  |...).plot_sprite|
00000f20  28 31 32 38 2c 35 31 32  2c 31 2c 31 2c 31 2c 31  |(128,512,1,1,1,1|
00000f30  2c 22 63 72 61 66 74 22  29 0d 00 a1 30 42 25 3d  |,"craft")...0B%=|
00000f40  73 63 72 65 65 6e 5f 74  77 6f 25 3a 43 25 3d 73  |screen_two%:C%=s|
00000f50  63 72 65 65 6e 5f 6f 6e  65 25 3a d6 20 73 61 76  |creen_one%:. sav|
00000f60  65 5f 73 63 72 65 65 6e  25 0d 00 a2 0c 2a 66 78  |e_screen%....*fx|
00000f70  31 31 32 2c 32 0d 00 a3  0d e3 66 25 3d 31 20 b8  |112,2.....f%=1 .|
00000f80  20 35 0d 00 a4 10 d4 20  31 2c 2d 31 35 2c 32 30  | 5..... 1,-15,20|
00000f90  2c 31 0d 00 a5 0d f2 70  61 75 73 65 28 32 29 0d  |,1.....pause(2).|
00000fa0  00 a6 2e f2 70 6c 6f 74  5f 73 70 72 69 74 65 28  |....plot_sprite(|
00000fb0  33 33 32 2c 35 33 30 2c  31 2c 31 2c 31 2c 31 2c  |332,530,1,1,1,1,|
00000fc0  22 64 6f 6f 72 22 2b c3  28 66 25 29 29 0d 00 a7  |"door"+.(f%))...|
00000fd0  30 42 25 3d 73 63 72 65  65 6e 5f 74 77 6f 25 3a  |0B%=screen_two%:|
00000fe0  43 25 3d 73 63 72 65 65  6e 5f 6f 6e 65 25 3a d6  |C%=screen_one%:.|
00000ff0  20 73 61 76 65 5f 73 63  72 65 65 6e 25 0d 00 a8  | save_screen%...|
00001000  0e f2 70 61 75 73 65 28  32 30 29 0d 00 a9 05 ed  |..pause(20).....|
00001010  0d 00 aa 17 61 6e 5f 78  25 3d 33 33 32 3a 61 6e  |....an_x%=332:an|
00001020  5f 79 25 3d 35 33 30 0d  00 ab 15 73 65 6c 5f 73  |_y%=530....sel_s|
00001030  70 72 69 74 65 24 3d 22  70 6f 64 22 0d 00 ac 12  |prite$="pod"....|
00001040  62 6c 61 6e 6b 24 3d 22  62 6c 61 6e 6b 22 0d 00  |blank$="blank"..|
00001050  ad 0c 2a 66 78 31 31 32  2c 32 0d 00 ae 16 ef 20  |..*fx112,2..... |
00001060  32 34 2c 34 3b 34 3b 31  32 37 30 3b 35 37 30 3b  |24,4;4;1270;570;|
00001070  0d 00 af 17 f2 73 74 61  72 74 5f 61 6e 69 6d 28  |.....start_anim(|
00001080  62 6c 61 6e 6b 24 29 0d  00 b0 19 f2 63 61 63 68  |blank$).....cach|
00001090  65 73 6f 75 6e 64 28 22  77 69 6e 64 22 2c 31 29  |esound("wind",1)|
000010a0  0d 00 b1 13 e3 66 25 3d  35 37 38 20 b8 20 30 20  |.....f%=578 . 0 |
000010b0  88 2d 38 0d 00 b2 0d f2  73 74 5f 70 61 75 73 65  |.-8.....st_pause|
000010c0  0d 00 b3 10 d4 20 31 2c  2d 31 35 2c 32 30 2c 31  |..... 1,-15,20,1|
000010d0  0d 00 b4 0c 61 6e 5f 79  25 3d 66 25 0d 00 b5 11  |....an_y%=f%....|
000010e0  f2 61 6e 69 6d 28 62 6c  61 6e 6b 24 29 0d 00 b6  |.anim(blank$)...|
000010f0  30 f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 6d 61  |0.plot_sprite_ma|
00001100  73 6b 65 64 28 33 33 32  2c 35 33 30 2c 31 2c 31  |sked(332,530,1,1|
00001110  2c 31 2c 31 2c 22 64 6f  6f 72 36 22 29 0d 00 b7  |,1,1,"door6")...|
00001120  30 42 25 3d 73 63 72 65  65 6e 5f 74 77 6f 25 3a  |0B%=screen_two%:|
00001130  43 25 3d 73 63 72 65 65  6e 5f 6f 6e 65 25 3a d6  |C%=screen_one%:.|
00001140  20 73 61 76 65 5f 73 63  72 65 65 6e 25 0d 00 b8  | save_screen%...|
00001150  10 f2 65 6e 5f 70 61 75  73 65 28 36 29 0d 00 b9  |..en_pause(6)...|
00001160  05 ed 0d 00 ba 15 f2 65  6e 64 5f 61 6e 69 6d 28  |.......end_anim(|
00001170  62 6c 61 6e 6b 24 29 0d  00 bb 30 42 25 3d 73 63  |blank$)...0B%=sc|
00001180  72 65 65 6e 5f 74 77 6f  25 3a 43 25 3d 73 63 72  |reen_two%:C%=scr|
00001190  65 65 6e 5f 6f 6e 65 25  3a d6 20 73 61 76 65 5f  |een_one%:. save_|
000011a0  73 63 72 65 65 6e 25 0d  00 bc 0c 2a 66 78 31 31  |screen%....*fx11|
000011b0  32 2c 32 0d 00 bd 1b f2  63 61 63 68 65 73 6f 75  |2,2.....cachesou|
000011c0  6e 64 28 22 73 63 69 66  69 33 22 2c 31 29 0d 00  |nd("scifi3",1)..|
000011d0  be 11 e3 66 25 3d 35 20  b8 20 31 20 88 2d 31 0d  |...f%=5 . 1 .-1.|
000011e0  00 bf 10 d4 20 31 2c 2d  31 35 2c 32 30 2c 31 0d  |.... 1,-15,20,1.|
000011f0  00 c0 0d f2 70 61 75 73  65 28 32 29 0d 00 c1 2e  |....pause(2)....|
00001200  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 33 33 32  |.plot_sprite(332|
00001210  2c 35 33 30 2c 31 2c 31  2c 31 2c 31 2c 22 64 6f  |,530,1,1,1,1,"do|
00001220  6f 72 22 2b c3 28 66 25  29 29 0d 00 c2 30 42 25  |or"+.(f%))...0B%|
00001230  3d 73 63 72 65 65 6e 5f  74 77 6f 25 3a 43 25 3d  |=screen_two%:C%=|
00001240  73 63 72 65 65 6e 5f 6f  6e 65 25 3a d6 20 73 61  |screen_one%:. sa|
00001250  76 65 5f 73 63 72 65 65  6e 25 0d 00 c3 0e f2 70  |ve_screen%.....p|
00001260  61 75 73 65 28 32 30 29  0d 00 c4 05 ed 0d 00 c5  |ause(20)........|
00001270  0c 2a 46 58 31 31 32 2c  31 0d 00 c6 5f f2 74 65  |.*FX112,1..._.te|
00001280  78 74 5f 62 6f 78 28 35  30 30 2c 31 36 30 2c 37  |xt_box(500,160,7|
00001290  32 30 2c 32 31 30 2c 32  2c 22 57 65 6c 6c 20 64  |20,210,2,"Well d|
000012a0  6f 6e 65 20 79 6f 75 20  68 61 76 65 20 65 73 63  |one you have esc|
000012b0  61 70 65 64 22 2c 22 74  68 65 20 54 61 62 6c 65  |aped","the Table|
000012c0  20 41 6c 69 65 6e 20 73  70 61 63 65 20 63 72 61  | Alien space cra|
000012d0  66 74 2e 22 2c 22 22 29  0d 00 c7 0f f2 70 61 75  |ft.","").....pau|
000012e0  73 65 28 32 30 30 29 0d  00 c8 05 e1 0d 00 c9 0e  |se(200).........|
000012f0  dd f2 73 63 61 6e 5f 73  6b 79 0d 00 ca 16 74 6f  |..scan_sky....to|
00001300  74 61 6c 5f 70 6f 73 73  69 62 6c 65 25 3d 32 30  |tal_possible%=20|
00001310  0d 00 cb 29 74 6f 74 61  6c 5f 67 6f 74 25 3d 32  |...)total_got%=2|
00001320  30 3a 74 6f 74 61 6c 5f  67 6f 74 5f 66 70 3d 74  |0:total_got_fp=t|
00001330  6f 74 61 6c 5f 67 6f 74  25 0d 00 cc 1b f2 6c 6f  |otal_got%.....lo|
00001340  61 64 5f 73 70 72 69 74  65 73 28 22 6c 61 75 6e  |ad_sprites("laun|
00001350  63 68 22 29 0d 00 cd 1e  f2 6d 65 72 67 65 5f 73  |ch").....merge_s|
00001360  70 72 69 74 65 73 28 22  6e 75 6d 62 65 72 73 32  |prites("numbers2|
00001370  22 29 0d 00 ce 1d f2 6d  65 72 67 65 5f 73 70 72  |").....merge_spr|
00001380  69 74 65 73 28 22 62 75  74 74 6f 6e 73 22 29 0d  |ites("buttons").|
00001390  00 cf 0c 2a 66 78 31 31  32 2c 32 0d 00 d0 0c 2a  |...*fx112,2....*|
000013a0  66 78 31 31 33 2c 31 0d  00 d1 1a ef 32 36 2c 31  |fx113,1.....26,1|
000013b0  38 2c 30 2c 31 33 31 2c  31 36 2c 31 38 2c 30 2c  |8,0,131,16,18,0,|
000013c0  34 0d 00 d2 10 e3 66 25  3d 31 20 b8 20 31 30 30  |4.....f%=1 . 100|
000013d0  30 0d 00 d3 17 f0 36 39  2c b3 28 31 32 37 38 29  |0.....69,.(1278)|
000013e0  2c b3 28 31 30 32 34 29  0d 00 d4 05 ed 0d 00 d5  |,.(1024)........|
000013f0  23 ef 32 34 2c 31 34 30  3b 31 30 30 3b 34 34 30  |#.24,140;100;440|
00001400  3b 37 34 30 3b 31 38 2c  30 2c 31 32 39 2c 31 36  |;740;18,0,129,16|
00001410  0d 00 d6 26 ef 32 34 2c  31 34 38 3b 31 30 38 3b  |...&.24,148;108;|
00001420  34 33 32 3b 37 33 32 3b  31 38 2c 30 2c 31 33 31  |432;732;18,0,131|
00001430  2c 31 36 2c 32 36 0d 00  d7 2b f2 70 72 69 32 28  |,16,26...+.pri2(|
00001440  36 30 30 2c 37 35 30 2c  22 45 6e 74 65 72 20 74  |600,750,"Enter t|
00001450  68 65 20 6c 61 75 6e 63  68 20 63 6f 64 65 73 22  |he launch codes"|
00001460  29 0d 00 d8 2a f2 70 72  69 32 28 36 30 30 2c 36  |)...*.pri2(600,6|
00001470  38 30 2c 22 61 6e 64 20  74 68 65 6e 20 70 72 65  |80,"and then pre|
00001480  73 73 20 65 6e 74 65 72  2e 22 29 0d 00 d9 10 66  |ss enter.")....f|
00001490  61 64 65 24 3d 22 66 61  64 65 22 0d 00 da 18 f2  |ade$="fade".....|
000014a0  66 61 64 65 28 30 2c 39  36 30 2c 34 2c 30 2c 31  |fade(0,960,4,0,1|
000014b0  2c 31 29 0d 00 db 0c f2  70 61 6c 65 74 74 65 0d  |,1).....palette.|
000014c0  00 dc 0c 2a 46 58 31 31  33 2c 31 0d 00 dd 0c 2a  |...*FX113,1....*|
000014d0  46 58 31 31 32 2c 31 0d  00 de 17 f2 73 70 61 63  |FX112,1.....spac|
000014e0  65 28 39 30 30 2c 31 30  30 2c 30 2c 30 29 0d 00  |e(900,100,0,0)..|
000014f0  df 24 ef 32 34 2c 35 34  30 3b 31 30 30 3b 31 31  |.$.24,540;100;11|
00001500  30 30 3b 39 32 30 3b 31  38 2c 30 2c 31 32 39 2c  |00;920;18,0,129,|
00001510  31 36 0d 00 e0 27 ef 32  34 2c 35 34 38 3b 31 30  |16...'.24,548;10|
00001520  38 3b 31 30 39 32 3b 39  31 32 3b 31 38 2c 30 2c  |8;1092;912;18,0,|
00001530  31 33 31 2c 31 36 2c 32  36 0d 00 e1 61 f2 74 61  |131,16,26...a.ta|
00001540  62 6c 65 5f 74 77 6f 28  35 39 30 2c 38 38 36 2c  |ble_two(590,886,|
00001550  74 61 62 6c 65 5f 66 72  6f 6d 25 2c 74 61 62 6c  |table_from%,tabl|
00001560  65 5f 74 6f 25 2c 6c 6f  77 65 73 74 25 2c 68 69  |e_to%,lowest%,hi|
00001570  67 68 65 73 74 25 2c 6e  75 6d 62 65 72 5f 6f 66  |ghest%,number_of|
00001580  25 2c 73 74 79 6c 65 25  2c 6f 72 64 65 72 25 2c  |%,style%,order%,|
00001590  74 69 6d 65 72 5f 6f 6e  25 29 0d 00 e2 1b 74 6f  |timer_on%)....to|
000015a0  74 61 6c 5f 67 6f 74 25  3d 74 6f 74 61 6c 5f 67  |tal_got%=total_g|
000015b0  6f 74 5f 66 70 0d 00 e3  0c 2a 66 78 31 31 32 2c  |ot_fp....*fx112,|
000015c0  32 0d 00 e4 0c 2a 66 78  31 31 33 2c 31 0d 00 e5  |2....*fx113,1...|
000015d0  1a ef 32 36 2c 31 38 2c  30 2c 31 33 31 2c 31 36  |..26,18,0,131,16|
000015e0  2c 31 38 2c 30 2c 34 0d  00 e6 10 e3 66 25 3d 31  |,18,0,4.....f%=1|
000015f0  20 b8 20 31 30 30 30 0d  00 e7 17 f0 36 39 2c b3  | . 1000.....69,.|
00001600  28 31 32 37 38 29 2c b3  28 31 30 32 34 29 0d 00  |(1278),.(1024)..|
00001610  e8 05 ed 0d 00 e9 3e f2  74 65 78 74 5f 62 6f 78  |......>.text_box|
00001620  28 32 30 30 2c 38 35 30  2c 38 38 30 2c 39 30 2c  |(200,850,880,90,|
00001630  32 2c 22 4c 61 75 6e 63  68 20 63 6f 64 65 73 20  |2,"Launch codes |
00001640  61 63 63 65 70 74 65 64  2e 22 2c 22 22 2c 22 22  |accepted.","",""|
00001650  29 0d 00 ea 10 66 61 64  65 24 3d 22 66 61 64 65  |)....fade$="fade|
00001660  22 0d 00 eb 18 f2 66 61  64 65 28 30 2c 39 36 30  |".....fade(0,960|
00001670  2c 34 2c 30 2c 31 2c 31  29 0d 00 ec 1e f2 63 61  |,4,0,1,1).....ca|
00001680  63 68 65 73 6f 75 6e 64  28 22 69 6e 76 61 64 69  |chesound("invadi|
00001690  6e 67 32 22 2c 31 29 0d  00 ed 0e e3 66 25 3d 31  |ng2",1).....f%=1|
000016a0  20 b8 20 34 30 0d 00 ee  0e f2 70 61 75 73 65 28  | . 40.....pause(|
000016b0  31 30 29 0d 00 ef 1d e7  20 a4 6e 6f 73 6f 75 6e  |10)..... .nosoun|
000016c0  64 3d b9 3a d4 20 31 2c  26 31 37 46 2c 31 2c 31  |d=.:. 1,&17F,1,1|
000016d0  0d 00 f0 05 ed 0d 00 f1  0c 2a 66 78 31 31 32 2c  |.........*fx112,|
000016e0  31 0d 00 f2 05 e1 0d 00  f3 66 dd f2 74 61 62 6c  |1........f..tabl|
000016f0  65 5f 74 68 72 65 65 28  74 78 25 2c 74 6f 70 79  |e_three(tx%,topy|
00001700  25 2c 74 61 62 6c 65 5f  66 72 6f 6d 25 2c 74 61  |%,table_from%,ta|
00001710  62 6c 65 5f 74 6f 25 2c  6c 6f 77 65 73 74 25 2c  |ble_to%,lowest%,|
00001720  68 69 67 68 65 73 74 25  2c 6e 75 6d 62 65 72 5f  |highest%,number_|
00001730  6f 66 25 2c 73 74 79 6c  65 25 2c 6f 72 64 65 72  |of%,style%,order|
00001740  25 2c 74 69 6d 65 72 5f  6f 6e 25 29 0d 00 f4 12  |%,timer_on%)....|
00001750  f2 73 65 74 5f 74 61 62  6c 65 5f 6f 6e 65 0d 00  |.set_table_one..|
00001760  f5 0c e3 66 25 3d 31 b8  31 32 0d 00 f6 15 70 72  |...f%=1.12....pr|
00001770  65 73 65 6e 74 65 64 25  28 66 25 29 3d 66 25 0d  |esented%(f%)=f%.|
00001780  00 f7 05 ed 0d 00 f8 29  f2 70 6c 6f 74 5f 73 70  |.......).plot_sp|
00001790  72 69 74 65 28 31 33 30  2c 34 30 30 2c 31 2c 31  |rite(130,400,1,1|
000017a0  2c 31 2c 31 2c 22 74 69  6d 65 72 22 29 0d 00 f9  |,1,1,"timer")...|
000017b0  09 74 63 25 3d 31 0d 00  fa 35 f2 70 6c 6f 74 5f  |.tc%=1...5.plot_|
000017c0  73 70 72 69 74 65 28 31  33 30 2b 33 38 2c 34 30  |sprite(130+38,40|
000017d0  30 2b 35 32 2c 31 2c 31  2c 31 2c 31 2c 22 73 61  |0+52,1,1,1,1,"sa|
000017e0  6e 64 22 2b c3 28 74 63  25 29 29 0d 00 fb 18 e3  |nd"+.(tc%)).....|
000017f0  6e 75 6d 25 3d 31 20 b8  20 6e 75 6d 62 65 72 5f  |num%=1 . number_|
00001800  6f 66 25 0d 00 fc 37 6c  69 6e 65 24 3d c3 28 74  |of%...7line$=.(t|
00001810  61 62 6c 65 73 25 28 6e  75 6d 25 2c 31 29 29 2b  |ables%(num%,1))+|
00001820  22 78 22 2b c3 28 74 61  62 6c 65 73 25 28 6e 75  |"x"+.(tables%(nu|
00001830  6d 25 2c 32 29 29 2b 22  3d 22 0d 00 fd 29 f2 72  |m%,2))+"="...).r|
00001840  6f 74 61 74 65 5f 6e 75  6d 62 65 72 73 28 74 78  |otate_numbers(tx|
00001850  25 2c 74 6f 70 79 25 2d  36 34 2c 36 2c 6c 69 6e  |%,topy%-64,6,lin|
00001860  65 24 29 0d 00 fe 1d 69  6e 70 75 74 24 3d 22 22  |e$)....input$=""|
00001870  3a 69 6e 5f 6e 75 6d 25  3d 30 3a 6f 6b 25 3d 30  |:in_num%=0:ok%=0|
00001880  0d 00 ff 0f 73 65 74 5f  74 69 6d 65 25 3d 91 0d  |....set_time%=..|
00001890  01 00 09 74 63 25 3d 31  0d 01 01 35 f2 70 6c 6f  |...tc%=1...5.plo|
000018a0  74 5f 73 70 72 69 74 65  28 31 33 30 2b 33 38 2c  |t_sprite(130+38,|
000018b0  34 30 30 2b 35 32 2c 31  2c 31 2c 31 2c 31 2c 22  |400+52,1,1,1,1,"|
000018c0  73 61 6e 64 22 2b c3 28  74 63 25 29 29 0d 01 02  |sand"+.(tc%))...|
000018d0  23 74 69 6d 65 5f 67 72  61 70 68 69 63 25 3d 74  |#time_graphic%=t|
000018e0  69 6d 65 5f 70 65 72 5f  74 61 62 6c 65 25 2f 36  |ime_per_table%/6|
000018f0  0d 01 03 10 73 74 6f 72  65 5f 74 5f 67 25 3d 91  |....store_t_g%=.|
00001900  0d 01 04 05 f5 0d 01 05  05 f5 0d 01 06 0c 69 6e  |..............in|
00001910  25 3d a6 28 31 29 0d 01  07 22 e7 20 91 2d 73 74  |%=.(1)...". .-st|
00001920  6f 72 65 5f 74 5f 67 25  3e 74 69 6d 65 5f 67 72  |ore_t_g%>time_gr|
00001930  61 70 68 69 63 25 20 8c  0d 01 08 10 73 74 6f 72  |aphic% .....stor|
00001940  65 5f 74 5f 67 25 3d 91  0d 01 09 0d 74 63 25 3d  |e_t_g%=.....tc%=|
00001950  74 63 25 2b 31 0d 01 0a  35 f2 70 6c 6f 74 5f 73  |tc%+1...5.plot_s|
00001960  70 72 69 74 65 28 31 33  30 2b 33 38 2c 34 30 30  |prite(130+38,400|
00001970  2b 35 32 2c 31 2c 31 2c  31 2c 31 2c 22 73 61 6e  |+52,1,1,1,1,"san|
00001980  64 22 2b c3 28 74 63 25  29 29 0d 01 0b 05 cd 0d  |d"+.(tc%))......|
00001990  01 0c 58 fd 28 69 6e 25  3d 31 33 20 80 20 a9 28  |..X.(in%=13 . .(|
000019a0  69 6e 70 75 74 24 29 3e  30 29 84 20 69 6e 25 3d  |input$)>0). in%=|
000019b0  31 32 37 20 84 20 28 69  6e 25 3e 34 37 20 80 20  |127 . (in%>47 . |
000019c0  69 6e 25 3c 35 38 29 20  84 20 28 91 2d 73 65 74  |in%<58) . (.-set|
000019d0  5f 74 69 6d 65 25 3e 74  69 6d 65 5f 70 65 72 5f  |_time%>time_per_|
000019e0  74 61 62 6c 65 25 29 0d  01 0d 0e e7 69 6e 25 3d  |table%).....in%=|
000019f0  31 32 37 20 8c 0d 01 0e  0d 69 6e 5f 6e 75 6d 25  |127 .....in_num%|
00001a00  3d 30 0d 01 0f 0d 69 6e  70 75 74 24 3d 22 22 0d  |=0....input$="".|
00001a10  01 10 37 f2 72 6f 74 61  74 65 5f 6e 75 6d 62 65  |..7.rotate_numbe|
00001a20  72 73 28 74 78 25 2b 28  a9 28 6c 69 6e 65 24 29  |rs(tx%+(.(line$)|
00001a30  2a 33 36 29 2c 74 6f 70  79 25 2d 36 34 2c 33 2c  |*36),topy%-64,3,|
00001a40  22 64 64 64 22 29 0d 01  11 05 cd 0d 01 12 24 e7  |"ddd")........$.|
00001a50  28 69 6e 25 3e 34 37 20  80 20 69 6e 25 3c 35 38  |(in%>47 . in%<58|
00001a60  29 20 80 20 69 6e 5f 6e  75 6d 25 3c 33 20 8c 0d  |) . in_num%<3 ..|
00001a70  01 13 18 69 6e 70 75 74  24 3d 69 6e 70 75 74 24  |...input$=input$|
00001a80  2b bd 28 69 6e 25 29 0d  01 14 1e e7 69 6e 5f 6e  |+.(in%).....in_n|
00001a90  75 6d 25 3d 30 3a 70 72  24 3d bd 28 69 6e 25 29  |um%=0:pr$=.(in%)|
00001aa0  2b 22 64 64 22 0d 01 15  1d e7 69 6e 5f 6e 75 6d  |+"dd".....in_num|
00001ab0  25 3d 31 3a 70 72 24 3d  bd 28 69 6e 25 29 2b 22  |%=1:pr$=.(in%)+"|
00001ac0  64 22 0d 01 16 19 e7 69  6e 5f 6e 75 6d 25 3d 32  |d".....in_num%=2|
00001ad0  3a 70 72 24 3d bd 28 69  6e 25 29 0d 01 17 42 f2  |:pr$=.(in%)...B.|
00001ae0  72 6f 74 61 74 65 5f 6e  75 6d 62 65 72 73 28 74  |rotate_numbers(t|
00001af0  78 25 2b 28 a9 28 6c 69  6e 65 24 29 2a 33 36 29  |x%+(.(line$)*36)|
00001b00  2b 28 69 6e 5f 6e 75 6d  25 2a 33 36 29 2c 74 6f  |+(in_num%*36),to|
00001b10  70 79 25 2d 36 34 2c 31  2c 70 72 24 29 0d 01 18  |py%-64,1,pr$)...|
00001b20  15 69 6e 5f 6e 75 6d 25  3d 69 6e 5f 6e 75 6d 25  |.in_num%=in_num%|
00001b30  2b 31 0d 01 19 05 cd 0d  01 1a 1a e7 69 6e 25 3d  |+1..........in%=|
00001b40  31 33 20 80 20 69 6e 70  75 74 24 3c 3e 22 22 20  |13 . input$<>"" |
00001b50  8c 0d 01 1b 09 2a 66 78  31 35 0d 01 1c 20 e7 74  |.....*fx15... .t|
00001b60  61 62 6c 65 73 25 28 6e  75 6d 25 2c 33 29 3d bb  |ables%(num%,3)=.|
00001b70  28 69 6e 70 75 74 24 29  20 8c 0d 01 1d 15 69 6e  |(input$) .....in|
00001b80  5f 6e 75 6d 25 3d 69 6e  5f 6e 75 6d 25 2b 31 0d  |_num%=in_num%+1.|
00001b90  01 1e 09 6f 6b 25 3d 31  0d 01 1f 42 f2 72 6f 74  |...ok%=1...B.rot|
00001ba0  61 74 65 5f 6e 75 6d 62  65 72 73 28 74 78 25 2b  |ate_numbers(tx%+|
00001bb0  28 a9 28 6c 69 6e 65 24  29 2a 33 36 29 2b 28 69  |(.(line$)*36)+(i|
00001bc0  6e 5f 6e 75 6d 25 2a 33  36 29 2c 74 6f 70 79 25  |n_num%*36),topy%|
00001bd0  2d 36 34 2c 33 2c 22 79  22 29 0d 01 20 18 f2 63  |-64,3,"y").. ..c|
00001be0  61 63 68 65 73 6f 75 6e  64 28 22 6f 6b 32 22 2c  |achesound("ok2",|
00001bf0  31 29 0d 01 21 10 d4 20  31 2c 26 31 37 46 2c 31  |1)..!.. 1,&17F,1|
00001c00  2c 31 0d 01 22 05 cd 0d  01 23 21 e7 74 61 62 6c  |,1.."....#!.tabl|
00001c10  65 73 25 28 6e 75 6d 25  2c 33 29 3c 3e bb 28 69  |es%(num%,3)<>.(i|
00001c20  6e 70 75 74 24 29 20 8c  0d 01 24 1f 74 6f 74 61  |nput$) ...$.tota|
00001c30  6c 5f 67 6f 74 5f 66 70  3d 74 6f 74 61 6c 5f 67  |l_got_fp=total_g|
00001c40  6f 74 5f 66 70 2d 31 0d  01 25 09 6f 6b 25 3d 31  |ot_fp-1..%.ok%=1|
00001c50  0d 01 26 17 69 6e 70 75  74 24 3d 22 22 3a 69 6e  |..&.input$="":in|
00001c60  5f 6e 75 6d 25 3d 30 0d  01 27 37 f2 72 6f 74 61  |_num%=0..'7.rota|
00001c70  74 65 5f 6e 75 6d 62 65  72 73 28 74 78 25 2b 28  |te_numbers(tx%+(|
00001c80  a9 28 6c 69 6e 65 24 29  2a 33 36 29 2c 74 6f 70  |.(line$)*36),top|
00001c90  79 25 2d 36 34 2c 33 2c  22 6e 64 64 22 29 0d 01  |y%-64,3,"ndd")..|
00001ca0  28 1b f2 63 61 63 68 65  73 6f 75 6e 64 28 22 77  |(..cachesound("w|
00001cb0  72 6f 6e 67 32 22 2c 31  29 0d 01 29 10 d4 20 31  |rong2",1)..).. 1|
00001cc0  2c 26 31 37 46 2c 31 2c  31 0d 01 2a 0e f2 70 61  |,&17F,1,1..*..pa|
00001cd0  75 73 65 28 32 30 29 0d  01 2b 05 cd 0d 01 2c 05  |use(20)..+....,.|
00001ce0  cd 0d 01 2d 2d e7 20 91  2d 73 65 74 5f 74 69 6d  |...--. .-set_tim|
00001cf0  65 25 3e 74 69 6d 65 5f  70 65 72 5f 74 61 62 6c  |e%>time_per_tabl|
00001d00  65 25 20 80 20 69 6e 25  3c 3e 31 33 20 8c 0d 01  |e% . in%<>13 ...|
00001d10  2e 1f 74 6f 74 61 6c 5f  67 6f 74 5f 66 70 3d 74  |..total_got_fp=t|
00001d20  6f 74 61 6c 5f 67 6f 74  5f 66 70 2d 31 0d 01 2f  |otal_got_fp-1../|
00001d30  09 6f 6b 25 3d 31 0d 01  30 17 69 6e 70 75 74 24  |.ok%=1..0.input$|
00001d40  3d 22 22 3a 69 6e 5f 6e  75 6d 25 3d 30 0d 01 31  |="":in_num%=0..1|
00001d50  37 f2 72 6f 74 61 74 65  5f 6e 75 6d 62 65 72 73  |7.rotate_numbers|
00001d60  28 74 78 25 2b 28 a9 28  6c 69 6e 65 24 29 2a 33  |(tx%+(.(line$)*3|
00001d70  36 29 2c 74 6f 70 79 25  2d 36 34 2c 33 2c 22 6e  |6),topy%-64,3,"n|
00001d80  64 64 22 29 0d 01 32 1b  f2 63 61 63 68 65 73 6f  |dd")..2..cacheso|
00001d90  75 6e 64 28 22 77 72 6f  6e 67 32 22 2c 31 29 0d  |und("wrong2",1).|
00001da0  01 33 10 d4 20 31 2c 26  31 37 46 2c 31 2c 31 0d  |.3.. 1,&17F,1,1.|
00001db0  01 34 0d 74 63 25 3d 74  63 25 2b 31 0d 01 35 35  |.4.tc%=tc%+1..55|
00001dc0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 31 33 30  |.plot_sprite(130|
00001dd0  2b 33 38 2c 34 30 30 2b  35 32 2c 31 2c 31 2c 31  |+38,400+52,1,1,1|
00001de0  2c 31 2c 22 73 61 6e 64  22 2b c3 28 74 63 25 29  |,1,"sand"+.(tc%)|
00001df0  29 0d 01 36 0e f2 70 61  75 73 65 28 32 30 29 0d  |)..6..pause(20).|
00001e00  01 37 05 cd 0d 01 38 2b  fd 20 6f 6b 25 3d 31 20  |.7....8+. ok%=1 |
00001e10  84 20 28 91 2d 73 65 74  5f 74 69 6d 65 25 3e 74  |. (.-set_time%>t|
00001e20  69 6d 65 5f 70 65 72 5f  74 61 62 6c 65 25 29 0d  |ime_per_table%).|
00001e30  01 39 12 74 6f 70 79 25  3d 74 6f 70 79 25 2d 36  |.9.topy%=topy%-6|
00001e40  34 0d 01 3a 05 ed 0d 01  3b 05 e1 0d 01 3c 64 dd  |4..:....;....<d.|
00001e50  f2 74 61 62 6c 65 5f 74  77 6f 28 74 78 25 2c 74  |.table_two(tx%,t|
00001e60  6f 70 79 25 2c 74 61 62  6c 65 5f 66 72 6f 6d 25  |opy%,table_from%|
00001e70  2c 74 61 62 6c 65 5f 74  6f 25 2c 6c 6f 77 65 73  |,table_to%,lowes|
00001e80  74 25 2c 68 69 67 68 65  73 74 25 2c 6e 75 6d 62  |t%,highest%,numb|
00001e90  65 72 5f 6f 66 25 2c 73  74 79 6c 65 25 2c 6f 72  |er_of%,style%,or|
00001ea0  64 65 72 25 2c 74 69 6d  65 72 5f 6f 6e 25 29 0d  |der%,timer_on%).|
00001eb0  01 3d 63 e7 5a 25 3d 31  20 73 77 6c 25 28 31 29  |.=c.Z%=1 swl%(1)|
00001ec0  3d 31 3a 73 77 6c 25 28  32 29 3d 32 3a 73 77 6c  |=1:swl%(2)=2:swl|
00001ed0  25 28 33 29 3d 32 3a 73  77 6c 25 28 34 29 3d 33  |%(3)=2:swl%(4)=3|
00001ee0  3a 73 77 6c 25 28 35 29  3d 33 3a 73 77 6c 25 28  |:swl%(5)=3:swl%(|
00001ef0  36 29 3d 34 3a 73 77 6c  25 28 37 29 3d 34 3a 73  |6)=4:swl%(7)=4:s|
00001f00  77 6c 25 28 38 29 3d 35  3a 73 77 6c 25 28 39 29  |wl%(8)=5:swl%(9)|
00001f10  3d 35 0d 01 3e 63 e7 5a  25 3d 32 20 73 77 6c 25  |=5..>c.Z%=2 swl%|
00001f20  28 31 29 3d 31 3a 73 77  6c 25 28 32 29 3d 32 3a  |(1)=1:swl%(2)=2:|
00001f30  73 77 6c 25 28 33 29 3d  33 3a 73 77 6c 25 28 34  |swl%(3)=3:swl%(4|
00001f40  29 3d 34 3a 73 77 6c 25  28 35 29 3d 35 3a 73 77  |)=4:swl%(5)=5:sw|
00001f50  6c 25 28 36 29 3d 36 3a  73 77 6c 25 28 37 29 3d  |l%(6)=6:swl%(7)=|
00001f60  37 3a 73 77 6c 25 28 38  29 3d 38 3a 73 77 6c 25  |7:swl%(8)=8:swl%|
00001f70  28 39 29 3d 39 0d 01 3f  66 e7 5a 25 3d 33 20 73  |(9)=9..?f.Z%=3 s|
00001f80  77 6c 25 28 31 29 3d 31  3a 73 77 6c 25 28 32 29  |wl%(1)=1:swl%(2)|
00001f90  3d 33 3a 73 77 6c 25 28  33 29 3d 35 3a 73 77 6c  |=3:swl%(3)=5:swl|
00001fa0  25 28 34 29 3d 37 3a 73  77 6c 25 28 35 29 3d 38  |%(4)=7:swl%(5)=8|
00001fb0  3a 73 77 6c 25 28 36 29  3d 39 3a 73 77 6c 25 28  |:swl%(6)=9:swl%(|
00001fc0  37 29 3d 31 30 3a 73 77  6c 25 28 38 29 3d 31 31  |7)=10:swl%(8)=11|
00001fd0  3a 73 77 6c 25 28 39 29  3d 31 32 0d 01 40 12 f2  |:swl%(9)=12..@..|
00001fe0  73 65 74 5f 74 61 62 6c  65 5f 6f 6e 65 0d 01 41  |set_table_one..A|
00001ff0  0c e3 66 25 3d 31 b8 31  32 0d 01 42 15 70 72 65  |..f%=1.12..B.pre|
00002000  73 65 6e 74 65 64 25 28  66 25 29 3d 66 25 0d 01  |sented%(f%)=f%..|
00002010  43 05 ed 0d 01 44 18 e3  6e 75 6d 25 3d 31 20 b8  |C....D..num%=1 .|
00002020  20 6e 75 6d 62 65 72 5f  6f 66 25 0d 01 45 37 6c  | number_of%..E7l|
00002030  69 6e 65 24 3d c3 28 74  61 62 6c 65 73 25 28 6e  |ine$=.(tables%(n|
00002040  75 6d 25 2c 31 29 29 2b  22 78 22 2b c3 28 74 61  |um%,1))+"x"+.(ta|
00002050  62 6c 65 73 25 28 6e 75  6d 25 2c 32 29 29 2b 22  |bles%(num%,2))+"|
00002060  3d 22 0d 01 46 29 f2 72  6f 74 61 74 65 5f 6e 75  |="..F).rotate_nu|
00002070  6d 62 65 72 73 28 74 78  25 2c 74 6f 70 79 25 2d  |mbers(tx%,topy%-|
00002080  36 34 2c 36 2c 6c 69 6e  65 24 29 0d 01 47 1d 69  |64,6,line$)..G.i|
00002090  6e 70 75 74 24 3d 22 22  3a 69 6e 5f 6e 75 6d 25  |nput$="":in_num%|
000020a0  3d 30 3a 6f 6b 25 3d 30  0d 01 48 05 f5 0d 01 49  |=0:ok%=0..H....I|
000020b0  05 f5 0d 01 4a 0c 69 6e  25 3d a6 28 31 29 0d 01  |....J.in%=.(1)..|
000020c0  4b 29 fd 69 6e 25 3d 31  33 20 84 20 69 6e 25 3d  |K).in%=13 . in%=|
000020d0  31 32 37 20 84 20 28 69  6e 25 3e 34 37 20 80 20  |127 . (in%>47 . |
000020e0  69 6e 25 3c 35 38 29 0d  01 4c 0e e7 69 6e 25 3d  |in%<58)..L..in%=|
000020f0  31 32 37 20 8c 0d 01 4d  0d 69 6e 5f 6e 75 6d 25  |127 ...M.in_num%|
00002100  3d 30 0d 01 4e 0d 69 6e  70 75 74 24 3d 22 22 0d  |=0..N.input$="".|
00002110  01 4f 37 f2 72 6f 74 61  74 65 5f 6e 75 6d 62 65  |.O7.rotate_numbe|
00002120  72 73 28 74 78 25 2b 28  a9 28 6c 69 6e 65 24 29  |rs(tx%+(.(line$)|
00002130  2a 33 36 29 2c 74 6f 70  79 25 2d 36 34 2c 33 2c  |*36),topy%-64,3,|
00002140  22 64 64 64 22 29 0d 01  50 05 cd 0d 01 51 24 e7  |"ddd")..P....Q$.|
00002150  28 69 6e 25 3e 34 37 20  80 20 69 6e 25 3c 35 38  |(in%>47 . in%<58|
00002160  29 20 80 20 69 6e 5f 6e  75 6d 25 3c 33 20 8c 0d  |) . in_num%<3 ..|
00002170  01 52 18 69 6e 70 75 74  24 3d 69 6e 70 75 74 24  |.R.input$=input$|
00002180  2b bd 28 69 6e 25 29 0d  01 53 1e e7 69 6e 5f 6e  |+.(in%)..S..in_n|
00002190  75 6d 25 3d 30 3a 70 72  24 3d bd 28 69 6e 25 29  |um%=0:pr$=.(in%)|
000021a0  2b 22 64 64 22 0d 01 54  1d e7 69 6e 5f 6e 75 6d  |+"dd"..T..in_num|
000021b0  25 3d 31 3a 70 72 24 3d  bd 28 69 6e 25 29 2b 22  |%=1:pr$=.(in%)+"|
000021c0  64 22 0d 01 55 19 e7 69  6e 5f 6e 75 6d 25 3d 32  |d"..U..in_num%=2|
000021d0  3a 70 72 24 3d bd 28 69  6e 25 29 0d 01 56 42 f2  |:pr$=.(in%)..VB.|
000021e0  72 6f 74 61 74 65 5f 6e  75 6d 62 65 72 73 28 74  |rotate_numbers(t|
000021f0  78 25 2b 28 a9 28 6c 69  6e 65 24 29 2a 33 36 29  |x%+(.(line$)*36)|
00002200  2b 28 69 6e 5f 6e 75 6d  25 2a 33 36 29 2c 74 6f  |+(in_num%*36),to|
00002210  70 79 25 2d 36 34 2c 31  2c 70 72 24 29 0d 01 57  |py%-64,1,pr$)..W|
00002220  15 69 6e 5f 6e 75 6d 25  3d 69 6e 5f 6e 75 6d 25  |.in_num%=in_num%|
00002230  2b 31 0d 01 58 05 cd 0d  01 59 1d e7 28 69 6e 25  |+1..X....Y..(in%|
00002240  3d 31 33 20 80 20 a9 28  69 6e 70 75 74 24 29 3e  |=13 . .(input$)>|
00002250  30 29 20 8c 0d 01 5a 09  2a 46 58 31 35 0d 01 5b  |0) ...Z.*FX15..[|
00002260  20 e7 74 61 62 6c 65 73  25 28 6e 75 6d 25 2c 33  | .tables%(num%,3|
00002270  29 3d bb 28 69 6e 70 75  74 24 29 20 8c 0d 01 5c  |)=.(input$) ...\|
00002280  15 69 6e 5f 6e 75 6d 25  3d 69 6e 5f 6e 75 6d 25  |.in_num%=in_num%|
00002290  2b 31 0d 01 5d 09 6f 6b  25 3d 31 0d 01 5e 42 f2  |+1..].ok%=1..^B.|
000022a0  72 6f 74 61 74 65 5f 6e  75 6d 62 65 72 73 28 74  |rotate_numbers(t|
000022b0  78 25 2b 28 a9 28 6c 69  6e 65 24 29 2a 33 36 29  |x%+(.(line$)*36)|
000022c0  2b 28 69 6e 5f 6e 75 6d  25 2a 33 36 29 2c 74 6f  |+(in_num%*36),to|
000022d0  70 79 25 2d 36 34 2c 33  2c 22 79 22 29 0d 01 5f  |py%-64,3,"y").._|
000022e0  18 f2 63 61 63 68 65 73  6f 75 6e 64 28 22 6f 6b  |..cachesound("ok|
000022f0  32 22 2c 31 29 0d 01 60  10 d4 20 31 2c 26 31 37  |2",1)..`.. 1,&17|
00002300  46 2c 31 2c 31 0d 01 61  37 e7 73 77 6c 25 28 31  |F,1,1..a7.swl%(1|
00002310  29 3d 6e 75 6d 25 20 f2  70 6c 6f 74 5f 73 70 72  |)=num% .plot_spr|
00002320  69 74 65 28 31 36 30 2c  36 35 30 2c 31 2c 31 2c  |ite(160,650,1,1,|
00002330  31 2c 31 2c 22 69 6e 74  72 6f 22 29 0d 01 62 39  |1,1,"intro")..b9|
00002340  e7 73 77 6c 25 28 32 29  3d 6e 75 6d 25 20 f2 70  |.swl%(2)=num% .p|
00002350  6c 6f 74 5f 73 70 72 69  74 65 28 31 36 30 2c 35  |lot_sprite(160,5|
00002360  32 30 2c 31 2c 31 2c 31  2c 31 2c 22 6c 61 75 6e  |20,1,1,1,1,"laun|
00002370  63 68 31 22 29 0d 01 63  39 e7 73 77 6c 25 28 33  |ch1")..c9.swl%(3|
00002380  29 3d 6e 75 6d 25 20 f2  70 6c 6f 74 5f 73 70 72  |)=num% .plot_spr|
00002390  69 74 65 28 33 30 30 2c  35 32 30 2c 31 2c 31 2c  |ite(300,520,1,1,|
000023a0  31 2c 31 2c 22 6c 61 75  6e 63 68 32 22 29 0d 01  |1,1,"launch2")..|
000023b0  64 39 e7 73 77 6c 25 28  34 29 3d 6e 75 6d 25 20  |d9.swl%(4)=num% |
000023c0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 31 36 30  |.plot_sprite(160|
000023d0  2c 34 30 30 2c 31 2c 31  2c 31 2c 31 2c 22 6c 61  |,400,1,1,1,1,"la|
000023e0  75 6e 63 68 33 22 29 0d  01 65 39 e7 73 77 6c 25  |unch3")..e9.swl%|
000023f0  28 35 29 3d 6e 75 6d 25  20 f2 70 6c 6f 74 5f 73  |(5)=num% .plot_s|
00002400  70 72 69 74 65 28 33 30  30 2c 34 30 30 2c 31 2c  |prite(300,400,1,|
00002410  31 2c 31 2c 31 2c 22 6c  61 75 6e 63 68 34 22 29  |1,1,1,"launch4")|
00002420  0d 01 66 39 e7 73 77 6c  25 28 36 29 3d 6e 75 6d  |..f9.swl%(6)=num|
00002430  25 20 f2 70 6c 6f 74 5f  73 70 72 69 74 65 28 31  |% .plot_sprite(1|
00002440  36 30 2c 32 38 30 2c 31  2c 31 2c 31 2c 31 2c 22  |60,280,1,1,1,1,"|
00002450  6c 61 75 6e 63 68 35 22  29 0d 01 67 39 e7 73 77  |launch5")..g9.sw|
00002460  6c 25 28 37 29 3d 6e 75  6d 25 20 f2 70 6c 6f 74  |l%(7)=num% .plot|
00002470  5f 73 70 72 69 74 65 28  33 30 30 2c 32 38 30 2c  |_sprite(300,280,|
00002480  31 2c 31 2c 31 2c 31 2c  22 6c 61 75 6e 63 68 36  |1,1,1,1,"launch6|
00002490  22 29 0d 01 68 39 e7 73  77 6c 25 28 38 29 3d 6e  |")..h9.swl%(8)=n|
000024a0  75 6d 25 20 f2 70 6c 6f  74 5f 73 70 72 69 74 65  |um% .plot_sprite|
000024b0  28 31 36 30 2c 31 36 30  2c 31 2c 31 2c 31 2c 31  |(160,160,1,1,1,1|
000024c0  2c 22 6c 61 75 6e 63 68  37 22 29 0d 01 69 13 e7  |,"launch7")..i..|
000024d0  73 77 6c 25 28 39 29 3d  6e 75 6d 25 20 8c 0d 01  |swl%(9)=num% ...|
000024e0  6a 2b f2 70 6c 6f 74 5f  73 70 72 69 74 65 28 33  |j+.plot_sprite(3|
000024f0  30 30 2c 31 36 30 2c 31  2c 31 2c 31 2c 31 2c 22  |00,160,1,1,1,1,"|
00002500  6c 61 75 6e 63 68 38 22  29 0d 01 6b 05 cd 0d 01  |launch8")..k....|
00002510  6c 0e f2 70 61 75 73 65  28 35 30 29 0d 01 6d 05  |l..pause(50)..m.|
00002520  cd 0d 01 6e 21 e7 74 61  62 6c 65 73 25 28 6e 75  |...n!.tables%(nu|
00002530  6d 25 2c 33 29 3c 3e bb  28 69 6e 70 75 74 24 29  |m%,3)<>.(input$)|
00002540  20 8c 0d 01 6f 1f 74 6f  74 61 6c 5f 67 6f 74 5f  | ...o.total_got_|
00002550  66 70 3d 74 6f 74 61 6c  5f 67 6f 74 5f 66 70 2d  |fp=total_got_fp-|
00002560  31 0d 01 70 17 69 6e 70  75 74 24 3d 22 22 3a 69  |1..p.input$="":i|
00002570  6e 5f 6e 75 6d 25 3d 30  0d 01 71 37 f2 72 6f 74  |n_num%=0..q7.rot|
00002580  61 74 65 5f 6e 75 6d 62  65 72 73 28 74 78 25 2b  |ate_numbers(tx%+|
00002590  28 a9 28 6c 69 6e 65 24  29 2a 33 36 29 2c 74 6f  |(.(line$)*36),to|
000025a0  70 79 25 2d 36 34 2c 33  2c 22 6e 64 64 22 29 0d  |py%-64,3,"ndd").|
000025b0  01 72 1b f2 63 61 63 68  65 73 6f 75 6e 64 28 22  |.r..cachesound("|
000025c0  77 72 6f 6e 67 32 22 2c  31 29 0d 01 73 10 d4 20  |wrong2",1)..s.. |
000025d0  31 2c 26 31 37 46 2c 31  2c 31 0d 01 74 0e f2 70  |1,&17F,1,1..t..p|
000025e0  61 75 73 65 28 35 30 29  0d 01 75 35 f2 72 6f 74  |ause(50)..u5.rot|
000025f0  61 74 65 5f 6e 75 6d 62  65 72 73 28 74 78 25 2b  |ate_numbers(tx%+|
00002600  28 a9 28 6c 69 6e 65 24  29 2a 33 36 29 2c 74 6f  |(.(line$)*36),to|
00002610  70 79 25 2d 36 34 2c 33  2c 22 3f 22 29 0d 01 76  |py%-64,3,"?")..v|
00002620  05 cd 0d 01 77 05 cd 0d  01 78 0b fd 20 6f 6b 25  |....w....x.. ok%|
00002630  3d 31 0d 01 79 12 74 6f  70 79 25 3d 74 6f 70 79  |=1..y.topy%=topy|
00002640  25 2d 36 34 0d 01 7a 05  ed 0d 01 7b 05 e1 0d 01  |%-64..z....{....|
00002650  7c 11 dd f2 73 65 74 5f  75 70 5f 62 6f 6d 62 0d  ||...set_up_bomb.|
00002660  01 7d 18 2a 63 68 61 6e  6e 65 6c 76 6f 69 63 65  |.}.*channelvoice|
00002670  20 31 20 62 6f 6e 6b 0d  01 7e 1a 2a 63 68 61 6e  | 1 bonk..~.*chan|
00002680  6e 65 6c 76 6f 69 63 65  20 32 20 72 6f 62 6f 74  |nelvoice 2 robot|
00002690  73 0d 01 7f 19 f2 6c 6f  61 64 5f 73 70 72 69 74  |s.....load_sprit|
000026a0  65 73 28 22 62 6f 6d 62  22 29 0d 01 80 1d f2 6d  |es("bomb").....m|
000026b0  65 72 67 65 5f 73 70 72  69 74 65 73 28 22 6e 75  |erge_sprites("nu|
000026c0  6d 62 65 72 73 22 29 0d  01 81 10 66 61 64 65 24  |mbers")....fade$|
000026d0  3d 22 66 61 64 65 22 0d  01 82 0c 2a 46 58 31 31  |="fade"....*FX11|
000026e0  32 2c 32 0d 01 83 08 fb  31 32 39 0d 01 84 05 db  |2,2.....129.....|
000026f0  0d 01 85 2c f2 70 6c 6f  74 5f 73 70 72 69 74 65  |...,.plot_sprite|
00002700  28 31 36 30 2c 31 36 2c  31 2c 31 2c 31 2c 31 2c  |(160,16,1,1,1,1,|
00002710  22 67 72 65 65 6e 62 6f  6d 62 22 29 0d 01 86 0c  |"greenbomb")....|
00002720  2a 46 58 31 31 32 2c 31  0d 01 87 0c 2a 46 58 31  |*FX112,1....*FX1|
00002730  31 33 2c 31 0d 01 88 08  fb 31 32 39 0d 01 89 05  |13,1.....129....|
00002740  db 0d 01 8a 18 f2 66 61  64 65 28 30 2c 39 36 30  |......fade(0,960|
00002750  2c 34 2c 30 2c 31 2c 31  29 0d 01 8b 47 c8 99 22  |,4,0,1,1)...G.."|
00002760  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
00002770  30 2c 73 70 72 69 74 65  5f 61 72 65 61 31 25 2c  |0,sprite_area1%,|
00002780  22 62 6c 61 6e 6b 31 22  2c 30 2c 34 32 36 2c 35  |"blank1",0,426,5|
00002790  31 38 2d 33 32 2c 38 33  32 2c 38 39 33 2d 33 32  |18-32,832,893-32|
000027a0  0d 01 8c 47 c8 99 22 4f  53 5f 53 70 72 69 74 65  |...G.."OS_Sprite|
000027b0  4f 70 22 2c 26 31 31 30  2c 73 70 72 69 74 65 5f  |Op",&110,sprite_|
000027c0  61 72 65 61 31 25 2c 22  62 6c 61 6e 6b 32 22 2c  |area1%,"blank2",|
000027d0  30 2c 34 32 36 2c 31 34  36 2d 33 32 2c 38 33 32  |0,426,146-32,832|
000027e0  2c 35 31 38 2d 33 32 0d  01 8d 19 ef 20 32 34 2c  |,518-32..... 24,|
000027f0  34 33 30 3b 31 31 34 3b  38 33 30 3b 38 35 34 3b  |430;114;830;854;|
00002800  0d 01 8e 2e 42 25 3d 73  63 72 65 65 6e 5f 6f 6e  |....B%=screen_on|
00002810  65 25 3a 43 25 3d 73 63  72 65 65 6e 5f 74 77 6f  |e%:C%=screen_two|
00002820  25 3a d6 73 61 76 65 5f  73 63 72 65 65 6e 0d 01  |%:.save_screen..|
00002830  8f 0c 2a 46 58 31 31 32  2c 32 0d 01 90 10 ef 31  |..*FX112,2.....1|
00002840  38 2c 30 2c 31 32 38 2c  31 36 0d 01 91 18 f2 66  |8,0,128,16.....f|
00002850  61 64 65 28 30 2c 39 36  30 2c 34 2c 30 2c 31 2c  |ade(0,960,4,0,1,|
00002860  31 29 0d 01 92 0c 2a 46  58 31 31 32 2c 31 0d 01  |1)....*FX112,1..|
00002870  93 05 cd 0d 01 94 0c 2a  46 58 31 31 33 2c 31 0d  |.......*FX113,1.|
00002880  01 95 0c 2a 46 58 31 31  32 2c 31 0d 01 96 61 f2  |...*FX112,1...a.|
00002890  74 61 62 6c 65 5f 6f 6e  65 28 34 33 30 2c 38 35  |table_one(430,85|
000028a0  34 2c 74 61 62 6c 65 5f  66 72 6f 6d 25 2c 74 61  |4,table_from%,ta|
000028b0  62 6c 65 5f 74 6f 25 2c  6c 6f 77 65 73 74 25 2c  |ble_to%,lowest%,|
000028c0  68 69 67 68 65 73 74 25  2c 6e 75 6d 62 65 72 5f  |highest%,number_|
000028d0  6f 66 25 2c 73 74 79 6c  65 25 2c 6f 72 64 65 72  |of%,style%,order|
000028e0  25 2c 74 69 6d 65 72 5f  6f 6e 25 29 0d 01 97 05  |%,timer_on%)....|
000028f0  e1 0d 01 98 1d dd f2 62  6f 78 32 28 62 78 25 2c  |.......box2(bx%,|
00002900  62 79 25 2c 62 78 78 25  2c 62 79 79 25 29 0d 01  |by%,bxx%,byy%)..|
00002910  99 1f 62 78 78 25 3d 62  78 25 2b 62 78 78 25 3a  |..bxx%=bx%+bxx%:|
00002920  62 79 79 25 3d 62 79 25  2b 62 79 79 25 0d 01 9a  |byy%=by%+byy%...|
00002930  2d ef 32 34 2c 62 78 25  2d 34 3b 62 79 25 2d 34  |-.24,bx%-4;by%-4|
00002940  3b 62 78 78 25 2b 34 3b  62 79 79 25 2b 34 3b 31  |;bxx%+4;byy%+4;1|
00002950  38 2c 30 2c 31 33 31 2c  31 36 0d 01 9b 28 ef 32  |8,0,131,16...(.2|
00002960  34 2c 62 78 25 3b 62 79  25 3b 62 78 78 25 3b 62  |4,bx%;by%;bxx%;b|
00002970  79 79 25 3b 31 38 2c 30  2c 31 32 38 2c 31 36 2c  |yy%;18,0,128,16,|
00002980  32 36 0d 01 9c 05 e1 0d  01 9d 1d dd f2 62 6f 78  |26...........box|
00002990  33 28 62 78 25 2c 62 79  25 2c 62 78 78 25 2c 62  |3(bx%,by%,bxx%,b|
000029a0  79 79 25 29 0d 01 9e 1f  62 78 78 25 3d 62 78 25  |yy%)....bxx%=bx%|
000029b0  2b 62 78 78 25 3a 62 79  79 25 3d 62 79 25 2b 62  |+bxx%:byy%=by%+b|
000029c0  79 79 25 0d 01 9f 2d ef  32 34 2c 62 78 25 2d 34  |yy%...-.24,bx%-4|
000029d0  3b 62 79 25 2d 34 3b 62  78 78 25 2b 34 3b 62 79  |;by%-4;bxx%+4;by|
000029e0  79 25 2b 34 3b 31 38 2c  30 2c 31 33 30 2c 31 36  |y%+4;18,0,130,16|
000029f0  0d 01 a0 28 ef 32 34 2c  62 78 25 3b 62 79 25 3b  |...(.24,bx%;by%;|
00002a00  62 78 78 25 3b 62 79 79  25 3b 31 38 2c 30 2c 31  |bxx%;byy%;18,0,1|
00002a10  33 31 2c 31 36 2c 32 36  0d 01 a1 05 e1 0d 01 a2  |31,16,26........|
00002a20  64 dd f2 74 61 62 6c 65  5f 6f 6e 65 28 74 78 25  |d..table_one(tx%|
00002a30  2c 74 6f 70 79 25 2c 74  61 62 6c 65 5f 66 72 6f  |,topy%,table_fro|
00002a40  6d 25 2c 74 61 62 6c 65  5f 74 6f 25 2c 6c 6f 77  |m%,table_to%,low|
00002a50  65 73 74 25 2c 68 69 67  68 65 73 74 25 2c 6e 75  |est%,highest%,nu|
00002a60  6d 62 65 72 5f 6f 66 25  2c 73 74 79 6c 65 25 2c  |mber_of%,style%,|
00002a70  6f 72 64 65 72 25 2c 74  69 6d 65 72 5f 6f 6e 25  |order%,timer_on%|
00002a80  29 0d 01 a3 12 f2 73 65  74 5f 74 61 62 6c 65 5f  |).....set_table_|
00002a90  6f 6e 65 0d 01 a4 0c e3  66 25 3d 31 b8 31 32 0d  |one.....f%=1.12.|
00002aa0  01 a5 15 70 72 65 73 65  6e 74 65 64 25 28 66 25  |...presented%(f%|
00002ab0  29 3d 66 25 0d 01 a6 05  ed 0d 01 a7 20 68 65 69  |)=f%........ hei|
00002ac0  67 68 74 5f 62 6f 78 25  3d 37 32 2a 6e 75 6d 62  |ght_box%=72*numb|
00002ad0  65 72 5f 6f 66 25 2b 32  30 0d 01 a8 30 f2 62 6f  |er_of%+20...0.bo|
00002ae0  78 32 28 74 78 25 2c 74  6f 70 79 25 2d 68 65 69  |x2(tx%,topy%-hei|
00002af0  67 68 74 5f 62 6f 78 25  2c 34 30 30 2c 68 65 69  |ght_box%,400,hei|
00002b00  67 68 74 5f 62 6f 78 25  29 0d 01 a9 2c ef 32 34  |ght_box%)...,.24|
00002b10  2c 74 78 25 3b 74 6f 70  79 25 2d 68 65 69 67 68  |,tx%;topy%-heigh|
00002b20  74 5f 62 6f 78 25 3b 74  78 25 2b 34 30 30 3b 74  |t_box%;tx%+400;t|
00002b30  6f 70 79 25 3b 0d 01 aa  16 e3 6e 75 6d 25 3d 31  |opy%;.....num%=1|
00002b40  b8 6e 75 6d 62 65 72 5f  6f 66 25 0d 01 ab 37 6c  |.number_of%...7l|
00002b50  69 6e 65 24 3d c3 28 74  61 62 6c 65 73 25 28 6e  |ine$=.(tables%(n|
00002b60  75 6d 25 2c 31 29 29 2b  22 78 22 2b c3 28 74 61  |um%,1))+"x"+.(ta|
00002b70  62 6c 65 73 25 28 6e 75  6d 25 2c 32 29 29 2b 22  |bles%(num%,2))+"|
00002b80  3d 22 0d 01 ac 24 78 5f  61 6e 73 77 65 72 25 28  |="...$x_answer%(|
00002b90  6e 75 6d 25 29 3d 28 a9  28 6c 69 6e 65 24 29 2a  |num%)=(.(line$)*|
00002ba0  33 36 29 2b 31 32 0d 01  ad 33 f2 65 6e 74 65 72  |36)+12...3.enter|
00002bb0  5f 6c 69 6e 65 28 74 78  25 2c 74 78 25 2b 31 32  |_line(tx%,tx%+12|
00002bc0  2c 74 6f 70 79 25 2d 28  6e 75 6d 25 2a 37 32 29  |,topy%-(num%*72)|
00002bd0  2c 30 2c 6c 69 6e 65 24  29 0d 01 ae 05 ed 0d 01  |,0,line$).......|
00002be0  af 16 e3 6e 75 6d 25 3d  31 b8 6e 75 6d 62 65 72  |...num%=1.number|
00002bf0  5f 6f 66 25 0d 01 b0 3e  f2 65 6e 74 65 72 5f 6c  |_of%...>.enter_l|
00002c00  69 6e 65 28 74 78 25 2c  74 78 25 2b 78 5f 61 6e  |ine(tx%,tx%+x_an|
00002c10  73 77 65 72 25 28 6e 75  6d 25 29 2c 74 6f 70 79  |swer%(num%),topy|
00002c20  25 2d 28 6e 75 6d 25 2a  37 32 29 2c 30 2c 22 3f  |%-(num%*72),0,"?|
00002c30  22 29 0d 01 b1 1d 69 6e  70 75 74 24 3d 22 22 3a  |")....input$="":|
00002c40  69 6e 5f 6e 75 6d 25 3d  30 3a 6f 6b 25 3d 30 0d  |in_num%=0:ok%=0.|
00002c50  01 b2 05 f5 0d 01 b3 05  f5 0d 01 b4 0c 69 6e 25  |.............in%|
00002c60  3d a6 28 31 29 0d 01 b5  39 fd 28 69 6e 25 3d 31  |=.(1)...9.(in%=1|
00002c70  33 20 80 20 a9 28 69 6e  70 75 74 24 29 3e 30 29  |3 . .(input$)>0)|
00002c80  20 84 20 69 6e 25 3d 31  32 37 20 84 20 28 69 6e  | . in%=127 . (in|
00002c90  25 3e 34 37 20 80 20 69  6e 25 3c 35 38 29 0d 01  |%>47 . in%<58)..|
00002ca0  b6 0e e7 69 6e 25 3d 31  32 37 20 8c 0d 01 b7 17  |...in%=127 .....|
00002cb0  69 6e 70 75 74 24 3d 22  22 3a 69 6e 5f 6e 75 6d  |input$="":in_num|
00002cc0  25 3d 30 0d 01 b8 3e f2  65 6e 74 65 72 5f 6c 69  |%=0...>.enter_li|
00002cd0  6e 65 28 74 78 25 2c 74  78 25 2b 78 5f 61 6e 73  |ne(tx%,tx%+x_ans|
00002ce0  77 65 72 25 28 6e 75 6d  25 29 2c 74 6f 70 79 25  |wer%(num%),topy%|
00002cf0  2d 28 6e 75 6d 25 2a 37  32 29 2c 30 2c 22 3f 22  |-(num%*72),0,"?"|
00002d00  29 0d 01 b9 05 cd 0d 01  ba 24 e7 28 69 6e 25 3e  |)........$.(in%>|
00002d10  34 37 20 80 20 69 6e 25  3c 35 38 29 20 80 20 69  |47 . in%<58) . i|
00002d20  6e 5f 6e 75 6d 25 3c 33  20 8c 0d 01 bb 18 69 6e  |n_num%<3 .....in|
00002d30  70 75 74 24 3d 69 6e 70  75 74 24 2b bd 28 69 6e  |put$=input$+.(in|
00002d40  25 29 0d 01 bc 15 69 6e  5f 6e 75 6d 25 3d 69 6e  |%)....in_num%=in|
00002d50  5f 6e 75 6d 25 2b 31 0d  01 bd 52 f2 65 6e 74 65  |_num%+1...R.ente|
00002d60  72 5f 6c 69 6e 65 28 74  78 25 2c 74 78 25 2b 78  |r_line(tx%,tx%+x|
00002d70  5f 61 6e 73 77 65 72 25  28 6e 75 6d 25 29 2b 28  |_answer%(num%)+(|
00002d80  28 69 6e 5f 6e 75 6d 25  2d 31 29 2a 33 36 29 2c  |(in_num%-1)*36),|
00002d90  74 6f 70 79 25 2d 28 6e  75 6d 25 2a 37 32 29 2c  |topy%-(num%*72),|
00002da0  30 2c bd 28 69 6e 25 29  29 0d 01 be 05 cd 0d 01  |0,.(in%)).......|
00002db0  bf 0d e7 69 6e 25 3d 31  33 20 8c 0d 01 c0 09 2a  |...in%=13 .....*|
00002dc0  46 58 31 35 0d 01 c1 20  e7 74 61 62 6c 65 73 25  |FX15... .tables%|
00002dd0  28 6e 75 6d 25 2c 33 29  3d bb 28 69 6e 70 75 74  |(num%,3)=.(input|
00002de0  24 29 20 8c 0d 01 c2 19  6f 6b 25 3d 31 3a d4 31  |$) .....ok%=1:.1|
00002df0  2c 2d 31 35 2c 26 32 30  30 30 2c 32 30 0d 01 c3  |,-15,&2000,20...|
00002e00  15 69 6e 5f 6e 75 6d 25  3d 69 6e 5f 6e 75 6d 25  |.in_num%=in_num%|
00002e10  2b 31 0d 01 c4 4f f2 65  6e 74 65 72 5f 6c 69 6e  |+1...O.enter_lin|
00002e20  65 28 74 78 25 2c 74 78  25 2b 78 5f 61 6e 73 77  |e(tx%,tx%+x_answ|
00002e30  65 72 25 28 6e 75 6d 25  29 2b 28 28 69 6e 5f 6e  |er%(num%)+((in_n|
00002e40  75 6d 25 2d 31 29 2a 33  36 29 2c 74 6f 70 79 25  |um%-1)*36),topy%|
00002e50  2d 28 6e 75 6d 25 2a 37  32 29 2c 30 2c 22 79 22  |-(num%*72),0,"y"|
00002e60  29 0d 01 c5 05 cd 0d 01  c6 21 e7 74 61 62 6c 65  |)........!.table|
00002e70  73 25 28 6e 75 6d 25 2c  33 29 3c 3e bb 28 69 6e  |s%(num%,3)<>.(in|
00002e80  70 75 74 24 29 20 8c 0d  01 c7 17 69 6e 70 75 74  |put$) .....input|
00002e90  24 3d 22 22 3a 69 6e 5f  6e 75 6d 25 3d 30 0d 01  |$="":in_num%=0..|
00002ea0  c8 13 d4 32 2c 2d 31 35  2c 26 32 30 30 30 2c 32  |...2,-15,&2000,2|
00002eb0  30 0d 01 c9 3e f2 65 6e  74 65 72 5f 6c 69 6e 65  |0...>.enter_line|
00002ec0  28 74 78 25 2c 74 78 25  2b 78 5f 61 6e 73 77 65  |(tx%,tx%+x_answe|
00002ed0  72 25 28 6e 75 6d 25 29  2c 74 6f 70 79 25 2d 28  |r%(num%),topy%-(|
00002ee0  6e 75 6d 25 2a 37 32 29  2c 30 2c 22 6e 22 29 0d  |num%*72),0,"n").|
00002ef0  01 ca 0e f2 70 61 75 73  65 28 35 30 29 0d 01 cb  |....pause(50)...|
00002f00  3e f2 65 6e 74 65 72 5f  6c 69 6e 65 28 74 78 25  |>.enter_line(tx%|
00002f10  2c 74 78 25 2b 78 5f 61  6e 73 77 65 72 25 28 6e  |,tx%+x_answer%(n|
00002f20  75 6d 25 29 2c 74 6f 70  79 25 2d 28 6e 75 6d 25  |um%),topy%-(num%|
00002f30  2a 37 32 29 2c 30 2c 22  3f 22 29 0d 01 cc 05 cd  |*72),0,"?").....|
00002f40  0d 01 cd 05 cd 0d 01 ce  0b fd 20 6f 6b 25 3d 31  |.......... ok%=1|
00002f50  0d 01 cf 05 ed 0d 01 d0  05 e1 0d 01 d1 30 dd f2  |.............0..|
00002f60  65 6e 74 65 72 5f 6c 69  6e 65 28 62 61 73 65 5f  |enter_line(base_|
00002f70  65 78 25 2c 65 78 25 2c  65 79 25 2c 70 61 75 73  |ex%,ex%,ey%,paus|
00002f80  65 25 2c 65 6e 74 65 72  24 29 0d 01 d2 19 e3 65  |e%,enter$).....e|
00002f90  6e 74 65 72 25 3d 31 20  b8 20 a9 28 65 6e 74 65  |nter%=1 . .(ente|
00002fa0  72 24 29 0d 01 d3 45 f2  65 6e 74 65 72 5f 63 68  |r$)...E.enter_ch|
00002fb0  72 28 62 61 73 65 5f 65  78 25 2c 65 78 25 2b 28  |r(base_ex%,ex%+(|
00002fc0  65 6e 74 65 72 25 2a 33  36 29 2c 65 79 25 2c 70  |enter%*36),ey%,p|
00002fd0  61 75 73 65 25 2c c1 65  6e 74 65 72 24 2c 65 6e  |ause%,.enter$,en|
00002fe0  74 65 72 25 2c 31 29 29  0d 01 d4 05 ed 0d 01 d5  |ter%,1))........|
00002ff0  05 e1 0d 01 d6 2d dd f2  65 6e 74 65 72 5f 63 68  |.....-..enter_ch|
00003000  72 28 62 61 73 65 5f 78  25 2c 78 25 2c 79 25 2c  |r(base_x%,x%,y%,|
00003010  70 61 75 73 65 25 2c 73  70 72 69 74 65 24 29 0d  |pause%,sprite$).|
00003020  01 d7 1f e3 6d 6f 76 65  25 3d 62 61 73 65 5f 78  |....move%=base_x|
00003030  25 2b 34 30 30 20 b8 20  78 25 20 88 2d 34 0d 01  |%+400 . x% .-4..|
00003040  d8 2a f2 70 6c 6f 74 5f  73 70 72 69 74 65 28 6d  |.*.plot_sprite(m|
00003050  6f 76 65 25 2c 79 25 2c  31 2c 31 2c 31 2c 31 2c  |ove%,y%,1,1,1,1,|
00003060  73 70 72 69 74 65 24 29  0d 01 d9 05 ed 0d 01 da  |sprite$)........|
00003070  13 d4 31 2c 2d 31 35 2c  26 32 30 30 30 2c 31 30  |..1,-15,&2000,10|
00003080  0d 01 db 05 e1 0d 01 dc  12 dd f2 69 6e 74 69 67  |...........intig|
00003090  65 72 5f 69 63 6e 73 0d  01 dd 0e e3 66 25 3d 30  |er_icns.....f%=0|
000030a0  20 b8 20 31 32 0d 01 de  39 e7 28 55 25 20 80 20  | . 12...9.(U% . |
000030b0  28 31 3c 3c 66 25 29 29  3d 28 31 3c 3c 66 25 29  |(1<<f%))=(1<<f%)|
000030c0  20 66 69 72 73 74 6e 25  28 66 25 29 3d 31 20 8b  | firstn%(f%)=1 .|
000030d0  20 66 69 72 73 74 6e 25  28 66 25 29 3d 30 0d 01  | firstn%(f%)=0..|
000030e0  df 05 ed 0d 01 e0 0e e3  66 25 3d 30 20 b8 20 31  |........f%=0 . 1|
000030f0  32 0d 01 e1 3b e7 28 57  25 20 80 20 28 31 3c 3c  |2...;.(W% . (1<<|
00003100  66 25 29 29 3d 28 31 3c  3c 66 25 29 20 73 65 63  |f%))=(1<<f%) sec|
00003110  6f 6e 64 6e 25 28 66 25  29 3d 31 20 8b 20 73 65  |ondn%(f%)=1 . se|
00003120  63 6f 6e 64 6e 25 28 66  25 29 3d 30 0d 01 e2 05  |condn%(f%)=0....|
00003130  ed 0d 01 e3 31 e7 28 57  25 20 80 20 28 31 3c 3c  |....1.(W% . (1<<|
00003140  31 33 29 29 3d 28 31 3c  3c 31 33 29 20 6d 69 78  |13))=(1<<13) mix|
00003150  65 64 6e 25 3d 31 20 8b  20 6d 69 78 65 64 6e 25  |edn%=1 . mixedn%|
00003160  3d 30 0d 01 e4 05 e1 0d  01 e5 13 dd f2 73 65 74  |=0...........set|
00003170  5f 74 61 62 6c 65 5f 6f  6e 65 0d 01 e6 11 f2 69  |_table_one.....i|
00003180  6e 74 69 67 65 72 5f 69  63 6e 73 0d 01 e7 0f f2  |ntiger_icns.....|
00003190  63 6c 65 61 72 5f 72 6e  64 31 0d 01 e8 0f f2 63  |clear_rnd1.....c|
000031a0  6c 65 61 72 5f 72 6e 64  32 0d 01 e9 19 e3 66 69  |lear_rnd2.....fi|
000031b0  6e 64 25 3d 31 20 b8 20  6e 75 6d 62 65 72 5f 6f  |nd%=1 . number_o|
000031c0  66 25 0d 01 ea 13 72 65  70 65 61 74 5f 65 72 72  |f%....repeat_err|
000031d0  6f 72 25 3d 30 0d 01 eb  05 f5 0d 01 ec 21 72 65  |or%=0........!re|
000031e0  70 65 61 74 5f 65 72 72  6f 72 25 3d 72 65 70 65  |peat_error%=repe|
000031f0  61 74 5f 65 72 72 6f 72  25 2b 31 0d 01 ed 05 f5  |at_error%+1.....|
00003200  0d 01 ee 12 72 6e 64 25  3d 28 b3 28 31 33 29 2d  |....rnd%=(.(13)-|
00003210  31 29 0d 01 ef 15 fd 20  66 69 72 73 74 6e 25 28  |1)..... firstn%(|
00003220  72 6e 64 25 29 3d 31 0d  01 f0 2d fd 20 72 6e 64  |rnd%)=1...-. rnd|
00003230  5f 70 69 63 6b 65 72 31  25 28 72 6e 64 25 29 3d  |_picker1%(rnd%)=|
00003240  30 20 84 20 72 65 70 65  61 74 5f 65 72 72 6f 72  |0 . repeat_error|
00003250  25 3d 31 30 0d 01 f1 18  72 6e 64 5f 70 69 63 6b  |%=10....rnd_pick|
00003260  65 72 31 25 28 72 6e 64  25 29 3d 31 0d 01 f2 1c  |er1%(rnd%)=1....|
00003270  72 6e 64 5f 6e 75 6d 62  65 72 31 25 28 66 69 6e  |rnd_number1%(fin|
00003280  64 25 29 3d 72 6e 64 25  0d 01 f3 13 72 65 70 65  |d%)=rnd%....repe|
00003290  61 74 5f 65 72 72 6f 72  25 3d 30 0d 01 f4 05 f5  |at_error%=0.....|
000032a0  0d 01 f5 21 72 65 70 65  61 74 5f 65 72 72 6f 72  |...!repeat_error|
000032b0  25 3d 72 65 70 65 61 74  5f 65 72 72 6f 72 25 2b  |%=repeat_error%+|
000032c0  31 0d 01 f6 05 f5 0d 01  f7 12 72 6e 64 25 3d 28  |1.........rnd%=(|
000032d0  b3 28 31 33 29 2d 31 29  0d 01 f8 16 fd 20 73 65  |.(13)-1)..... se|
000032e0  63 6f 6e 64 6e 25 28 72  6e 64 25 29 3d 31 0d 01  |condn%(rnd%)=1..|
000032f0  f9 2d fd 20 72 6e 64 5f  70 69 63 6b 65 72 32 25  |.-. rnd_picker2%|
00003300  28 72 6e 64 25 29 3d 30  20 84 20 72 65 70 65 61  |(rnd%)=0 . repea|
00003310  74 5f 65 72 72 6f 72 25  3d 31 30 0d 01 fa 18 72  |t_error%=10....r|
00003320  6e 64 5f 70 69 63 6b 65  72 32 25 28 72 6e 64 25  |nd_picker2%(rnd%|
00003330  29 3d 31 0d 01 fb 1c 72  6e 64 5f 6e 75 6d 62 65  |)=1....rnd_numbe|
00003340  72 32 25 28 66 69 6e 64  25 29 3d 72 6e 64 25 0d  |r2%(find%)=rnd%.|
00003350  01 fc 05 ed 0d 01 fd 19  e3 66 69 6e 64 25 3d 31  |.........find%=1|
00003360  20 b8 20 6e 75 6d 62 65  72 5f 6f 66 25 0d 01 fe  | . number_of%...|
00003370  1c e7 6d 69 78 65 64 6e  25 3d 31 20 80 20 b3 28  |..mixedn%=1 . .(|
00003380  31 30 30 29 3e 35 30 20  8c 0d 01 ff 31 61 25 3d  |100)>50 ....1a%=|
00003390  72 6e 64 5f 6e 75 6d 62  65 72 31 25 28 66 69 6e  |rnd_number1%(fin|
000033a0  64 25 29 3a 62 25 3d 72  6e 64 5f 6e 75 6d 62 65  |d%):b%=rnd_numbe|
000033b0  72 32 25 28 66 69 6e 64  25 29 0d 02 00 31 72 6e  |r2%(find%)...1rn|
000033c0  64 5f 6e 75 6d 62 65 72  32 25 28 66 69 6e 64 25  |d_number2%(find%|
000033d0  29 3d 61 25 3a 72 6e 64  5f 6e 75 6d 62 65 72 31  |)=a%:rnd_number1|
000033e0  25 28 66 69 6e 64 25 29  3d 62 25 0d 02 01 05 cd  |%(find%)=b%.....|
000033f0  0d 02 02 28 74 61 62 6c  65 73 25 28 66 69 6e 64  |...(tables%(find|
00003400  25 2c 31 29 3d 72 6e 64  5f 6e 75 6d 62 65 72 31  |%,1)=rnd_number1|
00003410  25 28 66 69 6e 64 25 29  0d 02 03 28 74 61 62 6c  |%(find%)...(tabl|
00003420  65 73 25 28 66 69 6e 64  25 2c 32 29 3d 72 6e 64  |es%(find%,2)=rnd|
00003430  5f 6e 75 6d 62 65 72 32  25 28 66 69 6e 64 25 29  |_number2%(find%)|
00003440  0d 02 04 3c 74 61 62 6c  65 73 25 28 66 69 6e 64  |...<tables%(find|
00003450  25 2c 33 29 3d 72 6e 64  5f 6e 75 6d 62 65 72 31  |%,3)=rnd_number1|
00003460  25 28 66 69 6e 64 25 29  2a 72 6e 64 5f 6e 75 6d  |%(find%)*rnd_num|
00003470  62 65 72 32 25 28 66 69  6e 64 25 29 0d 02 05 05  |ber2%(find%)....|
00003480  ed 0d 02 06 05 e1 0d 02  07 10 dd f2 63 6c 65 61  |............clea|
00003490  72 5f 72 6e 64 31 0d 02  08 0c e3 66 25 3d 30 b8  |r_rnd1.....f%=0.|
000034a0  31 32 0d 02 09 16 72 6e  64 5f 70 69 63 6b 65 72  |12....rnd_picker|
000034b0  31 25 28 66 25 29 3d 30  0d 02 0a 05 ed 0d 02 0b  |1%(f%)=0........|
000034c0  05 e1 0d 02 0c 10 dd f2  63 6c 65 61 72 5f 72 6e  |........clear_rn|
000034d0  64 32 0d 02 0d 0c e3 66  25 3d 30 b8 31 32 0d 02  |d2.....f%=0.12..|
000034e0  0e 16 72 6e 64 5f 70 69  63 6b 65 72 32 25 28 66  |..rnd_picker2%(f|
000034f0  25 29 3d 30 0d 02 0f 05  ed 0d 02 10 05 e1 0d 02  |%)=0............|
00003500  11 3f dd f2 74 65 78 74  5f 62 6f 78 28 73 74 5f  |.?..text_box(st_|
00003510  78 25 2c 73 74 5f 79 25  2c 6c 65 6e 67 74 68 25  |x%,st_y%,length%|
00003520  2c 68 65 69 67 68 74 25  2c 6a 75 73 74 5f 74 79  |,height%,just_ty|
00003530  70 65 25 2c 61 24 2c 62  24 2c 63 24 29 0d 02 12  |pe%,a$,b$,c$)...|
00003540  33 e7 74 65 78 74 5f 63  6f 6c 25 3d 33 20 f2 62  |3.text_col%=3 .b|
00003550  6f 78 32 28 73 74 5f 78  25 2c 73 74 5f 79 25 2c  |ox2(st_x%,st_y%,|
00003560  6c 65 6e 67 74 68 25 2c  68 65 69 67 68 74 25 29  |length%,height%)|
00003570  0d 02 13 33 e7 74 65 78  74 5f 63 6f 6c 25 3d 30  |...3.text_col%=0|
00003580  20 f2 62 6f 78 33 28 73  74 5f 78 25 2c 73 74 5f  | .box3(st_x%,st_|
00003590  79 25 2c 6c 65 6e 67 74  68 25 2c 68 65 69 67 68  |y%,length%,heigh|
000035a0  74 25 29 0d 02 14 20 66  5f 77 69 64 74 68 31 25  |t%)... f_width1%|
000035b0  3d a4 66 6f 6e 74 5f 73  74 72 69 6e 67 5f 77 28  |=.font_string_w(|
000035c0  61 24 29 0d 02 15 20 66  5f 77 69 64 74 68 32 25  |a$)... f_width2%|
000035d0  3d a4 66 6f 6e 74 5f 73  74 72 69 6e 67 5f 77 28  |=.font_string_w(|
000035e0  62 24 29 0d 02 16 20 66  5f 77 69 64 74 68 33 25  |b$)... f_width3%|
000035f0  3d a4 66 6f 6e 74 5f 73  74 72 69 6e 67 5f 77 28  |=.font_string_w(|
00003600  63 24 29 0d 02 17 10 66  5f 68 65 69 67 68 74 25  |c$)....f_height%|
00003610  3d 37 30 0d 02 18 2c 6c  69 6e 65 73 25 3d 33 3a  |=70...,lines%=3:|
00003620  e7 63 24 3d 22 22 3a 6c  69 6e 65 73 25 3d 32 3a  |.c$="":lines%=2:|
00003630  e7 62 24 3d 22 22 3a 6c  69 6e 65 73 25 3d 31 0d  |.b$="":lines%=1.|
00003640  02 19 2e 78 70 6f 73 31  25 3d 73 74 5f 78 25 2b  |...xpos1%=st_x%+|
00003650  28 28 6c 65 6e 67 74 68  25 2d 28 66 5f 77 69 64  |((length%-(f_wid|
00003660  74 68 31 25 2f 34 30 30  29 29 2f 32 29 0d 02 1a  |th1%/400))/2)...|
00003670  2e 78 70 6f 73 32 25 3d  73 74 5f 78 25 2b 28 28  |.xpos2%=st_x%+((|
00003680  6c 65 6e 67 74 68 25 2d  28 66 5f 77 69 64 74 68  |length%-(f_width|
00003690  32 25 2f 34 30 30 29 29  2f 32 29 0d 02 1b 2e 78  |2%/400))/2)....x|
000036a0  70 6f 73 33 25 3d 73 74  5f 78 25 2b 28 28 6c 65  |pos3%=st_x%+((le|
000036b0  6e 67 74 68 25 2d 28 66  5f 77 69 64 74 68 33 25  |ngth%-(f_width3%|
000036c0  2f 34 30 30 29 29 2f 32  29 0d 02 1c 13 e7 6a 75  |/400))/2).....ju|
000036d0  73 74 5f 74 79 70 65 25  3d 32 20 8c 0d 02 1d 30  |st_type%=2 ....0|
000036e0  e7 78 70 6f 73 31 25 3c  78 70 6f 73 32 25 20 78  |.xpos1%<xpos2% x|
000036f0  70 6f 73 32 25 3d 78 70  6f 73 31 25 20 8b 20 78  |pos2%=xpos1% . x|
00003700  70 6f 73 31 25 3d 78 70  6f 73 32 25 0d 02 1e 30  |pos1%=xpos2%...0|
00003710  e7 78 70 6f 73 32 25 3c  78 70 6f 73 33 25 20 78  |.xpos2%<xpos3% x|
00003720  70 6f 73 33 25 3d 78 70  6f 73 32 25 20 8b 20 78  |pos3%=xpos2% . x|
00003730  70 6f 73 32 25 3d 78 70  6f 73 33 25 0d 02 1f 30  |pos2%=xpos3%...0|
00003740  e7 78 70 6f 73 33 25 3c  78 70 6f 73 31 25 20 78  |.xpos3%<xpos1% x|
00003750  70 6f 73 31 25 3d 78 70  6f 73 33 25 20 8b 20 78  |pos1%=xpos3% . x|
00003760  70 6f 73 33 25 3d 78 70  6f 73 31 25 0d 02 20 05  |pos3%=xpos1%.. .|
00003770  cd 0d 02 21 54 79 70 6f  73 31 25 3d 28 73 74 5f  |...!Typos1%=(st_|
00003780  79 25 2d 28 66 5f 68 65  69 67 68 74 25 2f 36 29  |y%-(f_height%/6)|
00003790  2a 34 29 2b 28 68 65 69  67 68 74 25 2d 28 6c 69  |*4)+(height%-(li|
000037a0  6e 65 73 25 2a 66 5f 68  65 69 67 68 74 25 29 29  |nes%*f_height%))|
000037b0  2f 32 2b 28 6c 69 6e 65  73 25 2a 66 5f 68 65 69  |/2+(lines%*f_hei|
000037c0  67 68 74 25 29 0d 02 22  1b 79 70 6f 73 32 25 3d  |ght%)..".ypos2%=|
000037d0  79 70 6f 73 31 25 2d 66  5f 68 65 69 67 68 74 25  |ypos1%-f_height%|
000037e0  0d 02 23 1b 79 70 6f 73  33 25 3d 79 70 6f 73 32  |..#.ypos3%=ypos2|
000037f0  25 2d 66 5f 68 65 69 67  68 74 25 0d 02 24 27 e7  |%-f_height%..$'.|
00003800  74 65 78 74 5f 63 6f 6c  25 3d 33 20 f2 70 72 69  |text_col%=3 .pri|
00003810  28 78 70 6f 73 31 25 2c  79 70 6f 73 31 25 2c 61  |(xpos1%,ypos1%,a|
00003820  24 29 0d 02 25 28 e7 74  65 78 74 5f 63 6f 6c 25  |$)..%(.text_col%|
00003830  3d 30 20 f2 70 72 69 32  28 78 70 6f 73 31 25 2c  |=0 .pri2(xpos1%,|
00003840  79 70 6f 73 31 25 2c 61  24 29 0d 02 26 32 e7 6c  |ypos1%,a$)..&2.l|
00003850  69 6e 65 73 25 3e 31 20  80 20 74 65 78 74 5f 63  |ines%>1 . text_c|
00003860  6f 6c 25 3d 33 20 f2 70  72 69 28 78 70 6f 73 32  |ol%=3 .pri(xpos2|
00003870  25 2c 79 70 6f 73 32 25  2c 62 24 29 0d 02 27 33  |%,ypos2%,b$)..'3|
00003880  e7 6c 69 6e 65 73 25 3e  31 20 80 20 74 65 78 74  |.lines%>1 . text|
00003890  5f 63 6f 6c 25 3d 30 20  f2 70 72 69 32 28 78 70  |_col%=0 .pri2(xp|
000038a0  6f 73 32 25 2c 79 70 6f  73 32 25 2c 62 24 29 0d  |os2%,ypos2%,b$).|
000038b0  02 28 32 e7 6c 69 6e 65  73 25 3e 32 20 80 20 74  |.(2.lines%>2 . t|
000038c0  65 78 74 5f 63 6f 6c 25  3d 33 20 f2 70 72 69 28  |ext_col%=3 .pri(|
000038d0  78 70 6f 73 33 25 2c 79  70 6f 73 33 25 2c 63 24  |xpos3%,ypos3%,c$|
000038e0  29 0d 02 29 33 e7 6c 69  6e 65 73 25 3e 32 20 80  |)..)3.lines%>2 .|
000038f0  20 74 65 78 74 5f 63 6f  6c 25 3d 30 20 f2 70 72  | text_col%=0 .pr|
00003900  69 32 28 78 70 6f 73 33  25 2c 79 70 6f 73 33 25  |i2(xpos3%,ypos3%|
00003910  2c 63 24 29 0d 02 2a 05  e1 0d 02 2b 13 dd f2 70  |,c$)..*....+...p|
00003920  72 69 28 78 25 2c 79 25  2c 61 24 29 0d 02 2c 3a  |ri(x%,y%,a$)..,:|
00003930  c8 99 22 46 6f 6e 74 5f  46 69 6e 64 46 6f 6e 74  |.."Font_FindFont|
00003940  22 2c 2c 22 54 41 42 4c  4f 49 44 2e 4d 65 64 69  |",,"TABLOID.Medi|
00003950  75 6d 22 2c 33 32 30 2c  33 36 30 2c 30 2c 30 20  |um",320,360,0,0 |
00003960  b8 20 68 61 6e 25 0d 02  2d 23 c8 99 22 46 6f 6e  |. han%..-#.."Fon|
00003970  74 5f 53 65 74 46 6f 6e  74 43 6f 6c 6f 75 72 73  |t_SetFontColours|
00003980  22 2c 30 2c 30 2c 31 2c  32 0d 02 2e 14 ef 30 2c  |",0,0,1,2.....0,|
00003990  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 0d 02 2f  |0,0,0,0,0,0,0../|
000039a0  1f c8 99 22 46 6f 6e 74  5f 50 61 69 6e 74 22 2c  |..."Font_Paint",|
000039b0  2c 61 24 2c 31 36 2c 78  25 2c 79 25 0d 02 30 1a  |,a$,16,x%,y%..0.|
000039c0  c8 99 22 46 6f 6e 74 5f  4c 6f 73 65 46 6f 6e 74  |.."Font_LoseFont|
000039d0  22 2c 68 61 6e 25 0d 02  31 05 e1 0d 02 32 14 dd  |",han%..1....2..|
000039e0  f2 70 72 69 32 28 78 25  2c 79 25 2c 61 24 29 0d  |.pri2(x%,y%,a$).|
000039f0  02 33 3a c8 99 22 46 6f  6e 74 5f 46 69 6e 64 46  |.3:.."Font_FindF|
00003a00  6f 6e 74 22 2c 2c 22 54  41 42 4c 4f 49 44 2e 4d  |ont",,"TABLOID.M|
00003a10  65 64 69 75 6d 22 2c 33  32 30 2c 33 36 30 2c 30  |edium",320,360,0|
00003a20  2c 30 20 b8 20 68 61 6e  25 0d 02 34 24 c8 99 22  |,0 . han%..4$.."|
00003a30  46 6f 6e 74 5f 53 65 74  46 6f 6e 74 43 6f 6c 6f  |Font_SetFontColo|
00003a40  75 72 73 22 2c 30 2c 33  2c 32 2c 2d 32 0d 02 35  |urs",0,3,2,-2..5|
00003a50  14 ef 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |..0,0,0,0,0,0,0,|
00003a60  30 0d 02 36 1f c8 99 22  46 6f 6e 74 5f 50 61 69  |0..6..."Font_Pai|
00003a70  6e 74 22 2c 2c 61 24 2c  31 36 2c 78 25 2c 79 25  |nt",,a$,16,x%,y%|
00003a80  0d 02 37 1a c8 99 22 46  6f 6e 74 5f 4c 6f 73 65  |..7..."Font_Lose|
00003a90  46 6f 6e 74 22 2c 68 61  6e 25 0d 02 38 05 e1 0d  |Font",han%..8...|
00003aa0  02 39 1c dd a4 66 6f 6e  74 5f 73 74 72 69 6e 67  |.9...font_string|
00003ab0  5f 77 28 73 74 72 69 6e  67 24 29 0d 02 3a 14 24  |_w(string$)..:.$|
00003ac0  73 74 72 69 6e 67 25 3d  73 74 72 69 6e 67 24 0d  |string%=string$.|
00003ad0  02 3b 3a c8 99 22 46 6f  6e 74 5f 46 69 6e 64 46  |.;:.."Font_FindF|
00003ae0  6f 6e 74 22 2c 2c 22 54  41 42 4c 4f 49 44 2e 4d  |ont",,"TABLOID.M|
00003af0  65 64 69 75 6d 22 2c 33  32 30 2c 33 36 30 2c 30  |edium",320,360,0|
00003b00  2c 30 20 b8 20 68 61 6e  25 0d 02 3c 47 c8 99 22  |,0 . han%..<G.."|
00003b10  46 6f 6e 74 5f 53 74 72  69 6e 67 57 69 64 74 68  |Font_StringWidth|
00003b20  22 2c 30 2c 73 74 72 69  6e 67 25 2c 36 30 30 30  |",0,string%,6000|
00003b30  30 30 2c 34 38 30 30 30  30 2c 2d 31 2c 38 30 20  |00,480000,-1,80 |
00003b40  b8 20 72 30 2c 72 31 2c  66 5f 77 69 64 74 68 25  |. r0,r1,f_width%|
00003b50  0d 02 3d 1a c8 99 22 46  6f 6e 74 5f 4c 6f 73 65  |..=..."Font_Lose|
00003b60  46 6f 6e 74 22 2c 68 61  6e 25 0d 02 3e 0d 3d 66  |Font",han%..>.=f|
00003b70  5f 77 69 64 74 68 25 0d  02 3f 1c dd a4 66 6f 6e  |_width%..?...fon|
00003b80  74 5f 73 74 72 69 6e 67  5f 68 28 73 74 72 69 6e  |t_string_h(strin|
00003b90  67 24 29 0d 02 40 14 24  73 74 72 69 6e 67 25 3d  |g$)..@.$string%=|
00003ba0  73 74 72 69 6e 67 24 0d  02 41 3a c8 99 22 46 6f  |string$..A:.."Fo|
00003bb0  6e 74 5f 46 69 6e 64 46  6f 6e 74 22 2c 2c 22 54  |nt_FindFont",,"T|
00003bc0  41 42 4c 4f 49 44 2e 4d  65 64 69 75 6d 22 2c 33  |ABLOID.Medium",3|
00003bd0  32 30 2c 33 36 30 2c 30  2c 30 20 b8 20 68 61 6e  |20,360,0,0 . han|
00003be0  25 0d 02 42 4a c8 99 22  46 6f 6e 74 5f 53 74 72  |%..BJ.."Font_Str|
00003bf0  69 6e 67 57 69 64 74 68  22 2c 30 2c 73 74 72 69  |ingWidth",0,stri|
00003c00  6e 67 25 2c 36 30 30 30  30 30 2c 34 38 30 30 30  |ng%,600000,48000|
00003c10  30 2c 2d 31 2c 38 30 20  b8 20 72 30 2c 72 31 2c  |0,-1,80 . r0,r1,|
00003c20  72 32 2c 66 5f 68 65 69  67 68 74 0d 02 43 1a c8  |r2,f_height..C..|
00003c30  99 22 46 6f 6e 74 5f 4c  6f 73 65 46 6f 6e 74 22  |."Font_LoseFont"|
00003c40  2c 68 61 6e 25 0d 02 44  0e 3d 66 5f 68 65 69 67  |,han%..D.=f_heig|
00003c50  68 74 25 0d 02 45 0e dd  f2 75 70 5f 62 6f 78 65  |ht%..E...up_boxe|
00003c60  73 0d 02 46 0f e3 73 6e  66 25 3d 31 20 b8 20 35  |s..F..snf%=1 . 5|
00003c70  0d 02 47 19 e7 6d 6f 76  5f 74 61 62 25 28 73 6e  |..G..mov_tab%(sn|
00003c80  66 25 2c 34 29 3c 30 20  8c 0d 02 48 56 e7 20 a4  |f%,4)<0 ...HV. .|
00003c90  6c 65 66 74 5f 74 28 6d  6f 76 5f 74 61 62 25 28  |left_t(mov_tab%(|
00003ca0  73 6e 66 25 2c 31 29 2c  6d 6f 76 5f 74 61 62 25  |snf%,1),mov_tab%|
00003cb0  28 73 6e 66 25 2c 32 29  29 3d 30 20 6d 6f 76 5f  |(snf%,2))=0 mov_|
00003cc0  74 61 62 25 28 73 6e 66  25 2c 31 29 3d 6d 6f 76  |tab%(snf%,1)=mov|
00003cd0  5f 74 61 62 25 28 73 6e  66 25 2c 31 29 2d 38 0d  |_tab%(snf%,1)-8.|
00003ce0  02 49 45 e7 20 a4 6c 65  66 74 5f 74 28 6d 6f 76  |.IE. .left_t(mov|
00003cf0  5f 74 61 62 25 28 73 6e  66 25 2c 31 29 2c 6d 6f  |_tab%(snf%,1),mo|
00003d00  76 5f 74 61 62 25 28 73  6e 66 25 2c 32 29 29 3d  |v_tab%(snf%,2))=|
00003d10  31 20 6d 6f 76 5f 74 61  62 25 28 73 6e 66 25 2c  |1 mov_tab%(snf%,|
00003d20  34 29 3d 34 0d 02 4a 05  cd 0d 02 4b 19 e7 6d 6f  |4)=4..J....K..mo|
00003d30  76 5f 74 61 62 25 28 73  6e 66 25 2c 34 29 3e 30  |v_tab%(snf%,4)>0|
00003d40  20 8c 0d 02 4c 57 e7 20  a4 72 69 67 68 74 5f 74  | ...LW. .right_t|
00003d50  28 6d 6f 76 5f 74 61 62  25 28 73 6e 66 25 2c 31  |(mov_tab%(snf%,1|
00003d60  29 2c 6d 6f 76 5f 74 61  62 25 28 73 6e 66 25 2c  |),mov_tab%(snf%,|
00003d70  32 29 29 3d 30 20 6d 6f  76 5f 74 61 62 25 28 73  |2))=0 mov_tab%(s|
00003d80  6e 66 25 2c 31 29 3d 6d  6f 76 5f 74 61 62 25 28  |nf%,1)=mov_tab%(|
00003d90  73 6e 66 25 2c 31 29 2b  38 0d 02 4d 47 e7 20 a4  |snf%,1)+8..MG. .|
00003da0  72 69 67 68 74 5f 74 28  6d 6f 76 5f 74 61 62 25  |right_t(mov_tab%|
00003db0  28 73 6e 66 25 2c 31 29  2c 6d 6f 76 5f 74 61 62  |(snf%,1),mov_tab|
00003dc0  25 28 73 6e 66 25 2c 32  29 29 3d 31 20 6d 6f 76  |%(snf%,2))=1 mov|
00003dd0  5f 74 61 62 25 28 73 6e  66 25 2c 34 29 3d 2d 34  |_tab%(snf%,4)=-4|
00003de0  0d 02 4e 05 cd 0d 02 4f  19 e7 6d 6f 76 5f 74 61  |..N....O..mov_ta|
00003df0  62 25 28 73 6e 66 25 2c  35 29 3c 30 20 8c 0d 02  |b%(snf%,5)<0 ...|
00003e00  50 56 e7 20 a4 64 6f 77  6e 5f 74 28 6d 6f 76 5f  |PV. .down_t(mov_|
00003e10  74 61 62 25 28 73 6e 66  25 2c 31 29 2c 6d 6f 76  |tab%(snf%,1),mov|
00003e20  5f 74 61 62 25 28 73 6e  66 25 2c 32 29 29 3d 30  |_tab%(snf%,2))=0|
00003e30  20 6d 6f 76 5f 74 61 62  25 28 73 6e 66 25 2c 32  | mov_tab%(snf%,2|
00003e40  29 3d 6d 6f 76 5f 74 61  62 25 28 73 6e 66 25 2c  |)=mov_tab%(snf%,|
00003e50  32 29 2d 38 0d 02 51 45  e7 20 a4 64 6f 77 6e 5f  |2)-8..QE. .down_|
00003e60  74 28 6d 6f 76 5f 74 61  62 25 28 73 6e 66 25 2c  |t(mov_tab%(snf%,|
00003e70  31 29 2c 6d 6f 76 5f 74  61 62 25 28 73 6e 66 25  |1),mov_tab%(snf%|
00003e80  2c 32 29 29 3d 31 20 6d  6f 76 5f 74 61 62 25 28  |,2))=1 mov_tab%(|
00003e90  73 6e 66 25 2c 35 29 3d  34 0d 02 52 05 cd 0d 02  |snf%,5)=4..R....|
00003ea0  53 19 e7 6d 6f 76 5f 74  61 62 25 28 73 6e 66 25  |S..mov_tab%(snf%|
00003eb0  2c 35 29 3e 30 20 8c 0d  02 54 54 e7 20 a4 75 70  |,5)>0 ...TT. .up|
00003ec0  5f 74 28 6d 6f 76 5f 74  61 62 25 28 73 6e 66 25  |_t(mov_tab%(snf%|
00003ed0  2c 31 29 2c 6d 6f 76 5f  74 61 62 25 28 73 6e 66  |,1),mov_tab%(snf|
00003ee0  25 2c 32 29 29 3d 30 20  6d 6f 76 5f 74 61 62 25  |%,2))=0 mov_tab%|
00003ef0  28 73 6e 66 25 2c 32 29  3d 6d 6f 76 5f 74 61 62  |(snf%,2)=mov_tab|
00003f00  25 28 73 6e 66 25 2c 32  29 2b 38 0d 02 55 44 e7  |%(snf%,2)+8..UD.|
00003f10  20 a4 75 70 5f 74 28 6d  6f 76 5f 74 61 62 25 28  | .up_t(mov_tab%(|
00003f20  73 6e 66 25 2c 31 29 2c  6d 6f 76 5f 74 61 62 25  |snf%,1),mov_tab%|
00003f30  28 73 6e 66 25 2c 32 29  29 3d 31 20 6d 6f 76 5f  |(snf%,2))=1 mov_|
00003f40  74 61 62 25 28 73 6e 66  25 2c 35 29 3d 2d 34 0d  |tab%(snf%,5)=-4.|
00003f50  02 56 05 cd 0d 02 57 05  ed 0d 02 58 05 e1 0d 02  |.V....W....X....|
00003f60  59 10 dd f2 64 72 61 77  5f 62 6f 78 65 73 0d 02  |Y...draw_boxes..|
00003f70  5a 0f e3 73 6e 66 25 3d  31 20 b8 20 35 0d 02 5b  |Z..snf%=1 . 5..[|
00003f80  4b f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 6d 6f  |K.plot_sprite(mo|
00003f90  76 5f 74 61 62 25 28 73  6e 66 25 2c 31 29 2c 6d  |v_tab%(snf%,1),m|
00003fa0  6f 76 5f 74 61 62 25 28  73 6e 66 25 2c 32 29 2c  |ov_tab%(snf%,2),|
00003fb0  31 2c 31 2c 31 2c 31 2c  22 61 6e 62 6f 78 22 2b  |1,1,1,1,"anbox"+|
00003fc0  c3 28 73 6e 66 25 29 29  0d 02 5c 05 ed 0d 02 5d  |.(snf%))..\....]|
00003fd0  05 e1 0d 02 5e 1c dd f2  73 65 74 5f 6e 75 6d 5f  |....^...set_num_|
00003fe0  73 70 72 69 74 65 73 28  6e 75 6d 62 25 29 0d 02  |sprites(numb%)..|
00003ff0  5f 13 6d 61 78 61 6e 73  25 3d 6e 75 6d 62 25 2b  |_.maxans%=numb%+|
00004000  35 0d 02 60 0f e3 73 6e  66 25 3d 31 20 b8 20 35  |5..`..snf%=1 . 5|
00004010  0d 02 61 05 f5 0d 02 62  1f 70 72 65 73 65 6e 74  |..a....b.present|
00004020  65 64 25 28 73 6e 66 25  29 3d b3 28 6d 61 78 61  |ed%(snf%)=.(maxa|
00004030  6e 73 25 29 0d 02 63 1c  fd 70 72 65 73 65 6e 74  |ns%)..c..present|
00004040  65 64 25 28 73 6e 66 25  29 3c 3e 6e 75 6d 62 25  |ed%(snf%)<>numb%|
00004050  0d 02 64 05 ed 0d 02 65  11 63 6f 72 72 65 63 74  |..d....e.correct|
00004060  25 3d b3 28 35 29 0d 02  66 1e 70 72 65 73 65 6e  |%=.(5)..f.presen|
00004070  74 65 64 25 28 63 6f 72  72 65 63 74 25 29 3d 6e  |ted%(correct%)=n|
00004080  75 6d 62 25 0d 02 67 0f  e3 73 6e 66 25 3d 31 20  |umb%..g..snf%=1 |
00004090  b8 20 35 0d 02 68 21 74  61 24 28 73 6e 66 25 29  |. 5..h!ta$(snf%)|
000040a0  3d c3 28 70 72 65 73 65  6e 74 65 64 25 28 73 6e  |=.(presented%(sn|
000040b0  66 25 29 29 0d 02 69 05  ed 0d 02 6a 11 21 28 73  |f%))..i....j.!(s|
000040c0  63 61 6c 65 25 2b 30 29  3d 31 0d 02 6b 11 21 28  |cale%+0)=1..k.!(|
000040d0  73 63 61 6c 65 25 2b 34  29 3d 31 0d 02 6c 11 21  |scale%+4)=1..l.!|
000040e0  28 73 63 61 6c 65 25 2b  38 29 3d 31 0d 02 6d 12  |(scale%+8)=1..m.|
000040f0  21 28 73 63 61 6c 65 25  2b 31 32 29 3d 31 0d 02  |!(scale%+12)=1..|
00004100  6e 0f e3 73 6e 66 25 3d  31 20 b8 20 35 0d 02 6f  |n..snf%=1 . 5..o|
00004110  2f c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |/.."OS_SpriteOp"|
00004120  2c 26 31 33 43 2c 73 61  31 25 2c 22 61 6e 62 6f  |,&13C,sa1%,"anbo|
00004130  78 22 2b c3 28 73 6e 66  25 29 2c 30 0d 02 70 35  |x"+.(snf%),0..p5|
00004140  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00004150  26 31 33 34 2c 73 61 31  25 2c 22 61 6e 62 6f 78  |&134,sa1%,"anbox|
00004160  36 22 2c 30 2c 30 2c 38  2c 73 63 61 6c 65 25 2c  |6",0,0,8,scale%,|
00004170  30 0d 02 71 16 e7 20 a9  28 74 61 24 28 73 6e 66  |0..q.. .(ta$(snf|
00004180  25 29 29 3d 31 20 8c 0d  02 72 3a c8 99 22 4f 53  |%))=1 ...r:.."OS|
00004190  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
000041a0  73 61 31 25 2c 74 61 24  28 73 6e 66 25 29 2c 34  |sa1%,ta$(snf%),4|
000041b0  2b 33 38 2c 31 32 2c 38  2c 73 63 61 6c 65 25 2c  |+38,12,8,scale%,|
000041c0  30 0d 02 73 05 cd 0d 02  74 16 e7 20 a9 28 74 61  |0..s....t.. .(ta|
000041d0  24 28 73 6e 66 25 29 29  3d 32 20 8c 0d 02 75 40  |$(snf%))=2 ...u@|
000041e0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000041f0  26 31 33 34 2c 73 61 31  25 2c c1 74 61 24 28 73  |&134,sa1%,.ta$(s|
00004200  6e 66 25 29 2c 31 2c 31  29 2c 34 2b 31 39 2c 31  |nf%),1,1),4+19,1|
00004210  32 2c 38 2c 73 63 61 6c  65 25 2c 30 0d 02 76 43  |2,8,scale%,0..vC|
00004220  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00004230  26 31 33 34 2c 73 61 31  25 2c c1 74 61 24 28 73  |&134,sa1%,.ta$(s|
00004240  6e 66 25 29 2c 32 2c 31  29 2c 34 2b 31 39 2b 33  |nf%),2,1),4+19+3|
00004250  38 2c 31 32 2c 38 2c 73  63 61 6c 65 25 2c 30 0d  |8,12,8,scale%,0.|
00004260  02 77 05 cd 0d 02 78 16  e7 20 a9 28 74 61 24 28  |.w....x.. .(ta$(|
00004270  73 6e 66 25 29 29 3d 33  20 8c 0d 02 79 3d c8 99  |snf%))=3 ...y=..|
00004280  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00004290  33 34 2c 73 61 31 25 2c  c1 74 61 24 28 73 6e 66  |34,sa1%,.ta$(snf|
000042a0  25 29 2c 31 2c 31 29 2c  34 2c 31 32 2c 38 2c 73  |%),1,1),4,12,8,s|
000042b0  63 61 6c 65 25 2c 30 0d  02 7a 40 c8 99 22 4f 53  |cale%,0..z@.."OS|
000042c0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
000042d0  73 61 31 25 2c c1 74 61  24 28 73 6e 66 25 29 2c  |sa1%,.ta$(snf%),|
000042e0  32 2c 31 29 2c 34 2b 33  38 2c 31 32 2c 38 2c 73  |2,1),4+38,12,8,s|
000042f0  63 61 6c 65 25 2c 30 0d  02 7b 43 c8 99 22 4f 53  |cale%,0..{C.."OS|
00004300  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00004310  73 61 31 25 2c c1 74 61  24 28 73 6e 66 25 29 2c  |sa1%,.ta$(snf%),|
00004320  33 2c 31 29 2c 34 2b 33  38 2b 33 38 2c 31 32 2c  |3,1),4+38+38,12,|
00004330  38 2c 73 63 61 6c 65 25  2c 30 0d 02 7c 05 cd 0d  |8,scale%,0..|...|
00004340  02 7d 21 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.}!.."OS_SpriteO|
00004350  70 22 2c 26 31 33 43 2c  73 61 31 25 2c 30 2c 31  |p",&13C,sa1%,0,1|
00004360  0d 02 7e 05 ed 0d 02 7f  0f e3 73 6e 66 25 3d 31  |..~.......snf%=1|
00004370  20 b8 20 35 0d 02 80 05  f5 0d 02 81 1f 6d 6f 76  | . 5.........mov|
00004380  5f 74 61 62 25 28 73 6e  66 25 2c 31 29 3d b3 28  |_tab%(snf%,1)=.(|
00004390  35 30 30 29 2b 35 33 32  0d 02 82 1f 6d 6f 76 5f  |500)+532....mov_|
000043a0  74 61 62 25 28 73 6e 66  25 2c 32 29 3d b3 28 34  |tab%(snf%,2)=.(4|
000043b0  30 30 29 2b 32 38 35 0d  02 83 16 6d 6f 76 5f 74  |00)+285....mov_t|
000043c0  61 62 25 28 73 6e 66 25  2c 33 29 3d 30 0d 02 84  |ab%(snf%,3)=0...|
000043d0  23 6d 6f 76 5f 74 61 62  25 28 73 6e 66 25 2c 34  |#mov_tab%(snf%,4|
000043e0  29 3d 28 28 b3 28 32 29  2a 32 29 2d 33 29 2a 38  |)=((.(2)*2)-3)*8|
000043f0  0d 02 85 23 6d 6f 76 5f  74 61 62 25 28 73 6e 66  |...#mov_tab%(snf|
00004400  25 2c 35 29 3d 28 28 b3  28 32 29 2a 32 29 2d 33  |%,5)=((.(2)*2)-3|
00004410  29 2a 38 0d 02 86 38 f4  20 49 46 20 73 6e 66 25  |)*8...8. IF snf%|
00004420  3d 63 6f 72 72 65 63 74  25 20 6d 6f 76 5f 74 61  |=correct% mov_ta|
00004430  62 25 28 73 6e 66 25 2c  33 29 3d 70 72 65 73 65  |b%(snf%,3)=prese|
00004440  6e 74 65 64 25 28 73 6e  66 25 29 0d 02 87 25 6d  |nted%(snf%)...%m|
00004450  6f 76 5f 74 61 62 25 28  73 6e 66 25 2c 33 29 3d  |ov_tab%(snf%,3)=|
00004460  70 72 65 73 65 6e 74 65  64 25 28 73 6e 66 25 29  |presented%(snf%)|
00004470  0d 02 88 be fd 20 a4 6c  65 66 74 5f 74 28 6d 6f  |..... .left_t(mo|
00004480  76 5f 74 61 62 25 28 73  6e 66 25 2c 31 29 2c 6d  |v_tab%(snf%,1),m|
00004490  6f 76 5f 74 61 62 25 28  73 6e 66 25 2c 32 29 29  |ov_tab%(snf%,2))|
000044a0  3d 30 20 80 20 a4 72 69  67 68 74 5f 74 28 6d 6f  |=0 . .right_t(mo|
000044b0  76 5f 74 61 62 25 28 73  6e 66 25 2c 31 29 2c 6d  |v_tab%(snf%,1),m|
000044c0  6f 76 5f 74 61 62 25 28  73 6e 66 25 2c 32 29 29  |ov_tab%(snf%,2))|
000044d0  3d 30 20 80 20 a4 75 70  5f 74 28 6d 6f 76 5f 74  |=0 . .up_t(mov_t|
000044e0  61 62 25 28 73 6e 66 25  2c 31 29 2c 6d 6f 76 5f  |ab%(snf%,1),mov_|
000044f0  74 61 62 25 28 73 6e 66  25 2c 32 29 29 3d 30 20  |tab%(snf%,2))=0 |
00004500  80 20 a4 64 6f 77 6e 5f  74 28 6d 6f 76 5f 74 61  |. .down_t(mov_ta|
00004510  62 25 28 73 6e 66 25 2c  31 29 2c 6d 6f 76 5f 74  |b%(snf%,1),mov_t|
00004520  61 62 25 28 73 6e 66 25  2c 32 29 29 3d 30 0d 02  |ab%(snf%,2))=0..|
00004530  89 05 ed 0d 02 8a 05 e1  0d 02 8b 13 dd a4 6c 65  |..............le|
00004540  66 74 5f 74 28 78 25 2c  79 25 29 0d 02 8c 0b 74  |ft_t(x%,y%)....t|
00004550  65 73 74 25 3d 30 0d 02  8d 2d e7 20 b0 78 25 2d  |est%=0...-. .x%-|
00004560  32 2c 79 25 2b 38 29 3c  3e 33 20 80 20 b0 78 25  |2,y%+8)<>3 . .x%|
00004570  2d 32 2c 79 25 2b 38 29  3c 3e 34 20 74 65 73 74  |-2,y%+8)<>4 test|
00004580  25 3d 31 0d 02 8e 2f e7  20 b0 78 25 2d 32 2c 79  |%=1.../. .x%-2,y|
00004590  25 2b 37 36 29 3c 3e 33  20 80 20 b0 78 25 2d 32  |%+76)<>3 . .x%-2|
000045a0  2c 79 25 2b 37 36 29 3c  3e 34 20 74 65 73 74 25  |,y%+76)<>4 test%|
000045b0  3d 31 0d 02 8f 0a 3d 74  65 73 74 25 0d 02 90 14  |=1....=test%....|
000045c0  dd a4 72 69 67 68 74 5f  74 28 78 25 2c 79 25 29  |..right_t(x%,y%)|
000045d0  0d 02 91 0b 74 65 73 74  25 3d 30 0d 02 92 31 e7  |....test%=0...1.|
000045e0  20 b0 78 25 2b 31 32 32  2c 79 25 2b 38 29 3c 3e  | .x%+122,y%+8)<>|
000045f0  33 20 80 20 b0 78 25 2b  31 32 32 2c 79 25 2b 38  |3 . .x%+122,y%+8|
00004600  29 3c 3e 34 20 74 65 73  74 25 3d 31 0d 02 93 33  |)<>4 test%=1...3|
00004610  e7 20 b0 78 25 2b 31 32  32 2c 79 25 2b 37 36 29  |. .x%+122,y%+76)|
00004620  3c 3e 33 20 80 20 b0 78  25 2b 31 32 32 2c 79 25  |<>3 . .x%+122,y%|
00004630  2b 37 36 29 3c 3e 34 20  74 65 73 74 25 3d 31 0d  |+76)<>4 test%=1.|
00004640  02 94 0a 3d 74 65 73 74  25 0d 02 95 13 dd a4 64  |...=test%......d|
00004650  6f 77 6e 5f 74 28 78 25  2c 79 25 29 0d 02 96 0b  |own_t(x%,y%)....|
00004660  74 65 73 74 25 3d 30 0d  02 97 31 e7 20 b0 78 25  |test%=0...1. .x%|
00004670  2b 31 31 32 2c 79 25 2d  34 29 3c 3e 33 20 80 20  |+112,y%-4)<>3 . |
00004680  b0 78 25 2b 31 31 32 2c  79 25 2d 34 29 3c 3e 34  |.x%+112,y%-4)<>4|
00004690  20 74 65 73 74 25 3d 31  0d 02 98 2d e7 20 b0 78  | test%=1...-. .x|
000046a0  25 2b 38 2c 79 25 2d 34  29 3c 3e 33 20 80 20 b0  |%+8,y%-4)<>3 . .|
000046b0  78 25 2b 38 2c 79 25 2d  34 29 3c 3e 34 20 74 65  |x%+8,y%-4)<>4 te|
000046c0  73 74 25 3d 31 0d 02 99  0a 3d 74 65 73 74 25 0d  |st%=1....=test%.|
000046d0  02 9a 11 dd a4 75 70 5f  74 28 78 25 2c 79 25 29  |.....up_t(x%,y%)|
000046e0  0d 02 9b 0b 74 65 73 74  25 3d 30 0d 02 9c 33 e7  |....test%=0...3.|
000046f0  20 b0 78 25 2b 31 31 32  2c 79 25 2b 38 38 29 3c  | .x%+112,y%+88)<|
00004700  3e 33 20 80 20 b0 78 25  2b 31 31 32 2c 79 25 2b  |>3 . .x%+112,y%+|
00004710  38 38 29 3c 3e 34 20 74  65 73 74 25 3d 31 0d 02  |88)<>4 test%=1..|
00004720  9d 2f e7 20 b0 78 25 2b  38 2c 79 25 2b 38 38 29  |./. .x%+8,y%+88)|
00004730  3c 3e 33 20 80 20 b0 78  25 2b 38 2c 79 25 2b 38  |<>3 . .x%+8,y%+8|
00004740  38 29 3c 3e 34 20 74 65  73 74 25 3d 31 0d 02 9e  |8)<>4 test%=1...|
00004750  0a 3d 74 65 73 74 25 0d  02 9f 13 dd f2 6d 6f 76  |.=test%......mov|
00004760  69 6e 67 5f 74 61 62 6c  65 73 0d 02 a0 16 74 6f  |ing_tables....to|
00004770  74 61 6c 5f 70 6f 73 73  69 62 6c 65 25 3d 32 30  |tal_possible%=20|
00004780  0d 02 a1 29 74 6f 74 61  6c 5f 67 6f 74 25 3d 32  |...)total_got%=2|
00004790  30 3a 74 6f 74 61 6c 5f  67 6f 74 5f 66 70 3d 74  |0:total_got_fp=t|
000047a0  6f 74 61 6c 5f 67 6f 74  25 0d 02 a2 1a f2 6c 6f  |otal_got%.....lo|
000047b0  61 64 5f 73 70 72 69 74  65 73 28 22 62 61 63 6b  |ad_sprites("back|
000047c0  33 22 29 0d 02 a3 1e f2  6d 65 72 67 65 5f 73 70  |3").....merge_sp|
000047d0  72 69 74 65 73 28 22 6e  75 6d 62 65 72 73 32 22  |rites("numbers2"|
000047e0  29 0d 02 a4 1d f2 6d 65  72 67 65 5f 73 70 72 69  |).....merge_spri|
000047f0  74 65 73 28 22 62 75 74  74 6f 6e 73 22 29 0d 02  |tes("buttons")..|
00004800  a5 12 f2 73 65 74 5f 74  61 62 6c 65 5f 6f 6e 65  |...set_table_one|
00004810  0d 02 a6 0c 2a 66 78 31  31 32 2c 32 0d 02 a7 24  |....*fx112,2...$|
00004820  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 30 2c 30  |.plot_sprite(0,0|
00004830  2c 31 2c 31 2c 31 2c 31  2c 22 73 6b 79 32 22 29  |,1,1,1,1,"sky2")|
00004840  0d 02 a8 0c 2a 66 78 31  31 32 2c 31 0d 02 a9 24  |....*fx112,1...$|
00004850  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 30 2c 30  |.plot_sprite(0,0|
00004860  2c 31 2c 31 2c 31 2c 31  2c 22 73 6b 79 32 22 29  |,1,1,1,1,"sky2")|
00004870  0d 02 aa 08 c8 97 20 ee  0d 02 ab 0c 2a 46 58 31  |...... .....*FX1|
00004880  31 32 2c 31 0d 02 ac 0b  e7 51 25 3d 39 20 8c 0d  |12,1.....Q%=9 ..|
00004890  02 ad 5a f2 74 65 78 74  5f 62 6f 78 28 32 30 30  |..Z.text_box(200|
000048a0  2c 37 30 30 2c 38 38 30  2c 31 37 30 2c 32 2c 22  |,700,880,170,2,"|
000048b0  59 6f 75 20 66 69 6e 61  6c 20 74 65 73 74 20 69  |You final test i|
000048c0  73 20 74 6f 20 74 72 61  6e 73 6c 61 74 65 20 27  |s to translate '|
000048d0  54 61 62 6c 65 22 2c 22  41 6c 69 65 6e 27 20 63  |Table","Alien' c|
000048e0  6f 64 65 2e 22 2c 22 22  29 0d 02 ae 0f f2 70 61  |ode.","").....pa|
000048f0  75 73 65 28 31 30 30 29  0d 02 af 5f f2 74 65 78  |use(100)..._.tex|
00004900  74 5f 62 6f 78 28 32 30  30 2c 35 30 30 2c 38 38  |t_box(200,500,88|
00004910  30 2c 31 37 30 2c 32 2c  22 4d 65 73 73 61 67 65  |0,170,2,"Message|
00004920  73 20 73 65 6e 74 20 62  79 20 74 68 65 20 27 54  |s sent by the 'T|
00004930  61 62 6c 65 20 41 6c 69  65 6e 73 27 22 2c 22 61  |able Aliens'","a|
00004940  72 65 20 61 6c 77 61 79  73 20 69 6e 20 63 6f 64  |re always in cod|
00004950  65 2e 22 2c 22 22 29 0d  02 b0 16 f2 73 70 61 63  |e.","").....spac|
00004960  65 28 39 30 30 2c 38 30  2c 30 2c 30 29 0d 02 b1  |e(900,80,0,0)...|
00004970  24 f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 30 2c  |$.plot_sprite(0,|
00004980  30 2c 31 2c 31 2c 31 2c  31 2c 22 73 6b 79 32 22  |0,1,1,1,1,"sky2"|
00004990  29 0d 02 b2 05 cd 0d 02  b3 09 63 74 25 3d 31 0d  |).........ct%=1.|
000049a0  02 b4 18 e3 73 6e 66 25  3d 31 20 b8 20 6e 75 6d  |....snf%=1 . num|
000049b0  62 65 72 5f 6f 66 25 0d  02 b5 3f 74 61 62 6c 65  |ber_of%...?table|
000049c0  73 24 28 73 6e 66 25 29  3d c3 28 74 61 62 6c 65  |s$(snf%)=.(table|
000049d0  73 25 28 73 6e 66 25 2c  31 29 29 2b 22 78 22 2b  |s%(snf%,1))+"x"+|
000049e0  c3 28 74 61 62 6c 65 73  25 28 73 6e 66 25 2c 32  |.(tables%(snf%,2|
000049f0  29 29 2b 22 3d 22 0d 02  b6 12 e3 73 63 72 65 65  |))+"=".....scree|
00004a00  6e 25 3d 31 20 b8 20 32  0d 02 b7 19 ff 22 46 58  |n%=1 . 2....."FX|
00004a10  20 31 31 32 2c 22 2b c3  28 73 63 72 65 65 6e 25  | 112,"+.(screen%|
00004a20  29 0d 02 b8 43 f2 70 6c  6f 74 5f 6e 75 6d 62 65  |)...C.plot_numbe|
00004a30  72 73 28 31 30 30 2c 39  30 30 2d 28 73 6e 66 25  |rs(100,900-(snf%|
00004a40  2a 36 34 29 2c a9 28 74  61 62 6c 65 73 24 28 73  |*64),.(tables$(s|
00004a50  6e 66 25 29 29 2c 74 61  62 6c 65 73 24 28 73 6e  |nf%)),tables$(sn|
00004a60  66 25 29 29 0d 02 b9 05  ed 0d 02 ba 05 ed 0d 02  |f%))............|
00004a70  bb 0b 77 61 69 74 25 3d  30 0d 02 bc 1f f2 63 61  |..wait%=0.....ca|
00004a80  63 68 65 73 6f 75 6e 64  28 22 69 6e 73 69 64 65  |chesound("inside|
00004a90  5f 75 66 6f 22 2c 31 29  0d 02 bd 05 f5 0d 02 be  |_ufo",1)........|
00004aa0  24 f2 73 65 74 5f 6e 75  6d 5f 73 70 72 69 74 65  |$.set_num_sprite|
00004ab0  73 28 74 61 62 6c 65 73  25 28 63 74 25 2c 33 29  |s(tables%(ct%,3)|
00004ac0  29 0d 02 bf 0c 2a 66 78  31 31 32 2c 32 0d 02 c0  |)....*fx112,2...|
00004ad0  2c f2 70 6c 6f 74 5f 6e  75 6d 62 65 72 73 28 34  |,.plot_numbers(4|
00004ae0  30 2c 39 30 30 2d 28 28  63 74 25 2d 31 29 2a 36  |0,900-((ct%-1)*6|
00004af0  34 29 2c 31 2c 22 2d 22  29 0d 02 c1 2a f2 70 6c  |4),1,"-")...*.pl|
00004b00  6f 74 5f 6e 75 6d 62 65  72 73 28 34 30 2c 39 30  |ot_numbers(40,90|
00004b10  30 2d 28 28 63 74 25 29  2a 36 34 29 2c 31 2c 22  |0-((ct%)*64),1,"|
00004b20  2b 22 29 0d 02 c2 0c 2a  66 78 31 31 32 2c 31 0d  |+")....*fx112,1.|
00004b30  02 c3 2c f2 70 6c 6f 74  5f 6e 75 6d 62 65 72 73  |..,.plot_numbers|
00004b40  28 34 30 2c 39 30 30 2d  28 28 63 74 25 2d 31 29  |(40,900-((ct%-1)|
00004b50  2a 36 34 29 2c 31 2c 22  2d 22 29 0d 02 c4 2a f2  |*64),1,"-")...*.|
00004b60  70 6c 6f 74 5f 6e 75 6d  62 65 72 73 28 34 30 2c  |plot_numbers(40,|
00004b70  39 30 30 2d 28 28 63 74  25 29 2a 36 34 29 2c 31  |900-((ct%)*64),1|
00004b80  2c 22 2f 22 29 0d 02 c5  05 f5 0d 02 c6 05 f5 0d  |,"/")...........|
00004b90  02 c7 26 e7 77 61 69 74  25 3d 30 20 80 20 a4 6e  |..&.wait%=0 . .n|
00004ba0  6f 73 6f 75 6e 64 3d b9  3a d4 20 31 2c 26 31 37  |osound=.:. 1,&17|
00004bb0  46 2c 31 2c 31 0d 02 c8  37 77 61 69 74 25 3d 77  |F,1,1...7wait%=w|
00004bc0  61 69 74 25 2b 31 3a e7  77 61 69 74 25 3d 31 30  |ait%+1:.wait%=10|
00004bd0  20 f2 63 61 63 68 65 73  6f 75 6e 64 28 22 69 6e  | .cachesound("in|
00004be0  73 69 64 65 5f 75 66 6f  22 2c 31 29 0d 02 c9 0c  |side_ufo",1)....|
00004bf0  2a 46 58 31 31 32 2c 31  0d 02 ca 0c 2a 46 58 31  |*FX112,1....*FX1|
00004c00  31 33 2c 32 0d 02 cb 0d  f2 73 74 5f 70 61 75 73  |13,2.....st_paus|
00004c10  65 0d 02 cc 29 f2 70 6c  6f 74 5f 73 70 72 69 74  |e...).plot_sprit|
00004c20  65 28 35 31 30 2c 32 36  30 2c 31 2c 31 2c 31 2c  |e(510,260,1,1,1,|
00004c30  31 2c 22 4d 4f 54 49 46  22 29 0d 02 cd 0f f2 64  |1,"MOTIF").....d|
00004c40  72 61 77 5f 62 6f 78 65  73 0d 02 ce 0d f2 75 70  |raw_boxes.....up|
00004c50  5f 62 6f 78 65 73 0d 02  cf 11 f2 65 6e 5f 70 61  |_boxes.....en_pa|
00004c60  75 73 65 28 31 30 29 0d  02 d0 0c 2a 46 58 31 31  |use(10)....*FX11|
00004c70  33 2c 31 0d 02 d1 0c 2a  46 58 31 31 32 2c 32 0d  |3,1....*FX112,2.|
00004c80  02 d2 0d f2 73 74 5f 70  61 75 73 65 0d 02 d3 29  |....st_pause...)|
00004c90  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 35 31 30  |.plot_sprite(510|
00004ca0  2c 32 36 30 2c 31 2c 31  2c 31 2c 31 2c 22 4d 4f  |,260,1,1,1,1,"MO|
00004cb0  54 49 46 22 29 0d 02 d4  0f f2 64 72 61 77 5f 62  |TIF").....draw_b|
00004cc0  6f 78 65 73 0d 02 d5 0d  f2 75 70 5f 62 6f 78 65  |oxes.....up_boxe|
00004cd0  73 0d 02 d6 11 c8 97 6d  78 25 2c 6d 79 25 2c 6d  |s......mx%,my%,m|
00004ce0  63 25 0d 02 d7 11 f2 65  6e 5f 70 61 75 73 65 28  |c%.....en_pause(|
00004cf0  31 30 29 0d 02 d8 0b fd  20 6d 63 25 3d 34 0d 02  |10)..... mc%=4..|
00004d00  d9 10 73 65 6c 25 3d 30  3a 6f 6b 25 3d 30 0d 02  |..sel%=0:ok%=0..|
00004d10  da 0c 2a 46 58 31 31 32  2c 31 0d 02 db 0c 2a 46  |..*FX112,1....*F|
00004d20  58 31 31 33 2c 31 0d 02  dc 0f e3 73 6e 66 25 3d  |X113,1.....snf%=|
00004d30  31 20 b8 20 35 0d 02 dd  75 e7 6d 6f 76 5f 74 61  |1 . 5...u.mov_ta|
00004d40  62 25 28 73 6e 66 25 2c  31 29 3c 6d 78 25 20 80  |b%(snf%,1)<mx% .|
00004d50  20 6d 6f 76 5f 74 61 62  25 28 73 6e 66 25 2c 31  | mov_tab%(snf%,1|
00004d60  29 2b 31 32 30 3e 6d 78  25 20 80 20 6d 6f 76 5f  |)+120>mx% . mov_|
00004d70  74 61 62 25 28 73 6e 66  25 2c 32 29 3c 6d 79 25  |tab%(snf%,2)<my%|
00004d80  20 80 20 6d 6f 76 5f 74  61 62 25 28 73 6e 66 25  | . mov_tab%(snf%|
00004d90  2c 32 29 2b 39 30 3e 6d  79 25 3a 73 65 6c 25 3d  |,2)+90>my%:sel%=|
00004da0  73 6e 66 25 3a 6f 6b 25  3d 31 0d 02 de 05 ed 0d  |snf%:ok%=1......|
00004db0  02 df 0c 2a 46 58 31 31  32 2c 31 0d 02 e0 0c 2a  |...*FX112,1....*|
00004dc0  46 58 31 31 33 2c 32 0d  02 e1 29 f2 70 6c 6f 74  |FX113,2...).plot|
00004dd0  5f 73 70 72 69 74 65 28  35 31 30 2c 32 36 30 2c  |_sprite(510,260,|
00004de0  31 2c 31 2c 31 2c 31 2c  22 4d 4f 54 49 46 22 29  |1,1,1,1,"MOTIF")|
00004df0  0d 02 e2 0c fd 20 73 65  6c 25 3e 30 0d 02 e3 19  |..... sel%>0....|
00004e00  f2 63 61 63 68 65 73 6f  75 6e 64 28 22 70 6c 6f  |.cachesound("plo|
00004e10  70 22 2c 31 29 0d 02 e4  10 d4 20 31 2c 26 31 37  |p",1)..... 1,&17|
00004e20  46 2c 31 2c 31 0d 02 e5  0e f2 70 61 75 73 65 28  |F,1,1.....pause(|
00004e30  31 30 29 0d 02 e6 26 e7  74 61 62 6c 65 73 25 28  |10)...&.tables%(|
00004e40  63 74 25 2c 33 29 3d 6d  6f 76 5f 74 61 62 25 28  |ct%,3)=mov_tab%(|
00004e50  73 65 6c 25 2c 33 29 20  8c 0d 02 e7 18 f2 63 61  |sel%,3) ......ca|
00004e60  63 68 65 73 6f 75 6e 64  28 22 6f 6b 32 22 2c 31  |chesound("ok2",1|
00004e70  29 0d 02 e8 10 d4 20 31  2c 26 31 37 46 2c 31 2c  |)..... 1,&17F,1,|
00004e80  31 0d 02 e9 31 74 61 62  6c 65 73 24 28 63 74 25  |1...1tables$(ct%|
00004e90  29 3d 74 61 62 6c 65 73  24 28 63 74 25 29 2b c3  |)=tables$(ct%)+.|
00004ea0  28 6d 6f 76 5f 74 61 62  25 28 73 65 6c 25 2c 33  |(mov_tab%(sel%,3|
00004eb0  29 29 0d 02 ea 0c f2 72  65 6c 65 61 73 65 0d 02  |)).....release..|
00004ec0  eb 0c 2a 46 58 31 31 33  2c 32 0d 02 ec 0c 2a 46  |..*FX113,2....*F|
00004ed0  58 31 31 32 2c 31 0d 02  ed 29 f2 70 6c 6f 74 5f  |X112,1...).plot_|
00004ee0  73 70 72 69 74 65 28 35  31 30 2c 32 36 30 2c 31  |sprite(510,260,1|
00004ef0  2c 31 2c 31 2c 31 2c 22  4d 4f 54 49 46 22 29 0d  |,1,1,1,"MOTIF").|
00004f00  02 ee 4b f2 70 6c 6f 74  5f 73 70 72 69 74 65 28  |..K.plot_sprite(|
00004f10  6d 6f 76 5f 74 61 62 25  28 73 65 6c 25 2c 31 29  |mov_tab%(sel%,1)|
00004f20  2c 6d 6f 76 5f 74 61 62  25 28 73 65 6c 25 2c 32  |,mov_tab%(sel%,2|
00004f30  29 2c 31 2c 31 2c 31 2c  31 2c 22 61 6e 62 6f 78  |),1,1,1,1,"anbox|
00004f40  22 2b c3 28 73 65 6c 25  29 29 0d 02 ef 0c 2a 46  |"+.(sel%))....*F|
00004f50  58 31 31 33 2c 31 0d 02  f0 0c 2a 46 58 31 31 32  |X113,1....*FX112|
00004f60  2c 32 0d 02 f1 29 f2 70  6c 6f 74 5f 73 70 72 69  |,2...).plot_spri|
00004f70  74 65 28 35 31 30 2c 32  36 30 2c 31 2c 31 2c 31  |te(510,260,1,1,1|
00004f80  2c 31 2c 22 4d 4f 54 49  46 22 29 0d 02 f2 0c 2a  |,1,"MOTIF")....*|
00004f90  46 58 31 31 32 2c 31 0d  02 f3 0e f2 70 61 75 73  |FX112,1.....paus|
00004fa0  65 28 35 30 29 0d 02 f4  29 f2 70 6c 6f 74 5f 73  |e(50)...).plot_s|
00004fb0  70 72 69 74 65 28 35 31  30 2c 32 36 30 2c 31 2c  |prite(510,260,1,|
00004fc0  31 2c 31 2c 31 2c 22 4d  4f 54 49 46 22 29 0d 02  |1,1,1,"MOTIF")..|
00004fd0  f5 2c f2 77 68 69 7a 28  6d 6f 76 5f 74 61 62 25  |.,.whiz(mov_tab%|
00004fe0  28 73 65 6c 25 2c 31 29  2c 6d 6f 76 5f 74 61 62  |(sel%,1),mov_tab|
00004ff0  25 28 73 65 6c 25 2c 32  29 29 0d 02 f6 29 f2 70  |%(sel%,2))...).p|
00005000  6c 6f 74 5f 73 70 72 69  74 65 28 35 31 30 2c 32  |lot_sprite(510,2|
00005010  36 30 2c 31 2c 31 2c 31  2c 31 2c 22 4d 4f 54 49  |60,1,1,1,1,"MOTI|
00005020  46 22 29 0d 02 f7 12 e3  73 63 72 65 65 6e 25 3d  |F").....screen%=|
00005030  31 20 b8 20 32 0d 02 f8  19 ff 22 46 58 20 31 31  |1 . 2....."FX 11|
00005040  32 2c 22 2b c3 28 73 63  72 65 65 6e 25 29 0d 02  |2,"+.(screen%)..|
00005050  f9 40 f2 70 6c 6f 74 5f  6e 75 6d 62 65 72 73 28  |.@.plot_numbers(|
00005060  31 30 30 2c 39 30 30 2d  28 63 74 25 2a 36 34 29  |100,900-(ct%*64)|
00005070  2c a9 28 74 61 62 6c 65  73 24 28 63 74 25 29 29  |,.(tables$(ct%))|
00005080  2c 74 61 62 6c 65 73 24  28 63 74 25 29 29 0d 02  |,tables$(ct%))..|
00005090  fa 05 ed 0d 02 fb 0d 63  74 25 3d 63 74 25 2b 31  |.......ct%=ct%+1|
000050a0  0d 02 fc 24 f2 73 65 74  5f 6e 75 6d 5f 73 70 72  |...$.set_num_spr|
000050b0  69 74 65 73 28 74 61 62  6c 65 73 25 28 63 74 25  |ites(tables%(ct%|
000050c0  2c 33 29 29 0d 02 fd 05  cc 0d 02 fe 1b f2 63 61  |,3))..........ca|
000050d0  63 68 65 73 6f 75 6e 64  28 22 77 72 6f 6e 67 32  |chesound("wrong2|
000050e0  22 2c 31 29 0d 02 ff 10  d4 20 31 2c 26 31 37 46  |",1)..... 1,&17F|
000050f0  2c 31 2c 31 0d 03 00 1f  74 6f 74 61 6c 5f 67 6f  |,1,1....total_go|
00005100  74 5f 66 70 3d 74 6f 74  61 6c 5f 67 6f 74 5f 66  |t_fp=total_got_f|
00005110  70 2d 31 0d 03 01 0b 77  61 69 74 25 3d 31 0d 03  |p-1....wait%=1..|
00005120  02 0c f2 72 65 6c 65 61  73 65 0d 03 03 05 cd 0d  |...release......|
00005130  03 04 16 fd 20 63 74 25  2d 31 3d 6e 75 6d 62 65  |.... ct%-1=numbe|
00005140  72 5f 6f 66 25 0d 03 05  0c 2a 46 58 31 31 32 2c  |r_of%....*FX112,|
00005150  32 0d 03 06 0c 2a 46 58  31 31 33 2c 31 0d 03 07  |2....*FX113,1...|
00005160  29 f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 35 31  |).plot_sprite(51|
00005170  30 2c 32 36 30 2c 31 2c  31 2c 31 2c 31 2c 22 4d  |0,260,1,1,1,1,"M|
00005180  4f 54 49 46 22 29 0d 03  08 0c 2a 46 58 31 31 32  |OTIF")....*FX112|
00005190  2c 31 0d 03 09 0c 2a 46  58 31 31 33 2c 32 0d 03  |,1....*FX113,2..|
000051a0  0a 29 f2 70 6c 6f 74 5f  73 70 72 69 74 65 28 35  |.).plot_sprite(5|
000051b0  31 30 2c 32 36 30 2c 31  2c 31 2c 31 2c 31 2c 22  |10,260,1,1,1,1,"|
000051c0  4d 4f 54 49 46 22 29 0d  03 0b 0c 2a 66 78 31 31  |MOTIF")....*fx11|
000051d0  33 2c 31 0d 03 0c 1b 74  6f 74 61 6c 5f 67 6f 74  |3,1....total_got|
000051e0  25 3d 74 6f 74 61 6c 5f  67 6f 74 5f 66 70 0d 03  |%=total_got_fp..|
000051f0  0d 0b e7 51 25 3d 39 20  8c 0d 03 0e 14 f2 74 73  |...Q%=9 ......ts|
00005200  63 6f 72 65 28 37 31 32  2c 33 36 30 29 0d 03 0f  |core(712,360)...|
00005210  16 f2 73 70 61 63 65 28  39 30 30 2c 38 30 2c 30  |..space(900,80,0|
00005220  2c 30 29 0d 03 10 24 f2  70 6c 6f 74 5f 73 70 72  |,0)...$.plot_spr|
00005230  69 74 65 28 30 2c 30 2c  31 2c 31 2c 31 2c 31 2c  |ite(0,0,1,1,1,1,|
00005240  22 73 6b 79 32 22 29 0d  03 11 0c e7 54 25 3e 35  |"sky2").....T%>5|
00005250  39 20 8c 0d 03 12 55 f2  74 65 78 74 5f 62 6f 78  |9 ....U.text_box|
00005260  28 32 30 30 2c 32 34 30  2c 38 38 30 2c 31 37 30  |(200,240,880,170|
00005270  2c 32 2c 22 59 6f 75 20  61 72 65 20 6e 6f 77 20  |,2,"You are now |
00005280  61 20 71 75 61 6c 69 66  69 65 64 20 73 70 65 63  |a qualified spec|
00005290  69 61 6c 22 2c 22 67 72  6f 75 70 20 6d 65 6d 62  |ial","group memb|
000052a0  65 72 21 22 2c 22 22 29  0d 03 13 16 f2 73 70 61  |er!","").....spa|
000052b0  63 65 28 39 30 30 2c 38  30 2c 30 2c 30 29 0d 03  |ce(900,80,0,0)..|
000052c0  14 05 cd 0d 03 15 0c e7  54 25 3c 36 30 20 8c 0d  |........T%<60 ..|
000052d0  03 16 73 f2 74 65 78 74  5f 62 6f 78 28 31 30 30  |..s.text_box(100|
000052e0  2c 35 34 30 2c 31 30 38  30 2c 31 37 30 2c 32 2c  |,540,1080,170,2,|
000052f0  22 59 6f 75 20 68 61 76  65 20 6e 6f 74 20 73 63  |"You have not sc|
00005300  6f 72 65 64 20 65 6e 6f  75 67 68 20 70 6f 69 6e  |ored enough poin|
00005310  74 73 22 2c 22 74 6f 20  62 65 63 6f 6d 65 20 61  |ts","to become a|
00005320  20 6d 65 6d 62 65 72 20  6f 66 20 74 68 65 20 53  | member of the S|
00005330  70 65 63 69 61 6c 20 47  72 6f 75 70 2e 22 2c 22  |pecial Group.","|
00005340  22 29 0d 03 17 43 f2 74  65 78 74 5f 62 6f 78 28  |")...C.text_box(|
00005350  32 30 30 2c 34 33 30 2c  38 38 30 2c 39 30 2c 32  |200,430,880,90,2|
00005360  2c 22 59 6f 75 20 77 69  6c 6c 20 6e 65 65 64 20  |,"You will need |
00005370  74 6f 20 74 72 79 20 61  67 61 69 6e 2e 22 2c 22  |to try again.","|
00005380  22 2c 22 22 29 0d 03 18  16 f2 73 70 61 63 65 28  |","").....space(|
00005390  39 30 30 2c 38 30 2c 30  2c 30 29 0d 03 19 05 cd  |900,80,0,0).....|
000053a0  0d 03 1a 0c 2a 66 78 31  31 32 2c 32 0d 03 1b 24  |....*fx112,2...$|
000053b0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 28 30 2c 30  |.plot_sprite(0,0|
000053c0  2c 31 2c 31 2c 31 2c 31  2c 22 73 6b 79 32 22 29  |,1,1,1,1,"sky2")|
000053d0  0d 03 1c 10 66 61 64 65  24 3d 22 66 61 64 65 22  |....fade$="fade"|
000053e0  0d 03 1d 18 f2 66 61 64  65 28 30 2c 39 36 30 2c  |.....fade(0,960,|
000053f0  34 2c 30 2c 31 2c 31 29  0d 03 1e 1e f2 63 61 63  |4,0,1,1).....cac|
00005400  68 65 73 6f 75 6e 64 28  22 69 6e 76 61 64 69 6e  |hesound("invadin|
00005410  67 32 22 2c 31 29 0d 03  1f 10 d4 20 31 2c 26 31  |g2",1)..... 1,&1|
00005420  37 46 2c 31 2c 31 0d 03  20 48 f2 74 65 78 74 5f  |7F,1,1.. H.text_|
00005430  62 6f 78 28 32 30 30 2c  32 34 30 2c 38 38 30 2c  |box(200,240,880,|
00005440  31 30 30 2c 31 2c 22 57  61 74 63 68 20 6f 75 74  |100,1,"Watch out|
00005450  20 66 6f 72 20 74 68 65  20 54 61 62 6c 65 20 41  | for the Table A|
00005460  6c 69 65 6e 73 21 22 2c  22 22 2c 22 22 29 0d 03  |liens!","","")..|
00005470  21 10 66 61 64 65 24 3d  22 66 61 64 65 22 0d 03  |!.fade$="fade"..|
00005480  22 18 f2 66 61 64 65 28  30 2c 39 36 30 2c 34 2c  |"..fade(0,960,4,|
00005490  30 2c 31 2c 31 29 0d 03  23 0c 2a 66 78 31 31 32  |0,1,1)..#.*fx112|
000054a0  2c 31 0d 03 24 16 f2 73  70 61 63 65 28 39 30 30  |,1..$..space(900|
000054b0  2c 38 30 2c 31 2c 30 29  0d 03 25 0c 2a 46 58 31  |,80,1,0)..%.*FX1|
000054c0  31 32 2c 32 0d 03 26 24  f2 70 6c 6f 74 5f 73 70  |12,2..&$.plot_sp|
000054d0  72 69 74 65 28 30 2c 30  2c 31 2c 31 2c 31 2c 31  |rite(0,0,1,1,1,1|
000054e0  2c 22 73 6b 79 32 22 29  0d 03 27 10 66 61 64 65  |,"sky2")..'.fade|
000054f0  24 3d 22 66 61 64 65 22  0d 03 28 18 f2 66 61 64  |$="fade"..(..fad|
00005500  65 28 30 2c 39 36 30 2c  34 2c 30 2c 31 2c 31 29  |e(0,960,4,0,1,1)|
00005510  0d 03 29 0c 2a 46 58 31  31 32 2c 32 0d 03 2a 0e  |..).*FX112,2..*.|
00005520  61 6e 5f 78 25 3d 2d 31  30 30 0d 03 2b 0d 61 6e  |an_x%=-100..+.an|
00005530  5f 79 25 3d 36 32 30 0d  03 2c 0a 70 61 6d 25 3d  |_y%=620..,.pam%=|
00005540  34 0d 03 2d 18 73 65 6c  5f 73 70 72 69 74 65 24  |4..-.sel_sprite$|
00005550  3d 22 63 72 61 66 74 33  22 0d 03 2e 12 62 6c 61  |="craft3"....bla|
00005560  6e 6b 24 3d 22 62 6c 61  6e 6b 22 0d 03 2f 17 f2  |nk$="blank"../..|
00005570  73 74 61 72 74 5f 61 6e  69 6d 28 62 6c 61 6e 6b  |start_anim(blank|
00005580  24 29 0d 03 30 19 f2 63  61 63 68 65 73 6f 75 6e  |$)..0..cachesoun|
00005590  64 28 22 77 69 6e 64 22  2c 31 29 0d 03 31 18 e3  |d("wind",1)..1..|
000055a0  61 6e 5f 78 25 3d 2d 31  30 30 20 b8 20 33 34 30  |an_x%=-100 . 340|
000055b0  20 88 38 0d 03 32 0d f2  73 74 5f 70 61 75 73 65  | .8..2..st_pause|
000055c0  0d 03 33 11 f2 61 6e 69  6d 28 62 6c 61 6e 6b 24  |..3..anim(blank$|
000055d0  29 0d 03 34 10 d4 20 31  2c 26 31 37 46 2c 31 2c  |)..4.. 1,&17F,1,|
000055e0  31 0d 03 35 2f 43 25 3d  73 63 72 65 65 6e 5f 6f  |1..5/C%=screen_o|
000055f0  6e 65 25 3a 42 25 3d 73  63 72 65 65 6e 5f 74 77  |ne%:B%=screen_tw|
00005600  6f 25 3a d6 73 61 76 65  5f 73 63 72 65 65 6e 25  |o%:.save_screen%|
00005610  0d 03 36 20 e7 20 28 61  6e 5f 78 25 20 83 20 35  |..6 . (an_x% . 5|
00005620  30 29 3d 30 20 70 61 6d  25 3d 70 61 6d 25 2b 32  |0)=0 pam%=pam%+2|
00005630  0d 03 37 13 f2 65 6e 5f  70 61 75 73 65 28 70 61  |..7..en_pause(pa|
00005640  6d 25 29 0d 03 38 05 ed  0d 03 39 17 e3 61 6e 5f  |m%)..8....9..an_|
00005650  78 25 3d 33 34 30 20 b8  20 34 30 30 20 88 34 0d  |x%=340 . 400 .4.|
00005660  03 3a 0d f2 73 74 5f 70  61 75 73 65 0d 03 3b 11  |.:..st_pause..;.|
00005670  f2 61 6e 69 6d 28 62 6c  61 6e 6b 24 29 0d 03 3c  |.anim(blank$)..<|
00005680  10 d4 20 31 2c 26 31 37  46 2c 31 2c 31 0d 03 3d  |.. 1,&17F,1,1..=|
00005690  2f 43 25 3d 73 63 72 65  65 6e 5f 6f 6e 65 25 3a  |/C%=screen_one%:|
000056a0  42 25 3d 73 63 72 65 65  6e 5f 74 77 6f 25 3a d6  |B%=screen_two%:.|
000056b0  73 61 76 65 5f 73 63 72  65 65 6e 25 0d 03 3e 20  |save_screen%..> |
000056c0  e7 20 28 61 6e 5f 78 25  20 83 20 35 30 29 3d 30  |. (an_x% . 50)=0|
000056d0  20 70 61 6d 25 3d 70 61  6d 25 2b 32 0d 03 3f 13  | pam%=pam%+2..?.|
000056e0  f2 65 6e 5f 70 61 75 73  65 28 70 61 6d 25 29 0d  |.en_pause(pam%).|
000056f0  03 40 05 ed 0d 03 41 10  66 61 64 65 24 3d 22 66  |.@....A.fade$="f|
00005700  61 64 65 22 0d 03 42 24  f2 70 6c 6f 74 5f 73 70  |ade"..B$.plot_sp|
00005710  72 69 74 65 28 30 2c 30  2c 31 2c 31 2c 31 2c 31  |rite(0,0,1,1,1,1|
00005720  2c 22 73 6b 79 32 22 29  0d 03 43 18 f2 66 61 64  |,"sky2")..C..fad|
00005730  65 28 30 2c 39 36 30 2c  34 2c 30 2c 31 2c 31 29  |e(0,960,4,0,1,1)|
00005740  0d 03 44 0c 2a 46 58 31  31 32 2c 31 0d 03 45 18  |..D.*FX112,1..E.|
00005750  f2 6c 6f 61 64 5f 73 70  72 69 74 65 73 28 22 65  |.load_sprites("e|
00005760  6e 64 22 29 0d 03 46 1d  f2 6d 65 72 67 65 5f 73  |nd")..F..merge_s|
00005770  70 72 69 74 65 73 28 22  62 75 74 74 6f 6e 73 22  |prites("buttons"|
00005780  29 0d 03 47 2d f2 70 6c  6f 74 5f 73 70 72 69 74  |)..G-.plot_sprit|
00005790  65 5f 6d 61 73 6b 65 64  28 36 30 2c 33 30 30 2c  |e_masked(60,300,|
000057a0  31 2c 31 2c 31 2c 31 2c  22 65 6e 64 22 29 0d 03  |1,1,1,1,"end")..|
000057b0  48 17 f2 73 70 61 63 65  28 39 30 30 2c 32 32 30  |H..space(900,220|
000057c0  2c 30 2c 30 29 0d 03 49  07 f2 64 74 0d 03 4a 05  |,0,0)..I..dt..J.|
000057d0  cd 0d 03 4b 05 e1 0d 03  4c 11 dd f2 77 68 69 7a  |...K....L...whiz|
000057e0  28 78 25 2c 79 25 29 0d  03 4d 19 ef 32 34 2c 35  |(x%,y%)..M..24,5|
000057f0  32 33 3b 32 37 33 3b 31  31 39 31 3b 38 36 37 3b  |23;273;1191;867;|
00005800  0d 03 4e 11 78 78 25 3d  78 25 3a 79 79 25 3d 79  |..N.xx%=x%:yy%=y|
00005810  25 0d 03 4f 41 72 62 78  25 3d 78 25 2b 31 32 32  |%..OArbx%=x%+122|
00005820  3a 72 62 79 25 3d 79 25  3a 72 74 78 25 3d 78 25  |:rby%=y%:rtx%=x%|
00005830  2b 31 32 32 3a 72 74 79  25 3d 79 25 2b 38 34 3a  |+122:rty%=y%+84:|
00005840  6c 74 78 25 3d 78 25 3a  6c 74 79 25 3d 79 25 2b  |ltx%=x%:lty%=y%+|
00005850  38 34 0d 03 50 7b 69 78  25 3d 34 2b b3 28 34 29  |84..P{ix%=4+.(4)|
00005860  3a 69 79 25 3d 38 2b b3  28 38 29 3a 69 6c 74 78  |:iy%=8+.(8):iltx|
00005870  25 3d 34 2b b3 28 34 29  3a 69 6c 74 79 25 3d 28  |%=4+.(4):ilty%=(|
00005880  38 2b b3 28 38 29 29 2a  2d 31 3a 69 72 74 78 25  |8+.(8))*-1:irtx%|
00005890  3d 28 34 2b b3 28 34 29  29 2a 2d 31 3a 69 72 74  |=(4+.(4))*-1:irt|
000058a0  79 25 3d 28 38 2b b3 28  38 29 29 2a 2d 31 3a 69  |y%=(8+.(8))*-1:i|
000058b0  72 62 78 25 3d 28 34 2b  b3 28 34 29 29 2a 2d 31  |rbx%=(4+.(4))*-1|
000058c0  3a 69 72 62 79 25 3d 38  2b b3 28 38 29 0d 03 51  |:irby%=8+.(8)..Q|
000058d0  08 e6 30 2c 34 0d 03 52  1f f2 63 61 63 68 65 73  |..0,4..R..caches|
000058e0  6f 75 6e 64 28 22 63 6c  61 6e 67 5f 6c 6f 63 6b  |ound("clang_lock|
000058f0  22 2c 31 29 0d 03 53 12  e3 77 6f 72 6d 25 3d 31  |",1)..S..worm%=1|
00005900  20 b8 20 31 30 30 0d 03  54 0d f2 73 74 5f 70 61  | . 100..T..st_pa|
00005910  75 73 65 0d 03 55 1b e7  77 6f 72 6d 25 20 83 20  |use..U..worm% . |
00005920  34 3d 31 20 d4 31 2c 2d  31 35 2c 31 2c 31 0d 03  |4=1 .1,-15,1,1..|
00005930  56 33 f2 70 6c 6f 74 5f  72 65 63 74 28 78 25 2c  |V3.plot_rect(x%,|
00005940  79 25 2c 72 62 78 25 2c  72 62 79 25 2c 72 74 78  |y%,rbx%,rby%,rtx|
00005950  25 2c 72 74 79 25 2c 6c  74 78 25 2c 6c 74 79 25  |%,rty%,ltx%,lty%|
00005960  29 0d 03 57 37 78 25 3d  78 25 2b 69 78 25 3a 6c  |)..W7x%=x%+ix%:l|
00005970  74 78 25 3d 6c 74 78 25  2b 69 6c 74 78 25 3a 79  |tx%=ltx%+iltx%:y|
00005980  25 3d 79 25 2b 69 79 25  3a 6c 74 79 25 3d 6c 74  |%=y%+iy%:lty%=lt|
00005990  79 25 2b 69 6c 74 79 25  0d 03 58 43 72 62 78 25  |y%+ilty%..XCrbx%|
000059a0  3d 72 62 78 25 2b 69 72  62 78 25 3a 72 74 78 25  |=rbx%+irbx%:rtx%|
000059b0  3d 72 74 78 25 2b 69 72  74 78 25 3a 72 62 79 25  |=rtx%+irtx%:rby%|
000059c0  3d 72 62 79 25 2b 69 72  62 79 25 3a 72 74 79 25  |=rby%+irby%:rty%|
000059d0  3d 72 74 79 25 2b 69 72  74 79 25 0d 03 59 20 e7  |=rty%+irty%..Y .|
000059e0  78 25 3c 35 32 33 20 84  20 78 25 3e 31 31 39 31  |x%<523 . x%>1191|
000059f0  20 69 78 25 3d 69 78 25  2a 2d 31 0d 03 5a 28 e7  | ix%=ix%*-1..Z(.|
00005a00  6c 74 78 25 3c 35 32 33  20 84 20 6c 74 78 25 3e  |ltx%<523 . ltx%>|
00005a10  31 31 39 31 20 69 6c 74  78 25 3d 69 6c 74 78 25  |1191 iltx%=iltx%|
00005a20  2a 2d 31 0d 03 5b 28 e7  72 62 78 25 3c 35 32 33  |*-1..[(.rbx%<523|
00005a30  20 84 20 72 62 78 25 3e  31 31 39 31 20 69 72 62  | . rbx%>1191 irb|
00005a40  78 25 3d 69 72 62 78 25  2a 2d 31 0d 03 5c 28 e7  |x%=irbx%*-1..\(.|
00005a50  72 74 78 25 3c 35 32 33  20 84 20 72 74 78 25 3e  |rtx%<523 . rtx%>|
00005a60  31 31 39 31 20 69 72 74  78 25 3d 69 72 74 78 25  |1191 irtx%=irtx%|
00005a70  2a 2d 31 0d 03 5d 1f e7  79 25 3c 32 37 33 20 84  |*-1..]..y%<273 .|
00005a80  20 79 25 3e 38 36 37 20  69 79 25 3d 69 79 25 2a  | y%>867 iy%=iy%*|
00005a90  2d 31 0d 03 5e 27 e7 6c  74 79 25 3c 32 37 33 20  |-1..^'.lty%<273 |
00005aa0  84 20 6c 74 79 25 3e 38  36 37 20 69 6c 74 79 25  |. lty%>867 ilty%|
00005ab0  3d 69 6c 74 79 25 2a 2d  31 0d 03 5f 27 e7 72 62  |=ilty%*-1.._'.rb|
00005ac0  79 25 3c 32 37 33 20 84  20 72 62 79 25 3e 38 36  |y%<273 . rby%>86|
00005ad0  37 20 69 72 62 79 25 3d  69 72 62 79 25 2a 2d 31  |7 irby%=irby%*-1|
00005ae0  0d 03 60 27 e7 72 74 79  25 3c 32 37 33 20 84 20  |..`'.rty%<273 . |
00005af0  72 74 79 25 3e 38 36 37  20 69 72 74 79 25 3d 69  |rty%>867 irty%=i|
00005b00  72 74 79 25 2a 2d 31 0d  03 61 10 f2 65 6e 5f 70  |rty%*-1..a..en_p|
00005b10  61 75 73 65 28 31 29 0d  03 62 05 ed 0d 03 63 0e  |ause(1)..b....c.|
00005b20  f2 70 61 75 73 65 28 35  30 29 0d 03 64 07 ef 32  |.pause(50)..d..2|
00005b30  36 0d 03 65 18 f2 63 61  63 68 65 73 6f 75 6e 64  |6..e..cachesound|
00005b40  28 22 6f 6b 32 22 2c 31  29 0d 03 66 10 d4 20 31  |("ok2",1)..f.. 1|
00005b50  2c 26 31 37 46 2c 31 2c  31 0d 03 67 05 e1 0d 03  |,&17F,1,1..g....|
00005b60  68 34 dd f2 70 6c 6f 74  5f 72 65 63 74 28 78 25  |h4..plot_rect(x%|
00005b70  2c 79 25 2c 72 62 78 25  2c 72 62 79 25 2c 72 74  |,y%,rbx%,rby%,rt|
00005b80  78 25 2c 72 74 79 25 2c  6c 74 78 25 2c 6c 74 79  |x%,rty%,ltx%,lty|
00005b90  25 29 0d 03 69 0c e6 33  2c b3 28 31 35 29 0d 03  |%)..i..3,.(15)..|
00005ba0  6a 26 ec 78 25 2c 79 25  3a f0 34 2c 72 62 78 25  |j&.x%,y%:.4,rbx%|
00005bb0  2c 72 62 79 25 3a f0 26  43 35 2c 72 74 78 25 2c  |,rby%:.&C5,rtx%,|
00005bc0  72 74 79 25 0d 03 6b 05  e1 0d 03 6c 26 dd f2 72  |rty%..k....l&..r|
00005bd0  6f 74 61 74 65 5f 6e 75  6d 62 65 72 73 28 78 25  |otate_numbers(x%|
00005be0  2c 79 25 2c 64 69 67 69  74 73 25 2c 62 24 29 0d  |,y%,digits%,b$).|
00005bf0  03 6d 19 f2 63 61 63 68  65 73 6f 75 6e 64 28 22  |.m..cachesound("|
00005c00  70 6c 6f 70 22 2c 31 29  0d 03 6e 09 61 24 3d 22  |plop",1)..n.a$="|
00005c10  22 0d 03 6f 14 e7 a9 28  61 24 29 3c 64 69 67 69  |"..o...(a$)<digi|
00005c20  74 73 25 20 8c 0d 03 70  05 f5 0d 03 71 0d 61 24  |ts% ...p....q.a$|
00005c30  3d 22 64 22 2b 61 24 0d  03 72 12 fd a9 28 61 24  |="d"+a$..r...(a$|
00005c40  29 3d 64 69 67 69 74 73  25 0d 03 73 05 cd 0d 03  |)=digits%..s....|
00005c50  74 14 e3 72 6c 69 6e 65  25 3d 31 b8 20 a9 28 62  |t..rline%=1. .(b|
00005c60  24 29 0d 03 75 1a 72 6e  75 6d 25 3d 97 28 c1 62  |$)..u.rnum%=.(.b|
00005c70  24 2c 72 6c 69 6e 65 25  2c 31 29 29 0d 03 76 1a  |$,rline%,1))..v.|
00005c80  e7 72 6e 75 6d 25 3e 34  38 20 80 20 72 6e 75 6d  |.rnum%>48 . rnum|
00005c90  25 3c 35 38 20 8c 0d 03  77 0d 72 62 61 73 65 25  |%<58 ...w.rbase%|
00005ca0  3d 34 38 0d 03 78 05 f5  0d 03 79 0d f2 73 74 5f  |=48..x....y..st_|
00005cb0  70 61 75 73 65 0d 03 7a  12 63 24 3d c0 62 24 2c  |pause..z.c$=.b$,|
00005cc0  72 6c 69 6e 65 25 29 0d  03 7b 1b c1 63 24 2c 72  |rline%)..{..c$,r|
00005cd0  6c 69 6e 65 25 2c 31 29  3d bd 28 72 62 61 73 65  |line%,1)=.(rbase|
00005ce0  25 29 0d 03 7c 24 f2 70  6c 6f 74 5f 6e 75 6d 62  |%)..|$.plot_numb|
00005cf0  65 72 73 32 28 78 25 2c  79 25 2c 64 69 67 69 74  |ers2(x%,y%,digit|
00005d00  73 25 2c 63 24 29 0d 03  7d 13 72 62 61 73 65 25  |s%,c$)..}.rbase%|
00005d10  3d 72 62 61 73 65 25 2b  31 0d 03 7e 13 d4 31 2c  |=rbase%+1..~..1,|
00005d20  2d 31 35 2c 26 33 30 30  30 2c 31 30 0d 03 7f 10  |-15,&3000,10....|
00005d30  f2 65 6e 5f 70 61 75 73  65 28 38 29 0d 03 80 11  |.en_pause(8)....|
00005d40  fd 72 62 61 73 65 25 3d  72 6e 75 6d 25 0d 03 81  |.rbase%=rnum%...|
00005d50  05 cd 0d 03 82 12 63 24  3d c0 62 24 2c 72 6c 69  |......c$=.b$,rli|
00005d60  6e 65 25 29 0d 03 83 10  d4 20 31 2c 26 31 37 46  |ne%)..... 1,&17F|
00005d70  2c 31 2c 31 0d 03 84 24  f2 70 6c 6f 74 5f 6e 75  |,1,1...$.plot_nu|
00005d80  6d 62 65 72 73 32 28 78  25 2c 79 25 2c 64 69 67  |mbers2(x%,y%,dig|
00005d90  69 74 73 25 2c 63 24 29  0d 03 85 05 ed 0d 03 86  |its%,c$)........|
00005da0  05 e1 0d 03 87 25 dd f2  70 6c 6f 74 5f 6e 75 6d  |.....%..plot_num|
00005db0  62 65 72 73 32 28 78 25  2c 79 25 2c 64 69 67 69  |bers2(x%,y%,digi|
00005dc0  74 73 25 2c 61 24 29 0d  03 88 12 e3 70 6e 25 3d  |ts%,a$).....pn%=|
00005dd0  31 20 b8 20 a9 28 61 24  29 0d 03 89 38 f2 70 6c  |1 . .(a$)...8.pl|
00005de0  6f 74 5f 73 70 72 69 74  65 28 28 78 25 2d 33 36  |ot_sprite((x%-36|
00005df0  29 2b 28 70 6e 25 2a 33  36 29 2c 79 25 2c 31 2c  |)+(pn%*36),y%,1,|
00005e00  31 2c 31 2c 31 2c c1 61  24 2c 70 6e 25 2c 31 29  |1,1,1,.a$,pn%,1)|
00005e10  29 0d 03 8a 05 ed 0d 03  8b 05 e1 0d 03 8c 24 dd  |).............$.|
00005e20  f2 70 6c 6f 74 5f 6e 75  6d 62 65 72 73 28 78 25  |.plot_numbers(x%|
00005e30  2c 79 25 2c 64 69 67 69  74 73 25 2c 61 24 29 0d  |,y%,digits%,a$).|
00005e40  03 8d 14 e7 a9 28 61 24  29 3c 64 69 67 69 74 73  |.....(a$)<digits|
00005e50  25 20 8c 0d 03 8e 05 f5  0d 03 8f 0d 61 24 3d 22  |% ..........a$="|
00005e60  64 22 2b 61 24 0d 03 90  12 fd a9 28 61 24 29 3d  |d"+a$......(a$)=|
00005e70  64 69 67 69 74 73 25 0d  03 91 05 cd 0d 03 92 12  |digits%.........|
00005e80  e3 70 6e 25 3d 31 20 b8  20 a9 28 61 24 29 0d 03  |.pn%=1 . .(a$)..|
00005e90  93 38 f2 70 6c 6f 74 5f  73 70 72 69 74 65 28 28  |.8.plot_sprite((|
00005ea0  78 25 2d 33 36 29 2b 28  70 6e 25 2a 33 36 29 2c  |x%-36)+(pn%*36),|
00005eb0  79 25 2c 31 2c 31 2c 31  2c 31 2c c1 61 24 2c 70  |y%,1,1,1,1,.a$,p|
00005ec0  6e 25 2c 31 29 29 0d 03  94 05 ed 0d 03 95 05 e1  |n%,1))..........|
00005ed0  0d 03 96 15 dd f2 73 65  74 5f 6e 65 77 5f 62 75  |......set_new_bu|
00005ee0  74 74 6f 6e 73 0d 03 97  18 e3 62 75 74 5f 6e 25  |ttons.....but_n%|
00005ef0  3d 31 b8 74 6f 74 61 6c  5f 62 75 74 25 0d 03 98  |=1.total_but%...|
00005f00  32 e7 62 75 74 25 28 62  75 74 5f 6e 25 2c 34 29  |2.but%(but_n%,4)|
00005f10  3d 30 20 84 20 62 75 74  25 28 62 75 74 5f 6e 25  |=0 . but%(but_n%|
00005f20  2c 34 29 3d 33 3a 63 6f  6c 6f 75 72 25 3d 30 0d  |,4)=3:colour%=0.|
00005f30  03 99 20 e7 62 75 74 25  28 62 75 74 5f 6e 25 2c  |.. .but%(but_n%,|
00005f40  34 29 3d 31 20 3a 63 6f  6c 6f 75 72 25 3d 31 0d  |4)=1 :colour%=1.|
00005f50  03 9a 20 e7 62 75 74 25  28 62 75 74 5f 6e 25 2c  |.. .but%(but_n%,|
00005f60  34 29 3d 32 20 3a 63 6f  6c 6f 75 72 25 3d 33 0d  |4)=2 :colour%=3.|
00005f70  03 9b 62 e7 20 63 6f 6c  6f 75 72 25 3e 30 3a f2  |..b. colour%>0:.|
00005f80  62 75 74 5f 73 75 72 72  6f 75 6e 64 28 62 75 74  |but_surround(but|
00005f90  25 28 62 75 74 5f 6e 25  2c 30 29 2c 62 75 74 25  |%(but_n%,0),but%|
00005fa0  28 62 75 74 5f 6e 25 2c  31 29 2c 62 75 74 25 28  |(but_n%,1),but%(|
00005fb0  62 75 74 5f 6e 25 2c 32  29 2c 62 75 74 25 28 62  |but_n%,2),but%(b|
00005fc0  75 74 5f 6e 25 2c 33 29  2c 63 6f 6c 6f 75 72 25  |ut_n%,3),colour%|
00005fd0  29 0d 03 9c 71 e7 20 63  6f 6c 6f 75 72 25 3e 30  |)...q. colour%>0|
00005fe0  3a f2 62 75 74 5f 63 65  6e 74 72 65 28 62 75 74  |:.but_centre(but|
00005ff0  25 28 62 75 74 5f 6e 25  2c 30 29 2c 62 75 74 25  |%(but_n%,0),but%|
00006000  28 62 75 74 5f 6e 25 2c  31 29 2c 62 75 74 25 28  |(but_n%,1),but%(|
00006010  62 75 74 5f 6e 25 2c 32  29 2c 62 75 74 25 28 62  |but_n%,2),but%(b|
00006020  75 74 5f 6e 25 2c 33 29  2c 31 32 38 2c 63 6f 6c  |ut_n%,3),128,col|
00006030  6f 75 72 25 2c 62 75 74  24 28 62 75 74 5f 6e 25  |our%,but$(but_n%|
00006040  29 29 0d 03 9d 07 ef 32  36 0d 03 9e 05 ed 0d 03  |)).....26.......|
00006050  9f 05 e1 0d 03 a0 1a dd  f2 64 65 66 69 6e 65 5f  |.........define_|
00006060  62 75 74 74 6f 6e 73 28  73 65 74 25 29 0d 03 a1  |buttons(set%)...|
00006070  1e e7 73 65 74 25 3d 31  3a 74 6f 74 61 6c 5f 62  |..set%=1:total_b|
00006080  75 74 25 3d 31 3a f7 8d  74 67 43 0d 03 a2 1e e7  |ut%=1:..tgC.....|
00006090  73 65 74 25 3d 32 3a 74  6f 74 61 6c 5f 62 75 74  |set%=2:total_but|
000060a0  25 3d 34 3a f7 8d 74 68  43 0d 03 a3 1d e3 62 75  |%=4:..thC.....bu|
000060b0  74 5f 6e 75 6d 62 65 72  25 3d 31 b8 74 6f 74 61  |t_number%=1.tota|
000060c0  6c 5f 62 75 74 25 0d 03  a4 7a f3 62 75 74 25 28  |l_but%...z.but%(|
000060d0  62 75 74 5f 6e 75 6d 62  65 72 25 2c 30 29 2c 62  |but_number%,0),b|
000060e0  75 74 25 28 62 75 74 5f  6e 75 6d 62 65 72 25 2c  |ut%(but_number%,|
000060f0  31 29 2c 62 75 74 25 28  62 75 74 5f 6e 75 6d 62  |1),but%(but_numb|
00006100  65 72 25 2c 32 29 2c 62  75 74 25 28 62 75 74 5f  |er%,2),but%(but_|
00006110  6e 75 6d 62 65 72 25 2c  33 29 2c 62 75 74 25 28  |number%,3),but%(|
00006120  62 75 74 5f 6e 75 6d 62  65 72 25 2c 34 29 2c 62  |but_number%,4),b|
00006130  75 74 24 28 62 75 74 5f  6e 75 6d 62 65 72 25 29  |ut$(but_number%)|
00006140  0d 03 a5 05 ed 0d 03 a6  05 e1 0d 03 a7 1c dc 20  |............... |
00006150  31 30 30 2c 31 30 30 2c  32 30 30 2c 34 30 2c 32  |100,100,200,40,2|
00006160  2c 47 6f 20 6f 6e 0d 03  a8 6c dc 20 38 32 30 2c  |,Go on...l. 820,|
00006170  31 30 30 2c 32 30 30 2c  36 30 2c 32 2c 76 61 6c  |100,200,60,2,val|
00006180  75 65 20 75 70 2c 38 32  30 2c 34 30 2c 32 30 30  |ue up,820,40,200|
00006190  2c 36 30 2c 32 2c 76 61  6c 75 65 20 64 6f 77 6e  |,60,2,value down|
000061a0  2c 31 30 36 30 2c 36 35  2c 32 30 30 2c 36 30 2c  |,1060,65,200,60,|
000061b0  32 2c 43 6f 72 72 65 63  74 21 2c 32 30 2c 36 35  |2,Correct!,20,65|
000061c0  2c 32 30 30 2c 36 30 2c  32 2c 4e 65 78 74 20 62  |,200,60,2,Next b|
000061d0  6f 78 0d 03 a9 2a dd f2  62 75 74 5f 73 75 72 72  |ox...*..but_surr|
000061e0  6f 75 6e 64 28 62 78 25  2c 62 79 25 2c 62 78 78  |ound(bx%,by%,bxx|
000061f0  25 2c 62 79 79 25 2c 63  6f 6c 25 29 0d 03 aa 0b  |%,byy%,col%)....|
00006200  e6 30 2c 63 6f 6c 25 0d  03 ab 78 ec 62 78 25 2c  |.0,col%...x.bx%,|
00006210  62 79 25 3a f0 31 2c 62  78 78 25 2c 30 3a f0 31  |by%:.1,bxx%,0:.1|
00006220  2c 30 2c 28 62 79 79 25  2b 34 29 3a f0 31 2c 2d  |,0,(byy%+4):.1,-|
00006230  32 2c 30 3a f0 31 2c 30  2c 2d 28 62 79 79 25 2b  |2,0:.1,0,-(byy%+|
00006240  34 29 3a f0 30 2c 32 2c  28 62 79 79 25 2b 34 29  |4):.0,2,(byy%+4)|
00006250  3a f0 31 2c 2d 62 78 78  25 2c 30 3a f0 31 2c 30  |:.1,-bxx%,0:.1,0|
00006260  2c 2d 28 62 79 79 25 2b  34 29 3a f0 31 2c 32 2c  |,-(byy%+4):.1,2,|
00006270  30 3a f0 31 2c 30 2c 28  62 79 79 25 2b 34 29 0d  |0:.1,0,(byy%+4).|
00006280  03 ac 48 e7 76 67 61 25  3d 31 20 ec 62 78 25 2c  |..H.vga%=1 .bx%,|
00006290  62 79 25 2d 32 3a f0 31  2c 62 78 78 25 2c 30 3a  |by%-2:.1,bxx%,0:|
000062a0  f0 31 2c 30 2c 28 62 79  79 25 2b 38 29 3a f0 31  |.1,0,(byy%+8):.1|
000062b0  2c 2d 62 78 78 25 2c 30  3a f0 31 2c 30 2c 2d 28  |,-bxx%,0:.1,0,-(|
000062c0  62 79 79 25 2b 38 29 0d  03 ad 05 e1 0d 03 ae 34  |byy%+8)........4|
000062d0  dd f2 62 75 74 5f 63 65  6e 74 72 65 28 62 78 25  |..but_centre(bx%|
000062e0  2c 62 79 25 2c 62 78 78  25 2c 62 79 79 25 2c 62  |,by%,bxx%,byy%,b|
000062f0  63 6f 6c 25 2c 63 6f 6c  25 2c 74 65 78 74 24 29  |col%,col%,text$)|
00006300  0d 03 af 14 e6 30 2c 62  63 6f 6c 25 3a e6 30 2c  |.....0,bcol%:.0,|
00006310  63 6f 6c 25 0d 03 b0 21  e7 56 25 3d 31 20 63 6f  |col%...!.V%=1 co|
00006320  72 72 65 63 74 25 3d 32  20 8b 20 63 6f 72 72 65  |rrect%=2 . corre|
00006330  63 74 25 3d 30 0d 03 b1  41 ef 32 34 2c 62 78 25  |ct%=0...A.24,bx%|
00006340  2b 34 3b 62 79 25 2b 34  2d 63 6f 72 72 65 63 74  |+4;by%+4-correct|
00006350  25 3b 62 78 25 2b 62 78  78 25 2d 34 3b 62 79 25  |%;bx%+bxx%-4;by%|
00006360  2b 62 79 79 25 2b 63 6f  72 72 65 63 74 25 3b 31  |+byy%+correct%;1|
00006370  36 2c 32 36 2c 35 0d 03  b2 27 6c 65 66 74 5f 6d  |6,26,5...'left_m|
00006380  61 72 67 69 6e 25 3d 28  62 78 78 25 2d 28 a9 28  |argin%=(bxx%-(.(|
00006390  74 65 78 74 24 29 2a 31  36 29 29 2f 32 0d 03 b3  |text$)*16))/2...|
000063a0  23 ec 62 78 25 2b 6c 65  66 74 5f 6d 61 72 67 69  |#.bx%+left_margi|
000063b0  6e 25 2c 62 79 25 2b 33  36 3a f1 74 65 78 74 24  |n%,by%+36:.text$|
000063c0  0d 03 b4 06 ef 34 0d 03  b5 05 e1 0d 03 b6 33 dd  |.....4........3.|
000063d0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 62 61 63  |.plot_sprite_bac|
000063e0  6b 28 78 25 2c 79 25 2c  78 6d 25 2c 79 6d 25 2c  |k(x%,y%,xm%,ym%,|
000063f0  78 64 25 2c 79 64 25 2c  6e 61 6d 65 24 29 0d 03  |xd%,yd%,name$)..|
00006400  b7 43 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.C.."OS_SpriteOp|
00006410  22 2c 26 31 32 38 2c 73  70 72 69 74 65 5f 61 72  |",&128,sprite_ar|
00006420  65 61 31 25 2c 6e 61 6d  65 24 20 b8 20 72 30 2c  |ea1%,name$ . r0,|
00006430  72 31 2c 72 32 2c 41 25  2c 42 25 2c 72 35 2c 72  |r1,r2,A%,B%,r5,r|
00006440  36 0d 03 b8 38 ef 32 34  2c 78 25 2d 38 3b 79 25  |6...8.24,x%-8;y%|
00006450  2d 38 3b 78 25 2b 38 2b  28 41 25 2a 32 29 3b 79  |-8;x%+8+(A%*2);y|
00006460  25 2b 38 2b 28 42 25 2a  34 29 3b 31 38 2c 30 2c  |%+8+(B%*4);18,0,|
00006470  31 33 31 2c 31 36 2c 32  36 0d 03 b9 13 21 28 73  |131,16,26....!(s|
00006480  63 61 6c 65 25 2b 30 29  3d 78 6d 25 0d 03 ba 1c  |cale%+0)=xm%....|
00006490  21 28 73 63 61 6c 65 25  2b 34 29 3d 79 6d 25 2a  |!(scale%+4)=ym%*|
000064a0  28 76 67 61 25 2b 31 29  0d 03 bb 13 21 28 73 63  |(vga%+1)....!(sc|
000064b0  61 6c 65 25 2b 38 29 3d  78 64 25 0d 03 bc 14 21  |ale%+8)=xd%....!|
000064c0  28 73 63 61 6c 65 25 2b  31 32 29 3d 79 64 25 0d  |(scale%+12)=yd%.|
000064d0  03 bd 34 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..4.."OS_SpriteO|
000064e0  70 22 2c 26 31 33 34 2c  73 61 31 25 2c 6e 61 6d  |p",&134,sa1%,nam|
000064f0  65 24 2c 78 25 2c 79 25  2c 30 2c 73 63 61 6c 65  |e$,x%,y%,0,scale|
00006500  25 2c 30 0d 03 be 05 e1  0d 03 bf 1c dd f2 63 68  |%,0...........ch|
00006510  65 63 6b 5f 62 75 74 74  6f 6e 73 28 61 6e 5f 6e  |eck_buttons(an_n|
00006520  75 6d 25 29 0d 03 c0 0f  73 65 6c 65 63 74 65 64  |um%)....selected|
00006530  25 3d 30 0d 03 c1 11 c8  97 6d 78 25 2c 6d 79 25  |%=0......mx%,my%|
00006540  2c 6d 63 25 0d 03 c2 0c  63 62 25 3d a6 28 31 29  |,mc%....cb%=.(1)|
00006550  0d 03 c3 1a e7 63 62 25  3d 31 36 20 63 62 25 3d  |.....cb%=16 cb%=|
00006560  30 3a f2 70 72 69 6e 74  65 72 0d 03 c4 21 e7 63  |0:.printer...!.c|
00006570  62 25 3d 31 39 20 63 62  25 3d 30 3a f2 73 63 72  |b%=19 cb%=0:.scr|
00006580  65 65 6e 5f 73 61 76 65  28 30 29 0d 03 c5 1a e3  |een_save(0).....|
00006590  62 75 74 5f 6e 25 3d 31  20 b8 20 74 6f 74 61 6c  |but_n%=1 . total|
000065a0  5f 62 75 74 25 0d 03 c6  19 e7 62 75 74 25 28 62  |_but%.....but%(b|
000065b0  75 74 5f 6e 25 2c 34 29  3c 32 3a ed 3a e1 0d 03  |ut_n%,4)<2:.:...|
000065c0  c7 79 e7 6d 78 25 3c 62  75 74 25 28 62 75 74 5f  |.y.mx%<but%(but_|
000065d0  6e 25 2c 30 29 20 84 20  6d 78 25 3e 28 62 75 74  |n%,0) . mx%>(but|
000065e0  25 28 62 75 74 5f 6e 25  2c 30 29 2b 62 75 74 25  |%(but_n%,0)+but%|
000065f0  28 62 75 74 5f 6e 25 2c  32 29 29 20 84 20 6d 79  |(but_n%,2)) . my|
00006600  25 3c 62 75 74 25 28 62  75 74 5f 6e 25 2c 31 29  |%<but%(but_n%,1)|
00006610  20 84 20 6d 79 25 3e 28  62 75 74 25 28 62 75 74  | . my%>(but%(but|
00006620  5f 6e 25 2c 31 29 2b 62  75 74 25 28 62 75 74 5f  |_n%,1)+but%(but_|
00006630  6e 25 2c 33 29 29 8c 0d  03 c8 99 e7 b0 62 75 74  |n%,3)).......but|
00006640  25 28 62 75 74 5f 6e 25  2c 30 29 2b 36 2c 62 75  |%(but_n%,0)+6,bu|
00006650  74 25 28 62 75 74 5f 6e  25 2c 31 29 2b 38 29 3d  |t%(but_n%,1)+8)=|
00006660  34 20 80 20 62 75 74 25  28 62 75 74 5f 6e 25 2c  |4 . but%(but_n%,|
00006670  34 29 3c 33 3a f2 62 75  74 5f 63 65 6e 74 72 65  |4)<3:.but_centre|
00006680  28 62 75 74 25 28 62 75  74 5f 6e 25 2c 30 29 2c  |(but%(but_n%,0),|
00006690  62 75 74 25 28 62 75 74  5f 6e 25 2c 31 29 2c 62  |but%(but_n%,1),b|
000066a0  75 74 25 28 62 75 74 5f  6e 25 2c 32 29 2c 62 75  |ut%(but_n%,2),bu|
000066b0  74 25 28 62 75 74 5f 6e  25 2c 33 29 2c 31 32 38  |t%(but_n%,3),128|
000066c0  2c 33 2c 62 75 74 24 28  62 75 74 5f 6e 25 29 29  |,3,but$(but_n%))|
000066d0  0d 03 c9 05 cc 0d 03 ca  99 e7 b0 62 75 74 25 28  |...........but%(|
000066e0  62 75 74 5f 6e 25 2c 30  29 2b 36 2c 62 75 74 25  |but_n%,0)+6,but%|
000066f0  28 62 75 74 5f 6e 25 2c  31 29 2b 34 29 3d 30 20  |(but_n%,1)+4)=0 |
00006700  80 20 62 75 74 25 28 62  75 74 5f 6e 25 2c 34 29  |. but%(but_n%,4)|
00006710  3c 33 3a f2 62 75 74 5f  63 65 6e 74 72 65 28 62  |<3:.but_centre(b|
00006720  75 74 25 28 62 75 74 5f  6e 25 2c 30 29 2c 62 75  |ut%(but_n%,0),bu|
00006730  74 25 28 62 75 74 5f 6e  25 2c 31 29 2c 62 75 74  |t%(but_n%,1),but|
00006740  25 28 62 75 74 5f 6e 25  2c 32 29 2c 62 75 74 25  |%(but_n%,2),but%|
00006750  28 62 75 74 5f 6e 25 2c  33 29 2c 31 33 32 2c 33  |(but_n%,3),132,3|
00006760  2c 62 75 74 24 28 62 75  74 5f 6e 25 29 29 0d 03  |,but$(but_n%))..|
00006770  cb 1b e7 6d 63 25 3d 34  3a 73 65 6c 65 63 74 65  |...mc%=4:selecte|
00006780  64 25 3d 62 75 74 5f 6e  25 0d 03 cc 05 cd 0d 03  |d%=but_n%.......|
00006790  cd 20 e7 61 6e 5f 6e 75  6d 25 3e 30 3a f2 73 70  |. .an_num%>0:.sp|
000067a0  5f 61 6e 69 6d 28 61 6e  5f 6e 75 6d 25 29 0d 03  |_anim(an_num%)..|
000067b0  ce 05 ed 0d 03 cf 05 e1  0d 03 d0 0e dd f2 70 61  |..............pa|
000067c0  6c 65 74 74 65 32 0d 03  d1 2c e7 56 25 3d 30 20  |lette2...,.V%=0 |
000067d0  ef 32 34 2c 30 3b 39 36  30 3b 31 32 37 38 3b 31  |.24,0;960;1278;1|
000067e0  30 32 32 3b 31 38 2c 30  2c 31 33 31 2c 31 36 2c  |022;18,0,131,16,|
000067f0  32 36 0d 03 d2 18 ef 31  39 2c 31 2c 32 34 2c 31  |26.....19,1,24,1|
00006800  33 36 2c 31 33 36 2c 31  33 36 0d 03 d3 10 ea 70  |36,136,136.....p|
00006810  25 2c 72 25 2c 67 25 2c  62 25 0d 03 d4 07 f7 2b  |%,r%,g%,b%.....+|
00006820  35 0d 03 d5 0c e3 70 25  3d 30 b8 31 35 0d 03 d6  |5.....p%=0.15...|
00006830  1a f3 72 25 2c 67 25 2c  62 25 3a fb 70 25 2c 72  |..r%,g%,b%:.p%,r|
00006840  25 2c 67 25 2c 62 25 0d  03 d7 05 ed 0d 03 d8 05  |%,g%,b%.........|
00006850  e1 0d 03 d9 2f dc 20 32  35 35 2c 32 35 35 2c 32  |..../. 255,255,2|
00006860  35 35 2c 31 38 37 2c 31  38 37 2c 31 38 37 2c 31  |55,187,187,187,1|
00006870  33 36 2c 31 33 36 2c 31  33 36 2c 30 2c 30 2c 30  |36,136,136,0,0,0|
00006880  0d 03 da 29 dc 20 30 2c  30 2c 31 37 35 2c 30 2c  |...). 0,0,175,0,|
00006890  30 2c 32 35 35 2c 30 2c  32 30 34 2c 32 35 35 2c  |0,255,0,204,255,|
000068a0  32 35 35 2c 32 35 35 2c  30 0d 03 db 28 dc 20 32  |255,255,0...(. 2|
000068b0  30 34 2c 32 30 34 2c 30  2c 32 32 31 2c 30 2c 30  |04,204,0,221,0,0|
000068c0  2c 31 33 36 2c 31 37 2c  30 2c 30 2c 31 35 33 2c  |,136,17,0,0,153,|
000068d0  30 0d 03 dc 2b dc 20 30  2c 31 38 37 2c 33 34 2c  |0...+. 0,187,34,|
000068e0  30 2c 32 35 35 2c 30 2c  32 35 35 2c 32 32 31 2c  |0,255,0,255,221,|
000068f0  31 37 30 2c 31 38 32 2c  38 32 2c 30 0d 03 dd 18  |170,182,82,0....|
00006900  dd f2 73 74 61 72 74 5f  61 6e 69 6d 28 62 6c 61  |..start_anim(bla|
00006910  6e 6b 24 29 0d 03 de 3d  c8 99 22 4f 53 5f 53 70  |nk$)...=.."OS_Sp|
00006920  72 69 74 65 4f 70 22 2c  26 31 31 38 2c 73 70 72  |riteOp",&118,spr|
00006930  69 74 65 5f 61 72 65 61  31 25 2c 73 65 6c 5f 73  |ite_area1%,sel_s|
00006940  70 72 69 74 65 24 20 b8  20 72 30 2c 72 31 2c 72  |prite$ . r0,r1,r|
00006950  32 0d 03 df 3c 77 69 64  74 68 25 3d 28 21 28 72  |2...<width%=(!(r|
00006960  32 2b 31 36 29 2b 31 29  2a 31 36 3a 68 65 69 67  |2+16)+1)*16:heig|
00006970  68 74 25 3d 28 21 28 72  32 2b 32 30 29 2b 31 29  |ht%=(!(r2+20)+1)|
00006980  2a 28 34 2a 28 76 67 61  25 2b 31 29 29 0d 03 e0  |*(4*(vga%+1))...|
00006990  56 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |V.."OS_SpriteOp"|
000069a0  2c 26 31 31 30 2c 73 70  72 69 74 65 5f 61 72 65  |,&110,sprite_are|
000069b0  61 31 25 2c 62 6c 61 6e  6b 24 2c 30 2c 61 6e 5f  |a1%,blank$,0,an_|
000069c0  78 25 2c 61 6e 5f 79 25  2c 61 6e 5f 78 25 2b 77  |x%,an_y%,an_x%+w|
000069d0  69 64 74 68 25 2c 61 6e  5f 79 25 2b 68 65 69 67  |idth%,an_y%+heig|
000069e0  68 74 25 0d 03 e1 38 f2  70 6c 6f 74 5f 73 70 72  |ht%...8.plot_spr|
000069f0  69 74 65 5f 6d 61 73 6b  65 64 28 61 6e 5f 78 25  |ite_masked(an_x%|
00006a00  2c 61 6e 5f 79 25 2c 31  2c 31 2c 31 2c 31 2c 73  |,an_y%,1,1,1,1,s|
00006a10  65 6c 5f 73 70 72 69 74  65 24 29 0d 03 e2 1d 61  |el_sprite$)....a|
00006a20  6e 5f 78 78 25 3d 61 6e  5f 78 25 3a 61 6e 5f 79  |n_xx%=an_x%:an_y|
00006a30  79 25 3d 61 6e 5f 79 25  0d 03 e3 05 e1 0d 03 e4  |y%=an_y%........|
00006a40  12 dd f2 61 6e 69 6d 28  62 6c 61 6e 6b 24 29 0d  |...anim(blank$).|
00006a50  03 e5 3a f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |..:.plot_sprite_|
00006a60  6d 61 73 6b 65 64 28 61  6e 5f 78 78 25 2c 61 6e  |masked(an_xx%,an|
00006a70  5f 79 79 25 2c 31 2c 31  2c 31 2c 31 2b 76 67 61  |_yy%,1,1,1,1+vga|
00006a80  25 2c 62 6c 61 6e 6b 24  29 0d 03 e6 56 c8 99 22  |%,blank$)...V.."|
00006a90  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
00006aa0  30 2c 73 70 72 69 74 65  5f 61 72 65 61 31 25 2c  |0,sprite_area1%,|
00006ab0  62 6c 61 6e 6b 24 2c 30  2c 61 6e 5f 78 25 2c 61  |blank$,0,an_x%,a|
00006ac0  6e 5f 79 25 2c 61 6e 5f  78 25 2b 77 69 64 74 68  |n_y%,an_x%+width|
00006ad0  25 2c 61 6e 5f 79 25 2b  68 65 69 67 68 74 25 0d  |%,an_y%+height%.|
00006ae0  03 e7 38 f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |..8.plot_sprite_|
00006af0  6d 61 73 6b 65 64 28 61  6e 5f 78 25 2c 61 6e 5f  |masked(an_x%,an_|
00006b00  79 25 2c 31 2c 31 2c 31  2c 31 2c 73 65 6c 5f 73  |y%,1,1,1,1,sel_s|
00006b10  70 72 69 74 65 24 29 0d  03 e8 1d 61 6e 5f 78 78  |prite$)....an_xx|
00006b20  25 3d 61 6e 5f 78 25 3a  61 6e 5f 79 79 25 3d 61  |%=an_x%:an_yy%=a|
00006b30  6e 5f 79 25 0d 03 e9 05  e1 0d 03 ea 16 dd f2 65  |n_y%...........e|
00006b40  6e 64 5f 61 6e 69 6d 28  62 6c 61 6e 6b 24 29 0d  |nd_anim(blank$).|
00006b50  03 eb 3a f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |..:.plot_sprite_|
00006b60  6d 61 73 6b 65 64 28 61  6e 5f 78 78 25 2c 61 6e  |masked(an_xx%,an|
00006b70  5f 79 79 25 2c 31 2c 31  2c 31 2c 31 2b 76 67 61  |_yy%,1,1,1,1+vga|
00006b80  25 2c 62 6c 61 6e 6b 24  29 0d 03 ec 05 e1 0d ff  |%,blank$).......|
00006b90