� !RunImage
� By Philip Mellor
:
(� � �4:�:�" - ";�:�
2:
<5�msgtrans_init("<SpotOn$Dir>.Resources.Messages")
FIș "Wimp_Initialise",200,&4B534154,�msgtrans_lookup0("TASK") � ,task%
P	�init
Z�createiconbar
d�load_options(�)
n:
x�check_env
�� � � �error � �close:�
�:
��
�	�poll
�� quit%
�
�close
��
�:
���check_env
�ș "OS_GetEnv" � env$
�� �env$,"-load ")<>0 �
�.filename$=�env$,�(env$)-�env$,"-load ")-5)
��load_data(filename$)

�

�

:

"� �createiconbar

,6!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002

64$(b%+24)="!SpotOn":ș "Wimp_CreateIcon",,b% � i%

@�

J:

T� �close

^'ș "Wimp_CloseDown",task%,&4B534154

h�

r:

|� �poll

�ș "Wimp_Poll",,b% � r%

�Ȏ r% �

�>� 2:� !b%<>opt% � ș "Wimp_OpenWindow",,b%:�open_pane(!b%)

�#       � !b%=opt% �move_optpane

�!� 3:ș "Wimp_CloseWindow",,b%

�       �close_pane(!b%)

�� 6:�mouseclick

�� 7:�dragend

�� 9:�menuclick

�� 17,18,19:�recieve

��

��

�:
� �recieve
Ȏ b%!16 �
� 0:quit%=�
&
� 2:�save
0
� 3:�load
:� 5:�dataopen
D� &502:�helpme
N�
X�
b:
l��dataopen
vfiletype=b%!40
��term(b%+44)
�filename$=$(b%+44)
�3� filetype=&3B5 �respond_dc(filename$,filetype)
��
�:
�$��respond_dc(filename$,filetype)
�b%!12=b%!8
�b%!16=4
�
!b%=64
�$ș "Wimp_SendMessage",17,b%,b%!4
��load_data(filename$)
��
�:
!� �update_icon(window%,icon%)
b%!0=window%
   b%!4=icon%
 
   b%!8=0
*   b%!12=0
4!   ș "Wimp_SetIconState",,b%
>�
H:
R+��get_origin(handle%,� xorig%,� yorig%)
\� c%
f
c%=b%+800
p!c%=handle%
z ș "Wimp_GetWindowState",,c%
�xorig%=c%!4-c%!20
�yorig%=c%!16-c%!24
��
�:
�� �mouseclick
�window%=b%!12
�icon%=b%!16
�button%=b%!8
�Ȏ window% �
�
�	 � -2
�  Ȏ button% �
�   � 4:�clickonbar
.   � 2:�showmenu(mainmenu%,!b%-64,96+3*44)
   �

$ � opt_pane%
.  Ȏ icon% �
8>   � 2:� button%=4 �change_num(opt_pane%,8,-1,min_x,max_x)
BA         :� button%=1 �change_num(opt_pane%,8,+1,min_x,max_x)
L>   � 3:� button%=4 �change_num(opt_pane%,8,+1,min_x,max_x)
VA         :� button%=1 �change_num(opt_pane%,8,-1,min_x,max_x)
`>   � 6:� button%=4 �change_num(opt_pane%,4,-1,min_y,max_y)
jA         :� button%=1 �change_num(opt_pane%,4,+1,min_y,max_y)
t>   � 7:� button%=4 �change_num(opt_pane%,4,+1,min_y,max_y)
~A         :� button%=1 �change_num(opt_pane%,4,-1,min_y,max_y)
�4   � 12,13,14,15,16,17, 20,21,22,23,24,25,26,27:
�    � button%=1 �
�J     � �icon_state(opt_pane%,icon%)=� � �set_button(opt_pane%,icon%,�)
�	    �
�  �
�
� � opt%
�  Ȏ icon% �
�   � 1:�start_new
�   � 2:�close_window(opt%)
�   � 3:�load_options(�)
�   � 4:�save_options
  �


 � game_pane%
2  � button%=2 �showmenu(gamemenu%,!b%-64,b%!4)
(
2 � game%
<2  � button%=2 �showmenu(gamemenu%,!b%-64,b%!4)
F  � clickable=� �
P  � ix=1 � size_x%
ZR   � icon%=up%(ix) � button%=4 �slide_up(ix):�redraw_board:�move:�check_finish
dT   � icon%=up%(ix) � button%=1 �slide_down(ix):�redraw_board:�move:�check_finish
nV   � icon%=down%(ix) � button%=4 �slide_down(ix):�redraw_board:�move:�check_finish
xT   � icon%=down%(ix) � button%=1 �slide_up(ix):�redraw_board:�move:�check_finish
�  �
�  � iy=1 � size_y%
�V   � icon%=left%(iy) � button%=4 �slide_left(iy):�redraw_board:�move:�check_finish
�W   � icon%=left%(iy) � button%=1 �slide_right(iy):�redraw_board:�move:�check_finish
�X   � icon%=right%(iy) � button%=4 �slide_right(iy):�redraw_board:�move:�check_finish
�W   � icon%=right%(iy) � button%=1 �slide_left(iy):�redraw_board:�move:�check_finish
�  �
�  �
�
� � saveas%
�  Ȏ icon% �
�   � 1:�drag(saveas%,1)
�   � 3:�put_save_data
K          � button%=4 � �close_window(saveas%):ș "Wimp_CreateMenu",,-1
  �

"�
,�
6:
@
��move
Jmoves+=1
T)�set_icon_string(game_pane%,2,�moves)
^�update_icon(game_pane%,2)
h�
r:
|��check_finish
�correct%=0
�� by=1 � size_y%
� � bx=1 � size_x%
�3  � colour%(bx,by)=target%(bx,by) � correct%+=1
��
��
� � correct%=size_x%*size_y% �
� clickable=�
� !b%=%1
�- $(b%+4)=�msgtrans_lookup0("COMPLETE")+�0
� box%=%11001
�M ș "Wimp_ReportError",b%,box%,�msgtrans_lookup0("COMPTITL") � ,response%
��
�
:
��stop_playing
&
!b%=game%
0ș "Wimp_DeleteWindow",,b%
:
b%!0=0
D
b%!4=0
N
b%!8=1024
Xb%!12=1024
bb%!16=0
lb%!20=0
vb%!24=-1
�)�    10987654321098765432109876543210
�+b%!28=%10000111000000000000000101010010
�b%!32=7
�b%!33=2
�b%!34=7
�b%!35=1
�b%!36=3
�b%!37=1
�b%!38=12
�b%!39=0
�b%!40=0
�b%!44=0
�b%!48=0
b%!52=0
)�    10987654321098765432109876543210
+b%!56=%00100111000000001010000000011001
 b%!60=3
*b%!64=1
4b%!68=0
>b%!70=0
H+$(b%+72)=�msgtrans_lookup0("GAMETITLE")
Rb%!84=0
\&ș "Wimp_CreateWindow",,b% � game%
f�
p:
z��delete_icon(win%,ic%)
�!b%=win%
�b%!4=ic%
�ș "Wimp_DeleteIcon",,b%
��
�:
���redraw_board
�� by=1 � size_y%
� � bx=1 � size_x%
�%  � colour%(bx,by)<>old%(bx,by) �
�!   old%(bx,by)=colour%(bx,by)
�M   �PROCset_icon_string(game%,icon%(bx,by),"tilecol_"+STR$colour%(bx,by))
�;   !b%=game%:b%!4=icon%(bx,by):ș "Wimp_DeleteIcon",,b%
�"   tx%=(bx*72):ty%=-(by*72)-72
	e   icon%(bx,by)=�create_icon(game%,"tilecol_"+�colour%(bx,by),tx%,ty%,tx%+72,ty%+72,sprite_icon%)
	'   �update_icon(game%,icon%(bx,by))
	  �
	$ �
	.�
	8�
	B:
	L��check_col_sel
	V)col_sel%(1)=�icon_state(opt_pane%,32)
	`)col_sel%(2)=�icon_state(opt_pane%,34)
	j)col_sel%(3)=�icon_state(opt_pane%,36)
	t)col_sel%(4)=�icon_state(opt_pane%,38)
	~)col_sel%(5)=�icon_state(opt_pane%,33)
	�)col_sel%(6)=�icon_state(opt_pane%,35)
	�)col_sel%(7)=�icon_state(opt_pane%,37)
	�)col_sel%(8)=�icon_state(opt_pane%,39)
	�
col_sel=0
	�
� I=1 � 8
	�� col_sel%(I)=� col_sel+=1
	��
	�� col_sel<2 �
	� !b%=%1
	�, $(b%+4)=�msgtrans_lookup0("COLWARN")+�0
	� box%=%11001
	�L ș "Wimp_ReportError",b%,box%,�msgtrans_lookup0("COLTITL") � ,response%
�

�
:
��start_new
("�check_col_sel:� col_sel<2 � �
2>� playing=� � playing=�:�stop_playing:�close_window(game%)
<
F=�set_icon_string(saveas%,2,�msgtrans_lookup0("SAVEINIT"))
P
Z(size_x%=�(�icon_string(opt_pane%,8))
d(size_y%=�(�icon_string(opt_pane%,4))
nlayout%=1:skill%=1
x
�
Ȏ � �
�* � �icon_state(opt_pane%,16):layout%=1
�* � �icon_state(opt_pane%,17):layout%=6
�* � �icon_state(opt_pane%,12):layout%=2
�* � �icon_state(opt_pane%,13):layout%=3
�* � �icon_state(opt_pane%,14):layout%=5
�* � �icon_state(opt_pane%,15):layout%=4
��
�
�
Ȏ � �
�) � �icon_state(opt_pane%,20):skill%=1
�) � �icon_state(opt_pane%,21):skill%=2
�) � �icon_state(opt_pane%,22):skill%=3
) � �icon_state(opt_pane%,23):skill%=4
) � �icon_state(opt_pane%,24):skill%=5
) � �icon_state(opt_pane%,25):skill%=6
") � �icon_state(opt_pane%,26):skill%=7
,) � �icon_state(opt_pane%,27):skill%=8
6�
@
J�close_window(opt%)
T�define_array
^�setup_game_window
h�draw_mini
r�shuffle
|�redraw_board
�
��get_screen_size
�height%=(size_y%+2)*-72
� width%=((size_x%+2)*72)
�
!b%=game%
�X2-=160
�#b%!4=((X2 � 2)-(width% � 2))+80
�b%!8=(Y2 � 2)+(height% � 2)
�$b%!12=((X2 � 2)+(width% � 2))+80
� b%!16=(Y2 � 2)-(height% � 2)
�b%!20=0:b%!24=0
�b%!28=-1
�ș "Wimp_OpenWindow",,b%

�open_pane(game%)

playing=�
&clickable=�
01moves=0:�set_icon_string(game_pane%,2,�moves)
:�update_icon(game_pane%,2)
D�
N:
X
��shuffle
b)shuffles=skill%*((size_x%+size_y%)*2)
l� I=1 � shuffles
vdir%=�(4):len%=�(4)
�� J=1 � len%
�
Ȏ dir% �
�� 1:�slide_up(�(size_x%))
�� 2:�slide_down(�(size_x%))
�� 3:�slide_left(�(size_y%))
� � 4:�slide_right(�(size_y%))
��
��
��
��
�:
���slide_up(x%)
�off%=colour%(x%,1)

� y%=1 � size_y%-1

#colour%(x%,y%)=colour%(x%,y%+1)

�

 colour%(x%,size_y%)=off%

*�

4:

>��slide_down(x%)

Hoff%=colour%(x%,size_y%)

R� y%=size_y% � 2 � -1

\#colour%(x%,y%)=colour%(x%,y%-1)

f�

pcolour%(x%,1)=off%

z�

�:

���slide_right(y%)

�off%=colour%(size_x%,y%)

�� x%=size_x% � 2 � -1

�#colour%(x%,y%)=colour%(x%-1,y%)

��

�colour%(1,y%)=off%

��

�:

���slide_left(y%)

�off%=colour%(1,y%)

�� x%=1 � size_x%-1

�#colour%(x%,y%)=colour%(x%+1,y%)
�
colour%(size_x%,y%)=off%
�
$:
.��draw_mini
8$ș "Wimp_BaseOfSprites" � ,base%
B>ș "OS_SpriteOp",256+60,base%,"miniboard",0 � ,r1%,r2%,r3%
L� 1:ȓ Ȑ 0,0,2000,2000
V!mx=(128-((16*size_x%)-4)) � 2
`!my=(128-((16*size_y%)-4)) � 2
j� x=1 � size_x%
t � y=1 � size_y%
~  px=(x-1)*16:py=(y-1)*16
�	  � 6
�(  ȓ Ȑ px+mx-4,128-(py+my)+4,18,-18
�  � �pick(target%(x,y))
�$  ȓ Ȑ px+mx,128-(py+my),10,-10
� �
��
�'ș "OS_SpriteOp",256+60,r1%,r2%,r3%
��update_icon(-1,i%)
��
�:
�ݤpick(col%)
�col2%=0

Ȏ col% �

� 1:col2%=11
� 2:col2%=14
� 3:col2%=9
(� 4:col2%=10
2� 5:col2%=15
<� 6:col2%=8
F� 7:col2%=13
P� 8:col2%=12
Z�
d
=col2%
n:
x
��layout1
�	� col
�	col=0
�� y=1 � size_y%
��
�col+=1:� col>8 col=1
�� col_sel%(col)=�
�� x=1 � size_x%
� colour%(x,y)=col
��
��
��
�:
�
��layout2
	� col
8�IF size_x%>size_y% col=size_x%+1 ELSE col=size_y%+1
	col=0
"offset=1
,� y=1 � 8:�size_y%
6�
@col+=1:� col>8 col=1
J� col_sel%(col)=�
T
^ox=size_x%+1:oy=y
h�
r	ox-=1
|colour%(ox,oy)=col
�� ox<=offset
�
�� y2=oy � 8
�colour%(ox,y2)=col
��
�
�"offset+=1:� offset>size_x% y=9
�
��
��
�:
�
��layout3
�	� col
8�IF size_x%>size_y% col=size_x%+1 ELSE col=size_y%+1
	col=0
offset=size_x%
&� y=1 � 8:�size_y%
0�
:col+=1:� col>8 col=1
D� col_sel%(col)=�
N
X
ox=0:oy=y
b�
l	ox+=1
vcolour%(ox,oy)=col
�� ox>=offset
�
�� y2=oy � 8
�colour%(ox,y2)=col
��
�
�offset-=1:� offset<1 y=9
�
��
��
�:
�
��layout4
�	� col
	col=0
offset=size_x%
� y=size_y% � 1 � -1
 �
*col+=1:� col>8 col=1
4� col_sel%(col)=�
>
H
ox=0:oy=y
R�
\	ox+=1
fcolour%(ox,oy)=col
p� ox>=offset
z
�� y2=oy � 1 � -1
�colour%(ox,y2)=col
��
�
�offset-=1:� offset<1 y=0
�
��
��
�:
�
��layout5
�	� col
�	col=0
�offset=1
� y=size_y% � 1 � -1
�
col+=1:� col>8 col=1
$� col_sel%(col)=�
.
8ox=size_x%+1:oy=y
B�
L	ox-=1
Vcolour%(ox,oy)=col
`� ox<=offset
j
t� y2=oy � 1 � -1
~colour%(ox,y2)=col
��
�
�"offset+=1:� offset>size_x% y=0
�
��
��
�:
�
��layout6
�	� col
�	col=0
�� x=1 � size_x%
��
col+=1:� col>8 col=1

� col_sel%(col)=�
� y=1 � size_y%
 colour%(x,y)=col
(�
2�
<�
F:
P��define_array
Z Ȏ layout% �
d  � 1:�layout1
n  � 2:�layout2
x  � 3:�layout3
�  � 4:�layout4
�  � 5:�layout5
�  � 6:�layout6
� �
�
�� y=1 � size_y%
�� x=1 � size_x%
� target%(x,y)=colour%(x,y)
��
��
��
�:
���setup_game_window
0�           10987654321098765432109876543210
2sprite_icon%=%00010111000000000000000000011010
2 arrow_icon%=%00010111000000000010000000011010
"
,� y=1 � size_y%
6� x=1 � size_x%
@  tx%=(x*72)
J  ty%=-(y*72)-72
T`  icon%(x,y)=�create_icon(game%,"tilecol_"+�colour%(x,y),tx%,ty%,tx%+72,ty%+72,sprite_icon%)
^  old%(x,y)=colour%(x,y)
h�
r�
|
�� x=1 � size_x%
�  tx%=(x*72)
�
  ty%=-72
�O  up%(x)=�create_icon(game%,  "scroll_u",tx%,ty%,tx%+72,ty%+72,arrow_icon%)
�  ty%=(size_y%+2)*-72
�O  down%(x)=�create_icon(game%,"scroll_d",tx%,ty%,tx%+72,ty%+72,arrow_icon%)
��
�
�� y=1 � size_y%
�  tx%=0
�  ty%=-(y*72)-72
�P  left%(y)=�create_icon(game%, "scroll_l",tx%,ty%,tx%+72,ty%+72,arrow_icon%)
�  tx%=(size_x%+1)*72
P  right%(y)=�create_icon(game%,"scroll_r",tx%,ty%,tx%+72,ty%+72,arrow_icon%)
�

&
b%!0=0
0b%!4=(size_y%+2)*-72
:b%!8=(size_x%+2)*72
Db%!12=0
N ș "Wimp_SetExtent",game%,b%
X
b�
l:
v8ݤcreate_icon(win%,text$,x1%,y1%,x2%,y2%,icon_data%)
�!b%=win%
�b%!4=x1%:b%!8=y1%
�b%!12=x2%:b%!16=y2%
�b%!20=icon_data%
�$(b%+24)=text$
�$ș "Wimp_CreateIcon",,b% � icon%
�
=icon%
�:
�+��change_num(win%,icon%,dir%,min%,max%)
�(old_num%=�(�icon_string(win%,icon%))
�new_num%=old_num%+dir%
�#� new_num%<min% � new_num%=min%
�#� new_num%>max% � new_num%=max%
Z� new_num%<>old_num% � �set_icon_string(win%,icon%,�new_num%):�update_icon(win%,icon%)
�
:
 � �clickonbar
*8� playing=� �set_opt:�open_opt � �open_window(game%)
4�
>:
H� �s(wh%,iconnumber%,text$)
R!temp%=wh%
\temp%!4=iconnumber%
f!ș "Wimp_GetIconState",,temp%
p $temp%!28=�text$,temp%!36-1)
z
temp%!8=0
�temp%!12=0
�!ș "Wimp_SetIconState",,temp%
��
�:
�� �init
�-� b% 5000,ws% 5000,menspc% 1000, temp% 32
�wsend%=ws%+5000
�!quit%=�:playing=�:clickable=�
�max_x=8:max_y=8
�min_x=3:min_y=3
�C� colour%(max_x,max_y), old%(max_x,max_y), target%(max_x,max_y)
�� icon%(max_x,max_y)
�!� left%(max_y), right%(max_y)
� up%(max_x), down%(max_x)
� col_sel%(8)
)version$=�msgtrans_lookup0("VERSION")
$save_version%=1
.�load_templates
8�main_menu
B�game_menu
L�attach(mainmenu%,0,info%)
V �attach(gamemenu%,0,saveas%)
`&�set_icon_string(info%,6,version$)
j�
t:
~� �load_templates
�>ș "Wimp_OpenTemplate",,"<SpotOn$Dir>.Resources.Templates"
�=ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"info",0 � ,,ws%
�&ș "Wimp_CreateWindow",,b% � info%
�<ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"opt",0 � ,,ws%
�%ș "Wimp_CreateWindow",,b% � opt%
�Aș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"opt_pane",0 � ,,ws%
�*ș "Wimp_CreateWindow",,b% � opt_pane%
�=ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"game",0 � ,,ws%
�&ș "Wimp_CreateWindow",,b% � game%
�Bș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"game_pane",0 � ,,ws%
�+ș "Wimp_CreateWindow",,b% � game_pane%
�?ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"saveas",0 � ,,ws%
(ș "Wimp_CreateWindow",,b% � saveas%

ș "Wimp_CloseTemplate"
�
:
(� �attach(menu%,item%,sub%)
2!(menu%+28+item%*24+4)=sub%
<�
F:
P� �main_menu
Z� +1
d� MAIN0,MAIN1,MAIN2,MAIN3,*
nmainmenu%=�make_menu
x�
�:
�� �game_menu
�� +1
�� GAME0,GAME1,GAME2,*
�gamemenu%=�make_menu
��
�:
�� �make_menu
�start%=menspc%
�� title$
�$title$=�msgtrans_lookup0(title$)
�$(start%)=title$
�start%?12=7
start%?13=2
start%?14=7
start%?15=0
"start%!20=44
,start%!24=0
6� start%!16=160
@width%=�(title$)-3
Jmenspc%+=28
T�
^� item$
h� item$<>"*" �
r"item$=�msgtrans_lookup0(item$)
|!menspc%=0
�writeable%=�
�ul%=�item$,"_")
�� ul% �
�tail$=�item$,�(item$)-ul%)
�.� �tail$,"T") !menspc%=!menspc% � 1:� tick
�5� �tail$,"D") !menspc%=!menspc% � 2:� dotted line
�X� �tail$,"W") !menspc%=!menspc% � 4:writeable%=�:� buffer%:� buflen%:� writable icon
�:� �tail$,"M") !menspc%=!menspc% � 8:� generate message
�item$=�item$,ul%-1)
��
�#� � item$>width% width%=� item$
�menspc%!4=-1
�� writeable% �
Zmenspc%!8=&0700F121:menspc%!12=buffer%:menspc%!16=-1:menspc%!20=buflen%:$buffer%=item$
�
� � item$<12 �
&+menspc%!8=&07000021:$(menspc%+12)=item$
0�
:Imenspc%!8=&07000121:menspc%!12=ws%:menspc%!16=-1:menspc%!20=� item$+1
D$ws%=item$:ws%+=� item$+1
N�
X�
bmenspc%+=24
l�
v� item$="*"
�start%!16=width%*16+32
�%!(menspc%-24)=!(menspc%-24) � &80
�mptr%=menspc%
�=start%
�:
�� �showmenu(menu%,x%,y%)
�$topmenu%=menu%:topx%=x%:topy%=y%
�%ș "Wimp_CreateMenu",,menu%,x%,y%
��
�:
�� �menuclick
�� c%
�
c%=b%+900
 ș "Wimp_GetPointerInfo",,c%
adj%=(c%!8 � 1)
(ș "Wimp_DecodeMenu",,topmenu%,b%,c%
 Ȏ $c% �
*4 � �msgtrans_lookup0("MAIN2"):�set_opt:�open_opt
44 � �msgtrans_lookup0("GAME2"):�set_opt:�open_opt
>) � �msgtrans_lookup0("MAIN3"):quit%=�
H�
R*� adj% �showmenu(topmenu%,topx%,topy%)
\�
f:
p
��set_opt
z*�set_icon_string(opt_pane%,8,�size_x%)
�*�set_icon_string(opt_pane%,4,�size_y%)
�)�set_button(opt_pane%,32,col_sel%(1))
�)�set_button(opt_pane%,34,col_sel%(2))
�)�set_button(opt_pane%,36,col_sel%(3))
�)�set_button(opt_pane%,38,col_sel%(4))
�)�set_button(opt_pane%,33,col_sel%(5))
�)�set_button(opt_pane%,35,col_sel%(6))
�)�set_button(opt_pane%,37,col_sel%(7))
�)�set_button(opt_pane%,39,col_sel%(8))
�
�� I=12 � 17
��set_button(opt_pane%,I,�)
��
Ȏ layout% �
#� 1:�set_button(opt_pane%,16,�)
#� 2:�set_button(opt_pane%,12,�)
$#� 3:�set_button(opt_pane%,13,�)
.#� 4:�set_button(opt_pane%,15,�)
8#� 5:�set_button(opt_pane%,14,�)
B#� 6:�set_button(opt_pane%,17,�)
L�
V
`� I=20 � 27
j�set_button(opt_pane%,I,�)
t�
~&�set_button(opt_pane%,skill%+19,�)
��
�:
�� �toggle_tick(menu%,item%)
�/menu%!(28+item%*24)=menu%!(28+item%*24) � 1
��
�:
�� �tick(menu%,tick%)
�!=(menu%!(28+item%*24) � 1)<>0
�:
�� �set_button(!b%,b%!4,tf%)
�state%=0
�� tf% state%=1
b%!8=state%<<21

b%!12=1<<21
ș "Wimp_SetIconState",,b%
�
(:
2 � �icon_state(window%,icon%)
<� c%
F
c%=b%+900
P!c%=window%
Zc%!4=icon%
dș "Wimp_GetIconState",,c%
n=((c%!24) � (1<<21))<>0
x:
�!� �string_addr(window%,icon%)
�� c%
�� c% 64
�!c%=window%
�c%!4=icon%
�ș "Wimp_GetIconState",,c%
�
=c%!28
�:
�!� �icon_string(window%,icon%)
�&�term(�string_addr(window%,icon%))
�!=$�string_addr(window%,icon%)
��
�:
(� �set_icon_string(window%,icon%,a$)
#$�string_addr(window%,icon%)=a$
�
":
,� �term(a%)
6� n%
@ȕ a%?n%>31
J	n%+=1
T�
^a%?n%=13
h�
r:
|��open_window(win%)
�� win%<>opt% �
�!b%=win%
� ș "Wimp_GetWindowState",,b%
�b%!28=-1
�ș "Wimp_OpenWindow",,b%
��
��open_pane(win%)
��
�:
���open_pane(win%)
�� win%=opt% � �opt_pane
�� win%=game% � �game_pane
��
 :
 ��close_window(win%)
 !b%=win%
 &:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
 0�close_pane(win%)
 :�
 D:
 N��close_pane(win%)
 X,  � win%=opt% � �close_window(opt_pane%)
 bF  � win%=game% � �close_window(game_pane%):playing=�:�stop_playing
 l�
 v:
 �� �error
 �	!b%=�
 �Ȏ !b% �
 �@� 1<<30:err_str$=�msgtrans_lookup1("NONFATAL",�$):box%=%1001
 �::err_str$=�msgtrans_lookup2("FATAL",�$,Þ):box%=%1001
 ��
 �$(b%+4)=err_str$+�0
 �Hș "Wimp_ReportError",b%,box%,�msgtrans_lookup0("TASK") � ,response%
 �=(response%=2)
 �:
 ���get_screen_size
 �+ș"OS_ReadModeVariable",-1,4 � ,,Xfact%
 �+ș"OS_ReadModeVariable",-1,5 � ,,Yfact%
!+ș"OS_ReadModeVariable",-1,11 � ,,XLim%
!+ș"OS_ReadModeVariable",-1,12 � ,,YLim%
!X2=XLim%<<Xfact%
! Y2=YLim%<<Yfact%
!*�
!4:
!>��open_opt
!H!b%=opt%
!R ș "Wimp_GetWindowState",,b%
!\!ifopen=((b%!32) � (1<<16))<>0
!f� ifopen=� �
!p�get_screen_size
!z#b%!4=(X2-856)/2:b%!8=(Y2-444)/2
!�%b%!12=(b%!4)+856:b%!16=(b%!8)+444
!��
!�b%!28=-1
!�ș "Wimp_OpenWindow",,b%
!�
�opt_pane
!��
!�:
!���opt_pane
!�!b%=opt%
!� ș "Wimp_GetWindowState",,b%
!�minx=b%!4:miny=b%!8
!�maxx=b%!12:maxy=b%!16
!�stack%=-1:�b%!28
"!b%=opt_pane%
" ș "Wimp_GetWindowState",,b%
"b%!4=minx+32:b%!8=miny+32
"$%b%!12=(b%!4)+426:b%!16=(b%!8)+352
".b%!28=stack%
"8ș "Wimp_OpenWindow",,b%
"B!b%=opt%
"L ș "Wimp_GetWindowState",,b%
"Vb%!28=opt_pane%
"`ș "Wimp_OpenWindow",,b%
"j�
"t:
"~��move_optpane
"�minx=b%!4:miny=b%!8
"�maxx=b%!12:maxy=b%!16
"�stack%=b%!28
"�!b%=opt_pane%
"� ș "Wimp_GetWindowState",,b%
"�b%!4=minx+32:b%!8=miny+32
"�%b%!12=(b%!4)+426:b%!16=(b%!8)+352
"�b%!28=stack%
"�ș "Wimp_OpenWindow",,b%
"�!b%=opt%
"� ș "Wimp_GetWindowState",,b%
"�b%!4=minx:b%!8=miny
#b%!12=maxx:b%!16=maxy
#
b%!28=opt_pane%
#ș "Wimp_OpenWindow",,b%
#�
#(:
#2��game_pane
#<
!b%=game%
#F ș "Wimp_GetWindowState",,b%
#Pminx=b%!4:miny=b%!8
#Zmaxx=b%!12:maxy=b%!16
#dstack%=b%!28
#n!b%=game_pane%
#x ș "Wimp_GetWindowState",,b%
#�b%!4=minx-162:b%!8=maxy-260
#�%b%!12=(b%!4)+160:b%!16=(b%!8)+260
#�b%!28=stack%
#�ș "Wimp_OpenWindow",,b%
#��
#�:
#���drag(window%,icon%)
#�� c%
#�� c% 256
#�&�get_origin(window%,xorig%,yorig%)
#�!c%=window%:c%!4=icon%
#�ș "Wimp_GetIconState",,c%
#�(xmin%=xorig%+c%!8:ymin%=yorig%+c%!12
$)xmax%=xorig%+c%!16:ymax%=yorig%+c%!20
$!c%=xmin%:c%!4=ymin%
$c%!8=xmax%:c%!12=ymax%
$"4ș "DragASprite_Start",%10000101,1,"file_3b5",c%
$,�
$6:
$@��load_options(set_vars)
$J-file%=�("<SpotOn$Dir>.Resources.Options")
$T&�#file%,sx%:� set_vars size_x%=sx%
$^&�set_icon_string(opt_pane%,8,�sx%)
$h�update_icon(opt_pane%,8)
$r&�#file%,sy%:� set_vars size_y%=sy%
$|&�set_icon_string(opt_pane%,4,�sy%)
$��update_icon(opt_pane%,4)
$�
$�*�#file%,cs%:� set_vars col_sel%(1)=cs%
$�!�set_button(opt_pane%,32,cs%)
$�*�#file%,cs%:� set_vars col_sel%(2)=cs%
$�!�set_button(opt_pane%,34,cs%)
$�*�#file%,cs%:� set_vars col_sel%(3)=cs%
$�!�set_button(opt_pane%,36,cs%)
$�*�#file%,cs%:� set_vars col_sel%(4)=cs%
$�!�set_button(opt_pane%,38,cs%)
$�*�#file%,cs%:� set_vars col_sel%(5)=cs%
$�!�set_button(opt_pane%,33,cs%)
$�*�#file%,cs%:� set_vars col_sel%(6)=cs%
%!�set_button(opt_pane%,35,cs%)
%*�#file%,cs%:� set_vars col_sel%(7)=cs%
%!�set_button(opt_pane%,37,cs%)
%&*�#file%,cs%:� set_vars col_sel%(8)=cs%
%0!�set_button(opt_pane%,39,cs%)
%:
%D$�#file%,l%:� set_vars layout%=l%
%N� I=12 � 17
%X�set_button(opt_pane%,I,�)
%b�
%lȎ l% �
%v#� 1:�set_button(opt_pane%,16,�)
%�#� 2:�set_button(opt_pane%,12,�)
%�#� 3:�set_button(opt_pane%,13,�)
%�#� 4:�set_button(opt_pane%,15,�)
%�#� 5:�set_button(opt_pane%,14,�)
%�#� 6:�set_button(opt_pane%,17,�)
%��
%�
%�%�#file%,sk%:� set_vars skill%=sk%
%�� I=20 � 27
%��set_button(opt_pane%,I,�)
%��
%�#�set_button(opt_pane%,sk%+19,�)
%�
&�#file%
&�
&:
& ��save_options
&*� layout%,skill%
&4layout%=1:skill%=1
&>
&H
Ȏ � �
&R* � �icon_state(opt_pane%,16):layout%=1
&\* � �icon_state(opt_pane%,17):layout%=6
&f* � �icon_state(opt_pane%,12):layout%=2
&p* � �icon_state(opt_pane%,13):layout%=3
&z* � �icon_state(opt_pane%,14):layout%=5
&�* � �icon_state(opt_pane%,15):layout%=4
&��
&�
&�
Ȏ � �
&�) � �icon_state(opt_pane%,20):skill%=1
&�) � �icon_state(opt_pane%,21):skill%=2
&�) � �icon_state(opt_pane%,22):skill%=3
&�) � �icon_state(opt_pane%,23):skill%=4
&�) � �icon_state(opt_pane%,24):skill%=5
&�) � �icon_state(opt_pane%,25):skill%=6
&�) � �icon_state(opt_pane%,26):skill%=7
&�) � �icon_state(opt_pane%,27):skill%=8
&��
'
'-file%=�("<SpotOn$Dir>.Resources.Options")
'(�#file%,�(�icon_string(opt_pane%,8))
'$(�#file%,�(�icon_string(opt_pane%,4))
'.
'8%�#file%,�icon_state(opt_pane%,32)
'B%�#file%,�icon_state(opt_pane%,34)
'L%�#file%,�icon_state(opt_pane%,36)
'V%�#file%,�icon_state(opt_pane%,38)
'`%�#file%,�icon_state(opt_pane%,33)
'j%�#file%,�icon_state(opt_pane%,35)
't%�#file%,�icon_state(opt_pane%,37)
'~%�#file%,�icon_state(opt_pane%,39)
'�
'��#file%,layout%
'��#file%,skill%
'��#file%
'��
'�:
'�
��dragend
'� ș "Wimp_GetPointerInfo",,b%
'�b%!20=b%!12
'�b%!24=b%!16
'�b%!28=b%!0
'�b%!32=b%!4
(b%!36=0
(
a$=�icon_string(saveas%,2)
(ȕ �a$,".")<>0
(n%=�a$,".")
((a$=�a$,n%+1)
(2�
(<$(b%+44)=a$
(F!b%=44+((�a$+1) � 4)*4
(P� ((�a$+1) � 4)<>0 !b%+=4
(Zb%!12=0
(db%!16=1
(n%ș "Wimp_SendMessage",18,b%,b%!20
(x�
(�:
(�
��save
(��term(b%+44)
(�file$=$(b%+44)
(�%�set_icon_string(saveas%,2,file$)
(��put_save_data
(�b%!12=b%!8
(�b%!16=3
(�%ș "Wimp_SendMessage",18,b%,b%!20
(��close_window(saveas%)
(�ș "Wimp_CreateMenu",,-1
(��
(�:
)��put_save_data
)!file$=�icon_string(saveas%,2)
)&� �file$,"::")=0 � �file$,".")=0 �
)" !b%=%1
),+ $(b%+4)=�msgtrans_lookup0("NOPATH")+�0
)6 box%=%11001
)@K ș "Wimp_ReportError",b%,box%,�msgtrans_lookup0("NOTITL") � ,response%
)J�
)Tfile%=�(file$)
)^�#file%, save_version%
)h�#file%, moves
)r�#file%, clickable
)|�#file%, size_x%
)��#file%, size_y%
)��#file%, layout%
)��#file%, skill%
)�� sy=1 � 8
)�� sx=1 � 8
)�+�#file%, target%(sx,sy), colour%(sx,sy)
)��
)��
)��#file%
)��("SetType "+file$+" 3B5")
)��
)��
)�:
*
��load
*filetype=b%!40
*window=b%!20
*&icon=b%!24
*0�term(b%+44)
*:filename$=$(b%+44)
*D� filetype=&3B5 �
*NȎ window �
*X � -2:� iconbar
*b  �load_data(filename$)
*l�
*v�
*��
*�:
*���load_data(file$)
*� dontload=�
*�file%=�(file$)
*��#file%, save_version%
*�Ȏ save_version% �
*�� 1:� **SAVE VERSION**
*��#file%, moves
*��#file%, clickable
*��#file%, size_x%
*��#file%, size_y%
*��#file%, layout%
+�#file%, skill%
+� sy=1 � 8
+� sx=1 � 8
+ +�#file%, target%(sx,sy), colour%(sx,sy)
+*�
+4�
+>�#file%
+H
+R�#file%
+\ dontload=�
+f !b%=%1
+p, $(b%+4)=�msgtrans_lookup0("OLDFILE")+�0
+z box%=%11001
+�L ș "Wimp_ReportError",b%,box%,�msgtrans_lookup0("OLDTITL") � ,response%
+��
+�
+�� dontload=� �
+�
+�>� playing=� � playing=�:�stop_playing:�close_window(game%)
+��setup_game_window
+��draw_mini
+��redraw_board
+�
+�%�set_icon_string(saveas%,2,file$)
+�
+��get_screen_size
,height%=(size_y%+2)*-72
, width%=((size_x%+2)*72)
,
!b%=game%
,$X2-=160
,.#b%!4=((X2 � 2)-(width% � 2))+80
,8b%!8=(Y2 � 2)+(height% � 2)
,B$b%!12=((X2 � 2)+(width% � 2))+80
,L b%!16=(Y2 � 2)-(height% � 2)
,Vb%!20=0:b%!24=0
,`b%!28=-1
,jș "Wimp_OpenWindow",,b%
,t
,~�open_pane(game%)
,�
playing=�
,�)�set_icon_string(game_pane%,2,�moves)
,��update_icon(game_pane%,2)
,�
,��
,�
,��
,�:
,���helpme
,�window%=b%!32
,�icon%=b%!36
,�help$="H_LOST"
-
-
Ȏ window% �
-	 � -2
-!  � playing=� help$="H_ICON1"
-(!  � playing=� help$="H_ICON2"
-2
-< � info%
-F  help$="H_INFO"
-P  Ȏ icon% �
-Z   � 0,1:help$="H_INFO1"
-d   � 2,3:help$="H_INFO2"
-n   � 4,5:help$="H_INFO3"
-x   � 6,7:help$="H_INFO4"
-�  �
-�
-� � opt%
-�  help$="H_OPT"
-�  Ȏ icon% �
-�   � 1:help$="H_OPT1"
-�   � 2:help$="H_OPT2"
-�   � 3:help$="H_OPT3"
-�   � 4:help$="H_OPT4"
-�  �
-�
-� � opt_pane%
-�  help$="H_OPTPANE"
.  Ȏ icon% �
.#   � 0,1,5,9:help$="H_OPTPANE1"
.   � 2:help$="H_OPTPANE2"
."   � 3:help$="H_OPTPANE3"
.,   � 6:help$="H_OPTPANE6"
.6   � 7:help$="H_OPTPANE7"
.@   � 4:help$="H_OPTPANE4"
.J   � 8:help$="H_OPTPANE8"
.T"   � 30,31:help$="H_OPTPANE30"
.^4   � 32,33,34,35,36,37,38,39:help$="H_OPTPANE32"
.h"   � 10,11:help$="H_OPTPANE11"
.r.   � 12,13,14,15,16,17:help$="H_OPTPANE16"
.|(   � 18,19,28,29:help$="H_OPTPANE19"
.�4   � 20,21,22,23,24,25,26,27:help$="H_OPTPANE20"
.�  �
.�
.� � game%
.�  help$="H_GAME"
.�
.� � game_pane%
.�  help$="H_GAME"
.�  Ȏ icon% �
.�   � 0:help$="H_GAMEPANE0"
.�    � 1,2:help$="H_GAMEPANE1"
.�  �
.�
/ � saveas%
/  help$="H_SAVE1"
/  Ȏ icon% �
/&   � 1:help$="H_SAVE1"
/0   � 2:help$="H_SAVE2"
/:   � 3:help$="H_SAVE3"
/D  �
/N
/X�
/b:
/lb%!00 = 256
/vb%!12 = b%!8
/�b%!16 = &0503
/�&$(b%+20)= �msgtrans_lookup0(help$)
/�$ș "Wimp_SendMessage",17,b%,b%!4
/��
/�
/�� > MsgTranLib
/�-� MessageTrans library for BASIC programs
/�� by Ben Summers
/�
/���msgtrans_init(filename$)
/�;  ș "MessageTrans_FileInfo", , filename$ � f%, , size%
/�*  � (f% � 1) = 0 � � msg_buffer% size%
/�  � msgs% 256
0  $(msgs%+16) = filename$
0>  ș "MessageTrans_OpenFile", msgs%, msgs%+16, msg_buffer%
0  � msg_out% 256
0 �
0*
04ݤmsgtrans_lookup0(token$)
0>T  ș "MessageTrans_Lookup", msgs%, token$, msg_out%, 256, 0, 0, 0, 0 � , ,value$
0H= value$
0R
0\#ݤmsgtrans_lookup1(token$, p0$)
0fV  ș "MessageTrans_Lookup", msgs%, token$, msg_out%, 256, p0$, 0, 0, 0 � , ,value$
0p= value$
0z
0�(ݤmsgtrans_lookup2(token$, p0$, p1$)
0�X  ș "MessageTrans_Lookup", msgs%, token$, msg_out%, 256, p0$, p1$, 0, 0 � , ,value$
0�= value$
0�
0�-ݤmsgtrans_lookup3(token$, p0$, p1$, p2$)
0�Z  ș "MessageTrans_Lookup", msgs%, token$, msg_out%, 256, p0$, p1$, p2$, 0 � , ,value$
0�= value$
0�
0�2ݤmsgtrans_lookup4(token$, p0$, p1$, p2$, p3$)
0�\  ș "MessageTrans_Lookup", msgs%, token$, msg_out%, 256, p0$, p1$, p2$, p3$ � , ,value$
0�= value$
0�
0���msgtrans_final
1(  ș "MessageTrans_CloseFile", msgs%
1�
1
1$
�

00000000  0d 00 0a 0f f4 20 21 52  75 6e 49 6d 61 67 65 0d  |..... !RunImage.|
00000010  00 14 16 f4 20 42 79 20  50 68 69 6c 69 70 20 4d  |.... By Philip M|
00000020  65 6c 6c 6f 72 0d 00 1e  05 3a 0d 00 28 17 ee 20  |ellor....:..(.. |
00000030  85 20 ef 34 3a f6 3a f1  22 20 2d 20 22 3b 9e 3a  |. .4:.:." - ";.:|
00000040  e0 0d 00 32 05 3a 0d 00  3c 35 f2 6d 73 67 74 72  |...2.:..<5.msgtr|
00000050  61 6e 73 5f 69 6e 69 74  28 22 3c 53 70 6f 74 4f  |ans_init("<SpotO|
00000060  6e 24 44 69 72 3e 2e 52  65 73 6f 75 72 63 65 73  |n$Dir>.Resources|
00000070  2e 4d 65 73 73 61 67 65  73 22 29 0d 00 46 49 c8  |.Messages")..FI.|
00000080  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00000090  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
000000a0  34 2c a4 6d 73 67 74 72  61 6e 73 5f 6c 6f 6f 6b  |4,.msgtrans_look|
000000b0  75 70 30 28 22 54 41 53  4b 22 29 20 b8 20 2c 74  |up0("TASK") . ,t|
000000c0  61 73 6b 25 0d 00 50 09  f2 69 6e 69 74 0d 00 5a  |ask%..P..init..Z|
000000d0  12 f2 63 72 65 61 74 65  69 63 6f 6e 62 61 72 0d  |..createiconbar.|
000000e0  00 64 14 f2 6c 6f 61 64  5f 6f 70 74 69 6f 6e 73  |.d..load_options|
000000f0  28 b9 29 0d 00 6e 05 3a  0d 00 78 0e f2 63 68 65  |(.)..n.:..x..che|
00000100  63 6b 5f 65 6e 76 0d 00  82 1b ee 20 85 20 e7 20  |ck_env..... . . |
00000110  a4 65 72 72 6f 72 20 8c  20 f2 63 6c 6f 73 65 3a  |.error . .close:|
00000120  e0 0d 00 8c 05 3a 0d 00  96 05 f5 0d 00 a0 09 f2  |.....:..........|
00000130  70 6f 6c 6c 0d 00 aa 0b  fd 20 71 75 69 74 25 0d  |poll..... quit%.|
00000140  00 b4 0a f2 63 6c 6f 73  65 0d 00 be 05 e0 0d 00  |....close.......|
00000150  c8 05 3a 0d 00 d2 0f dd  f2 63 68 65 63 6b 5f 65  |..:......check_e|
00000160  6e 76 0d 00 dc 19 c8 99  20 22 4f 53 5f 47 65 74  |nv...... "OS_Get|
00000170  45 6e 76 22 20 b8 20 65  6e 76 24 0d 00 e6 1a e7  |Env" . env$.....|
00000180  20 a7 65 6e 76 24 2c 22  2d 6c 6f 61 64 20 22 29  | .env$,"-load ")|
00000190  3c 3e 30 20 8c 0d 00 f0  2e 66 69 6c 65 6e 61 6d  |<>0 .....filenam|
000001a0  65 24 3d c2 65 6e 76 24  2c a9 28 65 6e 76 24 29  |e$=.env$,.(env$)|
000001b0  2d a7 65 6e 76 24 2c 22  2d 6c 6f 61 64 20 22 29  |-.env$,"-load ")|
000001c0  2d 35 29 0d 00 fa 19 f2  6c 6f 61 64 5f 64 61 74  |-5).....load_dat|
000001d0  61 28 66 69 6c 65 6e 61  6d 65 24 29 0d 01 04 05  |a(filename$)....|
000001e0  cd 0d 01 0e 05 e1 0d 01  18 05 3a 0d 01 22 14 dd  |..........:.."..|
000001f0  20 f2 63 72 65 61 74 65  69 63 6f 6e 62 61 72 0d  | .createiconbar.|
00000200  01 2c 36 21 62 25 3d 2d  31 3a 62 25 21 34 3d 30  |.,6!b%=-1:b%!4=0|
00000210  3a 62 25 21 38 3d 30 3a  62 25 21 31 32 3d 36 38  |:b%!8=0:b%!12=68|
00000220  3a 62 25 21 31 36 3d 36  38 3a 62 25 21 32 30 3d  |:b%!16=68:b%!20=|
00000230  26 33 30 30 32 0d 01 36  34 24 28 62 25 2b 32 34  |&3002..64$(b%+24|
00000240  29 3d 22 21 53 70 6f 74  4f 6e 22 3a c8 99 20 22  |)="!SpotOn":.. "|
00000250  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00000260  2c 2c 62 25 20 b8 20 69  25 0d 01 40 05 e1 0d 01  |,,b% . i%..@....|
00000270  4a 05 3a 0d 01 54 0c dd  20 f2 63 6c 6f 73 65 0d  |J.:..T.. .close.|
00000280  01 5e 27 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.^'.. "Wimp_Clos|
00000290  65 44 6f 77 6e 22 2c 74  61 73 6b 25 2c 26 34 42  |eDown",task%,&4B|
000002a0  35 33 34 31 35 34 0d 01  68 05 e1 0d 01 72 05 3a  |534154..h....r.:|
000002b0  0d 01 7c 0b dd 20 f2 70  6f 6c 6c 0d 01 86 1b c8  |..|.. .poll.....|
000002c0  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 2c 62  |. "Wimp_Poll",,b|
000002d0  25 20 b8 20 72 25 0d 01  90 0b c8 8e 20 72 25 20  |% . r%...... r% |
000002e0  ca 0d 01 9a 3e c9 20 32  3a e7 20 21 62 25 3c 3e  |....>. 2:. !b%<>|
000002f0  6f 70 74 25 20 8c 20 c8  99 20 22 57 69 6d 70 5f  |opt% . .. "Wimp_|
00000300  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 25 3a  |OpenWindow",,b%:|
00000310  f2 6f 70 65 6e 5f 70 61  6e 65 28 21 62 25 29 0d  |.open_pane(!b%).|
00000320  01 a4 23 20 20 20 20 20  20 20 e7 20 21 62 25 3d  |..#       . !b%=|
00000330  6f 70 74 25 20 f2 6d 6f  76 65 5f 6f 70 74 70 61  |opt% .move_optpa|
00000340  6e 65 0d 01 ae 21 c9 20  33 3a c8 99 20 22 57 69  |ne...!. 3:.. "Wi|
00000350  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000360  2c 62 25 0d 01 b8 1b 20  20 20 20 20 20 20 f2 63  |,b%....       .c|
00000370  6c 6f 73 65 5f 70 61 6e  65 28 21 62 25 29 0d 01  |lose_pane(!b%)..|
00000380  c2 13 c9 20 36 3a f2 6d  6f 75 73 65 63 6c 69 63  |... 6:.mouseclic|
00000390  6b 0d 01 cc 10 c9 20 37  3a f2 64 72 61 67 65 6e  |k..... 7:.dragen|
000003a0  64 0d 01 d6 12 c9 20 39  3a f2 6d 65 6e 75 63 6c  |d..... 9:.menucl|
000003b0  69 63 6b 0d 01 e0 17 c9  20 31 37 2c 31 38 2c 31  |ick..... 17,18,1|
000003c0  39 3a f2 72 65 63 69 65  76 65 0d 01 ea 05 cb 0d  |9:.recieve......|
000003d0  01 f4 05 e1 0d 01 fe 05  3a 0d 02 08 0e dd 20 f2  |........:..... .|
000003e0  72 65 63 69 65 76 65 0d  02 12 0e c8 8e 20 62 25  |recieve...... b%|
000003f0  21 31 36 20 ca 0d 02 1c  0f c9 20 30 3a 71 75 69  |!16 ...... 0:qui|
00000400  74 25 3d b9 0d 02 26 0d  c9 20 32 3a f2 73 61 76  |t%=...&.. 2:.sav|
00000410  65 0d 02 30 0d c9 20 33  3a f2 6c 6f 61 64 0d 02  |e..0.. 3:.load..|
00000420  3a 11 c9 20 35 3a f2 64  61 74 61 6f 70 65 6e 0d  |:.. 5:.dataopen.|
00000430  02 44 12 c9 20 26 35 30  32 3a f2 68 65 6c 70 6d  |.D.. &502:.helpm|
00000440  65 0d 02 4e 05 cb 0d 02  58 05 e1 0d 02 62 05 3a  |e..N....X....b.:|
00000450  0d 02 6c 0e dd f2 64 61  74 61 6f 70 65 6e 0d 02  |..l...dataopen..|
00000460  76 12 66 69 6c 65 74 79  70 65 3d 62 25 21 34 30  |v.filetype=b%!40|
00000470  0d 02 80 10 f2 74 65 72  6d 28 62 25 2b 34 34 29  |.....term(b%+44)|
00000480  0d 02 8a 16 66 69 6c 65  6e 61 6d 65 24 3d 24 28  |....filename$=$(|
00000490  62 25 2b 34 34 29 0d 02  94 33 e7 20 66 69 6c 65  |b%+44)...3. file|
000004a0  74 79 70 65 3d 26 33 42  35 20 f2 72 65 73 70 6f  |type=&3B5 .respo|
000004b0  6e 64 5f 64 63 28 66 69  6c 65 6e 61 6d 65 24 2c  |nd_dc(filename$,|
000004c0  66 69 6c 65 74 79 70 65  29 0d 02 9e 05 e1 0d 02  |filetype).......|
000004d0  a8 05 3a 0d 02 b2 24 dd  f2 72 65 73 70 6f 6e 64  |..:...$..respond|
000004e0  5f 64 63 28 66 69 6c 65  6e 61 6d 65 24 2c 66 69  |_dc(filename$,fi|
000004f0  6c 65 74 79 70 65 29 0d  02 bc 0e 62 25 21 31 32  |letype)....b%!12|
00000500  3d 62 25 21 38 0d 02 c6  0b 62 25 21 31 36 3d 34  |=b%!8....b%!16=4|
00000510  0d 02 d0 0a 21 62 25 3d  36 34 0d 02 da 24 c8 99  |....!b%=64...$..|
00000520  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00000530  67 65 22 2c 31 37 2c 62  25 2c 62 25 21 34 0d 02  |ge",17,b%,b%!4..|
00000540  e4 19 f2 6c 6f 61 64 5f  64 61 74 61 28 66 69 6c  |...load_data(fil|
00000550  65 6e 61 6d 65 24 29 0d  02 ee 05 e1 0d 02 f8 05  |ename$).........|
00000560  3a 0d 03 02 21 dd 20 f2  75 70 64 61 74 65 5f 69  |:...!. .update_i|
00000570  63 6f 6e 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |con(window%,icon|
00000580  25 29 0d 03 0c 10 62 25  21 30 3d 77 69 6e 64 6f  |%)....b%!0=windo|
00000590  77 25 0d 03 16 11 20 20  20 62 25 21 34 3d 69 63  |w%....   b%!4=ic|
000005a0  6f 6e 25 0d 03 20 0d 20  20 20 62 25 21 38 3d 30  |on%.. .   b%!8=0|
000005b0  0d 03 2a 0e 20 20 20 62  25 21 31 32 3d 30 0d 03  |..*.   b%!12=0..|
000005c0  34 21 20 20 20 c8 99 20  22 57 69 6d 70 5f 53 65  |4!   .. "Wimp_Se|
000005d0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 25 0d  |tIconState",,b%.|
000005e0  03 3e 05 e1 0d 03 48 05  3a 0d 03 52 2b dd f2 67  |.>....H.:..R+..g|
000005f0  65 74 5f 6f 72 69 67 69  6e 28 68 61 6e 64 6c 65  |et_origin(handle|
00000600  25 2c f8 20 78 6f 72 69  67 25 2c f8 20 79 6f 72  |%,. xorig%,. yor|
00000610  69 67 25 29 0d 03 5c 08  ea 20 63 25 0d 03 66 0d  |ig%)..\.. c%..f.|
00000620  63 25 3d 62 25 2b 38 30  30 0d 03 70 0f 21 63 25  |c%=b%+800..p.!c%|
00000630  3d 68 61 6e 64 6c 65 25  0d 03 7a 20 c8 99 20 22  |=handle%..z .. "|
00000640  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00000650  61 74 65 22 2c 2c 63 25  0d 03 84 15 78 6f 72 69  |ate",,c%....xori|
00000660  67 25 3d 63 25 21 34 2d  63 25 21 32 30 0d 03 8e  |g%=c%!4-c%!20...|
00000670  16 79 6f 72 69 67 25 3d  63 25 21 31 36 2d 63 25  |.yorig%=c%!16-c%|
00000680  21 32 34 0d 03 98 05 e1  0d 03 a2 05 3a 0d 03 ac  |!24.........:...|
00000690  11 dd 20 f2 6d 6f 75 73  65 63 6c 69 63 6b 0d 03  |.. .mouseclick..|
000006a0  b6 11 77 69 6e 64 6f 77  25 3d 62 25 21 31 32 0d  |..window%=b%!12.|
000006b0  03 c0 0f 69 63 6f 6e 25  3d 62 25 21 31 36 0d 03  |...icon%=b%!16..|
000006c0  ca 10 62 75 74 74 6f 6e  25 3d 62 25 21 38 0d 03  |..button%=b%!8..|
000006d0  d4 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 03  |.... window% ...|
000006e0  de 04 0d 03 e8 09 20 c9  20 2d 32 0d 03 f2 12 20  |...... . -2.... |
000006f0  20 c8 8e 20 62 75 74 74  6f 6e 25 20 ca 0d 03 fc  | .. button% ....|
00000700  16 20 20 20 c9 20 34 3a  f2 63 6c 69 63 6b 6f 6e  |.   . 4:.clickon|
00000710  62 61 72 0d 04 06 2e 20  20 20 c9 20 32 3a f2 73  |bar....   . 2:.s|
00000720  68 6f 77 6d 65 6e 75 28  6d 61 69 6e 6d 65 6e 75  |howmenu(mainmenu|
00000730  25 2c 21 62 25 2d 36 34  2c 39 36 2b 33 2a 34 34  |%,!b%-64,96+3*44|
00000740  29 0d 04 10 08 20 20 20  cb 0d 04 1a 04 0d 04 24  |)....   .......$|
00000750  10 20 c9 20 6f 70 74 5f  70 61 6e 65 25 0d 04 2e  |. . opt_pane%...|
00000760  10 20 20 c8 8e 20 69 63  6f 6e 25 20 ca 0d 04 38  |.  .. icon% ...8|
00000770  3e 20 20 20 c9 20 32 3a  e7 20 62 75 74 74 6f 6e  |>   . 2:. button|
00000780  25 3d 34 20 f2 63 68 61  6e 67 65 5f 6e 75 6d 28  |%=4 .change_num(|
00000790  6f 70 74 5f 70 61 6e 65  25 2c 38 2c 2d 31 2c 6d  |opt_pane%,8,-1,m|
000007a0  69 6e 5f 78 2c 6d 61 78  5f 78 29 0d 04 42 41 20  |in_x,max_x)..BA |
000007b0  20 20 20 20 20 20 20 20  3a e7 20 62 75 74 74 6f  |        :. butto|
000007c0  6e 25 3d 31 20 f2 63 68  61 6e 67 65 5f 6e 75 6d  |n%=1 .change_num|
000007d0  28 6f 70 74 5f 70 61 6e  65 25 2c 38 2c 2b 31 2c  |(opt_pane%,8,+1,|
000007e0  6d 69 6e 5f 78 2c 6d 61  78 5f 78 29 0d 04 4c 3e  |min_x,max_x)..L>|
000007f0  20 20 20 c9 20 33 3a e7  20 62 75 74 74 6f 6e 25  |   . 3:. button%|
00000800  3d 34 20 f2 63 68 61 6e  67 65 5f 6e 75 6d 28 6f  |=4 .change_num(o|
00000810  70 74 5f 70 61 6e 65 25  2c 38 2c 2b 31 2c 6d 69  |pt_pane%,8,+1,mi|
00000820  6e 5f 78 2c 6d 61 78 5f  78 29 0d 04 56 41 20 20  |n_x,max_x)..VA  |
00000830  20 20 20 20 20 20 20 3a  e7 20 62 75 74 74 6f 6e  |       :. button|
00000840  25 3d 31 20 f2 63 68 61  6e 67 65 5f 6e 75 6d 28  |%=1 .change_num(|
00000850  6f 70 74 5f 70 61 6e 65  25 2c 38 2c 2d 31 2c 6d  |opt_pane%,8,-1,m|
00000860  69 6e 5f 78 2c 6d 61 78  5f 78 29 0d 04 60 3e 20  |in_x,max_x)..`> |
00000870  20 20 c9 20 36 3a e7 20  62 75 74 74 6f 6e 25 3d  |  . 6:. button%=|
00000880  34 20 f2 63 68 61 6e 67  65 5f 6e 75 6d 28 6f 70  |4 .change_num(op|
00000890  74 5f 70 61 6e 65 25 2c  34 2c 2d 31 2c 6d 69 6e  |t_pane%,4,-1,min|
000008a0  5f 79 2c 6d 61 78 5f 79  29 0d 04 6a 41 20 20 20  |_y,max_y)..jA   |
000008b0  20 20 20 20 20 20 3a e7  20 62 75 74 74 6f 6e 25  |      :. button%|
000008c0  3d 31 20 f2 63 68 61 6e  67 65 5f 6e 75 6d 28 6f  |=1 .change_num(o|
000008d0  70 74 5f 70 61 6e 65 25  2c 34 2c 2b 31 2c 6d 69  |pt_pane%,4,+1,mi|
000008e0  6e 5f 79 2c 6d 61 78 5f  79 29 0d 04 74 3e 20 20  |n_y,max_y)..t>  |
000008f0  20 c9 20 37 3a e7 20 62  75 74 74 6f 6e 25 3d 34  | . 7:. button%=4|
00000900  20 f2 63 68 61 6e 67 65  5f 6e 75 6d 28 6f 70 74  | .change_num(opt|
00000910  5f 70 61 6e 65 25 2c 34  2c 2b 31 2c 6d 69 6e 5f  |_pane%,4,+1,min_|
00000920  79 2c 6d 61 78 5f 79 29  0d 04 7e 41 20 20 20 20  |y,max_y)..~A    |
00000930  20 20 20 20 20 3a e7 20  62 75 74 74 6f 6e 25 3d  |     :. button%=|
00000940  31 20 f2 63 68 61 6e 67  65 5f 6e 75 6d 28 6f 70  |1 .change_num(op|
00000950  74 5f 70 61 6e 65 25 2c  34 2c 2d 31 2c 6d 69 6e  |t_pane%,4,-1,min|
00000960  5f 79 2c 6d 61 78 5f 79  29 0d 04 88 34 20 20 20  |_y,max_y)...4   |
00000970  c9 20 31 32 2c 31 33 2c  31 34 2c 31 35 2c 31 36  |. 12,13,14,15,16|
00000980  2c 31 37 2c 20 32 30 2c  32 31 2c 32 32 2c 32 33  |,17, 20,21,22,23|
00000990  2c 32 34 2c 32 35 2c 32  36 2c 32 37 3a 0d 04 92  |,24,25,26,27:...|
000009a0  15 20 20 20 20 e7 20 62  75 74 74 6f 6e 25 3d 31  |.    . button%=1|
000009b0  20 8c 0d 04 9c 4a 20 20  20 20 20 e7 20 a4 69 63  | ....J     . .ic|
000009c0  6f 6e 5f 73 74 61 74 65  28 6f 70 74 5f 70 61 6e  |on_state(opt_pan|
000009d0  65 25 2c 69 63 6f 6e 25  29 3d a3 20 8c 20 f2 73  |e%,icon%)=. . .s|
000009e0  65 74 5f 62 75 74 74 6f  6e 28 6f 70 74 5f 70 61  |et_button(opt_pa|
000009f0  6e 65 25 2c 69 63 6f 6e  25 2c b9 29 0d 04 a6 09  |ne%,icon%,.)....|
00000a00  20 20 20 20 cd 0d 04 b0  07 20 20 cb 0d 04 ba 04  |    .....  .....|
00000a10  0d 04 c4 0b 20 c9 20 6f  70 74 25 0d 04 ce 10 20  |.... . opt%.... |
00000a20  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 04 d8 15 20  | .. icon% ..... |
00000a30  20 20 c9 20 31 3a f2 73  74 61 72 74 5f 6e 65 77  |  . 1:.start_new|
00000a40  0d 04 e2 1e 20 20 20 c9  20 32 3a f2 63 6c 6f 73  |....   . 2:.clos|
00000a50  65 5f 77 69 6e 64 6f 77  28 6f 70 74 25 29 0d 04  |e_window(opt%)..|
00000a60  ec 1b 20 20 20 c9 20 33  3a f2 6c 6f 61 64 5f 6f  |..   . 3:.load_o|
00000a70  70 74 69 6f 6e 73 28 a3  29 0d 04 f6 18 20 20 20  |ptions(.)....   |
00000a80  c9 20 34 3a f2 73 61 76  65 5f 6f 70 74 69 6f 6e  |. 4:.save_option|
00000a90  73 0d 05 00 07 20 20 cb  0d 05 0a 04 0d 05 14 11  |s....  .........|
00000aa0  20 c9 20 67 61 6d 65 5f  70 61 6e 65 25 0d 05 1e  | . game_pane%...|
00000ab0  32 20 20 e7 20 62 75 74  74 6f 6e 25 3d 32 20 f2  |2  . button%=2 .|
00000ac0  73 68 6f 77 6d 65 6e 75  28 67 61 6d 65 6d 65 6e  |showmenu(gamemen|
00000ad0  75 25 2c 21 62 25 2d 36  34 2c 62 25 21 34 29 0d  |u%,!b%-64,b%!4).|
00000ae0  05 28 04 0d 05 32 0c 20  c9 20 67 61 6d 65 25 0d  |.(...2. . game%.|
00000af0  05 3c 32 20 20 e7 20 62  75 74 74 6f 6e 25 3d 32  |.<2  . button%=2|
00000b00  20 f2 73 68 6f 77 6d 65  6e 75 28 67 61 6d 65 6d  | .showmenu(gamem|
00000b10  65 6e 75 25 2c 21 62 25  2d 36 34 2c 62 25 21 34  |enu%,!b%-64,b%!4|
00000b20  29 0d 05 46 15 20 20 e7  20 63 6c 69 63 6b 61 62  |)..F.  . clickab|
00000b30  6c 65 3d b9 20 8c 0d 05  50 16 20 20 e3 20 69 78  |le=. ...P.  . ix|
00000b40  3d 31 20 b8 20 73 69 7a  65 5f 78 25 0d 05 5a 52  |=1 . size_x%..ZR|
00000b50  20 20 20 e7 20 69 63 6f  6e 25 3d 75 70 25 28 69  |   . icon%=up%(i|
00000b60  78 29 20 80 20 62 75 74  74 6f 6e 25 3d 34 20 f2  |x) . button%=4 .|
00000b70  73 6c 69 64 65 5f 75 70  28 69 78 29 3a f2 72 65  |slide_up(ix):.re|
00000b80  64 72 61 77 5f 62 6f 61  72 64 3a f2 6d 6f 76 65  |draw_board:.move|
00000b90  3a f2 63 68 65 63 6b 5f  66 69 6e 69 73 68 0d 05  |:.check_finish..|
00000ba0  64 54 20 20 20 e7 20 69  63 6f 6e 25 3d 75 70 25  |dT   . icon%=up%|
00000bb0  28 69 78 29 20 80 20 62  75 74 74 6f 6e 25 3d 31  |(ix) . button%=1|
00000bc0  20 f2 73 6c 69 64 65 5f  64 6f 77 6e 28 69 78 29  | .slide_down(ix)|
00000bd0  3a f2 72 65 64 72 61 77  5f 62 6f 61 72 64 3a f2  |:.redraw_board:.|
00000be0  6d 6f 76 65 3a f2 63 68  65 63 6b 5f 66 69 6e 69  |move:.check_fini|
00000bf0  73 68 0d 05 6e 56 20 20  20 e7 20 69 63 6f 6e 25  |sh..nV   . icon%|
00000c00  3d 64 6f 77 6e 25 28 69  78 29 20 80 20 62 75 74  |=down%(ix) . but|
00000c10  74 6f 6e 25 3d 34 20 f2  73 6c 69 64 65 5f 64 6f  |ton%=4 .slide_do|
00000c20  77 6e 28 69 78 29 3a f2  72 65 64 72 61 77 5f 62  |wn(ix):.redraw_b|
00000c30  6f 61 72 64 3a f2 6d 6f  76 65 3a f2 63 68 65 63  |oard:.move:.chec|
00000c40  6b 5f 66 69 6e 69 73 68  0d 05 78 54 20 20 20 e7  |k_finish..xT   .|
00000c50  20 69 63 6f 6e 25 3d 64  6f 77 6e 25 28 69 78 29  | icon%=down%(ix)|
00000c60  20 80 20 62 75 74 74 6f  6e 25 3d 31 20 f2 73 6c  | . button%=1 .sl|
00000c70  69 64 65 5f 75 70 28 69  78 29 3a f2 72 65 64 72  |ide_up(ix):.redr|
00000c80  61 77 5f 62 6f 61 72 64  3a f2 6d 6f 76 65 3a f2  |aw_board:.move:.|
00000c90  63 68 65 63 6b 5f 66 69  6e 69 73 68 0d 05 82 07  |check_finish....|
00000ca0  20 20 ed 0d 05 8c 16 20  20 e3 20 69 79 3d 31 20  |  .....  . iy=1 |
00000cb0  b8 20 73 69 7a 65 5f 79  25 0d 05 96 56 20 20 20  |. size_y%...V   |
00000cc0  e7 20 69 63 6f 6e 25 3d  6c 65 66 74 25 28 69 79  |. icon%=left%(iy|
00000cd0  29 20 80 20 62 75 74 74  6f 6e 25 3d 34 20 f2 73  |) . button%=4 .s|
00000ce0  6c 69 64 65 5f 6c 65 66  74 28 69 79 29 3a f2 72  |lide_left(iy):.r|
00000cf0  65 64 72 61 77 5f 62 6f  61 72 64 3a f2 6d 6f 76  |edraw_board:.mov|
00000d00  65 3a f2 63 68 65 63 6b  5f 66 69 6e 69 73 68 0d  |e:.check_finish.|
00000d10  05 a0 57 20 20 20 e7 20  69 63 6f 6e 25 3d 6c 65  |..W   . icon%=le|
00000d20  66 74 25 28 69 79 29 20  80 20 62 75 74 74 6f 6e  |ft%(iy) . button|
00000d30  25 3d 31 20 f2 73 6c 69  64 65 5f 72 69 67 68 74  |%=1 .slide_right|
00000d40  28 69 79 29 3a f2 72 65  64 72 61 77 5f 62 6f 61  |(iy):.redraw_boa|
00000d50  72 64 3a f2 6d 6f 76 65  3a f2 63 68 65 63 6b 5f  |rd:.move:.check_|
00000d60  66 69 6e 69 73 68 0d 05  aa 58 20 20 20 e7 20 69  |finish...X   . i|
00000d70  63 6f 6e 25 3d 72 69 67  68 74 25 28 69 79 29 20  |con%=right%(iy) |
00000d80  80 20 62 75 74 74 6f 6e  25 3d 34 20 f2 73 6c 69  |. button%=4 .sli|
00000d90  64 65 5f 72 69 67 68 74  28 69 79 29 3a f2 72 65  |de_right(iy):.re|
00000da0  64 72 61 77 5f 62 6f 61  72 64 3a f2 6d 6f 76 65  |draw_board:.move|
00000db0  3a f2 63 68 65 63 6b 5f  66 69 6e 69 73 68 0d 05  |:.check_finish..|
00000dc0  b4 57 20 20 20 e7 20 69  63 6f 6e 25 3d 72 69 67  |.W   . icon%=rig|
00000dd0  68 74 25 28 69 79 29 20  80 20 62 75 74 74 6f 6e  |ht%(iy) . button|
00000de0  25 3d 31 20 f2 73 6c 69  64 65 5f 6c 65 66 74 28  |%=1 .slide_left(|
00000df0  69 79 29 3a f2 72 65 64  72 61 77 5f 62 6f 61 72  |iy):.redraw_boar|
00000e00  64 3a f2 6d 6f 76 65 3a  f2 63 68 65 63 6b 5f 66  |d:.move:.check_f|
00000e10  69 6e 69 73 68 0d 05 be  07 20 20 ed 0d 05 c8 07  |inish....  .....|
00000e20  20 20 cd 0d 05 d2 04 0d  05 dc 0e 20 c9 20 73 61  |  ......... . sa|
00000e30  76 65 61 73 25 0d 05 e6  10 20 20 c8 8e 20 69 63  |veas%....  .. ic|
00000e40  6f 6e 25 20 ca 0d 05 f0  1b 20 20 20 c9 20 31 3a  |on% .....   . 1:|
00000e50  f2 64 72 61 67 28 73 61  76 65 61 73 25 2c 31 29  |.drag(saveas%,1)|
00000e60  0d 05 fa 19 20 20 20 c9  20 33 3a f2 70 75 74 5f  |....   . 3:.put_|
00000e70  73 61 76 65 5f 64 61 74  61 0d 06 04 4b 20 20 20  |save_data...K   |
00000e80  20 20 20 20 20 20 20 e7  20 62 75 74 74 6f 6e 25  |       . button%|
00000e90  3d 34 20 8c 20 f2 63 6c  6f 73 65 5f 77 69 6e 64  |=4 . .close_wind|
00000ea0  6f 77 28 73 61 76 65 61  73 25 29 3a c8 99 20 22  |ow(saveas%):.. "|
00000eb0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00000ec0  2c 2c 2d 31 0d 06 0e 07  20 20 cb 0d 06 18 04 0d  |,,-1....  ......|
00000ed0  06 22 05 cb 0d 06 2c 05  e1 0d 06 36 05 3a 0d 06  |."....,....6.:..|
00000ee0  40 0a dd f2 6d 6f 76 65  0d 06 4a 0c 6d 6f 76 65  |@...move..J.move|
00000ef0  73 2b 3d 31 0d 06 54 29  f2 73 65 74 5f 69 63 6f  |s+=1..T).set_ico|
00000f00  6e 5f 73 74 72 69 6e 67  28 67 61 6d 65 5f 70 61  |n_string(game_pa|
00000f10  6e 65 25 2c 32 2c c3 6d  6f 76 65 73 29 0d 06 5e  |ne%,2,.moves)..^|
00000f20  1e f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 67 61  |..update_icon(ga|
00000f30  6d 65 5f 70 61 6e 65 25  2c 32 29 0d 06 68 05 e1  |me_pane%,2)..h..|
00000f40  0d 06 72 05 3a 0d 06 7c  12 dd f2 63 68 65 63 6b  |..r.:..|...check|
00000f50  5f 66 69 6e 69 73 68 0d  06 86 0e 63 6f 72 72 65  |_finish....corre|
00000f60  63 74 25 3d 30 0d 06 90  14 e3 20 62 79 3d 31 20  |ct%=0..... by=1 |
00000f70  b8 20 73 69 7a 65 5f 79  25 0d 06 9a 15 20 e3 20  |. size_y%.... . |
00000f80  62 78 3d 31 20 b8 20 73  69 7a 65 5f 78 25 0d 06  |bx=1 . size_x%..|
00000f90  a4 33 20 20 e7 20 63 6f  6c 6f 75 72 25 28 62 78  |.3  . colour%(bx|
00000fa0  2c 62 79 29 3d 74 61 72  67 65 74 25 28 62 78 2c  |,by)=target%(bx,|
00000fb0  62 79 29 20 8c 20 63 6f  72 72 65 63 74 25 2b 3d  |by) . correct%+=|
00000fc0  31 0d 06 ae 05 ed 0d 06  b8 05 ed 0d 06 c2 20 e7  |1............. .|
00000fd0  20 63 6f 72 72 65 63 74  25 3d 73 69 7a 65 5f 78  | correct%=size_x|
00000fe0  25 2a 73 69 7a 65 5f 79  25 20 8c 0d 06 cc 10 20  |%*size_y% ..... |
00000ff0  63 6c 69 63 6b 61 62 6c  65 3d a3 0d 06 d6 0b 20  |clickable=..... |
00001000  21 62 25 3d 25 31 0d 06  e0 2d 20 24 28 62 25 2b  |!b%=%1...- $(b%+|
00001010  34 29 3d a4 6d 73 67 74  72 61 6e 73 5f 6c 6f 6f  |4)=.msgtrans_loo|
00001020  6b 75 70 30 28 22 43 4f  4d 50 4c 45 54 45 22 29  |kup0("COMPLETE")|
00001030  2b bd 30 0d 06 ea 10 20  62 6f 78 25 3d 25 31 31  |+.0.... box%=%11|
00001040  30 30 31 0d 06 f4 4d 20  c8 99 20 22 57 69 6d 70  |001...M .. "Wimp|
00001050  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 25  |_ReportError",b%|
00001060  2c 62 6f 78 25 2c a4 6d  73 67 74 72 61 6e 73 5f  |,box%,.msgtrans_|
00001070  6c 6f 6f 6b 75 70 30 28  22 43 4f 4d 50 54 49 54  |lookup0("COMPTIT|
00001080  4c 22 29 20 b8 20 2c 72  65 73 70 6f 6e 73 65 25  |L") . ,response%|
00001090  0d 06 fe 05 cd 0d 07 08  05 e1 0d 07 12 05 3a 0d  |..............:.|
000010a0  07 1c 12 dd f2 73 74 6f  70 5f 70 6c 61 79 69 6e  |.....stop_playin|
000010b0  67 0d 07 26 0d 21 62 25  3d 67 61 6d 65 25 0d 07  |g..&.!b%=game%..|
000010c0  30 1e c8 99 20 22 57 69  6d 70 5f 44 65 6c 65 74  |0... "Wimp_Delet|
000010d0  65 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 07 3a 0a  |eWindow",,b%..:.|
000010e0  62 25 21 30 3d 30 0d 07  44 0a 62 25 21 34 3d 30  |b%!0=0..D.b%!4=0|
000010f0  0d 07 4e 0d 62 25 21 38  3d 31 30 32 34 0d 07 58  |..N.b%!8=1024..X|
00001100  0e 62 25 21 31 32 3d 31  30 32 34 0d 07 62 0b 62  |.b%!12=1024..b.b|
00001110  25 21 31 36 3d 30 0d 07  6c 0b 62 25 21 32 30 3d  |%!16=0..l.b%!20=|
00001120  30 0d 07 76 0c 62 25 21  32 34 3d 2d 31 0d 07 80  |0..v.b%!24=-1...|
00001130  29 f4 20 20 20 20 31 30  39 38 37 36 35 34 33 32  |).    1098765432|
00001140  31 30 39 38 37 36 35 34  33 32 31 30 39 38 37 36  |1098765432109876|
00001150  35 34 33 32 31 30 0d 07  8a 2b 62 25 21 32 38 3d  |543210...+b%!28=|
00001160  25 31 30 30 30 30 31 31  31 30 30 30 30 30 30 30  |%100001110000000|
00001170  30 30 30 30 30 30 30 30  31 30 31 30 31 30 30 31  |0000000010101001|
00001180  30 0d 07 94 0b 62 25 21  33 32 3d 37 0d 07 9e 0b  |0....b%!32=7....|
00001190  62 25 21 33 33 3d 32 0d  07 a8 0b 62 25 21 33 34  |b%!33=2....b%!34|
000011a0  3d 37 0d 07 b2 0b 62 25  21 33 35 3d 31 0d 07 bc  |=7....b%!35=1...|
000011b0  0b 62 25 21 33 36 3d 33  0d 07 c6 0b 62 25 21 33  |.b%!36=3....b%!3|
000011c0  37 3d 31 0d 07 d0 0c 62  25 21 33 38 3d 31 32 0d  |7=1....b%!38=12.|
000011d0  07 da 0b 62 25 21 33 39  3d 30 0d 07 e4 0b 62 25  |...b%!39=0....b%|
000011e0  21 34 30 3d 30 0d 07 ee  0b 62 25 21 34 34 3d 30  |!40=0....b%!44=0|
000011f0  0d 07 f8 0b 62 25 21 34  38 3d 30 0d 08 02 0b 62  |....b%!48=0....b|
00001200  25 21 35 32 3d 30 0d 08  0c 29 f4 20 20 20 20 31  |%!52=0...).    1|
00001210  30 39 38 37 36 35 34 33  32 31 30 39 38 37 36 35  |0987654321098765|
00001220  34 33 32 31 30 39 38 37  36 35 34 33 32 31 30 0d  |432109876543210.|
00001230  08 16 2b 62 25 21 35 36  3d 25 30 30 31 30 30 31  |..+b%!56=%001001|
00001240  31 31 30 30 30 30 30 30  30 30 31 30 31 30 30 30  |1100000000101000|
00001250  30 30 30 30 30 31 31 30  30 31 0d 08 20 0b 62 25  |0000011001.. .b%|
00001260  21 36 30 3d 33 0d 08 2a  0b 62 25 21 36 34 3d 31  |!60=3..*.b%!64=1|
00001270  0d 08 34 0b 62 25 21 36  38 3d 30 0d 08 3e 0b 62  |..4.b%!68=0..>.b|
00001280  25 21 37 30 3d 30 0d 08  48 2b 24 28 62 25 2b 37  |%!70=0..H+$(b%+7|
00001290  32 29 3d a4 6d 73 67 74  72 61 6e 73 5f 6c 6f 6f  |2)=.msgtrans_loo|
000012a0  6b 75 70 30 28 22 47 41  4d 45 54 49 54 4c 45 22  |kup0("GAMETITLE"|
000012b0  29 0d 08 52 0b 62 25 21  38 34 3d 30 0d 08 5c 26  |)..R.b%!84=0..\&|
000012c0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
000012d0  69 6e 64 6f 77 22 2c 2c  62 25 20 b8 20 67 61 6d  |indow",,b% . gam|
000012e0  65 25 0d 08 66 05 e1 0d  08 70 05 3a 0d 08 7a 1b  |e%..f....p.:..z.|
000012f0  dd f2 64 65 6c 65 74 65  5f 69 63 6f 6e 28 77 69  |..delete_icon(wi|
00001300  6e 25 2c 69 63 25 29 0d  08 84 0c 21 62 25 3d 77  |n%,ic%)....!b%=w|
00001310  69 6e 25 0d 08 8e 0c 62  25 21 34 3d 69 63 25 0d  |in%....b%!4=ic%.|
00001320  08 98 1c c8 99 20 22 57  69 6d 70 5f 44 65 6c 65  |..... "Wimp_Dele|
00001330  74 65 49 63 6f 6e 22 2c  2c 62 25 0d 08 a2 05 e1  |teIcon",,b%.....|
00001340  0d 08 ac 05 3a 0d 08 b6  12 dd f2 72 65 64 72 61  |....:......redra|
00001350  77 5f 62 6f 61 72 64 0d  08 c0 14 e3 20 62 79 3d  |w_board..... by=|
00001360  31 20 b8 20 73 69 7a 65  5f 79 25 0d 08 ca 15 20  |1 . size_y%.... |
00001370  e3 20 62 78 3d 31 20 b8  20 73 69 7a 65 5f 78 25  |. bx=1 . size_x%|
00001380  0d 08 d4 25 20 20 e7 20  63 6f 6c 6f 75 72 25 28  |...%  . colour%(|
00001390  62 78 2c 62 79 29 3c 3e  6f 6c 64 25 28 62 78 2c  |bx,by)<>old%(bx,|
000013a0  62 79 29 20 8c 0d 08 de  21 20 20 20 6f 6c 64 25  |by) ....!   old%|
000013b0  28 62 78 2c 62 79 29 3d  63 6f 6c 6f 75 72 25 28  |(bx,by)=colour%(|
000013c0  62 78 2c 62 79 29 0d 08  e8 4d 20 20 20 f4 50 52  |bx,by)...M   .PR|
000013d0  4f 43 73 65 74 5f 69 63  6f 6e 5f 73 74 72 69 6e  |OCset_icon_strin|
000013e0  67 28 67 61 6d 65 25 2c  69 63 6f 6e 25 28 62 78  |g(game%,icon%(bx|
000013f0  2c 62 79 29 2c 22 74 69  6c 65 63 6f 6c 5f 22 2b  |,by),"tilecol_"+|
00001400  53 54 52 24 63 6f 6c 6f  75 72 25 28 62 78 2c 62  |STR$colour%(bx,b|
00001410  79 29 29 0d 08 f2 3b 20  20 20 21 62 25 3d 67 61  |y))...;   !b%=ga|
00001420  6d 65 25 3a 62 25 21 34  3d 69 63 6f 6e 25 28 62  |me%:b%!4=icon%(b|
00001430  78 2c 62 79 29 3a c8 99  20 22 57 69 6d 70 5f 44  |x,by):.. "Wimp_D|
00001440  65 6c 65 74 65 49 63 6f  6e 22 2c 2c 62 25 0d 08  |eleteIcon",,b%..|
00001450  fc 22 20 20 20 74 78 25  3d 28 62 78 2a 37 32 29  |."   tx%=(bx*72)|
00001460  3a 74 79 25 3d 2d 28 62  79 2a 37 32 29 2d 37 32  |:ty%=-(by*72)-72|
00001470  0d 09 06 65 20 20 20 69  63 6f 6e 25 28 62 78 2c  |...e   icon%(bx,|
00001480  62 79 29 3d a4 63 72 65  61 74 65 5f 69 63 6f 6e  |by)=.create_icon|
00001490  28 67 61 6d 65 25 2c 22  74 69 6c 65 63 6f 6c 5f  |(game%,"tilecol_|
000014a0  22 2b c3 63 6f 6c 6f 75  72 25 28 62 78 2c 62 79  |"+.colour%(bx,by|
000014b0  29 2c 74 78 25 2c 74 79  25 2c 74 78 25 2b 37 32  |),tx%,ty%,tx%+72|
000014c0  2c 74 79 25 2b 37 32 2c  73 70 72 69 74 65 5f 69  |,ty%+72,sprite_i|
000014d0  63 6f 6e 25 29 0d 09 10  27 20 20 20 f2 75 70 64  |con%)...'   .upd|
000014e0  61 74 65 5f 69 63 6f 6e  28 67 61 6d 65 25 2c 69  |ate_icon(game%,i|
000014f0  63 6f 6e 25 28 62 78 2c  62 79 29 29 0d 09 1a 07  |con%(bx,by))....|
00001500  20 20 cd 0d 09 24 06 20  ed 0d 09 2e 05 ed 0d 09  |  ...$. ........|
00001510  38 05 e1 0d 09 42 05 3a  0d 09 4c 13 dd f2 63 68  |8....B.:..L...ch|
00001520  65 63 6b 5f 63 6f 6c 5f  73 65 6c 0d 09 56 29 63  |eck_col_sel..V)c|
00001530  6f 6c 5f 73 65 6c 25 28  31 29 3d a4 69 63 6f 6e  |ol_sel%(1)=.icon|
00001540  5f 73 74 61 74 65 28 6f  70 74 5f 70 61 6e 65 25  |_state(opt_pane%|
00001550  2c 33 32 29 0d 09 60 29  63 6f 6c 5f 73 65 6c 25  |,32)..`)col_sel%|
00001560  28 32 29 3d a4 69 63 6f  6e 5f 73 74 61 74 65 28  |(2)=.icon_state(|
00001570  6f 70 74 5f 70 61 6e 65  25 2c 33 34 29 0d 09 6a  |opt_pane%,34)..j|
00001580  29 63 6f 6c 5f 73 65 6c  25 28 33 29 3d a4 69 63  |)col_sel%(3)=.ic|
00001590  6f 6e 5f 73 74 61 74 65  28 6f 70 74 5f 70 61 6e  |on_state(opt_pan|
000015a0  65 25 2c 33 36 29 0d 09  74 29 63 6f 6c 5f 73 65  |e%,36)..t)col_se|
000015b0  6c 25 28 34 29 3d a4 69  63 6f 6e 5f 73 74 61 74  |l%(4)=.icon_stat|
000015c0  65 28 6f 70 74 5f 70 61  6e 65 25 2c 33 38 29 0d  |e(opt_pane%,38).|
000015d0  09 7e 29 63 6f 6c 5f 73  65 6c 25 28 35 29 3d a4  |.~)col_sel%(5)=.|
000015e0  69 63 6f 6e 5f 73 74 61  74 65 28 6f 70 74 5f 70  |icon_state(opt_p|
000015f0  61 6e 65 25 2c 33 33 29  0d 09 88 29 63 6f 6c 5f  |ane%,33)...)col_|
00001600  73 65 6c 25 28 36 29 3d  a4 69 63 6f 6e 5f 73 74  |sel%(6)=.icon_st|
00001610  61 74 65 28 6f 70 74 5f  70 61 6e 65 25 2c 33 35  |ate(opt_pane%,35|
00001620  29 0d 09 92 29 63 6f 6c  5f 73 65 6c 25 28 37 29  |)...)col_sel%(7)|
00001630  3d a4 69 63 6f 6e 5f 73  74 61 74 65 28 6f 70 74  |=.icon_state(opt|
00001640  5f 70 61 6e 65 25 2c 33  37 29 0d 09 9c 29 63 6f  |_pane%,37)...)co|
00001650  6c 5f 73 65 6c 25 28 38  29 3d a4 69 63 6f 6e 5f  |l_sel%(8)=.icon_|
00001660  73 74 61 74 65 28 6f 70  74 5f 70 61 6e 65 25 2c  |state(opt_pane%,|
00001670  33 39 29 0d 09 a6 0d 63  6f 6c 5f 73 65 6c 3d 30  |39)....col_sel=0|
00001680  0d 09 b0 0d e3 20 49 3d  31 20 b8 20 38 0d 09 ba  |..... I=1 . 8...|
00001690  1e e7 20 63 6f 6c 5f 73  65 6c 25 28 49 29 3d b9  |.. col_sel%(I)=.|
000016a0  20 63 6f 6c 5f 73 65 6c  2b 3d 31 0d 09 c4 05 ed  | col_sel+=1.....|
000016b0  0d 09 ce 11 e7 20 63 6f  6c 5f 73 65 6c 3c 32 20  |..... col_sel<2 |
000016c0  8c 0d 09 d8 0b 20 21 62  25 3d 25 31 0d 09 e2 2c  |..... !b%=%1...,|
000016d0  20 24 28 62 25 2b 34 29  3d a4 6d 73 67 74 72 61  | $(b%+4)=.msgtra|
000016e0  6e 73 5f 6c 6f 6f 6b 75  70 30 28 22 43 4f 4c 57  |ns_lookup0("COLW|
000016f0  41 52 4e 22 29 2b bd 30  0d 09 ec 10 20 62 6f 78  |ARN")+.0.... box|
00001700  25 3d 25 31 31 30 30 31  0d 09 f6 4c 20 c8 99 20  |%=%11001...L .. |
00001710  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00001720  72 22 2c 62 25 2c 62 6f  78 25 2c a4 6d 73 67 74  |r",b%,box%,.msgt|
00001730  72 61 6e 73 5f 6c 6f 6f  6b 75 70 30 28 22 43 4f  |rans_lookup0("CO|
00001740  4c 54 49 54 4c 22 29 20  b8 20 2c 72 65 73 70 6f  |LTITL") . ,respo|
00001750  6e 73 65 25 0d 0a 00 05  cd 0d 0a 0a 05 e1 0d 0a  |nse%............|
00001760  14 05 3a 0d 0a 1e 0f dd  f2 73 74 61 72 74 5f 6e  |..:......start_n|
00001770  65 77 0d 0a 28 22 f2 63  68 65 63 6b 5f 63 6f 6c  |ew..(".check_col|
00001780  5f 73 65 6c 3a e7 20 63  6f 6c 5f 73 65 6c 3c 32  |_sel:. col_sel<2|
00001790  20 8c 20 e1 0d 0a 32 3e  e7 20 70 6c 61 79 69 6e  | . ...2>. playin|
000017a0  67 3d b9 20 8c 20 70 6c  61 79 69 6e 67 3d a3 3a  |g=. . playing=.:|
000017b0  f2 73 74 6f 70 5f 70 6c  61 79 69 6e 67 3a f2 63  |.stop_playing:.c|
000017c0  6c 6f 73 65 5f 77 69 6e  64 6f 77 28 67 61 6d 65  |lose_window(game|
000017d0  25 29 0d 0a 3c 04 0d 0a  46 3d f2 73 65 74 5f 69  |%)..<...F=.set_i|
000017e0  63 6f 6e 5f 73 74 72 69  6e 67 28 73 61 76 65 61  |con_string(savea|
000017f0  73 25 2c 32 2c a4 6d 73  67 74 72 61 6e 73 5f 6c  |s%,2,.msgtrans_l|
00001800  6f 6f 6b 75 70 30 28 22  53 41 56 45 49 4e 49 54  |ookup0("SAVEINIT|
00001810  22 29 29 0d 0a 50 04 0d  0a 5a 28 73 69 7a 65 5f  |"))..P...Z(size_|
00001820  78 25 3d bb 28 a4 69 63  6f 6e 5f 73 74 72 69 6e  |x%=.(.icon_strin|
00001830  67 28 6f 70 74 5f 70 61  6e 65 25 2c 38 29 29 0d  |g(opt_pane%,8)).|
00001840  0a 64 28 73 69 7a 65 5f  79 25 3d bb 28 a4 69 63  |.d(size_y%=.(.ic|
00001850  6f 6e 5f 73 74 72 69 6e  67 28 6f 70 74 5f 70 61  |on_string(opt_pa|
00001860  6e 65 25 2c 34 29 29 0d  0a 6e 16 6c 61 79 6f 75  |ne%,4))..n.layou|
00001870  74 25 3d 31 3a 73 6b 69  6c 6c 25 3d 31 0d 0a 78  |t%=1:skill%=1..x|
00001880  04 0d 0a 82 0a c8 8e 20  b9 20 ca 0d 0a 8c 2a 20  |....... . ....* |
00001890  c9 20 a4 69 63 6f 6e 5f  73 74 61 74 65 28 6f 70  |. .icon_state(op|
000018a0  74 5f 70 61 6e 65 25 2c  31 36 29 3a 6c 61 79 6f  |t_pane%,16):layo|
000018b0  75 74 25 3d 31 0d 0a 96  2a 20 c9 20 a4 69 63 6f  |ut%=1...* . .ico|
000018c0  6e 5f 73 74 61 74 65 28  6f 70 74 5f 70 61 6e 65  |n_state(opt_pane|
000018d0  25 2c 31 37 29 3a 6c 61  79 6f 75 74 25 3d 36 0d  |%,17):layout%=6.|
000018e0  0a a0 2a 20 c9 20 a4 69  63 6f 6e 5f 73 74 61 74  |..* . .icon_stat|
000018f0  65 28 6f 70 74 5f 70 61  6e 65 25 2c 31 32 29 3a  |e(opt_pane%,12):|
00001900  6c 61 79 6f 75 74 25 3d  32 0d 0a aa 2a 20 c9 20  |layout%=2...* . |
00001910  a4 69 63 6f 6e 5f 73 74  61 74 65 28 6f 70 74 5f  |.icon_state(opt_|
00001920  70 61 6e 65 25 2c 31 33  29 3a 6c 61 79 6f 75 74  |pane%,13):layout|
00001930  25 3d 33 0d 0a b4 2a 20  c9 20 a4 69 63 6f 6e 5f  |%=3...* . .icon_|
00001940  73 74 61 74 65 28 6f 70  74 5f 70 61 6e 65 25 2c  |state(opt_pane%,|
00001950  31 34 29 3a 6c 61 79 6f  75 74 25 3d 35 0d 0a be  |14):layout%=5...|
00001960  2a 20 c9 20 a4 69 63 6f  6e 5f 73 74 61 74 65 28  |* . .icon_state(|
00001970  6f 70 74 5f 70 61 6e 65  25 2c 31 35 29 3a 6c 61  |opt_pane%,15):la|
00001980  79 6f 75 74 25 3d 34 0d  0a c8 05 cb 0d 0a d2 04  |yout%=4.........|
00001990  0d 0a dc 0a c8 8e 20 b9  20 ca 0d 0a e6 29 20 c9  |...... . ....) .|
000019a0  20 a4 69 63 6f 6e 5f 73  74 61 74 65 28 6f 70 74  | .icon_state(opt|
000019b0  5f 70 61 6e 65 25 2c 32  30 29 3a 73 6b 69 6c 6c  |_pane%,20):skill|
000019c0  25 3d 31 0d 0a f0 29 20  c9 20 a4 69 63 6f 6e 5f  |%=1...) . .icon_|
000019d0  73 74 61 74 65 28 6f 70  74 5f 70 61 6e 65 25 2c  |state(opt_pane%,|
000019e0  32 31 29 3a 73 6b 69 6c  6c 25 3d 32 0d 0a fa 29  |21):skill%=2...)|
000019f0  20 c9 20 a4 69 63 6f 6e  5f 73 74 61 74 65 28 6f  | . .icon_state(o|
00001a00  70 74 5f 70 61 6e 65 25  2c 32 32 29 3a 73 6b 69  |pt_pane%,22):ski|
00001a10  6c 6c 25 3d 33 0d 0b 04  29 20 c9 20 a4 69 63 6f  |ll%=3...) . .ico|
00001a20  6e 5f 73 74 61 74 65 28  6f 70 74 5f 70 61 6e 65  |n_state(opt_pane|
00001a30  25 2c 32 33 29 3a 73 6b  69 6c 6c 25 3d 34 0d 0b  |%,23):skill%=4..|
00001a40  0e 29 20 c9 20 a4 69 63  6f 6e 5f 73 74 61 74 65  |.) . .icon_state|
00001a50  28 6f 70 74 5f 70 61 6e  65 25 2c 32 34 29 3a 73  |(opt_pane%,24):s|
00001a60  6b 69 6c 6c 25 3d 35 0d  0b 18 29 20 c9 20 a4 69  |kill%=5...) . .i|
00001a70  63 6f 6e 5f 73 74 61 74  65 28 6f 70 74 5f 70 61  |con_state(opt_pa|
00001a80  6e 65 25 2c 32 35 29 3a  73 6b 69 6c 6c 25 3d 36  |ne%,25):skill%=6|
00001a90  0d 0b 22 29 20 c9 20 a4  69 63 6f 6e 5f 73 74 61  |..") . .icon_sta|
00001aa0  74 65 28 6f 70 74 5f 70  61 6e 65 25 2c 32 36 29  |te(opt_pane%,26)|
00001ab0  3a 73 6b 69 6c 6c 25 3d  37 0d 0b 2c 29 20 c9 20  |:skill%=7..,) . |
00001ac0  a4 69 63 6f 6e 5f 73 74  61 74 65 28 6f 70 74 5f  |.icon_state(opt_|
00001ad0  70 61 6e 65 25 2c 32 37  29 3a 73 6b 69 6c 6c 25  |pane%,27):skill%|
00001ae0  3d 38 0d 0b 36 05 cb 0d  0b 40 04 0d 0b 4a 17 f2  |=8..6....@...J..|
00001af0  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 6f 70 74  |close_window(opt|
00001b00  25 29 0d 0b 54 11 f2 64  65 66 69 6e 65 5f 61 72  |%)..T..define_ar|
00001b10  72 61 79 0d 0b 5e 16 f2  73 65 74 75 70 5f 67 61  |ray..^..setup_ga|
00001b20  6d 65 5f 77 69 6e 64 6f  77 0d 0b 68 0e f2 64 72  |me_window..h..dr|
00001b30  61 77 5f 6d 69 6e 69 0d  0b 72 0c f2 73 68 75 66  |aw_mini..r..shuf|
00001b40  66 6c 65 0d 0b 7c 11 f2  72 65 64 72 61 77 5f 62  |fle..|..redraw_b|
00001b50  6f 61 72 64 0d 0b 86 04  0d 0b 90 14 f2 67 65 74  |oard.........get|
00001b60  5f 73 63 72 65 65 6e 5f  73 69 7a 65 0d 0b 9a 1b  |_screen_size....|
00001b70  68 65 69 67 68 74 25 3d  28 73 69 7a 65 5f 79 25  |height%=(size_y%|
00001b80  2b 32 29 2a 2d 37 32 0d  0b a4 1c 20 77 69 64 74  |+2)*-72.... widt|
00001b90  68 25 3d 28 28 73 69 7a  65 5f 78 25 2b 32 29 2a  |h%=((size_x%+2)*|
00001ba0  37 32 29 0d 0b ae 0d 21  62 25 3d 67 61 6d 65 25  |72)....!b%=game%|
00001bb0  0d 0b b8 0b 58 32 2d 3d  31 36 30 0d 0b c2 23 62  |....X2-=160...#b|
00001bc0  25 21 34 3d 28 28 58 32  20 81 20 32 29 2d 28 77  |%!4=((X2 . 2)-(w|
00001bd0  69 64 74 68 25 20 81 20  32 29 29 2b 38 30 0d 0b  |idth% . 2))+80..|
00001be0  cc 1f 62 25 21 38 3d 28  59 32 20 81 20 32 29 2b  |..b%!8=(Y2 . 2)+|
00001bf0  28 68 65 69 67 68 74 25  20 81 20 32 29 0d 0b d6  |(height% . 2)...|
00001c00  24 62 25 21 31 32 3d 28  28 58 32 20 81 20 32 29  |$b%!12=((X2 . 2)|
00001c10  2b 28 77 69 64 74 68 25  20 81 20 32 29 29 2b 38  |+(width% . 2))+8|
00001c20  30 0d 0b e0 20 62 25 21  31 36 3d 28 59 32 20 81  |0... b%!16=(Y2 .|
00001c30  20 32 29 2d 28 68 65 69  67 68 74 25 20 81 20 32  | 2)-(height% . 2|
00001c40  29 0d 0b ea 13 62 25 21  32 30 3d 30 3a 62 25 21  |)....b%!20=0:b%!|
00001c50  32 34 3d 30 0d 0b f4 0c  62 25 21 32 38 3d 2d 31  |24=0....b%!28=-1|
00001c60  0d 0b fe 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...... "Wimp_Ope|
00001c70  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 0c 08 04  |nWindow",,b%....|
00001c80  0d 0c 12 15 f2 6f 70 65  6e 5f 70 61 6e 65 28 67  |.....open_pane(g|
00001c90  61 6d 65 25 29 0d 0c 1c  0d 70 6c 61 79 69 6e 67  |ame%)....playing|
00001ca0  3d b9 0d 0c 26 0f 63 6c  69 63 6b 61 62 6c 65 3d  |=...&.clickable=|
00001cb0  b9 0d 0c 30 31 6d 6f 76  65 73 3d 30 3a f2 73 65  |...01moves=0:.se|
00001cc0  74 5f 69 63 6f 6e 5f 73  74 72 69 6e 67 28 67 61  |t_icon_string(ga|
00001cd0  6d 65 5f 70 61 6e 65 25  2c 32 2c c3 6d 6f 76 65  |me_pane%,2,.move|
00001ce0  73 29 0d 0c 3a 1e f2 75  70 64 61 74 65 5f 69 63  |s)..:..update_ic|
00001cf0  6f 6e 28 67 61 6d 65 5f  70 61 6e 65 25 2c 32 29  |on(game_pane%,2)|
00001d00  0d 0c 44 05 e1 0d 0c 4e  05 3a 0d 0c 58 0d dd f2  |..D....N.:..X...|
00001d10  73 68 75 66 66 6c 65 0d  0c 62 29 73 68 75 66 66  |shuffle..b)shuff|
00001d20  6c 65 73 3d 73 6b 69 6c  6c 25 2a 28 28 73 69 7a  |les=skill%*((siz|
00001d30  65 5f 78 25 2b 73 69 7a  65 5f 79 25 29 2a 32 29  |e_x%+size_y%)*2)|
00001d40  0d 0c 6c 14 e3 20 49 3d  31 20 b8 20 73 68 75 66  |..l.. I=1 . shuf|
00001d50  66 6c 65 73 0d 0c 76 17  64 69 72 25 3d b3 28 34  |fles..v.dir%=.(4|
00001d60  29 3a 6c 65 6e 25 3d b3  28 34 29 0d 0c 80 10 e3  |):len%=.(4).....|
00001d70  20 4a 3d 31 20 b8 20 6c  65 6e 25 0d 0c 8a 0d c8  | J=1 . len%.....|
00001d80  8e 20 64 69 72 25 20 ca  0d 0c 94 1d c9 20 31 3a  |. dir% ...... 1:|
00001d90  f2 73 6c 69 64 65 5f 75  70 28 b3 28 73 69 7a 65  |.slide_up(.(size|
00001da0  5f 78 25 29 29 0d 0c 9e  1f c9 20 32 3a f2 73 6c  |_x%))..... 2:.sl|
00001db0  69 64 65 5f 64 6f 77 6e  28 b3 28 73 69 7a 65 5f  |ide_down(.(size_|
00001dc0  78 25 29 29 0d 0c a8 1f  c9 20 33 3a f2 73 6c 69  |x%))..... 3:.sli|
00001dd0  64 65 5f 6c 65 66 74 28  b3 28 73 69 7a 65 5f 79  |de_left(.(size_y|
00001de0  25 29 29 0d 0c b2 20 c9  20 34 3a f2 73 6c 69 64  |%))... . 4:.slid|
00001df0  65 5f 72 69 67 68 74 28  b3 28 73 69 7a 65 5f 79  |e_right(.(size_y|
00001e00  25 29 29 0d 0c bc 05 cb  0d 0c c6 05 ed 0d 0c d0  |%)).............|
00001e10  05 ed 0d 0c da 05 e1 0d  0c e4 05 3a 0d 0c ee 12  |...........:....|
00001e20  dd f2 73 6c 69 64 65 5f  75 70 28 78 25 29 0d 0c  |..slide_up(x%)..|
00001e30  f8 16 6f 66 66 25 3d 63  6f 6c 6f 75 72 25 28 78  |..off%=colour%(x|
00001e40  25 2c 31 29 0d 0d 02 16  e3 20 79 25 3d 31 20 b8  |%,1)..... y%=1 .|
00001e50  20 73 69 7a 65 5f 79 25  2d 31 0d 0d 0c 23 63 6f  | size_y%-1...#co|
00001e60  6c 6f 75 72 25 28 78 25  2c 79 25 29 3d 63 6f 6c  |lour%(x%,y%)=col|
00001e70  6f 75 72 25 28 78 25 2c  79 25 2b 31 29 0d 0d 16  |our%(x%,y%+1)...|
00001e80  05 ed 0d 0d 20 1c 63 6f  6c 6f 75 72 25 28 78 25  |.... .colour%(x%|
00001e90  2c 73 69 7a 65 5f 79 25  29 3d 6f 66 66 25 0d 0d  |,size_y%)=off%..|
00001ea0  2a 05 e1 0d 0d 34 05 3a  0d 0d 3e 14 dd f2 73 6c  |*....4.:..>...sl|
00001eb0  69 64 65 5f 64 6f 77 6e  28 78 25 29 0d 0d 48 1c  |ide_down(x%)..H.|
00001ec0  6f 66 66 25 3d 63 6f 6c  6f 75 72 25 28 78 25 2c  |off%=colour%(x%,|
00001ed0  73 69 7a 65 5f 79 25 29  0d 0d 52 19 e3 20 79 25  |size_y%)..R.. y%|
00001ee0  3d 73 69 7a 65 5f 79 25  20 b8 20 32 20 88 20 2d  |=size_y% . 2 . -|
00001ef0  31 0d 0d 5c 23 63 6f 6c  6f 75 72 25 28 78 25 2c  |1..\#colour%(x%,|
00001f00  79 25 29 3d 63 6f 6c 6f  75 72 25 28 78 25 2c 79  |y%)=colour%(x%,y|
00001f10  25 2d 31 29 0d 0d 66 05  ed 0d 0d 70 16 63 6f 6c  |%-1)..f....p.col|
00001f20  6f 75 72 25 28 78 25 2c  31 29 3d 6f 66 66 25 0d  |our%(x%,1)=off%.|
00001f30  0d 7a 05 e1 0d 0d 84 05  3a 0d 0d 8e 15 dd f2 73  |.z......:......s|
00001f40  6c 69 64 65 5f 72 69 67  68 74 28 79 25 29 0d 0d  |lide_right(y%)..|
00001f50  98 1c 6f 66 66 25 3d 63  6f 6c 6f 75 72 25 28 73  |..off%=colour%(s|
00001f60  69 7a 65 5f 78 25 2c 79  25 29 0d 0d a2 19 e3 20  |ize_x%,y%)..... |
00001f70  78 25 3d 73 69 7a 65 5f  78 25 20 b8 20 32 20 88  |x%=size_x% . 2 .|
00001f80  20 2d 31 0d 0d ac 23 63  6f 6c 6f 75 72 25 28 78  | -1...#colour%(x|
00001f90  25 2c 79 25 29 3d 63 6f  6c 6f 75 72 25 28 78 25  |%,y%)=colour%(x%|
00001fa0  2d 31 2c 79 25 29 0d 0d  b6 05 ed 0d 0d c0 16 63  |-1,y%).........c|
00001fb0  6f 6c 6f 75 72 25 28 31  2c 79 25 29 3d 6f 66 66  |olour%(1,y%)=off|
00001fc0  25 0d 0d ca 05 e1 0d 0d  d4 05 3a 0d 0d de 14 dd  |%.........:.....|
00001fd0  f2 73 6c 69 64 65 5f 6c  65 66 74 28 79 25 29 0d  |.slide_left(y%).|
00001fe0  0d e8 16 6f 66 66 25 3d  63 6f 6c 6f 75 72 25 28  |...off%=colour%(|
00001ff0  31 2c 79 25 29 0d 0d f2  16 e3 20 78 25 3d 31 20  |1,y%)..... x%=1 |
00002000  b8 20 73 69 7a 65 5f 78  25 2d 31 0d 0d fc 23 63  |. size_x%-1...#c|
00002010  6f 6c 6f 75 72 25 28 78  25 2c 79 25 29 3d 63 6f  |olour%(x%,y%)=co|
00002020  6c 6f 75 72 25 28 78 25  2b 31 2c 79 25 29 0d 0e  |lour%(x%+1,y%)..|
00002030  06 05 ed 0d 0e 10 1c 63  6f 6c 6f 75 72 25 28 73  |.......colour%(s|
00002040  69 7a 65 5f 78 25 2c 79  25 29 3d 6f 66 66 25 0d  |ize_x%,y%)=off%.|
00002050  0e 1a 05 e1 0d 0e 24 05  3a 0d 0e 2e 0f dd f2 64  |......$.:......d|
00002060  72 61 77 5f 6d 69 6e 69  0d 0e 38 24 c8 99 20 22  |raw_mini..8$.. "|
00002070  57 69 6d 70 5f 42 61 73  65 4f 66 53 70 72 69 74  |Wimp_BaseOfSprit|
00002080  65 73 22 20 b8 20 2c 62  61 73 65 25 0d 0e 42 3e  |es" . ,base%..B>|
00002090  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000020a0  2c 32 35 36 2b 36 30 2c  62 61 73 65 25 2c 22 6d  |,256+60,base%,"m|
000020b0  69 6e 69 62 6f 61 72 64  22 2c 30 20 b8 20 2c 72  |iniboard",0 . ,r|
000020c0  31 25 2c 72 32 25 2c 72  33 25 0d 0e 4c 1b e6 20  |1%,r2%,r3%..L.. |
000020d0  31 3a c8 93 20 c8 90 20  30 2c 30 2c 32 30 30 30  |1:.. .. 0,0,2000|
000020e0  2c 32 30 30 30 0d 0e 56  21 6d 78 3d 28 31 32 38  |,2000..V!mx=(128|
000020f0  2d 28 28 31 36 2a 73 69  7a 65 5f 78 25 29 2d 34  |-((16*size_x%)-4|
00002100  29 29 20 81 20 32 0d 0e  60 21 6d 79 3d 28 31 32  |)) . 2..`!my=(12|
00002110  38 2d 28 28 31 36 2a 73  69 7a 65 5f 79 25 29 2d  |8-((16*size_y%)-|
00002120  34 29 29 20 81 20 32 0d  0e 6a 13 e3 20 78 3d 31  |4)) . 2..j.. x=1|
00002130  20 b8 20 73 69 7a 65 5f  78 25 0d 0e 74 14 20 e3  | . size_x%..t. .|
00002140  20 79 3d 31 20 b8 20 73  69 7a 65 5f 79 25 0d 0e  | y=1 . size_y%..|
00002150  7e 1d 20 20 70 78 3d 28  78 2d 31 29 2a 31 36 3a  |~.  px=(x-1)*16:|
00002160  70 79 3d 28 79 2d 31 29  2a 31 36 0d 0e 88 09 20  |py=(y-1)*16.... |
00002170  20 e6 20 36 0d 0e 92 28  20 20 c8 93 20 c8 90 20  | . 6...(  .. .. |
00002180  70 78 2b 6d 78 2d 34 2c  31 32 38 2d 28 70 79 2b  |px+mx-4,128-(py+|
00002190  6d 79 29 2b 34 2c 31 38  2c 2d 31 38 0d 0e 9c 1b  |my)+4,18,-18....|
000021a0  20 20 e6 20 a4 70 69 63  6b 28 74 61 72 67 65 74  |  . .pick(target|
000021b0  25 28 78 2c 79 29 29 0d  0e a6 24 20 20 c8 93 20  |%(x,y))...$  .. |
000021c0  c8 90 20 70 78 2b 6d 78  2c 31 32 38 2d 28 70 79  |.. px+mx,128-(py|
000021d0  2b 6d 79 29 2c 31 30 2c  2d 31 30 0d 0e b0 06 20  |+my),10,-10.... |
000021e0  ed 0d 0e ba 05 ed 0d 0e  c4 27 c8 99 20 22 4f 53  |.........'.. "OS|
000021f0  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 36  |_SpriteOp",256+6|
00002200  30 2c 72 31 25 2c 72 32  25 2c 72 33 25 0d 0e ce  |0,r1%,r2%,r3%...|
00002210  17 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 2d 31  |..update_icon(-1|
00002220  2c 69 25 29 0d 0e d8 05  e1 0d 0e e2 05 3a 0d 0e  |,i%).........:..|
00002230  ec 10 dd a4 70 69 63 6b  28 63 6f 6c 25 29 0d 0e  |....pick(col%)..|
00002240  f6 0b 63 6f 6c 32 25 3d  30 0d 0f 00 0d c8 8e 20  |..col2%=0...... |
00002250  63 6f 6c 25 20 ca 0d 0f  0a 10 c9 20 31 3a 63 6f  |col% ...... 1:co|
00002260  6c 32 25 3d 31 31 0d 0f  14 10 c9 20 32 3a 63 6f  |l2%=11..... 2:co|
00002270  6c 32 25 3d 31 34 0d 0f  1e 0f c9 20 33 3a 63 6f  |l2%=14..... 3:co|
00002280  6c 32 25 3d 39 0d 0f 28  10 c9 20 34 3a 63 6f 6c  |l2%=9..(.. 4:col|
00002290  32 25 3d 31 30 0d 0f 32  10 c9 20 35 3a 63 6f 6c  |2%=10..2.. 5:col|
000022a0  32 25 3d 31 35 0d 0f 3c  0f c9 20 36 3a 63 6f 6c  |2%=15..<.. 6:col|
000022b0  32 25 3d 38 0d 0f 46 10  c9 20 37 3a 63 6f 6c 32  |2%=8..F.. 7:col2|
000022c0  25 3d 31 33 0d 0f 50 10  c9 20 38 3a 63 6f 6c 32  |%=13..P.. 8:col2|
000022d0  25 3d 31 32 0d 0f 5a 05  cb 0d 0f 64 0a 3d 63 6f  |%=12..Z....d.=co|
000022e0  6c 32 25 0d 0f 6e 05 3a  0d 0f 78 0d dd f2 6c 61  |l2%..n.:..x...la|
000022f0  79 6f 75 74 31 0d 0f 82  09 ea 20 63 6f 6c 0d 0f  |yout1..... col..|
00002300  8c 09 63 6f 6c 3d 30 0d  0f 96 13 e3 20 79 3d 31  |..col=0..... y=1|
00002310  20 b8 20 73 69 7a 65 5f  79 25 0d 0f a0 05 f5 0d  | . size_y%......|
00002320  0f aa 18 63 6f 6c 2b 3d  31 3a e7 20 63 6f 6c 3e  |...col+=1:. col>|
00002330  38 20 63 6f 6c 3d 31 0d  0f b4 15 fd 20 63 6f 6c  |8 col=1..... col|
00002340  5f 73 65 6c 25 28 63 6f  6c 29 3d b9 0d 0f be 13  |_sel%(col)=.....|
00002350  e3 20 78 3d 31 20 b8 20  73 69 7a 65 5f 78 25 0d  |. x=1 . size_x%.|
00002360  0f c8 15 20 63 6f 6c 6f  75 72 25 28 78 2c 79 29  |... colour%(x,y)|
00002370  3d 63 6f 6c 0d 0f d2 05  ed 0d 0f dc 05 ed 0d 0f  |=col............|
00002380  e6 05 e1 0d 0f f0 05 3a  0d 0f fa 0d dd f2 6c 61  |.......:......la|
00002390  79 6f 75 74 32 0d 10 04  09 ea 20 63 6f 6c 0d 10  |yout2..... col..|
000023a0  0e 38 f4 49 46 20 73 69  7a 65 5f 78 25 3e 73 69  |.8.IF size_x%>si|
000023b0  7a 65 5f 79 25 20 63 6f  6c 3d 73 69 7a 65 5f 78  |ze_y% col=size_x|
000023c0  25 2b 31 20 45 4c 53 45  20 63 6f 6c 3d 73 69 7a  |%+1 ELSE col=siz|
000023d0  65 5f 79 25 2b 31 0d 10  18 09 63 6f 6c 3d 30 0d  |e_y%+1....col=0.|
000023e0  10 22 0c 6f 66 66 73 65  74 3d 31 0d 10 2c 16 e3  |.".offset=1..,..|
000023f0  20 79 3d 31 20 b8 20 38  3a f4 73 69 7a 65 5f 79  | y=1 . 8:.size_y|
00002400  25 0d 10 36 05 f5 0d 10  40 18 63 6f 6c 2b 3d 31  |%..6....@.col+=1|
00002410  3a e7 20 63 6f 6c 3e 38  20 63 6f 6c 3d 31 0d 10  |:. col>8 col=1..|
00002420  4a 15 fd 20 63 6f 6c 5f  73 65 6c 25 28 63 6f 6c  |J.. col_sel%(col|
00002430  29 3d b9 0d 10 54 04 0d  10 5e 15 6f 78 3d 73 69  |)=...T...^.ox=si|
00002440  7a 65 5f 78 25 2b 31 3a  6f 79 3d 79 0d 10 68 05  |ze_x%+1:oy=y..h.|
00002450  f5 0d 10 72 09 6f 78 2d  3d 31 0d 10 7c 16 63 6f  |...r.ox-=1..|.co|
00002460  6c 6f 75 72 25 28 6f 78  2c 6f 79 29 3d 63 6f 6c  |lour%(ox,oy)=col|
00002470  0d 10 86 10 fd 20 6f 78  3c 3d 6f 66 66 73 65 74  |..... ox<=offset|
00002480  0d 10 90 04 0d 10 9a 0f  e3 20 79 32 3d 6f 79 20  |......... y2=oy |
00002490  b8 20 38 0d 10 a4 16 63  6f 6c 6f 75 72 25 28 6f  |. 8....colour%(o|
000024a0  78 2c 79 32 29 3d 63 6f  6c 0d 10 ae 05 ed 0d 10  |x,y2)=col.......|
000024b0  b8 04 0d 10 c2 22 6f 66  66 73 65 74 2b 3d 31 3a  |....."offset+=1:|
000024c0  e7 20 6f 66 66 73 65 74  3e 73 69 7a 65 5f 78 25  |. offset>size_x%|
000024d0  20 79 3d 39 0d 10 cc 04  0d 10 d6 05 ed 0d 10 e0  | y=9............|
000024e0  05 e1 0d 10 ea 05 3a 0d  10 f4 0d dd f2 6c 61 79  |......:......lay|
000024f0  6f 75 74 33 0d 10 fe 09  ea 20 63 6f 6c 0d 11 08  |out3..... col...|
00002500  38 f4 49 46 20 73 69 7a  65 5f 78 25 3e 73 69 7a  |8.IF size_x%>siz|
00002510  65 5f 79 25 20 63 6f 6c  3d 73 69 7a 65 5f 78 25  |e_y% col=size_x%|
00002520  2b 31 20 45 4c 53 45 20  63 6f 6c 3d 73 69 7a 65  |+1 ELSE col=size|
00002530  5f 79 25 2b 31 0d 11 12  09 63 6f 6c 3d 30 0d 11  |_y%+1....col=0..|
00002540  1c 12 6f 66 66 73 65 74  3d 73 69 7a 65 5f 78 25  |..offset=size_x%|
00002550  0d 11 26 16 e3 20 79 3d  31 20 b8 20 38 3a f4 73  |..&.. y=1 . 8:.s|
00002560  69 7a 65 5f 79 25 0d 11  30 05 f5 0d 11 3a 18 63  |ize_y%..0....:.c|
00002570  6f 6c 2b 3d 31 3a e7 20  63 6f 6c 3e 38 20 63 6f  |ol+=1:. col>8 co|
00002580  6c 3d 31 0d 11 44 15 fd  20 63 6f 6c 5f 73 65 6c  |l=1..D.. col_sel|
00002590  25 28 63 6f 6c 29 3d b9  0d 11 4e 04 0d 11 58 0d  |%(col)=...N...X.|
000025a0  6f 78 3d 30 3a 6f 79 3d  79 0d 11 62 05 f5 0d 11  |ox=0:oy=y..b....|
000025b0  6c 09 6f 78 2b 3d 31 0d  11 76 16 63 6f 6c 6f 75  |l.ox+=1..v.colou|
000025c0  72 25 28 6f 78 2c 6f 79  29 3d 63 6f 6c 0d 11 80  |r%(ox,oy)=col...|
000025d0  10 fd 20 6f 78 3e 3d 6f  66 66 73 65 74 0d 11 8a  |.. ox>=offset...|
000025e0  04 0d 11 94 0f e3 20 79  32 3d 6f 79 20 b8 20 38  |...... y2=oy . 8|
000025f0  0d 11 9e 16 63 6f 6c 6f  75 72 25 28 6f 78 2c 79  |....colour%(ox,y|
00002600  32 29 3d 63 6f 6c 0d 11  a8 05 ed 0d 11 b2 04 0d  |2)=col..........|
00002610  11 bc 1c 6f 66 66 73 65  74 2d 3d 31 3a e7 20 6f  |...offset-=1:. o|
00002620  66 66 73 65 74 3c 31 20  79 3d 39 0d 11 c6 04 0d  |ffset<1 y=9.....|
00002630  11 d0 05 ed 0d 11 da 05  e1 0d 11 e4 05 3a 0d 11  |.............:..|
00002640  ee 0d dd f2 6c 61 79 6f  75 74 34 0d 11 f8 09 ea  |....layout4.....|
00002650  20 63 6f 6c 0d 12 02 09  63 6f 6c 3d 30 0d 12 0c  | col....col=0...|
00002660  12 6f 66 66 73 65 74 3d  73 69 7a 65 5f 78 25 0d  |.offset=size_x%.|
00002670  12 16 18 e3 20 79 3d 73  69 7a 65 5f 79 25 20 b8  |.... y=size_y% .|
00002680  20 31 20 88 20 2d 31 0d  12 20 05 f5 0d 12 2a 18  | 1 . -1.. ....*.|
00002690  63 6f 6c 2b 3d 31 3a e7  20 63 6f 6c 3e 38 20 63  |col+=1:. col>8 c|
000026a0  6f 6c 3d 31 0d 12 34 15  fd 20 63 6f 6c 5f 73 65  |ol=1..4.. col_se|
000026b0  6c 25 28 63 6f 6c 29 3d  b9 0d 12 3e 04 0d 12 48  |l%(col)=...>...H|
000026c0  0d 6f 78 3d 30 3a 6f 79  3d 79 0d 12 52 05 f5 0d  |.ox=0:oy=y..R...|
000026d0  12 5c 09 6f 78 2b 3d 31  0d 12 66 16 63 6f 6c 6f  |.\.ox+=1..f.colo|
000026e0  75 72 25 28 6f 78 2c 6f  79 29 3d 63 6f 6c 0d 12  |ur%(ox,oy)=col..|
000026f0  70 10 fd 20 6f 78 3e 3d  6f 66 66 73 65 74 0d 12  |p.. ox>=offset..|
00002700  7a 04 0d 12 84 14 e3 20  79 32 3d 6f 79 20 b8 20  |z...... y2=oy . |
00002710  31 20 88 20 2d 31 0d 12  8e 16 63 6f 6c 6f 75 72  |1 . -1....colour|
00002720  25 28 6f 78 2c 79 32 29  3d 63 6f 6c 0d 12 98 05  |%(ox,y2)=col....|
00002730  ed 0d 12 a2 04 0d 12 ac  1c 6f 66 66 73 65 74 2d  |.........offset-|
00002740  3d 31 3a e7 20 6f 66 66  73 65 74 3c 31 20 79 3d  |=1:. offset<1 y=|
00002750  30 0d 12 b6 04 0d 12 c0  05 ed 0d 12 ca 05 e1 0d  |0...............|
00002760  12 d4 05 3a 0d 12 de 0d  dd f2 6c 61 79 6f 75 74  |...:......layout|
00002770  35 0d 12 e8 09 ea 20 63  6f 6c 0d 12 f2 09 63 6f  |5..... col....co|
00002780  6c 3d 30 0d 12 fc 0c 6f  66 66 73 65 74 3d 31 0d  |l=0....offset=1.|
00002790  13 06 18 e3 20 79 3d 73  69 7a 65 5f 79 25 20 b8  |.... y=size_y% .|
000027a0  20 31 20 88 20 2d 31 0d  13 10 05 f5 0d 13 1a 18  | 1 . -1.........|
000027b0  63 6f 6c 2b 3d 31 3a e7  20 63 6f 6c 3e 38 20 63  |col+=1:. col>8 c|
000027c0  6f 6c 3d 31 0d 13 24 15  fd 20 63 6f 6c 5f 73 65  |ol=1..$.. col_se|
000027d0  6c 25 28 63 6f 6c 29 3d  b9 0d 13 2e 04 0d 13 38  |l%(col)=.......8|
000027e0  15 6f 78 3d 73 69 7a 65  5f 78 25 2b 31 3a 6f 79  |.ox=size_x%+1:oy|
000027f0  3d 79 0d 13 42 05 f5 0d  13 4c 09 6f 78 2d 3d 31  |=y..B....L.ox-=1|
00002800  0d 13 56 16 63 6f 6c 6f  75 72 25 28 6f 78 2c 6f  |..V.colour%(ox,o|
00002810  79 29 3d 63 6f 6c 0d 13  60 10 fd 20 6f 78 3c 3d  |y)=col..`.. ox<=|
00002820  6f 66 66 73 65 74 0d 13  6a 04 0d 13 74 14 e3 20  |offset..j...t.. |
00002830  79 32 3d 6f 79 20 b8 20  31 20 88 20 2d 31 0d 13  |y2=oy . 1 . -1..|
00002840  7e 16 63 6f 6c 6f 75 72  25 28 6f 78 2c 79 32 29  |~.colour%(ox,y2)|
00002850  3d 63 6f 6c 0d 13 88 05  ed 0d 13 92 04 0d 13 9c  |=col............|
00002860  22 6f 66 66 73 65 74 2b  3d 31 3a e7 20 6f 66 66  |"offset+=1:. off|
00002870  73 65 74 3e 73 69 7a 65  5f 78 25 20 79 3d 30 0d  |set>size_x% y=0.|
00002880  13 a6 04 0d 13 b0 05 ed  0d 13 ba 05 e1 0d 13 c4  |................|
00002890  05 3a 0d 13 ce 0d dd f2  6c 61 79 6f 75 74 36 0d  |.:......layout6.|
000028a0  13 d8 09 ea 20 63 6f 6c  0d 13 e2 09 63 6f 6c 3d  |.... col....col=|
000028b0  30 0d 13 ec 13 e3 20 78  3d 31 20 b8 20 73 69 7a  |0..... x=1 . siz|
000028c0  65 5f 78 25 0d 13 f6 05  f5 0d 14 00 18 63 6f 6c  |e_x%.........col|
000028d0  2b 3d 31 3a e7 20 63 6f  6c 3e 38 20 63 6f 6c 3d  |+=1:. col>8 col=|
000028e0  31 0d 14 0a 15 fd 20 63  6f 6c 5f 73 65 6c 25 28  |1..... col_sel%(|
000028f0  63 6f 6c 29 3d b9 0d 14  14 13 e3 20 79 3d 31 20  |col)=...... y=1 |
00002900  b8 20 73 69 7a 65 5f 79  25 0d 14 1e 15 20 63 6f  |. size_y%.... co|
00002910  6c 6f 75 72 25 28 78 2c  79 29 3d 63 6f 6c 0d 14  |lour%(x,y)=col..|
00002920  28 05 ed 0d 14 32 05 ed  0d 14 3c 05 e1 0d 14 46  |(....2....<....F|
00002930  05 3a 0d 14 50 12 dd f2  64 65 66 69 6e 65 5f 61  |.:..P...define_a|
00002940  72 72 61 79 0d 14 5a 11  20 c8 8e 20 6c 61 79 6f  |rray..Z. .. layo|
00002950  75 74 25 20 ca 0d 14 64  12 20 20 c9 20 31 3a f2  |ut% ...d.  . 1:.|
00002960  6c 61 79 6f 75 74 31 0d  14 6e 12 20 20 c9 20 32  |layout1..n.  . 2|
00002970  3a f2 6c 61 79 6f 75 74  32 0d 14 78 12 20 20 c9  |:.layout2..x.  .|
00002980  20 33 3a f2 6c 61 79 6f  75 74 33 0d 14 82 12 20  | 3:.layout3.... |
00002990  20 c9 20 34 3a f2 6c 61  79 6f 75 74 34 0d 14 8c  | . 4:.layout4...|
000029a0  12 20 20 c9 20 35 3a f2  6c 61 79 6f 75 74 35 0d  |.  . 5:.layout5.|
000029b0  14 96 12 20 20 c9 20 36  3a f2 6c 61 79 6f 75 74  |...  . 6:.layout|
000029c0  36 0d 14 a0 06 20 cb 0d  14 aa 04 0d 14 b4 13 e3  |6.... ..........|
000029d0  20 79 3d 31 20 b8 20 73  69 7a 65 5f 79 25 0d 14  | y=1 . size_y%..|
000029e0  be 13 e3 20 78 3d 31 20  b8 20 73 69 7a 65 5f 78  |... x=1 . size_x|
000029f0  25 0d 14 c8 1e 20 74 61  72 67 65 74 25 28 78 2c  |%.... target%(x,|
00002a00  79 29 3d 63 6f 6c 6f 75  72 25 28 78 2c 79 29 0d  |y)=colour%(x,y).|
00002a10  14 d2 05 ed 0d 14 dc 05  ed 0d 14 e6 05 e1 0d 14  |................|
00002a20  f0 05 3a 0d 14 fa 17 dd  f2 73 65 74 75 70 5f 67  |..:......setup_g|
00002a30  61 6d 65 5f 77 69 6e 64  6f 77 0d 15 04 30 f4 20  |ame_window...0. |
00002a40  20 20 20 20 20 20 20 20  20 20 31 30 39 38 37 36  |          109876|
00002a50  35 34 33 32 31 30 39 38  37 36 35 34 33 32 31 30  |5432109876543210|
00002a60  39 38 37 36 35 34 33 32  31 30 0d 15 0e 32 73 70  |9876543210...2sp|
00002a70  72 69 74 65 5f 69 63 6f  6e 25 3d 25 30 30 30 31  |rite_icon%=%0001|
00002a80  30 31 31 31 30 30 30 30  30 30 30 30 30 30 30 30  |0111000000000000|
00002a90  30 30 30 30 30 30 30 31  31 30 31 30 0d 15 18 32  |000000011010...2|
00002aa0  20 61 72 72 6f 77 5f 69  63 6f 6e 25 3d 25 30 30  | arrow_icon%=%00|
00002ab0  30 31 30 31 31 31 30 30  30 30 30 30 30 30 30 30  |0101110000000000|
00002ac0  31 30 30 30 30 30 30 30  30 31 31 30 31 30 0d 15  |10000000011010..|
00002ad0  22 04 0d 15 2c 13 e3 20  79 3d 31 20 b8 20 73 69  |"...,.. y=1 . si|
00002ae0  7a 65 5f 79 25 0d 15 36  13 e3 20 78 3d 31 20 b8  |ze_y%..6.. x=1 .|
00002af0  20 73 69 7a 65 5f 78 25  0d 15 40 10 20 20 74 78  | size_x%..@.  tx|
00002b00  25 3d 28 78 2a 37 32 29  0d 15 4a 14 20 20 74 79  |%=(x*72)..J.  ty|
00002b10  25 3d 2d 28 79 2a 37 32  29 2d 37 32 0d 15 54 60  |%=-(y*72)-72..T`|
00002b20  20 20 69 63 6f 6e 25 28  78 2c 79 29 3d a4 63 72  |  icon%(x,y)=.cr|
00002b30  65 61 74 65 5f 69 63 6f  6e 28 67 61 6d 65 25 2c  |eate_icon(game%,|
00002b40  22 74 69 6c 65 63 6f 6c  5f 22 2b c3 63 6f 6c 6f  |"tilecol_"+.colo|
00002b50  75 72 25 28 78 2c 79 29  2c 74 78 25 2c 74 79 25  |ur%(x,y),tx%,ty%|
00002b60  2c 74 78 25 2b 37 32 2c  74 79 25 2b 37 32 2c 73  |,tx%+72,ty%+72,s|
00002b70  70 72 69 74 65 5f 69 63  6f 6e 25 29 0d 15 5e 1c  |prite_icon%)..^.|
00002b80  20 20 6f 6c 64 25 28 78  2c 79 29 3d 63 6f 6c 6f  |  old%(x,y)=colo|
00002b90  75 72 25 28 78 2c 79 29  0d 15 68 05 ed 0d 15 72  |ur%(x,y)..h....r|
00002ba0  05 ed 0d 15 7c 04 0d 15  86 13 e3 20 78 3d 31 20  |....|...... x=1 |
00002bb0  b8 20 73 69 7a 65 5f 78  25 0d 15 90 10 20 20 74  |. size_x%....  t|
00002bc0  78 25 3d 28 78 2a 37 32  29 0d 15 9a 0d 20 20 74  |x%=(x*72)....  t|
00002bd0  79 25 3d 2d 37 32 0d 15  a4 4f 20 20 75 70 25 28  |y%=-72...O  up%(|
00002be0  78 29 3d a4 63 72 65 61  74 65 5f 69 63 6f 6e 28  |x)=.create_icon(|
00002bf0  67 61 6d 65 25 2c 20 20  22 73 63 72 6f 6c 6c 5f  |game%,  "scroll_|
00002c00  75 22 2c 74 78 25 2c 74  79 25 2c 74 78 25 2b 37  |u",tx%,ty%,tx%+7|
00002c10  32 2c 74 79 25 2b 37 32  2c 61 72 72 6f 77 5f 69  |2,ty%+72,arrow_i|
00002c20  63 6f 6e 25 29 0d 15 ae  19 20 20 74 79 25 3d 28  |con%)....  ty%=(|
00002c30  73 69 7a 65 5f 79 25 2b  32 29 2a 2d 37 32 0d 15  |size_y%+2)*-72..|
00002c40  b8 4f 20 20 64 6f 77 6e  25 28 78 29 3d a4 63 72  |.O  down%(x)=.cr|
00002c50  65 61 74 65 5f 69 63 6f  6e 28 67 61 6d 65 25 2c  |eate_icon(game%,|
00002c60  22 73 63 72 6f 6c 6c 5f  64 22 2c 74 78 25 2c 74  |"scroll_d",tx%,t|
00002c70  79 25 2c 74 78 25 2b 37  32 2c 74 79 25 2b 37 32  |y%,tx%+72,ty%+72|
00002c80  2c 61 72 72 6f 77 5f 69  63 6f 6e 25 29 0d 15 c2  |,arrow_icon%)...|
00002c90  05 ed 0d 15 cc 04 0d 15  d6 13 e3 20 79 3d 31 20  |........... y=1 |
00002ca0  b8 20 73 69 7a 65 5f 79  25 0d 15 e0 0b 20 20 74  |. size_y%....  t|
00002cb0  78 25 3d 30 0d 15 ea 14  20 20 74 79 25 3d 2d 28  |x%=0....  ty%=-(|
00002cc0  79 2a 37 32 29 2d 37 32  0d 15 f4 50 20 20 6c 65  |y*72)-72...P  le|
00002cd0  66 74 25 28 79 29 3d a4  63 72 65 61 74 65 5f 69  |ft%(y)=.create_i|
00002ce0  63 6f 6e 28 67 61 6d 65  25 2c 20 22 73 63 72 6f  |con(game%, "scro|
00002cf0  6c 6c 5f 6c 22 2c 74 78  25 2c 74 79 25 2c 74 78  |ll_l",tx%,ty%,tx|
00002d00  25 2b 37 32 2c 74 79 25  2b 37 32 2c 61 72 72 6f  |%+72,ty%+72,arro|
00002d10  77 5f 69 63 6f 6e 25 29  0d 15 fe 18 20 20 74 78  |w_icon%)....  tx|
00002d20  25 3d 28 73 69 7a 65 5f  78 25 2b 31 29 2a 37 32  |%=(size_x%+1)*72|
00002d30  0d 16 08 50 20 20 72 69  67 68 74 25 28 79 29 3d  |...P  right%(y)=|
00002d40  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 67 61 6d  |.create_icon(gam|
00002d50  65 25 2c 22 73 63 72 6f  6c 6c 5f 72 22 2c 74 78  |e%,"scroll_r",tx|
00002d60  25 2c 74 79 25 2c 74 78  25 2b 37 32 2c 74 79 25  |%,ty%,tx%+72,ty%|
00002d70  2b 37 32 2c 61 72 72 6f  77 5f 69 63 6f 6e 25 29  |+72,arrow_icon%)|
00002d80  0d 16 12 05 ed 0d 16 1c  04 0d 16 26 0a 62 25 21  |...........&.b%!|
00002d90  30 3d 30 0d 16 30 18 62  25 21 34 3d 28 73 69 7a  |0=0..0.b%!4=(siz|
00002da0  65 5f 79 25 2b 32 29 2a  2d 37 32 0d 16 3a 17 62  |e_y%+2)*-72..:.b|
00002db0  25 21 38 3d 28 73 69 7a  65 5f 78 25 2b 32 29 2a  |%!8=(size_x%+2)*|
00002dc0  37 32 0d 16 44 0b 62 25  21 31 32 3d 30 0d 16 4e  |72..D.b%!12=0..N|
00002dd0  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 45 78 74  | .. "Wimp_SetExt|
00002de0  65 6e 74 22 2c 67 61 6d  65 25 2c 62 25 0d 16 58  |ent",game%,b%..X|
00002df0  04 0d 16 62 05 e1 0d 16  6c 05 3a 0d 16 76 38 dd  |...b....l.:..v8.|
00002e00  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 77 69 6e  |.create_icon(win|
00002e10  25 2c 74 65 78 74 24 2c  78 31 25 2c 79 31 25 2c  |%,text$,x1%,y1%,|
00002e20  78 32 25 2c 79 32 25 2c  69 63 6f 6e 5f 64 61 74  |x2%,y2%,icon_dat|
00002e30  61 25 29 0d 16 80 0c 21  62 25 3d 77 69 6e 25 0d  |a%)....!b%=win%.|
00002e40  16 8a 15 62 25 21 34 3d  78 31 25 3a 62 25 21 38  |...b%!4=x1%:b%!8|
00002e50  3d 79 31 25 0d 16 94 17  62 25 21 31 32 3d 78 32  |=y1%....b%!12=x2|
00002e60  25 3a 62 25 21 31 36 3d  79 32 25 0d 16 9e 14 62  |%:b%!16=y2%....b|
00002e70  25 21 32 30 3d 69 63 6f  6e 5f 64 61 74 61 25 0d  |%!20=icon_data%.|
00002e80  16 a8 12 24 28 62 25 2b  32 34 29 3d 74 65 78 74  |...$(b%+24)=text|
00002e90  24 0d 16 b2 24 c8 99 20  22 57 69 6d 70 5f 43 72  |$...$.. "Wimp_Cr|
00002ea0  65 61 74 65 49 63 6f 6e  22 2c 2c 62 25 20 b8 20  |eateIcon",,b% . |
00002eb0  69 63 6f 6e 25 0d 16 bc  0a 3d 69 63 6f 6e 25 0d  |icon%....=icon%.|
00002ec0  16 c6 05 3a 0d 16 d0 2b  dd f2 63 68 61 6e 67 65  |...:...+..change|
00002ed0  5f 6e 75 6d 28 77 69 6e  25 2c 69 63 6f 6e 25 2c  |_num(win%,icon%,|
00002ee0  64 69 72 25 2c 6d 69 6e  25 2c 6d 61 78 25 29 0d  |dir%,min%,max%).|
00002ef0  16 da 28 6f 6c 64 5f 6e  75 6d 25 3d bb 28 a4 69  |..(old_num%=.(.i|
00002f00  63 6f 6e 5f 73 74 72 69  6e 67 28 77 69 6e 25 2c  |con_string(win%,|
00002f10  69 63 6f 6e 25 29 29 0d  16 e4 1a 6e 65 77 5f 6e  |icon%))....new_n|
00002f20  75 6d 25 3d 6f 6c 64 5f  6e 75 6d 25 2b 64 69 72  |um%=old_num%+dir|
00002f30  25 0d 16 ee 23 e7 20 6e  65 77 5f 6e 75 6d 25 3c  |%...#. new_num%<|
00002f40  6d 69 6e 25 20 8c 20 6e  65 77 5f 6e 75 6d 25 3d  |min% . new_num%=|
00002f50  6d 69 6e 25 0d 16 f8 23  e7 20 6e 65 77 5f 6e 75  |min%...#. new_nu|
00002f60  6d 25 3e 6d 61 78 25 20  8c 20 6e 65 77 5f 6e 75  |m%>max% . new_nu|
00002f70  6d 25 3d 6d 61 78 25 0d  17 02 5a e7 20 6e 65 77  |m%=max%...Z. new|
00002f80  5f 6e 75 6d 25 3c 3e 6f  6c 64 5f 6e 75 6d 25 20  |_num%<>old_num% |
00002f90  8c 20 f2 73 65 74 5f 69  63 6f 6e 5f 73 74 72 69  |. .set_icon_stri|
00002fa0  6e 67 28 77 69 6e 25 2c  69 63 6f 6e 25 2c c3 6e  |ng(win%,icon%,.n|
00002fb0  65 77 5f 6e 75 6d 25 29  3a f2 75 70 64 61 74 65  |ew_num%):.update|
00002fc0  5f 69 63 6f 6e 28 77 69  6e 25 2c 69 63 6f 6e 25  |_icon(win%,icon%|
00002fd0  29 0d 17 0c 05 e1 0d 17  16 05 3a 0d 17 20 11 dd  |).........:.. ..|
00002fe0  20 f2 63 6c 69 63 6b 6f  6e 62 61 72 0d 17 2a 38  | .clickonbar..*8|
00002ff0  e7 20 70 6c 61 79 69 6e  67 3d a3 20 f2 73 65 74  |. playing=. .set|
00003000  5f 6f 70 74 3a f2 6f 70  65 6e 5f 6f 70 74 20 8b  |_opt:.open_opt .|
00003010  20 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 67 61  | .open_window(ga|
00003020  6d 65 25 29 0d 17 34 05  e1 0d 17 3e 05 3a 0d 17  |me%)..4....>.:..|
00003030  48 1f dd 20 f2 73 28 77  68 25 2c 69 63 6f 6e 6e  |H.. .s(wh%,iconn|
00003040  75 6d 62 65 72 25 2c 74  65 78 74 24 29 0d 17 52  |umber%,text$)..R|
00003050  0e 21 74 65 6d 70 25 3d  77 68 25 0d 17 5c 17 74  |.!temp%=wh%..\.t|
00003060  65 6d 70 25 21 34 3d 69  63 6f 6e 6e 75 6d 62 65  |emp%!4=iconnumbe|
00003070  72 25 0d 17 66 21 c8 99  20 22 57 69 6d 70 5f 47  |r%..f!.. "Wimp_G|
00003080  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 74 65  |etIconState",,te|
00003090  6d 70 25 0d 17 70 20 24  74 65 6d 70 25 21 32 38  |mp%..p $temp%!28|
000030a0  3d c0 74 65 78 74 24 2c  74 65 6d 70 25 21 33 36  |=.text$,temp%!36|
000030b0  2d 31 29 0d 17 7a 0d 74  65 6d 70 25 21 38 3d 30  |-1)..z.temp%!8=0|
000030c0  0d 17 84 0e 74 65 6d 70  25 21 31 32 3d 30 0d 17  |....temp%!12=0..|
000030d0  8e 21 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |.!.. "Wimp_SetIc|
000030e0  6f 6e 53 74 61 74 65 22  2c 2c 74 65 6d 70 25 0d  |onState",,temp%.|
000030f0  17 98 05 e1 0d 17 a2 05  3a 0d 17 ac 0b dd 20 f2  |........:..... .|
00003100  69 6e 69 74 0d 17 b6 2d  de 20 62 25 20 35 30 30  |init...-. b% 500|
00003110  30 2c 77 73 25 20 35 30  30 30 2c 6d 65 6e 73 70  |0,ws% 5000,mensp|
00003120  63 25 20 31 30 30 30 2c  20 74 65 6d 70 25 20 33  |c% 1000, temp% 3|
00003130  32 0d 17 c0 13 77 73 65  6e 64 25 3d 77 73 25 2b  |2....wsend%=ws%+|
00003140  35 30 30 30 0d 17 ca 21  71 75 69 74 25 3d a3 3a  |5000...!quit%=.:|
00003150  70 6c 61 79 69 6e 67 3d  a3 3a 63 6c 69 63 6b 61  |playing=.:clicka|
00003160  62 6c 65 3d b9 0d 17 d4  13 6d 61 78 5f 78 3d 38  |ble=.....max_x=8|
00003170  3a 6d 61 78 5f 79 3d 38  0d 17 de 13 6d 69 6e 5f  |:max_y=8....min_|
00003180  78 3d 33 3a 6d 69 6e 5f  79 3d 33 0d 17 e8 43 de  |x=3:min_y=3...C.|
00003190  20 63 6f 6c 6f 75 72 25  28 6d 61 78 5f 78 2c 6d  | colour%(max_x,m|
000031a0  61 78 5f 79 29 2c 20 6f  6c 64 25 28 6d 61 78 5f  |ax_y), old%(max_|
000031b0  78 2c 6d 61 78 5f 79 29  2c 20 74 61 72 67 65 74  |x,max_y), target|
000031c0  25 28 6d 61 78 5f 78 2c  6d 61 78 5f 79 29 0d 17  |%(max_x,max_y)..|
000031d0  f2 18 de 20 69 63 6f 6e  25 28 6d 61 78 5f 78 2c  |... icon%(max_x,|
000031e0  6d 61 78 5f 79 29 0d 17  fc 21 de 20 6c 65 66 74  |max_y)...!. left|
000031f0  25 28 6d 61 78 5f 79 29  2c 20 72 69 67 68 74 25  |%(max_y), right%|
00003200  28 6d 61 78 5f 79 29 0d  18 06 1e de 20 75 70 25  |(max_y)..... up%|
00003210  28 6d 61 78 5f 78 29 2c  20 64 6f 77 6e 25 28 6d  |(max_x), down%(m|
00003220  61 78 5f 78 29 0d 18 10  11 de 20 63 6f 6c 5f 73  |ax_x)..... col_s|
00003230  65 6c 25 28 38 29 0d 18  1a 29 76 65 72 73 69 6f  |el%(8)...)versio|
00003240  6e 24 3d a4 6d 73 67 74  72 61 6e 73 5f 6c 6f 6f  |n$=.msgtrans_loo|
00003250  6b 75 70 30 28 22 56 45  52 53 49 4f 4e 22 29 0d  |kup0("VERSION").|
00003260  18 24 13 73 61 76 65 5f  76 65 72 73 69 6f 6e 25  |.$.save_version%|
00003270  3d 31 0d 18 2e 13 f2 6c  6f 61 64 5f 74 65 6d 70  |=1.....load_temp|
00003280  6c 61 74 65 73 0d 18 38  0e f2 6d 61 69 6e 5f 6d  |lates..8..main_m|
00003290  65 6e 75 0d 18 42 0e f2  67 61 6d 65 5f 6d 65 6e  |enu..B..game_men|
000032a0  75 0d 18 4c 1e f2 61 74  74 61 63 68 28 6d 61 69  |u..L..attach(mai|
000032b0  6e 6d 65 6e 75 25 2c 30  2c 69 6e 66 6f 25 29 0d  |nmenu%,0,info%).|
000032c0  18 56 20 f2 61 74 74 61  63 68 28 67 61 6d 65 6d  |.V .attach(gamem|
000032d0  65 6e 75 25 2c 30 2c 73  61 76 65 61 73 25 29 0d  |enu%,0,saveas%).|
000032e0  18 60 26 f2 73 65 74 5f  69 63 6f 6e 5f 73 74 72  |.`&.set_icon_str|
000032f0  69 6e 67 28 69 6e 66 6f  25 2c 36 2c 76 65 72 73  |ing(info%,6,vers|
00003300  69 6f 6e 24 29 0d 18 6a  05 e1 0d 18 74 05 3a 0d  |ion$)..j....t.:.|
00003310  18 7e 15 dd 20 f2 6c 6f  61 64 5f 74 65 6d 70 6c  |.~.. .load_templ|
00003320  61 74 65 73 0d 18 88 3e  c8 99 20 22 57 69 6d 70  |ates...>.. "Wimp|
00003330  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
00003340  22 3c 53 70 6f 74 4f 6e  24 44 69 72 3e 2e 52 65  |"<SpotOn$Dir>.Re|
00003350  73 6f 75 72 63 65 73 2e  54 65 6d 70 6c 61 74 65  |sources.Template|
00003360  73 22 0d 18 92 3d c8 99  20 22 57 69 6d 70 5f 4c  |s"...=.. "Wimp_L|
00003370  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 25  |oadTemplate",,b%|
00003380  2c 77 73 25 2c 77 73 65  6e 64 25 2c 2d 31 2c 22  |,ws%,wsend%,-1,"|
00003390  69 6e 66 6f 22 2c 30 20  b8 20 2c 2c 77 73 25 0d  |info",0 . ,,ws%.|
000033a0  18 9c 26 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..&.. "Wimp_Crea|
000033b0  74 65 57 69 6e 64 6f 77  22 2c 2c 62 25 20 b8 20  |teWindow",,b% . |
000033c0  69 6e 66 6f 25 0d 18 a6  3c c8 99 20 22 57 69 6d  |info%...<.. "Wim|
000033d0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000033e0  2c 62 25 2c 77 73 25 2c  77 73 65 6e 64 25 2c 2d  |,b%,ws%,wsend%,-|
000033f0  31 2c 22 6f 70 74 22 2c  30 20 b8 20 2c 2c 77 73  |1,"opt",0 . ,,ws|
00003400  25 0d 18 b0 25 c8 99 20  22 57 69 6d 70 5f 43 72  |%...%.. "Wimp_Cr|
00003410  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 25 20  |eateWindow",,b% |
00003420  b8 20 6f 70 74 25 0d 18  ba 41 c8 99 20 22 57 69  |. opt%...A.. "Wi|
00003430  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00003440  2c 2c 62 25 2c 77 73 25  2c 77 73 65 6e 64 25 2c  |,,b%,ws%,wsend%,|
00003450  2d 31 2c 22 6f 70 74 5f  70 61 6e 65 22 2c 30 20  |-1,"opt_pane",0 |
00003460  b8 20 2c 2c 77 73 25 0d  18 c4 2a c8 99 20 22 57  |. ,,ws%...*.. "W|
00003470  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00003480  22 2c 2c 62 25 20 b8 20  6f 70 74 5f 70 61 6e 65  |",,b% . opt_pane|
00003490  25 0d 18 ce 3d c8 99 20  22 57 69 6d 70 5f 4c 6f  |%...=.. "Wimp_Lo|
000034a0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 25 2c  |adTemplate",,b%,|
000034b0  77 73 25 2c 77 73 65 6e  64 25 2c 2d 31 2c 22 67  |ws%,wsend%,-1,"g|
000034c0  61 6d 65 22 2c 30 20 b8  20 2c 2c 77 73 25 0d 18  |ame",0 . ,,ws%..|
000034d0  d8 26 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.&.. "Wimp_Creat|
000034e0  65 57 69 6e 64 6f 77 22  2c 2c 62 25 20 b8 20 67  |eWindow",,b% . g|
000034f0  61 6d 65 25 0d 18 e2 42  c8 99 20 22 57 69 6d 70  |ame%...B.. "Wimp|
00003500  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00003510  62 25 2c 77 73 25 2c 77  73 65 6e 64 25 2c 2d 31  |b%,ws%,wsend%,-1|
00003520  2c 22 67 61 6d 65 5f 70  61 6e 65 22 2c 30 20 b8  |,"game_pane",0 .|
00003530  20 2c 2c 77 73 25 0d 18  ec 2b c8 99 20 22 57 69  | ,,ws%...+.. "Wi|
00003540  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00003550  2c 2c 62 25 20 b8 20 67  61 6d 65 5f 70 61 6e 65  |,,b% . game_pane|
00003560  25 0d 18 f6 3f c8 99 20  22 57 69 6d 70 5f 4c 6f  |%...?.. "Wimp_Lo|
00003570  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 25 2c  |adTemplate",,b%,|
00003580  77 73 25 2c 77 73 65 6e  64 25 2c 2d 31 2c 22 73  |ws%,wsend%,-1,"s|
00003590  61 76 65 61 73 22 2c 30  20 b8 20 2c 2c 77 73 25  |aveas",0 . ,,ws%|
000035a0  0d 19 00 28 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...(.. "Wimp_Cre|
000035b0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 25 20 b8  |ateWindow",,b% .|
000035c0  20 73 61 76 65 61 73 25  0d 19 0a 1b c8 99 20 22  | saveas%...... "|
000035d0  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
000035e0  74 65 22 0d 19 14 05 e1  0d 19 1e 05 3a 0d 19 28  |te".........:..(|
000035f0  1f dd 20 f2 61 74 74 61  63 68 28 6d 65 6e 75 25  |.. .attach(menu%|
00003600  2c 69 74 65 6d 25 2c 73  75 62 25 29 0d 19 32 1f  |,item%,sub%)..2.|
00003610  21 28 6d 65 6e 75 25 2b  32 38 2b 69 74 65 6d 25  |!(menu%+28+item%|
00003620  2a 32 34 2b 34 29 3d 73  75 62 25 0d 19 3c 05 e1  |*24+4)=sub%..<..|
00003630  0d 19 46 05 3a 0d 19 50  10 dd 20 f2 6d 61 69 6e  |..F.:..P.. .main|
00003640  5f 6d 65 6e 75 0d 19 5a  08 f7 20 2b 31 0d 19 64  |_menu..Z.. +1..d|
00003650  1f dc 20 4d 41 49 4e 30  2c 4d 41 49 4e 31 2c 4d  |.. MAIN0,MAIN1,M|
00003660  41 49 4e 32 2c 4d 41 49  4e 33 2c 2a 0d 19 6e 18  |AIN2,MAIN3,*..n.|
00003670  6d 61 69 6e 6d 65 6e 75  25 3d a4 6d 61 6b 65 5f  |mainmenu%=.make_|
00003680  6d 65 6e 75 0d 19 78 05  e1 0d 19 82 05 3a 0d 19  |menu..x......:..|
00003690  8c 10 dd 20 f2 67 61 6d  65 5f 6d 65 6e 75 0d 19  |... .game_menu..|
000036a0  96 08 f7 20 2b 31 0d 19  a0 19 dc 20 47 41 4d 45  |... +1..... GAME|
000036b0  30 2c 47 41 4d 45 31 2c  47 41 4d 45 32 2c 2a 0d  |0,GAME1,GAME2,*.|
000036c0  19 aa 18 67 61 6d 65 6d  65 6e 75 25 3d a4 6d 61  |...gamemenu%=.ma|
000036d0  6b 65 5f 6d 65 6e 75 0d  19 b4 05 e1 0d 19 be 05  |ke_menu.........|
000036e0  3a 0d 19 c8 10 dd 20 a4  6d 61 6b 65 5f 6d 65 6e  |:..... .make_men|
000036f0  75 0d 19 d2 12 73 74 61  72 74 25 3d 6d 65 6e 73  |u....start%=mens|
00003700  70 63 25 0d 19 dc 0c f3  20 74 69 74 6c 65 24 0d  |pc%..... title$.|
00003710  19 e6 24 74 69 74 6c 65  24 3d a4 6d 73 67 74 72  |..$title$=.msgtr|
00003720  61 6e 73 5f 6c 6f 6f 6b  75 70 30 28 74 69 74 6c  |ans_lookup0(titl|
00003730  65 24 29 0d 19 f0 14 24  28 73 74 61 72 74 25 29  |e$)....$(start%)|
00003740  3d 74 69 74 6c 65 24 0d  19 fa 0f 73 74 61 72 74  |=title$....start|
00003750  25 3f 31 32 3d 37 0d 1a  04 0f 73 74 61 72 74 25  |%?12=7....start%|
00003760  3f 31 33 3d 32 0d 1a 0e  0f 73 74 61 72 74 25 3f  |?13=2....start%?|
00003770  31 34 3d 37 0d 1a 18 0f  73 74 61 72 74 25 3f 31  |14=7....start%?1|
00003780  35 3d 30 0d 1a 22 10 73  74 61 72 74 25 21 32 30  |5=0..".start%!20|
00003790  3d 34 34 0d 1a 2c 0f 73  74 61 72 74 25 21 32 34  |=44..,.start%!24|
000037a0  3d 30 0d 1a 36 13 f4 20  73 74 61 72 74 25 21 31  |=0..6.. start%!1|
000037b0  36 3d 31 36 30 0d 1a 40  16 77 69 64 74 68 25 3d  |6=160..@.width%=|
000037c0  a9 28 74 69 74 6c 65 24  29 2d 33 0d 1a 4a 0f 6d  |.(title$)-3..J.m|
000037d0  65 6e 73 70 63 25 2b 3d  32 38 0d 1a 54 05 f5 0d  |enspc%+=28..T...|
000037e0  1a 5e 0b f3 20 69 74 65  6d 24 0d 1a 68 12 e7 20  |.^.. item$..h.. |
000037f0  69 74 65 6d 24 3c 3e 22  2a 22 20 8c 0d 1a 72 22  |item$<>"*" ...r"|
00003800  69 74 65 6d 24 3d a4 6d  73 67 74 72 61 6e 73 5f  |item$=.msgtrans_|
00003810  6c 6f 6f 6b 75 70 30 28  69 74 65 6d 24 29 0d 1a  |lookup0(item$)..|
00003820  7c 0e 21 6d 65 6e 73 70  63 25 3d 30 0d 1a 86 10  ||.!menspc%=0....|
00003830  77 72 69 74 65 61 62 6c  65 25 3d a3 0d 1a 90 13  |writeable%=.....|
00003840  75 6c 25 3d a7 69 74 65  6d 24 2c 22 5f 22 29 0d  |ul%=.item$,"_").|
00003850  1a 9a 0b e7 20 75 6c 25  20 8c 0d 1a a4 1e 74 61  |.... ul% .....ta|
00003860  69 6c 24 3d c2 69 74 65  6d 24 2c a9 28 69 74 65  |il$=.item$,.(ite|
00003870  6d 24 29 2d 75 6c 25 29  0d 1a ae 2e e7 20 a7 74  |m$)-ul%)..... .t|
00003880  61 69 6c 24 2c 22 54 22  29 20 21 6d 65 6e 73 70  |ail$,"T") !mensp|
00003890  63 25 3d 21 6d 65 6e 73  70 63 25 20 84 20 31 3a  |c%=!menspc% . 1:|
000038a0  f4 20 74 69 63 6b 0d 1a  b8 35 e7 20 a7 74 61 69  |. tick...5. .tai|
000038b0  6c 24 2c 22 44 22 29 20  21 6d 65 6e 73 70 63 25  |l$,"D") !menspc%|
000038c0  3d 21 6d 65 6e 73 70 63  25 20 84 20 32 3a f4 20  |=!menspc% . 2:. |
000038d0  64 6f 74 74 65 64 20 6c  69 6e 65 0d 1a c2 58 e7  |dotted line...X.|
000038e0  20 a7 74 61 69 6c 24 2c  22 57 22 29 20 21 6d 65  | .tail$,"W") !me|
000038f0  6e 73 70 63 25 3d 21 6d  65 6e 73 70 63 25 20 84  |nspc%=!menspc% .|
00003900  20 34 3a 77 72 69 74 65  61 62 6c 65 25 3d b9 3a  | 4:writeable%=.:|
00003910  f3 20 62 75 66 66 65 72  25 3a f3 20 62 75 66 6c  |. buffer%:. bufl|
00003920  65 6e 25 3a f4 20 77 72  69 74 61 62 6c 65 20 69  |en%:. writable i|
00003930  63 6f 6e 0d 1a cc 3a e7  20 a7 74 61 69 6c 24 2c  |con...:. .tail$,|
00003940  22 4d 22 29 20 21 6d 65  6e 73 70 63 25 3d 21 6d  |"M") !menspc%=!m|
00003950  65 6e 73 70 63 25 20 84  20 38 3a f4 20 67 65 6e  |enspc% . 8:. gen|
00003960  65 72 61 74 65 20 6d 65  73 73 61 67 65 0d 1a d6  |erate message...|
00003970  17 69 74 65 6d 24 3d c0  69 74 65 6d 24 2c 75 6c  |.item$=.item$,ul|
00003980  25 2d 31 29 0d 1a e0 05  cd 0d 1a ea 23 e7 20 a9  |%-1)........#. .|
00003990  20 69 74 65 6d 24 3e 77  69 64 74 68 25 20 77 69  | item$>width% wi|
000039a0  64 74 68 25 3d a9 20 69  74 65 6d 24 0d 1a f4 10  |dth%=. item$....|
000039b0  6d 65 6e 73 70 63 25 21  34 3d 2d 31 0d 1a fe 12  |menspc%!4=-1....|
000039c0  e7 20 77 72 69 74 65 61  62 6c 65 25 20 8c 0d 1b  |. writeable% ...|
000039d0  08 5a 6d 65 6e 73 70 63  25 21 38 3d 26 30 37 30  |.Zmenspc%!8=&070|
000039e0  30 46 31 32 31 3a 6d 65  6e 73 70 63 25 21 31 32  |0F121:menspc%!12|
000039f0  3d 62 75 66 66 65 72 25  3a 6d 65 6e 73 70 63 25  |=buffer%:menspc%|
00003a00  21 31 36 3d 2d 31 3a 6d  65 6e 73 70 63 25 21 32  |!16=-1:menspc%!2|
00003a10  30 3d 62 75 66 6c 65 6e  25 3a 24 62 75 66 66 65  |0=buflen%:$buffe|
00003a20  72 25 3d 69 74 65 6d 24  0d 1b 12 05 cc 0d 1b 1c  |r%=item$........|
00003a30  12 e7 20 a9 20 69 74 65  6d 24 3c 31 32 20 8c 0d  |.. . item$<12 ..|
00003a40  1b 26 2b 6d 65 6e 73 70  63 25 21 38 3d 26 30 37  |.&+menspc%!8=&07|
00003a50  30 30 30 30 32 31 3a 24  28 6d 65 6e 73 70 63 25  |000021:$(menspc%|
00003a60  2b 31 32 29 3d 69 74 65  6d 24 0d 1b 30 05 cc 0d  |+12)=item$..0...|
00003a70  1b 3a 49 6d 65 6e 73 70  63 25 21 38 3d 26 30 37  |.:Imenspc%!8=&07|
00003a80  30 30 30 31 32 31 3a 6d  65 6e 73 70 63 25 21 31  |000121:menspc%!1|
00003a90  32 3d 77 73 25 3a 6d 65  6e 73 70 63 25 21 31 36  |2=ws%:menspc%!16|
00003aa0  3d 2d 31 3a 6d 65 6e 73  70 63 25 21 32 30 3d a9  |=-1:menspc%!20=.|
00003ab0  20 69 74 65 6d 24 2b 31  0d 1b 44 1d 24 77 73 25  | item$+1..D.$ws%|
00003ac0  3d 69 74 65 6d 24 3a 77  73 25 2b 3d a9 20 69 74  |=item$:ws%+=. it|
00003ad0  65 6d 24 2b 31 0d 1b 4e  05 cd 0d 1b 58 05 cd 0d  |em$+1..N....X...|
00003ae0  1b 62 0f 6d 65 6e 73 70  63 25 2b 3d 32 34 0d 1b  |.b.menspc%+=24..|
00003af0  6c 05 cd 0d 1b 76 0f fd  20 69 74 65 6d 24 3d 22  |l....v.. item$="|
00003b00  2a 22 0d 1b 80 1a 73 74  61 72 74 25 21 31 36 3d  |*"....start%!16=|
00003b10  77 69 64 74 68 25 2a 31  36 2b 33 32 0d 1b 8a 25  |width%*16+32...%|
00003b20  21 28 6d 65 6e 73 70 63  25 2d 32 34 29 3d 21 28  |!(menspc%-24)=!(|
00003b30  6d 65 6e 73 70 63 25 2d  32 34 29 20 84 20 26 38  |menspc%-24) . &8|
00003b40  30 0d 1b 94 11 6d 70 74  72 25 3d 6d 65 6e 73 70  |0....mptr%=mensp|
00003b50  63 25 0d 1b 9e 0b 3d 73  74 61 72 74 25 0d 1b a8  |c%....=start%...|
00003b60  05 3a 0d 1b b2 1c dd 20  f2 73 68 6f 77 6d 65 6e  |.:..... .showmen|
00003b70  75 28 6d 65 6e 75 25 2c  78 25 2c 79 25 29 0d 1b  |u(menu%,x%,y%)..|
00003b80  bc 24 74 6f 70 6d 65 6e  75 25 3d 6d 65 6e 75 25  |.$topmenu%=menu%|
00003b90  3a 74 6f 70 78 25 3d 78  25 3a 74 6f 70 79 25 3d  |:topx%=x%:topy%=|
00003ba0  79 25 0d 1b c6 25 c8 99  20 22 57 69 6d 70 5f 43  |y%...%.. "Wimp_C|
00003bb0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00003bc0  25 2c 78 25 2c 79 25 0d  1b d0 05 e1 0d 1b da 05  |%,x%,y%.........|
00003bd0  3a 0d 1b e4 10 dd 20 f2  6d 65 6e 75 63 6c 69 63  |:..... .menuclic|
00003be0  6b 0d 1b ee 08 ea 20 63  25 0d 1b f8 0d 63 25 3d  |k..... c%....c%=|
00003bf0  62 25 2b 39 30 30 0d 1c  02 20 c8 99 20 22 57 69  |b%+900... .. "Wi|
00003c00  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00003c10  6f 22 2c 2c 63 25 0d 1c  0c 13 61 64 6a 25 3d 28  |o",,c%....adj%=(|
00003c20  63 25 21 38 20 80 20 31  29 0d 1c 16 28 c8 99 20  |c%!8 . 1)...(.. |
00003c30  22 57 69 6d 70 5f 44 65  63 6f 64 65 4d 65 6e 75  |"Wimp_DecodeMenu|
00003c40  22 2c 2c 74 6f 70 6d 65  6e 75 25 2c 62 25 2c 63  |",,topmenu%,b%,c|
00003c50  25 0d 1c 20 0c c8 8e 20  24 63 25 20 ca 0d 1c 2a  |%.. ... $c% ...*|
00003c60  34 20 c9 20 a4 6d 73 67  74 72 61 6e 73 5f 6c 6f  |4 . .msgtrans_lo|
00003c70  6f 6b 75 70 30 28 22 4d  41 49 4e 32 22 29 3a f2  |okup0("MAIN2"):.|
00003c80  73 65 74 5f 6f 70 74 3a  f2 6f 70 65 6e 5f 6f 70  |set_opt:.open_op|
00003c90  74 0d 1c 34 34 20 c9 20  a4 6d 73 67 74 72 61 6e  |t..44 . .msgtran|
00003ca0  73 5f 6c 6f 6f 6b 75 70  30 28 22 47 41 4d 45 32  |s_lookup0("GAME2|
00003cb0  22 29 3a f2 73 65 74 5f  6f 70 74 3a f2 6f 70 65  |"):.set_opt:.ope|
00003cc0  6e 5f 6f 70 74 0d 1c 3e  29 20 c9 20 a4 6d 73 67  |n_opt..>) . .msg|
00003cd0  74 72 61 6e 73 5f 6c 6f  6f 6b 75 70 30 28 22 4d  |trans_lookup0("M|
00003ce0  41 49 4e 33 22 29 3a 71  75 69 74 25 3d b9 0d 1c  |AIN3"):quit%=...|
00003cf0  48 05 cb 0d 1c 52 2a e7  20 61 64 6a 25 20 f2 73  |H....R*. adj% .s|
00003d00  68 6f 77 6d 65 6e 75 28  74 6f 70 6d 65 6e 75 25  |howmenu(topmenu%|
00003d10  2c 74 6f 70 78 25 2c 74  6f 70 79 25 29 0d 1c 5c  |,topx%,topy%)..\|
00003d20  05 e1 0d 1c 66 05 3a 0d  1c 70 0d dd f2 73 65 74  |....f.:..p...set|
00003d30  5f 6f 70 74 0d 1c 7a 2a  f2 73 65 74 5f 69 63 6f  |_opt..z*.set_ico|
00003d40  6e 5f 73 74 72 69 6e 67  28 6f 70 74 5f 70 61 6e  |n_string(opt_pan|
00003d50  65 25 2c 38 2c c3 73 69  7a 65 5f 78 25 29 0d 1c  |e%,8,.size_x%)..|
00003d60  84 2a f2 73 65 74 5f 69  63 6f 6e 5f 73 74 72 69  |.*.set_icon_stri|
00003d70  6e 67 28 6f 70 74 5f 70  61 6e 65 25 2c 34 2c c3  |ng(opt_pane%,4,.|
00003d80  73 69 7a 65 5f 79 25 29  0d 1c 8e 29 f2 73 65 74  |size_y%)...).set|
00003d90  5f 62 75 74 74 6f 6e 28  6f 70 74 5f 70 61 6e 65  |_button(opt_pane|
00003da0  25 2c 33 32 2c 63 6f 6c  5f 73 65 6c 25 28 31 29  |%,32,col_sel%(1)|
00003db0  29 0d 1c 98 29 f2 73 65  74 5f 62 75 74 74 6f 6e  |)...).set_button|
00003dc0  28 6f 70 74 5f 70 61 6e  65 25 2c 33 34 2c 63 6f  |(opt_pane%,34,co|
00003dd0  6c 5f 73 65 6c 25 28 32  29 29 0d 1c a2 29 f2 73  |l_sel%(2))...).s|
00003de0  65 74 5f 62 75 74 74 6f  6e 28 6f 70 74 5f 70 61  |et_button(opt_pa|
00003df0  6e 65 25 2c 33 36 2c 63  6f 6c 5f 73 65 6c 25 28  |ne%,36,col_sel%(|
00003e00  33 29 29 0d 1c ac 29 f2  73 65 74 5f 62 75 74 74  |3))...).set_butt|
00003e10  6f 6e 28 6f 70 74 5f 70  61 6e 65 25 2c 33 38 2c  |on(opt_pane%,38,|
00003e20  63 6f 6c 5f 73 65 6c 25  28 34 29 29 0d 1c b6 29  |col_sel%(4))...)|
00003e30  f2 73 65 74 5f 62 75 74  74 6f 6e 28 6f 70 74 5f  |.set_button(opt_|
00003e40  70 61 6e 65 25 2c 33 33  2c 63 6f 6c 5f 73 65 6c  |pane%,33,col_sel|
00003e50  25 28 35 29 29 0d 1c c0  29 f2 73 65 74 5f 62 75  |%(5))...).set_bu|
00003e60  74 74 6f 6e 28 6f 70 74  5f 70 61 6e 65 25 2c 33  |tton(opt_pane%,3|
00003e70  35 2c 63 6f 6c 5f 73 65  6c 25 28 36 29 29 0d 1c  |5,col_sel%(6))..|
00003e80  ca 29 f2 73 65 74 5f 62  75 74 74 6f 6e 28 6f 70  |.).set_button(op|
00003e90  74 5f 70 61 6e 65 25 2c  33 37 2c 63 6f 6c 5f 73  |t_pane%,37,col_s|
00003ea0  65 6c 25 28 37 29 29 0d  1c d4 29 f2 73 65 74 5f  |el%(7))...).set_|
00003eb0  62 75 74 74 6f 6e 28 6f  70 74 5f 70 61 6e 65 25  |button(opt_pane%|
00003ec0  2c 33 39 2c 63 6f 6c 5f  73 65 6c 25 28 38 29 29  |,39,col_sel%(8))|
00003ed0  0d 1c de 04 0d 1c e8 0f  e3 20 49 3d 31 32 20 b8  |......... I=12 .|
00003ee0  20 31 37 0d 1c f2 1e f2  73 65 74 5f 62 75 74 74  | 17.....set_butt|
00003ef0  6f 6e 28 6f 70 74 5f 70  61 6e 65 25 2c 49 2c a3  |on(opt_pane%,I,.|
00003f00  29 0d 1c fc 05 ed 0d 1d  06 10 c8 8e 20 6c 61 79  |)........... lay|
00003f10  6f 75 74 25 20 ca 0d 1d  10 23 c9 20 31 3a f2 73  |out% ....#. 1:.s|
00003f20  65 74 5f 62 75 74 74 6f  6e 28 6f 70 74 5f 70 61  |et_button(opt_pa|
00003f30  6e 65 25 2c 31 36 2c b9  29 0d 1d 1a 23 c9 20 32  |ne%,16,.)...#. 2|
00003f40  3a f2 73 65 74 5f 62 75  74 74 6f 6e 28 6f 70 74  |:.set_button(opt|
00003f50  5f 70 61 6e 65 25 2c 31  32 2c b9 29 0d 1d 24 23  |_pane%,12,.)..$#|
00003f60  c9 20 33 3a f2 73 65 74  5f 62 75 74 74 6f 6e 28  |. 3:.set_button(|
00003f70  6f 70 74 5f 70 61 6e 65  25 2c 31 33 2c b9 29 0d  |opt_pane%,13,.).|
00003f80  1d 2e 23 c9 20 34 3a f2  73 65 74 5f 62 75 74 74  |..#. 4:.set_butt|
00003f90  6f 6e 28 6f 70 74 5f 70  61 6e 65 25 2c 31 35 2c  |on(opt_pane%,15,|
00003fa0  b9 29 0d 1d 38 23 c9 20  35 3a f2 73 65 74 5f 62  |.)..8#. 5:.set_b|
00003fb0  75 74 74 6f 6e 28 6f 70  74 5f 70 61 6e 65 25 2c  |utton(opt_pane%,|
00003fc0  31 34 2c b9 29 0d 1d 42  23 c9 20 36 3a f2 73 65  |14,.)..B#. 6:.se|
00003fd0  74 5f 62 75 74 74 6f 6e  28 6f 70 74 5f 70 61 6e  |t_button(opt_pan|
00003fe0  65 25 2c 31 37 2c b9 29  0d 1d 4c 05 cb 0d 1d 56  |e%,17,.)..L....V|
00003ff0  04 0d 1d 60 0f e3 20 49  3d 32 30 20 b8 20 32 37  |...`.. I=20 . 27|
00004000  0d 1d 6a 1e f2 73 65 74  5f 62 75 74 74 6f 6e 28  |..j..set_button(|
00004010  6f 70 74 5f 70 61 6e 65  25 2c 49 2c a3 29 0d 1d  |opt_pane%,I,.)..|
00004020  74 05 ed 0d 1d 7e 26 f2  73 65 74 5f 62 75 74 74  |t....~&.set_butt|
00004030  6f 6e 28 6f 70 74 5f 70  61 6e 65 25 2c 73 6b 69  |on(opt_pane%,ski|
00004040  6c 6c 25 2b 31 39 2c b9  29 0d 1d 88 05 e1 0d 1d  |ll%+19,.).......|
00004050  92 05 3a 0d 1d 9c 1f dd  20 f2 74 6f 67 67 6c 65  |..:..... .toggle|
00004060  5f 74 69 63 6b 28 6d 65  6e 75 25 2c 69 74 65 6d  |_tick(menu%,item|
00004070  25 29 0d 1d a6 2f 6d 65  6e 75 25 21 28 32 38 2b  |%).../menu%!(28+|
00004080  69 74 65 6d 25 2a 32 34  29 3d 6d 65 6e 75 25 21  |item%*24)=menu%!|
00004090  28 32 38 2b 69 74 65 6d  25 2a 32 34 29 20 82 20  |(28+item%*24) . |
000040a0  31 0d 1d b0 05 e1 0d 1d  ba 05 3a 0d 1d c4 18 dd  |1.........:.....|
000040b0  20 a4 74 69 63 6b 28 6d  65 6e 75 25 2c 74 69 63  | .tick(menu%,tic|
000040c0  6b 25 29 0d 1d ce 21 3d  28 6d 65 6e 75 25 21 28  |k%)...!=(menu%!(|
000040d0  32 38 2b 69 74 65 6d 25  2a 32 34 29 20 80 20 31  |28+item%*24) . 1|
000040e0  29 3c 3e 30 0d 1d d8 05  3a 0d 1d e2 1f dd 20 f2  |)<>0....:..... .|
000040f0  73 65 74 5f 62 75 74 74  6f 6e 28 21 62 25 2c 62  |set_button(!b%,b|
00004100  25 21 34 2c 74 66 25 29  0d 1d ec 0c 73 74 61 74  |%!4,tf%)....stat|
00004110  65 25 3d 30 0d 1d f6 12  e7 20 74 66 25 20 73 74  |e%=0..... tf% st|
00004120  61 74 65 25 3d 31 0d 1e  00 13 62 25 21 38 3d 73  |ate%=1....b%!8=s|
00004130  74 61 74 65 25 3c 3c 32  31 0d 1e 0a 0f 62 25 21  |tate%<<21....b%!|
00004140  31 32 3d 31 3c 3c 32 31  0d 1e 14 1e c8 99 20 22  |12=1<<21...... "|
00004150  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00004160  65 22 2c 2c 62 25 0d 1e  1e 05 e1 0d 1e 28 05 3a  |e",,b%.......(.:|
00004170  0d 1e 32 20 dd 20 a4 69  63 6f 6e 5f 73 74 61 74  |..2 . .icon_stat|
00004180  65 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |e(window%,icon%)|
00004190  0d 1e 3c 08 ea 20 63 25  0d 1e 46 0d 63 25 3d 62  |..<.. c%..F.c%=b|
000041a0  25 2b 39 30 30 0d 1e 50  0f 21 63 25 3d 77 69 6e  |%+900..P.!c%=win|
000041b0  64 6f 77 25 0d 1e 5a 0e  63 25 21 34 3d 69 63 6f  |dow%..Z.c%!4=ico|
000041c0  6e 25 0d 1e 64 1e c8 99  20 22 57 69 6d 70 5f 47  |n%..d... "Wimp_G|
000041d0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 63 25  |etIconState",,c%|
000041e0  0d 1e 6e 1b 3d 28 28 63  25 21 32 34 29 20 80 20  |..n.=((c%!24) . |
000041f0  28 31 3c 3c 32 31 29 29  3c 3e 30 0d 1e 78 05 3a  |(1<<21))<>0..x.:|
00004200  0d 1e 82 21 dd 20 a4 73  74 72 69 6e 67 5f 61 64  |...!. .string_ad|
00004210  64 72 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |dr(window%,icon%|
00004220  29 0d 1e 8c 08 ea 20 63  25 0d 1e 96 0b de 20 63  |)..... c%..... c|
00004230  25 20 36 34 0d 1e a0 0f  21 63 25 3d 77 69 6e 64  |% 64....!c%=wind|
00004240  6f 77 25 0d 1e aa 0e 63  25 21 34 3d 69 63 6f 6e  |ow%....c%!4=icon|
00004250  25 0d 1e b4 1e c8 99 20  22 57 69 6d 70 5f 47 65  |%...... "Wimp_Ge|
00004260  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 63 25 0d  |tIconState",,c%.|
00004270  1e be 0a 3d 63 25 21 32  38 0d 1e c8 05 3a 0d 1e  |...=c%!28....:..|
00004280  d2 21 dd 20 a4 69 63 6f  6e 5f 73 74 72 69 6e 67  |.!. .icon_string|
00004290  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
000042a0  1e dc 26 f2 74 65 72 6d  28 a4 73 74 72 69 6e 67  |..&.term(.string|
000042b0  5f 61 64 64 72 28 77 69  6e 64 6f 77 25 2c 69 63  |_addr(window%,ic|
000042c0  6f 6e 25 29 29 0d 1e e6  21 3d 24 a4 73 74 72 69  |on%))...!=$.stri|
000042d0  6e 67 5f 61 64 64 72 28  77 69 6e 64 6f 77 25 2c  |ng_addr(window%,|
000042e0  69 63 6f 6e 25 29 0d 1e  f0 05 e1 0d 1e fa 05 3a  |icon%).........:|
000042f0  0d 1f 04 28 dd 20 f2 73  65 74 5f 69 63 6f 6e 5f  |...(. .set_icon_|
00004300  73 74 72 69 6e 67 28 77  69 6e 64 6f 77 25 2c 69  |string(window%,i|
00004310  63 6f 6e 25 2c 61 24 29  0d 1f 0e 23 24 a4 73 74  |con%,a$)...#$.st|
00004320  72 69 6e 67 5f 61 64 64  72 28 77 69 6e 64 6f 77  |ring_addr(window|
00004330  25 2c 69 63 6f 6e 25 29  3d 61 24 0d 1f 18 05 e1  |%,icon%)=a$.....|
00004340  0d 1f 22 05 3a 0d 1f 2c  0f dd 20 f2 74 65 72 6d  |..".:..,.. .term|
00004350  28 61 25 29 0d 1f 36 08  ea 20 6e 25 0d 1f 40 0f  |(a%)..6.. n%..@.|
00004360  c8 95 20 61 25 3f 6e 25  3e 33 31 0d 1f 4a 09 6e  |.. a%?n%>31..J.n|
00004370  25 2b 3d 31 0d 1f 54 05  ce 0d 1f 5e 0c 61 25 3f  |%+=1..T....^.a%?|
00004380  6e 25 3d 31 33 0d 1f 68  05 e1 0d 1f 72 05 3a 0d  |n%=13..h....r.:.|
00004390  1f 7c 17 dd f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |.|...open_window|
000043a0  28 77 69 6e 25 29 0d 1f  86 12 e7 20 77 69 6e 25  |(win%)..... win%|
000043b0  3c 3e 6f 70 74 25 20 8c  0d 1f 90 0c 21 62 25 3d  |<>opt% .....!b%=|
000043c0  77 69 6e 25 0d 1f 9a 20  c8 99 20 22 57 69 6d 70  |win%... .. "Wimp|
000043d0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000043e0  2c 2c 62 25 0d 1f a4 0c  62 25 21 32 38 3d 2d 31  |,,b%....b%!28=-1|
000043f0  0d 1f ae 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...... "Wimp_Ope|
00004400  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 1f b8 05  |nWindow",,b%....|
00004410  cd 0d 1f c2 14 f2 6f 70  65 6e 5f 70 61 6e 65 28  |......open_pane(|
00004420  77 69 6e 25 29 0d 1f cc  05 e1 0d 1f d6 05 3a 0d  |win%).........:.|
00004430  1f e0 15 dd f2 6f 70 65  6e 5f 70 61 6e 65 28 77  |.....open_pane(w|
00004440  69 6e 25 29 0d 1f ea 1b  e7 20 77 69 6e 25 3d 6f  |in%)..... win%=o|
00004450  70 74 25 20 8c 20 f2 6f  70 74 5f 70 61 6e 65 0d  |pt% . .opt_pane.|
00004460  1f f4 1d e7 20 77 69 6e  25 3d 67 61 6d 65 25 20  |.... win%=game% |
00004470  8c 20 f2 67 61 6d 65 5f  70 61 6e 65 0d 1f fe 05  |. .game_pane....|
00004480  e1 0d 20 08 05 3a 0d 20  12 18 dd f2 63 6c 6f 73  |.. ..:. ....clos|
00004490  65 5f 77 69 6e 64 6f 77  28 77 69 6e 25 29 0d 20  |e_window(win%). |
000044a0  1c 0c 21 62 25 3d 77 69  6e 25 0d 20 26 3a c8 99  |..!b%=win%. &:..|
000044b0  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
000044c0  53 74 61 74 65 22 2c 2c  62 25 3a c8 99 20 22 57  |State",,b%:.. "W|
000044d0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000044e0  2c 2c 62 25 0d 20 30 15  f2 63 6c 6f 73 65 5f 70  |,,b%. 0..close_p|
000044f0  61 6e 65 28 77 69 6e 25  29 0d 20 3a 05 e1 0d 20  |ane(win%). :... |
00004500  44 05 3a 0d 20 4e 16 dd  f2 63 6c 6f 73 65 5f 70  |D.:. N...close_p|
00004510  61 6e 65 28 77 69 6e 25  29 0d 20 58 2c 20 20 e7  |ane(win%). X,  .|
00004520  20 77 69 6e 25 3d 6f 70  74 25 20 8c 20 f2 63 6c  | win%=opt% . .cl|
00004530  6f 73 65 5f 77 69 6e 64  6f 77 28 6f 70 74 5f 70  |ose_window(opt_p|
00004540  61 6e 65 25 29 0d 20 62  46 20 20 e7 20 77 69 6e  |ane%). bF  . win|
00004550  25 3d 67 61 6d 65 25 20  8c 20 f2 63 6c 6f 73 65  |%=game% . .close|
00004560  5f 77 69 6e 64 6f 77 28  67 61 6d 65 5f 70 61 6e  |_window(game_pan|
00004570  65 25 29 3a 70 6c 61 79  69 6e 67 3d a3 3a f2 73  |e%):playing=.:.s|
00004580  74 6f 70 5f 70 6c 61 79  69 6e 67 0d 20 6c 05 e1  |top_playing. l..|
00004590  0d 20 76 05 3a 0d 20 80  0c dd 20 a4 65 72 72 6f  |. v.:. ... .erro|
000045a0  72 0d 20 8a 09 21 62 25  3d 9f 0d 20 94 0c c8 8e  |r. ..!b%=.. ....|
000045b0  20 21 62 25 20 ca 0d 20  9e 40 c9 20 31 3c 3c 33  | !b% .. .@. 1<<3|
000045c0  30 3a 65 72 72 5f 73 74  72 24 3d a4 6d 73 67 74  |0:err_str$=.msgt|
000045d0  72 61 6e 73 5f 6c 6f 6f  6b 75 70 31 28 22 4e 4f  |rans_lookup1("NO|
000045e0  4e 46 41 54 41 4c 22 2c  f6 24 29 3a 62 6f 78 25  |NFATAL",.$):box%|
000045f0  3d 25 31 30 30 31 0d 20  a8 3a 7f 3a 65 72 72 5f  |=%1001. .:.:err_|
00004600  73 74 72 24 3d a4 6d 73  67 74 72 61 6e 73 5f 6c  |str$=.msgtrans_l|
00004610  6f 6f 6b 75 70 32 28 22  46 41 54 41 4c 22 2c f6  |ookup2("FATAL",.|
00004620  24 2c c3 9e 29 3a 62 6f  78 25 3d 25 31 30 30 31  |$,..):box%=%1001|
00004630  0d 20 b2 05 cb 0d 20 bc  17 24 28 62 25 2b 34 29  |. .... ..$(b%+4)|
00004640  3d 65 72 72 5f 73 74 72  24 2b bd 30 0d 20 c6 48  |=err_str$+.0. .H|
00004650  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00004660  72 72 6f 72 22 2c 62 25  2c 62 6f 78 25 2c a4 6d  |rror",b%,box%,.m|
00004670  73 67 74 72 61 6e 73 5f  6c 6f 6f 6b 75 70 30 28  |sgtrans_lookup0(|
00004680  22 54 41 53 4b 22 29 20  b8 20 2c 72 65 73 70 6f  |"TASK") . ,respo|
00004690  6e 73 65 25 0d 20 d0 12  3d 28 72 65 73 70 6f 6e  |nse%. ..=(respon|
000046a0  73 65 25 3d 32 29 0d 20  da 05 3a 0d 20 e4 15 dd  |se%=2). ..:. ...|
000046b0  f2 67 65 74 5f 73 63 72  65 65 6e 5f 73 69 7a 65  |.get_screen_size|
000046c0  0d 20 ee 2b c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |. .+.."OS_ReadMo|
000046d0  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 34  |deVariable",-1,4|
000046e0  20 b8 20 2c 2c 58 66 61  63 74 25 0d 20 f8 2b c8  | . ,,Xfact%. .+.|
000046f0  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
00004700  69 61 62 6c 65 22 2c 2d  31 2c 35 20 b8 20 2c 2c  |iable",-1,5 . ,,|
00004710  59 66 61 63 74 25 0d 21  02 2b c8 99 22 4f 53 5f  |Yfact%.!.+.."OS_|
00004720  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00004730  22 2c 2d 31 2c 31 31 20  b8 20 2c 2c 58 4c 69 6d  |",-1,11 . ,,XLim|
00004740  25 0d 21 0c 2b c8 99 22  4f 53 5f 52 65 61 64 4d  |%.!.+.."OS_ReadM|
00004750  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00004760  31 32 20 b8 20 2c 2c 59  4c 69 6d 25 0d 21 16 14  |12 . ,,YLim%.!..|
00004770  58 32 3d 58 4c 69 6d 25  3c 3c 58 66 61 63 74 25  |X2=XLim%<<Xfact%|
00004780  0d 21 20 14 59 32 3d 59  4c 69 6d 25 3c 3c 59 66  |.! .Y2=YLim%<<Yf|
00004790  61 63 74 25 0d 21 2a 05  e1 0d 21 34 05 3a 0d 21  |act%.!*...!4.:.!|
000047a0  3e 0e dd f2 6f 70 65 6e  5f 6f 70 74 0d 21 48 0c  |>...open_opt.!H.|
000047b0  21 62 25 3d 6f 70 74 25  0d 21 52 20 c8 99 20 22  |!b%=opt%.!R .. "|
000047c0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000047d0  61 74 65 22 2c 2c 62 25  0d 21 5c 21 69 66 6f 70  |ate",,b%.!\!ifop|
000047e0  65 6e 3d 28 28 62 25 21  33 32 29 20 80 20 28 31  |en=((b%!32) . (1|
000047f0  3c 3c 31 36 29 29 3c 3e  30 0d 21 66 10 e7 20 69  |<<16))<>0.!f.. i|
00004800  66 6f 70 65 6e 3d a3 20  8c 0d 21 70 14 f2 67 65  |fopen=. ..!p..ge|
00004810  74 5f 73 63 72 65 65 6e  5f 73 69 7a 65 0d 21 7a  |t_screen_size.!z|
00004820  23 62 25 21 34 3d 28 58  32 2d 38 35 36 29 2f 32  |#b%!4=(X2-856)/2|
00004830  3a 62 25 21 38 3d 28 59  32 2d 34 34 34 29 2f 32  |:b%!8=(Y2-444)/2|
00004840  0d 21 84 25 62 25 21 31  32 3d 28 62 25 21 34 29  |.!.%b%!12=(b%!4)|
00004850  2b 38 35 36 3a 62 25 21  31 36 3d 28 62 25 21 38  |+856:b%!16=(b%!8|
00004860  29 2b 34 34 34 0d 21 8e  05 cd 0d 21 98 0c 62 25  |)+444.!....!..b%|
00004870  21 32 38 3d 2d 31 0d 21  a2 1c c8 99 20 22 57 69  |!28=-1.!.... "Wi|
00004880  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00004890  62 25 0d 21 ac 0d f2 6f  70 74 5f 70 61 6e 65 0d  |b%.!...opt_pane.|
000048a0  21 b6 05 e1 0d 21 c0 05  3a 0d 21 ca 0e dd f2 6f  |!....!..:.!....o|
000048b0  70 74 5f 70 61 6e 65 0d  21 d4 0c 21 62 25 3d 6f  |pt_pane.!..!b%=o|
000048c0  70 74 25 0d 21 de 20 c8  99 20 22 57 69 6d 70 5f  |pt%.!. .. "Wimp_|
000048d0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000048e0  2c 62 25 0d 21 e8 17 6d  69 6e 78 3d 62 25 21 34  |,b%.!..minx=b%!4|
000048f0  3a 6d 69 6e 79 3d 62 25  21 38 0d 21 f2 19 6d 61  |:miny=b%!8.!..ma|
00004900  78 78 3d 62 25 21 31 32  3a 6d 61 78 79 3d 62 25  |xx=b%!12:maxy=b%|
00004910  21 31 36 0d 21 fc 14 73  74 61 63 6b 25 3d 2d 31  |!16.!..stack%=-1|
00004920  3a f4 62 25 21 32 38 0d  22 06 11 21 62 25 3d 6f  |:.b%!28."..!b%=o|
00004930  70 74 5f 70 61 6e 65 25  0d 22 10 20 c8 99 20 22  |pt_pane%.". .. "|
00004940  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00004950  61 74 65 22 2c 2c 62 25  0d 22 1a 1d 62 25 21 34  |ate",,b%."..b%!4|
00004960  3d 6d 69 6e 78 2b 33 32  3a 62 25 21 38 3d 6d 69  |=minx+32:b%!8=mi|
00004970  6e 79 2b 33 32 0d 22 24  25 62 25 21 31 32 3d 28  |ny+32."$%b%!12=(|
00004980  62 25 21 34 29 2b 34 32  36 3a 62 25 21 31 36 3d  |b%!4)+426:b%!16=|
00004990  28 62 25 21 38 29 2b 33  35 32 0d 22 2e 10 62 25  |(b%!8)+352."..b%|
000049a0  21 32 38 3d 73 74 61 63  6b 25 0d 22 38 1c c8 99  |!28=stack%."8...|
000049b0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000049c0  77 22 2c 2c 62 25 0d 22  42 0c 21 62 25 3d 6f 70  |w",,b%."B.!b%=op|
000049d0  74 25 0d 22 4c 20 c8 99  20 22 57 69 6d 70 5f 47  |t%."L .. "Wimp_G|
000049e0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000049f0  62 25 0d 22 56 13 62 25  21 32 38 3d 6f 70 74 5f  |b%."V.b%!28=opt_|
00004a00  70 61 6e 65 25 0d 22 60  1c c8 99 20 22 57 69 6d  |pane%."`... "Wim|
00004a10  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00004a20  25 0d 22 6a 05 e1 0d 22  74 05 3a 0d 22 7e 12 dd  |%."j..."t.:."~..|
00004a30  f2 6d 6f 76 65 5f 6f 70  74 70 61 6e 65 0d 22 88  |.move_optpane.".|
00004a40  17 6d 69 6e 78 3d 62 25  21 34 3a 6d 69 6e 79 3d  |.minx=b%!4:miny=|
00004a50  62 25 21 38 0d 22 92 19  6d 61 78 78 3d 62 25 21  |b%!8."..maxx=b%!|
00004a60  31 32 3a 6d 61 78 79 3d  62 25 21 31 36 0d 22 9c  |12:maxy=b%!16.".|
00004a70  10 73 74 61 63 6b 25 3d  62 25 21 32 38 0d 22 a6  |.stack%=b%!28.".|
00004a80  11 21 62 25 3d 6f 70 74  5f 70 61 6e 65 25 0d 22  |.!b%=opt_pane%."|
00004a90  b0 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |. .. "Wimp_GetWi|
00004aa0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 25 0d 22  |ndowState",,b%."|
00004ab0  ba 1d 62 25 21 34 3d 6d  69 6e 78 2b 33 32 3a 62  |..b%!4=minx+32:b|
00004ac0  25 21 38 3d 6d 69 6e 79  2b 33 32 0d 22 c4 25 62  |%!8=miny+32.".%b|
00004ad0  25 21 31 32 3d 28 62 25  21 34 29 2b 34 32 36 3a  |%!12=(b%!4)+426:|
00004ae0  62 25 21 31 36 3d 28 62  25 21 38 29 2b 33 35 32  |b%!16=(b%!8)+352|
00004af0  0d 22 ce 10 62 25 21 32  38 3d 73 74 61 63 6b 25  |."..b%!28=stack%|
00004b00  0d 22 d8 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |.".... "Wimp_Ope|
00004b10  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 22 e2 0c  |nWindow",,b%."..|
00004b20  21 62 25 3d 6f 70 74 25  0d 22 ec 20 c8 99 20 22  |!b%=opt%.". .. "|
00004b30  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00004b40  61 74 65 22 2c 2c 62 25  0d 22 f6 17 62 25 21 34  |ate",,b%."..b%!4|
00004b50  3d 6d 69 6e 78 3a 62 25  21 38 3d 6d 69 6e 79 0d  |=minx:b%!8=miny.|
00004b60  23 00 19 62 25 21 31 32  3d 6d 61 78 78 3a 62 25  |#..b%!12=maxx:b%|
00004b70  21 31 36 3d 6d 61 78 79  0d 23 0a 13 62 25 21 32  |!16=maxy.#..b%!2|
00004b80  38 3d 6f 70 74 5f 70 61  6e 65 25 0d 23 14 1c c8  |8=opt_pane%.#...|
00004b90  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00004ba0  6f 77 22 2c 2c 62 25 0d  23 1e 05 e1 0d 23 28 05  |ow",,b%.#....#(.|
00004bb0  3a 0d 23 32 0f dd f2 67  61 6d 65 5f 70 61 6e 65  |:.#2...game_pane|
00004bc0  0d 23 3c 0d 21 62 25 3d  67 61 6d 65 25 0d 23 46  |.#<.!b%=game%.#F|
00004bd0  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  | .. "Wimp_GetWin|
00004be0  64 6f 77 53 74 61 74 65  22 2c 2c 62 25 0d 23 50  |dowState",,b%.#P|
00004bf0  17 6d 69 6e 78 3d 62 25  21 34 3a 6d 69 6e 79 3d  |.minx=b%!4:miny=|
00004c00  62 25 21 38 0d 23 5a 19  6d 61 78 78 3d 62 25 21  |b%!8.#Z.maxx=b%!|
00004c10  31 32 3a 6d 61 78 79 3d  62 25 21 31 36 0d 23 64  |12:maxy=b%!16.#d|
00004c20  10 73 74 61 63 6b 25 3d  62 25 21 32 38 0d 23 6e  |.stack%=b%!28.#n|
00004c30  12 21 62 25 3d 67 61 6d  65 5f 70 61 6e 65 25 0d  |.!b%=game_pane%.|
00004c40  23 78 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |#x .. "Wimp_GetW|
00004c50  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 25 0d  |indowState",,b%.|
00004c60  23 82 1f 62 25 21 34 3d  6d 69 6e 78 2d 31 36 32  |#..b%!4=minx-162|
00004c70  3a 62 25 21 38 3d 6d 61  78 79 2d 32 36 30 0d 23  |:b%!8=maxy-260.#|
00004c80  8c 25 62 25 21 31 32 3d  28 62 25 21 34 29 2b 31  |.%b%!12=(b%!4)+1|
00004c90  36 30 3a 62 25 21 31 36  3d 28 62 25 21 38 29 2b  |60:b%!16=(b%!8)+|
00004ca0  32 36 30 0d 23 96 10 62  25 21 32 38 3d 73 74 61  |260.#..b%!28=sta|
00004cb0  63 6b 25 0d 23 a0 1c c8  99 20 22 57 69 6d 70 5f  |ck%.#.... "Wimp_|
00004cc0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 25 0d  |OpenWindow",,b%.|
00004cd0  23 aa 05 e1 0d 23 b4 05  3a 0d 23 be 19 dd f2 64  |#....#..:.#....d|
00004ce0  72 61 67 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |rag(window%,icon|
00004cf0  25 29 0d 23 c8 08 ea 20  63 25 0d 23 d2 0c de 20  |%).#... c%.#... |
00004d00  63 25 20 32 35 36 0d 23  dc 26 f2 67 65 74 5f 6f  |c% 256.#.&.get_o|
00004d10  72 69 67 69 6e 28 77 69  6e 64 6f 77 25 2c 78 6f  |rigin(window%,xo|
00004d20  72 69 67 25 2c 79 6f 72  69 67 25 29 0d 23 e6 1a  |rig%,yorig%).#..|
00004d30  21 63 25 3d 77 69 6e 64  6f 77 25 3a 63 25 21 34  |!c%=window%:c%!4|
00004d40  3d 69 63 6f 6e 25 0d 23  f0 1e c8 99 20 22 57 69  |=icon%.#.... "Wi|
00004d50  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00004d60  2c 2c 63 25 0d 23 fa 28  78 6d 69 6e 25 3d 78 6f  |,,c%.#.(xmin%=xo|
00004d70  72 69 67 25 2b 63 25 21  38 3a 79 6d 69 6e 25 3d  |rig%+c%!8:ymin%=|
00004d80  79 6f 72 69 67 25 2b 63  25 21 31 32 0d 24 04 29  |yorig%+c%!12.$.)|
00004d90  78 6d 61 78 25 3d 78 6f  72 69 67 25 2b 63 25 21  |xmax%=xorig%+c%!|
00004da0  31 36 3a 79 6d 61 78 25  3d 79 6f 72 69 67 25 2b  |16:ymax%=yorig%+|
00004db0  63 25 21 32 30 0d 24 0e  18 21 63 25 3d 78 6d 69  |c%!20.$..!c%=xmi|
00004dc0  6e 25 3a 63 25 21 34 3d  79 6d 69 6e 25 0d 24 18  |n%:c%!4=ymin%.$.|
00004dd0  1a 63 25 21 38 3d 78 6d  61 78 25 3a 63 25 21 31  |.c%!8=xmax%:c%!1|
00004de0  32 3d 79 6d 61 78 25 0d  24 22 34 c8 99 20 22 44  |2=ymax%.$"4.. "D|
00004df0  72 61 67 41 53 70 72 69  74 65 5f 53 74 61 72 74  |ragASprite_Start|
00004e00  22 2c 25 31 30 30 30 30  31 30 31 2c 31 2c 22 66  |",%10000101,1,"f|
00004e10  69 6c 65 5f 33 62 35 22  2c 63 25 0d 24 2c 05 e1  |ile_3b5",c%.$,..|
00004e20  0d 24 36 05 3a 0d 24 40  1c dd f2 6c 6f 61 64 5f  |.$6.:.$@...load_|
00004e30  6f 70 74 69 6f 6e 73 28  73 65 74 5f 76 61 72 73  |options(set_vars|
00004e40  29 0d 24 4a 2d 66 69 6c  65 25 3d 8e 28 22 3c 53  |).$J-file%=.("<S|
00004e50  70 6f 74 4f 6e 24 44 69  72 3e 2e 52 65 73 6f 75  |potOn$Dir>.Resou|
00004e60  72 63 65 73 2e 4f 70 74  69 6f 6e 73 22 29 0d 24  |rces.Options").$|
00004e70  54 26 e8 23 66 69 6c 65  25 2c 73 78 25 3a e7 20  |T&.#file%,sx%:. |
00004e80  73 65 74 5f 76 61 72 73  20 73 69 7a 65 5f 78 25  |set_vars size_x%|
00004e90  3d 73 78 25 0d 24 5e 26  f2 73 65 74 5f 69 63 6f  |=sx%.$^&.set_ico|
00004ea0  6e 5f 73 74 72 69 6e 67  28 6f 70 74 5f 70 61 6e  |n_string(opt_pan|
00004eb0  65 25 2c 38 2c c3 73 78  25 29 0d 24 68 1d f2 75  |e%,8,.sx%).$h..u|
00004ec0  70 64 61 74 65 5f 69 63  6f 6e 28 6f 70 74 5f 70  |pdate_icon(opt_p|
00004ed0  61 6e 65 25 2c 38 29 0d  24 72 26 e8 23 66 69 6c  |ane%,8).$r&.#fil|
00004ee0  65 25 2c 73 79 25 3a e7  20 73 65 74 5f 76 61 72  |e%,sy%:. set_var|
00004ef0  73 20 73 69 7a 65 5f 79  25 3d 73 79 25 0d 24 7c  |s size_y%=sy%.$||
00004f00  26 f2 73 65 74 5f 69 63  6f 6e 5f 73 74 72 69 6e  |&.set_icon_strin|
00004f10  67 28 6f 70 74 5f 70 61  6e 65 25 2c 34 2c c3 73  |g(opt_pane%,4,.s|
00004f20  79 25 29 0d 24 86 1d f2  75 70 64 61 74 65 5f 69  |y%).$...update_i|
00004f30  63 6f 6e 28 6f 70 74 5f  70 61 6e 65 25 2c 34 29  |con(opt_pane%,4)|
00004f40  0d 24 90 04 0d 24 9a 2a  e8 23 66 69 6c 65 25 2c  |.$...$.*.#file%,|
00004f50  63 73 25 3a e7 20 73 65  74 5f 76 61 72 73 20 63  |cs%:. set_vars c|
00004f60  6f 6c 5f 73 65 6c 25 28  31 29 3d 63 73 25 0d 24  |ol_sel%(1)=cs%.$|
00004f70  a4 21 f2 73 65 74 5f 62  75 74 74 6f 6e 28 6f 70  |.!.set_button(op|
00004f80  74 5f 70 61 6e 65 25 2c  33 32 2c 63 73 25 29 0d  |t_pane%,32,cs%).|
00004f90  24 ae 2a e8 23 66 69 6c  65 25 2c 63 73 25 3a e7  |$.*.#file%,cs%:.|
00004fa0  20 73 65 74 5f 76 61 72  73 20 63 6f 6c 5f 73 65  | set_vars col_se|
00004fb0  6c 25 28 32 29 3d 63 73  25 0d 24 b8 21 f2 73 65  |l%(2)=cs%.$.!.se|
00004fc0  74 5f 62 75 74 74 6f 6e  28 6f 70 74 5f 70 61 6e  |t_button(opt_pan|
00004fd0  65 25 2c 33 34 2c 63 73  25 29 0d 24 c2 2a e8 23  |e%,34,cs%).$.*.#|
00004fe0  66 69 6c 65 25 2c 63 73  25 3a e7 20 73 65 74 5f  |file%,cs%:. set_|
00004ff0  76 61 72 73 20 63 6f 6c  5f 73 65 6c 25 28 33 29  |vars col_sel%(3)|
00005000  3d 63 73 25 0d 24 cc 21  f2 73 65 74 5f 62 75 74  |=cs%.$.!.set_but|
00005010  74 6f 6e 28 6f 70 74 5f  70 61 6e 65 25 2c 33 36  |ton(opt_pane%,36|
00005020  2c 63 73 25 29 0d 24 d6  2a e8 23 66 69 6c 65 25  |,cs%).$.*.#file%|
00005030  2c 63 73 25 3a e7 20 73  65 74 5f 76 61 72 73 20  |,cs%:. set_vars |
00005040  63 6f 6c 5f 73 65 6c 25  28 34 29 3d 63 73 25 0d  |col_sel%(4)=cs%.|
00005050  24 e0 21 f2 73 65 74 5f  62 75 74 74 6f 6e 28 6f  |$.!.set_button(o|
00005060  70 74 5f 70 61 6e 65 25  2c 33 38 2c 63 73 25 29  |pt_pane%,38,cs%)|
00005070  0d 24 ea 2a e8 23 66 69  6c 65 25 2c 63 73 25 3a  |.$.*.#file%,cs%:|
00005080  e7 20 73 65 74 5f 76 61  72 73 20 63 6f 6c 5f 73  |. set_vars col_s|
00005090  65 6c 25 28 35 29 3d 63  73 25 0d 24 f4 21 f2 73  |el%(5)=cs%.$.!.s|
000050a0  65 74 5f 62 75 74 74 6f  6e 28 6f 70 74 5f 70 61  |et_button(opt_pa|
000050b0  6e 65 25 2c 33 33 2c 63  73 25 29 0d 24 fe 2a e8  |ne%,33,cs%).$.*.|
000050c0  23 66 69 6c 65 25 2c 63  73 25 3a e7 20 73 65 74  |#file%,cs%:. set|
000050d0  5f 76 61 72 73 20 63 6f  6c 5f 73 65 6c 25 28 36  |_vars col_sel%(6|
000050e0  29 3d 63 73 25 0d 25 08  21 f2 73 65 74 5f 62 75  |)=cs%.%.!.set_bu|
000050f0  74 74 6f 6e 28 6f 70 74  5f 70 61 6e 65 25 2c 33  |tton(opt_pane%,3|
00005100  35 2c 63 73 25 29 0d 25  12 2a e8 23 66 69 6c 65  |5,cs%).%.*.#file|
00005110  25 2c 63 73 25 3a e7 20  73 65 74 5f 76 61 72 73  |%,cs%:. set_vars|
00005120  20 63 6f 6c 5f 73 65 6c  25 28 37 29 3d 63 73 25  | col_sel%(7)=cs%|
00005130  0d 25 1c 21 f2 73 65 74  5f 62 75 74 74 6f 6e 28  |.%.!.set_button(|
00005140  6f 70 74 5f 70 61 6e 65  25 2c 33 37 2c 63 73 25  |opt_pane%,37,cs%|
00005150  29 0d 25 26 2a e8 23 66  69 6c 65 25 2c 63 73 25  |).%&*.#file%,cs%|
00005160  3a e7 20 73 65 74 5f 76  61 72 73 20 63 6f 6c 5f  |:. set_vars col_|
00005170  73 65 6c 25 28 38 29 3d  63 73 25 0d 25 30 21 f2  |sel%(8)=cs%.%0!.|
00005180  73 65 74 5f 62 75 74 74  6f 6e 28 6f 70 74 5f 70  |set_button(opt_p|
00005190  61 6e 65 25 2c 33 39 2c  63 73 25 29 0d 25 3a 04  |ane%,39,cs%).%:.|
000051a0  0d 25 44 24 e8 23 66 69  6c 65 25 2c 6c 25 3a e7  |.%D$.#file%,l%:.|
000051b0  20 73 65 74 5f 76 61 72  73 20 6c 61 79 6f 75 74  | set_vars layout|
000051c0  25 3d 6c 25 0d 25 4e 0f  e3 20 49 3d 31 32 20 b8  |%=l%.%N.. I=12 .|
000051d0  20 31 37 0d 25 58 1e f2  73 65 74 5f 62 75 74 74  | 17.%X..set_butt|
000051e0  6f 6e 28 6f 70 74 5f 70  61 6e 65 25 2c 49 2c a3  |on(opt_pane%,I,.|
000051f0  29 0d 25 62 05 ed 0d 25  6c 0b c8 8e 20 6c 25 20  |).%b...%l... l% |
00005200  ca 0d 25 76 23 c9 20 31  3a f2 73 65 74 5f 62 75  |..%v#. 1:.set_bu|
00005210  74 74 6f 6e 28 6f 70 74  5f 70 61 6e 65 25 2c 31  |tton(opt_pane%,1|
00005220  36 2c b9 29 0d 25 80 23  c9 20 32 3a f2 73 65 74  |6,.).%.#. 2:.set|
00005230  5f 62 75 74 74 6f 6e 28  6f 70 74 5f 70 61 6e 65  |_button(opt_pane|
00005240  25 2c 31 32 2c b9 29 0d  25 8a 23 c9 20 33 3a f2  |%,12,.).%.#. 3:.|
00005250  73 65 74 5f 62 75 74 74  6f 6e 28 6f 70 74 5f 70  |set_button(opt_p|
00005260  61 6e 65 25 2c 31 33 2c  b9 29 0d 25 94 23 c9 20  |ane%,13,.).%.#. |
00005270  34 3a f2 73 65 74 5f 62  75 74 74 6f 6e 28 6f 70  |4:.set_button(op|
00005280  74 5f 70 61 6e 65 25 2c  31 35 2c b9 29 0d 25 9e  |t_pane%,15,.).%.|
00005290  23 c9 20 35 3a f2 73 65  74 5f 62 75 74 74 6f 6e  |#. 5:.set_button|
000052a0  28 6f 70 74 5f 70 61 6e  65 25 2c 31 34 2c b9 29  |(opt_pane%,14,.)|
000052b0  0d 25 a8 23 c9 20 36 3a  f2 73 65 74 5f 62 75 74  |.%.#. 6:.set_but|
000052c0  74 6f 6e 28 6f 70 74 5f  70 61 6e 65 25 2c 31 37  |ton(opt_pane%,17|
000052d0  2c b9 29 0d 25 b2 05 cb  0d 25 bc 04 0d 25 c6 25  |,.).%....%...%.%|
000052e0  e8 23 66 69 6c 65 25 2c  73 6b 25 3a e7 20 73 65  |.#file%,sk%:. se|
000052f0  74 5f 76 61 72 73 20 73  6b 69 6c 6c 25 3d 73 6b  |t_vars skill%=sk|
00005300  25 0d 25 d0 0f e3 20 49  3d 32 30 20 b8 20 32 37  |%.%... I=20 . 27|
00005310  0d 25 da 1e f2 73 65 74  5f 62 75 74 74 6f 6e 28  |.%...set_button(|
00005320  6f 70 74 5f 70 61 6e 65  25 2c 49 2c a3 29 0d 25  |opt_pane%,I,.).%|
00005330  e4 05 ed 0d 25 ee 23 f2  73 65 74 5f 62 75 74 74  |....%.#.set_butt|
00005340  6f 6e 28 6f 70 74 5f 70  61 6e 65 25 2c 73 6b 25  |on(opt_pane%,sk%|
00005350  2b 31 39 2c b9 29 0d 25  f8 04 0d 26 02 0b d9 23  |+19,.).%...&...#|
00005360  66 69 6c 65 25 0d 26 0c  05 e1 0d 26 16 05 3a 0d  |file%.&....&..:.|
00005370  26 20 12 dd f2 73 61 76  65 5f 6f 70 74 69 6f 6e  |& ...save_option|
00005380  73 0d 26 2a 14 ea 20 6c  61 79 6f 75 74 25 2c 73  |s.&*.. layout%,s|
00005390  6b 69 6c 6c 25 0d 26 34  16 6c 61 79 6f 75 74 25  |kill%.&4.layout%|
000053a0  3d 31 3a 73 6b 69 6c 6c  25 3d 31 0d 26 3e 04 0d  |=1:skill%=1.&>..|
000053b0  26 48 0a c8 8e 20 b9 20  ca 0d 26 52 2a 20 c9 20  |&H... . ..&R* . |
000053c0  a4 69 63 6f 6e 5f 73 74  61 74 65 28 6f 70 74 5f  |.icon_state(opt_|
000053d0  70 61 6e 65 25 2c 31 36  29 3a 6c 61 79 6f 75 74  |pane%,16):layout|
000053e0  25 3d 31 0d 26 5c 2a 20  c9 20 a4 69 63 6f 6e 5f  |%=1.&\* . .icon_|
000053f0  73 74 61 74 65 28 6f 70  74 5f 70 61 6e 65 25 2c  |state(opt_pane%,|
00005400  31 37 29 3a 6c 61 79 6f  75 74 25 3d 36 0d 26 66  |17):layout%=6.&f|
00005410  2a 20 c9 20 a4 69 63 6f  6e 5f 73 74 61 74 65 28  |* . .icon_state(|
00005420  6f 70 74 5f 70 61 6e 65  25 2c 31 32 29 3a 6c 61  |opt_pane%,12):la|
00005430  79 6f 75 74 25 3d 32 0d  26 70 2a 20 c9 20 a4 69  |yout%=2.&p* . .i|
00005440  63 6f 6e 5f 73 74 61 74  65 28 6f 70 74 5f 70 61  |con_state(opt_pa|
00005450  6e 65 25 2c 31 33 29 3a  6c 61 79 6f 75 74 25 3d  |ne%,13):layout%=|
00005460  33 0d 26 7a 2a 20 c9 20  a4 69 63 6f 6e 5f 73 74  |3.&z* . .icon_st|
00005470  61 74 65 28 6f 70 74 5f  70 61 6e 65 25 2c 31 34  |ate(opt_pane%,14|
00005480  29 3a 6c 61 79 6f 75 74  25 3d 35 0d 26 84 2a 20  |):layout%=5.&.* |
00005490  c9 20 a4 69 63 6f 6e 5f  73 74 61 74 65 28 6f 70  |. .icon_state(op|
000054a0  74 5f 70 61 6e 65 25 2c  31 35 29 3a 6c 61 79 6f  |t_pane%,15):layo|
000054b0  75 74 25 3d 34 0d 26 8e  05 cb 0d 26 98 04 0d 26  |ut%=4.&....&...&|
000054c0  a2 0a c8 8e 20 b9 20 ca  0d 26 ac 29 20 c9 20 a4  |.... . ..&.) . .|
000054d0  69 63 6f 6e 5f 73 74 61  74 65 28 6f 70 74 5f 70  |icon_state(opt_p|
000054e0  61 6e 65 25 2c 32 30 29  3a 73 6b 69 6c 6c 25 3d  |ane%,20):skill%=|
000054f0  31 0d 26 b6 29 20 c9 20  a4 69 63 6f 6e 5f 73 74  |1.&.) . .icon_st|
00005500  61 74 65 28 6f 70 74 5f  70 61 6e 65 25 2c 32 31  |ate(opt_pane%,21|
00005510  29 3a 73 6b 69 6c 6c 25  3d 32 0d 26 c0 29 20 c9  |):skill%=2.&.) .|
00005520  20 a4 69 63 6f 6e 5f 73  74 61 74 65 28 6f 70 74  | .icon_state(opt|
00005530  5f 70 61 6e 65 25 2c 32  32 29 3a 73 6b 69 6c 6c  |_pane%,22):skill|
00005540  25 3d 33 0d 26 ca 29 20  c9 20 a4 69 63 6f 6e 5f  |%=3.&.) . .icon_|
00005550  73 74 61 74 65 28 6f 70  74 5f 70 61 6e 65 25 2c  |state(opt_pane%,|
00005560  32 33 29 3a 73 6b 69 6c  6c 25 3d 34 0d 26 d4 29  |23):skill%=4.&.)|
00005570  20 c9 20 a4 69 63 6f 6e  5f 73 74 61 74 65 28 6f  | . .icon_state(o|
00005580  70 74 5f 70 61 6e 65 25  2c 32 34 29 3a 73 6b 69  |pt_pane%,24):ski|
00005590  6c 6c 25 3d 35 0d 26 de  29 20 c9 20 a4 69 63 6f  |ll%=5.&.) . .ico|
000055a0  6e 5f 73 74 61 74 65 28  6f 70 74 5f 70 61 6e 65  |n_state(opt_pane|
000055b0  25 2c 32 35 29 3a 73 6b  69 6c 6c 25 3d 36 0d 26  |%,25):skill%=6.&|
000055c0  e8 29 20 c9 20 a4 69 63  6f 6e 5f 73 74 61 74 65  |.) . .icon_state|
000055d0  28 6f 70 74 5f 70 61 6e  65 25 2c 32 36 29 3a 73  |(opt_pane%,26):s|
000055e0  6b 69 6c 6c 25 3d 37 0d  26 f2 29 20 c9 20 a4 69  |kill%=7.&.) . .i|
000055f0  63 6f 6e 5f 73 74 61 74  65 28 6f 70 74 5f 70 61  |con_state(opt_pa|
00005600  6e 65 25 2c 32 37 29 3a  73 6b 69 6c 6c 25 3d 38  |ne%,27):skill%=8|
00005610  0d 26 fc 05 cb 0d 27 06  04 0d 27 10 2d 66 69 6c  |.&....'...'.-fil|
00005620  65 25 3d ae 28 22 3c 53  70 6f 74 4f 6e 24 44 69  |e%=.("<SpotOn$Di|
00005630  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 4f 70 74  |r>.Resources.Opt|
00005640  69 6f 6e 73 22 29 0d 27  1a 28 f1 23 66 69 6c 65  |ions").'.(.#file|
00005650  25 2c bb 28 a4 69 63 6f  6e 5f 73 74 72 69 6e 67  |%,.(.icon_string|
00005660  28 6f 70 74 5f 70 61 6e  65 25 2c 38 29 29 0d 27  |(opt_pane%,8)).'|
00005670  24 28 f1 23 66 69 6c 65  25 2c bb 28 a4 69 63 6f  |$(.#file%,.(.ico|
00005680  6e 5f 73 74 72 69 6e 67  28 6f 70 74 5f 70 61 6e  |n_string(opt_pan|
00005690  65 25 2c 34 29 29 0d 27  2e 04 0d 27 38 25 f1 23  |e%,4)).'...'8%.#|
000056a0  66 69 6c 65 25 2c a4 69  63 6f 6e 5f 73 74 61 74  |file%,.icon_stat|
000056b0  65 28 6f 70 74 5f 70 61  6e 65 25 2c 33 32 29 0d  |e(opt_pane%,32).|
000056c0  27 42 25 f1 23 66 69 6c  65 25 2c a4 69 63 6f 6e  |'B%.#file%,.icon|
000056d0  5f 73 74 61 74 65 28 6f  70 74 5f 70 61 6e 65 25  |_state(opt_pane%|
000056e0  2c 33 34 29 0d 27 4c 25  f1 23 66 69 6c 65 25 2c  |,34).'L%.#file%,|
000056f0  a4 69 63 6f 6e 5f 73 74  61 74 65 28 6f 70 74 5f  |.icon_state(opt_|
00005700  70 61 6e 65 25 2c 33 36  29 0d 27 56 25 f1 23 66  |pane%,36).'V%.#f|
00005710  69 6c 65 25 2c a4 69 63  6f 6e 5f 73 74 61 74 65  |ile%,.icon_state|
00005720  28 6f 70 74 5f 70 61 6e  65 25 2c 33 38 29 0d 27  |(opt_pane%,38).'|
00005730  60 25 f1 23 66 69 6c 65  25 2c a4 69 63 6f 6e 5f  |`%.#file%,.icon_|
00005740  73 74 61 74 65 28 6f 70  74 5f 70 61 6e 65 25 2c  |state(opt_pane%,|
00005750  33 33 29 0d 27 6a 25 f1  23 66 69 6c 65 25 2c a4  |33).'j%.#file%,.|
00005760  69 63 6f 6e 5f 73 74 61  74 65 28 6f 70 74 5f 70  |icon_state(opt_p|
00005770  61 6e 65 25 2c 33 35 29  0d 27 74 25 f1 23 66 69  |ane%,35).'t%.#fi|
00005780  6c 65 25 2c a4 69 63 6f  6e 5f 73 74 61 74 65 28  |le%,.icon_state(|
00005790  6f 70 74 5f 70 61 6e 65  25 2c 33 37 29 0d 27 7e  |opt_pane%,37).'~|
000057a0  25 f1 23 66 69 6c 65 25  2c a4 69 63 6f 6e 5f 73  |%.#file%,.icon_s|
000057b0  74 61 74 65 28 6f 70 74  5f 70 61 6e 65 25 2c 33  |tate(opt_pane%,3|
000057c0  39 29 0d 27 88 04 0d 27  92 13 f1 23 66 69 6c 65  |9).'...'...#file|
000057d0  25 2c 6c 61 79 6f 75 74  25 0d 27 9c 12 f1 23 66  |%,layout%.'...#f|
000057e0  69 6c 65 25 2c 73 6b 69  6c 6c 25 0d 27 a6 0b d9  |ile%,skill%.'...|
000057f0  23 66 69 6c 65 25 0d 27  b0 05 e1 0d 27 ba 05 3a  |#file%.'....'..:|
00005800  0d 27 c4 0d dd f2 64 72  61 67 65 6e 64 0d 27 ce  |.'....dragend.'.|
00005810  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  | .. "Wimp_GetPoi|
00005820  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 25 0d 27 d8  |nterInfo",,b%.'.|
00005830  0f 62 25 21 32 30 3d 62  25 21 31 32 0d 27 e2 0f  |.b%!20=b%!12.'..|
00005840  62 25 21 32 34 3d 62 25  21 31 36 0d 27 ec 0e 62  |b%!24=b%!16.'..b|
00005850  25 21 32 38 3d 62 25 21  30 0d 27 f6 0e 62 25 21  |%!28=b%!0.'..b%!|
00005860  33 32 3d 62 25 21 34 0d  28 00 0b 62 25 21 33 36  |32=b%!4.(..b%!36|
00005870  3d 30 0d 28 0a 1e 61 24  3d a4 69 63 6f 6e 5f 73  |=0.(..a$=.icon_s|
00005880  74 72 69 6e 67 28 73 61  76 65 61 73 25 2c 32 29  |tring(saveas%,2)|
00005890  0d 28 14 12 c8 95 20 a7  61 24 2c 22 2e 22 29 3c  |.(.... .a$,".")<|
000058a0  3e 30 0d 28 1e 0f 6e 25  3d a7 61 24 2c 22 2e 22  |>0.(..n%=.a$,"."|
000058b0  29 0d 28 28 10 61 24 3d  c1 61 24 2c 6e 25 2b 31  |).((.a$=.a$,n%+1|
000058c0  29 0d 28 32 05 ce 0d 28  3c 0f 24 28 62 25 2b 34  |).(2...(<.$(b%+4|
000058d0  34 29 3d 61 24 0d 28 46  1a 21 62 25 3d 34 34 2b  |4)=a$.(F.!b%=44+|
000058e0  28 28 a9 61 24 2b 31 29  20 81 20 34 29 2a 34 0d  |((.a$+1) . 4)*4.|
000058f0  28 50 1d e7 20 28 28 a9  61 24 2b 31 29 20 83 20  |(P.. ((.a$+1) . |
00005900  34 29 3c 3e 30 20 21 62  25 2b 3d 34 0d 28 5a 0b  |4)<>0 !b%+=4.(Z.|
00005910  62 25 21 31 32 3d 30 0d  28 64 0b 62 25 21 31 36  |b%!12=0.(d.b%!16|
00005920  3d 31 0d 28 6e 25 c8 99  20 22 57 69 6d 70 5f 53  |=1.(n%.. "Wimp_S|
00005930  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 38 2c 62  |endMessage",18,b|
00005940  25 2c 62 25 21 32 30 0d  28 78 05 e1 0d 28 82 05  |%,b%!20.(x...(..|
00005950  3a 0d 28 8c 0a dd f2 73  61 76 65 0d 28 96 10 f2  |:.(....save.(...|
00005960  74 65 72 6d 28 62 25 2b  34 34 29 0d 28 a0 12 66  |term(b%+44).(..f|
00005970  69 6c 65 24 3d 24 28 62  25 2b 34 34 29 0d 28 aa  |ile$=$(b%+44).(.|
00005980  25 f2 73 65 74 5f 69 63  6f 6e 5f 73 74 72 69 6e  |%.set_icon_strin|
00005990  67 28 73 61 76 65 61 73  25 2c 32 2c 66 69 6c 65  |g(saveas%,2,file|
000059a0  24 29 0d 28 b4 12 f2 70  75 74 5f 73 61 76 65 5f  |$).(...put_save_|
000059b0  64 61 74 61 0d 28 be 0e  62 25 21 31 32 3d 62 25  |data.(..b%!12=b%|
000059c0  21 38 0d 28 c8 0b 62 25  21 31 36 3d 33 0d 28 d2  |!8.(..b%!16=3.(.|
000059d0  25 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |%.. "Wimp_SendMe|
000059e0  73 73 61 67 65 22 2c 31  38 2c 62 25 2c 62 25 21  |ssage",18,b%,b%!|
000059f0  32 30 0d 28 dc 1a f2 63  6c 6f 73 65 5f 77 69 6e  |20.(...close_win|
00005a00  64 6f 77 28 73 61 76 65  61 73 25 29 0d 28 e6 1c  |dow(saveas%).(..|
00005a10  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00005a20  65 6e 75 22 2c 2c 2d 31  0d 28 f0 05 e1 0d 28 fa  |enu",,-1.(....(.|
00005a30  05 3a 0d 29 04 13 dd f2  70 75 74 5f 73 61 76 65  |.:.)....put_save|
00005a40  5f 64 61 74 61 0d 29 0e  21 66 69 6c 65 24 3d a4  |_data.).!file$=.|
00005a50  69 63 6f 6e 5f 73 74 72  69 6e 67 28 73 61 76 65  |icon_string(save|
00005a60  61 73 25 2c 32 29 0d 29  18 26 e7 20 a7 66 69 6c  |as%,2).).&. .fil|
00005a70  65 24 2c 22 3a 3a 22 29  3d 30 20 84 20 a7 66 69  |e$,"::")=0 . .fi|
00005a80  6c 65 24 2c 22 2e 22 29  3d 30 20 8c 0d 29 22 0b  |le$,".")=0 ..)".|
00005a90  20 21 62 25 3d 25 31 0d  29 2c 2b 20 24 28 62 25  | !b%=%1.),+ $(b%|
00005aa0  2b 34 29 3d a4 6d 73 67  74 72 61 6e 73 5f 6c 6f  |+4)=.msgtrans_lo|
00005ab0  6f 6b 75 70 30 28 22 4e  4f 50 41 54 48 22 29 2b  |okup0("NOPATH")+|
00005ac0  bd 30 0d 29 36 10 20 62  6f 78 25 3d 25 31 31 30  |.0.)6. box%=%110|
00005ad0  30 31 0d 29 40 4b 20 c8  99 20 22 57 69 6d 70 5f  |01.)@K .. "Wimp_|
00005ae0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 62 25 2c  |ReportError",b%,|
00005af0  62 6f 78 25 2c a4 6d 73  67 74 72 61 6e 73 5f 6c  |box%,.msgtrans_l|
00005b00  6f 6f 6b 75 70 30 28 22  4e 4f 54 49 54 4c 22 29  |ookup0("NOTITL")|
00005b10  20 b8 20 2c 72 65 73 70  6f 6e 73 65 25 0d 29 4a  | . ,response%.)J|
00005b20  05 cc 0d 29 54 12 66 69  6c 65 25 3d ae 28 66 69  |...)T.file%=.(fi|
00005b30  6c 65 24 29 0d 29 5e 1a  f1 23 66 69 6c 65 25 2c  |le$).)^..#file%,|
00005b40  20 73 61 76 65 5f 76 65  72 73 69 6f 6e 25 0d 29  | save_version%.)|
00005b50  68 12 f1 23 66 69 6c 65  25 2c 20 6d 6f 76 65 73  |h..#file%, moves|
00005b60  0d 29 72 16 f1 23 66 69  6c 65 25 2c 20 63 6c 69  |.)r..#file%, cli|
00005b70  63 6b 61 62 6c 65 0d 29  7c 14 f1 23 66 69 6c 65  |ckable.)|..#file|
00005b80  25 2c 20 73 69 7a 65 5f  78 25 0d 29 86 14 f1 23  |%, size_x%.)...#|
00005b90  66 69 6c 65 25 2c 20 73  69 7a 65 5f 79 25 0d 29  |file%, size_y%.)|
00005ba0  90 14 f1 23 66 69 6c 65  25 2c 20 6c 61 79 6f 75  |...#file%, layou|
00005bb0  74 25 0d 29 9a 13 f1 23  66 69 6c 65 25 2c 20 73  |t%.)...#file%, s|
00005bc0  6b 69 6c 6c 25 0d 29 a4  0e e3 20 73 79 3d 31 20  |kill%.)... sy=1 |
00005bd0  b8 20 38 0d 29 ae 0e e3  20 73 78 3d 31 20 b8 20  |. 8.)... sx=1 . |
00005be0  38 0d 29 b8 2b f1 23 66  69 6c 65 25 2c 20 74 61  |8.).+.#file%, ta|
00005bf0  72 67 65 74 25 28 73 78  2c 73 79 29 2c 20 63 6f  |rget%(sx,sy), co|
00005c00  6c 6f 75 72 25 28 73 78  2c 73 79 29 0d 29 c2 05  |lour%(sx,sy).)..|
00005c10  ed 0d 29 cc 05 ed 0d 29  d6 0b d9 23 66 69 6c 65  |..)....)...#file|
00005c20  25 0d 29 e0 1e ff 28 22  53 65 74 54 79 70 65 20  |%.)...("SetType |
00005c30  22 2b 66 69 6c 65 24 2b  22 20 33 42 35 22 29 0d  |"+file$+" 3B5").|
00005c40  29 ea 05 cd 0d 29 f4 05  e1 0d 29 fe 05 3a 0d 2a  |)....)....)..:.*|
00005c50  08 0a dd f2 6c 6f 61 64  0d 2a 12 12 66 69 6c 65  |....load.*..file|
00005c60  74 79 70 65 3d 62 25 21  34 30 0d 2a 1c 10 77 69  |type=b%!40.*..wi|
00005c70  6e 64 6f 77 3d 62 25 21  32 30 0d 2a 26 0e 69 63  |ndow=b%!20.*&.ic|
00005c80  6f 6e 3d 62 25 21 32 34  0d 2a 30 10 f2 74 65 72  |on=b%!24.*0..ter|
00005c90  6d 28 62 25 2b 34 34 29  0d 2a 3a 16 66 69 6c 65  |m(b%+44).*:.file|
00005ca0  6e 61 6d 65 24 3d 24 28  62 25 2b 34 34 29 0d 2a  |name$=$(b%+44).*|
00005cb0  44 15 e7 20 66 69 6c 65  74 79 70 65 3d 26 33 42  |D.. filetype=&3B|
00005cc0  35 20 8c 0d 2a 4e 0f c8  8e 20 77 69 6e 64 6f 77  |5 ..*N... window|
00005cd0  20 ca 0d 2a 58 13 20 c9  20 2d 32 3a f4 20 69 63  | ..*X. . -2:. ic|
00005ce0  6f 6e 62 61 72 0d 2a 62  1b 20 20 f2 6c 6f 61 64  |onbar.*b.  .load|
00005cf0  5f 64 61 74 61 28 66 69  6c 65 6e 61 6d 65 24 29  |_data(filename$)|
00005d00  0d 2a 6c 05 cb 0d 2a 76  05 cd 0d 2a 80 05 e1 0d  |.*l...*v...*....|
00005d10  2a 8a 05 3a 0d 2a 94 16  dd f2 6c 6f 61 64 5f 64  |*..:.*....load_d|
00005d20  61 74 61 28 66 69 6c 65  24 29 0d 2a 9e 0f 20 64  |ata(file$).*.. d|
00005d30  6f 6e 74 6c 6f 61 64 3d  a3 0d 2a a8 12 66 69 6c  |ontload=..*..fil|
00005d40  65 25 3d 8e 28 66 69 6c  65 24 29 0d 2a b2 1a e8  |e%=.(file$).*...|
00005d50  23 66 69 6c 65 25 2c 20  73 61 76 65 5f 76 65 72  |#file%, save_ver|
00005d60  73 69 6f 6e 25 0d 2a bc  16 c8 8e 20 73 61 76 65  |sion%.*.... save|
00005d70  5f 76 65 72 73 69 6f 6e  25 20 ca 0d 2a c6 1a c9  |_version% ..*...|
00005d80  20 31 3a f4 20 2a 2a 53  41 56 45 20 56 45 52 53  | 1:. **SAVE VERS|
00005d90  49 4f 4e 2a 2a 0d 2a d0  12 e8 23 66 69 6c 65 25  |ION**.*...#file%|
00005da0  2c 20 6d 6f 76 65 73 0d  2a da 16 e8 23 66 69 6c  |, moves.*...#fil|
00005db0  65 25 2c 20 63 6c 69 63  6b 61 62 6c 65 0d 2a e4  |e%, clickable.*.|
00005dc0  14 e8 23 66 69 6c 65 25  2c 20 73 69 7a 65 5f 78  |..#file%, size_x|
00005dd0  25 0d 2a ee 14 e8 23 66  69 6c 65 25 2c 20 73 69  |%.*...#file%, si|
00005de0  7a 65 5f 79 25 0d 2a f8  14 e8 23 66 69 6c 65 25  |ze_y%.*...#file%|
00005df0  2c 20 6c 61 79 6f 75 74  25 0d 2b 02 13 e8 23 66  |, layout%.+...#f|
00005e00  69 6c 65 25 2c 20 73 6b  69 6c 6c 25 0d 2b 0c 0e  |ile%, skill%.+..|
00005e10  e3 20 73 79 3d 31 20 b8  20 38 0d 2b 16 0e e3 20  |. sy=1 . 8.+... |
00005e20  73 78 3d 31 20 b8 20 38  0d 2b 20 2b e8 23 66 69  |sx=1 . 8.+ +.#fi|
00005e30  6c 65 25 2c 20 74 61 72  67 65 74 25 28 73 78 2c  |le%, target%(sx,|
00005e40  73 79 29 2c 20 63 6f 6c  6f 75 72 25 28 73 78 2c  |sy), colour%(sx,|
00005e50  73 79 29 0d 2b 2a 05 ed  0d 2b 34 05 ed 0d 2b 3e  |sy).+*...+4...+>|
00005e60  0b d9 23 66 69 6c 65 25  0d 2b 48 05 7f 0d 2b 52  |..#file%.+H...+R|
00005e70  0b d9 23 66 69 6c 65 25  0d 2b 5c 0f 20 64 6f 6e  |..#file%.+\. don|
00005e80  74 6c 6f 61 64 3d b9 0d  2b 66 0b 20 21 62 25 3d  |tload=..+f. !b%=|
00005e90  25 31 0d 2b 70 2c 20 24  28 62 25 2b 34 29 3d a4  |%1.+p, $(b%+4)=.|
00005ea0  6d 73 67 74 72 61 6e 73  5f 6c 6f 6f 6b 75 70 30  |msgtrans_lookup0|
00005eb0  28 22 4f 4c 44 46 49 4c  45 22 29 2b bd 30 0d 2b  |("OLDFILE")+.0.+|
00005ec0  7a 10 20 62 6f 78 25 3d  25 31 31 30 30 31 0d 2b  |z. box%=%11001.+|
00005ed0  84 4c 20 c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |.L .. "Wimp_Repo|
00005ee0  72 74 45 72 72 6f 72 22  2c 62 25 2c 62 6f 78 25  |rtError",b%,box%|
00005ef0  2c a4 6d 73 67 74 72 61  6e 73 5f 6c 6f 6f 6b 75  |,.msgtrans_looku|
00005f00  70 30 28 22 4f 4c 44 54  49 54 4c 22 29 20 b8 20  |p0("OLDTITL") . |
00005f10  2c 72 65 73 70 6f 6e 73  65 25 0d 2b 8e 05 cb 0d  |,response%.+....|
00005f20  2b 98 04 0d 2b a2 12 e7  20 64 6f 6e 74 6c 6f 61  |+...+... dontloa|
00005f30  64 3d a3 20 8c 0d 2b ac  04 0d 2b b6 3e e7 20 70  |d=. ..+...+.>. p|
00005f40  6c 61 79 69 6e 67 3d b9  20 8c 20 70 6c 61 79 69  |laying=. . playi|
00005f50  6e 67 3d a3 3a f2 73 74  6f 70 5f 70 6c 61 79 69  |ng=.:.stop_playi|
00005f60  6e 67 3a f2 63 6c 6f 73  65 5f 77 69 6e 64 6f 77  |ng:.close_window|
00005f70  28 67 61 6d 65 25 29 0d  2b c0 16 f2 73 65 74 75  |(game%).+...setu|
00005f80  70 5f 67 61 6d 65 5f 77  69 6e 64 6f 77 0d 2b ca  |p_game_window.+.|
00005f90  0e f2 64 72 61 77 5f 6d  69 6e 69 0d 2b d4 11 f2  |..draw_mini.+...|
00005fa0  72 65 64 72 61 77 5f 62  6f 61 72 64 0d 2b de 04  |redraw_board.+..|
00005fb0  0d 2b e8 25 f2 73 65 74  5f 69 63 6f 6e 5f 73 74  |.+.%.set_icon_st|
00005fc0  72 69 6e 67 28 73 61 76  65 61 73 25 2c 32 2c 66  |ring(saveas%,2,f|
00005fd0  69 6c 65 24 29 0d 2b f2  04 0d 2b fc 14 f2 67 65  |ile$).+...+...ge|
00005fe0  74 5f 73 63 72 65 65 6e  5f 73 69 7a 65 0d 2c 06  |t_screen_size.,.|
00005ff0  1b 68 65 69 67 68 74 25  3d 28 73 69 7a 65 5f 79  |.height%=(size_y|
00006000  25 2b 32 29 2a 2d 37 32  0d 2c 10 1c 20 77 69 64  |%+2)*-72.,.. wid|
00006010  74 68 25 3d 28 28 73 69  7a 65 5f 78 25 2b 32 29  |th%=((size_x%+2)|
00006020  2a 37 32 29 0d 2c 1a 0d  21 62 25 3d 67 61 6d 65  |*72).,..!b%=game|
00006030  25 0d 2c 24 0b 58 32 2d  3d 31 36 30 0d 2c 2e 23  |%.,$.X2-=160.,.#|
00006040  62 25 21 34 3d 28 28 58  32 20 81 20 32 29 2d 28  |b%!4=((X2 . 2)-(|
00006050  77 69 64 74 68 25 20 81  20 32 29 29 2b 38 30 0d  |width% . 2))+80.|
00006060  2c 38 1f 62 25 21 38 3d  28 59 32 20 81 20 32 29  |,8.b%!8=(Y2 . 2)|
00006070  2b 28 68 65 69 67 68 74  25 20 81 20 32 29 0d 2c  |+(height% . 2).,|
00006080  42 24 62 25 21 31 32 3d  28 28 58 32 20 81 20 32  |B$b%!12=((X2 . 2|
00006090  29 2b 28 77 69 64 74 68  25 20 81 20 32 29 29 2b  |)+(width% . 2))+|
000060a0  38 30 0d 2c 4c 20 62 25  21 31 36 3d 28 59 32 20  |80.,L b%!16=(Y2 |
000060b0  81 20 32 29 2d 28 68 65  69 67 68 74 25 20 81 20  |. 2)-(height% . |
000060c0  32 29 0d 2c 56 13 62 25  21 32 30 3d 30 3a 62 25  |2).,V.b%!20=0:b%|
000060d0  21 32 34 3d 30 0d 2c 60  0c 62 25 21 32 38 3d 2d  |!24=0.,`.b%!28=-|
000060e0  31 0d 2c 6a 1c c8 99 20  22 57 69 6d 70 5f 4f 70  |1.,j... "Wimp_Op|
000060f0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 2c 74  |enWindow",,b%.,t|
00006100  04 0d 2c 7e 15 f2 6f 70  65 6e 5f 70 61 6e 65 28  |..,~..open_pane(|
00006110  67 61 6d 65 25 29 0d 2c  88 0d 70 6c 61 79 69 6e  |game%).,..playin|
00006120  67 3d b9 0d 2c 92 29 f2  73 65 74 5f 69 63 6f 6e  |g=..,.).set_icon|
00006130  5f 73 74 72 69 6e 67 28  67 61 6d 65 5f 70 61 6e  |_string(game_pan|
00006140  65 25 2c 32 2c c3 6d 6f  76 65 73 29 0d 2c 9c 1e  |e%,2,.moves).,..|
00006150  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 67 61 6d  |.update_icon(gam|
00006160  65 5f 70 61 6e 65 25 2c  32 29 0d 2c a6 04 0d 2c  |e_pane%,2).,...,|
00006170  b0 05 cd 0d 2c ba 04 0d  2c c4 05 e1 0d 2c ce 05  |....,...,....,..|
00006180  3a 0d 2c d8 0c dd f2 68  65 6c 70 6d 65 0d 2c e2  |:.,....helpme.,.|
00006190  11 77 69 6e 64 6f 77 25  3d 62 25 21 33 32 0d 2c  |.window%=b%!32.,|
000061a0  ec 0f 69 63 6f 6e 25 3d  62 25 21 33 36 0d 2c f6  |..icon%=b%!36.,.|
000061b0  12 68 65 6c 70 24 3d 22  48 5f 4c 4f 53 54 22 0d  |.help$="H_LOST".|
000061c0  2d 00 04 0d 2d 0a 10 c8  8e 20 77 69 6e 64 6f 77  |-...-.... window|
000061d0  25 20 ca 0d 2d 14 09 20  c9 20 2d 32 0d 2d 1e 21  |% ..-.. . -2.-.!|
000061e0  20 20 e7 20 70 6c 61 79  69 6e 67 3d a3 20 68 65  |  . playing=. he|
000061f0  6c 70 24 3d 22 48 5f 49  43 4f 4e 31 22 0d 2d 28  |lp$="H_ICON1".-(|
00006200  21 20 20 e7 20 70 6c 61  79 69 6e 67 3d b9 20 68  |!  . playing=. h|
00006210  65 6c 70 24 3d 22 48 5f  49 43 4f 4e 32 22 0d 2d  |elp$="H_ICON2".-|
00006220  32 04 0d 2d 3c 0c 20 c9  20 69 6e 66 6f 25 0d 2d  |2..-<. . info%.-|
00006230  46 14 20 20 68 65 6c 70  24 3d 22 48 5f 49 4e 46  |F.  help$="H_INF|
00006240  4f 22 0d 2d 50 10 20 20  c8 8e 20 69 63 6f 6e 25  |O".-P.  .. icon%|
00006250  20 ca 0d 2d 5a 1c 20 20  20 c9 20 30 2c 31 3a 68  | ..-Z.   . 0,1:h|
00006260  65 6c 70 24 3d 22 48 5f  49 4e 46 4f 31 22 0d 2d  |elp$="H_INFO1".-|
00006270  64 1c 20 20 20 c9 20 32  2c 33 3a 68 65 6c 70 24  |d.   . 2,3:help$|
00006280  3d 22 48 5f 49 4e 46 4f  32 22 0d 2d 6e 1c 20 20  |="H_INFO2".-n.  |
00006290  20 c9 20 34 2c 35 3a 68  65 6c 70 24 3d 22 48 5f  | . 4,5:help$="H_|
000062a0  49 4e 46 4f 33 22 0d 2d  78 1c 20 20 20 c9 20 36  |INFO3".-x.   . 6|
000062b0  2c 37 3a 68 65 6c 70 24  3d 22 48 5f 49 4e 46 4f  |,7:help$="H_INFO|
000062c0  34 22 0d 2d 82 07 20 20  cb 0d 2d 8c 04 0d 2d 96  |4".-..  ..-...-.|
000062d0  0b 20 c9 20 6f 70 74 25  0d 2d a0 13 20 20 68 65  |. . opt%.-..  he|
000062e0  6c 70 24 3d 22 48 5f 4f  50 54 22 0d 2d aa 10 20  |lp$="H_OPT".-.. |
000062f0  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 2d b4 19 20  | .. icon% ..-.. |
00006300  20 20 c9 20 31 3a 68 65  6c 70 24 3d 22 48 5f 4f  |  . 1:help$="H_O|
00006310  50 54 31 22 0d 2d be 19  20 20 20 c9 20 32 3a 68  |PT1".-..   . 2:h|
00006320  65 6c 70 24 3d 22 48 5f  4f 50 54 32 22 0d 2d c8  |elp$="H_OPT2".-.|
00006330  19 20 20 20 c9 20 33 3a  68 65 6c 70 24 3d 22 48  |.   . 3:help$="H|
00006340  5f 4f 50 54 33 22 0d 2d  d2 19 20 20 20 c9 20 34  |_OPT3".-..   . 4|
00006350  3a 68 65 6c 70 24 3d 22  48 5f 4f 50 54 34 22 0d  |:help$="H_OPT4".|
00006360  2d dc 07 20 20 cb 0d 2d  e6 04 0d 2d f0 10 20 c9  |-..  ..-...-.. .|
00006370  20 6f 70 74 5f 70 61 6e  65 25 0d 2d fa 17 20 20  | opt_pane%.-..  |
00006380  68 65 6c 70 24 3d 22 48  5f 4f 50 54 50 41 4e 45  |help$="H_OPTPANE|
00006390  22 0d 2e 04 10 20 20 c8  8e 20 69 63 6f 6e 25 20  |"....  .. icon% |
000063a0  ca 0d 2e 0e 23 20 20 20  c9 20 30 2c 31 2c 35 2c  |....#   . 0,1,5,|
000063b0  39 3a 68 65 6c 70 24 3d  22 48 5f 4f 50 54 50 41  |9:help$="H_OPTPA|
000063c0  4e 45 31 22 0d 2e 18 1d  20 20 20 c9 20 32 3a 68  |NE1"....   . 2:h|
000063d0  65 6c 70 24 3d 22 48 5f  4f 50 54 50 41 4e 45 32  |elp$="H_OPTPANE2|
000063e0  22 0d 2e 22 1d 20 20 20  c9 20 33 3a 68 65 6c 70  |"..".   . 3:help|
000063f0  24 3d 22 48 5f 4f 50 54  50 41 4e 45 33 22 0d 2e  |$="H_OPTPANE3"..|
00006400  2c 1d 20 20 20 c9 20 36  3a 68 65 6c 70 24 3d 22  |,.   . 6:help$="|
00006410  48 5f 4f 50 54 50 41 4e  45 36 22 0d 2e 36 1d 20  |H_OPTPANE6"..6. |
00006420  20 20 c9 20 37 3a 68 65  6c 70 24 3d 22 48 5f 4f  |  . 7:help$="H_O|
00006430  50 54 50 41 4e 45 37 22  0d 2e 40 1d 20 20 20 c9  |PTPANE7"..@.   .|
00006440  20 34 3a 68 65 6c 70 24  3d 22 48 5f 4f 50 54 50  | 4:help$="H_OPTP|
00006450  41 4e 45 34 22 0d 2e 4a  1d 20 20 20 c9 20 38 3a  |ANE4"..J.   . 8:|
00006460  68 65 6c 70 24 3d 22 48  5f 4f 50 54 50 41 4e 45  |help$="H_OPTPANE|
00006470  38 22 0d 2e 54 22 20 20  20 c9 20 33 30 2c 33 31  |8"..T"   . 30,31|
00006480  3a 68 65 6c 70 24 3d 22  48 5f 4f 50 54 50 41 4e  |:help$="H_OPTPAN|
00006490  45 33 30 22 0d 2e 5e 34  20 20 20 c9 20 33 32 2c  |E30"..^4   . 32,|
000064a0  33 33 2c 33 34 2c 33 35  2c 33 36 2c 33 37 2c 33  |33,34,35,36,37,3|
000064b0  38 2c 33 39 3a 68 65 6c  70 24 3d 22 48 5f 4f 50  |8,39:help$="H_OP|
000064c0  54 50 41 4e 45 33 32 22  0d 2e 68 22 20 20 20 c9  |TPANE32"..h"   .|
000064d0  20 31 30 2c 31 31 3a 68  65 6c 70 24 3d 22 48 5f  | 10,11:help$="H_|
000064e0  4f 50 54 50 41 4e 45 31  31 22 0d 2e 72 2e 20 20  |OPTPANE11"..r.  |
000064f0  20 c9 20 31 32 2c 31 33  2c 31 34 2c 31 35 2c 31  | . 12,13,14,15,1|
00006500  36 2c 31 37 3a 68 65 6c  70 24 3d 22 48 5f 4f 50  |6,17:help$="H_OP|
00006510  54 50 41 4e 45 31 36 22  0d 2e 7c 28 20 20 20 c9  |TPANE16"..|(   .|
00006520  20 31 38 2c 31 39 2c 32  38 2c 32 39 3a 68 65 6c  | 18,19,28,29:hel|
00006530  70 24 3d 22 48 5f 4f 50  54 50 41 4e 45 31 39 22  |p$="H_OPTPANE19"|
00006540  0d 2e 86 34 20 20 20 c9  20 32 30 2c 32 31 2c 32  |...4   . 20,21,2|
00006550  32 2c 32 33 2c 32 34 2c  32 35 2c 32 36 2c 32 37  |2,23,24,25,26,27|
00006560  3a 68 65 6c 70 24 3d 22  48 5f 4f 50 54 50 41 4e  |:help$="H_OPTPAN|
00006570  45 32 30 22 0d 2e 90 07  20 20 cb 0d 2e 9a 04 0d  |E20"....  ......|
00006580  2e a4 0c 20 c9 20 67 61  6d 65 25 0d 2e ae 14 20  |... . game%.... |
00006590  20 68 65 6c 70 24 3d 22  48 5f 47 41 4d 45 22 0d  | help$="H_GAME".|
000065a0  2e b8 04 0d 2e c2 11 20  c9 20 67 61 6d 65 5f 70  |....... . game_p|
000065b0  61 6e 65 25 0d 2e cc 14  20 20 68 65 6c 70 24 3d  |ane%....  help$=|
000065c0  22 48 5f 47 41 4d 45 22  0d 2e d6 10 20 20 c8 8e  |"H_GAME"....  ..|
000065d0  20 69 63 6f 6e 25 20 ca  0d 2e e0 1e 20 20 20 c9  | icon% .....   .|
000065e0  20 30 3a 68 65 6c 70 24  3d 22 48 5f 47 41 4d 45  | 0:help$="H_GAME|
000065f0  50 41 4e 45 30 22 0d 2e  ea 20 20 20 20 c9 20 31  |PANE0"...    . 1|
00006600  2c 32 3a 68 65 6c 70 24  3d 22 48 5f 47 41 4d 45  |,2:help$="H_GAME|
00006610  50 41 4e 45 31 22 0d 2e  f4 07 20 20 cb 0d 2e fe  |PANE1"....  ....|
00006620  04 0d 2f 08 0e 20 c9 20  73 61 76 65 61 73 25 0d  |../.. . saveas%.|
00006630  2f 12 15 20 20 68 65 6c  70 24 3d 22 48 5f 53 41  |/..  help$="H_SA|
00006640  56 45 31 22 0d 2f 1c 10  20 20 c8 8e 20 69 63 6f  |VE1"./..  .. ico|
00006650  6e 25 20 ca 0d 2f 26 1a  20 20 20 c9 20 31 3a 68  |n% ../&.   . 1:h|
00006660  65 6c 70 24 3d 22 48 5f  53 41 56 45 31 22 0d 2f  |elp$="H_SAVE1"./|
00006670  30 1a 20 20 20 c9 20 32  3a 68 65 6c 70 24 3d 22  |0.   . 2:help$="|
00006680  48 5f 53 41 56 45 32 22  0d 2f 3a 1a 20 20 20 c9  |H_SAVE2"./:.   .|
00006690  20 33 3a 68 65 6c 70 24  3d 22 48 5f 53 41 56 45  | 3:help$="H_SAVE|
000066a0  33 22 0d 2f 44 07 20 20  cb 0d 2f 4e 04 0d 2f 58  |3"./D.  ../N../X|
000066b0  05 cb 0d 2f 62 05 3a 0d  2f 6c 0f 62 25 21 30 30  |.../b.:./l.b%!00|
000066c0  20 3d 20 32 35 36 0d 2f  76 10 62 25 21 31 32 20  | = 256./v.b%!12 |
000066d0  3d 20 62 25 21 38 0d 2f  80 11 62 25 21 31 36 20  |= b%!8./..b%!16 |
000066e0  3d 20 26 30 35 30 33 0d  2f 8a 26 24 28 62 25 2b  |= &0503./.&$(b%+|
000066f0  32 30 29 3d 20 a4 6d 73  67 74 72 61 6e 73 5f 6c  |20)= .msgtrans_l|
00006700  6f 6f 6b 75 70 30 28 68  65 6c 70 24 29 0d 2f 94  |ookup0(help$)./.|
00006710  24 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |$.. "Wimp_SendMe|
00006720  73 73 61 67 65 22 2c 31  37 2c 62 25 2c 62 25 21  |ssage",17,b%,b%!|
00006730  34 0d 2f 9e 05 e1 0d 2f  a8 04 0d 2f b2 12 f4 20  |4./..../.../... |
00006740  3e 20 4d 73 67 54 72 61  6e 4c 69 62 0d 2f bc 2d  |> MsgTranLib./.-|
00006750  f4 20 4d 65 73 73 61 67  65 54 72 61 6e 73 20 6c  |. MessageTrans l|
00006760  69 62 72 61 72 79 20 66  6f 72 20 42 41 53 49 43  |ibrary for BASIC|
00006770  20 70 72 6f 67 72 61 6d  73 0d 2f c6 14 f4 20 62  | programs./... b|
00006780  79 20 42 65 6e 20 53 75  6d 6d 65 72 73 0d 2f d0  |y Ben Summers./.|
00006790  04 0d 2f da 1e dd f2 6d  73 67 74 72 61 6e 73 5f  |../....msgtrans_|
000067a0  69 6e 69 74 28 66 69 6c  65 6e 61 6d 65 24 29 0d  |init(filename$).|
000067b0  2f e4 3b 20 20 c8 99 20  22 4d 65 73 73 61 67 65  |/.;  .. "Message|
000067c0  54 72 61 6e 73 5f 46 69  6c 65 49 6e 66 6f 22 2c  |Trans_FileInfo",|
000067d0  20 2c 20 66 69 6c 65 6e  61 6d 65 24 20 b8 20 66  | , filename$ . f|
000067e0  25 2c 20 2c 20 73 69 7a  65 25 0d 2f ee 2a 20 20  |%, , size%./.*  |
000067f0  e7 20 28 66 25 20 80 20  31 29 20 3d 20 30 20 8c  |. (f% . 1) = 0 .|
00006800  20 de 20 6d 73 67 5f 62  75 66 66 65 72 25 20 73  | . msg_buffer% s|
00006810  69 7a 65 25 0d 2f f8 11  20 20 de 20 6d 73 67 73  |ize%./..  . msgs|
00006820  25 20 32 35 36 0d 30 02  1d 20 20 24 28 6d 73 67  |% 256.0..  $(msg|
00006830  73 25 2b 31 36 29 20 3d  20 66 69 6c 65 6e 61 6d  |s%+16) = filenam|
00006840  65 24 0d 30 0c 3e 20 20  c8 99 20 22 4d 65 73 73  |e$.0.>  .. "Mess|
00006850  61 67 65 54 72 61 6e 73  5f 4f 70 65 6e 46 69 6c  |ageTrans_OpenFil|
00006860  65 22 2c 20 6d 73 67 73  25 2c 20 6d 73 67 73 25  |e", msgs%, msgs%|
00006870  2b 31 36 2c 20 6d 73 67  5f 62 75 66 66 65 72 25  |+16, msg_buffer%|
00006880  0d 30 16 14 20 20 de 20  6d 73 67 5f 6f 75 74 25  |.0..  . msg_out%|
00006890  20 32 35 36 0d 30 20 05  e1 0d 30 2a 04 0d 30 34  | 256.0 ...0*..04|
000068a0  1e dd a4 6d 73 67 74 72  61 6e 73 5f 6c 6f 6f 6b  |...msgtrans_look|
000068b0  75 70 30 28 74 6f 6b 65  6e 24 29 0d 30 3e 54 20  |up0(token$).0>T |
000068c0  20 c8 99 20 22 4d 65 73  73 61 67 65 54 72 61 6e  | .. "MessageTran|
000068d0  73 5f 4c 6f 6f 6b 75 70  22 2c 20 6d 73 67 73 25  |s_Lookup", msgs%|
000068e0  2c 20 74 6f 6b 65 6e 24  2c 20 6d 73 67 5f 6f 75  |, token$, msg_ou|
000068f0  74 25 2c 20 32 35 36 2c  20 30 2c 20 30 2c 20 30  |t%, 256, 0, 0, 0|
00006900  2c 20 30 20 b8 20 2c 20  2c 76 61 6c 75 65 24 0d  |, 0 . , ,value$.|
00006910  30 48 0c 3d 20 76 61 6c  75 65 24 0d 30 52 04 0d  |0H.= value$.0R..|
00006920  30 5c 23 dd a4 6d 73 67  74 72 61 6e 73 5f 6c 6f  |0\#..msgtrans_lo|
00006930  6f 6b 75 70 31 28 74 6f  6b 65 6e 24 2c 20 70 30  |okup1(token$, p0|
00006940  24 29 0d 30 66 56 20 20  c8 99 20 22 4d 65 73 73  |$).0fV  .. "Mess|
00006950  61 67 65 54 72 61 6e 73  5f 4c 6f 6f 6b 75 70 22  |ageTrans_Lookup"|
00006960  2c 20 6d 73 67 73 25 2c  20 74 6f 6b 65 6e 24 2c  |, msgs%, token$,|
00006970  20 6d 73 67 5f 6f 75 74  25 2c 20 32 35 36 2c 20  | msg_out%, 256, |
00006980  70 30 24 2c 20 30 2c 20  30 2c 20 30 20 b8 20 2c  |p0$, 0, 0, 0 . ,|
00006990  20 2c 76 61 6c 75 65 24  0d 30 70 0c 3d 20 76 61  | ,value$.0p.= va|
000069a0  6c 75 65 24 0d 30 7a 04  0d 30 84 28 dd a4 6d 73  |lue$.0z..0.(..ms|
000069b0  67 74 72 61 6e 73 5f 6c  6f 6f 6b 75 70 32 28 74  |gtrans_lookup2(t|
000069c0  6f 6b 65 6e 24 2c 20 70  30 24 2c 20 70 31 24 29  |oken$, p0$, p1$)|
000069d0  0d 30 8e 58 20 20 c8 99  20 22 4d 65 73 73 61 67  |.0.X  .. "Messag|
000069e0  65 54 72 61 6e 73 5f 4c  6f 6f 6b 75 70 22 2c 20  |eTrans_Lookup", |
000069f0  6d 73 67 73 25 2c 20 74  6f 6b 65 6e 24 2c 20 6d  |msgs%, token$, m|
00006a00  73 67 5f 6f 75 74 25 2c  20 32 35 36 2c 20 70 30  |sg_out%, 256, p0|
00006a10  24 2c 20 70 31 24 2c 20  30 2c 20 30 20 b8 20 2c  |$, p1$, 0, 0 . ,|
00006a20  20 2c 76 61 6c 75 65 24  0d 30 98 0c 3d 20 76 61  | ,value$.0..= va|
00006a30  6c 75 65 24 0d 30 a2 04  0d 30 ac 2d dd a4 6d 73  |lue$.0...0.-..ms|
00006a40  67 74 72 61 6e 73 5f 6c  6f 6f 6b 75 70 33 28 74  |gtrans_lookup3(t|
00006a50  6f 6b 65 6e 24 2c 20 70  30 24 2c 20 70 31 24 2c  |oken$, p0$, p1$,|
00006a60  20 70 32 24 29 0d 30 b6  5a 20 20 c8 99 20 22 4d  | p2$).0.Z  .. "M|
00006a70  65 73 73 61 67 65 54 72  61 6e 73 5f 4c 6f 6f 6b  |essageTrans_Look|
00006a80  75 70 22 2c 20 6d 73 67  73 25 2c 20 74 6f 6b 65  |up", msgs%, toke|
00006a90  6e 24 2c 20 6d 73 67 5f  6f 75 74 25 2c 20 32 35  |n$, msg_out%, 25|
00006aa0  36 2c 20 70 30 24 2c 20  70 31 24 2c 20 70 32 24  |6, p0$, p1$, p2$|
00006ab0  2c 20 30 20 b8 20 2c 20  2c 76 61 6c 75 65 24 0d  |, 0 . , ,value$.|
00006ac0  30 c0 0c 3d 20 76 61 6c  75 65 24 0d 30 ca 04 0d  |0..= value$.0...|
00006ad0  30 d4 32 dd a4 6d 73 67  74 72 61 6e 73 5f 6c 6f  |0.2..msgtrans_lo|
00006ae0  6f 6b 75 70 34 28 74 6f  6b 65 6e 24 2c 20 70 30  |okup4(token$, p0|
00006af0  24 2c 20 70 31 24 2c 20  70 32 24 2c 20 70 33 24  |$, p1$, p2$, p3$|
00006b00  29 0d 30 de 5c 20 20 c8  99 20 22 4d 65 73 73 61  |).0.\  .. "Messa|
00006b10  67 65 54 72 61 6e 73 5f  4c 6f 6f 6b 75 70 22 2c  |geTrans_Lookup",|
00006b20  20 6d 73 67 73 25 2c 20  74 6f 6b 65 6e 24 2c 20  | msgs%, token$, |
00006b30  6d 73 67 5f 6f 75 74 25  2c 20 32 35 36 2c 20 70  |msg_out%, 256, p|
00006b40  30 24 2c 20 70 31 24 2c  20 70 32 24 2c 20 70 33  |0$, p1$, p2$, p3|
00006b50  24 20 b8 20 2c 20 2c 76  61 6c 75 65 24 0d 30 e8  |$ . , ,value$.0.|
00006b60  0c 3d 20 76 61 6c 75 65  24 0d 30 f2 04 0d 30 fc  |.= value$.0...0.|
00006b70  14 dd f2 6d 73 67 74 72  61 6e 73 5f 66 69 6e 61  |...msgtrans_fina|
00006b80  6c 0d 31 06 28 20 20 c8  99 20 22 4d 65 73 73 61  |l.1.(  .. "Messa|
00006b90  67 65 54 72 61 6e 73 5f  43 6c 6f 73 65 46 69 6c  |geTrans_CloseFil|
00006ba0  65 22 2c 20 6d 73 67 73  25 0d 31 10 05 e1 0d 31  |e", msgs%.1....1|
00006bb0  1a 04 0d 31 24 04 0d ff                           |...1$...|
00006bb8