4�ADFS::HardDisc4.$.CURR_NEW.!Tables.Pt1.CONNECT

!ț "<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%(12,5)
� tables$(12),ta$(12)
� mov_tab%(5,5)
� firstn%(12)
� secondn%(12)
� rnd_picker1%(12)
� rnd_picker2%(12)
� rnd_number1%(12)
� rnd_number2%(12)
� presented%(12)
� x_answer%(12)
 � count_down%(6)
!� entry_areas%(5,4)
"� ds%(32,2)
#� corr%(30,3)
$� scale% 16
%� input% 16
&� output% 16
'� cbox%(7,2)
(� cbox_type%(6,8)
)� temp%(6)
*� pipes%(20,2)
+� latch%(8)
,vga%=V%
-�pull_variables
.�initialise_sprite_area
/addrs$=�~m_code1%
0,�"LOAD <TableA$Dir>.pt1.GenCode "+addrs$
1�find_screens
2�pull_gen_code_var
3�pull_pac_code_var
4sa1%=sprite_area1%
5number_of%=10
6timer_on%=1
7style%=1
8order%=2
9Ƞ 1
:
�palette2
;�19,1,24,0,0,0
<text_col%=3
=�Q%=5 �
>�main_connect
?�tscore(512,348)
@�space(920,240,0,0)
AQ%=6
B�
C"�Q%=6 �"<TableA$Dir>.Pt1.Link"
D�Q%=21 �
E�main_connect
F�tscore(512,348)
G�space(920,240,0,0)
H	Q%=22
I�
J
� Q%=22 �
K�guess_door
L�
M$� Q%=23 �"<TableA$Dir>.Pt1.Link"
N$� Q%=30 �"<TableA$Dir>.Pt1.Link"
O� Q%=204 �
P�main_connect
Q�tscore(512,348)
R�space(920,240,0,0)
S� S%=1 �dt
T�"<TableA$Dir>.Pt1.Link"
U�
V�
W��clear_up
X7�24,813;0;1278;186;18,0,128,16,24,0;0;357;186;16,26
Y�
Z��guess_door
[�load_sprites("captlink")
\�merge_sprites("buttons")
]*FX112,2
^#�24,0;0;1278;958;18,0,131,16,26
_,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
`fade$="fade"
a�fade(0,960,4,0,1,1)
b*fx112,1
c,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
dU�text_box(800,560,440,250,2,"Outside the door","are two corridors.","Which way?")
exx%=64:yy%=88
f0�plot_sprite_back(xx%,yy%,1,1,1,1,"screen6")
g/B%=screen_one%:C%=screen_two%:�save_screen%
h�button_press(3)
i*fx112,2
jfail%=0
k�24,169;255;688;800;
l� L%=1 � selected%=1 �
m�cachesound("aliensnear",1)
n�f%=0 � 170 � 8
o
�st_pause
p� 1,&17F,1,1
q+�plot_sprite(xx%,yy%,1,1,1,1,"screen6")
r0�plot_sprite_masked(f%,255,1,1,1,1,"table8")
s/C%=screen_one%:B%=screen_two%:�save_screen%
t�en_pause(10)
u�
v*fx112,1
w%�24,780;0;1278;956;18,0,131,16,26
xT�text_box(800,560,440,250,2,"Oh dear!  You have","walked into a","Table Alien.")
y�space(900,80,0,0)
zQ�text_box(800,280,440,250,2,"You will be locked","in a very unusual","room.")
{�space(900,80,0,0)
|fail%=1
}	Q%=30
~�
� L%=2 � selected%=2 �
�/ș"OS_SpriteOp",&12F,sprite_area1%,"table8"
��cachesound("aliensnear",1)
��f%=688 � 528 � -8
�
�st_pause
�� 1,&17F,1,1
�+�plot_sprite(xx%,yy%,1,1,1,1,"screen6")
�0�plot_sprite_masked(f%,255,1,1,1,1,"table8")
�/C%=screen_one%:B%=screen_two%:�save_screen%
��en_pause(10)
��
�*fx112,1
�%�24,780;0;1278;956;18,0,131,16,26
�T�text_box(800,560,440,250,2,"Oh dear!  You have","walked into a","Table Alien.")
��space(900,80,0,0)
�Q�text_box(800,280,440,250,2,"You will be locked","in a very unusual","room.")
��space(900,80,0,0)
�fail%=1
�	Q%=30
��
�$� L%=2 � selected%=1 � fail%=0 �
�*fx112,1
�%�24,780;0;1278;956;18,0,131,16,26
��cachesound("invading2",1)
�� 1,&17F,1,1
�C�text_box(800,560,440,170,2,"You take the","left corridor.","")
��space(900,80,0,0)
�	Q%=23
��
�$� L%=1 � selected%=2 � fail%=0 �
�*fx112,1
�%�24,780;0;1278;956;18,0,131,16,26
��cachesound("invading2",1)
�� 1,&17F,1,1
�D�text_box(800,560,440,170,2,"You take the","right corridor.","")
��space(900,80,0,0)
�	Q%=23
��
��
���backg
��f%=0 � 1280 � 192
��ff%=0 � 960-192 � 192
�'�plot_sprite(f%,ff%,1,1,1,1,"back")
��
��
��
���main_connect
�total_possible%=20
�)total_got%=20:total_got_fp=total_got%
�Ƞ 2
��load_sprites("con")
��merge_sprites("numbers")
��merge_sprites("buttons")
��set_table_one
�*FX112,2
�
�128:�
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
�
�backg
�fade$="fade"
��fade(0,960,4,0,1,1)
�*FX112,1
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
�
�backg
�*fx112,1
��Q%=5 �
�t�text_box(60,692,800,250,2,"As a member of the Special Group","you must know what to do if you","are captured.")
�(�plot_sprite(950,700,1,1,1,1,"man7")
��space(900,20,0,0)
�b�text_box(60,470,800,180,2,"Inside the Table Aliens craft","there are special code locks.","")
�)�plot_sprite(890,420,1,1,1,1,"craft")
��space(900,20,0,0)
��
��Q%=21 �
�7�text_box(300,400,680,90,2,"Can you escape?","","")
��space(900,20,0,0)
��
��centre_box
�*FX112,2
�
�128:�
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
�
�backg
��set_boxes
��set_box_content
�
�f%=1 � 6
��cachesound("plop",1)
�� 1,&17F,1,1
�x%=cbox%(f%,1)
�y%=cbox%(f%,2)
�(�plot_sprite(x%,y%,1,1,1,1,"silver")
��
�'�plot_sprite(512,360,1,1,1,1,"key")
�fade$="fade"
��fade(0,960,4,0,1,1)
�*fx112,1
��24,0;0;510;800;
��f%=0 � 580 � 24
�
�st_pause
�/�plot_sprite_masked(f%,456,1,1,1,1,"bolt4")
��en_pause(10)
��
��cachesound("clang_lock",1)
�� 1,&17F,1,1
��24,770;0;1278;800;
��f%=1280 � 600 � -24
�
�st_pause
�/�plot_sprite_masked(f%,456,1,1,1,1,"bolt3")
��en_pause(10)
��
��cachesound("clang_lock",1)
�� 1,&17F,1,1
�/B%=screen_one%:C%=screen_two%:�save_screen%
�S�text_box(100,100,1080,160,2,"Can you solve this code and","open the lock?","")
��space(900,24,0,0)
�/C%=screen_one%:B%=screen_two%:�save_screen%
�J�text_box(100,130,1080,90,2,"Do you require more instructions?","","")
��define_buttons(4)
��:ȗmx%,my%,mc%:�mc%=0
��msxf%=1�10:ȗmx%,my%,mc%:�
��bn%=1 � total_but%
�/�but_off(but%(bn%,0),but%(bn%,1),but$(bn%))
��
�ȗ�
��
��check_buttons(an_num%)
��selected%>0
��selected%=1 �
�/C%=screen_one%:B%=screen_two%:�save_screen%
��centre_box
��set_box_content

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


)�rotate_numbers(530,460,5,tables$(1))

p�text_box(40,100,1200,190,2,"Alter the outside boxes so they have","the same 'value' as the centre box.","")

�space(900,20,0,0)

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

�cachesound("clang2",1)

�box2(40,540,1200,380)

%�pri(177,866,"Look."):�pause(180)

(�plot_sprite(164,762,1,1,1,1,"in1"):

	� 1,&17F,1,1


�pause(50)

*�pri(390,778,"have the same value as")

�pause(50)


� 1,&17F,1,1

:�plot_sprite(980,762,1,1,1,1,"in3"):�space(900,80,0,0)

'�plot_sprite(164,662,1,1,1,1,"in3")

� 1,&17F,1,1

�pause(50)

)�pri(390,678,"has the same value as")

�pause(50)

� 1,&17F,1,1

:�plot_sprite(980,662,1,1,1,1,"in2"):�space(900,80,0,0)

'�plot_sprite(164,562,1,1,1,1,"in2")

� 1,&17F,1,1

�pause(50)

)�pri(390,578,"has the same value as")

�pause(50)

� 1,&17F,1,1

:�plot_sprite(980,562,1,1,1,1,"in6"):�space(900,80,0,0)

T�text_box(40,240,1200,90,2,"Use the 'value up' and 'value down' buttons.","","")

�space(900,80,0,0)

�

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

!
�f%=1 � 6

"�connect_box(f%,128)

#�

$�centre_box

%,�plot_sprite(512,360,1,1,1,1,"theworks")

&�set_box_content

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

()�rotate_numbers(540,522,5,tables$(1))

)�bx%=1 � 6

*�print_value(bx%)

+�pipe(bx%,1)

,�

-Gș"OS_SpriteOp",&110,sprite_area1%,"blarrow",0,290,56,316+124,72+68

./�plot_sprite_masked(290,56,1,1,1,1,"arrow")

/�highlight(1)

0look_at_box%=1

1correct_an%=0

2�

3�

4�change_box(look_at_box%)

5� change%=1 � answ%=1

6-�plot_sprite(290,56,1,1,1,1+V%,"blarrow")

7�change%=1 �

8�cachesound("clang2",1)

9� 1,&17F,1,1

:�highlight(look_at_box%)

; look_at_box%=look_at_box%+1:

<"�look_at_box%=7 look_at_box%=1

=#�cbox_type%(look_at_box%,1)=0 �

>�

? look_at_box%=look_at_box%+1:

@"�look_at_box%=7 look_at_box%=1

A#� cbox_type%(look_at_box%,1)<>0

B�

C�highlight(look_at_box%)

D�

E�answ%=1 �

F+real_answer%=cbox_type%(look_at_box%,6)

G,their_answer%=cbox_type%(look_at_box%,3)

H!�their_answer%=real_answer% �

I�highlight(look_at_box%)

Jcorrect_an%=correct_an%+1

K�cachesound("ok2",1)

L� 1,&17F,1,1

M�pause(140)

N"�connect_box(look_at_box%,128)

O�print_value(look_at_box%)

P�pipe(look_at_box%,0)

Q=� look_at_box%=1 ax%=534:ay%=432:sp$="llatch":latch%(1)=1

R=� look_at_box%=2 ax%=558:ay%=432:sp$="llatch":latch%(2)=1

S=� look_at_box%=3 ax%=582:ay%=432:sp$="llatch":latch%(3)=1

T=� look_at_box%=4 ax%=680:ay%=432:sp$="rlatch":latch%(4)=1

U=� look_at_box%=5 ax%=704:ay%=432:sp$="rlatch":latch%(5)=1

V=� look_at_box%=6 ax%=728:ay%=432:sp$="rlatch":latch%(6)=1

W�lat%=1 � 5

X-�plot_sprite(ax%,ay%,1,1,1,1,sp$+�(lat%))

Y�pause(20)

Z�

[�cachesound("clang2",1)

\� 1,&17F,1,1

]=� latch%(1)=1 � latch%(2)=1 � latch%(3)=1 � latch%(7)=0 �

^*�plot_sprite(406,456,1,1,1,1,"lboltl")

_�cachesound("clang_lock",1)

`� 1,&17F,1,1

alatch%(7)=1

b�

c=� latch%(4)=1 � latch%(5)=1 � latch%(6)=1 � latch%(8)=0 �

d*�plot_sprite(656,456,1,1,1,1,"rboltl")

e�cachesound("clang_lock",1)

f� 1,&17F,1,1

glatch%(8)=1

h�

i�pause(100)

j cbox_type%(look_at_box%,1)=0

klook_at_box%=look_at_box%+1

l"�look_at_box%=7 look_at_box%=1

m4�cbox_type%(look_at_box%,1)=0 � correct_an%<>6 �

n�

olook_at_box%=look_at_box%+1

p"�look_at_box%=7 look_at_box%=1

q#� cbox_type%(look_at_box%,1)<>0

r�

s-� correct_an%<>6 �highlight(look_at_box%)

t�

u�highlight(look_at_box%)

v�cachesound("wrong2",1)

w� 1,&17F,1,1

xtotal_got_fp=total_got_fp-1

y/B%=screen_one%:C%=screen_two%:�save_screen%

zI�text_box(430,290,420,160,2,"These should be","the same 'value'.","")

{T�plot_sprite_masked(cbox%(look_at_box%,1),cbox%(look_at_box%,2),1,1,1,1,"right")

|0�plot_sprite_masked(480,420,1,1,1,1,"right")

}�pause(400)

~/C%=screen_one%:B%=screen_two%:�save_screen%

"�connect_box(look_at_box%,128)

��print_value(look_at_box%)

�look_at_box%=look_at_box%+1

�"�look_at_box%=7 look_at_box%=1

�#�cbox_type%(look_at_box%,1)=0 �

��

�look_at_box%=look_at_box%+1

�"�look_at_box%=7 look_at_box%=1

�#� cbox_type%(look_at_box%,1)<>0

��

��highlight(look_at_box%)

��

��

�� correct_an%=6

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

�*FX112,2

�
�f%=1 � 6

�x%=cbox%(f%,1)

�y%=cbox%(f%,2)

�(�plot_sprite(x%,y%,1,1,1,1,"silver")

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

��

��cachesound("laser_door",1)

�� 1,&17F,1,1

�*FX112,1

�'�plot_sprite(512,360,1,1,1,1,"key")

�O�text_box(100,800,1080,90,2,"Well done. You have unlocked the code.","","")

��space(920,220,0,0)

�total_got%=total_got_fp

��

���pipe(type%,amm%)

�	��trA

�� f%=1 � type%

�� posx%,posy%,am%

�� ff%= 1 � am%

�!� pipes%(ff%,1),pipes%(ff%,2)

��

��

��cachesound("fire_bubb2",1)

�� ff%= 1 � am%

��amm%=0 � ff%=2: �1,-15,1,1

��amm%=0 �st_pause

�L�amm%=0 �plot_sprite_masked(posx%,posy%,1,1,1,1,"pipe"+�(pipes%(ff%,1)))

�M�amm%=1 �plot_sprite_masked(posx%,posy%,1,1,1,1,"opipe"+�(pipes%(ff%,1)))

�$� pipes%(ff%,2)=1 posy%=posy%+32

�$� pipes%(ff%,2)=2 posx%=posx%+32

�$� pipes%(ff%,2)=3 posy%=posy%-32

�$� pipes%(ff%,2)=4 posx%=posx%-32

��amm%=0 �en_pause(20)

��

��

�+� 384,308,7,1,2,5,1,2,1,2,1,4,2,1,2,1,2

�+� 384,628,7,1,2,3,3,2,3,2,3,6,2,1,2,1,2

�� 624,636,2,2,3,2,3

�+� 866,632,7,1,4,4,3,2,3,2,3,5,4,1,4,1,4

�+� 866,308,7,1,4,6,1,2,1,2,1,3,4,1,4,1,4

�� 624,296,2,2,1,2,1

���set_box_content

�
�f%=1 � 6

�temp%(f%)=0

��

��rr%=1 � 6

��:ar%=�(6):� temp%(ar%)=0

�temp%(ar%)=1

�cbox_type%(rr%,1)=ar%

��ar%=1 �set_sum_one(rr%)

��ar%=2 �set_sum_two(rr%)

��ar%=3 �set_sum_three(rr%)

��ar%=4 �set_sum_three(rr%)

��ar%=5 �set_sum_five(rr%)

��ar%=6 �set_sum_six(rr%)

��

��

���change_box(boxn%)

�
change%=0

�answ%=0

��define_buttons(2)

��:ȗmx%,my%,mc%:�mc%=0

��msxf%=1�10:ȗmx%,my%,mc%:�

��bn%=1 � total_but%

�/�but_off(but%(bn%,0),but%(bn%,1),but$(bn%))

��

�ȗ�

��

��check_buttons(an_num%)

��selected%>0

�>� selected%=1 � cbox_type%(boxn%,8)<>cbox_type%(boxn%,3) �

��cachesound("plop",1)

�� 1,&17F,1,1

�-cbox_type%(boxn%,3)=cbox_type%(boxn%,3)+1

��print_value(boxn%)

��

�>� selected%=2 � cbox_type%(boxn%,7)<>cbox_type%(boxn%,3) �

��cachesound("plop",1)

�� 1,&17F,1,1

�-cbox_type%(boxn%,3)=cbox_type%(boxn%,3)-1

��print_value(boxn%)

��

�� selected%=3 �

�answ%=1

��

�� selected%=4 �

�
change%=1

��

��

���highlight(boxn%)

�x%=cbox%(boxn%,1)

�y%=cbox%(boxn%,2)

��draw_round(x%,y%)

��define_buttons(2)

��

���draw_round(x%,y%)

�	�3,13

��f%=4 � 44 � 4

�3� x%-f%,y%-f%:� 9,320+(f%*2),0:� 9,0,248+(f%*2)

�/� 9,(320+(f%*2))*-1,0:� 9,0,(248+(f%*2))*-1

��

��

���print_value(box_num%)

��cbox_type%(box_num%,1)=1 �

��sum_one(box_num%)

��

��cbox_type%(box_num%,1)=2 �

��sum_two(box_num%)

��

��cbox_type%(box_num%,1)=3 �

��sum_three_four(box_num%)

��

��cbox_type%(box_num%,1)=4 �
�sum_three_four(box_num%)

�
�cbox_type%(box_num%,1)=5 �
�sum_five(box_num%)
�
�cbox_type%(box_num%,1)=6 �
�sum_six(box_num%)
�
�
	��sum_one(box_num%)

�connect_box(box_num%,128)
�cbox_type%(box_num%,2)=1 �
5pr$=�(cbox_type%(box_num%,3))+"x"+�(tables%(1,1))

C�plot_numbers(cbox%(box_num%,1)+64,cbox%(box_num%,2)+100,5,pr$)
�
�cbox_type%(box_num%,2)=2 �
5pr$=�(tables%(1,2))+"x"+�(cbox_type%(box_num%,3))
C�plot_numbers(cbox%(box_num%,1)+64,cbox%(box_num%,2)+100,5,pr$)
�
�
��sum_two(box_num%)
�connect_box(box_num%,128)
,�cbox_type%(box_num%,4)=1 mid$="lots of"
,�cbox_type%(box_num%,4)=2 mid$="sets of"
�cbox_type%(box_num%,2)=1 �
7pr1$=�(tables%(1,1)):pr2$=�(cbox_type%(box_num%,3))
C�plot_numbers(cbox%(box_num%,1)+8,cbox%(box_num%,2)+100,2,pr1$)
9�pri(cbox%(box_num%,1)+90,cbox%(box_num%,2)+108,mid$)
E�plot_numbers(cbox%(box_num%,1)+230,cbox%(box_num%,2)+100,2,pr2$)
�
�cbox_type%(box_num%,2)=2 �
7pr1$=�(cbox_type%(box_num%,3)):pr2$=�(tables%(1,2))
 C�plot_numbers(cbox%(box_num%,1)+8,cbox%(box_num%,2)+100,2,pr1$)
!9�pri(cbox%(box_num%,1)+90,cbox%(box_num%,2)+108,mid$)
"E�plot_numbers(cbox%(box_num%,1)+230,cbox%(box_num%,2)+100,2,pr2$)
#�
$�
%��sum_three_four(box_num%)
&�connect_box(box_num%,129)
'!digit%=cbox_type%(box_num%,2)
(#factor1%=cbox_type%(box_num%,3)
)#factor2%=cbox_type%(box_num%,4)
*!group%=cbox_type%(box_num%,5)
+.�digit%>-1 � digit%<8:gt$="groupa": � �DHB
,.�digit%>7 � digit%<16:gt$="groupb": � �DIB
-/�digit%>15 � digit%<24:gt$="groupc": � �DJB
. !(scale%+0)=1
/ !(scale%+4)=1
0 !(scale%+8)=1
1 !(scale%+12)=1
2& ș"OS_SpriteOp",&13C,sa1%,gt$,0,0
3? ș"OS_SpriteOp",&134,sa1%,"group"+�(group%),0,0,8,scale%,0
4�factor1%<>0 �
5 � am%=1 � factor1%
6
 �dx%,dy%
7C ș"OS_SpriteOp",&134,sa1%,"digit"+�(digit%),dx%,dy%,8,scale%,0
8 �
9�
:" ș"OS_SpriteOp",&13C,sa1%,0,1
; �V%=1 � 23,17,7,6,8;16;0;
< ș"OS_RemoveCursors"
=x%=cbox%(box_num%,1)
>y%=cbox%(box_num%,2)
? �group%>-1 � group%<8 � �DKB
@ �group%>7 � group%<16 � �DLB
A!�group%>15 � group%<24 � �DMB
B� am%=1 � factor2%
C
� xx%,yy%
D+�plot_sprite(x%+xx%,y%+yy%,1,1,1,1,gt$)
E�
F�3
G�
HF� 18,24,36,24,36,48,18,48,18,0,36,0,54,0,54,24,54,48,0,24,0,0,0,48
IG� 0,0,0,20,0,40,0,60,0,80,0,100,0,120,0,140,0,160,0,180,0,200,0,220
JH� 0,0,26,0,52,0,78,0,104,0,130,0,156,0,182,0,208,0,234,0,260,0,286,0
KP� 162,84,84,84,8,164,238,4,84,4,162,164,238,164,8,4,238,84,8,84,84,164,162,4
LH� 4,8,30,8,56,8,82,8,108,8,134,8,160,8,186,8,210,8,238,8,264,8,290,8
MG� 4,8,4,28,4,48,4,68,4,88,4,108,4,128,4,148,4,168,4,188,4,208,4,228
N��sum_five(box_num%)
O�connect_box(box_num%,128)
P#factor1%=cbox_type%(box_num%,3)
Q#factor2%=cbox_type%(box_num%,4)
R
� �DgB
S�f%=0 � factor1%
T� a$,b$,c$
U�
Vn$=�(factor2%)
W� factor2%=10 n$="q"
X� factor2%=11 n$="s"
Y� factor2%=12 n$="w"
Z�f%=1� � a$
[!�a$,f%,1)="5" � �a$,f%,1)=n$
\�
]�f%=1� � b$
^!�b$,f%,1)="5" � �b$,f%,1)=n$
_�
`�f%=1� � c$
a!�c$,f%,1)="5" � �c$,f%,1)=n$
b�
cB�plot_numbers(cbox%(box_num%,1)+16,cbox%(box_num%,2)+170,5,a$)
dB�plot_numbers(cbox%(box_num%,1)+16,cbox%(box_num%,2)+100,5,b$)
eA�plot_numbers(cbox%(box_num%,1)+16,cbox%(box_num%,2)+30,5,c$)
f�
gK� d,d,d,5,d,d,5+5,d,d,5+5+5,d,d,5+5+5+5,d,d,5+5+5+5+,5,d,5+5+5+5+,5+5,d
hS� 5+5+5+5+,5+5+5,d,5+5+5+5+,5+5+5+5,d,5+5+5+5+,5+5+5+5+,5,5+5+5+5+,5+5+5+5+,5+5
i7� 5+5+5+5+,5+5+5+5+,5+5+5,5+5+5+5+,5+5+5+5+,5+5+5+5
j��sum_six(box_num%)
k�connect_box(box_num%,128)
l#factor1%=cbox_type%(box_num%,3)
mtens%=factor1% � 10
nunits%=factor1% � 10
ox%=cbox%(box_num%,1)
py%=cbox%(box_num%,2)
q	xx%=8
r!�cbox_type%(box_num%,6)>180 �
s�tens%>0 �
t�f%=1 � tens%
u,�plot_sprite(x%+xx%,y%+8,1,1,1,1,"tens")
vxx%=xx%+26
w�
x�
y�units%>0 �
z6�plot_sprite(x%+xx%,y%+8,1,1,1,1,"unit"+�(units%))
{�
|�
}pr$=�(factor1%)
~C�plot_numbers(cbox%(box_num%,1)+88,cbox%(box_num%,2)+100,3,pr$)
�
��
�#� 32,12,48,12,64,12,80,12,96,12
�(� 32,100,48,100,64,100,80,100,96,100
���set_sum_one(box_num%)
�cbox_type%(box_num%,1)=1
�+cbox_type%(box_num%,2)=first_or_second%
��first_or_second%=1 �
�answer%=tables%(1,2)
��
�answer%=tables%(1,1)
��
��
�a%=�(10)
�� a%<>answer% � a%>0
�cbox_type%(box_num%,3)=a%
�cbox_type%(box_num%,4)=0
�"cbox_type%(box_num%,6)=answer%
�cbox_type%(box_num%,7)=0
�cbox_type%(box_num%,8)=12
��
���set_sum_two(box_num%)
�cbox_type%(box_num%,1)=2
�+cbox_type%(box_num%,2)=first_or_second%
��first_or_second%=1 �
�answer%=tables%(1,2)
��
�answer%=tables%(1,1)
��
��
�a%=�(10)
�� a%<>answer% � a%>0
�cbox_type%(box_num%,3)=a%
�cbox_type%(box_num%,4)=�(2)
�"cbox_type%(box_num%,6)=answer%
�cbox_type%(box_num%,7)=0
�cbox_type%(box_num%,8)=12
��
���set_sum_three(box_num%)
�cbox_type%(box_num%,1)=3
�answer%=tables%(1,2)
��
�a%=�(10)
�� a%<>answer% � a%>0
�cbox_type%(box_num%,3)=a%
�'cbox_type%(box_num%,4)=tables%(1,1)
�gr%=�(3)
�gro%=((gr%-1)*8)
�(cbox_type%(box_num%,5)=gro%+(�(8)-1)
�(cbox_type%(box_num%,2)=gro%+(�(8)-1)
�"cbox_type%(box_num%,6)=answer%
�cbox_type%(box_num%,7)=0
�cbox_type%(box_num%,8)=12
��
���set_sum_four(box_num%)
�cbox_type%(box_num%,1)=4
�answer%=tables%(1,2)
��
�a%=�(10)
�� a%<>answer% � a%>0
�'cbox_type%(box_num%,3)=tables%(1,1)
�cbox_type%(box_num%,4)=a%
�gr%=�(3)
�gro%=((gr%-1)*8)
�(cbox_type%(box_num%,5)=gro%+(�(8)-1)
�(cbox_type%(box_num%,2)=gro%+(�(8)-1)
�"cbox_type%(box_num%,6)=answer%
�cbox_type%(box_num%,7)=0
�cbox_type%(box_num%,8)=12
��
���set_sum_five(box_num%)
�cbox_type%(box_num%,1)=5
�answer%=tables%(1,1)
��
�a%=�(10)
�� a%<>answer% � a%>0
�cbox_type%(box_num%,3)=a%
�'cbox_type%(box_num%,4)=tables%(1,2)
�"cbox_type%(box_num%,6)=answer%
�cbox_type%(box_num%,7)=0
�cbox_type%(box_num%,8)=12
��
���set_sum_six(box_num%)
�cbox_type%(box_num%,1)=6
�%answer%=tables%(1,1)*tables%(1,2)
��
�a%=�(20)+(answer%-10)
�� a%<>answer% � a%>0
�cbox_type%(box_num%,3)=a%
�"cbox_type%(box_num%,6)=answer%
�cbox_type%(box_num%,7)=0
�%cbox_type%(box_num%,8)=answer%+10
��
���set_boxes
� cbox%(1,1)=62:cbox%(1,2)=200
� cbox%(2,1)=62:cbox%(2,2)=520
�!cbox%(3,1)=480:cbox%(3,2)=668
�!cbox%(4,1)=898:cbox%(4,2)=520
�!cbox%(5,1)=898:cbox%(5,2)=200
� cbox%(6,1)=480:cbox%(6,2)=44
��
���connect_box(num%,col%)
�%a%=cbox%(num%,1):b%=cbox%(num%,2)
�(� 24,a%;b%;a%+320;b%+248;18,0,131,16
�0� 24,a%+4;b%+4;a%+316;b%+244;18,0,col%,16,26
��
���centre_box
�a%=512:b%=360
�(� 24,a%;b%;a%+256;b%+240;18,0,131,16
�/� 24,a%+4;b%+4;a%+252;b%+236;18,0,128,16,26
��
�?��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$)
�
��pri2(x%,y%,a$)
	:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%

$ș"Font_SetFontColours",0,3,2,-2
�0,0,0,0,0,0,0,0
ș"Font_Paint",,a$,16,x%,y%

ș"Font_LoseFont",han%
�
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
�
��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%
ș"Font_LoseFont",han%
�
ݤ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$
':ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
(Jș"Font_StringWidth",0,string%,600000,480000,-1,80 � r0,r1,r2,f_height
)ș"Font_LoseFont",han%
*=f_height%
+��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$)
0an_xx%=an_x%:an_yy%=an_y%
1�
2��anim(blank$)
3:�plot_sprite_masked(an_xx%,an_yy%,1,1,1,1+vga%,blank$)
4Vș"OS_SpriteOp",&110,sprite_area1%,blank$,0,an_x%,an_y%,an_x%+width%,an_y%+height%
58�plot_sprite_masked(an_x%,an_y%,1,1,1,1,sel_sprite$)
6an_xx%=an_x%:an_yy%=an_y%
7�
8��end_anim(blank$)
9:�plot_sprite_masked(an_xx%,an_yy%,1,1,1,1+vga%,blank$)
:�
;��pri2(x%,y%,a$)
<:ș"Font_FindFont",,"TABLOID.Medium",320,360,0,0 � han%
=$ș"Font_SetFontColours",0,3,2,-2
>�0,0,0,0,0,0,0,0
?ș"Font_Paint",,a$,16,x%,y%
@ș"Font_LoseFont",han%
A�
B��button_press(numbe%)
C�define_buttons(numbe%)
D�:ȗmx%,my%,mc%:�mc%=0
E�msxf%=1�10:ȗmx%,my%,mc%:�
F�bn%=1 � total_but%
G/�but_off(but%(bn%,0),but%(bn%,1),but$(bn%))
H�
Iȗ�
J�
K�check_buttons(an_num%)
L�selected%>0
M�
N��box(bx%,by%,bxx%,byy%)
Obxx%=bx%+bxx%:byy%=by%+byy%
P%�24,bx%;by%;bxx%;byy%;18,0,130,16
Q-�24,bx%+4;by%+4;bxx%-4;byy%-4;18,0,129,16
R0�24,bx%+8;by%+8;bxx%-8;byy%-8;18,0,128,16,26
S/�0,3:� bx%+4,by%:�5,bxx%,by%:�5,bxx%,byy%-4
T2� bx%+4,by%+2:�5,bxx%-2,by%+2:�5,bxx%-2,byy%-4
U7�0,2:� bx%+8,by%+4:�5,bxx%-4,by%+4:�5,bxx%-4,byy%-8
V2� bx%+8,by%+6:�5,bxx%-6,by%+6:�5,bxx%-6,byy%-8
W�
X��box2(bx%,by%,bxx%,byy%)
Ybxx%=bx%+bxx%:byy%=by%+byy%
Z-�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
a�
b7��set_up_count_down(tx%,ty%,digits%,amount%,timer%)
c �box2(tx%,ty%,48*digits%,72)
d!count_down%(timer%)=�+amount%
e�
f)ݤprint_timer(tx%,ty%,digits%,timer%)
g&timer%=(count_down%(timer%)-�)/100
h/�timer%<0 timer%=0000:count_down%(timer%)=0
it$=�(timer%)
j*�plot_numbers(tx%+24,ty%+8,digits%,t$)
k=t$
l%��plot_numbers2(x%,y%,digits%,a$)
m�pn%=1 � �(a$)
n8�plot_sprite((x%-36)+(pn%*36),y%,1,1,1,1,�a$,pn%,1))
o�
p�
q$��plot_numbers(x%,y%,digits%,a$)
r�(a$)<digits% �
s�
t
a$="d"+a$
u��(a$)=digits%
v�
w�pn%=1 � �(a$)
x8�plot_sprite((x%-36)+(pn%*36),y%,1,1,1,1,�a$,pn%,1))
y�
z�
{��set_pos_buttons(bx%,by%)
|�bf%=1� total_but%
}but%(bf%,0)=but%(bf%,0)+bx%
~but%(bf%,1)=but%(bf%,1)+by%
�
��
���define_buttons(set%)
��set%=1:total_but%=1:��tJC
��set%=2:total_but%=4:��tKC
��set%=3:total_but%=2:��tLC
��set%=4:total_but%=2:��tMC
��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
�k� 820,114,200,60,2,value up,820,38,200,60,2,value down,1060,72,200,60,2,Correct,20,72,200,60,2,Next box
�3� 820,430,190,60,2,Left,1044,430,190,60,2,Right
�]� 680,20,200,60,2,Yes,920,20,200,60,2,No,1060,72,200,60,2,Correct,20,72,200,60,2,Next box
���but_off(bx%,by%,text$)
�+�plot_sprite(bx%,by%,1,1,1,1,"button1")
�&left_margin%=(194-(�(text$)*16))/2
��5
�(�0,3:�bx%+left_margin%,by%+42:�text$
��
���but_on(bx%,by%,text$)
�+�plot_sprite(bx%,by%,1,1,1,1,"button2")
�&left_margin%=(194-(�(text$)*16))/2
��5
�(�0,3:�bx%+left_margin%,by%+42:�text$
��
���check_buttons(an_num%)
�selected%=0
��5
��check_mouse(10)
��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))�
��mz%=4 �
�selected%=but_n%
�7�but_on(but%(but_n%,0),but%(but_n%,1),but$(but_n%))
��pause(30)
��:ȗ x%,y%,z%:� z%=0
�8�but_off(but%(but_n%,0),but%(but_n%,1),but$(but_n%))
��
��
� �an_num%>0:�sp_anim(an_num%)
��
��
���sp_anim(an_num%)
��an_num%=1 �
��an_t%+30<� � alter%=1 �
��sections%=1 �
��boa2(1100,764,48,56)
��
�alter%=2
��
��an_t%+50<� �
��sections%=1 �
��boa(1100,764,48,56)
��
�alter%=1
�an_t%=�
��
��
��an_num%=2 �
��sections%=1 �
��boa(1100,764,48,56)
��
�-�sound_t%+100<�:�1,-6,&1000,20:sound_t%=�
��
��
���check_an_num
�	��dOS
�go_an%=0
��can%=1� an_num%
�S�cann%=1�3:�anx%(cann%),any%(cann%),anxx%(cann%),anyy%(cann%),an_type%(cann%):�
��
�O�mx%<anxx%(1) � mx%>anx%(1) � my%<anyy%(1) � my%>any%(1):go_an%=an_type%(1)
�O�mx%<anxx%(2) � mx%>anx%(2) � my%<anyy%(2) � my%>any%(2):go_an%=an_type%(2)
�O�mx%<anxx%(3) � mx%>anx%(3) � my%<anyy%(3) � my%>any%(3):go_an%=an_type%(3)
��go_an%=1 �bounce_ball
��go_an%=2 �sweep
��go_an%>0 �set_new_buttons
��
���palette2
��19,1,24,136,136,136
�,�V%=0 �24,0;960;1278;1022;18,0,131,16,26
��p%,r%,g%,b%
��+4
��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,0,0,175
���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
�last_chosen1%=G%>>8
�last_chosen2%=G% � &F
�repeat_error2%=0
��
�#repeat_error2%=repeat_error2%+1
��find%=1 � number_of%
�repeat_error%=0
��
�!repeat_error%=repeat_error%+1
��
�rnd%=(�(13)-1)
�� firstn%(rnd%)=1 � rnd%>0
�-� 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%>0
�-� rnd_picker2%(rnd%)=0 � repeat_error%=10
�rnd_picker2%(rnd%)=1
rnd_number2%(find%)=rnd%

�
�� rnd_number1%(1)<>rnd_number2%(1) � ((rnd_number1%(1)<>last_chosen1% � rnd_number2%(1)<>last_chosen2%) � repeat_error2%>10)
G%=rnd_number1%(1)<<8
G%=G% � rnd_number2%(1)
�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%)

�
firn%=0
secn%=0
�f%=1�12
�secondn%(f%)=1:secn%+=1
�
�f%=1�12
�firstn%(f%)=1:firn%+=1
�
:�firn%<secn% � first_or_second%=1 � first_or_second%=2
�
��clear_rnd1
�f%=0�12
rnd_picker1%(f%)=0
�
�
��clear_rnd2
�f%=0�12
rnd_picker2%(f%)=0
 �
!�
"&��rotate_numbers(x%,y%,digits%,b$)
#�rline%=1� �(b$)
$rnum%=�(�b$,rline%,1))
%�rnum%>48 � rnum%<58 �
&
rbase%=48
'�
(
�st_pause
)c$=�b$,rline%)
*�c$,rline%,1)=�(rbase%)
+$�plot_numbers2(x%,y%,digits%,c$)
,rbase%=rbase%+1
-�en_pause(8)
.�rbase%=rnum%
/�
0c$=�b$,rline%)
1$�plot_numbers2(x%,y%,digits%,c$)
2�
3�
4%��plot_numbers2(x%,y%,digits%,a$)
5�pn%=1 � �(a$)
68�plot_sprite((x%-38)+(pn%*38),y%,1,1,1,1,�a$,pn%,1))
7�
8�
9$��plot_numbers(x%,y%,digits%,a$)
:�(a$)<digits% �
;�
<
a$="d"+a$
=��(a$)=digits%
>�
?�pn%=1 � �(a$)
@8�plot_sprite((x%-38)+(pn%*38),y%,1,1,1,1,�a$,pn%,1))
A�
B�
C]��move_block(from_screen%,from_x%,from_y%,to_screen%,to_x%,to_y%,bytes_across%,scans_up%)
D�bytes_across% � 4<>0 �
E*A%=from_screen%+�calc(from_x%,from_y%)
F$B%=to_screen%+�calc(to_x%,to_y%)
GC%=bytes_across%
HD%=(scans_up%*(V%+1))-1
I� move_block%
J�
Kݤcalc(x%,y%)
L+top_lines%=0:� vga%=0 top_lines%=320*16
M-=top_lines%+(x%/4)+((956-y%)*80)*(vga%+1)
N��pull_pac_code_var
Omain%=!(m_code2%+&0)
P!set_quicksand%=!(m_code2%+&4)
Qsplodge%=!(m_code2%+&8)
Rscroll_all%=!(m_code2%+&C)
S�
�

00000000  0d 00 00 34 f4 ff 41 44  46 53 3a 3a 48 61 72 64  |...4..ADFS::Hard|
00000010  44 69 73 63 34 2e 24 2e  43 55 52 52 5f 4e 45 57  |Disc4.$.CURR_NEW|
00000020  2e 21 54 61 62 6c 65 73  2e 50 74 31 2e 43 4f 4e  |.!Tables.Pt1.CON|
00000030  4e 45 43 54 0d 00 01 21  c8 9b 20 22 3c 54 61 62  |NECT...!.. "<Tab|
00000040  6c 65 41 24 44 69 72 3e  2e 50 74 31 2e 4c 69 62  |leA$Dir>.Pt1.Lib|
00000050  72 61 72 79 22 0d 00 02  0c 2a 46 58 32 32 35 2c  |rary"....*FX225,|
00000060  31 0d 00 03 0c 2a 46 58  32 32 39 2c 30 0d 00 04  |1....*FX229,0...|
00000070  0d 2a 46 58 32 32 30 2c  31 37 0d 00 05 1c ee 85  |.*FX220,17......|
00000080  3a ff 22 46 58 32 32 39  2c 31 22 3a ee 85 20 87  |:."FX229,1":.. .|
00000090  3a f2 64 74 7c 4d 0d 00  06 12 2a 4b 45 59 31 20  |:.dt|M....*KEY1 |
000000a0  50 52 4f 43 64 74 7c 4d  0d 00 07 15 2a 4b 45 59  |PROCdt|M....*KEY|
000000b0  35 20 50 52 4f 43 73 74  61 74 73 7c 4d 0d 00 08  |5 PROCstats|M...|
000000c0  51 2a 4b 45 59 39 20 4d  4f 55 53 45 52 45 43 54  |Q*KEY9 MOUSERECT|
000000d0  41 4e 47 4c 45 20 30 2c  30 2c 31 32 37 38 2c 39  |ANGLE 0,0,1278,9|
000000e0  36 30 3a 52 45 50 45 41  54 3a 4d 4f 55 53 45 58  |60:REPEAT:MOUSEX|
000000f0  2c 59 2c 5a 3a 50 2e 54  41 42 28 30 2c 30 29 58  |,Y,Z:P.TAB(0,0)X|
00000100  2c 59 3a 55 4e 54 49 4c  20 46 41 4c 53 45 0d 00  |,Y:UNTIL FALSE..|
00000110  09 6d 2a 4b 45 59 33 20  6c 65 6e 67 74 68 24 3d  |.m*KEY3 length$=|
00000120  53 54 52 24 7e 32 36 32  31 34 34 3a 66 72 6f 6d  |STR$~262144:from|
00000130  24 3d 53 54 52 24 7e 62  61 63 6b 5f 64 61 74 61  |$=STR$~back_data|
00000140  25 3a 66 69 6c 65 24 3d  22 62 67 64 61 74 61 32  |%:file$="bgdata2|
00000150  22 3a 4f 53 43 4c 49 22  53 41 56 45 20 22 2b 66  |":OSCLI"SAVE "+f|
00000160  69 6c 65 24 2b 22 20 22  2b 66 72 6f 6d 24 2b 22  |ile$+" "+from$+"|
00000170  20 2b 22 2b 6c 65 6e 67  74 68 24 0d 00 0a 24 de  | +"+length$...$.|
00000180  20 69 6e 70 75 74 5f 64  69 73 6b 5f 6e 61 6d 65  | input_disk_name|
00000190  25 20 32 35 36 2c 6d 6f  75 73 65 25 20 31 36 0d  |% 256,mouse% 16.|
000001a0  00 0b 4a de 20 70 64 72  65 63 74 25 20 31 36 2c  |..J. pdrect% 16,|
000001b0  70 64 72 65 63 74 32 25  20 31 36 2c 70 64 74 72  |pdrect2% 16,pdtr|
000001c0  61 6e 73 25 20 31 36 2c  70 64 70 6c 6f 74 25 20  |ans% 16,pdplot% |
000001d0  38 2c 63 74 72 61 6e 73  25 20 32 35 36 2c 70 61  |8,ctrans% 256,pa|
000001e0  6c 74 61 62 25 20 32 35  36 0d 00 0c 24 de 20 69  |ltab% 256...$. i|
000001f0  6e 70 75 74 25 20 31 36  2c 6f 75 74 70 75 74 25  |nput% 16,output%|
00000200  20 31 36 2c 73 63 61 6c  65 25 20 31 36 0d 00 0d  | 16,scale% 16...|
00000210  19 de 20 62 75 74 25 28  34 30 2c 34 29 2c 62 75  |.. but%(40,4),bu|
00000220  74 24 28 34 30 29 0d 00  0e 04 0d 00 0f 04 0d 00  |t$(40)..........|
00000230  10 04 0d 00 11 04 0d 00  12 11 de 20 61 72 65 61  |........... area|
00000240  25 28 31 30 2c 34 29 0d  00 13 13 de 20 70 6f 69  |%(10,4)..... poi|
00000250  6e 74 73 25 28 32 2c 31  30 29 0d 00 14 11 de 20  |nts%(2,10)..... |
00000260  73 74 72 69 6e 67 25 20  31 32 38 0d 00 15 13 de  |string% 128.....|
00000270  20 74 61 62 6c 65 73 25  28 31 32 2c 35 29 0d 00  | tables%(12,5)..|
00000280  16 19 de 20 74 61 62 6c  65 73 24 28 31 32 29 2c  |... tables$(12),|
00000290  74 61 24 28 31 32 29 0d  00 17 13 de 20 6d 6f 76  |ta$(12)..... mov|
000002a0  5f 74 61 62 25 28 35 2c  35 29 0d 00 18 11 de 20  |_tab%(5,5)..... |
000002b0  66 69 72 73 74 6e 25 28  31 32 29 0d 00 19 12 de  |firstn%(12).....|
000002c0  20 73 65 63 6f 6e 64 6e  25 28 31 32 29 0d 00 1a  | secondn%(12)...|
000002d0  16 de 20 72 6e 64 5f 70  69 63 6b 65 72 31 25 28  |.. rnd_picker1%(|
000002e0  31 32 29 0d 00 1b 16 de  20 72 6e 64 5f 70 69 63  |12)..... rnd_pic|
000002f0  6b 65 72 32 25 28 31 32  29 0d 00 1c 16 de 20 72  |ker2%(12)..... r|
00000300  6e 64 5f 6e 75 6d 62 65  72 31 25 28 31 32 29 0d  |nd_number1%(12).|
00000310  00 1d 16 de 20 72 6e 64  5f 6e 75 6d 62 65 72 32  |.... rnd_number2|
00000320  25 28 31 32 29 0d 00 1e  14 de 20 70 72 65 73 65  |%(12)..... prese|
00000330  6e 74 65 64 25 28 31 32  29 0d 00 1f 13 de 20 78  |nted%(12)..... x|
00000340  5f 61 6e 73 77 65 72 25  28 31 32 29 0d 00 20 14  |_answer%(12).. .|
00000350  de 20 63 6f 75 6e 74 5f  64 6f 77 6e 25 28 36 29  |. count_down%(6)|
00000360  0d 00 21 17 de 20 65 6e  74 72 79 5f 61 72 65 61  |..!.. entry_area|
00000370  73 25 28 35 2c 34 29 0d  00 22 0f de 20 64 73 25  |s%(5,4)..".. ds%|
00000380  28 33 32 2c 32 29 0d 00  23 11 de 20 63 6f 72 72  |(32,2)..#.. corr|
00000390  25 28 33 30 2c 33 29 0d  00 24 0f de 20 73 63 61  |%(30,3)..$.. sca|
000003a0  6c 65 25 20 31 36 0d 00  25 0f de 20 69 6e 70 75  |le% 16..%.. inpu|
000003b0  74 25 20 31 36 0d 00 26  10 de 20 6f 75 74 70 75  |t% 16..&.. outpu|
000003c0  74 25 20 31 36 0d 00 27  10 de 20 63 62 6f 78 25  |t% 16..'.. cbox%|
000003d0  28 37 2c 32 29 0d 00 28  15 de 20 63 62 6f 78 5f  |(7,2)..(.. cbox_|
000003e0  74 79 70 65 25 28 36 2c  38 29 0d 00 29 0e de 20  |type%(6,8)..).. |
000003f0  74 65 6d 70 25 28 36 29  0d 00 2a 12 de 20 70 69  |temp%(6)..*.. pi|
00000400  70 65 73 25 28 32 30 2c  32 29 0d 00 2b 0f de 20  |pes%(20,2)..+.. |
00000410  6c 61 74 63 68 25 28 38  29 0d 00 2c 0b 76 67 61  |latch%(8)..,.vga|
00000420  25 3d 56 25 0d 00 2d 13  f2 70 75 6c 6c 5f 76 61  |%=V%..-..pull_va|
00000430  72 69 61 62 6c 65 73 0d  00 2e 1b f2 69 6e 69 74  |riables.....init|
00000440  69 61 6c 69 73 65 5f 73  70 72 69 74 65 5f 61 72  |ialise_sprite_ar|
00000450  65 61 0d 00 2f 15 61 64  64 72 73 24 3d c3 7e 6d  |ea../.addrs$=.~m|
00000460  5f 63 6f 64 65 31 25 0d  00 30 2c ff 22 4c 4f 41  |_code1%..0,."LOA|
00000470  44 20 3c 54 61 62 6c 65  41 24 44 69 72 3e 2e 70  |D <TableA$Dir>.p|
00000480  74 31 2e 47 65 6e 43 6f  64 65 20 22 2b 61 64 64  |t1.GenCode "+add|
00000490  72 73 24 0d 00 31 11 f2  66 69 6e 64 5f 73 63 72  |rs$..1..find_scr|
000004a0  65 65 6e 73 0d 00 32 16  f2 70 75 6c 6c 5f 67 65  |eens..2..pull_ge|
000004b0  6e 5f 63 6f 64 65 5f 76  61 72 0d 00 33 16 f2 70  |n_code_var..3..p|
000004c0  75 6c 6c 5f 70 61 63 5f  63 6f 64 65 5f 76 61 72  |ull_pac_code_var|
000004d0  0d 00 34 16 73 61 31 25  3d 73 70 72 69 74 65 5f  |..4.sa1%=sprite_|
000004e0  61 72 65 61 31 25 0d 00  35 11 6e 75 6d 62 65 72  |area1%..5.number|
000004f0  5f 6f 66 25 3d 31 30 0d  00 36 0f 74 69 6d 65 72  |_of%=10..6.timer|
00000500  5f 6f 6e 25 3d 31 0d 00  37 0c 73 74 79 6c 65 25  |_on%=1..7.style%|
00000510  3d 31 0d 00 38 0c 6f 72  64 65 72 25 3d 32 0d 00  |=1..8.order%=2..|
00000520  39 08 c8 a0 20 31 0d 00  3a 0d f2 70 61 6c 65 74  |9... 1..:..palet|
00000530  74 65 32 0d 00 3b 12 ef  31 39 2c 31 2c 32 34 2c  |te2..;..19,1,24,|
00000540  30 2c 30 2c 30 0d 00 3c  0f 74 65 78 74 5f 63 6f  |0,0,0..<.text_co|
00000550  6c 25 3d 33 0d 00 3d 0b  e7 51 25 3d 35 20 8c 0d  |l%=3..=..Q%=5 ..|
00000560  00 3e 11 f2 6d 61 69 6e  5f 63 6f 6e 6e 65 63 74  |.>..main_connect|
00000570  0d 00 3f 14 f2 74 73 63  6f 72 65 28 35 31 32 2c  |..?..tscore(512,|
00000580  33 34 38 29 0d 00 40 17  f2 73 70 61 63 65 28 39  |348)..@..space(9|
00000590  32 30 2c 32 34 30 2c 30  2c 30 29 0d 00 41 08 51  |20,240,0,0)..A.Q|
000005a0  25 3d 36 0d 00 42 05 cd  0d 00 43 22 e7 51 25 3d  |%=6..B....C".Q%=|
000005b0  36 20 d7 22 3c 54 61 62  6c 65 41 24 44 69 72 3e  |6 ."<TableA$Dir>|
000005c0  2e 50 74 31 2e 4c 69 6e  6b 22 0d 00 44 0c e7 51  |.Pt1.Link"..D..Q|
000005d0  25 3d 32 31 20 8c 0d 00  45 11 f2 6d 61 69 6e 5f  |%=21 ...E..main_|
000005e0  63 6f 6e 6e 65 63 74 0d  00 46 14 f2 74 73 63 6f  |connect..F..tsco|
000005f0  72 65 28 35 31 32 2c 33  34 38 29 0d 00 47 17 f2  |re(512,348)..G..|
00000600  73 70 61 63 65 28 39 32  30 2c 32 34 30 2c 30 2c  |space(920,240,0,|
00000610  30 29 0d 00 48 09 51 25  3d 32 32 0d 00 49 05 cd  |0)..H.Q%=22..I..|
00000620  0d 00 4a 0d e7 20 51 25  3d 32 32 20 8c 0d 00 4b  |..J.. Q%=22 ...K|
00000630  0f f2 67 75 65 73 73 5f  64 6f 6f 72 0d 00 4c 05  |..guess_door..L.|
00000640  cd 0d 00 4d 24 e7 20 51  25 3d 32 33 20 d7 22 3c  |...M$. Q%=23 ."<|
00000650  54 61 62 6c 65 41 24 44  69 72 3e 2e 50 74 31 2e  |TableA$Dir>.Pt1.|
00000660  4c 69 6e 6b 22 0d 00 4e  24 e7 20 51 25 3d 33 30  |Link"..N$. Q%=30|
00000670  20 d7 22 3c 54 61 62 6c  65 41 24 44 69 72 3e 2e  | ."<TableA$Dir>.|
00000680  50 74 31 2e 4c 69 6e 6b  22 0d 00 4f 0e e7 20 51  |Pt1.Link"..O.. Q|
00000690  25 3d 32 30 34 20 8c 0d  00 50 11 f2 6d 61 69 6e  |%=204 ...P..main|
000006a0  5f 63 6f 6e 6e 65 63 74  0d 00 51 14 f2 74 73 63  |_connect..Q..tsc|
000006b0  6f 72 65 28 35 31 32 2c  33 34 38 29 0d 00 52 17  |ore(512,348)..R.|
000006c0  f2 73 70 61 63 65 28 39  32 30 2c 32 34 30 2c 30  |.space(920,240,0|
000006d0  2c 30 29 0d 00 53 0e e7  20 53 25 3d 31 20 f2 64  |,0)..S.. S%=1 .d|
000006e0  74 0d 00 54 1c d7 22 3c  54 61 62 6c 65 41 24 44  |t..T.."<TableA$D|
000006f0  69 72 3e 2e 50 74 31 2e  4c 69 6e 6b 22 0d 00 55  |ir>.Pt1.Link"..U|
00000700  05 cd 0d 00 56 05 fa 0d  00 57 0e dd f2 63 6c 65  |....V....W...cle|
00000710  61 72 5f 75 70 0d 00 58  37 ef 32 34 2c 38 31 33  |ar_up..X7.24,813|
00000720  3b 30 3b 31 32 37 38 3b  31 38 36 3b 31 38 2c 30  |;0;1278;186;18,0|
00000730  2c 31 32 38 2c 31 36 2c  32 34 2c 30 3b 30 3b 33  |,128,16,24,0;0;3|
00000740  35 37 3b 31 38 36 3b 31  36 2c 32 36 0d 00 59 05  |57;186;16,26..Y.|
00000750  e1 0d 00 5a 10 dd f2 67  75 65 73 73 5f 64 6f 6f  |...Z...guess_doo|
00000760  72 0d 00 5b 1d f2 6c 6f  61 64 5f 73 70 72 69 74  |r..[..load_sprit|
00000770  65 73 28 22 63 61 70 74  6c 69 6e 6b 22 29 0d 00  |es("captlink")..|
00000780  5c 1d f2 6d 65 72 67 65  5f 73 70 72 69 74 65 73  |\..merge_sprites|
00000790  28 22 62 75 74 74 6f 6e  73 22 29 0d 00 5d 0c 2a  |("buttons")..].*|
000007a0  46 58 31 31 32 2c 32 0d  00 5e 23 ef 32 34 2c 30  |FX112,2..^#.24,0|
000007b0  3b 30 3b 31 32 37 38 3b  39 35 38 3b 31 38 2c 30  |;0;1278;958;18,0|
000007c0  2c 31 33 31 2c 31 36 2c  32 36 0d 00 5f 2c e7 56  |,131,16,26.._,.V|
000007d0  25 3d 30 20 ef 32 34 2c  30 3b 39 36 30 3b 31 32  |%=0 .24,0;960;12|
000007e0  37 38 3b 31 30 32 32 3b  31 38 2c 30 2c 31 33 31  |78;1022;18,0,131|
000007f0  2c 31 36 2c 32 36 0d 00  60 10 66 61 64 65 24 3d  |,16,26..`.fade$=|
00000800  22 66 61 64 65 22 0d 00  61 18 f2 66 61 64 65 28  |"fade"..a..fade(|
00000810  30 2c 39 36 30 2c 34 2c  30 2c 31 2c 31 29 0d 00  |0,960,4,0,1,1)..|
00000820  62 0c 2a 66 78 31 31 32  2c 31 0d 00 63 2c e7 56  |b.*fx112,1..c,.V|
00000830  25 3d 30 20 ef 32 34 2c  30 3b 39 36 30 3b 31 32  |%=0 .24,0;960;12|
00000840  37 38 3b 31 30 32 32 3b  31 38 2c 30 2c 31 33 31  |78;1022;18,0,131|
00000850  2c 31 36 2c 32 36 0d 00  64 55 f2 74 65 78 74 5f  |,16,26..dU.text_|
00000860  62 6f 78 28 38 30 30 2c  35 36 30 2c 34 34 30 2c  |box(800,560,440,|
00000870  32 35 30 2c 32 2c 22 4f  75 74 73 69 64 65 20 74  |250,2,"Outside t|
00000880  68 65 20 64 6f 6f 72 22  2c 22 61 72 65 20 74 77  |he door","are tw|
00000890  6f 20 63 6f 72 72 69 64  6f 72 73 2e 22 2c 22 57  |o corridors.","W|
000008a0  68 69 63 68 20 77 61 79  3f 22 29 0d 00 65 11 78  |hich way?")..e.x|
000008b0  78 25 3d 36 34 3a 79 79  25 3d 38 38 0d 00 66 30  |x%=64:yy%=88..f0|
000008c0  f2 70 6c 6f 74 5f 73 70  72 69 74 65 5f 62 61 63  |.plot_sprite_bac|
000008d0  6b 28 78 78 25 2c 79 79  25 2c 31 2c 31 2c 31 2c  |k(xx%,yy%,1,1,1,|
000008e0  31 2c 22 73 63 72 65 65  6e 36 22 29 0d 00 67 2f  |1,"screen6")..g/|
000008f0  42 25 3d 73 63 72 65 65  6e 5f 6f 6e 65 25 3a 43  |B%=screen_one%:C|
00000900  25 3d 73 63 72 65 65 6e  5f 74 77 6f 25 3a d6 73  |%=screen_two%:.s|
00000910  61 76 65 5f 73 63 72 65  65 6e 25 0d 00 68 14 f2  |ave_screen%..h..|
00000920  62 75 74 74 6f 6e 5f 70  72 65 73 73 28 33 29 0d  |button_press(3).|
00000930  00 69 0c 2a 66 78 31 31  32 2c 32 0d 00 6a 0b 66  |.i.*fx112,2..j.f|
00000940  61 69 6c 25 3d 30 0d 00  6b 18 ef 32 34 2c 31 36  |ail%=0..k..24,16|
00000950  39 3b 32 35 35 3b 36 38  38 3b 38 30 30 3b 0d 00  |9;255;688;800;..|
00000960  6c 1a e7 20 4c 25 3d 31  20 80 20 73 65 6c 65 63  |l.. L%=1 . selec|
00000970  74 65 64 25 3d 31 20 8c  0d 00 6d 1f f2 63 61 63  |ted%=1 ...m..cac|
00000980  68 65 73 6f 75 6e 64 28  22 61 6c 69 65 6e 73 6e  |hesound("aliensn|
00000990  65 61 72 22 2c 31 29 0d  00 6e 13 e3 66 25 3d 30  |ear",1)..n..f%=0|
000009a0  20 b8 20 31 37 30 20 88  20 38 0d 00 6f 0d f2 73  | . 170 . 8..o..s|
000009b0  74 5f 70 61 75 73 65 0d  00 70 10 d4 20 31 2c 26  |t_pause..p.. 1,&|
000009c0  31 37 46 2c 31 2c 31 0d  00 71 2b f2 70 6c 6f 74  |17F,1,1..q+.plot|
000009d0  5f 73 70 72 69 74 65 28  78 78 25 2c 79 79 25 2c  |_sprite(xx%,yy%,|
000009e0  31 2c 31 2c 31 2c 31 2c  22 73 63 72 65 65 6e 36  |1,1,1,1,"screen6|
000009f0  22 29 0d 00 72 30 f2 70  6c 6f 74 5f 73 70 72 69  |")..r0.plot_spri|
00000a00  74 65 5f 6d 61 73 6b 65  64 28 66 25 2c 32 35 35  |te_masked(f%,255|
00000a10  2c 31 2c 31 2c 31 2c 31  2c 22 74 61 62 6c 65 38  |,1,1,1,1,"table8|
00000a20  22 29 0d 00 73 2f 43 25  3d 73 63 72 65 65 6e 5f  |")..s/C%=screen_|
00000a30  6f 6e 65 25 3a 42 25 3d  73 63 72 65 65 6e 5f 74  |one%:B%=screen_t|
00000a40  77 6f 25 3a d6 73 61 76  65 5f 73 63 72 65 65 6e  |wo%:.save_screen|
00000a50  25 0d 00 74 11 f2 65 6e  5f 70 61 75 73 65 28 31  |%..t..en_pause(1|
00000a60  30 29 0d 00 75 05 ed 0d  00 76 0c 2a 66 78 31 31  |0)..u....v.*fx11|
00000a70  32 2c 31 0d 00 77 25 ef  32 34 2c 37 38 30 3b 30  |2,1..w%.24,780;0|
00000a80  3b 31 32 37 38 3b 39 35  36 3b 31 38 2c 30 2c 31  |;1278;956;18,0,1|
00000a90  33 31 2c 31 36 2c 32 36  0d 00 78 54 f2 74 65 78  |31,16,26..xT.tex|
00000aa0  74 5f 62 6f 78 28 38 30  30 2c 35 36 30 2c 34 34  |t_box(800,560,44|
00000ab0  30 2c 32 35 30 2c 32 2c  22 4f 68 20 64 65 61 72  |0,250,2,"Oh dear|
00000ac0  21 20 20 59 6f 75 20 68  61 76 65 22 2c 22 77 61  |!  You have","wa|
00000ad0  6c 6b 65 64 20 69 6e 74  6f 20 61 22 2c 22 54 61  |lked into a","Ta|
00000ae0  62 6c 65 20 41 6c 69 65  6e 2e 22 29 0d 00 79 16  |ble Alien.")..y.|
00000af0  f2 73 70 61 63 65 28 39  30 30 2c 38 30 2c 30 2c  |.space(900,80,0,|
00000b00  30 29 0d 00 7a 51 f2 74  65 78 74 5f 62 6f 78 28  |0)..zQ.text_box(|
00000b10  38 30 30 2c 32 38 30 2c  34 34 30 2c 32 35 30 2c  |800,280,440,250,|
00000b20  32 2c 22 59 6f 75 20 77  69 6c 6c 20 62 65 20 6c  |2,"You will be l|
00000b30  6f 63 6b 65 64 22 2c 22  69 6e 20 61 20 76 65 72  |ocked","in a ver|
00000b40  79 20 75 6e 75 73 75 61  6c 22 2c 22 72 6f 6f 6d  |y unusual","room|
00000b50  2e 22 29 0d 00 7b 16 f2  73 70 61 63 65 28 39 30  |.")..{..space(90|
00000b60  30 2c 38 30 2c 30 2c 30  29 0d 00 7c 0b 66 61 69  |0,80,0,0)..|.fai|
00000b70  6c 25 3d 31 0d 00 7d 09  51 25 3d 33 30 0d 00 7e  |l%=1..}.Q%=30..~|
00000b80  05 cd 0d 00 7f 1a e7 20  4c 25 3d 32 20 80 20 73  |....... L%=2 . s|
00000b90  65 6c 65 63 74 65 64 25  3d 32 20 8c 0d 00 80 2f  |elected%=2 ..../|
00000ba0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000bb0  26 31 32 46 2c 73 70 72  69 74 65 5f 61 72 65 61  |&12F,sprite_area|
00000bc0  31 25 2c 22 74 61 62 6c  65 38 22 0d 00 81 1f f2  |1%,"table8".....|
00000bd0  63 61 63 68 65 73 6f 75  6e 64 28 22 61 6c 69 65  |cachesound("alie|
00000be0  6e 73 6e 65 61 72 22 2c  31 29 0d 00 82 16 e3 66  |nsnear",1).....f|
00000bf0  25 3d 36 38 38 20 b8 20  35 32 38 20 88 20 2d 38  |%=688 . 528 . -8|
00000c00  0d 00 83 0d f2 73 74 5f  70 61 75 73 65 0d 00 84  |.....st_pause...|
00000c10  10 d4 20 31 2c 26 31 37  46 2c 31 2c 31 0d 00 85  |.. 1,&17F,1,1...|
00000c20  2b f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 78 78  |+.plot_sprite(xx|
00000c30  25 2c 79 79 25 2c 31 2c  31 2c 31 2c 31 2c 22 73  |%,yy%,1,1,1,1,"s|
00000c40  63 72 65 65 6e 36 22 29  0d 00 86 30 f2 70 6c 6f  |creen6")...0.plo|
00000c50  74 5f 73 70 72 69 74 65  5f 6d 61 73 6b 65 64 28  |t_sprite_masked(|
00000c60  66 25 2c 32 35 35 2c 31  2c 31 2c 31 2c 31 2c 22  |f%,255,1,1,1,1,"|
00000c70  74 61 62 6c 65 38 22 29  0d 00 87 2f 43 25 3d 73  |table8").../C%=s|
00000c80  63 72 65 65 6e 5f 6f 6e  65 25 3a 42 25 3d 73 63  |creen_one%:B%=sc|
00000c90  72 65 65 6e 5f 74 77 6f  25 3a d6 73 61 76 65 5f  |reen_two%:.save_|
00000ca0  73 63 72 65 65 6e 25 0d  00 88 11 f2 65 6e 5f 70  |screen%.....en_p|
00000cb0  61 75 73 65 28 31 30 29  0d 00 89 05 ed 0d 00 8a  |ause(10)........|
00000cc0  0c 2a 66 78 31 31 32 2c  31 0d 00 8b 25 ef 32 34  |.*fx112,1...%.24|
00000cd0  2c 37 38 30 3b 30 3b 31  32 37 38 3b 39 35 36 3b  |,780;0;1278;956;|
00000ce0  31 38 2c 30 2c 31 33 31  2c 31 36 2c 32 36 0d 00  |18,0,131,16,26..|
00000cf0  8c 54 f2 74 65 78 74 5f  62 6f 78 28 38 30 30 2c  |.T.text_box(800,|
00000d00  35 36 30 2c 34 34 30 2c  32 35 30 2c 32 2c 22 4f  |560,440,250,2,"O|
00000d10  68 20 64 65 61 72 21 20  20 59 6f 75 20 68 61 76  |h dear!  You hav|
00000d20  65 22 2c 22 77 61 6c 6b  65 64 20 69 6e 74 6f 20  |e","walked into |
00000d30  61 22 2c 22 54 61 62 6c  65 20 41 6c 69 65 6e 2e  |a","Table Alien.|
00000d40  22 29 0d 00 8d 16 f2 73  70 61 63 65 28 39 30 30  |").....space(900|
00000d50  2c 38 30 2c 30 2c 30 29  0d 00 8e 51 f2 74 65 78  |,80,0,0)...Q.tex|
00000d60  74 5f 62 6f 78 28 38 30  30 2c 32 38 30 2c 34 34  |t_box(800,280,44|
00000d70  30 2c 32 35 30 2c 32 2c  22 59 6f 75 20 77 69 6c  |0,250,2,"You wil|
00000d80  6c 20 62 65 20 6c 6f 63  6b 65 64 22 2c 22 69 6e  |l be locked","in|
00000d90  20 61 20 76 65 72 79 20  75 6e 75 73 75 61 6c 22  | a very unusual"|
00000da0  2c 22 72 6f 6f 6d 2e 22  29 0d 00 8f 16 f2 73 70  |,"room.").....sp|
00000db0  61 63 65 28 39 30 30 2c  38 30 2c 30 2c 30 29 0d  |ace(900,80,0,0).|
00000dc0  00 90 0b 66 61 69 6c 25  3d 31 0d 00 91 09 51 25  |...fail%=1....Q%|
00000dd0  3d 33 30 0d 00 92 05 cd  0d 00 93 24 e7 20 4c 25  |=30........$. L%|
00000de0  3d 32 20 80 20 73 65 6c  65 63 74 65 64 25 3d 31  |=2 . selected%=1|
00000df0  20 80 20 66 61 69 6c 25  3d 30 20 8c 0d 00 94 0c  | . fail%=0 .....|
00000e00  2a 66 78 31 31 32 2c 31  0d 00 95 25 ef 32 34 2c  |*fx112,1...%.24,|
00000e10  37 38 30 3b 30 3b 31 32  37 38 3b 39 35 36 3b 31  |780;0;1278;956;1|
00000e20  38 2c 30 2c 31 33 31 2c  31 36 2c 32 36 0d 00 96  |8,0,131,16,26...|
00000e30  1e f2 63 61 63 68 65 73  6f 75 6e 64 28 22 69 6e  |..cachesound("in|
00000e40  76 61 64 69 6e 67 32 22  2c 31 29 0d 00 97 10 d4  |vading2",1).....|
00000e50  20 31 2c 26 31 37 46 2c  31 2c 31 0d 00 98 43 f2  | 1,&17F,1,1...C.|
00000e60  74 65 78 74 5f 62 6f 78  28 38 30 30 2c 35 36 30  |text_box(800,560|
00000e70  2c 34 34 30 2c 31 37 30  2c 32 2c 22 59 6f 75 20  |,440,170,2,"You |
00000e80  74 61 6b 65 20 74 68 65  22 2c 22 6c 65 66 74 20  |take the","left |
00000e90  63 6f 72 72 69 64 6f 72  2e 22 2c 22 22 29 0d 00  |corridor.","")..|
00000ea0  99 16 f2 73 70 61 63 65  28 39 30 30 2c 38 30 2c  |...space(900,80,|
00000eb0  30 2c 30 29 0d 00 9a 09  51 25 3d 32 33 0d 00 9b  |0,0)....Q%=23...|
00000ec0  05 cd 0d 00 9c 24 e7 20  4c 25 3d 31 20 80 20 73  |.....$. L%=1 . s|
00000ed0  65 6c 65 63 74 65 64 25  3d 32 20 80 20 66 61 69  |elected%=2 . fai|
00000ee0  6c 25 3d 30 20 8c 0d 00  9d 0c 2a 66 78 31 31 32  |l%=0 .....*fx112|
00000ef0  2c 31 0d 00 9e 25 ef 32  34 2c 37 38 30 3b 30 3b  |,1...%.24,780;0;|
00000f00  31 32 37 38 3b 39 35 36  3b 31 38 2c 30 2c 31 33  |1278;956;18,0,13|
00000f10  31 2c 31 36 2c 32 36 0d  00 9f 1e f2 63 61 63 68  |1,16,26.....cach|
00000f20  65 73 6f 75 6e 64 28 22  69 6e 76 61 64 69 6e 67  |esound("invading|
00000f30  32 22 2c 31 29 0d 00 a0  10 d4 20 31 2c 26 31 37  |2",1)..... 1,&17|
00000f40  46 2c 31 2c 31 0d 00 a1  44 f2 74 65 78 74 5f 62  |F,1,1...D.text_b|
00000f50  6f 78 28 38 30 30 2c 35  36 30 2c 34 34 30 2c 31  |ox(800,560,440,1|
00000f60  37 30 2c 32 2c 22 59 6f  75 20 74 61 6b 65 20 74  |70,2,"You take t|
00000f70  68 65 22 2c 22 72 69 67  68 74 20 63 6f 72 72 69  |he","right corri|
00000f80  64 6f 72 2e 22 2c 22 22  29 0d 00 a2 16 f2 73 70  |dor.","").....sp|
00000f90  61 63 65 28 39 30 30 2c  38 30 2c 30 2c 30 29 0d  |ace(900,80,0,0).|
00000fa0  00 a3 09 51 25 3d 32 33  0d 00 a4 05 cd 0d 00 a5  |...Q%=23........|
00000fb0  05 e1 0d 00 a6 0b dd f2  62 61 63 6b 67 0d 00 a7  |........backg...|
00000fc0  16 e3 66 25 3d 30 20 b8  20 31 32 38 30 20 88 20  |..f%=0 . 1280 . |
00000fd0  31 39 32 0d 00 a8 1a e3  66 66 25 3d 30 20 b8 20  |192.....ff%=0 . |
00000fe0  39 36 30 2d 31 39 32 20  88 20 31 39 32 0d 00 a9  |960-192 . 192...|
00000ff0  27 f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 66 25  |'.plot_sprite(f%|
00001000  2c 66 66 25 2c 31 2c 31  2c 31 2c 31 2c 22 62 61  |,ff%,1,1,1,1,"ba|
00001010  63 6b 22 29 0d 00 aa 05  ed 0d 00 ab 05 ed 0d 00  |ck")............|
00001020  ac 05 e1 0d 00 ad 12 dd  f2 6d 61 69 6e 5f 63 6f  |.........main_co|
00001030  6e 6e 65 63 74 0d 00 ae  16 74 6f 74 61 6c 5f 70  |nnect....total_p|
00001040  6f 73 73 69 62 6c 65 25  3d 32 30 0d 00 af 29 74  |ossible%=20...)t|
00001050  6f 74 61 6c 5f 67 6f 74  25 3d 32 30 3a 74 6f 74  |otal_got%=20:tot|
00001060  61 6c 5f 67 6f 74 5f 66  70 3d 74 6f 74 61 6c 5f  |al_got_fp=total_|
00001070  67 6f 74 25 0d 00 b0 08  c8 a0 20 32 0d 00 b1 18  |got%...... 2....|
00001080  f2 6c 6f 61 64 5f 73 70  72 69 74 65 73 28 22 63  |.load_sprites("c|
00001090  6f 6e 22 29 0d 00 b2 1d  f2 6d 65 72 67 65 5f 73  |on").....merge_s|
000010a0  70 72 69 74 65 73 28 22  6e 75 6d 62 65 72 73 22  |prites("numbers"|
000010b0  29 0d 00 b3 1d f2 6d 65  72 67 65 5f 73 70 72 69  |).....merge_spri|
000010c0  74 65 73 28 22 62 75 74  74 6f 6e 73 22 29 0d 00  |tes("buttons")..|
000010d0  b4 12 f2 73 65 74 5f 74  61 62 6c 65 5f 6f 6e 65  |...set_table_one|
000010e0  0d 00 b5 0c 2a 46 58 31  31 32 2c 32 0d 00 b6 0a  |....*FX112,2....|
000010f0  fb 31 32 38 3a db 0d 00  b7 2c e7 56 25 3d 30 20  |.128:....,.V%=0 |
00001100  ef 32 34 2c 30 3b 39 36  30 3b 31 32 37 38 3b 31  |.24,0;960;1278;1|
00001110  30 32 32 3b 31 38 2c 30  2c 31 33 31 2c 31 36 2c  |022;18,0,131,16,|
00001120  32 36 0d 00 b8 0a f2 62  61 63 6b 67 0d 00 b9 10  |26.....backg....|
00001130  66 61 64 65 24 3d 22 66  61 64 65 22 0d 00 ba 18  |fade$="fade"....|
00001140  f2 66 61 64 65 28 30 2c  39 36 30 2c 34 2c 30 2c  |.fade(0,960,4,0,|
00001150  31 2c 31 29 0d 00 bb 0c  2a 46 58 31 31 32 2c 31  |1,1)....*FX112,1|
00001160  0d 00 bc 2c e7 56 25 3d  30 20 ef 32 34 2c 30 3b  |...,.V%=0 .24,0;|
00001170  39 36 30 3b 31 32 37 38  3b 31 30 32 32 3b 31 38  |960;1278;1022;18|
00001180  2c 30 2c 31 33 31 2c 31  36 2c 32 36 0d 00 bd 0a  |,0,131,16,26....|
00001190  f2 62 61 63 6b 67 0d 00  be 0c 2a 66 78 31 31 32  |.backg....*fx112|
000011a0  2c 31 0d 00 bf 0b e7 51  25 3d 35 20 8c 0d 00 c0  |,1.....Q%=5 ....|
000011b0  74 f2 74 65 78 74 5f 62  6f 78 28 36 30 2c 36 39  |t.text_box(60,69|
000011c0  32 2c 38 30 30 2c 32 35  30 2c 32 2c 22 41 73 20  |2,800,250,2,"As |
000011d0  61 20 6d 65 6d 62 65 72  20 6f 66 20 74 68 65 20  |a member of the |
000011e0  53 70 65 63 69 61 6c 20  47 72 6f 75 70 22 2c 22  |Special Group","|
000011f0  79 6f 75 20 6d 75 73 74  20 6b 6e 6f 77 20 77 68  |you must know wh|
00001200  61 74 20 74 6f 20 64 6f  20 69 66 20 79 6f 75 22  |at to do if you"|
00001210  2c 22 61 72 65 20 63 61  70 74 75 72 65 64 2e 22  |,"are captured."|
00001220  29 0d 00 c1 28 f2 70 6c  6f 74 5f 73 70 72 69 74  |)...(.plot_sprit|
00001230  65 28 39 35 30 2c 37 30  30 2c 31 2c 31 2c 31 2c  |e(950,700,1,1,1,|
00001240  31 2c 22 6d 61 6e 37 22  29 0d 00 c2 16 f2 73 70  |1,"man7").....sp|
00001250  61 63 65 28 39 30 30 2c  32 30 2c 30 2c 30 29 0d  |ace(900,20,0,0).|
00001260  00 c3 62 f2 74 65 78 74  5f 62 6f 78 28 36 30 2c  |..b.text_box(60,|
00001270  34 37 30 2c 38 30 30 2c  31 38 30 2c 32 2c 22 49  |470,800,180,2,"I|
00001280  6e 73 69 64 65 20 74 68  65 20 54 61 62 6c 65 20  |nside the Table |
00001290  41 6c 69 65 6e 73 20 63  72 61 66 74 22 2c 22 74  |Aliens craft","t|
000012a0  68 65 72 65 20 61 72 65  20 73 70 65 63 69 61 6c  |here are special|
000012b0  20 63 6f 64 65 20 6c 6f  63 6b 73 2e 22 2c 22 22  | code locks.",""|
000012c0  29 0d 00 c4 29 f2 70 6c  6f 74 5f 73 70 72 69 74  |)...).plot_sprit|
000012d0  65 28 38 39 30 2c 34 32  30 2c 31 2c 31 2c 31 2c  |e(890,420,1,1,1,|
000012e0  31 2c 22 63 72 61 66 74  22 29 0d 00 c5 16 f2 73  |1,"craft").....s|
000012f0  70 61 63 65 28 39 30 30  2c 32 30 2c 30 2c 30 29  |pace(900,20,0,0)|
00001300  0d 00 c6 05 cd 0d 00 c7  0c e7 51 25 3d 32 31 20  |..........Q%=21 |
00001310  8c 0d 00 c8 37 f2 74 65  78 74 5f 62 6f 78 28 33  |....7.text_box(3|
00001320  30 30 2c 34 30 30 2c 36  38 30 2c 39 30 2c 32 2c  |00,400,680,90,2,|
00001330  22 43 61 6e 20 79 6f 75  20 65 73 63 61 70 65 3f  |"Can you escape?|
00001340  22 2c 22 22 2c 22 22 29  0d 00 c9 16 f2 73 70 61  |","","").....spa|
00001350  63 65 28 39 30 30 2c 32  30 2c 30 2c 30 29 0d 00  |ce(900,20,0,0)..|
00001360  ca 05 cd 0d 00 cb 0f f2  63 65 6e 74 72 65 5f 62  |........centre_b|
00001370  6f 78 0d 00 cc 0c 2a 46  58 31 31 32 2c 32 0d 00  |ox....*FX112,2..|
00001380  cd 0a fb 31 32 38 3a db  0d 00 ce 2c e7 56 25 3d  |...128:....,.V%=|
00001390  30 20 ef 32 34 2c 30 3b  39 36 30 3b 31 32 37 38  |0 .24,0;960;1278|
000013a0  3b 31 30 32 32 3b 31 38  2c 30 2c 31 33 31 2c 31  |;1022;18,0,131,1|
000013b0  36 2c 32 36 0d 00 cf 0a  f2 62 61 63 6b 67 0d 00  |6,26.....backg..|
000013c0  d0 0e f2 73 65 74 5f 62  6f 78 65 73 0d 00 d1 14  |...set_boxes....|
000013d0  f2 73 65 74 5f 62 6f 78  5f 63 6f 6e 74 65 6e 74  |.set_box_content|
000013e0  0d 00 d2 0d e3 66 25 3d  31 20 b8 20 36 0d 00 d3  |.....f%=1 . 6...|
000013f0  19 f2 63 61 63 68 65 73  6f 75 6e 64 28 22 70 6c  |..cachesound("pl|
00001400  6f 70 22 2c 31 29 0d 00  d4 10 d4 20 31 2c 26 31  |op",1)..... 1,&1|
00001410  37 46 2c 31 2c 31 0d 00  d5 12 78 25 3d 63 62 6f  |7F,1,1....x%=cbo|
00001420  78 25 28 66 25 2c 31 29  0d 00 d6 12 79 25 3d 63  |x%(f%,1)....y%=c|
00001430  62 6f 78 25 28 66 25 2c  32 29 0d 00 d7 28 f2 70  |box%(f%,2)...(.p|
00001440  6c 6f 74 5f 73 70 72 69  74 65 28 78 25 2c 79 25  |lot_sprite(x%,y%|
00001450  2c 31 2c 31 2c 31 2c 31  2c 22 73 69 6c 76 65 72  |,1,1,1,1,"silver|
00001460  22 29 0d 00 d8 05 ed 0d  00 d9 27 f2 70 6c 6f 74  |")........'.plot|
00001470  5f 73 70 72 69 74 65 28  35 31 32 2c 33 36 30 2c  |_sprite(512,360,|
00001480  31 2c 31 2c 31 2c 31 2c  22 6b 65 79 22 29 0d 00  |1,1,1,1,"key")..|
00001490  da 10 66 61 64 65 24 3d  22 66 61 64 65 22 0d 00  |..fade$="fade"..|
000014a0  db 18 f2 66 61 64 65 28  30 2c 39 36 30 2c 34 2c  |...fade(0,960,4,|
000014b0  30 2c 31 2c 31 29 0d 00  dc 0c 2a 66 78 31 31 32  |0,1,1)....*fx112|
000014c0  2c 31 0d 00 dd 14 ef 32  34 2c 30 3b 30 3b 35 31  |,1.....24,0;0;51|
000014d0  30 3b 38 30 30 3b 0d 00  de 14 e3 66 25 3d 30 20  |0;800;.....f%=0 |
000014e0  b8 20 35 38 30 20 88 20  32 34 0d 00 df 0d f2 73  |. 580 . 24.....s|
000014f0  74 5f 70 61 75 73 65 0d  00 e0 2f f2 70 6c 6f 74  |t_pause.../.plot|
00001500  5f 73 70 72 69 74 65 5f  6d 61 73 6b 65 64 28 66  |_sprite_masked(f|
00001510  25 2c 34 35 36 2c 31 2c  31 2c 31 2c 31 2c 22 62  |%,456,1,1,1,1,"b|
00001520  6f 6c 74 34 22 29 0d 00  e1 11 f2 65 6e 5f 70 61  |olt4").....en_pa|
00001530  75 73 65 28 31 30 29 0d  00 e2 05 ed 0d 00 e3 1f  |use(10).........|
00001540  f2 63 61 63 68 65 73 6f  75 6e 64 28 22 63 6c 61  |.cachesound("cla|
00001550  6e 67 5f 6c 6f 63 6b 22  2c 31 29 0d 00 e4 10 d4  |ng_lock",1).....|
00001560  20 31 2c 26 31 37 46 2c  31 2c 31 0d 00 e5 17 ef  | 1,&17F,1,1.....|
00001570  32 34 2c 37 37 30 3b 30  3b 31 32 37 38 3b 38 30  |24,770;0;1278;80|
00001580  30 3b 0d 00 e6 18 e3 66  25 3d 31 32 38 30 20 b8  |0;.....f%=1280 .|
00001590  20 36 30 30 20 88 20 2d  32 34 0d 00 e7 0d f2 73  | 600 . -24.....s|
000015a0  74 5f 70 61 75 73 65 0d  00 e8 2f f2 70 6c 6f 74  |t_pause.../.plot|
000015b0  5f 73 70 72 69 74 65 5f  6d 61 73 6b 65 64 28 66  |_sprite_masked(f|
000015c0  25 2c 34 35 36 2c 31 2c  31 2c 31 2c 31 2c 22 62  |%,456,1,1,1,1,"b|
000015d0  6f 6c 74 33 22 29 0d 00  e9 11 f2 65 6e 5f 70 61  |olt3").....en_pa|
000015e0  75 73 65 28 31 30 29 0d  00 ea 05 ed 0d 00 eb 1f  |use(10).........|
000015f0  f2 63 61 63 68 65 73 6f  75 6e 64 28 22 63 6c 61  |.cachesound("cla|
00001600  6e 67 5f 6c 6f 63 6b 22  2c 31 29 0d 00 ec 10 d4  |ng_lock",1).....|
00001610  20 31 2c 26 31 37 46 2c  31 2c 31 0d 00 ed 2f 42  | 1,&17F,1,1.../B|
00001620  25 3d 73 63 72 65 65 6e  5f 6f 6e 65 25 3a 43 25  |%=screen_one%:C%|
00001630  3d 73 63 72 65 65 6e 5f  74 77 6f 25 3a d6 73 61  |=screen_two%:.sa|
00001640  76 65 5f 73 63 72 65 65  6e 25 0d 00 ee 53 f2 74  |ve_screen%...S.t|
00001650  65 78 74 5f 62 6f 78 28  31 30 30 2c 31 30 30 2c  |ext_box(100,100,|
00001660  31 30 38 30 2c 31 36 30  2c 32 2c 22 43 61 6e 20  |1080,160,2,"Can |
00001670  79 6f 75 20 73 6f 6c 76  65 20 74 68 69 73 20 63  |you solve this c|
00001680  6f 64 65 20 61 6e 64 22  2c 22 6f 70 65 6e 20 74  |ode and","open t|
00001690  68 65 20 6c 6f 63 6b 3f  22 2c 22 22 29 0d 00 ef  |he lock?","")...|
000016a0  16 f2 73 70 61 63 65 28  39 30 30 2c 32 34 2c 30  |..space(900,24,0|
000016b0  2c 30 29 0d 00 f0 2f 43  25 3d 73 63 72 65 65 6e  |,0).../C%=screen|
000016c0  5f 6f 6e 65 25 3a 42 25  3d 73 63 72 65 65 6e 5f  |_one%:B%=screen_|
000016d0  74 77 6f 25 3a d6 73 61  76 65 5f 73 63 72 65 65  |two%:.save_scree|
000016e0  6e 25 0d 00 f1 4a f2 74  65 78 74 5f 62 6f 78 28  |n%...J.text_box(|
000016f0  31 30 30 2c 31 33 30 2c  31 30 38 30 2c 39 30 2c  |100,130,1080,90,|
00001700  32 2c 22 44 6f 20 79 6f  75 20 72 65 71 75 69 72  |2,"Do you requir|
00001710  65 20 6d 6f 72 65 20 69  6e 73 74 72 75 63 74 69  |e more instructi|
00001720  6f 6e 73 3f 22 2c 22 22  2c 22 22 29 0d 00 f2 16  |ons?","","")....|
00001730  f2 64 65 66 69 6e 65 5f  62 75 74 74 6f 6e 73 28  |.define_buttons(|
00001740  34 29 0d 00 f3 1a f5 3a  c8 97 6d 78 25 2c 6d 79  |4).....:..mx%,my|
00001750  25 2c 6d 63 25 3a fd 6d  63 25 3d 30 0d 00 f4 1f  |%,mc%:.mc%=0....|
00001760  e3 6d 73 78 66 25 3d 31  b8 31 30 3a c8 97 6d 78  |.msxf%=1.10:..mx|
00001770  25 2c 6d 79 25 2c 6d 63  25 3a ed 0d 00 f5 17 e3  |%,my%,mc%:......|
00001780  62 6e 25 3d 31 20 b8 20  74 6f 74 61 6c 5f 62 75  |bn%=1 . total_bu|
00001790  74 25 0d 00 f6 2f f2 62  75 74 5f 6f 66 66 28 62  |t%.../.but_off(b|
000017a0  75 74 25 28 62 6e 25 2c  30 29 2c 62 75 74 25 28  |ut%(bn%,0),but%(|
000017b0  62 6e 25 2c 31 29 2c 62  75 74 24 28 62 6e 25 29  |bn%,1),but$(bn%)|
000017c0  29 0d 00 f7 05 ed 0d 00  f8 07 c8 97 ee 0d 00 f9  |)...............|
000017d0  05 f5 0d 00 fa 1b f2 63  68 65 63 6b 5f 62 75 74  |.......check_but|
000017e0  74 6f 6e 73 28 61 6e 5f  6e 75 6d 25 29 0d 00 fb  |tons(an_num%)...|
000017f0  10 fd 73 65 6c 65 63 74  65 64 25 3e 30 0d 00 fc  |..selected%>0...|
00001800  12 e7 73 65 6c 65 63 74  65 64 25 3d 31 20 8c 0d  |..selected%=1 ..|
00001810  00 fd 2f 43 25 3d 73 63  72 65 65 6e 5f 6f 6e 65  |../C%=screen_one|
00001820  25 3a 42 25 3d 73 63 72  65 65 6e 5f 74 77 6f 25  |%:B%=screen_two%|
00001830  3a d6 73 61 76 65 5f 73  63 72 65 65 6e 25 0d 00  |:.save_screen%..|
00001840  fe 0f f2 63 65 6e 74 72  65 5f 62 6f 78 0d 00 ff  |...centre_box...|
00001850  14 f2 73 65 74 5f 62 6f  78 5f 63 6f 6e 74 65 6e  |..set_box_conten|
00001860  74 0d 01 00 32 74 61 62  6c 65 73 24 28 31 29 3d  |t...2tables$(1)=|
00001870  c3 28 74 61 62 6c 65 73  25 28 31 2c 31 29 29 2b  |.(tables%(1,1))+|
00001880  22 78 22 2b c3 28 74 61  62 6c 65 73 25 28 31 2c  |"x"+.(tables%(1,|
00001890  32 29 29 0d 01 01 29 f2  72 6f 74 61 74 65 5f 6e  |2))...).rotate_n|
000018a0  75 6d 62 65 72 73 28 35  33 30 2c 34 36 30 2c 35  |umbers(530,460,5|
000018b0  2c 74 61 62 6c 65 73 24  28 31 29 29 0d 01 02 70  |,tables$(1))...p|
000018c0  f2 74 65 78 74 5f 62 6f  78 28 34 30 2c 31 30 30  |.text_box(40,100|
000018d0  2c 31 32 30 30 2c 31 39  30 2c 32 2c 22 41 6c 74  |,1200,190,2,"Alt|
000018e0  65 72 20 74 68 65 20 6f  75 74 73 69 64 65 20 62  |er the outside b|
000018f0  6f 78 65 73 20 73 6f 20  74 68 65 79 20 68 61 76  |oxes so they hav|
00001900  65 22 2c 22 74 68 65 20  73 61 6d 65 20 27 76 61  |e","the same 'va|
00001910  6c 75 65 27 20 61 73 20  74 68 65 20 63 65 6e 74  |lue' as the cent|
00001920  72 65 20 62 6f 78 2e 22  2c 22 22 29 0d 01 03 16  |re box.","")....|
00001930  f2 73 70 61 63 65 28 39  30 30 2c 32 30 2c 30 2c  |.space(900,20,0,|
00001940  30 29 0d 01 04 2f 43 25  3d 73 63 72 65 65 6e 5f  |0).../C%=screen_|
00001950  6f 6e 65 25 3a 42 25 3d  73 63 72 65 65 6e 5f 74  |one%:B%=screen_t|
00001960  77 6f 25 3a d6 73 61 76  65 5f 73 63 72 65 65 6e  |wo%:.save_screen|
00001970  25 0d 01 05 1b f2 63 61  63 68 65 73 6f 75 6e 64  |%.....cachesound|
00001980  28 22 63 6c 61 6e 67 32  22 2c 31 29 0d 01 06 1a  |("clang2",1)....|
00001990  f2 62 6f 78 32 28 34 30  2c 35 34 30 2c 31 32 30  |.box2(40,540,120|
000019a0  30 2c 33 38 30 29 0d 01  07 25 f2 70 72 69 28 31  |0,380)...%.pri(1|
000019b0  37 37 2c 38 36 36 2c 22  4c 6f 6f 6b 2e 22 29 3a  |77,866,"Look."):|
000019c0  f2 70 61 75 73 65 28 31  38 30 29 0d 01 08 28 f2  |.pause(180)...(.|
000019d0  70 6c 6f 74 5f 73 70 72  69 74 65 28 31 36 34 2c  |plot_sprite(164,|
000019e0  37 36 32 2c 31 2c 31 2c  31 2c 31 2c 22 69 6e 31  |762,1,1,1,1,"in1|
000019f0  22 29 3a 0d 01 09 10 d4  20 31 2c 26 31 37 46 2c  |"):..... 1,&17F,|
00001a00  31 2c 31 0d 01 0a 0e f2  70 61 75 73 65 28 35 30  |1,1.....pause(50|
00001a10  29 0d 01 0b 2a f2 70 72  69 28 33 39 30 2c 37 37  |)...*.pri(390,77|
00001a20  38 2c 22 68 61 76 65 20  74 68 65 20 73 61 6d 65  |8,"have the same|
00001a30  20 76 61 6c 75 65 20 61  73 22 29 0d 01 0c 0e f2  | value as").....|
00001a40  70 61 75 73 65 28 35 30  29 0d 01 0d 10 d4 20 31  |pause(50)..... 1|
00001a50  2c 26 31 37 46 2c 31 2c  31 0d 01 0e 3a f2 70 6c  |,&17F,1,1...:.pl|
00001a60  6f 74 5f 73 70 72 69 74  65 28 39 38 30 2c 37 36  |ot_sprite(980,76|
00001a70  32 2c 31 2c 31 2c 31 2c  31 2c 22 69 6e 33 22 29  |2,1,1,1,1,"in3")|
00001a80  3a f2 73 70 61 63 65 28  39 30 30 2c 38 30 2c 30  |:.space(900,80,0|
00001a90  2c 30 29 0d 01 0f 27 f2  70 6c 6f 74 5f 73 70 72  |,0)...'.plot_spr|
00001aa0  69 74 65 28 31 36 34 2c  36 36 32 2c 31 2c 31 2c  |ite(164,662,1,1,|
00001ab0  31 2c 31 2c 22 69 6e 33  22 29 0d 01 10 10 d4 20  |1,1,"in3")..... |
00001ac0  31 2c 26 31 37 46 2c 31  2c 31 0d 01 11 0e f2 70  |1,&17F,1,1.....p|
00001ad0  61 75 73 65 28 35 30 29  0d 01 12 29 f2 70 72 69  |ause(50)...).pri|
00001ae0  28 33 39 30 2c 36 37 38  2c 22 68 61 73 20 74 68  |(390,678,"has th|
00001af0  65 20 73 61 6d 65 20 76  61 6c 75 65 20 61 73 22  |e same value as"|
00001b00  29 0d 01 13 0e f2 70 61  75 73 65 28 35 30 29 0d  |).....pause(50).|
00001b10  01 14 10 d4 20 31 2c 26  31 37 46 2c 31 2c 31 0d  |.... 1,&17F,1,1.|
00001b20  01 15 3a f2 70 6c 6f 74  5f 73 70 72 69 74 65 28  |..:.plot_sprite(|
00001b30  39 38 30 2c 36 36 32 2c  31 2c 31 2c 31 2c 31 2c  |980,662,1,1,1,1,|
00001b40  22 69 6e 32 22 29 3a f2  73 70 61 63 65 28 39 30  |"in2"):.space(90|
00001b50  30 2c 38 30 2c 30 2c 30  29 0d 01 16 27 f2 70 6c  |0,80,0,0)...'.pl|
00001b60  6f 74 5f 73 70 72 69 74  65 28 31 36 34 2c 35 36  |ot_sprite(164,56|
00001b70  32 2c 31 2c 31 2c 31 2c  31 2c 22 69 6e 32 22 29  |2,1,1,1,1,"in2")|
00001b80  0d 01 17 10 d4 20 31 2c  26 31 37 46 2c 31 2c 31  |..... 1,&17F,1,1|
00001b90  0d 01 18 0e f2 70 61 75  73 65 28 35 30 29 0d 01  |.....pause(50)..|
00001ba0  19 29 f2 70 72 69 28 33  39 30 2c 35 37 38 2c 22  |.).pri(390,578,"|
00001bb0  68 61 73 20 74 68 65 20  73 61 6d 65 20 76 61 6c  |has the same val|
00001bc0  75 65 20 61 73 22 29 0d  01 1a 0e f2 70 61 75 73  |ue as").....paus|
00001bd0  65 28 35 30 29 0d 01 1b  10 d4 20 31 2c 26 31 37  |e(50)..... 1,&17|
00001be0  46 2c 31 2c 31 0d 01 1c  3a f2 70 6c 6f 74 5f 73  |F,1,1...:.plot_s|
00001bf0  70 72 69 74 65 28 39 38  30 2c 35 36 32 2c 31 2c  |prite(980,562,1,|
00001c00  31 2c 31 2c 31 2c 22 69  6e 36 22 29 3a f2 73 70  |1,1,1,"in6"):.sp|
00001c10  61 63 65 28 39 30 30 2c  38 30 2c 30 2c 30 29 0d  |ace(900,80,0,0).|
00001c20  01 1d 54 f2 74 65 78 74  5f 62 6f 78 28 34 30 2c  |..T.text_box(40,|
00001c30  32 34 30 2c 31 32 30 30  2c 39 30 2c 32 2c 22 55  |240,1200,90,2,"U|
00001c40  73 65 20 74 68 65 20 27  76 61 6c 75 65 20 75 70  |se the 'value up|
00001c50  27 20 61 6e 64 20 27 76  61 6c 75 65 20 64 6f 77  |' and 'value dow|
00001c60  6e 27 20 62 75 74 74 6f  6e 73 2e 22 2c 22 22 2c  |n' buttons.","",|
00001c70  22 22 29 0d 01 1e 16 f2  73 70 61 63 65 28 39 30  |"").....space(90|
00001c80  30 2c 38 30 2c 30 2c 30  29 0d 01 1f 05 cd 0d 01  |0,80,0,0).......|
00001c90  20 2f 43 25 3d 73 63 72  65 65 6e 5f 6f 6e 65 25  | /C%=screen_one%|
00001ca0  3a 42 25 3d 73 63 72 65  65 6e 5f 74 77 6f 25 3a  |:B%=screen_two%:|
00001cb0  d6 73 61 76 65 5f 73 63  72 65 65 6e 25 0d 01 21  |.save_screen%..!|
00001cc0  0d e3 66 25 3d 31 20 b8  20 36 0d 01 22 18 f2 63  |..f%=1 . 6.."..c|
00001cd0  6f 6e 6e 65 63 74 5f 62  6f 78 28 66 25 2c 31 32  |onnect_box(f%,12|
00001ce0  38 29 0d 01 23 05 ed 0d  01 24 0f f2 63 65 6e 74  |8)..#....$..cent|
00001cf0  72 65 5f 62 6f 78 0d 01  25 2c f2 70 6c 6f 74 5f  |re_box..%,.plot_|
00001d00  73 70 72 69 74 65 28 35  31 32 2c 33 36 30 2c 31  |sprite(512,360,1|
00001d10  2c 31 2c 31 2c 31 2c 22  74 68 65 77 6f 72 6b 73  |,1,1,1,"theworks|
00001d20  22 29 0d 01 26 14 f2 73  65 74 5f 62 6f 78 5f 63  |")..&..set_box_c|
00001d30  6f 6e 74 65 6e 74 0d 01  27 32 74 61 62 6c 65 73  |ontent..'2tables|
00001d40  24 28 31 29 3d c3 28 74  61 62 6c 65 73 25 28 31  |$(1)=.(tables%(1|
00001d50  2c 31 29 29 2b 22 78 22  2b c3 28 74 61 62 6c 65  |,1))+"x"+.(table|
00001d60  73 25 28 31 2c 32 29 29  0d 01 28 29 f2 72 6f 74  |s%(1,2))..().rot|
00001d70  61 74 65 5f 6e 75 6d 62  65 72 73 28 35 34 30 2c  |ate_numbers(540,|
00001d80  35 32 32 2c 35 2c 74 61  62 6c 65 73 24 28 31 29  |522,5,tables$(1)|
00001d90  29 0d 01 29 0e e3 62 78  25 3d 31 20 b8 20 36 0d  |)..)..bx%=1 . 6.|
00001da0  01 2a 15 f2 70 72 69 6e  74 5f 76 61 6c 75 65 28  |.*..print_value(|
00001db0  62 78 25 29 0d 01 2b 10  f2 70 69 70 65 28 62 78  |bx%)..+..pipe(bx|
00001dc0  25 2c 31 29 0d 01 2c 05  ed 0d 01 2d 47 c8 99 22  |%,1)..,....-G.."|
00001dd0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
00001de0  30 2c 73 70 72 69 74 65  5f 61 72 65 61 31 25 2c  |0,sprite_area1%,|
00001df0  22 62 6c 61 72 72 6f 77  22 2c 30 2c 32 39 30 2c  |"blarrow",0,290,|
00001e00  35 36 2c 33 31 36 2b 31  32 34 2c 37 32 2b 36 38  |56,316+124,72+68|
00001e10  0d 01 2e 2f f2 70 6c 6f  74 5f 73 70 72 69 74 65  |.../.plot_sprite|
00001e20  5f 6d 61 73 6b 65 64 28  32 39 30 2c 35 36 2c 31  |_masked(290,56,1|
00001e30  2c 31 2c 31 2c 31 2c 22  61 72 72 6f 77 22 29 0d  |,1,1,1,"arrow").|
00001e40  01 2f 11 f2 68 69 67 68  6c 69 67 68 74 28 31 29  |./..highlight(1)|
00001e50  0d 01 30 12 6c 6f 6f 6b  5f 61 74 5f 62 6f 78 25  |..0.look_at_box%|
00001e60  3d 31 0d 01 31 11 63 6f  72 72 65 63 74 5f 61 6e  |=1..1.correct_an|
00001e70  25 3d 30 0d 01 32 05 f5  0d 01 33 05 f5 0d 01 34  |%=0..2....3....4|
00001e80  1d f2 63 68 61 6e 67 65  5f 62 6f 78 28 6c 6f 6f  |..change_box(loo|
00001e90  6b 5f 61 74 5f 62 6f 78  25 29 0d 01 35 19 fd 20  |k_at_box%)..5.. |
00001ea0  63 68 61 6e 67 65 25 3d  31 20 84 20 61 6e 73 77  |change%=1 . answ|
00001eb0  25 3d 31 0d 01 36 2d f2  70 6c 6f 74 5f 73 70 72  |%=1..6-.plot_spr|
00001ec0  69 74 65 28 32 39 30 2c  35 36 2c 31 2c 31 2c 31  |ite(290,56,1,1,1|
00001ed0  2c 31 2b 56 25 2c 22 62  6c 61 72 72 6f 77 22 29  |,1+V%,"blarrow")|
00001ee0  0d 01 37 10 e7 63 68 61  6e 67 65 25 3d 31 20 8c  |..7..change%=1 .|
00001ef0  0d 01 38 1b f2 63 61 63  68 65 73 6f 75 6e 64 28  |..8..cachesound(|
00001f00  22 63 6c 61 6e 67 32 22  2c 31 29 0d 01 39 10 d4  |"clang2",1)..9..|
00001f10  20 31 2c 26 31 37 46 2c  31 2c 31 0d 01 3a 1c f2  | 1,&17F,1,1..:..|
00001f20  68 69 67 68 6c 69 67 68  74 28 6c 6f 6f 6b 5f 61  |highlight(look_a|
00001f30  74 5f 62 6f 78 25 29 0d  01 3b 20 6c 6f 6f 6b 5f  |t_box%)..; look_|
00001f40  61 74 5f 62 6f 78 25 3d  6c 6f 6f 6b 5f 61 74 5f  |at_box%=look_at_|
00001f50  62 6f 78 25 2b 31 3a 0d  01 3c 22 e7 6c 6f 6f 6b  |box%+1:..<".look|
00001f60  5f 61 74 5f 62 6f 78 25  3d 37 20 6c 6f 6f 6b 5f  |_at_box%=7 look_|
00001f70  61 74 5f 62 6f 78 25 3d  31 0d 01 3d 23 e7 63 62  |at_box%=1..=#.cb|
00001f80  6f 78 5f 74 79 70 65 25  28 6c 6f 6f 6b 5f 61 74  |ox_type%(look_at|
00001f90  5f 62 6f 78 25 2c 31 29  3d 30 20 8c 0d 01 3e 05  |_box%,1)=0 ...>.|
00001fa0  f5 0d 01 3f 20 6c 6f 6f  6b 5f 61 74 5f 62 6f 78  |...? look_at_box|
00001fb0  25 3d 6c 6f 6f 6b 5f 61  74 5f 62 6f 78 25 2b 31  |%=look_at_box%+1|
00001fc0  3a 0d 01 40 22 e7 6c 6f  6f 6b 5f 61 74 5f 62 6f  |:..@".look_at_bo|
00001fd0  78 25 3d 37 20 6c 6f 6f  6b 5f 61 74 5f 62 6f 78  |x%=7 look_at_box|
00001fe0  25 3d 31 0d 01 41 23 fd  20 63 62 6f 78 5f 74 79  |%=1..A#. cbox_ty|
00001ff0  70 65 25 28 6c 6f 6f 6b  5f 61 74 5f 62 6f 78 25  |pe%(look_at_box%|
00002000  2c 31 29 3c 3e 30 0d 01  42 05 cd 0d 01 43 1c f2  |,1)<>0..B....C..|
00002010  68 69 67 68 6c 69 67 68  74 28 6c 6f 6f 6b 5f 61  |highlight(look_a|
00002020  74 5f 62 6f 78 25 29 0d  01 44 05 cd 0d 01 45 0e  |t_box%)..D....E.|
00002030  e7 61 6e 73 77 25 3d 31  20 8c 0d 01 46 2b 72 65  |.answ%=1 ...F+re|
00002040  61 6c 5f 61 6e 73 77 65  72 25 3d 63 62 6f 78 5f  |al_answer%=cbox_|
00002050  74 79 70 65 25 28 6c 6f  6f 6b 5f 61 74 5f 62 6f  |type%(look_at_bo|
00002060  78 25 2c 36 29 0d 01 47  2c 74 68 65 69 72 5f 61  |x%,6)..G,their_a|
00002070  6e 73 77 65 72 25 3d 63  62 6f 78 5f 74 79 70 65  |nswer%=cbox_type|
00002080  25 28 6c 6f 6f 6b 5f 61  74 5f 62 6f 78 25 2c 33  |%(look_at_box%,3|
00002090  29 0d 01 48 21 e7 74 68  65 69 72 5f 61 6e 73 77  |)..H!.their_answ|
000020a0  65 72 25 3d 72 65 61 6c  5f 61 6e 73 77 65 72 25  |er%=real_answer%|
000020b0  20 8c 0d 01 49 1c f2 68  69 67 68 6c 69 67 68 74  | ...I..highlight|
000020c0  28 6c 6f 6f 6b 5f 61 74  5f 62 6f 78 25 29 0d 01  |(look_at_box%)..|
000020d0  4a 1d 63 6f 72 72 65 63  74 5f 61 6e 25 3d 63 6f  |J.correct_an%=co|
000020e0  72 72 65 63 74 5f 61 6e  25 2b 31 0d 01 4b 18 f2  |rrect_an%+1..K..|
000020f0  63 61 63 68 65 73 6f 75  6e 64 28 22 6f 6b 32 22  |cachesound("ok2"|
00002100  2c 31 29 0d 01 4c 10 d4  20 31 2c 26 31 37 46 2c  |,1)..L.. 1,&17F,|
00002110  31 2c 31 0d 01 4d 0f f2  70 61 75 73 65 28 31 34  |1,1..M..pause(14|
00002120  30 29 0d 01 4e 22 f2 63  6f 6e 6e 65 63 74 5f 62  |0)..N".connect_b|
00002130  6f 78 28 6c 6f 6f 6b 5f  61 74 5f 62 6f 78 25 2c  |ox(look_at_box%,|
00002140  31 32 38 29 0d 01 4f 1e  f2 70 72 69 6e 74 5f 76  |128)..O..print_v|
00002150  61 6c 75 65 28 6c 6f 6f  6b 5f 61 74 5f 62 6f 78  |alue(look_at_box|
00002160  25 29 0d 01 50 19 f2 70  69 70 65 28 6c 6f 6f 6b  |%)..P..pipe(look|
00002170  5f 61 74 5f 62 6f 78 25  2c 30 29 0d 01 51 3d e7  |_at_box%,0)..Q=.|
00002180  20 6c 6f 6f 6b 5f 61 74  5f 62 6f 78 25 3d 31 20  | look_at_box%=1 |
00002190  61 78 25 3d 35 33 34 3a  61 79 25 3d 34 33 32 3a  |ax%=534:ay%=432:|
000021a0  73 70 24 3d 22 6c 6c 61  74 63 68 22 3a 6c 61 74  |sp$="llatch":lat|
000021b0  63 68 25 28 31 29 3d 31  0d 01 52 3d e7 20 6c 6f  |ch%(1)=1..R=. lo|
000021c0  6f 6b 5f 61 74 5f 62 6f  78 25 3d 32 20 61 78 25  |ok_at_box%=2 ax%|
000021d0  3d 35 35 38 3a 61 79 25  3d 34 33 32 3a 73 70 24  |=558:ay%=432:sp$|
000021e0  3d 22 6c 6c 61 74 63 68  22 3a 6c 61 74 63 68 25  |="llatch":latch%|
000021f0  28 32 29 3d 31 0d 01 53  3d e7 20 6c 6f 6f 6b 5f  |(2)=1..S=. look_|
00002200  61 74 5f 62 6f 78 25 3d  33 20 61 78 25 3d 35 38  |at_box%=3 ax%=58|
00002210  32 3a 61 79 25 3d 34 33  32 3a 73 70 24 3d 22 6c  |2:ay%=432:sp$="l|
00002220  6c 61 74 63 68 22 3a 6c  61 74 63 68 25 28 33 29  |latch":latch%(3)|
00002230  3d 31 0d 01 54 3d e7 20  6c 6f 6f 6b 5f 61 74 5f  |=1..T=. look_at_|
00002240  62 6f 78 25 3d 34 20 61  78 25 3d 36 38 30 3a 61  |box%=4 ax%=680:a|
00002250  79 25 3d 34 33 32 3a 73  70 24 3d 22 72 6c 61 74  |y%=432:sp$="rlat|
00002260  63 68 22 3a 6c 61 74 63  68 25 28 34 29 3d 31 0d  |ch":latch%(4)=1.|
00002270  01 55 3d e7 20 6c 6f 6f  6b 5f 61 74 5f 62 6f 78  |.U=. look_at_box|
00002280  25 3d 35 20 61 78 25 3d  37 30 34 3a 61 79 25 3d  |%=5 ax%=704:ay%=|
00002290  34 33 32 3a 73 70 24 3d  22 72 6c 61 74 63 68 22  |432:sp$="rlatch"|
000022a0  3a 6c 61 74 63 68 25 28  35 29 3d 31 0d 01 56 3d  |:latch%(5)=1..V=|
000022b0  e7 20 6c 6f 6f 6b 5f 61  74 5f 62 6f 78 25 3d 36  |. look_at_box%=6|
000022c0  20 61 78 25 3d 37 32 38  3a 61 79 25 3d 34 33 32  | ax%=728:ay%=432|
000022d0  3a 73 70 24 3d 22 72 6c  61 74 63 68 22 3a 6c 61  |:sp$="rlatch":la|
000022e0  74 63 68 25 28 36 29 3d  31 0d 01 57 0f e3 6c 61  |tch%(6)=1..W..la|
000022f0  74 25 3d 31 20 b8 20 35  0d 01 58 2d f2 70 6c 6f  |t%=1 . 5..X-.plo|
00002300  74 5f 73 70 72 69 74 65  28 61 78 25 2c 61 79 25  |t_sprite(ax%,ay%|
00002310  2c 31 2c 31 2c 31 2c 31  2c 73 70 24 2b c3 28 6c  |,1,1,1,1,sp$+.(l|
00002320  61 74 25 29 29 0d 01 59  0e f2 70 61 75 73 65 28  |at%))..Y..pause(|
00002330  32 30 29 0d 01 5a 05 ed  0d 01 5b 1b f2 63 61 63  |20)..Z....[..cac|
00002340  68 65 73 6f 75 6e 64 28  22 63 6c 61 6e 67 32 22  |hesound("clang2"|
00002350  2c 31 29 0d 01 5c 10 d4  20 31 2c 26 31 37 46 2c  |,1)..\.. 1,&17F,|
00002360  31 2c 31 0d 01 5d 3d e7  20 6c 61 74 63 68 25 28  |1,1..]=. latch%(|
00002370  31 29 3d 31 20 80 20 6c  61 74 63 68 25 28 32 29  |1)=1 . latch%(2)|
00002380  3d 31 20 80 20 6c 61 74  63 68 25 28 33 29 3d 31  |=1 . latch%(3)=1|
00002390  20 80 20 6c 61 74 63 68  25 28 37 29 3d 30 20 8c  | . latch%(7)=0 .|
000023a0  0d 01 5e 2a f2 70 6c 6f  74 5f 73 70 72 69 74 65  |..^*.plot_sprite|
000023b0  28 34 30 36 2c 34 35 36  2c 31 2c 31 2c 31 2c 31  |(406,456,1,1,1,1|
000023c0  2c 22 6c 62 6f 6c 74 6c  22 29 0d 01 5f 1f f2 63  |,"lboltl").._..c|
000023d0  61 63 68 65 73 6f 75 6e  64 28 22 63 6c 61 6e 67  |achesound("clang|
000023e0  5f 6c 6f 63 6b 22 2c 31  29 0d 01 60 10 d4 20 31  |_lock",1)..`.. 1|
000023f0  2c 26 31 37 46 2c 31 2c  31 0d 01 61 0f 6c 61 74  |,&17F,1,1..a.lat|
00002400  63 68 25 28 37 29 3d 31  0d 01 62 05 cd 0d 01 63  |ch%(7)=1..b....c|
00002410  3d e7 20 6c 61 74 63 68  25 28 34 29 3d 31 20 80  |=. latch%(4)=1 .|
00002420  20 6c 61 74 63 68 25 28  35 29 3d 31 20 80 20 6c  | latch%(5)=1 . l|
00002430  61 74 63 68 25 28 36 29  3d 31 20 80 20 6c 61 74  |atch%(6)=1 . lat|
00002440  63 68 25 28 38 29 3d 30  20 8c 0d 01 64 2a f2 70  |ch%(8)=0 ...d*.p|
00002450  6c 6f 74 5f 73 70 72 69  74 65 28 36 35 36 2c 34  |lot_sprite(656,4|
00002460  35 36 2c 31 2c 31 2c 31  2c 31 2c 22 72 62 6f 6c  |56,1,1,1,1,"rbol|
00002470  74 6c 22 29 0d 01 65 1f  f2 63 61 63 68 65 73 6f  |tl")..e..cacheso|
00002480  75 6e 64 28 22 63 6c 61  6e 67 5f 6c 6f 63 6b 22  |und("clang_lock"|
00002490  2c 31 29 0d 01 66 10 d4  20 31 2c 26 31 37 46 2c  |,1)..f.. 1,&17F,|
000024a0  31 2c 31 0d 01 67 0f 6c  61 74 63 68 25 28 38 29  |1,1..g.latch%(8)|
000024b0  3d 31 0d 01 68 05 cd 0d  01 69 0f f2 70 61 75 73  |=1..h....i..paus|
000024c0  65 28 31 30 30 29 0d 01  6a 20 63 62 6f 78 5f 74  |e(100)..j cbox_t|
000024d0  79 70 65 25 28 6c 6f 6f  6b 5f 61 74 5f 62 6f 78  |ype%(look_at_box|
000024e0  25 2c 31 29 3d 30 0d 01  6b 1f 6c 6f 6f 6b 5f 61  |%,1)=0..k.look_a|
000024f0  74 5f 62 6f 78 25 3d 6c  6f 6f 6b 5f 61 74 5f 62  |t_box%=look_at_b|
00002500  6f 78 25 2b 31 0d 01 6c  22 e7 6c 6f 6f 6b 5f 61  |ox%+1..l".look_a|
00002510  74 5f 62 6f 78 25 3d 37  20 6c 6f 6f 6b 5f 61 74  |t_box%=7 look_at|
00002520  5f 62 6f 78 25 3d 31 0d  01 6d 34 e7 63 62 6f 78  |_box%=1..m4.cbox|
00002530  5f 74 79 70 65 25 28 6c  6f 6f 6b 5f 61 74 5f 62  |_type%(look_at_b|
00002540  6f 78 25 2c 31 29 3d 30  20 80 20 63 6f 72 72 65  |ox%,1)=0 . corre|
00002550  63 74 5f 61 6e 25 3c 3e  36 20 8c 0d 01 6e 05 f5  |ct_an%<>6 ...n..|
00002560  0d 01 6f 1f 6c 6f 6f 6b  5f 61 74 5f 62 6f 78 25  |..o.look_at_box%|
00002570  3d 6c 6f 6f 6b 5f 61 74  5f 62 6f 78 25 2b 31 0d  |=look_at_box%+1.|
00002580  01 70 22 e7 6c 6f 6f 6b  5f 61 74 5f 62 6f 78 25  |.p".look_at_box%|
00002590  3d 37 20 6c 6f 6f 6b 5f  61 74 5f 62 6f 78 25 3d  |=7 look_at_box%=|
000025a0  31 0d 01 71 23 fd 20 63  62 6f 78 5f 74 79 70 65  |1..q#. cbox_type|
000025b0  25 28 6c 6f 6f 6b 5f 61  74 5f 62 6f 78 25 2c 31  |%(look_at_box%,1|
000025c0  29 3c 3e 30 0d 01 72 05  cd 0d 01 73 2d e7 20 63  |)<>0..r....s-. c|
000025d0  6f 72 72 65 63 74 5f 61  6e 25 3c 3e 36 20 f2 68  |orrect_an%<>6 .h|
000025e0  69 67 68 6c 69 67 68 74  28 6c 6f 6f 6b 5f 61 74  |ighlight(look_at|
000025f0  5f 62 6f 78 25 29 0d 01  74 05 cc 0d 01 75 1c f2  |_box%)..t....u..|
00002600  68 69 67 68 6c 69 67 68  74 28 6c 6f 6f 6b 5f 61  |highlight(look_a|
00002610  74 5f 62 6f 78 25 29 0d  01 76 1b f2 63 61 63 68  |t_box%)..v..cach|
00002620  65 73 6f 75 6e 64 28 22  77 72 6f 6e 67 32 22 2c  |esound("wrong2",|
00002630  31 29 0d 01 77 10 d4 20  31 2c 26 31 37 46 2c 31  |1)..w.. 1,&17F,1|
00002640  2c 31 0d 01 78 1f 74 6f  74 61 6c 5f 67 6f 74 5f  |,1..x.total_got_|
00002650  66 70 3d 74 6f 74 61 6c  5f 67 6f 74 5f 66 70 2d  |fp=total_got_fp-|
00002660  31 0d 01 79 2f 42 25 3d  73 63 72 65 65 6e 5f 6f  |1..y/B%=screen_o|
00002670  6e 65 25 3a 43 25 3d 73  63 72 65 65 6e 5f 74 77  |ne%:C%=screen_tw|
00002680  6f 25 3a d6 73 61 76 65  5f 73 63 72 65 65 6e 25  |o%:.save_screen%|
00002690  0d 01 7a 49 f2 74 65 78  74 5f 62 6f 78 28 34 33  |..zI.text_box(43|
000026a0  30 2c 32 39 30 2c 34 32  30 2c 31 36 30 2c 32 2c  |0,290,420,160,2,|
000026b0  22 54 68 65 73 65 20 73  68 6f 75 6c 64 20 62 65  |"These should be|
000026c0  22 2c 22 74 68 65 20 73  61 6d 65 20 27 76 61 6c  |","the same 'val|
000026d0  75 65 27 2e 22 2c 22 22  29 0d 01 7b 54 f2 70 6c  |ue'.","")..{T.pl|
000026e0  6f 74 5f 73 70 72 69 74  65 5f 6d 61 73 6b 65 64  |ot_sprite_masked|
000026f0  28 63 62 6f 78 25 28 6c  6f 6f 6b 5f 61 74 5f 62  |(cbox%(look_at_b|
00002700  6f 78 25 2c 31 29 2c 63  62 6f 78 25 28 6c 6f 6f  |ox%,1),cbox%(loo|
00002710  6b 5f 61 74 5f 62 6f 78  25 2c 32 29 2c 31 2c 31  |k_at_box%,2),1,1|
00002720  2c 31 2c 31 2c 22 72 69  67 68 74 22 29 0d 01 7c  |,1,1,"right")..||
00002730  30 f2 70 6c 6f 74 5f 73  70 72 69 74 65 5f 6d 61  |0.plot_sprite_ma|
00002740  73 6b 65 64 28 34 38 30  2c 34 32 30 2c 31 2c 31  |sked(480,420,1,1|
00002750  2c 31 2c 31 2c 22 72 69  67 68 74 22 29 0d 01 7d  |,1,1,"right")..}|
00002760  0f f2 70 61 75 73 65 28  34 30 30 29 0d 01 7e 2f  |..pause(400)..~/|
00002770  43 25 3d 73 63 72 65 65  6e 5f 6f 6e 65 25 3a 42  |C%=screen_one%:B|
00002780  25 3d 73 63 72 65 65 6e  5f 74 77 6f 25 3a d6 73  |%=screen_two%:.s|
00002790  61 76 65 5f 73 63 72 65  65 6e 25 0d 01 7f 22 f2  |ave_screen%...".|
000027a0  63 6f 6e 6e 65 63 74 5f  62 6f 78 28 6c 6f 6f 6b  |connect_box(look|
000027b0  5f 61 74 5f 62 6f 78 25  2c 31 32 38 29 0d 01 80  |_at_box%,128)...|
000027c0  1e f2 70 72 69 6e 74 5f  76 61 6c 75 65 28 6c 6f  |..print_value(lo|
000027d0  6f 6b 5f 61 74 5f 62 6f  78 25 29 0d 01 81 1f 6c  |ok_at_box%)....l|
000027e0  6f 6f 6b 5f 61 74 5f 62  6f 78 25 3d 6c 6f 6f 6b  |ook_at_box%=look|
000027f0  5f 61 74 5f 62 6f 78 25  2b 31 0d 01 82 22 e7 6c  |_at_box%+1...".l|
00002800  6f 6f 6b 5f 61 74 5f 62  6f 78 25 3d 37 20 6c 6f  |ook_at_box%=7 lo|
00002810  6f 6b 5f 61 74 5f 62 6f  78 25 3d 31 0d 01 83 23  |ok_at_box%=1...#|
00002820  e7 63 62 6f 78 5f 74 79  70 65 25 28 6c 6f 6f 6b  |.cbox_type%(look|
00002830  5f 61 74 5f 62 6f 78 25  2c 31 29 3d 30 20 8c 0d  |_at_box%,1)=0 ..|
00002840  01 84 05 f5 0d 01 85 1f  6c 6f 6f 6b 5f 61 74 5f  |........look_at_|
00002850  62 6f 78 25 3d 6c 6f 6f  6b 5f 61 74 5f 62 6f 78  |box%=look_at_box|
00002860  25 2b 31 0d 01 86 22 e7  6c 6f 6f 6b 5f 61 74 5f  |%+1...".look_at_|
00002870  62 6f 78 25 3d 37 20 6c  6f 6f 6b 5f 61 74 5f 62  |box%=7 look_at_b|
00002880  6f 78 25 3d 31 0d 01 87  23 fd 20 63 62 6f 78 5f  |ox%=1...#. cbox_|
00002890  74 79 70 65 25 28 6c 6f  6f 6b 5f 61 74 5f 62 6f  |type%(look_at_bo|
000028a0  78 25 2c 31 29 3c 3e 30  0d 01 88 05 cd 0d 01 89  |x%,1)<>0........|
000028b0  1c f2 68 69 67 68 6c 69  67 68 74 28 6c 6f 6f 6b  |..highlight(look|
000028c0  5f 61 74 5f 62 6f 78 25  29 0d 01 8a 05 cd 0d 01  |_at_box%).......|
000028d0  8b 05 cd 0d 01 8c 13 fd  20 63 6f 72 72 65 63 74  |........ correct|
000028e0  5f 61 6e 25 3d 36 0d 01  8d 2f 42 25 3d 73 63 72  |_an%=6.../B%=scr|
000028f0  65 65 6e 5f 6f 6e 65 25  3a 43 25 3d 73 63 72 65  |een_one%:C%=scre|
00002900  65 6e 5f 74 77 6f 25 3a  d6 73 61 76 65 5f 73 63  |en_two%:.save_sc|
00002910  72 65 65 6e 25 0d 01 8e  0c 2a 46 58 31 31 32 2c  |reen%....*FX112,|
00002920  32 0d 01 8f 0d e3 66 25  3d 31 20 b8 20 36 0d 01  |2.....f%=1 . 6..|
00002930  90 12 78 25 3d 63 62 6f  78 25 28 66 25 2c 31 29  |..x%=cbox%(f%,1)|
00002940  0d 01 91 12 79 25 3d 63  62 6f 78 25 28 66 25 2c  |....y%=cbox%(f%,|
00002950  32 29 0d 01 92 28 f2 70  6c 6f 74 5f 73 70 72 69  |2)...(.plot_spri|
00002960  74 65 28 78 25 2c 79 25  2c 31 2c 31 2c 31 2c 31  |te(x%,y%,1,1,1,1|
00002970  2c 22 73 69 6c 76 65 72  22 29 0d 01 93 2f 43 25  |,"silver").../C%|
00002980  3d 73 63 72 65 65 6e 5f  6f 6e 65 25 3a 42 25 3d  |=screen_one%:B%=|
00002990  73 63 72 65 65 6e 5f 74  77 6f 25 3a d6 73 61 76  |screen_two%:.sav|
000029a0  65 5f 73 63 72 65 65 6e  25 0d 01 94 05 ed 0d 01  |e_screen%.......|
000029b0  95 1f f2 63 61 63 68 65  73 6f 75 6e 64 28 22 6c  |...cachesound("l|
000029c0  61 73 65 72 5f 64 6f 6f  72 22 2c 31 29 0d 01 96  |aser_door",1)...|
000029d0  10 d4 20 31 2c 26 31 37  46 2c 31 2c 31 0d 01 97  |.. 1,&17F,1,1...|
000029e0  0c 2a 46 58 31 31 32 2c  31 0d 01 98 27 f2 70 6c  |.*FX112,1...'.pl|
000029f0  6f 74 5f 73 70 72 69 74  65 28 35 31 32 2c 33 36  |ot_sprite(512,36|
00002a00  30 2c 31 2c 31 2c 31 2c  31 2c 22 6b 65 79 22 29  |0,1,1,1,1,"key")|
00002a10  0d 01 99 4f f2 74 65 78  74 5f 62 6f 78 28 31 30  |...O.text_box(10|
00002a20  30 2c 38 30 30 2c 31 30  38 30 2c 39 30 2c 32 2c  |0,800,1080,90,2,|
00002a30  22 57 65 6c 6c 20 64 6f  6e 65 2e 20 59 6f 75 20  |"Well done. You |
00002a40  68 61 76 65 20 75 6e 6c  6f 63 6b 65 64 20 74 68  |have unlocked th|
00002a50  65 20 63 6f 64 65 2e 22  2c 22 22 2c 22 22 29 0d  |e code.","","").|
00002a60  01 9a 17 f2 73 70 61 63  65 28 39 32 30 2c 32 32  |....space(920,22|
00002a70  30 2c 30 2c 30 29 0d 01  9b 1b 74 6f 74 61 6c 5f  |0,0,0)....total_|
00002a80  67 6f 74 25 3d 74 6f 74  61 6c 5f 67 6f 74 5f 66  |got%=total_got_f|
00002a90  70 0d 01 9c 05 e1 0d 01  9d 16 dd f2 70 69 70 65  |p...........pipe|
00002aa0  28 74 79 70 65 25 2c 61  6d 6d 25 29 0d 01 9e 09  |(type%,amm%)....|
00002ab0  f7 8d 74 72 41 0d 01 9f  12 e3 20 66 25 3d 31 20  |..trA..... f%=1 |
00002ac0  b8 20 74 79 70 65 25 0d  01 a0 15 f3 20 70 6f 73  |. type%..... pos|
00002ad0  78 25 2c 70 6f 73 79 25  2c 61 6d 25 0d 01 a1 12  |x%,posy%,am%....|
00002ae0  e3 20 66 66 25 3d 20 31  20 b8 20 61 6d 25 0d 01  |. ff%= 1 . am%..|
00002af0  a2 21 f3 20 70 69 70 65  73 25 28 66 66 25 2c 31  |.!. pipes%(ff%,1|
00002b00  29 2c 70 69 70 65 73 25  28 66 66 25 2c 32 29 0d  |),pipes%(ff%,2).|
00002b10  01 a3 05 ed 0d 01 a4 05  ed 0d 01 a5 1f f2 63 61  |..............ca|
00002b20  63 68 65 73 6f 75 6e 64  28 22 66 69 72 65 5f 62  |chesound("fire_b|
00002b30  75 62 62 32 22 2c 31 29  0d 01 a6 12 e3 20 66 66  |ubb2",1)..... ff|
00002b40  25 3d 20 31 20 b8 20 61  6d 25 0d 01 a7 1f e7 61  |%= 1 . am%.....a|
00002b50  6d 6d 25 3d 30 20 80 20  66 66 25 3d 32 3a 20 d4  |mm%=0 . ff%=2: .|
00002b60  31 2c 2d 31 35 2c 31 2c  31 0d 01 a8 15 e7 61 6d  |1,-15,1,1.....am|
00002b70  6d 25 3d 30 20 f2 73 74  5f 70 61 75 73 65 0d 01  |m%=0 .st_pause..|
00002b80  a9 4c e7 61 6d 6d 25 3d  30 20 f2 70 6c 6f 74 5f  |.L.amm%=0 .plot_|
00002b90  73 70 72 69 74 65 5f 6d  61 73 6b 65 64 28 70 6f  |sprite_masked(po|
00002ba0  73 78 25 2c 70 6f 73 79  25 2c 31 2c 31 2c 31 2c  |sx%,posy%,1,1,1,|
00002bb0  31 2c 22 70 69 70 65 22  2b c3 28 70 69 70 65 73  |1,"pipe"+.(pipes|
00002bc0  25 28 66 66 25 2c 31 29  29 29 0d 01 aa 4d e7 61  |%(ff%,1)))...M.a|
00002bd0  6d 6d 25 3d 31 20 f2 70  6c 6f 74 5f 73 70 72 69  |mm%=1 .plot_spri|
00002be0  74 65 5f 6d 61 73 6b 65  64 28 70 6f 73 78 25 2c  |te_masked(posx%,|
00002bf0  70 6f 73 79 25 2c 31 2c  31 2c 31 2c 31 2c 22 6f  |posy%,1,1,1,1,"o|
00002c00  70 69 70 65 22 2b c3 28  70 69 70 65 73 25 28 66  |pipe"+.(pipes%(f|
00002c10  66 25 2c 31 29 29 29 0d  01 ab 24 e7 20 70 69 70  |f%,1)))...$. pip|
00002c20  65 73 25 28 66 66 25 2c  32 29 3d 31 20 70 6f 73  |es%(ff%,2)=1 pos|
00002c30  79 25 3d 70 6f 73 79 25  2b 33 32 0d 01 ac 24 e7  |y%=posy%+32...$.|
00002c40  20 70 69 70 65 73 25 28  66 66 25 2c 32 29 3d 32  | pipes%(ff%,2)=2|
00002c50  20 70 6f 73 78 25 3d 70  6f 73 78 25 2b 33 32 0d  | posx%=posx%+32.|
00002c60  01 ad 24 e7 20 70 69 70  65 73 25 28 66 66 25 2c  |..$. pipes%(ff%,|
00002c70  32 29 3d 33 20 70 6f 73  79 25 3d 70 6f 73 79 25  |2)=3 posy%=posy%|
00002c80  2d 33 32 0d 01 ae 24 e7  20 70 69 70 65 73 25 28  |-32...$. pipes%(|
00002c90  66 66 25 2c 32 29 3d 34  20 70 6f 73 78 25 3d 70  |ff%,2)=4 posx%=p|
00002ca0  6f 73 78 25 2d 33 32 0d  01 af 19 e7 61 6d 6d 25  |osx%-32.....amm%|
00002cb0  3d 30 20 f2 65 6e 5f 70  61 75 73 65 28 32 30 29  |=0 .en_pause(20)|
00002cc0  0d 01 b0 05 ed 0d 01 b1  05 e1 0d 01 b2 2b dc 20  |.............+. |
00002cd0  33 38 34 2c 33 30 38 2c  37 2c 31 2c 32 2c 35 2c  |384,308,7,1,2,5,|
00002ce0  31 2c 32 2c 31 2c 32 2c  31 2c 34 2c 32 2c 31 2c  |1,2,1,2,1,4,2,1,|
00002cf0  32 2c 31 2c 32 0d 01 b3  2b dc 20 33 38 34 2c 36  |2,1,2...+. 384,6|
00002d00  32 38 2c 37 2c 31 2c 32  2c 33 2c 33 2c 32 2c 33  |28,7,1,2,3,3,2,3|
00002d10  2c 32 2c 33 2c 36 2c 32  2c 31 2c 32 2c 31 2c 32  |,2,3,6,2,1,2,1,2|
00002d20  0d 01 b4 17 dc 20 36 32  34 2c 36 33 36 2c 32 2c  |..... 624,636,2,|
00002d30  32 2c 33 2c 32 2c 33 0d  01 b5 2b dc 20 38 36 36  |2,3,2,3...+. 866|
00002d40  2c 36 33 32 2c 37 2c 31  2c 34 2c 34 2c 33 2c 32  |,632,7,1,4,4,3,2|
00002d50  2c 33 2c 32 2c 33 2c 35  2c 34 2c 31 2c 34 2c 31  |,3,2,3,5,4,1,4,1|
00002d60  2c 34 0d 01 b6 2b dc 20  38 36 36 2c 33 30 38 2c  |,4...+. 866,308,|
00002d70  37 2c 31 2c 34 2c 36 2c  31 2c 32 2c 31 2c 32 2c  |7,1,4,6,1,2,1,2,|
00002d80  31 2c 33 2c 34 2c 31 2c  34 2c 31 2c 34 0d 01 b7  |1,3,4,1,4,1,4...|
00002d90  17 dc 20 36 32 34 2c 32  39 36 2c 32 2c 32 2c 31  |.. 624,296,2,2,1|
00002da0  2c 32 2c 31 0d 01 b8 15  dd f2 73 65 74 5f 62 6f  |,2,1......set_bo|
00002db0  78 5f 63 6f 6e 74 65 6e  74 0d 01 b9 0d e3 66 25  |x_content.....f%|
00002dc0  3d 31 20 b8 20 36 0d 01  ba 0f 74 65 6d 70 25 28  |=1 . 6....temp%(|
00002dd0  66 25 29 3d 30 0d 01 bb  05 ed 0d 01 bc 0e e3 72  |f%)=0..........r|
00002de0  72 25 3d 31 20 b8 20 36  0d 01 bd 1d f5 3a 61 72  |r%=1 . 6.....:ar|
00002df0  25 3d b3 28 36 29 3a fd  20 74 65 6d 70 25 28 61  |%=.(6):. temp%(a|
00002e00  72 25 29 3d 30 0d 01 be  10 74 65 6d 70 25 28 61  |r%)=0....temp%(a|
00002e10  72 25 29 3d 31 0d 01 bf  19 63 62 6f 78 5f 74 79  |r%)=1....cbox_ty|
00002e20  70 65 25 28 72 72 25 2c  31 29 3d 61 72 25 0d 01  |pe%(rr%,1)=ar%..|
00002e30  c0 1c e7 61 72 25 3d 31  20 f2 73 65 74 5f 73 75  |...ar%=1 .set_su|
00002e40  6d 5f 6f 6e 65 28 72 72  25 29 0d 01 c1 1c e7 61  |m_one(rr%).....a|
00002e50  72 25 3d 32 20 f2 73 65  74 5f 73 75 6d 5f 74 77  |r%=2 .set_sum_tw|
00002e60  6f 28 72 72 25 29 0d 01  c2 1e e7 61 72 25 3d 33  |o(rr%).....ar%=3|
00002e70  20 f2 73 65 74 5f 73 75  6d 5f 74 68 72 65 65 28  | .set_sum_three(|
00002e80  72 72 25 29 0d 01 c3 1e  e7 61 72 25 3d 34 20 f2  |rr%).....ar%=4 .|
00002e90  73 65 74 5f 73 75 6d 5f  74 68 72 65 65 28 72 72  |set_sum_three(rr|
00002ea0  25 29 0d 01 c4 1d e7 61  72 25 3d 35 20 f2 73 65  |%).....ar%=5 .se|
00002eb0  74 5f 73 75 6d 5f 66 69  76 65 28 72 72 25 29 0d  |t_sum_five(rr%).|
00002ec0  01 c5 1c e7 61 72 25 3d  36 20 f2 73 65 74 5f 73  |....ar%=6 .set_s|
00002ed0  75 6d 5f 73 69 78 28 72  72 25 29 0d 01 c6 05 ed  |um_six(rr%).....|
00002ee0  0d 01 c7 05 e1 0d 01 c8  17 dd f2 63 68 61 6e 67  |...........chang|
00002ef0  65 5f 62 6f 78 28 62 6f  78 6e 25 29 0d 01 c9 0d  |e_box(boxn%)....|
00002f00  63 68 61 6e 67 65 25 3d  30 0d 01 ca 0b 61 6e 73  |change%=0....ans|
00002f10  77 25 3d 30 0d 01 cb 16  f2 64 65 66 69 6e 65 5f  |w%=0.....define_|
00002f20  62 75 74 74 6f 6e 73 28  32 29 0d 01 cc 1a f5 3a  |buttons(2).....:|
00002f30  c8 97 6d 78 25 2c 6d 79  25 2c 6d 63 25 3a fd 6d  |..mx%,my%,mc%:.m|
00002f40  63 25 3d 30 0d 01 cd 1f  e3 6d 73 78 66 25 3d 31  |c%=0.....msxf%=1|
00002f50  b8 31 30 3a c8 97 6d 78  25 2c 6d 79 25 2c 6d 63  |.10:..mx%,my%,mc|
00002f60  25 3a ed 0d 01 ce 17 e3  62 6e 25 3d 31 20 b8 20  |%:......bn%=1 . |
00002f70  74 6f 74 61 6c 5f 62 75  74 25 0d 01 cf 2f f2 62  |total_but%.../.b|
00002f80  75 74 5f 6f 66 66 28 62  75 74 25 28 62 6e 25 2c  |ut_off(but%(bn%,|
00002f90  30 29 2c 62 75 74 25 28  62 6e 25 2c 31 29 2c 62  |0),but%(bn%,1),b|
00002fa0  75 74 24 28 62 6e 25 29  29 0d 01 d0 05 ed 0d 01  |ut$(bn%)).......|
00002fb0  d1 07 c8 97 ee 0d 01 d2  05 f5 0d 01 d3 1b f2 63  |...............c|
00002fc0  68 65 63 6b 5f 62 75 74  74 6f 6e 73 28 61 6e 5f  |heck_buttons(an_|
00002fd0  6e 75 6d 25 29 0d 01 d4  10 fd 73 65 6c 65 63 74  |num%).....select|
00002fe0  65 64 25 3e 30 0d 01 d5  3e e7 20 73 65 6c 65 63  |ed%>0...>. selec|
00002ff0  74 65 64 25 3d 31 20 80  20 63 62 6f 78 5f 74 79  |ted%=1 . cbox_ty|
00003000  70 65 25 28 62 6f 78 6e  25 2c 38 29 3c 3e 63 62  |pe%(boxn%,8)<>cb|
00003010  6f 78 5f 74 79 70 65 25  28 62 6f 78 6e 25 2c 33  |ox_type%(boxn%,3|
00003020  29 20 8c 0d 01 d6 19 f2  63 61 63 68 65 73 6f 75  |) ......cachesou|
00003030  6e 64 28 22 70 6c 6f 70  22 2c 31 29 0d 01 d7 10  |nd("plop",1)....|
00003040  d4 20 31 2c 26 31 37 46  2c 31 2c 31 0d 01 d8 2d  |. 1,&17F,1,1...-|
00003050  63 62 6f 78 5f 74 79 70  65 25 28 62 6f 78 6e 25  |cbox_type%(boxn%|
00003060  2c 33 29 3d 63 62 6f 78  5f 74 79 70 65 25 28 62  |,3)=cbox_type%(b|
00003070  6f 78 6e 25 2c 33 29 2b  31 0d 01 d9 17 f2 70 72  |oxn%,3)+1.....pr|
00003080  69 6e 74 5f 76 61 6c 75  65 28 62 6f 78 6e 25 29  |int_value(boxn%)|
00003090  0d 01 da 05 cd 0d 01 db  3e e7 20 73 65 6c 65 63  |........>. selec|
000030a0  74 65 64 25 3d 32 20 80  20 63 62 6f 78 5f 74 79  |ted%=2 . cbox_ty|
000030b0  70 65 25 28 62 6f 78 6e  25 2c 37 29 3c 3e 63 62  |pe%(boxn%,7)<>cb|
000030c0  6f 78 5f 74 79 70 65 25  28 62 6f 78 6e 25 2c 33  |ox_type%(boxn%,3|
000030d0  29 20 8c 0d 01 dc 19 f2  63 61 63 68 65 73 6f 75  |) ......cachesou|
000030e0  6e 64 28 22 70 6c 6f 70  22 2c 31 29 0d 01 dd 10  |nd("plop",1)....|
000030f0  d4 20 31 2c 26 31 37 46  2c 31 2c 31 0d 01 de 2d  |. 1,&17F,1,1...-|
00003100  63 62 6f 78 5f 74 79 70  65 25 28 62 6f 78 6e 25  |cbox_type%(boxn%|
00003110  2c 33 29 3d 63 62 6f 78  5f 74 79 70 65 25 28 62  |,3)=cbox_type%(b|
00003120  6f 78 6e 25 2c 33 29 2d  31 0d 01 df 17 f2 70 72  |oxn%,3)-1.....pr|
00003130  69 6e 74 5f 76 61 6c 75  65 28 62 6f 78 6e 25 29  |int_value(boxn%)|
00003140  0d 01 e0 05 cd 0d 01 e1  13 e7 20 73 65 6c 65 63  |.......... selec|
00003150  74 65 64 25 3d 33 20 8c  0d 01 e2 0b 61 6e 73 77  |ted%=3 .....answ|
00003160  25 3d 31 0d 01 e3 05 cd  0d 01 e4 13 e7 20 73 65  |%=1.......... se|
00003170  6c 65 63 74 65 64 25 3d  34 20 8c 0d 01 e5 0d 63  |lected%=4 .....c|
00003180  68 61 6e 67 65 25 3d 31  0d 01 e6 05 cd 0d 01 e7  |hange%=1........|
00003190  05 e1 0d 01 e8 16 dd f2  68 69 67 68 6c 69 67 68  |........highligh|
000031a0  74 28 62 6f 78 6e 25 29  0d 01 e9 15 78 25 3d 63  |t(boxn%)....x%=c|
000031b0  62 6f 78 25 28 62 6f 78  6e 25 2c 31 29 0d 01 ea  |box%(boxn%,1)...|
000031c0  15 79 25 3d 63 62 6f 78  25 28 62 6f 78 6e 25 2c  |.y%=cbox%(boxn%,|
000031d0  32 29 0d 01 eb 16 f2 64  72 61 77 5f 72 6f 75 6e  |2).....draw_roun|
000031e0  64 28 78 25 2c 79 25 29  0d 01 ec 16 f2 64 65 66  |d(x%,y%).....def|
000031f0  69 6e 65 5f 62 75 74 74  6f 6e 73 28 32 29 0d 01  |ine_buttons(2)..|
00003200  ed 05 e1 0d 01 ee 17 dd  f2 64 72 61 77 5f 72 6f  |.........draw_ro|
00003210  75 6e 64 28 78 25 2c 79  25 29 0d 01 ef 09 e6 33  |und(x%,y%).....3|
00003220  2c 31 33 0d 01 f0 12 e3  66 25 3d 34 20 b8 20 34  |,13.....f%=4 . 4|
00003230  34 20 88 20 34 0d 01 f1  33 ec 20 78 25 2d 66 25  |4 . 4...3. x%-f%|
00003240  2c 79 25 2d 66 25 3a f0  20 39 2c 33 32 30 2b 28  |,y%-f%:. 9,320+(|
00003250  66 25 2a 32 29 2c 30 3a  f0 20 39 2c 30 2c 32 34  |f%*2),0:. 9,0,24|
00003260  38 2b 28 66 25 2a 32 29  0d 01 f2 2f f0 20 39 2c  |8+(f%*2).../. 9,|
00003270  28 33 32 30 2b 28 66 25  2a 32 29 29 2a 2d 31 2c  |(320+(f%*2))*-1,|
00003280  30 3a f0 20 39 2c 30 2c  28 32 34 38 2b 28 66 25  |0:. 9,0,(248+(f%|
00003290  2a 32 29 29 2a 2d 31 0d  01 f3 05 ed 0d 01 f4 05  |*2))*-1.........|
000032a0  e1 0d 01 f5 1b dd f2 70  72 69 6e 74 5f 76 61 6c  |.......print_val|
000032b0  75 65 28 62 6f 78 5f 6e  75 6d 25 29 0d 01 f6 1f  |ue(box_num%)....|
000032c0  e7 63 62 6f 78 5f 74 79  70 65 25 28 62 6f 78 5f  |.cbox_type%(box_|
000032d0  6e 75 6d 25 2c 31 29 3d  31 20 8c 0d 01 f7 16 f2  |num%,1)=1 ......|
000032e0  73 75 6d 5f 6f 6e 65 28  62 6f 78 5f 6e 75 6d 25  |sum_one(box_num%|
000032f0  29 0d 01 f8 05 cd 0d 01  f9 1f e7 63 62 6f 78 5f  |)..........cbox_|
00003300  74 79 70 65 25 28 62 6f  78 5f 6e 75 6d 25 2c 31  |type%(box_num%,1|
00003310  29 3d 32 20 8c 0d 01 fa  16 f2 73 75 6d 5f 74 77  |)=2 ......sum_tw|
00003320  6f 28 62 6f 78 5f 6e 75  6d 25 29 0d 01 fb 05 cd  |o(box_num%).....|
00003330  0d 01 fc 1f e7 63 62 6f  78 5f 74 79 70 65 25 28  |.....cbox_type%(|
00003340  62 6f 78 5f 6e 75 6d 25  2c 31 29 3d 33 20 8c 0d  |box_num%,1)=3 ..|
00003350  01 fd 1d f2 73 75 6d 5f  74 68 72 65 65 5f 66 6f  |....sum_three_fo|
00003360  75 72 28 62 6f 78 5f 6e  75 6d 25 29 0d 01 fe 05  |ur(box_num%)....|
00003370  cd 0d 01 ff 1f e7 63 62  6f 78 5f 74 79 70 65 25  |......cbox_type%|
00003380  28 62 6f 78 5f 6e 75 6d  25 2c 31 29 3d 34 20 8c  |(box_num%,1)=4 .|
00003390  0d 02 00 1d f2 73 75 6d  5f 74 68 72 65 65 5f 66  |.....sum_three_f|
000033a0  6f 75 72 28 62 6f 78 5f  6e 75 6d 25 29 0d 02 01  |our(box_num%)...|
000033b0  05 cd 0d 02 02 1f e7 63  62 6f 78 5f 74 79 70 65  |.......cbox_type|
000033c0  25 28 62 6f 78 5f 6e 75  6d 25 2c 31 29 3d 35 20  |%(box_num%,1)=5 |
000033d0  8c 0d 02 03 17 f2 73 75  6d 5f 66 69 76 65 28 62  |......sum_five(b|
000033e0  6f 78 5f 6e 75 6d 25 29  0d 02 04 05 cd 0d 02 05  |ox_num%)........|
000033f0  1f e7 63 62 6f 78 5f 74  79 70 65 25 28 62 6f 78  |..cbox_type%(box|
00003400  5f 6e 75 6d 25 2c 31 29  3d 36 20 8c 0d 02 06 16  |_num%,1)=6 .....|
00003410  f2 73 75 6d 5f 73 69 78  28 62 6f 78 5f 6e 75 6d  |.sum_six(box_num|
00003420  25 29 0d 02 07 05 cd 0d  02 08 05 e1 0d 02 09 17  |%)..............|
00003430  dd f2 73 75 6d 5f 6f 6e  65 28 62 6f 78 5f 6e 75  |..sum_one(box_nu|
00003440  6d 25 29 0d 02 0a 1e f2  63 6f 6e 6e 65 63 74 5f  |m%).....connect_|
00003450  62 6f 78 28 62 6f 78 5f  6e 75 6d 25 2c 31 32 38  |box(box_num%,128|
00003460  29 0d 02 0b 1f e7 63 62  6f 78 5f 74 79 70 65 25  |).....cbox_type%|
00003470  28 62 6f 78 5f 6e 75 6d  25 2c 32 29 3d 31 20 8c  |(box_num%,2)=1 .|
00003480  0d 02 0c 35 70 72 24 3d  c3 28 63 62 6f 78 5f 74  |...5pr$=.(cbox_t|
00003490  79 70 65 25 28 62 6f 78  5f 6e 75 6d 25 2c 33 29  |ype%(box_num%,3)|
000034a0  29 2b 22 78 22 2b c3 28  74 61 62 6c 65 73 25 28  |)+"x"+.(tables%(|
000034b0  31 2c 31 29 29 0d 02 0d  43 f2 70 6c 6f 74 5f 6e  |1,1))...C.plot_n|
000034c0  75 6d 62 65 72 73 28 63  62 6f 78 25 28 62 6f 78  |umbers(cbox%(box|
000034d0  5f 6e 75 6d 25 2c 31 29  2b 36 34 2c 63 62 6f 78  |_num%,1)+64,cbox|
000034e0  25 28 62 6f 78 5f 6e 75  6d 25 2c 32 29 2b 31 30  |%(box_num%,2)+10|
000034f0  30 2c 35 2c 70 72 24 29  0d 02 0e 05 cd 0d 02 0f  |0,5,pr$)........|
00003500  1f e7 63 62 6f 78 5f 74  79 70 65 25 28 62 6f 78  |..cbox_type%(box|
00003510  5f 6e 75 6d 25 2c 32 29  3d 32 20 8c 0d 02 10 35  |_num%,2)=2 ....5|
00003520  70 72 24 3d c3 28 74 61  62 6c 65 73 25 28 31 2c  |pr$=.(tables%(1,|
00003530  32 29 29 2b 22 78 22 2b  c3 28 63 62 6f 78 5f 74  |2))+"x"+.(cbox_t|
00003540  79 70 65 25 28 62 6f 78  5f 6e 75 6d 25 2c 33 29  |ype%(box_num%,3)|
00003550  29 0d 02 11 43 f2 70 6c  6f 74 5f 6e 75 6d 62 65  |)...C.plot_numbe|
00003560  72 73 28 63 62 6f 78 25  28 62 6f 78 5f 6e 75 6d  |rs(cbox%(box_num|
00003570  25 2c 31 29 2b 36 34 2c  63 62 6f 78 25 28 62 6f  |%,1)+64,cbox%(bo|
00003580  78 5f 6e 75 6d 25 2c 32  29 2b 31 30 30 2c 35 2c  |x_num%,2)+100,5,|
00003590  70 72 24 29 0d 02 12 05  cd 0d 02 13 05 e1 0d 02  |pr$)............|
000035a0  14 17 dd f2 73 75 6d 5f  74 77 6f 28 62 6f 78 5f  |....sum_two(box_|
000035b0  6e 75 6d 25 29 0d 02 15  1e f2 63 6f 6e 6e 65 63  |num%).....connec|
000035c0  74 5f 62 6f 78 28 62 6f  78 5f 6e 75 6d 25 2c 31  |t_box(box_num%,1|
000035d0  32 38 29 0d 02 16 2c e7  63 62 6f 78 5f 74 79 70  |28)...,.cbox_typ|
000035e0  65 25 28 62 6f 78 5f 6e  75 6d 25 2c 34 29 3d 31  |e%(box_num%,4)=1|
000035f0  20 6d 69 64 24 3d 22 6c  6f 74 73 20 6f 66 22 0d  | mid$="lots of".|
00003600  02 17 2c e7 63 62 6f 78  5f 74 79 70 65 25 28 62  |..,.cbox_type%(b|
00003610  6f 78 5f 6e 75 6d 25 2c  34 29 3d 32 20 6d 69 64  |ox_num%,4)=2 mid|
00003620  24 3d 22 73 65 74 73 20  6f 66 22 0d 02 18 1f e7  |$="sets of".....|
00003630  63 62 6f 78 5f 74 79 70  65 25 28 62 6f 78 5f 6e  |cbox_type%(box_n|
00003640  75 6d 25 2c 32 29 3d 31  20 8c 0d 02 19 37 70 72  |um%,2)=1 ....7pr|
00003650  31 24 3d c3 28 74 61 62  6c 65 73 25 28 31 2c 31  |1$=.(tables%(1,1|
00003660  29 29 3a 70 72 32 24 3d  c3 28 63 62 6f 78 5f 74  |)):pr2$=.(cbox_t|
00003670  79 70 65 25 28 62 6f 78  5f 6e 75 6d 25 2c 33 29  |ype%(box_num%,3)|
00003680  29 0d 02 1a 43 f2 70 6c  6f 74 5f 6e 75 6d 62 65  |)...C.plot_numbe|
00003690  72 73 28 63 62 6f 78 25  28 62 6f 78 5f 6e 75 6d  |rs(cbox%(box_num|
000036a0  25 2c 31 29 2b 38 2c 63  62 6f 78 25 28 62 6f 78  |%,1)+8,cbox%(box|
000036b0  5f 6e 75 6d 25 2c 32 29  2b 31 30 30 2c 32 2c 70  |_num%,2)+100,2,p|
000036c0  72 31 24 29 0d 02 1b 39  f2 70 72 69 28 63 62 6f  |r1$)...9.pri(cbo|
000036d0  78 25 28 62 6f 78 5f 6e  75 6d 25 2c 31 29 2b 39  |x%(box_num%,1)+9|
000036e0  30 2c 63 62 6f 78 25 28  62 6f 78 5f 6e 75 6d 25  |0,cbox%(box_num%|
000036f0  2c 32 29 2b 31 30 38 2c  6d 69 64 24 29 0d 02 1c  |,2)+108,mid$)...|
00003700  45 f2 70 6c 6f 74 5f 6e  75 6d 62 65 72 73 28 63  |E.plot_numbers(c|
00003710  62 6f 78 25 28 62 6f 78  5f 6e 75 6d 25 2c 31 29  |box%(box_num%,1)|
00003720  2b 32 33 30 2c 63 62 6f  78 25 28 62 6f 78 5f 6e  |+230,cbox%(box_n|
00003730  75 6d 25 2c 32 29 2b 31  30 30 2c 32 2c 70 72 32  |um%,2)+100,2,pr2|
00003740  24 29 0d 02 1d 05 cd 0d  02 1e 1f e7 63 62 6f 78  |$)..........cbox|
00003750  5f 74 79 70 65 25 28 62  6f 78 5f 6e 75 6d 25 2c  |_type%(box_num%,|
00003760  32 29 3d 32 20 8c 0d 02  1f 37 70 72 31 24 3d c3  |2)=2 ....7pr1$=.|
00003770  28 63 62 6f 78 5f 74 79  70 65 25 28 62 6f 78 5f  |(cbox_type%(box_|
00003780  6e 75 6d 25 2c 33 29 29  3a 70 72 32 24 3d c3 28  |num%,3)):pr2$=.(|
00003790  74 61 62 6c 65 73 25 28  31 2c 32 29 29 0d 02 20  |tables%(1,2)).. |
000037a0  43 f2 70 6c 6f 74 5f 6e  75 6d 62 65 72 73 28 63  |C.plot_numbers(c|
000037b0  62 6f 78 25 28 62 6f 78  5f 6e 75 6d 25 2c 31 29  |box%(box_num%,1)|
000037c0  2b 38 2c 63 62 6f 78 25  28 62 6f 78 5f 6e 75 6d  |+8,cbox%(box_num|
000037d0  25 2c 32 29 2b 31 30 30  2c 32 2c 70 72 31 24 29  |%,2)+100,2,pr1$)|
000037e0  0d 02 21 39 f2 70 72 69  28 63 62 6f 78 25 28 62  |..!9.pri(cbox%(b|
000037f0  6f 78 5f 6e 75 6d 25 2c  31 29 2b 39 30 2c 63 62  |ox_num%,1)+90,cb|
00003800  6f 78 25 28 62 6f 78 5f  6e 75 6d 25 2c 32 29 2b  |ox%(box_num%,2)+|
00003810  31 30 38 2c 6d 69 64 24  29 0d 02 22 45 f2 70 6c  |108,mid$).."E.pl|
00003820  6f 74 5f 6e 75 6d 62 65  72 73 28 63 62 6f 78 25  |ot_numbers(cbox%|
00003830  28 62 6f 78 5f 6e 75 6d  25 2c 31 29 2b 32 33 30  |(box_num%,1)+230|
00003840  2c 63 62 6f 78 25 28 62  6f 78 5f 6e 75 6d 25 2c  |,cbox%(box_num%,|
00003850  32 29 2b 31 30 30 2c 32  2c 70 72 32 24 29 0d 02  |2)+100,2,pr2$)..|
00003860  23 05 cd 0d 02 24 05 e1  0d 02 25 1e dd f2 73 75  |#....$....%...su|
00003870  6d 5f 74 68 72 65 65 5f  66 6f 75 72 28 62 6f 78  |m_three_four(box|
00003880  5f 6e 75 6d 25 29 0d 02  26 1e f2 63 6f 6e 6e 65  |_num%)..&..conne|
00003890  63 74 5f 62 6f 78 28 62  6f 78 5f 6e 75 6d 25 2c  |ct_box(box_num%,|
000038a0  31 32 39 29 0d 02 27 21  64 69 67 69 74 25 3d 63  |129)..'!digit%=c|
000038b0  62 6f 78 5f 74 79 70 65  25 28 62 6f 78 5f 6e 75  |box_type%(box_nu|
000038c0  6d 25 2c 32 29 0d 02 28  23 66 61 63 74 6f 72 31  |m%,2)..(#factor1|
000038d0  25 3d 63 62 6f 78 5f 74  79 70 65 25 28 62 6f 78  |%=cbox_type%(box|
000038e0  5f 6e 75 6d 25 2c 33 29  0d 02 29 23 66 61 63 74  |_num%,3)..)#fact|
000038f0  6f 72 32 25 3d 63 62 6f  78 5f 74 79 70 65 25 28  |or2%=cbox_type%(|
00003900  62 6f 78 5f 6e 75 6d 25  2c 34 29 0d 02 2a 21 67  |box_num%,4)..*!g|
00003910  72 6f 75 70 25 3d 63 62  6f 78 5f 74 79 70 65 25  |roup%=cbox_type%|
00003920  28 62 6f 78 5f 6e 75 6d  25 2c 35 29 0d 02 2b 2e  |(box_num%,5)..+.|
00003930  e7 64 69 67 69 74 25 3e  2d 31 20 80 20 64 69 67  |.digit%>-1 . dig|
00003940  69 74 25 3c 38 3a 67 74  24 3d 22 67 72 6f 75 70  |it%<8:gt$="group|
00003950  61 22 3a 20 f7 20 8d 44  48 42 0d 02 2c 2e e7 64  |a": . .DHB..,..d|
00003960  69 67 69 74 25 3e 37 20  80 20 64 69 67 69 74 25  |igit%>7 . digit%|
00003970  3c 31 36 3a 67 74 24 3d  22 67 72 6f 75 70 62 22  |<16:gt$="groupb"|
00003980  3a 20 f7 20 8d 44 49 42  0d 02 2d 2f e7 64 69 67  |: . .DIB..-/.dig|
00003990  69 74 25 3e 31 35 20 80  20 64 69 67 69 74 25 3c  |it%>15 . digit%<|
000039a0  32 34 3a 67 74 24 3d 22  67 72 6f 75 70 63 22 3a  |24:gt$="groupc":|
000039b0  20 f7 20 8d 44 4a 42 0d  02 2e 12 20 21 28 73 63  | . .DJB.... !(sc|
000039c0  61 6c 65 25 2b 30 29 3d  31 0d 02 2f 12 20 21 28  |ale%+0)=1../. !(|
000039d0  73 63 61 6c 65 25 2b 34  29 3d 31 0d 02 30 12 20  |scale%+4)=1..0. |
000039e0  21 28 73 63 61 6c 65 25  2b 38 29 3d 31 0d 02 31  |!(scale%+8)=1..1|
000039f0  13 20 21 28 73 63 61 6c  65 25 2b 31 32 29 3d 31  |. !(scale%+12)=1|
00003a00  0d 02 32 26 20 c8 99 22  4f 53 5f 53 70 72 69 74  |..2& .."OS_Sprit|
00003a10  65 4f 70 22 2c 26 31 33  43 2c 73 61 31 25 2c 67  |eOp",&13C,sa1%,g|
00003a20  74 24 2c 30 2c 30 0d 02  33 3f 20 c8 99 22 4f 53  |t$,0,0..3? .."OS|
00003a30  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 34 2c  |_SpriteOp",&134,|
00003a40  73 61 31 25 2c 22 67 72  6f 75 70 22 2b c3 28 67  |sa1%,"group"+.(g|
00003a50  72 6f 75 70 25 29 2c 30  2c 30 2c 38 2c 73 63 61  |roup%),0,0,8,sca|
00003a60  6c 65 25 2c 30 0d 02 34  12 e7 66 61 63 74 6f 72  |le%,0..4..factor|
00003a70  31 25 3c 3e 30 20 8c 0d  02 35 17 20 e3 20 61 6d  |1%<>0 ...5. . am|
00003a80  25 3d 31 20 b8 20 66 61  63 74 6f 72 31 25 0d 02  |%=1 . factor1%..|
00003a90  36 0d 20 f3 64 78 25 2c  64 79 25 0d 02 37 43 20  |6. .dx%,dy%..7C |
00003aa0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00003ab0  26 31 33 34 2c 73 61 31  25 2c 22 64 69 67 69 74  |&134,sa1%,"digit|
00003ac0  22 2b c3 28 64 69 67 69  74 25 29 2c 64 78 25 2c  |"+.(digit%),dx%,|
00003ad0  64 79 25 2c 38 2c 73 63  61 6c 65 25 2c 30 0d 02  |dy%,8,scale%,0..|
00003ae0  38 06 20 ed 0d 02 39 05  cd 0d 02 3a 22 20 c8 99  |8. ...9....:" ..|
00003af0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00003b00  33 43 2c 73 61 31 25 2c  30 2c 31 0d 02 3b 1e 20  |3C,sa1%,0,1..;. |
00003b10  e7 56 25 3d 31 20 ef 20  32 33 2c 31 37 2c 37 2c  |.V%=1 . 23,17,7,|
00003b20  36 2c 38 3b 31 36 3b 30  3b 0d 02 3c 19 20 c8 99  |6,8;16;0;..<. ..|
00003b30  22 4f 53 5f 52 65 6d 6f  76 65 43 75 72 73 6f 72  |"OS_RemoveCursor|
00003b40  73 22 0d 02 3d 18 78 25  3d 63 62 6f 78 25 28 62  |s"..=.x%=cbox%(b|
00003b50  6f 78 5f 6e 75 6d 25 2c  31 29 0d 02 3e 18 79 25  |ox_num%,1)..>.y%|
00003b60  3d 63 62 6f 78 25 28 62  6f 78 5f 6e 75 6d 25 2c  |=cbox%(box_num%,|
00003b70  32 29 0d 02 3f 20 e7 67  72 6f 75 70 25 3e 2d 31  |2)..? .group%>-1|
00003b80  20 80 20 67 72 6f 75 70  25 3c 38 20 f7 20 8d 44  | . group%<8 . .D|
00003b90  4b 42 0d 02 40 20 e7 67  72 6f 75 70 25 3e 37 20  |KB..@ .group%>7 |
00003ba0  80 20 67 72 6f 75 70 25  3c 31 36 20 f7 20 8d 44  |. group%<16 . .D|
00003bb0  4c 42 0d 02 41 21 e7 67  72 6f 75 70 25 3e 31 35  |LB..A!.group%>15|
00003bc0  20 80 20 67 72 6f 75 70  25 3c 32 34 20 f7 20 8d  | . group%<24 . .|
00003bd0  44 4d 42 0d 02 42 16 e3  20 61 6d 25 3d 31 20 b8  |DMB..B.. am%=1 .|
00003be0  20 66 61 63 74 6f 72 32  25 0d 02 43 0d f3 20 78  | factor2%..C.. x|
00003bf0  78 25 2c 79 79 25 0d 02  44 2b f2 70 6c 6f 74 5f  |x%,yy%..D+.plot_|
00003c00  73 70 72 69 74 65 28 78  25 2b 78 78 25 2c 79 25  |sprite(x%+xx%,y%|
00003c10  2b 79 79 25 2c 31 2c 31  2c 31 2c 31 2c 67 74 24  |+yy%,1,1,1,1,gt$|
00003c20  29 0d 02 45 05 ed 0d 02  46 06 fb 33 0d 02 47 05  |)..E....F..3..G.|
00003c30  e1 0d 02 48 46 dc 20 31  38 2c 32 34 2c 33 36 2c  |...HF. 18,24,36,|
00003c40  32 34 2c 33 36 2c 34 38  2c 31 38 2c 34 38 2c 31  |24,36,48,18,48,1|
00003c50  38 2c 30 2c 33 36 2c 30  2c 35 34 2c 30 2c 35 34  |8,0,36,0,54,0,54|
00003c60  2c 32 34 2c 35 34 2c 34  38 2c 30 2c 32 34 2c 30  |,24,54,48,0,24,0|
00003c70  2c 30 2c 30 2c 34 38 0d  02 49 47 dc 20 30 2c 30  |,0,0,48..IG. 0,0|
00003c80  2c 30 2c 32 30 2c 30 2c  34 30 2c 30 2c 36 30 2c  |,0,20,0,40,0,60,|
00003c90  30 2c 38 30 2c 30 2c 31  30 30 2c 30 2c 31 32 30  |0,80,0,100,0,120|
00003ca0  2c 30 2c 31 34 30 2c 30  2c 31 36 30 2c 30 2c 31  |,0,140,0,160,0,1|
00003cb0  38 30 2c 30 2c 32 30 30  2c 30 2c 32 32 30 0d 02  |80,0,200,0,220..|
00003cc0  4a 48 dc 20 30 2c 30 2c  32 36 2c 30 2c 35 32 2c  |JH. 0,0,26,0,52,|
00003cd0  30 2c 37 38 2c 30 2c 31  30 34 2c 30 2c 31 33 30  |0,78,0,104,0,130|
00003ce0  2c 30 2c 31 35 36 2c 30  2c 31 38 32 2c 30 2c 32  |,0,156,0,182,0,2|
00003cf0  30 38 2c 30 2c 32 33 34  2c 30 2c 32 36 30 2c 30  |08,0,234,0,260,0|
00003d00  2c 32 38 36 2c 30 0d 02  4b 50 dc 20 31 36 32 2c  |,286,0..KP. 162,|
00003d10  38 34 2c 38 34 2c 38 34  2c 38 2c 31 36 34 2c 32  |84,84,84,8,164,2|
00003d20  33 38 2c 34 2c 38 34 2c  34 2c 31 36 32 2c 31 36  |38,4,84,4,162,16|
00003d30  34 2c 32 33 38 2c 31 36  34 2c 38 2c 34 2c 32 33  |4,238,164,8,4,23|
00003d40  38 2c 38 34 2c 38 2c 38  34 2c 38 34 2c 31 36 34  |8,84,8,84,84,164|
00003d50  2c 31 36 32 2c 34 0d 02  4c 48 dc 20 34 2c 38 2c  |,162,4..LH. 4,8,|
00003d60  33 30 2c 38 2c 35 36 2c  38 2c 38 32 2c 38 2c 31  |30,8,56,8,82,8,1|
00003d70  30 38 2c 38 2c 31 33 34  2c 38 2c 31 36 30 2c 38  |08,8,134,8,160,8|
00003d80  2c 31 38 36 2c 38 2c 32  31 30 2c 38 2c 32 33 38  |,186,8,210,8,238|
00003d90  2c 38 2c 32 36 34 2c 38  2c 32 39 30 2c 38 0d 02  |,8,264,8,290,8..|
00003da0  4d 47 dc 20 34 2c 38 2c  34 2c 32 38 2c 34 2c 34  |MG. 4,8,4,28,4,4|
00003db0  38 2c 34 2c 36 38 2c 34  2c 38 38 2c 34 2c 31 30  |8,4,68,4,88,4,10|
00003dc0  38 2c 34 2c 31 32 38 2c  34 2c 31 34 38 2c 34 2c  |8,4,128,4,148,4,|
00003dd0  31 36 38 2c 34 2c 31 38  38 2c 34 2c 32 30 38 2c  |168,4,188,4,208,|
00003de0  34 2c 32 32 38 0d 02 4e  18 dd f2 73 75 6d 5f 66  |4,228..N...sum_f|
00003df0  69 76 65 28 62 6f 78 5f  6e 75 6d 25 29 0d 02 4f  |ive(box_num%)..O|
00003e00  1e f2 63 6f 6e 6e 65 63  74 5f 62 6f 78 28 62 6f  |..connect_box(bo|
00003e10  78 5f 6e 75 6d 25 2c 31  32 38 29 0d 02 50 23 66  |x_num%,128)..P#f|
00003e20  61 63 74 6f 72 31 25 3d  63 62 6f 78 5f 74 79 70  |actor1%=cbox_typ|
00003e30  65 25 28 62 6f 78 5f 6e  75 6d 25 2c 33 29 0d 02  |e%(box_num%,3)..|
00003e40  51 23 66 61 63 74 6f 72  32 25 3d 63 62 6f 78 5f  |Q#factor2%=cbox_|
00003e50  74 79 70 65 25 28 62 6f  78 5f 6e 75 6d 25 2c 34  |type%(box_num%,4|
00003e60  29 0d 02 52 0a f7 20 8d  44 67 42 0d 02 53 14 e3  |)..R.. .DgB..S..|
00003e70  66 25 3d 30 20 b8 20 66  61 63 74 6f 72 31 25 0d  |f%=0 . factor1%.|
00003e80  02 54 0e f3 20 61 24 2c  62 24 2c 63 24 0d 02 55  |.T.. a$,b$,c$..U|
00003e90  05 ed 0d 02 56 12 6e 24  3d c3 28 66 61 63 74 6f  |....V.n$=.(facto|
00003ea0  72 32 25 29 0d 02 57 18  e7 20 66 61 63 74 6f 72  |r2%)..W.. factor|
00003eb0  32 25 3d 31 30 20 6e 24  3d 22 71 22 0d 02 58 18  |2%=10 n$="q"..X.|
00003ec0  e7 20 66 61 63 74 6f 72  32 25 3d 31 31 20 6e 24  |. factor2%=11 n$|
00003ed0  3d 22 73 22 0d 02 59 18  e7 20 66 61 63 74 6f 72  |="s"..Y.. factor|
00003ee0  32 25 3d 31 32 20 6e 24  3d 22 77 22 0d 02 5a 0f  |2%=12 n$="w"..Z.|
00003ef0  e3 66 25 3d 31 b8 20 a9  20 61 24 0d 02 5b 21 e7  |.f%=1. . a$..[!.|
00003f00  c1 61 24 2c 66 25 2c 31  29 3d 22 35 22 20 8c 20  |.a$,f%,1)="5" . |
00003f10  c1 61 24 2c 66 25 2c 31  29 3d 6e 24 0d 02 5c 05  |.a$,f%,1)=n$..\.|
00003f20  ed 0d 02 5d 0f e3 66 25  3d 31 b8 20 a9 20 62 24  |...]..f%=1. . b$|
00003f30  0d 02 5e 21 e7 c1 62 24  2c 66 25 2c 31 29 3d 22  |..^!..b$,f%,1)="|
00003f40  35 22 20 8c 20 c1 62 24  2c 66 25 2c 31 29 3d 6e  |5" . .b$,f%,1)=n|
00003f50  24 0d 02 5f 05 ed 0d 02  60 0f e3 66 25 3d 31 b8  |$.._....`..f%=1.|
00003f60  20 a9 20 63 24 0d 02 61  21 e7 c1 63 24 2c 66 25  | . c$..a!..c$,f%|
00003f70  2c 31 29 3d 22 35 22 20  8c 20 c1 63 24 2c 66 25  |,1)="5" . .c$,f%|
00003f80  2c 31 29 3d 6e 24 0d 02  62 05 ed 0d 02 63 42 f2  |,1)=n$..b....cB.|
00003f90  70 6c 6f 74 5f 6e 75 6d  62 65 72 73 28 63 62 6f  |plot_numbers(cbo|
00003fa0  78 25 28 62 6f 78 5f 6e  75 6d 25 2c 31 29 2b 31  |x%(box_num%,1)+1|
00003fb0  36 2c 63 62 6f 78 25 28  62 6f 78 5f 6e 75 6d 25  |6,cbox%(box_num%|
00003fc0  2c 32 29 2b 31 37 30 2c  35 2c 61 24 29 0d 02 64  |,2)+170,5,a$)..d|
00003fd0  42 f2 70 6c 6f 74 5f 6e  75 6d 62 65 72 73 28 63  |B.plot_numbers(c|
00003fe0  62 6f 78 25 28 62 6f 78  5f 6e 75 6d 25 2c 31 29  |box%(box_num%,1)|
00003ff0  2b 31 36 2c 63 62 6f 78  25 28 62 6f 78 5f 6e 75  |+16,cbox%(box_nu|
00004000  6d 25 2c 32 29 2b 31 30  30 2c 35 2c 62 24 29 0d  |m%,2)+100,5,b$).|
00004010  02 65 41 f2 70 6c 6f 74  5f 6e 75 6d 62 65 72 73  |.eA.plot_numbers|
00004020  28 63 62 6f 78 25 28 62  6f 78 5f 6e 75 6d 25 2c  |(cbox%(box_num%,|
00004030  31 29 2b 31 36 2c 63 62  6f 78 25 28 62 6f 78 5f  |1)+16,cbox%(box_|
00004040  6e 75 6d 25 2c 32 29 2b  33 30 2c 35 2c 63 24 29  |num%,2)+30,5,c$)|
00004050  0d 02 66 05 e1 0d 02 67  4b dc 20 64 2c 64 2c 64  |..f....gK. d,d,d|
00004060  2c 35 2c 64 2c 64 2c 35  2b 35 2c 64 2c 64 2c 35  |,5,d,d,5+5,d,d,5|
00004070  2b 35 2b 35 2c 64 2c 64  2c 35 2b 35 2b 35 2b 35  |+5+5,d,d,5+5+5+5|
00004080  2c 64 2c 64 2c 35 2b 35  2b 35 2b 35 2b 2c 35 2c  |,d,d,5+5+5+5+,5,|
00004090  64 2c 35 2b 35 2b 35 2b  35 2b 2c 35 2b 35 2c 64  |d,5+5+5+5+,5+5,d|
000040a0  0d 02 68 53 dc 20 35 2b  35 2b 35 2b 35 2b 2c 35  |..hS. 5+5+5+5+,5|
000040b0  2b 35 2b 35 2c 64 2c 35  2b 35 2b 35 2b 35 2b 2c  |+5+5,d,5+5+5+5+,|
000040c0  35 2b 35 2b 35 2b 35 2c  64 2c 35 2b 35 2b 35 2b  |5+5+5+5,d,5+5+5+|
000040d0  35 2b 2c 35 2b 35 2b 35  2b 35 2b 2c 35 2c 35 2b  |5+,5+5+5+5+,5,5+|
000040e0  35 2b 35 2b 35 2b 2c 35  2b 35 2b 35 2b 35 2b 2c  |5+5+5+,5+5+5+5+,|
000040f0  35 2b 35 0d 02 69 37 dc  20 35 2b 35 2b 35 2b 35  |5+5..i7. 5+5+5+5|
00004100  2b 2c 35 2b 35 2b 35 2b  35 2b 2c 35 2b 35 2b 35  |+,5+5+5+5+,5+5+5|
00004110  2c 35 2b 35 2b 35 2b 35  2b 2c 35 2b 35 2b 35 2b  |,5+5+5+5+,5+5+5+|
00004120  35 2b 2c 35 2b 35 2b 35  2b 35 0d 02 6a 17 dd f2  |5+,5+5+5+5..j...|
00004130  73 75 6d 5f 73 69 78 28  62 6f 78 5f 6e 75 6d 25  |sum_six(box_num%|
00004140  29 0d 02 6b 1e f2 63 6f  6e 6e 65 63 74 5f 62 6f  |)..k..connect_bo|
00004150  78 28 62 6f 78 5f 6e 75  6d 25 2c 31 32 38 29 0d  |x(box_num%,128).|
00004160  02 6c 23 66 61 63 74 6f  72 31 25 3d 63 62 6f 78  |.l#factor1%=cbox|
00004170  5f 74 79 70 65 25 28 62  6f 78 5f 6e 75 6d 25 2c  |_type%(box_num%,|
00004180  33 29 0d 02 6d 17 74 65  6e 73 25 3d 66 61 63 74  |3)..m.tens%=fact|
00004190  6f 72 31 25 20 81 20 31  30 0d 02 6e 18 75 6e 69  |or1% . 10..n.uni|
000041a0  74 73 25 3d 66 61 63 74  6f 72 31 25 20 83 20 31  |ts%=factor1% . 1|
000041b0  30 0d 02 6f 18 78 25 3d  63 62 6f 78 25 28 62 6f  |0..o.x%=cbox%(bo|
000041c0  78 5f 6e 75 6d 25 2c 31  29 0d 02 70 18 79 25 3d  |x_num%,1)..p.y%=|
000041d0  63 62 6f 78 25 28 62 6f  78 5f 6e 75 6d 25 2c 32  |cbox%(box_num%,2|
000041e0  29 0d 02 71 09 78 78 25  3d 38 0d 02 72 21 e7 63  |)..q.xx%=8..r!.c|
000041f0  62 6f 78 5f 74 79 70 65  25 28 62 6f 78 5f 6e 75  |box_type%(box_nu|
00004200  6d 25 2c 36 29 3e 31 38  30 20 8c 0d 02 73 0e e7  |m%,6)>180 ...s..|
00004210  74 65 6e 73 25 3e 30 20  8c 0d 02 74 11 e3 66 25  |tens%>0 ...t..f%|
00004220  3d 31 20 b8 20 74 65 6e  73 25 0d 02 75 2c f2 70  |=1 . tens%..u,.p|
00004230  6c 6f 74 5f 73 70 72 69  74 65 28 78 25 2b 78 78  |lot_sprite(x%+xx|
00004240  25 2c 79 25 2b 38 2c 31  2c 31 2c 31 2c 31 2c 22  |%,y%+8,1,1,1,1,"|
00004250  74 65 6e 73 22 29 0d 02  76 0e 78 78 25 3d 78 78  |tens")..v.xx%=xx|
00004260  25 2b 32 36 0d 02 77 05  ed 0d 02 78 05 cd 0d 02  |%+26..w....x....|
00004270  79 0f e7 75 6e 69 74 73  25 3e 30 20 8c 0d 02 7a  |y..units%>0 ...z|
00004280  36 f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 78 25  |6.plot_sprite(x%|
00004290  2b 78 78 25 2c 79 25 2b  38 2c 31 2c 31 2c 31 2c  |+xx%,y%+8,1,1,1,|
000042a0  31 2c 22 75 6e 69 74 22  2b c3 28 75 6e 69 74 73  |1,"unit"+.(units|
000042b0  25 29 29 0d 02 7b 05 cd  0d 02 7c 05 cc 0d 02 7d  |%))..{....|....}|
000042c0  13 70 72 24 3d c3 28 66  61 63 74 6f 72 31 25 29  |.pr$=.(factor1%)|
000042d0  0d 02 7e 43 f2 70 6c 6f  74 5f 6e 75 6d 62 65 72  |..~C.plot_number|
000042e0  73 28 63 62 6f 78 25 28  62 6f 78 5f 6e 75 6d 25  |s(cbox%(box_num%|
000042f0  2c 31 29 2b 38 38 2c 63  62 6f 78 25 28 62 6f 78  |,1)+88,cbox%(box|
00004300  5f 6e 75 6d 25 2c 32 29  2b 31 30 30 2c 33 2c 70  |_num%,2)+100,3,p|
00004310  72 24 29 0d 02 7f 05 cd  0d 02 80 05 e1 0d 02 81  |r$).............|
00004320  23 dc 20 33 32 2c 31 32  2c 34 38 2c 31 32 2c 36  |#. 32,12,48,12,6|
00004330  34 2c 31 32 2c 38 30 2c  31 32 2c 39 36 2c 31 32  |4,12,80,12,96,12|
00004340  0d 02 82 28 dc 20 33 32  2c 31 30 30 2c 34 38 2c  |...(. 32,100,48,|
00004350  31 30 30 2c 36 34 2c 31  30 30 2c 38 30 2c 31 30  |100,64,100,80,10|
00004360  30 2c 39 36 2c 31 30 30  0d 02 83 1b dd f2 73 65  |0,96,100......se|
00004370  74 5f 73 75 6d 5f 6f 6e  65 28 62 6f 78 5f 6e 75  |t_sum_one(box_nu|
00004380  6d 25 29 0d 02 84 1c 63  62 6f 78 5f 74 79 70 65  |m%)....cbox_type|
00004390  25 28 62 6f 78 5f 6e 75  6d 25 2c 31 29 3d 31 0d  |%(box_num%,1)=1.|
000043a0  02 85 2b 63 62 6f 78 5f  74 79 70 65 25 28 62 6f  |..+cbox_type%(bo|
000043b0  78 5f 6e 75 6d 25 2c 32  29 3d 66 69 72 73 74 5f  |x_num%,2)=first_|
000043c0  6f 72 5f 73 65 63 6f 6e  64 25 0d 02 86 19 e7 66  |or_second%.....f|
000043d0  69 72 73 74 5f 6f 72 5f  73 65 63 6f 6e 64 25 3d  |irst_or_second%=|
000043e0  31 20 8c 0d 02 87 18 61  6e 73 77 65 72 25 3d 74  |1 .....answer%=t|
000043f0  61 62 6c 65 73 25 28 31  2c 32 29 0d 02 88 05 cc  |ables%(1,2).....|
00004400  0d 02 89 18 61 6e 73 77  65 72 25 3d 74 61 62 6c  |....answer%=tabl|
00004410  65 73 25 28 31 2c 31 29  0d 02 8a 05 cd 0d 02 8b  |es%(1,1)........|
00004420  05 f5 0d 02 8c 0c 61 25  3d b3 28 31 30 29 0d 02  |......a%=.(10)..|
00004430  8d 18 fd 20 61 25 3c 3e  61 6e 73 77 65 72 25 20  |... a%<>answer% |
00004440  80 20 61 25 3e 30 0d 02  8e 1d 63 62 6f 78 5f 74  |. a%>0....cbox_t|
00004450  79 70 65 25 28 62 6f 78  5f 6e 75 6d 25 2c 33 29  |ype%(box_num%,3)|
00004460  3d 61 25 0d 02 8f 1c 63  62 6f 78 5f 74 79 70 65  |=a%....cbox_type|
00004470  25 28 62 6f 78 5f 6e 75  6d 25 2c 34 29 3d 30 0d  |%(box_num%,4)=0.|
00004480  02 90 22 63 62 6f 78 5f  74 79 70 65 25 28 62 6f  |.."cbox_type%(bo|
00004490  78 5f 6e 75 6d 25 2c 36  29 3d 61 6e 73 77 65 72  |x_num%,6)=answer|
000044a0  25 0d 02 91 1c 63 62 6f  78 5f 74 79 70 65 25 28  |%....cbox_type%(|
000044b0  62 6f 78 5f 6e 75 6d 25  2c 37 29 3d 30 0d 02 92  |box_num%,7)=0...|
000044c0  1d 63 62 6f 78 5f 74 79  70 65 25 28 62 6f 78 5f  |.cbox_type%(box_|
000044d0  6e 75 6d 25 2c 38 29 3d  31 32 0d 02 93 05 e1 0d  |num%,8)=12......|
000044e0  02 94 1b dd f2 73 65 74  5f 73 75 6d 5f 74 77 6f  |.....set_sum_two|
000044f0  28 62 6f 78 5f 6e 75 6d  25 29 0d 02 95 1c 63 62  |(box_num%)....cb|
00004500  6f 78 5f 74 79 70 65 25  28 62 6f 78 5f 6e 75 6d  |ox_type%(box_num|
00004510  25 2c 31 29 3d 32 0d 02  96 2b 63 62 6f 78 5f 74  |%,1)=2...+cbox_t|
00004520  79 70 65 25 28 62 6f 78  5f 6e 75 6d 25 2c 32 29  |ype%(box_num%,2)|
00004530  3d 66 69 72 73 74 5f 6f  72 5f 73 65 63 6f 6e 64  |=first_or_second|
00004540  25 0d 02 97 19 e7 66 69  72 73 74 5f 6f 72 5f 73  |%.....first_or_s|
00004550  65 63 6f 6e 64 25 3d 31  20 8c 0d 02 98 18 61 6e  |econd%=1 .....an|
00004560  73 77 65 72 25 3d 74 61  62 6c 65 73 25 28 31 2c  |swer%=tables%(1,|
00004570  32 29 0d 02 99 05 cc 0d  02 9a 18 61 6e 73 77 65  |2).........answe|
00004580  72 25 3d 74 61 62 6c 65  73 25 28 31 2c 31 29 0d  |r%=tables%(1,1).|
00004590  02 9b 05 cd 0d 02 9c 05  f5 0d 02 9d 0c 61 25 3d  |.............a%=|
000045a0  b3 28 31 30 29 0d 02 9e  18 fd 20 61 25 3c 3e 61  |.(10)..... a%<>a|
000045b0  6e 73 77 65 72 25 20 80  20 61 25 3e 30 0d 02 9f  |nswer% . a%>0...|
000045c0  1d 63 62 6f 78 5f 74 79  70 65 25 28 62 6f 78 5f  |.cbox_type%(box_|
000045d0  6e 75 6d 25 2c 33 29 3d  61 25 0d 02 a0 1f 63 62  |num%,3)=a%....cb|
000045e0  6f 78 5f 74 79 70 65 25  28 62 6f 78 5f 6e 75 6d  |ox_type%(box_num|
000045f0  25 2c 34 29 3d b3 28 32  29 0d 02 a1 22 63 62 6f  |%,4)=.(2)..."cbo|
00004600  78 5f 74 79 70 65 25 28  62 6f 78 5f 6e 75 6d 25  |x_type%(box_num%|
00004610  2c 36 29 3d 61 6e 73 77  65 72 25 0d 02 a2 1c 63  |,6)=answer%....c|
00004620  62 6f 78 5f 74 79 70 65  25 28 62 6f 78 5f 6e 75  |box_type%(box_nu|
00004630  6d 25 2c 37 29 3d 30 0d  02 a3 1d 63 62 6f 78 5f  |m%,7)=0....cbox_|
00004640  74 79 70 65 25 28 62 6f  78 5f 6e 75 6d 25 2c 38  |type%(box_num%,8|
00004650  29 3d 31 32 0d 02 a4 05  e1 0d 02 a5 1d dd f2 73  |)=12...........s|
00004660  65 74 5f 73 75 6d 5f 74  68 72 65 65 28 62 6f 78  |et_sum_three(box|
00004670  5f 6e 75 6d 25 29 0d 02  a6 1c 63 62 6f 78 5f 74  |_num%)....cbox_t|
00004680  79 70 65 25 28 62 6f 78  5f 6e 75 6d 25 2c 31 29  |ype%(box_num%,1)|
00004690  3d 33 0d 02 a7 18 61 6e  73 77 65 72 25 3d 74 61  |=3....answer%=ta|
000046a0  62 6c 65 73 25 28 31 2c  32 29 0d 02 a8 05 f5 0d  |bles%(1,2)......|
000046b0  02 a9 0c 61 25 3d b3 28  31 30 29 0d 02 aa 18 fd  |...a%=.(10).....|
000046c0  20 61 25 3c 3e 61 6e 73  77 65 72 25 20 80 20 61  | a%<>answer% . a|
000046d0  25 3e 30 0d 02 ab 1d 63  62 6f 78 5f 74 79 70 65  |%>0....cbox_type|
000046e0  25 28 62 6f 78 5f 6e 75  6d 25 2c 33 29 3d 61 25  |%(box_num%,3)=a%|
000046f0  0d 02 ac 27 63 62 6f 78  5f 74 79 70 65 25 28 62  |...'cbox_type%(b|
00004700  6f 78 5f 6e 75 6d 25 2c  34 29 3d 74 61 62 6c 65  |ox_num%,4)=table|
00004710  73 25 28 31 2c 31 29 0d  02 ad 0c 67 72 25 3d b3  |s%(1,1)....gr%=.|
00004720  28 33 29 0d 02 ae 14 67  72 6f 25 3d 28 28 67 72  |(3)....gro%=((gr|
00004730  25 2d 31 29 2a 38 29 0d  02 af 28 63 62 6f 78 5f  |%-1)*8)...(cbox_|
00004740  74 79 70 65 25 28 62 6f  78 5f 6e 75 6d 25 2c 35  |type%(box_num%,5|
00004750  29 3d 67 72 6f 25 2b 28  b3 28 38 29 2d 31 29 0d  |)=gro%+(.(8)-1).|
00004760  02 b0 28 63 62 6f 78 5f  74 79 70 65 25 28 62 6f  |..(cbox_type%(bo|
00004770  78 5f 6e 75 6d 25 2c 32  29 3d 67 72 6f 25 2b 28  |x_num%,2)=gro%+(|
00004780  b3 28 38 29 2d 31 29 0d  02 b1 22 63 62 6f 78 5f  |.(8)-1)..."cbox_|
00004790  74 79 70 65 25 28 62 6f  78 5f 6e 75 6d 25 2c 36  |type%(box_num%,6|
000047a0  29 3d 61 6e 73 77 65 72  25 0d 02 b2 1c 63 62 6f  |)=answer%....cbo|
000047b0  78 5f 74 79 70 65 25 28  62 6f 78 5f 6e 75 6d 25  |x_type%(box_num%|
000047c0  2c 37 29 3d 30 0d 02 b3  1d 63 62 6f 78 5f 74 79  |,7)=0....cbox_ty|
000047d0  70 65 25 28 62 6f 78 5f  6e 75 6d 25 2c 38 29 3d  |pe%(box_num%,8)=|
000047e0  31 32 0d 02 b4 05 e1 0d  02 b5 1c dd f2 73 65 74  |12...........set|
000047f0  5f 73 75 6d 5f 66 6f 75  72 28 62 6f 78 5f 6e 75  |_sum_four(box_nu|
00004800  6d 25 29 0d 02 b6 1c 63  62 6f 78 5f 74 79 70 65  |m%)....cbox_type|
00004810  25 28 62 6f 78 5f 6e 75  6d 25 2c 31 29 3d 34 0d  |%(box_num%,1)=4.|
00004820  02 b7 18 61 6e 73 77 65  72 25 3d 74 61 62 6c 65  |...answer%=table|
00004830  73 25 28 31 2c 32 29 0d  02 b8 05 f5 0d 02 b9 0c  |s%(1,2).........|
00004840  61 25 3d b3 28 31 30 29  0d 02 ba 18 fd 20 61 25  |a%=.(10)..... a%|
00004850  3c 3e 61 6e 73 77 65 72  25 20 80 20 61 25 3e 30  |<>answer% . a%>0|
00004860  0d 02 bb 27 63 62 6f 78  5f 74 79 70 65 25 28 62  |...'cbox_type%(b|
00004870  6f 78 5f 6e 75 6d 25 2c  33 29 3d 74 61 62 6c 65  |ox_num%,3)=table|
00004880  73 25 28 31 2c 31 29 0d  02 bc 1d 63 62 6f 78 5f  |s%(1,1)....cbox_|
00004890  74 79 70 65 25 28 62 6f  78 5f 6e 75 6d 25 2c 34  |type%(box_num%,4|
000048a0  29 3d 61 25 0d 02 bd 0c  67 72 25 3d b3 28 33 29  |)=a%....gr%=.(3)|
000048b0  0d 02 be 14 67 72 6f 25  3d 28 28 67 72 25 2d 31  |....gro%=((gr%-1|
000048c0  29 2a 38 29 0d 02 bf 28  63 62 6f 78 5f 74 79 70  |)*8)...(cbox_typ|
000048d0  65 25 28 62 6f 78 5f 6e  75 6d 25 2c 35 29 3d 67  |e%(box_num%,5)=g|
000048e0  72 6f 25 2b 28 b3 28 38  29 2d 31 29 0d 02 c0 28  |ro%+(.(8)-1)...(|
000048f0  63 62 6f 78 5f 74 79 70  65 25 28 62 6f 78 5f 6e  |cbox_type%(box_n|
00004900  75 6d 25 2c 32 29 3d 67  72 6f 25 2b 28 b3 28 38  |um%,2)=gro%+(.(8|
00004910  29 2d 31 29 0d 02 c1 22  63 62 6f 78 5f 74 79 70  |)-1)..."cbox_typ|
00004920  65 25 28 62 6f 78 5f 6e  75 6d 25 2c 36 29 3d 61  |e%(box_num%,6)=a|
00004930  6e 73 77 65 72 25 0d 02  c2 1c 63 62 6f 78 5f 74  |nswer%....cbox_t|
00004940  79 70 65 25 28 62 6f 78  5f 6e 75 6d 25 2c 37 29  |ype%(box_num%,7)|
00004950  3d 30 0d 02 c3 1d 63 62  6f 78 5f 74 79 70 65 25  |=0....cbox_type%|
00004960  28 62 6f 78 5f 6e 75 6d  25 2c 38 29 3d 31 32 0d  |(box_num%,8)=12.|
00004970  02 c4 05 e1 0d 02 c5 1c  dd f2 73 65 74 5f 73 75  |..........set_su|
00004980  6d 5f 66 69 76 65 28 62  6f 78 5f 6e 75 6d 25 29  |m_five(box_num%)|
00004990  0d 02 c6 1c 63 62 6f 78  5f 74 79 70 65 25 28 62  |....cbox_type%(b|
000049a0  6f 78 5f 6e 75 6d 25 2c  31 29 3d 35 0d 02 c7 18  |ox_num%,1)=5....|
000049b0  61 6e 73 77 65 72 25 3d  74 61 62 6c 65 73 25 28  |answer%=tables%(|
000049c0  31 2c 31 29 0d 02 c8 05  f5 0d 02 c9 0c 61 25 3d  |1,1).........a%=|
000049d0  b3 28 31 30 29 0d 02 ca  18 fd 20 61 25 3c 3e 61  |.(10)..... a%<>a|
000049e0  6e 73 77 65 72 25 20 80  20 61 25 3e 30 0d 02 cb  |nswer% . a%>0...|
000049f0  1d 63 62 6f 78 5f 74 79  70 65 25 28 62 6f 78 5f  |.cbox_type%(box_|
00004a00  6e 75 6d 25 2c 33 29 3d  61 25 0d 02 cc 27 63 62  |num%,3)=a%...'cb|
00004a10  6f 78 5f 74 79 70 65 25  28 62 6f 78 5f 6e 75 6d  |ox_type%(box_num|
00004a20  25 2c 34 29 3d 74 61 62  6c 65 73 25 28 31 2c 32  |%,4)=tables%(1,2|
00004a30  29 0d 02 cd 22 63 62 6f  78 5f 74 79 70 65 25 28  |)..."cbox_type%(|
00004a40  62 6f 78 5f 6e 75 6d 25  2c 36 29 3d 61 6e 73 77  |box_num%,6)=answ|
00004a50  65 72 25 0d 02 ce 1c 63  62 6f 78 5f 74 79 70 65  |er%....cbox_type|
00004a60  25 28 62 6f 78 5f 6e 75  6d 25 2c 37 29 3d 30 0d  |%(box_num%,7)=0.|
00004a70  02 cf 1d 63 62 6f 78 5f  74 79 70 65 25 28 62 6f  |...cbox_type%(bo|
00004a80  78 5f 6e 75 6d 25 2c 38  29 3d 31 32 0d 02 d0 05  |x_num%,8)=12....|
00004a90  e1 0d 02 d1 1b dd f2 73  65 74 5f 73 75 6d 5f 73  |.......set_sum_s|
00004aa0  69 78 28 62 6f 78 5f 6e  75 6d 25 29 0d 02 d2 1c  |ix(box_num%)....|
00004ab0  63 62 6f 78 5f 74 79 70  65 25 28 62 6f 78 5f 6e  |cbox_type%(box_n|
00004ac0  75 6d 25 2c 31 29 3d 36  0d 02 d3 25 61 6e 73 77  |um%,1)=6...%answ|
00004ad0  65 72 25 3d 74 61 62 6c  65 73 25 28 31 2c 31 29  |er%=tables%(1,1)|
00004ae0  2a 74 61 62 6c 65 73 25  28 31 2c 32 29 0d 02 d4  |*tables%(1,2)...|
00004af0  05 f5 0d 02 d5 19 61 25  3d b3 28 32 30 29 2b 28  |......a%=.(20)+(|
00004b00  61 6e 73 77 65 72 25 2d  31 30 29 0d 02 d6 18 fd  |answer%-10).....|
00004b10  20 61 25 3c 3e 61 6e 73  77 65 72 25 20 80 20 61  | a%<>answer% . a|
00004b20  25 3e 30 0d 02 d7 1d 63  62 6f 78 5f 74 79 70 65  |%>0....cbox_type|
00004b30  25 28 62 6f 78 5f 6e 75  6d 25 2c 33 29 3d 61 25  |%(box_num%,3)=a%|
00004b40  0d 02 d8 22 63 62 6f 78  5f 74 79 70 65 25 28 62  |..."cbox_type%(b|
00004b50  6f 78 5f 6e 75 6d 25 2c  36 29 3d 61 6e 73 77 65  |ox_num%,6)=answe|
00004b60  72 25 0d 02 d9 1c 63 62  6f 78 5f 74 79 70 65 25  |r%....cbox_type%|
00004b70  28 62 6f 78 5f 6e 75 6d  25 2c 37 29 3d 30 0d 02  |(box_num%,7)=0..|
00004b80  da 25 63 62 6f 78 5f 74  79 70 65 25 28 62 6f 78  |.%cbox_type%(box|
00004b90  5f 6e 75 6d 25 2c 38 29  3d 61 6e 73 77 65 72 25  |_num%,8)=answer%|
00004ba0  2b 31 30 0d 02 db 05 e1  0d 02 dc 0f dd f2 73 65  |+10...........se|
00004bb0  74 5f 62 6f 78 65 73 0d  02 dd 20 63 62 6f 78 25  |t_boxes... cbox%|
00004bc0  28 31 2c 31 29 3d 36 32  3a 63 62 6f 78 25 28 31  |(1,1)=62:cbox%(1|
00004bd0  2c 32 29 3d 32 30 30 0d  02 de 20 63 62 6f 78 25  |,2)=200... cbox%|
00004be0  28 32 2c 31 29 3d 36 32  3a 63 62 6f 78 25 28 32  |(2,1)=62:cbox%(2|
00004bf0  2c 32 29 3d 35 32 30 0d  02 df 21 63 62 6f 78 25  |,2)=520...!cbox%|
00004c00  28 33 2c 31 29 3d 34 38  30 3a 63 62 6f 78 25 28  |(3,1)=480:cbox%(|
00004c10  33 2c 32 29 3d 36 36 38  0d 02 e0 21 63 62 6f 78  |3,2)=668...!cbox|
00004c20  25 28 34 2c 31 29 3d 38  39 38 3a 63 62 6f 78 25  |%(4,1)=898:cbox%|
00004c30  28 34 2c 32 29 3d 35 32  30 0d 02 e1 21 63 62 6f  |(4,2)=520...!cbo|
00004c40  78 25 28 35 2c 31 29 3d  38 39 38 3a 63 62 6f 78  |x%(5,1)=898:cbox|
00004c50  25 28 35 2c 32 29 3d 32  30 30 0d 02 e2 20 63 62  |%(5,2)=200... cb|
00004c60  6f 78 25 28 36 2c 31 29  3d 34 38 30 3a 63 62 6f  |ox%(6,1)=480:cbo|
00004c70  78 25 28 36 2c 32 29 3d  34 34 0d 02 e3 05 e1 0d  |x%(6,2)=44......|
00004c80  02 e4 1c dd f2 63 6f 6e  6e 65 63 74 5f 62 6f 78  |.....connect_box|
00004c90  28 6e 75 6d 25 2c 63 6f  6c 25 29 0d 02 e5 25 61  |(num%,col%)...%a|
00004ca0  25 3d 63 62 6f 78 25 28  6e 75 6d 25 2c 31 29 3a  |%=cbox%(num%,1):|
00004cb0  62 25 3d 63 62 6f 78 25  28 6e 75 6d 25 2c 32 29  |b%=cbox%(num%,2)|
00004cc0  0d 02 e6 28 ef 20 32 34  2c 61 25 3b 62 25 3b 61  |...(. 24,a%;b%;a|
00004cd0  25 2b 33 32 30 3b 62 25  2b 32 34 38 3b 31 38 2c  |%+320;b%+248;18,|
00004ce0  30 2c 31 33 31 2c 31 36  0d 02 e7 30 ef 20 32 34  |0,131,16...0. 24|
00004cf0  2c 61 25 2b 34 3b 62 25  2b 34 3b 61 25 2b 33 31  |,a%+4;b%+4;a%+31|
00004d00  36 3b 62 25 2b 32 34 34  3b 31 38 2c 30 2c 63 6f  |6;b%+244;18,0,co|
00004d10  6c 25 2c 31 36 2c 32 36  0d 02 e8 05 e1 0d 02 e9  |l%,16,26........|
00004d20  10 dd f2 63 65 6e 74 72  65 5f 62 6f 78 0d 02 ea  |...centre_box...|
00004d30  11 61 25 3d 35 31 32 3a  62 25 3d 33 36 30 0d 02  |.a%=512:b%=360..|
00004d40  eb 28 ef 20 32 34 2c 61  25 3b 62 25 3b 61 25 2b  |.(. 24,a%;b%;a%+|
00004d50  32 35 36 3b 62 25 2b 32  34 30 3b 31 38 2c 30 2c  |256;b%+240;18,0,|
00004d60  31 33 31 2c 31 36 0d 02  ec 2f ef 20 32 34 2c 61  |131,16.../. 24,a|
00004d70  25 2b 34 3b 62 25 2b 34  3b 61 25 2b 32 35 32 3b  |%+4;b%+4;a%+252;|
00004d80  62 25 2b 32 33 36 3b 31  38 2c 30 2c 31 32 38 2c  |b%+236;18,0,128,|
00004d90  31 36 2c 32 36 0d 02 ed  05 e1 0d 02 ee 3f dd f2  |16,26........?..|
00004da0  74 65 78 74 5f 62 6f 78  28 73 74 5f 78 25 2c 73  |text_box(st_x%,s|
00004db0  74 5f 79 25 2c 6c 65 6e  67 74 68 25 2c 68 65 69  |t_y%,length%,hei|
00004dc0  67 68 74 25 2c 6a 75 73  74 5f 74 79 70 65 25 2c  |ght%,just_type%,|
00004dd0  61 24 2c 62 24 2c 63 24  29 0d 02 ef 33 e7 74 65  |a$,b$,c$)...3.te|
00004de0  78 74 5f 63 6f 6c 25 3d  33 20 f2 62 6f 78 32 28  |xt_col%=3 .box2(|
00004df0  73 74 5f 78 25 2c 73 74  5f 79 25 2c 6c 65 6e 67  |st_x%,st_y%,leng|
00004e00  74 68 25 2c 68 65 69 67  68 74 25 29 0d 02 f0 33  |th%,height%)...3|
00004e10  e7 74 65 78 74 5f 63 6f  6c 25 3d 30 20 f2 62 6f  |.text_col%=0 .bo|
00004e20  78 33 28 73 74 5f 78 25  2c 73 74 5f 79 25 2c 6c  |x3(st_x%,st_y%,l|
00004e30  65 6e 67 74 68 25 2c 68  65 69 67 68 74 25 29 0d  |ength%,height%).|
00004e40  02 f1 20 66 5f 77 69 64  74 68 31 25 3d a4 66 6f  |.. f_width1%=.fo|
00004e50  6e 74 5f 73 74 72 69 6e  67 5f 77 28 61 24 29 0d  |nt_string_w(a$).|
00004e60  02 f2 20 66 5f 77 69 64  74 68 32 25 3d a4 66 6f  |.. f_width2%=.fo|
00004e70  6e 74 5f 73 74 72 69 6e  67 5f 77 28 62 24 29 0d  |nt_string_w(b$).|
00004e80  02 f3 20 66 5f 77 69 64  74 68 33 25 3d a4 66 6f  |.. f_width3%=.fo|
00004e90  6e 74 5f 73 74 72 69 6e  67 5f 77 28 63 24 29 0d  |nt_string_w(c$).|
00004ea0  02 f4 10 66 5f 68 65 69  67 68 74 25 3d 37 30 0d  |...f_height%=70.|
00004eb0  02 f5 2c 6c 69 6e 65 73  25 3d 33 3a e7 63 24 3d  |..,lines%=3:.c$=|
00004ec0  22 22 3a 6c 69 6e 65 73  25 3d 32 3a e7 62 24 3d  |"":lines%=2:.b$=|
00004ed0  22 22 3a 6c 69 6e 65 73  25 3d 31 0d 02 f6 2e 78  |"":lines%=1....x|
00004ee0  70 6f 73 31 25 3d 73 74  5f 78 25 2b 28 28 6c 65  |pos1%=st_x%+((le|
00004ef0  6e 67 74 68 25 2d 28 66  5f 77 69 64 74 68 31 25  |ngth%-(f_width1%|
00004f00  2f 34 30 30 29 29 2f 32  29 0d 02 f7 2e 78 70 6f  |/400))/2)....xpo|
00004f10  73 32 25 3d 73 74 5f 78  25 2b 28 28 6c 65 6e 67  |s2%=st_x%+((leng|
00004f20  74 68 25 2d 28 66 5f 77  69 64 74 68 32 25 2f 34  |th%-(f_width2%/4|
00004f30  30 30 29 29 2f 32 29 0d  02 f8 2e 78 70 6f 73 33  |00))/2)....xpos3|
00004f40  25 3d 73 74 5f 78 25 2b  28 28 6c 65 6e 67 74 68  |%=st_x%+((length|
00004f50  25 2d 28 66 5f 77 69 64  74 68 33 25 2f 34 30 30  |%-(f_width3%/400|
00004f60  29 29 2f 32 29 0d 02 f9  13 e7 6a 75 73 74 5f 74  |))/2).....just_t|
00004f70  79 70 65 25 3d 32 20 8c  0d 02 fa 30 e7 78 70 6f  |ype%=2 ....0.xpo|
00004f80  73 31 25 3c 78 70 6f 73  32 25 20 78 70 6f 73 32  |s1%<xpos2% xpos2|
00004f90  25 3d 78 70 6f 73 31 25  20 8b 20 78 70 6f 73 31  |%=xpos1% . xpos1|
00004fa0  25 3d 78 70 6f 73 32 25  0d 02 fb 30 e7 78 70 6f  |%=xpos2%...0.xpo|
00004fb0  73 32 25 3c 78 70 6f 73  33 25 20 78 70 6f 73 33  |s2%<xpos3% xpos3|
00004fc0  25 3d 78 70 6f 73 32 25  20 8b 20 78 70 6f 73 32  |%=xpos2% . xpos2|
00004fd0  25 3d 78 70 6f 73 33 25  0d 02 fc 30 e7 78 70 6f  |%=xpos3%...0.xpo|
00004fe0  73 33 25 3c 78 70 6f 73  31 25 20 78 70 6f 73 31  |s3%<xpos1% xpos1|
00004ff0  25 3d 78 70 6f 73 33 25  20 8b 20 78 70 6f 73 33  |%=xpos3% . xpos3|
00005000  25 3d 78 70 6f 73 31 25  0d 02 fd 05 cd 0d 02 fe  |%=xpos1%........|
00005010  54 79 70 6f 73 31 25 3d  28 73 74 5f 79 25 2d 28  |Typos1%=(st_y%-(|
00005020  66 5f 68 65 69 67 68 74  25 2f 36 29 2a 34 29 2b  |f_height%/6)*4)+|
00005030  28 68 65 69 67 68 74 25  2d 28 6c 69 6e 65 73 25  |(height%-(lines%|
00005040  2a 66 5f 68 65 69 67 68  74 25 29 29 2f 32 2b 28  |*f_height%))/2+(|
00005050  6c 69 6e 65 73 25 2a 66  5f 68 65 69 67 68 74 25  |lines%*f_height%|
00005060  29 0d 02 ff 1b 79 70 6f  73 32 25 3d 79 70 6f 73  |)....ypos2%=ypos|
00005070  31 25 2d 66 5f 68 65 69  67 68 74 25 0d 03 00 1b  |1%-f_height%....|
00005080  79 70 6f 73 33 25 3d 79  70 6f 73 32 25 2d 66 5f  |ypos3%=ypos2%-f_|
00005090  68 65 69 67 68 74 25 0d  03 01 27 e7 74 65 78 74  |height%...'.text|
000050a0  5f 63 6f 6c 25 3d 33 20  f2 70 72 69 28 78 70 6f  |_col%=3 .pri(xpo|
000050b0  73 31 25 2c 79 70 6f 73  31 25 2c 61 24 29 0d 03  |s1%,ypos1%,a$)..|
000050c0  02 28 e7 74 65 78 74 5f  63 6f 6c 25 3d 30 20 f2  |.(.text_col%=0 .|
000050d0  70 72 69 32 28 78 70 6f  73 31 25 2c 79 70 6f 73  |pri2(xpos1%,ypos|
000050e0  31 25 2c 61 24 29 0d 03  03 32 e7 6c 69 6e 65 73  |1%,a$)...2.lines|
000050f0  25 3e 31 20 80 20 74 65  78 74 5f 63 6f 6c 25 3d  |%>1 . text_col%=|
00005100  33 20 f2 70 72 69 28 78  70 6f 73 32 25 2c 79 70  |3 .pri(xpos2%,yp|
00005110  6f 73 32 25 2c 62 24 29  0d 03 04 33 e7 6c 69 6e  |os2%,b$)...3.lin|
00005120  65 73 25 3e 31 20 80 20  74 65 78 74 5f 63 6f 6c  |es%>1 . text_col|
00005130  25 3d 30 20 f2 70 72 69  32 28 78 70 6f 73 32 25  |%=0 .pri2(xpos2%|
00005140  2c 79 70 6f 73 32 25 2c  62 24 29 0d 03 05 32 e7  |,ypos2%,b$)...2.|
00005150  6c 69 6e 65 73 25 3e 32  20 80 20 74 65 78 74 5f  |lines%>2 . text_|
00005160  63 6f 6c 25 3d 33 20 f2  70 72 69 28 78 70 6f 73  |col%=3 .pri(xpos|
00005170  33 25 2c 79 70 6f 73 33  25 2c 63 24 29 0d 03 06  |3%,ypos3%,c$)...|
00005180  33 e7 6c 69 6e 65 73 25  3e 32 20 80 20 74 65 78  |3.lines%>2 . tex|
00005190  74 5f 63 6f 6c 25 3d 30  20 f2 70 72 69 32 28 78  |t_col%=0 .pri2(x|
000051a0  70 6f 73 33 25 2c 79 70  6f 73 33 25 2c 63 24 29  |pos3%,ypos3%,c$)|
000051b0  0d 03 07 05 e1 0d 03 08  14 dd f2 70 72 69 32 28  |...........pri2(|
000051c0  78 25 2c 79 25 2c 61 24  29 0d 03 09 3a c8 99 22  |x%,y%,a$)...:.."|
000051d0  46 6f 6e 74 5f 46 69 6e  64 46 6f 6e 74 22 2c 2c  |Font_FindFont",,|
000051e0  22 54 41 42 4c 4f 49 44  2e 4d 65 64 69 75 6d 22  |"TABLOID.Medium"|
000051f0  2c 33 32 30 2c 33 36 30  2c 30 2c 30 20 b8 20 68  |,320,360,0,0 . h|
00005200  61 6e 25 0d 03 0a 24 c8  99 22 46 6f 6e 74 5f 53  |an%...$.."Font_S|
00005210  65 74 46 6f 6e 74 43 6f  6c 6f 75 72 73 22 2c 30  |etFontColours",0|
00005220  2c 33 2c 32 2c 2d 32 0d  03 0b 14 ef 30 2c 30 2c  |,3,2,-2.....0,0,|
00005230  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 03 0c 1f c8  |0,0,0,0,0,0.....|
00005240  99 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 2c 61  |."Font_Paint",,a|
00005250  24 2c 31 36 2c 78 25 2c  79 25 0d 03 0d 1a c8 99  |$,16,x%,y%......|
00005260  22 46 6f 6e 74 5f 4c 6f  73 65 46 6f 6e 74 22 2c  |"Font_LoseFont",|
00005270  68 61 6e 25 0d 03 0e 05  e1 0d 03 0f 33 dd f2 70  |han%........3..p|
00005280  6c 6f 74 5f 73 70 72 69  74 65 5f 62 61 63 6b 28  |lot_sprite_back(|
00005290  78 25 2c 79 25 2c 78 6d  25 2c 79 6d 25 2c 78 64  |x%,y%,xm%,ym%,xd|
000052a0  25 2c 79 64 25 2c 6e 61  6d 65 24 29 0d 03 10 43  |%,yd%,name$)...C|
000052b0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000052c0  26 31 32 38 2c 73 70 72  69 74 65 5f 61 72 65 61  |&128,sprite_area|
000052d0  31 25 2c 6e 61 6d 65 24  20 b8 20 72 30 2c 72 31  |1%,name$ . r0,r1|
000052e0  2c 72 32 2c 41 25 2c 42  25 2c 72 35 2c 72 36 0d  |,r2,A%,B%,r5,r6.|
000052f0  03 11 38 ef 32 34 2c 78  25 2d 38 3b 79 25 2d 38  |..8.24,x%-8;y%-8|
00005300  3b 78 25 2b 38 2b 28 41  25 2a 32 29 3b 79 25 2b  |;x%+8+(A%*2);y%+|
00005310  38 2b 28 42 25 2a 34 29  3b 31 38 2c 30 2c 31 33  |8+(B%*4);18,0,13|
00005320  31 2c 31 36 2c 32 36 0d  03 12 13 21 28 73 63 61  |1,16,26....!(sca|
00005330  6c 65 25 2b 30 29 3d 78  6d 25 0d 03 13 1c 21 28  |le%+0)=xm%....!(|
00005340  73 63 61 6c 65 25 2b 34  29 3d 79 6d 25 2a 28 76  |scale%+4)=ym%*(v|
00005350  67 61 25 2b 31 29 0d 03  14 13 21 28 73 63 61 6c  |ga%+1)....!(scal|
00005360  65 25 2b 38 29 3d 78 64  25 0d 03 15 14 21 28 73  |e%+8)=xd%....!(s|
00005370  63 61 6c 65 25 2b 31 32  29 3d 79 64 25 0d 03 16  |cale%+12)=yd%...|
00005380  34 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |4.."OS_SpriteOp"|
00005390  2c 26 31 33 34 2c 73 61  31 25 2c 6e 61 6d 65 24  |,&134,sa1%,name$|
000053a0  2c 78 25 2c 79 25 2c 30  2c 73 63 61 6c 65 25 2c  |,x%,y%,0,scale%,|
000053b0  30 0d 03 17 05 e1 0d 03  18 13 dd f2 70 72 69 28  |0...........pri(|
000053c0  78 25 2c 79 25 2c 61 24  29 0d 03 19 3a c8 99 22  |x%,y%,a$)...:.."|
000053d0  46 6f 6e 74 5f 46 69 6e  64 46 6f 6e 74 22 2c 2c  |Font_FindFont",,|
000053e0  22 54 41 42 4c 4f 49 44  2e 4d 65 64 69 75 6d 22  |"TABLOID.Medium"|
000053f0  2c 33 32 30 2c 33 36 30  2c 30 2c 30 20 b8 20 68  |,320,360,0,0 . h|
00005400  61 6e 25 0d 03 1a 23 c8  99 22 46 6f 6e 74 5f 53  |an%...#.."Font_S|
00005410  65 74 46 6f 6e 74 43 6f  6c 6f 75 72 73 22 2c 30  |etFontColours",0|
00005420  2c 30 2c 31 2c 32 0d 03  1b 14 ef 30 2c 30 2c 30  |,0,1,2.....0,0,0|
00005430  2c 30 2c 30 2c 30 2c 30  2c 30 0d 03 1c 1f c8 99  |,0,0,0,0,0......|
00005440  22 46 6f 6e 74 5f 50 61  69 6e 74 22 2c 2c 61 24  |"Font_Paint",,a$|
00005450  2c 31 36 2c 78 25 2c 79  25 0d 03 1d 1a c8 99 22  |,16,x%,y%......"|
00005460  46 6f 6e 74 5f 4c 6f 73  65 46 6f 6e 74 22 2c 68  |Font_LoseFont",h|
00005470  61 6e 25 0d 03 1e 05 e1  0d 03 1f 1c dd a4 66 6f  |an%...........fo|
00005480  6e 74 5f 73 74 72 69 6e  67 5f 77 28 73 74 72 69  |nt_string_w(stri|
00005490  6e 67 24 29 0d 03 20 14  24 73 74 72 69 6e 67 25  |ng$).. .$string%|
000054a0  3d 73 74 72 69 6e 67 24  0d 03 21 3a c8 99 22 46  |=string$..!:.."F|
000054b0  6f 6e 74 5f 46 69 6e 64  46 6f 6e 74 22 2c 2c 22  |ont_FindFont",,"|
000054c0  54 41 42 4c 4f 49 44 2e  4d 65 64 69 75 6d 22 2c  |TABLOID.Medium",|
000054d0  33 32 30 2c 33 36 30 2c  30 2c 30 20 b8 20 68 61  |320,360,0,0 . ha|
000054e0  6e 25 0d 03 22 47 c8 99  22 46 6f 6e 74 5f 53 74  |n%.."G.."Font_St|
000054f0  72 69 6e 67 57 69 64 74  68 22 2c 30 2c 73 74 72  |ringWidth",0,str|
00005500  69 6e 67 25 2c 36 30 30  30 30 30 2c 34 38 30 30  |ing%,600000,4800|
00005510  30 30 2c 2d 31 2c 38 30  20 b8 20 72 30 2c 72 31  |00,-1,80 . r0,r1|
00005520  2c 66 5f 77 69 64 74 68  25 0d 03 23 1a c8 99 22  |,f_width%..#..."|
00005530  46 6f 6e 74 5f 4c 6f 73  65 46 6f 6e 74 22 2c 68  |Font_LoseFont",h|
00005540  61 6e 25 0d 03 24 0d 3d  66 5f 77 69 64 74 68 25  |an%..$.=f_width%|
00005550  0d 03 25 1c dd a4 66 6f  6e 74 5f 73 74 72 69 6e  |..%...font_strin|
00005560  67 5f 68 28 73 74 72 69  6e 67 24 29 0d 03 26 14  |g_h(string$)..&.|
00005570  24 73 74 72 69 6e 67 25  3d 73 74 72 69 6e 67 24  |$string%=string$|
00005580  0d 03 27 3a c8 99 22 46  6f 6e 74 5f 46 69 6e 64  |..':.."Font_Find|
00005590  46 6f 6e 74 22 2c 2c 22  54 41 42 4c 4f 49 44 2e  |Font",,"TABLOID.|
000055a0  4d 65 64 69 75 6d 22 2c  33 32 30 2c 33 36 30 2c  |Medium",320,360,|
000055b0  30 2c 30 20 b8 20 68 61  6e 25 0d 03 28 4a c8 99  |0,0 . han%..(J..|
000055c0  22 46 6f 6e 74 5f 53 74  72 69 6e 67 57 69 64 74  |"Font_StringWidt|
000055d0  68 22 2c 30 2c 73 74 72  69 6e 67 25 2c 36 30 30  |h",0,string%,600|
000055e0  30 30 30 2c 34 38 30 30  30 30 2c 2d 31 2c 38 30  |000,480000,-1,80|
000055f0  20 b8 20 72 30 2c 72 31  2c 72 32 2c 66 5f 68 65  | . r0,r1,r2,f_he|
00005600  69 67 68 74 0d 03 29 1a  c8 99 22 46 6f 6e 74 5f  |ight..)..."Font_|
00005610  4c 6f 73 65 46 6f 6e 74  22 2c 68 61 6e 25 0d 03  |LoseFont",han%..|
00005620  2a 0e 3d 66 5f 68 65 69  67 68 74 25 0d 03 2b 18  |*.=f_height%..+.|
00005630  dd f2 73 74 61 72 74 5f  61 6e 69 6d 28 62 6c 61  |..start_anim(bla|
00005640  6e 6b 24 29 0d 03 2c 3d  c8 99 22 4f 53 5f 53 70  |nk$)..,=.."OS_Sp|
00005650  72 69 74 65 4f 70 22 2c  26 31 31 38 2c 73 70 72  |riteOp",&118,spr|
00005660  69 74 65 5f 61 72 65 61  31 25 2c 73 65 6c 5f 73  |ite_area1%,sel_s|
00005670  70 72 69 74 65 24 20 b8  20 72 30 2c 72 31 2c 72  |prite$ . r0,r1,r|
00005680  32 0d 03 2d 3c 77 69 64  74 68 25 3d 28 21 28 72  |2..-<width%=(!(r|
00005690  32 2b 31 36 29 2b 31 29  2a 31 36 3a 68 65 69 67  |2+16)+1)*16:heig|
000056a0  68 74 25 3d 28 21 28 72  32 2b 32 30 29 2b 31 29  |ht%=(!(r2+20)+1)|
000056b0  2a 28 34 2a 28 76 67 61  25 2b 31 29 29 0d 03 2e  |*(4*(vga%+1))...|
000056c0  56 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |V.."OS_SpriteOp"|
000056d0  2c 26 31 31 30 2c 73 70  72 69 74 65 5f 61 72 65  |,&110,sprite_are|
000056e0  61 31 25 2c 62 6c 61 6e  6b 24 2c 30 2c 61 6e 5f  |a1%,blank$,0,an_|
000056f0  78 25 2c 61 6e 5f 79 25  2c 61 6e 5f 78 25 2b 77  |x%,an_y%,an_x%+w|
00005700  69 64 74 68 25 2c 61 6e  5f 79 25 2b 68 65 69 67  |idth%,an_y%+heig|
00005710  68 74 25 0d 03 2f 38 f2  70 6c 6f 74 5f 73 70 72  |ht%../8.plot_spr|
00005720  69 74 65 5f 6d 61 73 6b  65 64 28 61 6e 5f 78 25  |ite_masked(an_x%|
00005730  2c 61 6e 5f 79 25 2c 31  2c 31 2c 31 2c 31 2c 73  |,an_y%,1,1,1,1,s|
00005740  65 6c 5f 73 70 72 69 74  65 24 29 0d 03 30 1d 61  |el_sprite$)..0.a|
00005750  6e 5f 78 78 25 3d 61 6e  5f 78 25 3a 61 6e 5f 79  |n_xx%=an_x%:an_y|
00005760  79 25 3d 61 6e 5f 79 25  0d 03 31 05 e1 0d 03 32  |y%=an_y%..1....2|
00005770  12 dd f2 61 6e 69 6d 28  62 6c 61 6e 6b 24 29 0d  |...anim(blank$).|
00005780  03 33 3a f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |.3:.plot_sprite_|
00005790  6d 61 73 6b 65 64 28 61  6e 5f 78 78 25 2c 61 6e  |masked(an_xx%,an|
000057a0  5f 79 79 25 2c 31 2c 31  2c 31 2c 31 2b 76 67 61  |_yy%,1,1,1,1+vga|
000057b0  25 2c 62 6c 61 6e 6b 24  29 0d 03 34 56 c8 99 22  |%,blank$)..4V.."|
000057c0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
000057d0  30 2c 73 70 72 69 74 65  5f 61 72 65 61 31 25 2c  |0,sprite_area1%,|
000057e0  62 6c 61 6e 6b 24 2c 30  2c 61 6e 5f 78 25 2c 61  |blank$,0,an_x%,a|
000057f0  6e 5f 79 25 2c 61 6e 5f  78 25 2b 77 69 64 74 68  |n_y%,an_x%+width|
00005800  25 2c 61 6e 5f 79 25 2b  68 65 69 67 68 74 25 0d  |%,an_y%+height%.|
00005810  03 35 38 f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |.58.plot_sprite_|
00005820  6d 61 73 6b 65 64 28 61  6e 5f 78 25 2c 61 6e 5f  |masked(an_x%,an_|
00005830  79 25 2c 31 2c 31 2c 31  2c 31 2c 73 65 6c 5f 73  |y%,1,1,1,1,sel_s|
00005840  70 72 69 74 65 24 29 0d  03 36 1d 61 6e 5f 78 78  |prite$)..6.an_xx|
00005850  25 3d 61 6e 5f 78 25 3a  61 6e 5f 79 79 25 3d 61  |%=an_x%:an_yy%=a|
00005860  6e 5f 79 25 0d 03 37 05  e1 0d 03 38 16 dd f2 65  |n_y%..7....8...e|
00005870  6e 64 5f 61 6e 69 6d 28  62 6c 61 6e 6b 24 29 0d  |nd_anim(blank$).|
00005880  03 39 3a f2 70 6c 6f 74  5f 73 70 72 69 74 65 5f  |.9:.plot_sprite_|
00005890  6d 61 73 6b 65 64 28 61  6e 5f 78 78 25 2c 61 6e  |masked(an_xx%,an|
000058a0  5f 79 79 25 2c 31 2c 31  2c 31 2c 31 2b 76 67 61  |_yy%,1,1,1,1+vga|
000058b0  25 2c 62 6c 61 6e 6b 24  29 0d 03 3a 05 e1 0d 03  |%,blank$)..:....|
000058c0  3b 14 dd f2 70 72 69 32  28 78 25 2c 79 25 2c 61  |;...pri2(x%,y%,a|
000058d0  24 29 0d 03 3c 3a c8 99  22 46 6f 6e 74 5f 46 69  |$)..<:.."Font_Fi|
000058e0  6e 64 46 6f 6e 74 22 2c  2c 22 54 41 42 4c 4f 49  |ndFont",,"TABLOI|
000058f0  44 2e 4d 65 64 69 75 6d  22 2c 33 32 30 2c 33 36  |D.Medium",320,36|
00005900  30 2c 30 2c 30 20 b8 20  68 61 6e 25 0d 03 3d 24  |0,0,0 . han%..=$|
00005910  c8 99 22 46 6f 6e 74 5f  53 65 74 46 6f 6e 74 43  |.."Font_SetFontC|
00005920  6f 6c 6f 75 72 73 22 2c  30 2c 33 2c 32 2c 2d 32  |olours",0,3,2,-2|
00005930  0d 03 3e 14 ef 30 2c 30  2c 30 2c 30 2c 30 2c 30  |..>..0,0,0,0,0,0|
00005940  2c 30 2c 30 0d 03 3f 1f  c8 99 22 46 6f 6e 74 5f  |,0,0..?..."Font_|
00005950  50 61 69 6e 74 22 2c 2c  61 24 2c 31 36 2c 78 25  |Paint",,a$,16,x%|
00005960  2c 79 25 0d 03 40 1a c8  99 22 46 6f 6e 74 5f 4c  |,y%..@..."Font_L|
00005970  6f 73 65 46 6f 6e 74 22  2c 68 61 6e 25 0d 03 41  |oseFont",han%..A|
00005980  05 e1 0d 03 42 1a dd f2  62 75 74 74 6f 6e 5f 70  |....B...button_p|
00005990  72 65 73 73 28 6e 75 6d  62 65 25 29 0d 03 43 1b  |ress(numbe%)..C.|
000059a0  f2 64 65 66 69 6e 65 5f  62 75 74 74 6f 6e 73 28  |.define_buttons(|
000059b0  6e 75 6d 62 65 25 29 0d  03 44 1a f5 3a c8 97 6d  |numbe%)..D..:..m|
000059c0  78 25 2c 6d 79 25 2c 6d  63 25 3a fd 6d 63 25 3d  |x%,my%,mc%:.mc%=|
000059d0  30 0d 03 45 1f e3 6d 73  78 66 25 3d 31 b8 31 30  |0..E..msxf%=1.10|
000059e0  3a c8 97 6d 78 25 2c 6d  79 25 2c 6d 63 25 3a ed  |:..mx%,my%,mc%:.|
000059f0  0d 03 46 17 e3 62 6e 25  3d 31 20 b8 20 74 6f 74  |..F..bn%=1 . tot|
00005a00  61 6c 5f 62 75 74 25 0d  03 47 2f f2 62 75 74 5f  |al_but%..G/.but_|
00005a10  6f 66 66 28 62 75 74 25  28 62 6e 25 2c 30 29 2c  |off(but%(bn%,0),|
00005a20  62 75 74 25 28 62 6e 25  2c 31 29 2c 62 75 74 24  |but%(bn%,1),but$|
00005a30  28 62 6e 25 29 29 0d 03  48 05 ed 0d 03 49 07 c8  |(bn%))..H....I..|
00005a40  97 ee 0d 03 4a 05 f5 0d  03 4b 1b f2 63 68 65 63  |....J....K..chec|
00005a50  6b 5f 62 75 74 74 6f 6e  73 28 61 6e 5f 6e 75 6d  |k_buttons(an_num|
00005a60  25 29 0d 03 4c 10 fd 73  65 6c 65 63 74 65 64 25  |%)..L..selected%|
00005a70  3e 30 0d 03 4d 05 e1 0d  03 4e 1c dd f2 62 6f 78  |>0..M....N...box|
00005a80  28 62 78 25 2c 62 79 25  2c 62 78 78 25 2c 62 79  |(bx%,by%,bxx%,by|
00005a90  79 25 29 0d 03 4f 1f 62  78 78 25 3d 62 78 25 2b  |y%)..O.bxx%=bx%+|
00005aa0  62 78 78 25 3a 62 79 79  25 3d 62 79 25 2b 62 79  |bxx%:byy%=by%+by|
00005ab0  79 25 0d 03 50 25 ef 32  34 2c 62 78 25 3b 62 79  |y%..P%.24,bx%;by|
00005ac0  25 3b 62 78 78 25 3b 62  79 79 25 3b 31 38 2c 30  |%;bxx%;byy%;18,0|
00005ad0  2c 31 33 30 2c 31 36 0d  03 51 2d ef 32 34 2c 62  |,130,16..Q-.24,b|
00005ae0  78 25 2b 34 3b 62 79 25  2b 34 3b 62 78 78 25 2d  |x%+4;by%+4;bxx%-|
00005af0  34 3b 62 79 79 25 2d 34  3b 31 38 2c 30 2c 31 32  |4;byy%-4;18,0,12|
00005b00  39 2c 31 36 0d 03 52 30  ef 32 34 2c 62 78 25 2b  |9,16..R0.24,bx%+|
00005b10  38 3b 62 79 25 2b 38 3b  62 78 78 25 2d 38 3b 62  |8;by%+8;bxx%-8;b|
00005b20  79 79 25 2d 38 3b 31 38  2c 30 2c 31 32 38 2c 31  |yy%-8;18,0,128,1|
00005b30  36 2c 32 36 0d 03 53 2f  e6 30 2c 33 3a ec 20 62  |6,26..S/.0,3:. b|
00005b40  78 25 2b 34 2c 62 79 25  3a f0 35 2c 62 78 78 25  |x%+4,by%:.5,bxx%|
00005b50  2c 62 79 25 3a f0 35 2c  62 78 78 25 2c 62 79 79  |,by%:.5,bxx%,byy|
00005b60  25 2d 34 0d 03 54 32 ec  20 62 78 25 2b 34 2c 62  |%-4..T2. bx%+4,b|
00005b70  79 25 2b 32 3a f0 35 2c  62 78 78 25 2d 32 2c 62  |y%+2:.5,bxx%-2,b|
*
00005b90  79 79 25 2d 34 0d 03 55  37 e6 30 2c 32 3a ec 20  |yy%-4..U7.0,2:. |
00005ba0  62 78 25 2b 38 2c 62 79  25 2b 34 3a f0 35 2c 62  |bx%+8,by%+4:.5,b|
00005bb0  78 78 25 2d 34 2c 62 79  25 2b 34 3a f0 35 2c 62  |xx%-4,by%+4:.5,b|
00005bc0  78 78 25 2d 34 2c 62 79  79 25 2d 38 0d 03 56 32  |xx%-4,byy%-8..V2|
00005bd0  ec 20 62 78 25 2b 38 2c  62 79 25 2b 36 3a f0 35  |. bx%+8,by%+6:.5|
00005be0  2c 62 78 78 25 2d 36 2c  62 79 25 2b 36 3a f0 35  |,bxx%-6,by%+6:.5|
00005bf0  2c 62 78 78 25 2d 36 2c  62 79 79 25 2d 38 0d 03  |,bxx%-6,byy%-8..|
00005c00  57 05 e1 0d 03 58 1d dd  f2 62 6f 78 32 28 62 78  |W....X...box2(bx|
00005c10  25 2c 62 79 25 2c 62 78  78 25 2c 62 79 79 25 29  |%,by%,bxx%,byy%)|
00005c20  0d 03 59 1f 62 78 78 25  3d 62 78 25 2b 62 78 78  |..Y.bxx%=bx%+bxx|
00005c30  25 3a 62 79 79 25 3d 62  79 25 2b 62 79 79 25 0d  |%:byy%=by%+byy%.|
00005c40  03 5a 2d ef 32 34 2c 62  78 25 2d 34 3b 62 79 25  |.Z-.24,bx%-4;by%|
00005c50  2d 34 3b 62 78 78 25 2b  34 3b 62 79 79 25 2b 34  |-4;bxx%+4;byy%+4|
00005c60  3b 31 38 2c 30 2c 31 33  31 2c 31 36 0d 03 5b 28  |;18,0,131,16..[(|
00005c70  ef 32 34 2c 62 78 25 3b  62 79 25 3b 62 78 78 25  |.24,bx%;by%;bxx%|
00005c80  3b 62 79 79 25 3b 31 38  2c 30 2c 31 32 38 2c 31  |;byy%;18,0,128,1|
00005c90  36 2c 32 36 0d 03 5c 05  e1 0d 03 5d 1d dd f2 62  |6,26..\....]...b|
00005ca0  6f 78 33 28 62 78 25 2c  62 79 25 2c 62 78 78 25  |ox3(bx%,by%,bxx%|
00005cb0  2c 62 79 79 25 29 0d 03  5e 1f 62 78 78 25 3d 62  |,byy%)..^.bxx%=b|
00005cc0  78 25 2b 62 78 78 25 3a  62 79 79 25 3d 62 79 25  |x%+bxx%:byy%=by%|
00005cd0  2b 62 79 79 25 0d 03 5f  2d ef 32 34 2c 62 78 25  |+byy%.._-.24,bx%|
00005ce0  2d 34 3b 62 79 25 2d 34  3b 62 78 78 25 2b 34 3b  |-4;by%-4;bxx%+4;|
00005cf0  62 79 79 25 2b 34 3b 31  38 2c 30 2c 31 33 30 2c  |byy%+4;18,0,130,|
00005d00  31 36 0d 03 60 28 ef 32  34 2c 62 78 25 3b 62 79  |16..`(.24,bx%;by|
00005d10  25 3b 62 78 78 25 3b 62  79 79 25 3b 31 38 2c 30  |%;bxx%;byy%;18,0|
00005d20  2c 31 33 31 2c 31 36 2c  32 36 0d 03 61 05 e1 0d  |,131,16,26..a...|
00005d30  03 62 37 dd f2 73 65 74  5f 75 70 5f 63 6f 75 6e  |.b7..set_up_coun|
00005d40  74 5f 64 6f 77 6e 28 74  78 25 2c 74 79 25 2c 64  |t_down(tx%,ty%,d|
00005d50  69 67 69 74 73 25 2c 61  6d 6f 75 6e 74 25 2c 74  |igits%,amount%,t|
00005d60  69 6d 65 72 25 29 0d 03  63 20 f2 62 6f 78 32 28  |imer%)..c .box2(|
00005d70  74 78 25 2c 74 79 25 2c  34 38 2a 64 69 67 69 74  |tx%,ty%,48*digit|
00005d80  73 25 2c 37 32 29 0d 03  64 21 63 6f 75 6e 74 5f  |s%,72)..d!count_|
00005d90  64 6f 77 6e 25 28 74 69  6d 65 72 25 29 3d 91 2b  |down%(timer%)=.+|
00005da0  61 6d 6f 75 6e 74 25 0d  03 65 05 e1 0d 03 66 29  |amount%..e....f)|
00005db0  dd a4 70 72 69 6e 74 5f  74 69 6d 65 72 28 74 78  |..print_timer(tx|
00005dc0  25 2c 74 79 25 2c 64 69  67 69 74 73 25 2c 74 69  |%,ty%,digits%,ti|
00005dd0  6d 65 72 25 29 0d 03 67  26 74 69 6d 65 72 25 3d  |mer%)..g&timer%=|
00005de0  28 63 6f 75 6e 74 5f 64  6f 77 6e 25 28 74 69 6d  |(count_down%(tim|
00005df0  65 72 25 29 2d 91 29 2f  31 30 30 0d 03 68 2f e7  |er%)-.)/100..h/.|
00005e00  74 69 6d 65 72 25 3c 30  20 74 69 6d 65 72 25 3d  |timer%<0 timer%=|
00005e10  30 30 30 30 3a 63 6f 75  6e 74 5f 64 6f 77 6e 25  |0000:count_down%|
00005e20  28 74 69 6d 65 72 25 29  3d 30 0d 03 69 10 74 24  |(timer%)=0..i.t$|
00005e30  3d c3 28 74 69 6d 65 72  25 29 0d 03 6a 2a f2 70  |=.(timer%)..j*.p|
00005e40  6c 6f 74 5f 6e 75 6d 62  65 72 73 28 74 78 25 2b  |lot_numbers(tx%+|
00005e50  32 34 2c 74 79 25 2b 38  2c 64 69 67 69 74 73 25  |24,ty%+8,digits%|
00005e60  2c 74 24 29 0d 03 6b 07  3d 74 24 0d 03 6c 25 dd  |,t$)..k.=t$..l%.|
00005e70  f2 70 6c 6f 74 5f 6e 75  6d 62 65 72 73 32 28 78  |.plot_numbers2(x|
00005e80  25 2c 79 25 2c 64 69 67  69 74 73 25 2c 61 24 29  |%,y%,digits%,a$)|
00005e90  0d 03 6d 12 e3 70 6e 25  3d 31 20 b8 20 a9 28 61  |..m..pn%=1 . .(a|
00005ea0  24 29 0d 03 6e 38 f2 70  6c 6f 74 5f 73 70 72 69  |$)..n8.plot_spri|
00005eb0  74 65 28 28 78 25 2d 33  36 29 2b 28 70 6e 25 2a  |te((x%-36)+(pn%*|
00005ec0  33 36 29 2c 79 25 2c 31  2c 31 2c 31 2c 31 2c c1  |36),y%,1,1,1,1,.|
00005ed0  61 24 2c 70 6e 25 2c 31  29 29 0d 03 6f 05 ed 0d  |a$,pn%,1))..o...|
00005ee0  03 70 05 e1 0d 03 71 24  dd f2 70 6c 6f 74 5f 6e  |.p....q$..plot_n|
00005ef0  75 6d 62 65 72 73 28 78  25 2c 79 25 2c 64 69 67  |umbers(x%,y%,dig|
00005f00  69 74 73 25 2c 61 24 29  0d 03 72 14 e7 a9 28 61  |its%,a$)..r...(a|
00005f10  24 29 3c 64 69 67 69 74  73 25 20 8c 0d 03 73 05  |$)<digits% ...s.|
00005f20  f5 0d 03 74 0d 61 24 3d  22 64 22 2b 61 24 0d 03  |...t.a$="d"+a$..|
00005f30  75 12 fd a9 28 61 24 29  3d 64 69 67 69 74 73 25  |u...(a$)=digits%|
00005f40  0d 03 76 05 cd 0d 03 77  12 e3 70 6e 25 3d 31 20  |..v....w..pn%=1 |
00005f50  b8 20 a9 28 61 24 29 0d  03 78 38 f2 70 6c 6f 74  |. .(a$)..x8.plot|
00005f60  5f 73 70 72 69 74 65 28  28 78 25 2d 33 36 29 2b  |_sprite((x%-36)+|
00005f70  28 70 6e 25 2a 33 36 29  2c 79 25 2c 31 2c 31 2c  |(pn%*36),y%,1,1,|
00005f80  31 2c 31 2c c1 61 24 2c  70 6e 25 2c 31 29 29 0d  |1,1,.a$,pn%,1)).|
00005f90  03 79 05 ed 0d 03 7a 05  e1 0d 03 7b 1e dd f2 73  |.y....z....{...s|
00005fa0  65 74 5f 70 6f 73 5f 62  75 74 74 6f 6e 73 28 62  |et_pos_buttons(b|
00005fb0  78 25 2c 62 79 25 29 0d  03 7c 16 e3 62 66 25 3d  |x%,by%)..|..bf%=|
00005fc0  31 b8 20 74 6f 74 61 6c  5f 62 75 74 25 0d 03 7d  |1. total_but%..}|
00005fd0  1f 62 75 74 25 28 62 66  25 2c 30 29 3d 62 75 74  |.but%(bf%,0)=but|
00005fe0  25 28 62 66 25 2c 30 29  2b 62 78 25 0d 03 7e 1f  |%(bf%,0)+bx%..~.|
00005ff0  62 75 74 25 28 62 66 25  2c 31 29 3d 62 75 74 25  |but%(bf%,1)=but%|
00006000  28 62 66 25 2c 31 29 2b  62 79 25 0d 03 7f 05 ed  |(bf%,1)+by%.....|
00006010  0d 03 80 05 e1 0d 03 81  1a dd f2 64 65 66 69 6e  |...........defin|
00006020  65 5f 62 75 74 74 6f 6e  73 28 73 65 74 25 29 0d  |e_buttons(set%).|
00006030  03 82 1e e7 73 65 74 25  3d 31 3a 74 6f 74 61 6c  |....set%=1:total|
00006040  5f 62 75 74 25 3d 31 3a  f7 8d 74 4a 43 0d 03 83  |_but%=1:..tJC...|
00006050  1e e7 73 65 74 25 3d 32  3a 74 6f 74 61 6c 5f 62  |..set%=2:total_b|
00006060  75 74 25 3d 34 3a f7 8d  74 4b 43 0d 03 84 1e e7  |ut%=4:..tKC.....|
00006070  73 65 74 25 3d 33 3a 74  6f 74 61 6c 5f 62 75 74  |set%=3:total_but|
00006080  25 3d 32 3a f7 8d 74 4c  43 0d 03 85 1e e7 73 65  |%=2:..tLC.....se|
00006090  74 25 3d 34 3a 74 6f 74  61 6c 5f 62 75 74 25 3d  |t%=4:total_but%=|
000060a0  32 3a f7 8d 74 4d 43 0d  03 86 1d e3 62 75 74 5f  |2:..tMC.....but_|
000060b0  6e 75 6d 62 65 72 25 3d  31 b8 74 6f 74 61 6c 5f  |number%=1.total_|
000060c0  62 75 74 25 0d 03 87 7a  f3 62 75 74 25 28 62 75  |but%...z.but%(bu|
000060d0  74 5f 6e 75 6d 62 65 72  25 2c 30 29 2c 62 75 74  |t_number%,0),but|
000060e0  25 28 62 75 74 5f 6e 75  6d 62 65 72 25 2c 31 29  |%(but_number%,1)|
000060f0  2c 62 75 74 25 28 62 75  74 5f 6e 75 6d 62 65 72  |,but%(but_number|
00006100  25 2c 32 29 2c 62 75 74  25 28 62 75 74 5f 6e 75  |%,2),but%(but_nu|
00006110  6d 62 65 72 25 2c 33 29  2c 62 75 74 25 28 62 75  |mber%,3),but%(bu|
00006120  74 5f 6e 75 6d 62 65 72  25 2c 34 29 2c 62 75 74  |t_number%,4),but|
00006130  24 28 62 75 74 5f 6e 75  6d 62 65 72 25 29 0d 03  |$(but_number%)..|
00006140  88 05 ed 0d 03 89 05 e1  0d 03 8a 1c dc 20 31 30  |............. 10|
00006150  30 2c 31 30 30 2c 32 30  30 2c 34 30 2c 32 2c 47  |0,100,200,40,2,G|
00006160  6f 20 6f 6e 0d 03 8b 6b  dc 20 38 32 30 2c 31 31  |o on...k. 820,11|
00006170  34 2c 32 30 30 2c 36 30  2c 32 2c 76 61 6c 75 65  |4,200,60,2,value|
00006180  20 75 70 2c 38 32 30 2c  33 38 2c 32 30 30 2c 36  | up,820,38,200,6|
00006190  30 2c 32 2c 76 61 6c 75  65 20 64 6f 77 6e 2c 31  |0,2,value down,1|
000061a0  30 36 30 2c 37 32 2c 32  30 30 2c 36 30 2c 32 2c  |060,72,200,60,2,|
000061b0  43 6f 72 72 65 63 74 2c  32 30 2c 37 32 2c 32 30  |Correct,20,72,20|
000061c0  30 2c 36 30 2c 32 2c 4e  65 78 74 20 62 6f 78 0d  |0,60,2,Next box.|
000061d0  03 8c 33 dc 20 38 32 30  2c 34 33 30 2c 31 39 30  |..3. 820,430,190|
000061e0  2c 36 30 2c 32 2c 4c 65  66 74 2c 31 30 34 34 2c  |,60,2,Left,1044,|
000061f0  34 33 30 2c 31 39 30 2c  36 30 2c 32 2c 52 69 67  |430,190,60,2,Rig|
00006200  68 74 0d 03 8d 5d dc 20  36 38 30 2c 32 30 2c 32  |ht...]. 680,20,2|
00006210  30 30 2c 36 30 2c 32 2c  59 65 73 2c 39 32 30 2c  |00,60,2,Yes,920,|
00006220  32 30 2c 32 30 30 2c 36  30 2c 32 2c 4e 6f 2c 31  |20,200,60,2,No,1|
00006230  30 36 30 2c 37 32 2c 32  30 30 2c 36 30 2c 32 2c  |060,72,200,60,2,|
00006240  43 6f 72 72 65 63 74 2c  32 30 2c 37 32 2c 32 30  |Correct,20,72,20|
00006250  30 2c 36 30 2c 32 2c 4e  65 78 74 20 62 6f 78 0d  |0,60,2,Next box.|
00006260  03 8e 1c dd f2 62 75 74  5f 6f 66 66 28 62 78 25  |.....but_off(bx%|
00006270  2c 62 79 25 2c 74 65 78  74 24 29 0d 03 8f 2b f2  |,by%,text$)...+.|
00006280  70 6c 6f 74 5f 73 70 72  69 74 65 28 62 78 25 2c  |plot_sprite(bx%,|
00006290  62 79 25 2c 31 2c 31 2c  31 2c 31 2c 22 62 75 74  |by%,1,1,1,1,"but|
000062a0  74 6f 6e 31 22 29 0d 03  90 26 6c 65 66 74 5f 6d  |ton1")...&left_m|
000062b0  61 72 67 69 6e 25 3d 28  31 39 34 2d 28 a9 28 74  |argin%=(194-(.(t|
000062c0  65 78 74 24 29 2a 31 36  29 29 2f 32 0d 03 91 06  |ext$)*16))/2....|
000062d0  ef 35 0d 03 92 28 e6 30  2c 33 3a ec 62 78 25 2b  |.5...(.0,3:.bx%+|
000062e0  6c 65 66 74 5f 6d 61 72  67 69 6e 25 2c 62 79 25  |left_margin%,by%|
000062f0  2b 34 32 3a f1 74 65 78  74 24 0d 03 93 05 e1 0d  |+42:.text$......|
00006300  03 94 1b dd f2 62 75 74  5f 6f 6e 28 62 78 25 2c  |.....but_on(bx%,|
00006310  62 79 25 2c 74 65 78 74  24 29 0d 03 95 2b f2 70  |by%,text$)...+.p|
00006320  6c 6f 74 5f 73 70 72 69  74 65 28 62 78 25 2c 62  |lot_sprite(bx%,b|
00006330  79 25 2c 31 2c 31 2c 31  2c 31 2c 22 62 75 74 74  |y%,1,1,1,1,"butt|
00006340  6f 6e 32 22 29 0d 03 96  26 6c 65 66 74 5f 6d 61  |on2")...&left_ma|
00006350  72 67 69 6e 25 3d 28 31  39 34 2d 28 a9 28 74 65  |rgin%=(194-(.(te|
00006360  78 74 24 29 2a 31 36 29  29 2f 32 0d 03 97 06 ef  |xt$)*16))/2.....|
00006370  35 0d 03 98 28 e6 30 2c  33 3a ec 62 78 25 2b 6c  |5...(.0,3:.bx%+l|
00006380  65 66 74 5f 6d 61 72 67  69 6e 25 2c 62 79 25 2b  |eft_margin%,by%+|
00006390  34 32 3a f1 74 65 78 74  24 0d 03 99 05 e1 0d 03  |42:.text$.......|
000063a0  9a 1c dd f2 63 68 65 63  6b 5f 62 75 74 74 6f 6e  |....check_button|
000063b0  73 28 61 6e 5f 6e 75 6d  25 29 0d 03 9b 0f 73 65  |s(an_num%)....se|
000063c0  6c 65 63 74 65 64 25 3d  30 0d 03 9c 06 ef 35 0d  |lected%=0.....5.|
000063d0  03 9d 14 f2 63 68 65 63  6b 5f 6d 6f 75 73 65 28  |....check_mouse(|
000063e0  31 30 29 0d 03 9e 1a e3  62 75 74 5f 6e 25 3d 31  |10).....but_n%=1|
000063f0  20 b8 20 74 6f 74 61 6c  5f 62 75 74 25 0d 03 9f  | . total_but%...|
00006400  19 e7 62 75 74 25 28 62  75 74 5f 6e 25 2c 34 29  |..but%(but_n%,4)|
00006410  3c 32 3a ed 3a e1 0d 03  a0 79 e7 6d 78 25 3e 62  |<2:.:....y.mx%>b|
00006420  75 74 25 28 62 75 74 5f  6e 25 2c 30 29 20 80 20  |ut%(but_n%,0) . |
00006430  6d 78 25 3c 28 62 75 74  25 28 62 75 74 5f 6e 25  |mx%<(but%(but_n%|
00006440  2c 30 29 2b 62 75 74 25  28 62 75 74 5f 6e 25 2c  |,0)+but%(but_n%,|
00006450  32 29 29 20 80 20 6d 79  25 3e 62 75 74 25 28 62  |2)) . my%>but%(b|
00006460  75 74 5f 6e 25 2c 31 29  20 80 20 6d 79 25 3c 28  |ut_n%,1) . my%<(|
00006470  62 75 74 25 28 62 75 74  5f 6e 25 2c 31 29 2b 62  |but%(but_n%,1)+b|
00006480  75 74 25 28 62 75 74 5f  6e 25 2c 33 29 29 8c 0d  |ut%(but_n%,3))..|
00006490  03 a1 0c e7 6d 7a 25 3d  34 20 8c 0d 03 a2 14 73  |....mz%=4 .....s|
000064a0  65 6c 65 63 74 65 64 25  3d 62 75 74 5f 6e 25 0d  |elected%=but_n%.|
000064b0  03 a3 37 f2 62 75 74 5f  6f 6e 28 62 75 74 25 28  |..7.but_on(but%(|
000064c0  62 75 74 5f 6e 25 2c 30  29 2c 62 75 74 25 28 62  |but_n%,0),but%(b|
000064d0  75 74 5f 6e 25 2c 31 29  2c 62 75 74 24 28 62 75  |ut_n%,1),but$(bu|
000064e0  74 5f 6e 25 29 29 0d 03  a4 0e f2 70 61 75 73 65  |t_n%)).....pause|
000064f0  28 33 30 29 0d 03 a5 18  f5 3a c8 97 20 78 25 2c  |(30).....:.. x%,|
00006500  79 25 2c 7a 25 3a fd 20  7a 25 3d 30 0d 03 a6 38  |y%,z%:. z%=0...8|
00006510  f2 62 75 74 5f 6f 66 66  28 62 75 74 25 28 62 75  |.but_off(but%(bu|
00006520  74 5f 6e 25 2c 30 29 2c  62 75 74 25 28 62 75 74  |t_n%,0),but%(but|
00006530  5f 6e 25 2c 31 29 2c 62  75 74 24 28 62 75 74 5f  |_n%,1),but$(but_|
00006540  6e 25 29 29 0d 03 a7 05  cd 0d 03 a8 05 cd 0d 03  |n%))............|
00006550  a9 20 e7 61 6e 5f 6e 75  6d 25 3e 30 3a f2 73 70  |. .an_num%>0:.sp|
00006560  5f 61 6e 69 6d 28 61 6e  5f 6e 75 6d 25 29 0d 03  |_anim(an_num%)..|
00006570  aa 05 ed 0d 03 ab 05 e1  0d 03 ac 16 dd f2 73 70  |..............sp|
00006580  5f 61 6e 69 6d 28 61 6e  5f 6e 75 6d 25 29 0d 03  |_anim(an_num%)..|
00006590  ad 10 e7 61 6e 5f 6e 75  6d 25 3d 31 20 8c 0d 03  |...an_num%=1 ...|
000065a0  ae 1c e7 61 6e 5f 74 25  2b 33 30 3c 91 20 80 20  |...an_t%+30<. . |
000065b0  61 6c 74 65 72 25 3d 31  20 8c 0d 03 af 12 e7 73  |alter%=1 ......s|
000065c0  65 63 74 69 6f 6e 73 25  3d 31 20 8c 0d 03 b0 19  |ections%=1 .....|
000065d0  f2 62 6f 61 32 28 31 31  30 30 2c 37 36 34 2c 34  |.boa2(1100,764,4|
000065e0  38 2c 35 36 29 0d 03 b1  05 cd 0d 03 b2 0c 61 6c  |8,56).........al|
000065f0  74 65 72 25 3d 32 0d 03  b3 05 cd 0d 03 b4 11 e7  |ter%=2..........|
00006600  61 6e 5f 74 25 2b 35 30  3c 91 20 8c 0d 03 b5 12  |an_t%+50<. .....|
00006610  e7 73 65 63 74 69 6f 6e  73 25 3d 31 20 8c 0d 03  |.sections%=1 ...|
00006620  b6 18 f2 62 6f 61 28 31  31 30 30 2c 37 36 34 2c  |...boa(1100,764,|
00006630  34 38 2c 35 36 29 0d 03  b7 05 cd 0d 03 b8 0c 61  |48,56).........a|
00006640  6c 74 65 72 25 3d 31 0d  03 b9 0b 61 6e 5f 74 25  |lter%=1....an_t%|
00006650  3d 91 0d 03 ba 05 cd 0d  03 bb 05 cd 0d 03 bc 10  |=...............|
00006660  e7 61 6e 5f 6e 75 6d 25  3d 32 20 8c 0d 03 bd 12  |.an_num%=2 .....|
00006670  e7 73 65 63 74 69 6f 6e  73 25 3d 31 20 8c 0d 03  |.sections%=1 ...|
00006680  be 18 f2 62 6f 61 28 31  31 30 30 2c 37 36 34 2c  |...boa(1100,764,|
00006690  34 38 2c 35 36 29 0d 03  bf 05 cd 0d 03 c0 2d e7  |48,56)........-.|
000066a0  73 6f 75 6e 64 5f 74 25  2b 31 30 30 3c 91 3a d4  |sound_t%+100<.:.|
000066b0  31 2c 2d 36 2c 26 31 30  30 30 2c 32 30 3a 73 6f  |1,-6,&1000,20:so|
000066c0  75 6e 64 5f 74 25 3d 91  0d 03 c1 05 cd 0d 03 c2  |und_t%=.........|
000066d0  05 e1 0d 03 c3 12 dd f2  63 68 65 63 6b 5f 61 6e  |........check_an|
000066e0  5f 6e 75 6d 0d 03 c4 09  f7 8d 64 4f 53 0d 03 c5  |_num......dOS...|
000066f0  0c 67 6f 5f 61 6e 25 3d  30 0d 03 c6 14 e3 63 61  |.go_an%=0.....ca|
00006700  6e 25 3d 31 b8 20 61 6e  5f 6e 75 6d 25 0d 03 c7  |n%=1. an_num%...|
00006710  53 e3 63 61 6e 6e 25 3d  31 b8 33 3a f3 61 6e 78  |S.cann%=1.3:.anx|
00006720  25 28 63 61 6e 6e 25 29  2c 61 6e 79 25 28 63 61  |%(cann%),any%(ca|
00006730  6e 6e 25 29 2c 61 6e 78  78 25 28 63 61 6e 6e 25  |nn%),anxx%(cann%|
00006740  29 2c 61 6e 79 79 25 28  63 61 6e 6e 25 29 2c 61  |),anyy%(cann%),a|
00006750  6e 5f 74 79 70 65 25 28  63 61 6e 6e 25 29 3a ed  |n_type%(cann%):.|
00006760  0d 03 c8 05 ed 0d 03 c9  4f e7 6d 78 25 3c 61 6e  |........O.mx%<an|
00006770  78 78 25 28 31 29 20 80  20 6d 78 25 3e 61 6e 78  |xx%(1) . mx%>anx|
00006780  25 28 31 29 20 80 20 6d  79 25 3c 61 6e 79 79 25  |%(1) . my%<anyy%|
00006790  28 31 29 20 80 20 6d 79  25 3e 61 6e 79 25 28 31  |(1) . my%>any%(1|
000067a0  29 3a 67 6f 5f 61 6e 25  3d 61 6e 5f 74 79 70 65  |):go_an%=an_type|
000067b0  25 28 31 29 0d 03 ca 4f  e7 6d 78 25 3c 61 6e 78  |%(1)...O.mx%<anx|
000067c0  78 25 28 32 29 20 80 20  6d 78 25 3e 61 6e 78 25  |x%(2) . mx%>anx%|
000067d0  28 32 29 20 80 20 6d 79  25 3c 61 6e 79 79 25 28  |(2) . my%<anyy%(|
000067e0  32 29 20 80 20 6d 79 25  3e 61 6e 79 25 28 32 29  |2) . my%>any%(2)|
000067f0  3a 67 6f 5f 61 6e 25 3d  61 6e 5f 74 79 70 65 25  |:go_an%=an_type%|
00006800  28 32 29 0d 03 cb 4f e7  6d 78 25 3c 61 6e 78 78  |(2)...O.mx%<anxx|
00006810  25 28 33 29 20 80 20 6d  78 25 3e 61 6e 78 25 28  |%(3) . mx%>anx%(|
00006820  33 29 20 80 20 6d 79 25  3c 61 6e 79 79 25 28 33  |3) . my%<anyy%(3|
00006830  29 20 80 20 6d 79 25 3e  61 6e 79 25 28 33 29 3a  |) . my%>any%(3):|
00006840  67 6f 5f 61 6e 25 3d 61  6e 5f 74 79 70 65 25 28  |go_an%=an_type%(|
00006850  33 29 0d 03 cc 1a e7 67  6f 5f 61 6e 25 3d 31 20  |3).....go_an%=1 |
00006860  f2 62 6f 75 6e 63 65 5f  62 61 6c 6c 0d 03 cd 14  |.bounce_ball....|
00006870  e7 67 6f 5f 61 6e 25 3d  32 20 f2 73 77 65 65 70  |.go_an%=2 .sweep|
00006880  0d 03 ce 1e e7 67 6f 5f  61 6e 25 3e 30 20 f2 73  |.....go_an%>0 .s|
00006890  65 74 5f 6e 65 77 5f 62  75 74 74 6f 6e 73 0d 03  |et_new_buttons..|
000068a0  cf 05 e1 0d 03 d0 0e dd  f2 70 61 6c 65 74 74 65  |.........palette|
000068b0  32 0d 03 d1 18 ef 31 39  2c 31 2c 32 34 2c 31 33  |2.....19,1,24,13|
000068c0  36 2c 31 33 36 2c 31 33  36 0d 03 d2 2c e7 56 25  |6,136,136...,.V%|
000068d0  3d 30 20 ef 32 34 2c 30  3b 39 36 30 3b 31 32 37  |=0 .24,0;960;127|
000068e0  38 3b 31 30 32 32 3b 31  38 2c 30 2c 31 33 31 2c  |8;1022;18,0,131,|
000068f0  31 36 2c 32 36 0d 03 d3  10 ea 70 25 2c 72 25 2c  |16,26.....p%,r%,|
00006900  67 25 2c 62 25 0d 03 d4  07 f7 2b 34 0d 03 d5 0c  |g%,b%.....+4....|
00006910  e3 70 25 3d 30 b8 31 35  0d 03 d6 1a f3 72 25 2c  |.p%=0.15.....r%,|
00006920  67 25 2c 62 25 3a fb 70  25 2c 72 25 2c 67 25 2c  |g%,b%:.p%,r%,g%,|
00006930  62 25 0d 03 d7 07 ed 3a  e1 0d 03 d8 2f dc 20 32  |b%.....:..../. 2|
00006940  35 35 2c 32 35 35 2c 32  35 35 2c 31 38 37 2c 31  |55,255,255,187,1|
00006950  38 37 2c 31 38 37 2c 31  33 36 2c 31 33 36 2c 31  |87,187,136,136,1|
00006960  33 36 2c 30 2c 30 2c 30  0d 03 d9 29 dc 20 30 2c  |36,0,0,0...). 0,|
00006970  30 2c 31 37 35 2c 30 2c  30 2c 32 35 35 2c 30 2c  |0,175,0,0,255,0,|
00006980  32 30 34 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |204,255,255,255,|
00006990  30 0d 03 da 28 dc 20 32  30 34 2c 32 30 34 2c 30  |0...(. 204,204,0|
000069a0  2c 32 32 31 2c 30 2c 30  2c 31 33 36 2c 31 37 2c  |,221,0,0,136,17,|
000069b0  30 2c 30 2c 31 35 33 2c  30 0d 03 db 2a dc 20 30  |0,0,153,0...*. 0|
000069c0  2c 31 38 37 2c 33 34 2c  30 2c 32 35 35 2c 30 2c  |,187,34,0,255,0,|
000069d0  32 35 35 2c 32 32 31 2c  31 37 30 2c 30 2c 30 2c  |255,221,170,0,0,|
000069e0  31 37 35 0d 03 dc 12 dd  f2 69 6e 74 69 67 65 72  |175......intiger|
000069f0  5f 69 63 6e 73 0d 03 dd  0e e3 66 25 3d 30 20 b8  |_icns.....f%=0 .|
00006a00  20 31 32 0d 03 de 39 e7  28 55 25 20 80 20 28 31  | 12...9.(U% . (1|
00006a10  3c 3c 66 25 29 29 3d 28  31 3c 3c 66 25 29 20 66  |<<f%))=(1<<f%) f|
00006a20  69 72 73 74 6e 25 28 66  25 29 3d 31 20 8b 20 66  |irstn%(f%)=1 . f|
00006a30  69 72 73 74 6e 25 28 66  25 29 3d 30 0d 03 df 05  |irstn%(f%)=0....|
00006a40  ed 0d 03 e0 0e e3 66 25  3d 30 20 b8 20 31 32 0d  |......f%=0 . 12.|
00006a50  03 e1 3b e7 28 57 25 20  80 20 28 31 3c 3c 66 25  |..;.(W% . (1<<f%|
00006a60  29 29 3d 28 31 3c 3c 66  25 29 20 73 65 63 6f 6e  |))=(1<<f%) secon|
00006a70  64 6e 25 28 66 25 29 3d  31 20 8b 20 73 65 63 6f  |dn%(f%)=1 . seco|
00006a80  6e 64 6e 25 28 66 25 29  3d 30 0d 03 e2 05 ed 0d  |ndn%(f%)=0......|
00006a90  03 e3 31 e7 28 57 25 20  80 20 28 31 3c 3c 31 33  |..1.(W% . (1<<13|
00006aa0  29 29 3d 28 31 3c 3c 31  33 29 20 6d 69 78 65 64  |))=(1<<13) mixed|
00006ab0  6e 25 3d 31 20 8b 20 6d  69 78 65 64 6e 25 3d 30  |n%=1 . mixedn%=0|
00006ac0  0d 03 e4 05 e1 0d 03 e5  13 dd f2 73 65 74 5f 74  |...........set_t|
00006ad0  61 62 6c 65 5f 6f 6e 65  0d 03 e6 11 f2 69 6e 74  |able_one.....int|
00006ae0  69 67 65 72 5f 69 63 6e  73 0d 03 e7 0f f2 63 6c  |iger_icns.....cl|
00006af0  65 61 72 5f 72 6e 64 31  0d 03 e8 0f f2 63 6c 65  |ear_rnd1.....cle|
00006b00  61 72 5f 72 6e 64 32 0d  03 e9 17 6c 61 73 74 5f  |ar_rnd2....last_|
00006b10  63 68 6f 73 65 6e 31 25  3d 47 25 3e 3e 38 0d 03  |chosen1%=G%>>8..|
00006b20  ea 19 6c 61 73 74 5f 63  68 6f 73 65 6e 32 25 3d  |..last_chosen2%=|
00006b30  47 25 20 80 20 26 46 0d  03 eb 14 72 65 70 65 61  |G% . &F....repea|
00006b40  74 5f 65 72 72 6f 72 32  25 3d 30 0d 03 ec 05 f5  |t_error2%=0.....|
00006b50  0d 03 ed 23 72 65 70 65  61 74 5f 65 72 72 6f 72  |...#repeat_error|
00006b60  32 25 3d 72 65 70 65 61  74 5f 65 72 72 6f 72 32  |2%=repeat_error2|
00006b70  25 2b 31 0d 03 ee 19 e3  66 69 6e 64 25 3d 31 20  |%+1.....find%=1 |
00006b80  b8 20 6e 75 6d 62 65 72  5f 6f 66 25 0d 03 ef 13  |. number_of%....|
00006b90  72 65 70 65 61 74 5f 65  72 72 6f 72 25 3d 30 0d  |repeat_error%=0.|
00006ba0  03 f0 05 f5 0d 03 f1 21  72 65 70 65 61 74 5f 65  |.......!repeat_e|
00006bb0  72 72 6f 72 25 3d 72 65  70 65 61 74 5f 65 72 72  |rror%=repeat_err|
00006bc0  6f 72 25 2b 31 0d 03 f2  05 f5 0d 03 f3 12 72 6e  |or%+1.........rn|
00006bd0  64 25 3d 28 b3 28 31 33  29 2d 31 29 0d 03 f4 1e  |d%=(.(13)-1)....|
00006be0  fd 20 66 69 72 73 74 6e  25 28 72 6e 64 25 29 3d  |. firstn%(rnd%)=|
00006bf0  31 20 80 20 72 6e 64 25  3e 30 0d 03 f5 2d fd 20  |1 . rnd%>0...-. |
00006c00  72 6e 64 5f 70 69 63 6b  65 72 31 25 28 72 6e 64  |rnd_picker1%(rnd|
00006c10  25 29 3d 30 20 84 20 72  65 70 65 61 74 5f 65 72  |%)=0 . repeat_er|
00006c20  72 6f 72 25 3d 31 30 0d  03 f6 18 72 6e 64 5f 70  |ror%=10....rnd_p|
00006c30  69 63 6b 65 72 31 25 28  72 6e 64 25 29 3d 31 0d  |icker1%(rnd%)=1.|
00006c40  03 f7 1c 72 6e 64 5f 6e  75 6d 62 65 72 31 25 28  |...rnd_number1%(|
00006c50  66 69 6e 64 25 29 3d 72  6e 64 25 0d 03 f8 13 72  |find%)=rnd%....r|
00006c60  65 70 65 61 74 5f 65 72  72 6f 72 25 3d 30 0d 03  |epeat_error%=0..|
00006c70  f9 05 f5 0d 03 fa 21 72  65 70 65 61 74 5f 65 72  |......!repeat_er|
00006c80  72 6f 72 25 3d 72 65 70  65 61 74 5f 65 72 72 6f  |ror%=repeat_erro|
00006c90  72 25 2b 31 0d 03 fb 05  f5 0d 03 fc 12 72 6e 64  |r%+1.........rnd|
00006ca0  25 3d 28 b3 28 31 33 29  2d 31 29 0d 03 fd 1f fd  |%=(.(13)-1).....|
00006cb0  20 73 65 63 6f 6e 64 6e  25 28 72 6e 64 25 29 3d  | secondn%(rnd%)=|
00006cc0  31 20 80 20 72 6e 64 25  3e 30 0d 03 fe 2d fd 20  |1 . rnd%>0...-. |
00006cd0  72 6e 64 5f 70 69 63 6b  65 72 32 25 28 72 6e 64  |rnd_picker2%(rnd|
00006ce0  25 29 3d 30 20 84 20 72  65 70 65 61 74 5f 65 72  |%)=0 . repeat_er|
00006cf0  72 6f 72 25 3d 31 30 0d  03 ff 18 72 6e 64 5f 70  |ror%=10....rnd_p|
00006d00  69 63 6b 65 72 32 25 28  72 6e 64 25 29 3d 31 0d  |icker2%(rnd%)=1.|
00006d10  04 00 1c 72 6e 64 5f 6e  75 6d 62 65 72 32 25 28  |...rnd_number2%(|
00006d20  66 69 6e 64 25 29 3d 72  6e 64 25 0d 04 01 05 ed  |find%)=rnd%.....|
00006d30  0d 04 02 80 fd 20 72 6e  64 5f 6e 75 6d 62 65 72  |..... rnd_number|
00006d40  31 25 28 31 29 3c 3e 72  6e 64 5f 6e 75 6d 62 65  |1%(1)<>rnd_numbe|
00006d50  72 32 25 28 31 29 20 80  20 28 28 72 6e 64 5f 6e  |r2%(1) . ((rnd_n|
00006d60  75 6d 62 65 72 31 25 28  31 29 3c 3e 6c 61 73 74  |umber1%(1)<>last|
00006d70  5f 63 68 6f 73 65 6e 31  25 20 80 20 72 6e 64 5f  |_chosen1% . rnd_|
00006d80  6e 75 6d 62 65 72 32 25  28 31 29 3c 3e 6c 61 73  |number2%(1)<>las|
00006d90  74 5f 63 68 6f 73 65 6e  32 25 29 20 84 20 72 65  |t_chosen2%) . re|
00006da0  70 65 61 74 5f 65 72 72  6f 72 32 25 3e 31 30 29  |peat_error2%>10)|
00006db0  0d 04 03 19 47 25 3d 72  6e 64 5f 6e 75 6d 62 65  |....G%=rnd_numbe|
00006dc0  72 31 25 28 31 29 3c 3c  38 0d 04 04 1b 47 25 3d  |r1%(1)<<8....G%=|
00006dd0  47 25 20 84 20 72 6e 64  5f 6e 75 6d 62 65 72 32  |G% . rnd_number2|
00006de0  25 28 31 29 0d 04 05 19  e3 66 69 6e 64 25 3d 31  |%(1).....find%=1|
00006df0  20 b8 20 6e 75 6d 62 65  72 5f 6f 66 25 0d 04 06  | . number_of%...|
00006e00  1c e7 6d 69 78 65 64 6e  25 3d 31 20 80 20 b3 28  |..mixedn%=1 . .(|
00006e10  31 30 30 29 3e 35 30 20  8c 0d 04 07 31 61 25 3d  |100)>50 ....1a%=|
00006e20  72 6e 64 5f 6e 75 6d 62  65 72 31 25 28 66 69 6e  |rnd_number1%(fin|
00006e30  64 25 29 3a 62 25 3d 72  6e 64 5f 6e 75 6d 62 65  |d%):b%=rnd_numbe|
00006e40  72 32 25 28 66 69 6e 64  25 29 0d 04 08 31 72 6e  |r2%(find%)...1rn|
00006e50  64 5f 6e 75 6d 62 65 72  32 25 28 66 69 6e 64 25  |d_number2%(find%|
00006e60  29 3d 61 25 3a 72 6e 64  5f 6e 75 6d 62 65 72 31  |)=a%:rnd_number1|
00006e70  25 28 66 69 6e 64 25 29  3d 62 25 0d 04 09 05 cd  |%(find%)=b%.....|
00006e80  0d 04 0a 28 74 61 62 6c  65 73 25 28 66 69 6e 64  |...(tables%(find|
00006e90  25 2c 31 29 3d 72 6e 64  5f 6e 75 6d 62 65 72 31  |%,1)=rnd_number1|
00006ea0  25 28 66 69 6e 64 25 29  0d 04 0b 28 74 61 62 6c  |%(find%)...(tabl|
00006eb0  65 73 25 28 66 69 6e 64  25 2c 32 29 3d 72 6e 64  |es%(find%,2)=rnd|
00006ec0  5f 6e 75 6d 62 65 72 32  25 28 66 69 6e 64 25 29  |_number2%(find%)|
00006ed0  0d 04 0c 3c 74 61 62 6c  65 73 25 28 66 69 6e 64  |...<tables%(find|
00006ee0  25 2c 33 29 3d 72 6e 64  5f 6e 75 6d 62 65 72 31  |%,3)=rnd_number1|
00006ef0  25 28 66 69 6e 64 25 29  2a 72 6e 64 5f 6e 75 6d  |%(find%)*rnd_num|
00006f00  62 65 72 32 25 28 66 69  6e 64 25 29 0d 04 0d 05  |ber2%(find%)....|
00006f10  ed 0d 04 0e 0b 66 69 72  6e 25 3d 30 0d 04 0f 0b  |.....firn%=0....|
00006f20  73 65 63 6e 25 3d 30 0d  04 10 0c e3 66 25 3d 31  |secn%=0.....f%=1|
00006f30  b8 31 32 0d 04 11 1c e7  73 65 63 6f 6e 64 6e 25  |.12.....secondn%|
00006f40  28 66 25 29 3d 31 3a 73  65 63 6e 25 2b 3d 31 0d  |(f%)=1:secn%+=1.|
00006f50  04 12 05 ed 0d 04 13 0c  e3 66 25 3d 31 b8 31 32  |.........f%=1.12|
00006f60  0d 04 14 1b e7 66 69 72  73 74 6e 25 28 66 25 29  |.....firstn%(f%)|
00006f70  3d 31 3a 66 69 72 6e 25  2b 3d 31 0d 04 15 05 ed  |=1:firn%+=1.....|
00006f80  0d 04 16 3a e7 66 69 72  6e 25 3c 73 65 63 6e 25  |...:.firn%<secn%|
00006f90  20 8c 20 66 69 72 73 74  5f 6f 72 5f 73 65 63 6f  | . first_or_seco|
00006fa0  6e 64 25 3d 31 20 8b 20  66 69 72 73 74 5f 6f 72  |nd%=1 . first_or|
00006fb0  5f 73 65 63 6f 6e 64 25  3d 32 0d 04 17 05 e1 0d  |_second%=2......|
00006fc0  04 18 10 dd f2 63 6c 65  61 72 5f 72 6e 64 31 0d  |.....clear_rnd1.|
00006fd0  04 19 0c e3 66 25 3d 30  b8 31 32 0d 04 1a 16 72  |....f%=0.12....r|
00006fe0  6e 64 5f 70 69 63 6b 65  72 31 25 28 66 25 29 3d  |nd_picker1%(f%)=|
00006ff0  30 0d 04 1b 05 ed 0d 04  1c 05 e1 0d 04 1d 10 dd  |0...............|
00007000  f2 63 6c 65 61 72 5f 72  6e 64 32 0d 04 1e 0c e3  |.clear_rnd2.....|
00007010  66 25 3d 30 b8 31 32 0d  04 1f 16 72 6e 64 5f 70  |f%=0.12....rnd_p|
00007020  69 63 6b 65 72 32 25 28  66 25 29 3d 30 0d 04 20  |icker2%(f%)=0.. |
00007030  05 ed 0d 04 21 05 e1 0d  04 22 26 dd f2 72 6f 74  |....!...."&..rot|
00007040  61 74 65 5f 6e 75 6d 62  65 72 73 28 78 25 2c 79  |ate_numbers(x%,y|
00007050  25 2c 64 69 67 69 74 73  25 2c 62 24 29 0d 04 23  |%,digits%,b$)..#|
00007060  14 e3 72 6c 69 6e 65 25  3d 31 b8 20 a9 28 62 24  |..rline%=1. .(b$|
00007070  29 0d 04 24 1a 72 6e 75  6d 25 3d 97 28 c1 62 24  |)..$.rnum%=.(.b$|
00007080  2c 72 6c 69 6e 65 25 2c  31 29 29 0d 04 25 1a e7  |,rline%,1))..%..|
00007090  72 6e 75 6d 25 3e 34 38  20 80 20 72 6e 75 6d 25  |rnum%>48 . rnum%|
000070a0  3c 35 38 20 8c 0d 04 26  0d 72 62 61 73 65 25 3d  |<58 ...&.rbase%=|
000070b0  34 38 0d 04 27 05 f5 0d  04 28 0d f2 73 74 5f 70  |48..'....(..st_p|
000070c0  61 75 73 65 0d 04 29 12  63 24 3d c0 62 24 2c 72  |ause..).c$=.b$,r|
000070d0  6c 69 6e 65 25 29 0d 04  2a 1b c1 63 24 2c 72 6c  |line%)..*..c$,rl|
000070e0  69 6e 65 25 2c 31 29 3d  bd 28 72 62 61 73 65 25  |ine%,1)=.(rbase%|
000070f0  29 0d 04 2b 24 f2 70 6c  6f 74 5f 6e 75 6d 62 65  |)..+$.plot_numbe|
00007100  72 73 32 28 78 25 2c 79  25 2c 64 69 67 69 74 73  |rs2(x%,y%,digits|
00007110  25 2c 63 24 29 0d 04 2c  13 72 62 61 73 65 25 3d  |%,c$)..,.rbase%=|
00007120  72 62 61 73 65 25 2b 31  0d 04 2d 10 f2 65 6e 5f  |rbase%+1..-..en_|
00007130  70 61 75 73 65 28 38 29  0d 04 2e 11 fd 72 62 61  |pause(8).....rba|
00007140  73 65 25 3d 72 6e 75 6d  25 0d 04 2f 05 cd 0d 04  |se%=rnum%../....|
00007150  30 12 63 24 3d c0 62 24  2c 72 6c 69 6e 65 25 29  |0.c$=.b$,rline%)|
00007160  0d 04 31 24 f2 70 6c 6f  74 5f 6e 75 6d 62 65 72  |..1$.plot_number|
00007170  73 32 28 78 25 2c 79 25  2c 64 69 67 69 74 73 25  |s2(x%,y%,digits%|
00007180  2c 63 24 29 0d 04 32 05  ed 0d 04 33 05 e1 0d 04  |,c$)..2....3....|
00007190  34 25 dd f2 70 6c 6f 74  5f 6e 75 6d 62 65 72 73  |4%..plot_numbers|
000071a0  32 28 78 25 2c 79 25 2c  64 69 67 69 74 73 25 2c  |2(x%,y%,digits%,|
000071b0  61 24 29 0d 04 35 12 e3  70 6e 25 3d 31 20 b8 20  |a$)..5..pn%=1 . |
000071c0  a9 28 61 24 29 0d 04 36  38 f2 70 6c 6f 74 5f 73  |.(a$)..68.plot_s|
000071d0  70 72 69 74 65 28 28 78  25 2d 33 38 29 2b 28 70  |prite((x%-38)+(p|
000071e0  6e 25 2a 33 38 29 2c 79  25 2c 31 2c 31 2c 31 2c  |n%*38),y%,1,1,1,|
000071f0  31 2c c1 61 24 2c 70 6e  25 2c 31 29 29 0d 04 37  |1,.a$,pn%,1))..7|
00007200  05 ed 0d 04 38 05 e1 0d  04 39 24 dd f2 70 6c 6f  |....8....9$..plo|
00007210  74 5f 6e 75 6d 62 65 72  73 28 78 25 2c 79 25 2c  |t_numbers(x%,y%,|
00007220  64 69 67 69 74 73 25 2c  61 24 29 0d 04 3a 14 e7  |digits%,a$)..:..|
00007230  a9 28 61 24 29 3c 64 69  67 69 74 73 25 20 8c 0d  |.(a$)<digits% ..|
00007240  04 3b 05 f5 0d 04 3c 0d  61 24 3d 22 64 22 2b 61  |.;....<.a$="d"+a|
00007250  24 0d 04 3d 12 fd a9 28  61 24 29 3d 64 69 67 69  |$..=...(a$)=digi|
00007260  74 73 25 0d 04 3e 05 cd  0d 04 3f 12 e3 70 6e 25  |ts%..>....?..pn%|
00007270  3d 31 20 b8 20 a9 28 61  24 29 0d 04 40 38 f2 70  |=1 . .(a$)..@8.p|
00007280  6c 6f 74 5f 73 70 72 69  74 65 28 28 78 25 2d 33  |lot_sprite((x%-3|
00007290  38 29 2b 28 70 6e 25 2a  33 38 29 2c 79 25 2c 31  |8)+(pn%*38),y%,1|
000072a0  2c 31 2c 31 2c 31 2c c1  61 24 2c 70 6e 25 2c 31  |,1,1,1,.a$,pn%,1|
000072b0  29 29 0d 04 41 05 ed 0d  04 42 05 e1 0d 04 43 5d  |))..A....B....C]|
000072c0  dd f2 6d 6f 76 65 5f 62  6c 6f 63 6b 28 66 72 6f  |..move_block(fro|
000072d0  6d 5f 73 63 72 65 65 6e  25 2c 66 72 6f 6d 5f 78  |m_screen%,from_x|
000072e0  25 2c 66 72 6f 6d 5f 79  25 2c 74 6f 5f 73 63 72  |%,from_y%,to_scr|
000072f0  65 65 6e 25 2c 74 6f 5f  78 25 2c 74 6f 5f 79 25  |een%,to_x%,to_y%|
00007300  2c 62 79 74 65 73 5f 61  63 72 6f 73 73 25 2c 73  |,bytes_across%,s|
00007310  63 61 6e 73 5f 75 70 25  29 0d 04 44 1b e7 62 79  |cans_up%)..D..by|
00007320  74 65 73 5f 61 63 72 6f  73 73 25 20 83 20 34 3c  |tes_across% . 4<|
00007330  3e 30 20 fa 0d 04 45 2a  41 25 3d 66 72 6f 6d 5f  |>0 ...E*A%=from_|
00007340  73 63 72 65 65 6e 25 2b  a4 63 61 6c 63 28 66 72  |screen%+.calc(fr|
00007350  6f 6d 5f 78 25 2c 66 72  6f 6d 5f 79 25 29 0d 04  |om_x%,from_y%)..|
00007360  46 24 42 25 3d 74 6f 5f  73 63 72 65 65 6e 25 2b  |F$B%=to_screen%+|
00007370  a4 63 61 6c 63 28 74 6f  5f 78 25 2c 74 6f 5f 79  |.calc(to_x%,to_y|
00007380  25 29 0d 04 47 14 43 25  3d 62 79 74 65 73 5f 61  |%)..G.C%=bytes_a|
00007390  63 72 6f 73 73 25 0d 04  48 1b 44 25 3d 28 73 63  |cross%..H.D%=(sc|
000073a0  61 6e 73 5f 75 70 25 2a  28 56 25 2b 31 29 29 2d  |ans_up%*(V%+1))-|
000073b0  31 0d 04 49 11 d6 20 6d  6f 76 65 5f 62 6c 6f 63  |1..I.. move_bloc|
000073c0  6b 25 0d 04 4a 05 e1 0d  04 4b 11 dd a4 63 61 6c  |k%..J....K...cal|
000073d0  63 28 78 25 2c 79 25 29  0d 04 4c 2b 74 6f 70 5f  |c(x%,y%)..L+top_|
000073e0  6c 69 6e 65 73 25 3d 30  3a e7 20 76 67 61 25 3d  |lines%=0:. vga%=|
000073f0  30 20 74 6f 70 5f 6c 69  6e 65 73 25 3d 33 32 30  |0 top_lines%=320|
00007400  2a 31 36 0d 04 4d 2d 3d  74 6f 70 5f 6c 69 6e 65  |*16..M-=top_line|
00007410  73 25 2b 28 78 25 2f 34  29 2b 28 28 39 35 36 2d  |s%+(x%/4)+((956-|
00007420  79 25 29 2a 38 30 29 2a  28 76 67 61 25 2b 31 29  |y%)*80)*(vga%+1)|
00007430  0d 04 4e 17 dd f2 70 75  6c 6c 5f 70 61 63 5f 63  |..N...pull_pac_c|
00007440  6f 64 65 5f 76 61 72 0d  04 4f 18 6d 61 69 6e 25  |ode_var..O.main%|
00007450  3d 21 28 6d 5f 63 6f 64  65 32 25 2b 26 30 29 0d  |=!(m_code2%+&0).|
00007460  04 50 21 73 65 74 5f 71  75 69 63 6b 73 61 6e 64  |.P!set_quicksand|
00007470  25 3d 21 28 6d 5f 63 6f  64 65 32 25 2b 26 34 29  |%=!(m_code2%+&4)|
00007480  0d 04 51 1b 73 70 6c 6f  64 67 65 25 3d 21 28 6d  |..Q.splodge%=!(m|
00007490  5f 63 6f 64 65 32 25 2b  26 38 29 0d 04 52 1e 73  |_code2%+&8)..R.s|
000074a0  63 72 6f 6c 6c 5f 61 6c  6c 25 3d 21 28 6d 5f 63  |croll_all%=!(m_c|
000074b0  6f 64 65 32 25 2b 26 43  29 0d 04 53 05 e1 0d ff  |ode2%+&C)..S....|
000074c0