� HEX v1.00 � J.Jarvis

�ș"Hourglass_On"

�3� � �:�" at line ";� � 10:ș"Hourglass_Smash":�
� library$(1)
&,library$(0)="<Obey$Dir>.Library.LibInit"
0-library$(1)="<Obey$Dir>.Library.Lib11_13"
:ȣ library$()
X�define_arrays
v�define_variables
�� � �error(�,�$):�quit
�,task_handle%=�task_initialise(app_name$)
��install_icon
��load_sprites
�create_windows
*	�info
H
�menus
f� � �error(�,�$)
�
�dummy
��open_window(hex_window%)
�ș"Hourglass_Off"
��wimp_poll
	�quit
~��wimp_poll
��
�9ș"Wimp_PollIdle",poll_mask%,blk%,poll_time% � event%
�Ȏ event% �
�� 0
�	�null
�� 1
��redraw_window
�� 2
��open_window_event
�� 3
(window%=!blk%:�close_window(window%)

� 6
�mouse_button
� 9
(�menu_selection
2�17
<�message
F�18
P�message
Z�
n� quit%
�	�quit
��
6
��null
Jpoll_time_inc% = 100
^� win% �
h �update_options_icons       
r �announce_winner            
|�
�� during_game% �
�G� (player%=1 � � human_player1%) � (player%=2 � � human_player2%) �
��computer_move          
�� level% = 1 �
�poll_time_inc% = 10
��
�poll_time_inc% = 1
��
��
�flash_last_move(�) 
�
&�
0�
N*ș "OS_ReadMonotonicTime" � poll_time%
Xpoll_time%+=poll_time_inc%
l�
���redraw_window
�!� redraw_window%,redraw_more%
�.ș"Wimp_RedrawWindow",,blk% � redraw_more%
�ȕ redraw_more%
�redraw_window%=!blk%
Ȏ redraw_window% �
� hex_window%
4x%=blk%!4-blk%!20
>y%=blk%!16-blk%!24
R�
fC!blk%=redraw_window%:ș"Wimp_GetRectangle",,blk% � redraw_more%
z�
��
���open_window_event
�ș "Wimp_OpenWindow",,blk%
��
	.��close_window(window%)
	8!blk%=window%
	Bș "Wimp_CloseWindow",,blk%
	L�
	�� �mouse_button
	�mousex%=blk%!0         
	�mousey%=blk%!4         
	�mousebut%=blk%!8       
	�window_handle%=blk%!12 
	�icon_handle%=blk%!16   

Ȏ window_handle% �
� icon_bar%
2�icon_bar_click
F� hex_window%
Z�hex_window_click
n� options_window%
��options_window_click
��
��
���menu_selection
� menu_path$,menu_item$
6/menu_path$=�decode_menu(current_menu%,blk%)
J menu_item$=�leaf(menu_path$)
^Ȏ current_menu% �
h� menu%(1)
|�icon_bar_menu(menu_item$)
�� menu%(2)
� �hex_window_menu(menu_item$)
��
�!ș"Wimp_GetPointerInfo",,blk%
�@�blk%!8=1 ș"Wimp_CreateMenu",,current_menu%,menu_x%,menu_y%
�
N
��message
b� message_type%
vmessage_type%=blk%!16
�Ȏ message_type% �
�� 0
�quit%=�
��
��

R��icon_bar_click

fȎ mousebut% �

p� menu_click%

�menu_context$="icon_bar"

�current_menu%=menu%(1)

�menu_x%=mousex%-64

�%menu_y%=�menu_height(menu%(1))+96
7ș "Wimp_CreateMenu",,current_menu%,menu_x%,menu_y%
.� select_click%
B�open_window(hex_window%)
V� adjust_click%
j�open_window(hex_window%)
t�open_window(score_window%)
~�update_options_icons  
�!�open_window(options_window%)
��
��
���hex_window_click

Ȏ mousebut% �
"� select_click%,adjust_click% 
25� icon_handle%>0 � icon_handle%<122 ��board_click
F� menu_click%
nmenu_context$="hex_window"
�current_menu%=menu%(2)
�menu_x%=mousex%-64
�menu_y%=mousey%
��set_menu_shades
�set_menu_ticks
"7ș "Wimp_CreateMenu",,current_menu%,menu_x%,menu_y%
6�
J�
���board_click
�� col%, row%
�row%=(icon_handle%-1) � 11
�col%=(icon_handle%-1) � 11
�� during_game% �
T� ((player%=1) � (human_player1%))�((player%=2) � (human_player2%)) ��human_move
�
&�
l��options_window_click
�Ȏ mousebut% �
�!� select_click%,adjust_click%
�Ȏ icon_handle% �
�� opt_blue_h%
�human_player2_temp% = �
�� opt_blue_c%
�human_player2_temp% = �
� opt_red_h%
 human_player1_temp% = �
>� opt_red_c%
Hhuman_player1_temp% = �
f� opt_comp_1%
plevel_temp% = 1
�� opt_comp_2%
�level_temp% = 2
�� opt_comp_3%
�level_temp% = 3
�� opt_comp_4%
�level_temp% = 4
� opt_comp_5%
level_temp% = 5
.� opt_cancel%
8?� mousebut% = select_click% ��close_window(options_window%)
B&human_player2_temp%=human_player2%
L&human_player1_temp%=human_player1%
Vlevel_temp%=level%
`�update_options_icons
~
� opt_ok%
�?� mousebut% = select_click% ��close_window(options_window%)
�&human_player2%=human_player2_temp%
�&human_player1%=human_player1_temp%
�level%=level_temp%
��set_hex_window_icons
��
��
��
n��icon_bar_menu(item$)
�Ȏ item$ �
�� "Save options"
��save_options   
�� "Quit"
�quit%=�
��
��
��hex_window_menu(item$)
"Ȏ item$ �
@� "Start new game"
J�init_newgame_variables 
T�set_hex_window_icons   
^�update_options_icons   
h�set_menu_shades        
�� "Red to start"
�starter% = 1          
��set_menu_ticks    
�� "Blue to start"
�starter% = 2          
��set_menu_ticks    
�� "Resign"
�
resign%=�
�during_game% = �
winner%=player% � 3
�update_options_icons 
&�announce_winner      
0�set_menu_ticks       
:�set_menu_shades      
X� "Show scores"
b�open_window(score_window%)
�� "Reset scores"
�red_wins% = 0
�blue_wins% = 0
��update_scores 
��open_window(score_window%)
�� "Set game options"
��update_options_icons  
�!�open_window(options_window%)
��
�
H��set_menu_shades
\� during_game% �
zC� (player%=1 � human_player1%) � (player%=2 � human_player2%) �
��shade(2,3,�)    
��
��shade(2,3,�)    
��
��shade(2,0,�)   
��shade(2,1,�)   
��shade(2,2,�)   
��
��shade(2,0,�)  
��shade(2,1,�)  
��shade(2,2,�)  
��shade(2,3,�)   
�
$�
j��set_menu_ticks
~�tick(2,1,starter%=1)
��tick(2,2,starter%=2)
��
2��error(!errorblk%,error$)
Perrorcount%+=1
d,� errorcount%>5:� � 0,"Too many errors!"
�(� �<200 error$+=" at line "+�(� �10)
�8� �=200 error$="*** Error in menu file! *** "+error$
�8� �=201 error$="***     Menu error      *** "+error$
�8� �=202 error$="***     Icon error      *** "+error$
�8� �=203 error$="***     File error      *** "+error$
�8� �=204 error$="***    Window error     *** "+error$
�ș"XOS_Find",0,menufile%
�ș"XWimp_CloseTemplate"
�ș"Hourglass_Smash"
�$(errorblk%+4)=error$
/ș "Wimp_ReportError",errorblk%,1,app_name$
�
^
��quit
hș "Wimp_CloseDown"
r�
|�
��init_newgame_variables
0board_status%() = 0
N�clear_board
bduring_game% = �
lmove%      = 1       
vresign%    = �   
�last_move_col%  = -1 
�last_move_row%  = -1 
�player%  = starter%
�starter% = starter% � 3
��
��clear_board
*#� col%,row%,window_x%,window_y%
>ș"Hourglass_On"
R� row% = 0 � 10
f"window_y%= -((10-row%)*52)-105
z� col% = 0 � 10
�$window_x%=(col%*72)+(row%*36)+10
�-�delete_icon(hex_window%,hex%(col%,row%))
�\hex%(col%,row%)=�add_icon("sprite","blank",hex_window%,window_x%,window_y%,0,sprites%,0)
�
� col%
�
� row%
�ș"Hourglass_Off"
��
L��mark_move_on_board
`� window_x%,window_y%
tmove% += 1
�&board_status%(col%,row%) = player%
�"window_y%= -((10-row%)*52)-105
�$window_x%=(col%*72)+(row%*36)+10
�-�delete_icon(hex_window%,hex%(col%,row%))
�� player% = 1 �
Zhex%(col%,row%)=�add_icon("sprite","red",hex_window%,window_x%,window_y%,0,sprites%,0)

�
[hex%(col%,row%)=�add_icon("sprite","blue",hex_window%,window_x%,window_y%,0,sprites%,0)
�
<�flash_last_move(�)
Zlast_move_col% = col%
dlast_move_row% = row%
x�win_check  
��
�%��flash_last_move(set_last_move%)
�5� use_sprite$,mark_1%,mark_2%,window_x%,window_y%
� last_move_col% > -1 �
"-window_y% = -((10-last_move_row%)*52)-105
@8window_x%=(last_move_col%*72)+(last_move_row%*36)+10
^cycle% = on_off% � 5
r%� cycle% = 0 � � set_last_move% �
|A�delete_icon(hex_window%,hex%(last_move_col%,last_move_row%))
�� player% = 1 �
�use_sprite$ = "p_blue"
��
�use_sprite$ = "p_red"
��
�thex%(last_move_col%,last_move_row%)=�add_icon("sprite",use_sprite$,hex_window%,window_x%,window_y%,0,sprites%,0)
��
�.� cycle%=1 � (set_last_move% � cycle%=0) �
�A�delete_icon(hex_window%,hex%(last_move_col%,last_move_row%))
�� player% = 1 �
�use_sprite$ = "blue"
 �
 use_sprite$ = "red"
 �
 &thex%(last_move_col%,last_move_row%)=�add_icon("sprite",use_sprite$,hex_window%,window_x%,window_y%,0,sprites%,0)
 0�
 D�
 X� set_last_move% �on_off%=1
 bon_off% += 1
 v�
 ���set_hex_window_icons
 �� label$
!� human_player1% �
! label$ = " Human  "
!*�
!4label$ = "Computer"
!>�
!H2�put_icon_text(hex_window%,report_red%,label$)
!f� human_player2% �
!plabel$ = " Human  "
!z�
!�label$ = "Computer"
!��
!�3�put_icon_text(hex_window%,report_blue%,label$)
!�8�shade_icon(hex_window%,report_blue%,� during_game%)
!�8�shade_icon(hex_window%,report_red%, � during_game%)
!�� during_game% �
!�� player% = 1 �
!�1�icon_bg_colour(hex_window%,report_red%,red%)
!�4�icon_bg_colour(hex_window%,report_blue%,white%)
"�
"3�icon_bg_colour(hex_window%,report_blue%,blue%)
"3�icon_bg_colour(hex_window%,report_red%,white%)
"$�
".�
"B�
"���update_scores
"�;�put_icon_text(score_window%,blue_score%,�(blue_wins%))
"�9�put_icon_text(score_window%,red_score%,�(red_wins%))
"��
#��update_options_icons
#Z<�select_icon(options_window%,opt_red_h%, human_player1%)
#d>�select_icon(options_window%,opt_red_c%, � human_player1%)
#n<�select_icon(options_window%,opt_blue_h%,human_player2%)
#x>�select_icon(options_window%,opt_blue_c%,� human_player2%)
#�.� level% > max_level% �level% = max_level%
#�6�select_icon(options_window%,opt_comp_1%,level%=1)
#�6�select_icon(options_window%,opt_comp_2%,level%=2)
#�6�select_icon(options_window%,opt_comp_3%,level%=3)
#�6�select_icon(options_window%,opt_comp_4%,level%=4)
#�6�select_icon(options_window%,opt_comp_5%,level%=5)
$�
$T��save_options
$h!save%=� (app_dir$+".!Config")
$r3�#save%, level%, human_player1%, human_player2%
$|�#save%
$��
%&��human_move
%:!� mousebut% = select_click% �
%X$� board_status%(col%,row%) = 0 �
%l�mark_move_on_board     
%�player% = player% � 3
%��set_hex_window_icons   
%��set_menu_shades        
%��
%��
%��
(Z=ݤadd_icon(type$,text$,window%,x%,y%,sl%,esg_sp%,border%)
(dG� icon%,text_space%,name_space%,val_space%,w%,h%,mode%,xs%,ys%,sel%
(nsel%=sl%
(�� sl%<�text$ sl%=�text$
(�� sl%<�type$ sl%=�type$
(�� text_space% sl%
*�temp_blk%!0=window%
*�temp_blk%!4=x%
*�temp_blk%!8=y%-48
+ temp_blk%!12=x%+16+16*�text$
+*temp_blk%!16=y%
+H$text_space%=text$
+ftemp_blk%!20=&17000139
+�temp_blk%!24=text_space%
+�temp_blk%!28=-1
+�temp_blk%!32=�text$
+�Ȏ �type$,5) �
+�
� "file_"
+�7ș"Wimp_SpriteOp",&28,,type$+�(0) � ,,,w%,h%,,mode%
,+ș"OS_ReadModeVariable",mode%,4 � ,,xs%
,$+ș"OS_ReadModeVariable",mode%,5 � ,,ys%
,Bh%=h%<<ys%
,Lw%=w%<<xs%
,~� text$="" �
,�temp_blk%!8=y%-h%
,�temp_blk%!12=x%+w%
,�temp_blk%!20=&1700613A
,�temp_blk%!28=1
,�temp_blk%!32=�type$
,�$text_space%=type$
,��
,�temp_blk%!8=y%-h%-(10<<ys%)
-sl%=(8<<xs%)*�text$
-
� sl%>w% w%=sl%
-temp_blk%!12=x%+w%
-temp_blk%!20=&1700612B
-(� name_space% (2+�type$)
-2$name_space%="s"+type$
-<temp_blk%!28=name_space%
-F�
-P
� "sprit"
-d=ș"OS_SpriteOp",&128,esg_sp%,text$+�(0) � ,,,w%,h%,,mode%
-�+ș"OS_ReadModeVariable",mode%,4 � ,,xs%
-�+ș"OS_ReadModeVariable",mode%,5 � ,,ys%
-�h%=h%<<ys%
-�w%=w%<<xs%
-�temp_blk%!8=y%-h%
-�temp_blk%!12=x%+w%
-�temp_blk%!20=&1700313A
-�temp_blk%!28=esg_sp%
-�temp_blk%!32=�text$
.$text_space%=text$
.
� "label"
."
� "actio"
.6temp_blk%!20=&C71F913D
.@
� "repor"
.Ttemp_blk%!20=&0700313D
.^
� "optio"
.rtemp_blk%!8=y%-52
.|#temp_blk%!12=x%+40+16+16*�text$
.�temp_blk%!20=&1700B133
.�!� sel% temp_blk%!20=&17303133
.�%� val_space% (2+�"soptoff,opton")
.�$val_space%="soptoff,opton"
.�temp_blk%!28=val_space%
.�
� "radio"
.�temp_blk%!8=y%-52
.�#temp_blk%!12=x%+40+16+16*�text$
.�+� (esg_sp%<1) � (esg_sp%>31) �esg_sp%=1
.�-temp_blk%!20=&1700B133 � (esg_sp%*&10000)
.�4� sel% temp_blk%!20=&1720B133 � (esg_sp%*&10000)
/*� text_space% (2+�"sradiooff,radioon")
/$$text_space%="sradiooff,radioon"
/&temp_blk%!28=text_space%
/0
� "write"
/: temp_blk%!12=x%+16+16*�text$
/Dtemp_blk%!20=&0700F135
/N� val_space% 16
/X$val_space%=""
/btemp_blk%!28=val_space%
/l� sel%<(�text$) sel%=�text$
/vtemp_blk%!32=sel%+1
/��
/�+ș "Wimp_CreateIcon",,temp_blk% � icon%
/�+� border%>0 �border_icon(window%,icon%)
/�
=icon%
/�.��delete_icon(window_handle%,icon_handle%)
/�� minx%,miny%,maxx%,maxy%
0temp_blk%!0=window_handle%
0temp_blk%!4=icon_handle%
0 $ș"Wimp_GetIconState",,temp_blk%
0*minx%=temp_blk%!8
04miny%=temp_blk%!12
0>maxx%=temp_blk%!16
0Hmaxy%=temp_blk%!20
0\"ș"Wimp_DeleteIcon",,temp_blk%
0p?ș"Wimp_ForceRedraw",window_handle%,minx%,miny%,maxx%,maxy%
0z�
0�9��icon_bg_colour(window_handle%,icon_handle%,colour%)
0�� colour%<0 � colour%>15 �
0�temp_blk%!0=window_handle%
0�temp_blk%!4=icon_handle%
0�$ș"Wimp_GetIconState",,temp_blk%
0�� (temp_blk%!24 � 1<<6) ��
0�temp_blk%!12=&F0000000
0�<temp_blk%!8=colour%<<28:ș"Wimp_SetIconState",,temp_blk%
1�
1B6��put_icon_text(window_handle%,icon_handle%,text$)
1Ltemp_blk%!0=window_handle%
1Vtemp_blk%!4=icon_handle%
1`$ș"Wimp_GetIconState",,temp_blk%
1t#� (temp_blk%!24 � &101)<>&101 �
1~2� 202,"Icon "+�icon_handle%+" not indirected!"
1��
1��
1� text$=�text$,temp_blk%!36-1)
1�$temp_blk%!28=text$
1�temp_blk%!8=0
1�temp_blk%!12=0
1�$ș"Wimp_SetIconState",,temp_blk%
2�
2<6��select_icon(window_handle%,icon_handle%,select%)
2Ptemp_blk%!0=window_handle%
2Ztemp_blk%!4=icon_handle%
2dtemp_blk%!12=1<<21
2n.� select% temp_blk%!8=1<<21 �temp_blk%!8=0
2x$ș"Wimp_SetIconState",,temp_blk%
2��
2�4��shade_icon(window_handle%,icon_handle%,shade%)
2�temp_blk%!0=window_handle%
2�temp_blk%!4=icon_handle%
2�temp_blk%!12=1<<22
2�-� shade% temp_blk%!8=1<<22 �temp_blk%!8=0
2�$ș"Wimp_SetIconState",,temp_blk%
3�
3�ݤitem_count(menu_ptr%)
3�� count%
3�count%=1
3�menu_ptr%+=28
3�5ȕ (!menu_ptr% � &80)=0:menu_ptr%+=24:count%+=1:�
3�=count%
4��shade(menu%,item%,shade%)
4� flagaddress%
4&#�menu%<1 � menu%>�(menu%(),1) �
407� 201,"Item shade error. Out of range menu number!"
4:�
4D1� item%<0 � item%>�item_count(menu%(menu%)) �
4N<� 201,"Item shade error. Out of range menu item number!"
4X�
4b-flagaddress%=menu%(menu%)+28+(24*item%)+8
4l'� shade%=� shade%=&400000 �shade%=0
4v6!flagaddress%=(!flagaddress% � &FFBFFFFF) � shade%
4��
4���tick(menu%,item%,tick%)
4�� flagaddress%
4�#�menu%<1 � menu%>�(menu%(),1) �
4�6� 201,"Item tick error. Out of range menu number!"
4��
4�1� item%<0 � item%>�item_count(menu%(menu%)) �
4�6� 201,"Item tick error. Out of range item number!"
5�
5+flagaddress%=menu%(menu%)+28+(24*item%)
5� tick%=� tick%=1 �tick%=0
5 5!flagaddress%=(!flagaddress% � &FFFFFFFE) � tick%
5*�
5f&ݤdecode_menu(menustart%,listptr%)
5p� text_path$
5zEș"Wimp_DecodeMenu",,menustart%,listptr%,blk%+256 � ,,,text_path$
5�=text_path$
5�ݤmenu_height(menu_ptr%)
5�#� itemcount%,linecount%,height%
5�itemcount%=1
5�%height%=menu_ptr%!20+menu_ptr%!24
5�menu_ptr%+=28
5�ȕ (!menu_ptr% � &80)=0
5�itemcount%+=1
6%� (!menu_ptr% � &2) linecount%+=1
6menu_ptr%+=24
6�
6$%� (!menu_ptr% � &2) linecount%+=1
6.%=itemcount%*height%+linecount%*24
6�ݤleaf(path$)
6�0ȕ �path$,"."):path$=�path$,�path$,".")+1):�
6�
=path$
6�line%=line%�4
7� �variable$,"$") �
7
variable$+="="+�(variable$)
7�
7� �variable$," ") �
72�
7<"variable$+="="+�(�(variable$))
7F�
7P�
7Z4�put_icon_text(show_value%,line%,�variable$,35))
7d�open_window(show_value%)
7n�
8Bݤnew_template(template_file$,window_name$,� memfree%,memend%)
8� window_handle%
8")ș"Wimp_OpenTemplate",,template_file$
8,;window_handle%=�template(window_name$,memfree%,memend%)
86ș "Wimp_CloseTemplate"
8@=window_handle%
8|(ݤtemplate(window_name$,� ptr%,end%)
8�� found%,window_handle%
8�Nș"Wimp_LoadTemplate",,blk%,ptr%,end%,-1,window_name$,0 � ,,ptr%,,,,found%
8�� found% �
8�1ș "Wimp_CreateWindow",,blk% � window_handle%
8��
8�?� � 0,"Window "+window_name$+" not found in template file!"
8�window_handle%=0
8��
8�=window_handle%
9N!��open_window(window_handle%)
9X!temp_blk%=window_handle%
9b'ș "Wimp_GetWindowState",,temp_blk%
9l#ș "Wimp_OpenWindow",,temp_blk%
9v�
�

00000000  0d 00 0a 1a f4 20 48 45  58 20 76 31 2e 30 30 20  |..... HEX v1.00 |
00000010  a9 20 4a 2e 4a 61 72 76  69 73 0d 01 e0 14 c8 99  |. J.Jarvis......|
00000020  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 01  |"Hourglass_On"..|
00000030  fe 33 ee 20 85 20 f6 3a  f1 22 20 61 74 20 6c 69  |.3. . .:." at li|
00000040  6e 65 20 22 3b 9e 20 81  20 31 30 3a c8 99 22 48  |ne ";. . 10:.."H|
00000050  6f 75 72 67 6c 61 73 73  5f 53 6d 61 73 68 22 3a  |ourglass_Smash":|
00000060  e0 0d 02 1c 11 de 20 6c  69 62 72 61 72 79 24 28  |...... library$(|
00000070  31 29 0d 02 26 2c 6c 69  62 72 61 72 79 24 28 30  |1)..&,library$(0|
00000080  29 3d 22 3c 4f 62 65 79  24 44 69 72 3e 2e 4c 69  |)="<Obey$Dir>.Li|
00000090  62 72 61 72 79 2e 4c 69  62 49 6e 69 74 22 0d 02  |brary.LibInit"..|
000000a0  30 2d 6c 69 62 72 61 72  79 24 28 31 29 3d 22 3c  |0-library$(1)="<|
000000b0  4f 62 65 79 24 44 69 72  3e 2e 4c 69 62 72 61 72  |Obey$Dir>.Librar|
000000c0  79 2e 4c 69 62 31 31 5f  31 33 22 0d 02 3a 11 c8  |y.Lib11_13"..:..|
000000d0  a3 20 6c 69 62 72 61 72  79 24 28 29 0d 02 58 12  |. library$()..X.|
000000e0  f2 64 65 66 69 6e 65 5f  61 72 72 61 79 73 0d 02  |.define_arrays..|
000000f0  76 15 f2 64 65 66 69 6e  65 5f 76 61 72 69 61 62  |v..define_variab|
00000100  6c 65 73 0d 02 94 1a ee  20 85 20 f2 65 72 72 6f  |les..... . .erro|
00000110  72 28 9f 2c f6 24 29 3a  f2 71 75 69 74 0d 02 b2  |r(.,.$):.quit...|
00000120  2c 74 61 73 6b 5f 68 61  6e 64 6c 65 25 3d a4 74  |,task_handle%=.t|
00000130  61 73 6b 5f 69 6e 69 74  69 61 6c 69 73 65 28 61  |ask_initialise(a|
00000140  70 70 5f 6e 61 6d 65 24  29 0d 02 d0 11 f2 69 6e  |pp_name$).....in|
00000150  73 74 61 6c 6c 5f 69 63  6f 6e 0d 02 ee 11 f2 6c  |stall_icon.....l|
00000160  6f 61 64 5f 73 70 72 69  74 65 73 0d 03 0c 13 f2  |oad_sprites.....|
00000170  63 72 65 61 74 65 5f 77  69 6e 64 6f 77 73 0d 03  |create_windows..|
00000180  2a 09 f2 69 6e 66 6f 0d  03 48 0a f2 6d 65 6e 75  |*..info..H..menu|
00000190  73 0d 03 66 14 ee 20 85  20 f2 65 72 72 6f 72 28  |s..f.. . .error(|
000001a0  9f 2c f6 24 29 0d 03 84  0a f2 64 75 6d 6d 79 0d  |.,.$).....dummy.|
000001b0  03 a2 1d f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |....open_window(|
000001c0  68 65 78 5f 77 69 6e 64  6f 77 25 29 0d 03 b6 15  |hex_window%)....|
000001d0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |.."Hourglass_Off|
000001e0  22 0d 03 fc 0e f2 77 69  6d 70 5f 70 6f 6c 6c 0d  |".....wimp_poll.|
000001f0  04 1a 09 f2 71 75 69 74  0d 04 7e 0f dd f2 77 69  |....quit..~...wi|
00000200  6d 70 5f 70 6f 6c 6c 0d  04 92 05 f5 0d 04 9c 39  |mp_poll........9|
00000210  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 49 64 6c 65  |.."Wimp_PollIdle|
00000220  22 2c 70 6f 6c 6c 5f 6d  61 73 6b 25 2c 62 6c 6b  |",poll_mask%,blk|
00000230  25 2c 70 6f 6c 6c 5f 74  69 6d 65 25 20 b8 20 65  |%,poll_time% . e|
00000240  76 65 6e 74 25 0d 04 b0  0f c8 8e 20 65 76 65 6e  |vent%...... even|
00000250  74 25 20 ca 0d 04 ba 07  c9 20 30 0d 04 c4 09 f2  |t% ...... 0.....|
00000260  6e 75 6c 6c 0d 04 ce 07  c9 20 31 0d 04 d8 12 f2  |null..... 1.....|
00000270  72 65 64 72 61 77 5f 77  69 6e 64 6f 77 0d 04 e2  |redraw_window...|
00000280  07 c9 20 32 0d 04 ec 16  f2 6f 70 65 6e 5f 77 69  |.. 2.....open_wi|
00000290  6e 64 6f 77 5f 65 76 65  6e 74 0d 04 f6 07 c9 20  |ndow_event..... |
000002a0  33 0d 05 00 28 77 69 6e  64 6f 77 25 3d 21 62 6c  |3...(window%=!bl|
000002b0  6b 25 3a f2 63 6c 6f 73  65 5f 77 69 6e 64 6f 77  |k%:.close_window|
000002c0  28 77 69 6e 64 6f 77 25  29 0d 05 0a 07 c9 20 36  |(window%)..... 6|
000002d0  0d 05 14 11 f2 6d 6f 75  73 65 5f 62 75 74 74 6f  |.....mouse_butto|
000002e0  6e 0d 05 1e 07 c9 20 39  0d 05 28 13 f2 6d 65 6e  |n..... 9..(..men|
000002f0  75 5f 73 65 6c 65 63 74  69 6f 6e 0d 05 32 07 c9  |u_selection..2..|
00000300  31 37 0d 05 3c 0c f2 6d  65 73 73 61 67 65 0d 05  |17..<..message..|
00000310  46 07 c9 31 38 0d 05 50  0c f2 6d 65 73 73 61 67  |F..18..P..messag|
00000320  65 0d 05 5a 05 cb 0d 05  6e 0b fd 20 71 75 69 74  |e..Z....n.. quit|
00000330  25 0d 05 8c 09 f2 71 75  69 74 0d 05 a0 05 e1 0d  |%.....quit......|
00000340  06 36 0a dd f2 6e 75 6c  6c 0d 06 4a 18 70 6f 6c  |.6...null..J.pol|
00000350  6c 5f 74 69 6d 65 5f 69  6e 63 25 20 3d 20 31 30  |l_time_inc% = 10|
00000360  30 0d 06 5e 0c e7 20 77  69 6e 25 20 8c 0d 06 68  |0..^.. win% ...h|
00000370  20 f2 75 70 64 61 74 65  5f 6f 70 74 69 6f 6e 73  | .update_options|
00000380  5f 69 63 6f 6e 73 20 20  20 20 20 20 20 0d 06 72  |_icons       ..r|
00000390  20 f2 61 6e 6e 6f 75 6e  63 65 5f 77 69 6e 6e 65  | .announce_winne|
000003a0  72 20 20 20 20 20 20 20  20 20 20 20 20 0d 06 7c  |r            ..||
000003b0  05 cc 0d 06 9a 14 e7 20  64 75 72 69 6e 67 5f 67  |....... during_g|
000003c0  61 6d 65 25 20 8c 0d 06  b8 47 e7 20 28 70 6c 61  |ame% ....G. (pla|
000003d0  79 65 72 25 3d 31 20 80  20 ac 20 68 75 6d 61 6e  |yer%=1 . . human|
000003e0  5f 70 6c 61 79 65 72 31  25 29 20 84 20 28 70 6c  |_player1%) . (pl|
000003f0  61 79 65 72 25 3d 32 20  80 20 ac 20 68 75 6d 61  |ayer%=2 . . huma|
00000400  6e 5f 70 6c 61 79 65 72  32 25 29 20 8c 0d 06 c2  |n_player2%) ....|
00000410  1c f2 63 6f 6d 70 75 74  65 72 5f 6d 6f 76 65 20  |..computer_move |
00000420  20 20 20 20 20 20 20 20  20 0d 06 cc 12 e7 20 6c  |         ..... l|
00000430  65 76 65 6c 25 20 3d 20  31 20 8c 0d 06 d6 17 70  |evel% = 1 .....p|
00000440  6f 6c 6c 5f 74 69 6d 65  5f 69 6e 63 25 20 3d 20  |oll_time_inc% = |
00000450  31 30 0d 06 e0 05 cc 0d  06 ea 16 70 6f 6c 6c 5f  |10.........poll_|
00000460  74 69 6d 65 5f 69 6e 63  25 20 3d 20 31 0d 06 f4  |time_inc% = 1...|
00000470  05 cd 0d 06 fe 05 cc 0d  07 08 18 f2 66 6c 61 73  |............flas|
00000480  68 5f 6c 61 73 74 5f 6d  6f 76 65 28 a3 29 20 0d  |h_last_move(.) .|
00000490  07 12 05 cd 0d 07 26 05  cd 0d 07 30 05 cd 0d 07  |......&....0....|
000004a0  4e 2a c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 6e  |N*.. "OS_ReadMon|
000004b0  6f 74 6f 6e 69 63 54 69  6d 65 22 20 b8 20 70 6f  |otonicTime" . po|
000004c0  6c 6c 5f 74 69 6d 65 25  0d 07 58 1e 70 6f 6c 6c  |ll_time%..X.poll|
000004d0  5f 74 69 6d 65 25 2b 3d  70 6f 6c 6c 5f 74 69 6d  |_time%+=poll_tim|
000004e0  65 5f 69 6e 63 25 0d 07  6c 05 e1 0d 07 b2 13 dd  |e_inc%..l.......|
000004f0  f2 72 65 64 72 61 77 5f  77 69 6e 64 6f 77 0d 07  |.redraw_window..|
00000500  c6 21 ea 20 72 65 64 72  61 77 5f 77 69 6e 64 6f  |.!. redraw_windo|
00000510  77 25 2c 72 65 64 72 61  77 5f 6d 6f 72 65 25 0d  |w%,redraw_more%.|
00000520  07 d0 2e c8 99 22 57 69  6d 70 5f 52 65 64 72 61  |....."Wimp_Redra|
00000530  77 57 69 6e 64 6f 77 22  2c 2c 62 6c 6b 25 20 b8  |wWindow",,blk% .|
00000540  20 72 65 64 72 61 77 5f  6d 6f 72 65 25 0d 07 e4  | redraw_more%...|
00000550  13 c8 95 20 72 65 64 72  61 77 5f 6d 6f 72 65 25  |... redraw_more%|
00000560  0d 07 ee 18 72 65 64 72  61 77 5f 77 69 6e 64 6f  |....redraw_windo|
00000570  77 25 3d 21 62 6c 6b 25  0d 08 02 17 c8 8e 20 72  |w%=!blk%...... r|
00000580  65 64 72 61 77 5f 77 69  6e 64 6f 77 25 20 ca 0d  |edraw_window% ..|
00000590  08 16 11 c9 20 68 65 78  5f 77 69 6e 64 6f 77 25  |.... hex_window%|
000005a0  0d 08 34 15 78 25 3d 62  6c 6b 25 21 34 2d 62 6c  |..4.x%=blk%!4-bl|
000005b0  6b 25 21 32 30 0d 08 3e  16 79 25 3d 62 6c 6b 25  |k%!20..>.y%=blk%|
000005c0  21 31 36 2d 62 6c 6b 25  21 32 34 0d 08 52 05 cb  |!16-blk%!24..R..|
000005d0  0d 08 66 43 21 62 6c 6b  25 3d 72 65 64 72 61 77  |..fC!blk%=redraw|
000005e0  5f 77 69 6e 64 6f 77 25  3a c8 99 22 57 69 6d 70  |_window%:.."Wimp|
000005f0  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
00000600  62 6c 6b 25 20 b8 20 72  65 64 72 61 77 5f 6d 6f  |blk% . redraw_mo|
00000610  72 65 25 0d 08 7a 05 ce  0d 08 8e 05 e1 0d 08 d4  |re%..z..........|
00000620  17 dd f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 5f 65  |...open_window_e|
00000630  76 65 6e 74 0d 08 de 1e  c8 99 20 22 57 69 6d 70  |vent...... "Wimp|
00000640  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 6c  |_OpenWindow",,bl|
00000650  6b 25 0d 08 e8 05 e1 0d  09 2e 1b dd f2 63 6c 6f  |k%...........clo|
00000660  73 65 5f 77 69 6e 64 6f  77 28 77 69 6e 64 6f 77  |se_window(window|
00000670  25 29 0d 09 38 11 21 62  6c 6b 25 3d 77 69 6e 64  |%)..8.!blk%=wind|
00000680  6f 77 25 0d 09 42 1f c8  99 20 22 57 69 6d 70 5f  |ow%..B... "Wimp_|
00000690  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
000006a0  6b 25 0d 09 4c 05 e1 0d  09 92 13 dd 20 f2 6d 6f  |k%..L....... .mo|
000006b0  75 73 65 5f 62 75 74 74  6f 6e 0d 09 c4 1b 6d 6f  |use_button....mo|
000006c0  75 73 65 78 25 3d 62 6c  6b 25 21 30 20 20 20 20  |usex%=blk%!0    |
000006d0  20 20 20 20 20 0d 09 ce  1b 6d 6f 75 73 65 79 25  |     ....mousey%|
000006e0  3d 62 6c 6b 25 21 34 20  20 20 20 20 20 20 20 20  |=blk%!4         |
000006f0  0d 09 d8 1b 6d 6f 75 73  65 62 75 74 25 3d 62 6c  |....mousebut%=bl|
00000700  6b 25 21 38 20 20 20 20  20 20 20 0d 09 e2 1b 77  |k%!8       ....w|
00000710  69 6e 64 6f 77 5f 68 61  6e 64 6c 65 25 3d 62 6c  |indow_handle%=bl|
00000720  6b 25 21 31 32 20 0d 09  ec 1b 69 63 6f 6e 5f 68  |k%!12 ....icon_h|
00000730  61 6e 64 6c 65 25 3d 62  6c 6b 25 21 31 36 20 20  |andle%=blk%!16  |
00000740  20 0d 0a 0a 17 c8 8e 20  77 69 6e 64 6f 77 5f 68  | ...... window_h|
00000750  61 6e 64 6c 65 25 20 ca  0d 0a 1e 0f c9 20 69 63  |andle% ...... ic|
00000760  6f 6e 5f 62 61 72 25 0d  0a 32 13 f2 69 63 6f 6e  |on_bar%..2..icon|
00000770  5f 62 61 72 5f 63 6c 69  63 6b 0d 0a 46 11 c9 20  |_bar_click..F.. |
00000780  68 65 78 5f 77 69 6e 64  6f 77 25 0d 0a 5a 15 f2  |hex_window%..Z..|
00000790  68 65 78 5f 77 69 6e 64  6f 77 5f 63 6c 69 63 6b  |hex_window_click|
000007a0  0d 0a 6e 15 c9 20 6f 70  74 69 6f 6e 73 5f 77 69  |..n.. options_wi|
000007b0  6e 64 6f 77 25 0d 0a 82  19 f2 6f 70 74 69 6f 6e  |ndow%.....option|
000007c0  73 5f 77 69 6e 64 6f 77  5f 63 6c 69 63 6b 0d 0a  |s_window_click..|
000007d0  96 05 cb 0d 0a aa 05 e1  0d 0a f0 14 dd f2 6d 65  |..............me|
000007e0  6e 75 5f 73 65 6c 65 63  74 69 6f 6e 0d 0b 18 1b  |nu_selection....|
000007f0  ea 20 6d 65 6e 75 5f 70  61 74 68 24 2c 6d 65 6e  |. menu_path$,men|
00000800  75 5f 69 74 65 6d 24 0d  0b 36 2f 6d 65 6e 75 5f  |u_item$..6/menu_|
00000810  70 61 74 68 24 3d a4 64  65 63 6f 64 65 5f 6d 65  |path$=.decode_me|
00000820  6e 75 28 63 75 72 72 65  6e 74 5f 6d 65 6e 75 25  |nu(current_menu%|
00000830  2c 62 6c 6b 25 29 0d 0b  4a 20 6d 65 6e 75 5f 69  |,blk%)..J menu_i|
00000840  74 65 6d 24 3d a4 6c 65  61 66 28 6d 65 6e 75 5f  |tem$=.leaf(menu_|
00000850  70 61 74 68 24 29 0d 0b  5e 16 c8 8e 20 63 75 72  |path$)..^... cur|
00000860  72 65 6e 74 5f 6d 65 6e  75 25 20 ca 0d 0b 68 0e  |rent_menu% ...h.|
00000870  c9 20 6d 65 6e 75 25 28  31 29 0d 0b 7c 1e f2 69  |. menu%(1)..|..i|
00000880  63 6f 6e 5f 62 61 72 5f  6d 65 6e 75 28 6d 65 6e  |con_bar_menu(men|
00000890  75 5f 69 74 65 6d 24 29  0d 0b 90 0e c9 20 6d 65  |u_item$)..... me|
000008a0  6e 75 25 28 32 29 0d 0b  a4 20 f2 68 65 78 5f 77  |nu%(2)... .hex_w|
000008b0  69 6e 64 6f 77 5f 6d 65  6e 75 28 6d 65 6e 75 5f  |indow_menu(menu_|
000008c0  69 74 65 6d 24 29 0d 0b  b8 05 cb 0d 0b d6 21 c8  |item$)........!.|
000008d0  99 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  |."Wimp_GetPointe|
000008e0  72 49 6e 66 6f 22 2c 2c  62 6c 6b 25 0d 0b f4 40  |rInfo",,blk%...@|
000008f0  e7 62 6c 6b 25 21 38 3d  31 20 c8 99 22 57 69 6d  |.blk%!8=1 .."Wim|
00000900  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 63  |p_CreateMenu",,c|
00000910  75 72 72 65 6e 74 5f 6d  65 6e 75 25 2c 6d 65 6e  |urrent_menu%,men|
00000920  75 5f 78 25 2c 6d 65 6e  75 5f 79 25 0d 0c 08 05  |u_x%,menu_y%....|
00000930  e1 0d 0c 4e 0d dd f2 6d  65 73 73 61 67 65 0d 0c  |...N...message..|
00000940  62 13 ea 20 6d 65 73 73  61 67 65 5f 74 79 70 65  |b.. message_type|
00000950  25 0d 0c 76 19 6d 65 73  73 61 67 65 5f 74 79 70  |%..v.message_typ|
00000960  65 25 3d 62 6c 6b 25 21  31 36 0d 0c 8a 16 c8 8e  |e%=blk%!16......|
00000970  20 6d 65 73 73 61 67 65  5f 74 79 70 65 25 20 ca  | message_type% .|
00000980  0d 0c 94 07 c9 20 30 0d  0c a8 0b 71 75 69 74 25  |..... 0....quit%|
00000990  3d b9 0d 0c b2 05 cb 0d  0c c6 05 e1 0d 0d 52 14  |=.............R.|
000009a0  dd f2 69 63 6f 6e 5f 62  61 72 5f 63 6c 69 63 6b  |..icon_bar_click|
000009b0  0d 0d 66 12 c8 8e 20 6d  6f 75 73 65 62 75 74 25  |..f... mousebut%|
000009c0  20 ca 0d 0d 70 11 c9 20  6d 65 6e 75 5f 63 6c 69  | ...p.. menu_cli|
000009d0  63 6b 25 0d 0d a2 1c 6d  65 6e 75 5f 63 6f 6e 74  |ck%....menu_cont|
000009e0  65 78 74 24 3d 22 69 63  6f 6e 5f 62 61 72 22 0d  |ext$="icon_bar".|
000009f0  0d c0 1a 63 75 72 72 65  6e 74 5f 6d 65 6e 75 25  |...current_menu%|
00000a00  3d 6d 65 6e 75 25 28 31  29 0d 0d de 16 6d 65 6e  |=menu%(1)....men|
00000a10  75 5f 78 25 3d 6d 6f 75  73 65 78 25 2d 36 34 0d  |u_x%=mousex%-64.|
00000a20  0d fc 25 6d 65 6e 75 5f  79 25 3d a4 6d 65 6e 75  |..%menu_y%=.menu|
00000a30  5f 68 65 69 67 68 74 28  6d 65 6e 75 25 28 31 29  |_height(menu%(1)|
00000a40  29 2b 39 36 0d 0e 1a 37  c8 99 20 22 57 69 6d 70  |)+96...7.. "Wimp|
00000a50  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 63 75  |_CreateMenu",,cu|
00000a60  72 72 65 6e 74 5f 6d 65  6e 75 25 2c 6d 65 6e 75  |rrent_menu%,menu|
00000a70  5f 78 25 2c 6d 65 6e 75  5f 79 25 0d 0e 2e 13 c9  |_x%,menu_y%.....|
00000a80  20 73 65 6c 65 63 74 5f  63 6c 69 63 6b 25 0d 0e  | select_click%..|
00000a90  42 1d f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 68  |B..open_window(h|
00000aa0  65 78 5f 77 69 6e 64 6f  77 25 29 0d 0e 56 13 c9  |ex_window%)..V..|
00000ab0  20 61 64 6a 75 73 74 5f  63 6c 69 63 6b 25 0d 0e  | adjust_click%..|
00000ac0  6a 1d f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 68  |j..open_window(h|
00000ad0  65 78 5f 77 69 6e 64 6f  77 25 29 0d 0e 74 1f f2  |ex_window%)..t..|
00000ae0  6f 70 65 6e 5f 77 69 6e  64 6f 77 28 73 63 6f 72  |open_window(scor|
00000af0  65 5f 77 69 6e 64 6f 77  25 29 0d 0e 7e 1b f2 75  |e_window%)..~..u|
00000b00  70 64 61 74 65 5f 6f 70  74 69 6f 6e 73 5f 69 63  |pdate_options_ic|
00000b10  6f 6e 73 20 20 0d 0e 88  21 f2 6f 70 65 6e 5f 77  |ons  ...!.open_w|
00000b20  69 6e 64 6f 77 28 6f 70  74 69 6f 6e 73 5f 77 69  |indow(options_wi|
00000b30  6e 64 6f 77 25 29 0d 0e  9c 05 cb 0d 0e b0 05 e1  |ndow%)..........|
00000b40  0d 0e f6 16 dd f2 68 65  78 5f 77 69 6e 64 6f 77  |......hex_window|
00000b50  5f 63 6c 69 63 6b 0d 0f  0a 12 c8 8e 20 6d 6f 75  |_click...... mou|
00000b60  73 65 62 75 74 25 20 ca  0d 0f 14 22 c9 20 73 65  |sebut% ....". se|
00000b70  6c 65 63 74 5f 63 6c 69  63 6b 25 2c 61 64 6a 75  |lect_click%,adju|
00000b80  73 74 5f 63 6c 69 63 6b  25 20 0d 0f 32 35 e7 20  |st_click% ..25. |
00000b90  69 63 6f 6e 5f 68 61 6e  64 6c 65 25 3e 30 20 80  |icon_handle%>0 .|
00000ba0  20 69 63 6f 6e 5f 68 61  6e 64 6c 65 25 3c 31 32  | icon_handle%<12|
00000bb0  32 20 8c f2 62 6f 61 72  64 5f 63 6c 69 63 6b 0d  |2 ..board_click.|
00000bc0  0f 46 11 c9 20 6d 65 6e  75 5f 63 6c 69 63 6b 25  |.F.. menu_click%|
00000bd0  0d 0f 6e 1e 6d 65 6e 75  5f 63 6f 6e 74 65 78 74  |..n.menu_context|
00000be0  24 3d 22 68 65 78 5f 77  69 6e 64 6f 77 22 0d 0f  |$="hex_window"..|
00000bf0  8c 1a 63 75 72 72 65 6e  74 5f 6d 65 6e 75 25 3d  |..current_menu%=|
00000c00  6d 65 6e 75 25 28 32 29  0d 0f aa 16 6d 65 6e 75  |menu%(2)....menu|
00000c10  5f 78 25 3d 6d 6f 75 73  65 78 25 2d 36 34 0d 0f  |_x%=mousex%-64..|
00000c20  c8 13 6d 65 6e 75 5f 79  25 3d 6d 6f 75 73 65 79  |..menu_y%=mousey|
00000c30  25 0d 0f e6 14 f2 73 65  74 5f 6d 65 6e 75 5f 73  |%.....set_menu_s|
00000c40  68 61 64 65 73 0d 10 04  13 f2 73 65 74 5f 6d 65  |hades.....set_me|
00000c50  6e 75 5f 74 69 63 6b 73  0d 10 22 37 c8 99 20 22  |nu_ticks.."7.. "|
00000c60  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00000c70  2c 2c 63 75 72 72 65 6e  74 5f 6d 65 6e 75 25 2c  |,,current_menu%,|
00000c80  6d 65 6e 75 5f 78 25 2c  6d 65 6e 75 5f 79 25 0d  |menu_x%,menu_y%.|
00000c90  10 36 05 cb 0d 10 4a 05  e1 0d 10 90 11 dd f2 62  |.6....J........b|
00000ca0  6f 61 72 64 5f 63 6c 69  63 6b 0d 10 a4 10 ea 20  |oard_click..... |
00000cb0  63 6f 6c 25 2c 20 72 6f  77 25 0d 10 d6 1e 72 6f  |col%, row%....ro|
00000cc0  77 25 3d 28 69 63 6f 6e  5f 68 61 6e 64 6c 65 25  |w%=(icon_handle%|
00000cd0  2d 31 29 20 81 20 31 31  0d 10 e0 1e 63 6f 6c 25  |-1) . 11....col%|
00000ce0  3d 28 69 63 6f 6e 5f 68  61 6e 64 6c 65 25 2d 31  |=(icon_handle%-1|
00000cf0  29 20 83 20 31 31 0d 10  fe 14 e7 20 64 75 72 69  |) . 11..... duri|
00000d00  6e 67 5f 67 61 6d 65 25  20 8c 0d 11 08 54 e7 20  |ng_game% ....T. |
00000d10  28 28 70 6c 61 79 65 72  25 3d 31 29 20 80 20 28  |((player%=1) . (|
00000d20  68 75 6d 61 6e 5f 70 6c  61 79 65 72 31 25 29 29  |human_player1%))|
00000d30  84 28 28 70 6c 61 79 65  72 25 3d 32 29 20 80 20  |.((player%=2) . |
00000d40  28 68 75 6d 61 6e 5f 70  6c 61 79 65 72 32 25 29  |(human_player2%)|
00000d50  29 20 8c f2 68 75 6d 61  6e 5f 6d 6f 76 65 0d 11  |) ..human_move..|
00000d60  12 05 cd 0d 11 26 05 e1  0d 11 6c 1a dd f2 6f 70  |.....&....l...op|
00000d70  74 69 6f 6e 73 5f 77 69  6e 64 6f 77 5f 63 6c 69  |tions_window_cli|
00000d80  63 6b 0d 11 80 12 c8 8e  20 6d 6f 75 73 65 62 75  |ck...... mousebu|
00000d90  74 25 20 ca 0d 11 8a 21  c9 20 73 65 6c 65 63 74  |t% ....!. select|
00000da0  5f 63 6c 69 63 6b 25 2c  61 64 6a 75 73 74 5f 63  |_click%,adjust_c|
00000db0  6c 69 63 6b 25 0d 11 a8  15 c8 8e 20 69 63 6f 6e  |lick%...... icon|
00000dc0  5f 68 61 6e 64 6c 65 25  20 ca 0d 11 c6 11 c9 20  |_handle% ...... |
00000dd0  6f 70 74 5f 62 6c 75 65  5f 68 25 0d 11 d0 1b 68  |opt_blue_h%....h|
00000de0  75 6d 61 6e 5f 70 6c 61  79 65 72 32 5f 74 65 6d  |uman_player2_tem|
00000df0  70 25 20 3d 20 b9 0d 11  ee 11 c9 20 6f 70 74 5f  |p% = ...... opt_|
00000e00  62 6c 75 65 5f 63 25 0d  11 f8 1b 68 75 6d 61 6e  |blue_c%....human|
00000e10  5f 70 6c 61 79 65 72 32  5f 74 65 6d 70 25 20 3d  |_player2_temp% =|
00000e20  20 a3 0d 12 16 10 c9 20  6f 70 74 5f 72 65 64 5f  | ...... opt_red_|
00000e30  68 25 0d 12 20 1b 68 75  6d 61 6e 5f 70 6c 61 79  |h%.. .human_play|
00000e40  65 72 31 5f 74 65 6d 70  25 20 3d 20 b9 0d 12 3e  |er1_temp% = ...>|
00000e50  10 c9 20 6f 70 74 5f 72  65 64 5f 63 25 0d 12 48  |.. opt_red_c%..H|
00000e60  1b 68 75 6d 61 6e 5f 70  6c 61 79 65 72 31 5f 74  |.human_player1_t|
00000e70  65 6d 70 25 20 3d 20 a3  0d 12 66 11 c9 20 6f 70  |emp% = ...f.. op|
00000e80  74 5f 63 6f 6d 70 5f 31  25 0d 12 70 13 6c 65 76  |t_comp_1%..p.lev|
00000e90  65 6c 5f 74 65 6d 70 25  20 3d 20 31 0d 12 8e 11  |el_temp% = 1....|
00000ea0  c9 20 6f 70 74 5f 63 6f  6d 70 5f 32 25 0d 12 98  |. opt_comp_2%...|
00000eb0  13 6c 65 76 65 6c 5f 74  65 6d 70 25 20 3d 20 32  |.level_temp% = 2|
00000ec0  0d 12 b6 11 c9 20 6f 70  74 5f 63 6f 6d 70 5f 33  |..... opt_comp_3|
00000ed0  25 0d 12 c0 13 6c 65 76  65 6c 5f 74 65 6d 70 25  |%....level_temp%|
00000ee0  20 3d 20 33 0d 12 de 11  c9 20 6f 70 74 5f 63 6f  | = 3..... opt_co|
00000ef0  6d 70 5f 34 25 0d 12 e8  13 6c 65 76 65 6c 5f 74  |mp_4%....level_t|
00000f00  65 6d 70 25 20 3d 20 34  0d 13 06 11 c9 20 6f 70  |emp% = 4..... op|
00000f10  74 5f 63 6f 6d 70 5f 35  25 0d 13 10 13 6c 65 76  |t_comp_5%....lev|
00000f20  65 6c 5f 74 65 6d 70 25  20 3d 20 35 0d 13 2e 11  |el_temp% = 5....|
00000f30  c9 20 6f 70 74 5f 63 61  6e 63 65 6c 25 0d 13 38  |. opt_cancel%..8|
00000f40  3f e7 20 6d 6f 75 73 65  62 75 74 25 20 3d 20 73  |?. mousebut% = s|
00000f50  65 6c 65 63 74 5f 63 6c  69 63 6b 25 20 8c f2 63  |elect_click% ..c|
00000f60  6c 6f 73 65 5f 77 69 6e  64 6f 77 28 6f 70 74 69  |lose_window(opti|
00000f70  6f 6e 73 5f 77 69 6e 64  6f 77 25 29 0d 13 42 26  |ons_window%)..B&|
00000f80  68 75 6d 61 6e 5f 70 6c  61 79 65 72 32 5f 74 65  |human_player2_te|
00000f90  6d 70 25 3d 68 75 6d 61  6e 5f 70 6c 61 79 65 72  |mp%=human_player|
00000fa0  32 25 0d 13 4c 26 68 75  6d 61 6e 5f 70 6c 61 79  |2%..L&human_play|
00000fb0  65 72 31 5f 74 65 6d 70  25 3d 68 75 6d 61 6e 5f  |er1_temp%=human_|
00000fc0  70 6c 61 79 65 72 31 25  0d 13 56 16 6c 65 76 65  |player1%..V.leve|
00000fd0  6c 5f 74 65 6d 70 25 3d  6c 65 76 65 6c 25 0d 13  |l_temp%=level%..|
00000fe0  60 19 f2 75 70 64 61 74  65 5f 6f 70 74 69 6f 6e  |`..update_option|
00000ff0  73 5f 69 63 6f 6e 73 0d  13 7e 0d c9 20 6f 70 74  |s_icons..~.. opt|
00001000  5f 6f 6b 25 0d 13 88 3f  e7 20 6d 6f 75 73 65 62  |_ok%...?. mouseb|
00001010  75 74 25 20 3d 20 73 65  6c 65 63 74 5f 63 6c 69  |ut% = select_cli|
00001020  63 6b 25 20 8c f2 63 6c  6f 73 65 5f 77 69 6e 64  |ck% ..close_wind|
00001030  6f 77 28 6f 70 74 69 6f  6e 73 5f 77 69 6e 64 6f  |ow(options_windo|
00001040  77 25 29 0d 13 92 26 68  75 6d 61 6e 5f 70 6c 61  |w%)...&human_pla|
00001050  79 65 72 32 25 3d 68 75  6d 61 6e 5f 70 6c 61 79  |yer2%=human_play|
00001060  65 72 32 5f 74 65 6d 70  25 0d 13 9c 26 68 75 6d  |er2_temp%...&hum|
00001070  61 6e 5f 70 6c 61 79 65  72 31 25 3d 68 75 6d 61  |an_player1%=huma|
00001080  6e 5f 70 6c 61 79 65 72  31 5f 74 65 6d 70 25 0d  |n_player1_temp%.|
00001090  13 a6 16 6c 65 76 65 6c  25 3d 6c 65 76 65 6c 5f  |...level%=level_|
000010a0  74 65 6d 70 25 0d 13 b0  19 f2 73 65 74 5f 68 65  |temp%.....set_he|
000010b0  78 5f 77 69 6e 64 6f 77  5f 69 63 6f 6e 73 0d 13  |x_window_icons..|
000010c0  c4 05 cb 0d 13 ce 05 cb  0d 13 d8 05 e1 0d 14 6e  |...............n|
000010d0  1a dd f2 69 63 6f 6e 5f  62 61 72 5f 6d 65 6e 75  |...icon_bar_menu|
000010e0  28 69 74 65 6d 24 29 0d  14 82 0e c8 8e 20 69 74  |(item$)...... it|
000010f0  65 6d 24 20 ca 0d 14 8c  14 c9 20 22 53 61 76 65  |em$ ...... "Save|
00001100  20 6f 70 74 69 6f 6e 73  22 0d 14 96 14 f2 73 61  | options".....sa|
00001110  76 65 5f 6f 70 74 69 6f  6e 73 20 20 20 0d 14 a0  |ve_options   ...|
00001120  0c c9 20 22 51 75 69 74  22 0d 14 aa 0b 71 75 69  |.. "Quit"....qui|
00001130  74 25 3d b9 0d 14 b4 05  cb 0d 14 c8 05 e1 0d 15  |t%=.............|
00001140  0e 1c dd f2 68 65 78 5f  77 69 6e 64 6f 77 5f 6d  |....hex_window_m|
00001150  65 6e 75 28 69 74 65 6d  24 29 0d 15 22 0e c8 8e  |enu(item$).."...|
00001160  20 69 74 65 6d 24 20 ca  0d 15 40 16 c9 20 22 53  | item$ ...@.. "S|
00001170  74 61 72 74 20 6e 65 77  20 67 61 6d 65 22 0d 15  |tart new game"..|
00001180  4a 1c f2 69 6e 69 74 5f  6e 65 77 67 61 6d 65 5f  |J..init_newgame_|
00001190  76 61 72 69 61 62 6c 65  73 20 0d 15 54 1c f2 73  |variables ..T..s|
000011a0  65 74 5f 68 65 78 5f 77  69 6e 64 6f 77 5f 69 63  |et_hex_window_ic|
000011b0  6f 6e 73 20 20 20 0d 15  5e 1c f2 75 70 64 61 74  |ons   ..^..updat|
000011c0  65 5f 6f 70 74 69 6f 6e  73 5f 69 63 6f 6e 73 20  |e_options_icons |
000011d0  20 20 0d 15 68 1c f2 73  65 74 5f 6d 65 6e 75 5f  |  ..h..set_menu_|
000011e0  73 68 61 64 65 73 20 20  20 20 20 20 20 20 0d 15  |shades        ..|
000011f0  86 14 c9 20 22 52 65 64  20 74 6f 20 73 74 61 72  |... "Red to star|
00001200  74 22 0d 15 90 1a 73 74  61 72 74 65 72 25 20 3d  |t"....starter% =|
00001210  20 31 20 20 20 20 20 20  20 20 20 20 0d 15 9a 17  | 1          ....|
00001220  f2 73 65 74 5f 6d 65 6e  75 5f 74 69 63 6b 73 20  |.set_menu_ticks |
00001230  20 20 20 0d 15 b8 15 c9  20 22 42 6c 75 65 20 74  |   ..... "Blue t|
00001240  6f 20 73 74 61 72 74 22  0d 15 c2 1a 73 74 61 72  |o start"....star|
00001250  74 65 72 25 20 3d 20 32  20 20 20 20 20 20 20 20  |ter% = 2        |
00001260  20 20 0d 15 cc 17 f2 73  65 74 5f 6d 65 6e 75 5f  |  .....set_menu_|
00001270  74 69 63 6b 73 20 20 20  20 0d 15 ea 0e c9 20 22  |ticks    ..... "|
00001280  52 65 73 69 67 6e 22 0d  15 f4 0d 72 65 73 69 67  |Resign"....resig|
00001290  6e 25 3d b9 0d 15 fe 14  64 75 72 69 6e 67 5f 67  |n%=.....during_g|
000012a0  61 6d 65 25 20 3d 20 a3  0d 16 12 17 77 69 6e 6e  |ame% = .....winn|
000012b0  65 72 25 3d 70 6c 61 79  65 72 25 20 82 20 33 0d  |er%=player% . 3.|
000012c0  16 1c 1a f2 75 70 64 61  74 65 5f 6f 70 74 69 6f  |....update_optio|
000012d0  6e 73 5f 69 63 6f 6e 73  20 0d 16 26 1a f2 61 6e  |ns_icons ..&..an|
000012e0  6e 6f 75 6e 63 65 5f 77  69 6e 6e 65 72 20 20 20  |nounce_winner   |
000012f0  20 20 20 0d 16 30 1a f2  73 65 74 5f 6d 65 6e 75  |   ..0..set_menu|
00001300  5f 74 69 63 6b 73 20 20  20 20 20 20 20 0d 16 3a  |_ticks       ..:|
00001310  1a f2 73 65 74 5f 6d 65  6e 75 5f 73 68 61 64 65  |..set_menu_shade|
00001320  73 20 20 20 20 20 20 0d  16 58 13 c9 20 22 53 68  |s      ..X.. "Sh|
00001330  6f 77 20 73 63 6f 72 65  73 22 0d 16 62 1f f2 6f  |ow scores"..b..o|
00001340  70 65 6e 5f 77 69 6e 64  6f 77 28 73 63 6f 72 65  |pen_window(score|
00001350  5f 77 69 6e 64 6f 77 25  29 0d 16 80 14 c9 20 22  |_window%)..... "|
00001360  52 65 73 65 74 20 73 63  6f 72 65 73 22 0d 16 8a  |Reset scores"...|
00001370  11 72 65 64 5f 77 69 6e  73 25 20 3d 20 30 0d 16  |.red_wins% = 0..|
00001380  94 12 62 6c 75 65 5f 77  69 6e 73 25 20 3d 20 30  |..blue_wins% = 0|
00001390  0d 16 9e 13 f2 75 70 64  61 74 65 5f 73 63 6f 72  |.....update_scor|
000013a0  65 73 20 0d 16 a8 1f f2  6f 70 65 6e 5f 77 69 6e  |es .....open_win|
000013b0  64 6f 77 28 73 63 6f 72  65 5f 77 69 6e 64 6f 77  |dow(score_window|
000013c0  25 29 0d 16 c6 18 c9 20  22 53 65 74 20 67 61 6d  |%)..... "Set gam|
000013d0  65 20 6f 70 74 69 6f 6e  73 22 0d 16 d0 1b f2 75  |e options".....u|
000013e0  70 64 61 74 65 5f 6f 70  74 69 6f 6e 73 5f 69 63  |pdate_options_ic|
000013f0  6f 6e 73 20 20 0d 16 da  21 f2 6f 70 65 6e 5f 77  |ons  ...!.open_w|
00001400  69 6e 64 6f 77 28 6f 70  74 69 6f 6e 73 5f 77 69  |indow(options_wi|
00001410  6e 64 6f 77 25 29 0d 16  ee 05 cb 0d 17 02 05 e1  |ndow%)..........|
00001420  0d 17 48 15 dd f2 73 65  74 5f 6d 65 6e 75 5f 73  |..H...set_menu_s|
00001430  68 61 64 65 73 0d 17 5c  14 e7 20 64 75 72 69 6e  |hades..\.. durin|
00001440  67 5f 67 61 6d 65 25 20  8c 0d 17 7a 43 e7 20 28  |g_game% ...zC. (|
00001450  70 6c 61 79 65 72 25 3d  31 20 80 20 68 75 6d 61  |player%=1 . huma|
00001460  6e 5f 70 6c 61 79 65 72  31 25 29 20 84 20 28 70  |n_player1%) . (p|
00001470  6c 61 79 65 72 25 3d 32  20 80 20 68 75 6d 61 6e  |layer%=2 . human|
00001480  5f 70 6c 61 79 65 72 32  25 29 20 8c 0d 17 84 15  |_player2%) .....|
00001490  f2 73 68 61 64 65 28 32  2c 33 2c a3 29 20 20 20  |.shade(2,3,.)   |
000014a0  20 0d 17 8e 05 cc 0d 17  98 15 f2 73 68 61 64 65  | ..........shade|
000014b0  28 32 2c 33 2c b9 29 20  20 20 20 0d 17 a2 05 cd  |(2,3,.)    .....|
000014c0  0d 17 b6 14 f2 73 68 61  64 65 28 32 2c 30 2c b9  |.....shade(2,0,.|
000014d0  29 20 20 20 0d 17 c0 14  f2 73 68 61 64 65 28 32  |)   .....shade(2|
000014e0  2c 31 2c b9 29 20 20 20  0d 17 ca 14 f2 73 68 61  |,1,.)   .....sha|
000014f0  64 65 28 32 2c 32 2c b9  29 20 20 20 0d 17 d4 05  |de(2,2,.)   ....|
00001500  cc 0d 17 de 13 f2 73 68  61 64 65 28 32 2c 30 2c  |......shade(2,0,|
00001510  a3 29 20 20 0d 17 e8 13  f2 73 68 61 64 65 28 32  |.)  .....shade(2|
00001520  2c 31 2c a3 29 20 20 0d  17 f2 13 f2 73 68 61 64  |,1,.)  .....shad|
00001530  65 28 32 2c 32 2c a3 29  20 20 0d 17 fc 14 f2 73  |e(2,2,.)  .....s|
00001540  68 61 64 65 28 32 2c 33  2c b9 29 20 20 20 0d 18  |hade(2,3,.)   ..|
00001550  10 05 cd 0d 18 24 05 e1  0d 18 6a 14 dd f2 73 65  |.....$....j...se|
00001560  74 5f 6d 65 6e 75 5f 74  69 63 6b 73 0d 18 7e 19  |t_menu_ticks..~.|
00001570  f2 74 69 63 6b 28 32 2c  31 2c 73 74 61 72 74 65  |.tick(2,1,starte|
00001580  72 25 3d 31 29 0d 18 88  19 f2 74 69 63 6b 28 32  |r%=1).....tick(2|
00001590  2c 32 2c 73 74 61 72 74  65 72 25 3d 32 29 0d 18  |,2,starter%=2)..|
000015a0  9c 05 e1 0d 19 32 1e dd  f2 65 72 72 6f 72 28 21  |.....2...error(!|
000015b0  65 72 72 6f 72 62 6c 6b  25 2c 65 72 72 6f 72 24  |errorblk%,error$|
000015c0  29 0d 19 50 12 65 72 72  6f 72 63 6f 75 6e 74 25  |)..P.errorcount%|
000015d0  2b 3d 31 0d 19 64 2c e7  20 65 72 72 6f 72 63 6f  |+=1..d,. errorco|
000015e0  75 6e 74 25 3e 35 3a 85  20 a2 20 30 2c 22 54 6f  |unt%>5:. . 0,"To|
000015f0  6f 20 6d 61 6e 79 20 65  72 72 6f 72 73 21 22 0d  |o many errors!".|
00001600  19 82 28 e7 20 9f 3c 32  30 30 20 65 72 72 6f 72  |..(. .<200 error|
00001610  24 2b 3d 22 20 61 74 20  6c 69 6e 65 20 22 2b c3  |$+=" at line "+.|
00001620  28 9e 20 81 31 30 29 0d  19 8c 38 e7 20 9f 3d 32  |(. .10)...8. .=2|
00001630  30 30 20 65 72 72 6f 72  24 3d 22 2a 2a 2a 20 45  |00 error$="*** E|
00001640  72 72 6f 72 20 69 6e 20  6d 65 6e 75 20 66 69 6c  |rror in menu fil|
00001650  65 21 20 2a 2a 2a 20 22  2b 65 72 72 6f 72 24 0d  |e! *** "+error$.|
00001660  19 96 38 e7 20 9f 3d 32  30 31 20 65 72 72 6f 72  |..8. .=201 error|
00001670  24 3d 22 2a 2a 2a 20 20  20 20 20 4d 65 6e 75 20  |$="***     Menu |
00001680  65 72 72 6f 72 20 20 20  20 20 20 2a 2a 2a 20 22  |error      *** "|
00001690  2b 65 72 72 6f 72 24 0d  19 a0 38 e7 20 9f 3d 32  |+error$...8. .=2|
000016a0  30 32 20 65 72 72 6f 72  24 3d 22 2a 2a 2a 20 20  |02 error$="***  |
000016b0  20 20 20 49 63 6f 6e 20  65 72 72 6f 72 20 20 20  |   Icon error   |
000016c0  20 20 20 2a 2a 2a 20 22  2b 65 72 72 6f 72 24 0d  |   *** "+error$.|
000016d0  19 aa 38 e7 20 9f 3d 32  30 33 20 65 72 72 6f 72  |..8. .=203 error|
000016e0  24 3d 22 2a 2a 2a 20 20  20 20 20 46 69 6c 65 20  |$="***     File |
000016f0  65 72 72 6f 72 20 20 20  20 20 20 2a 2a 2a 20 22  |error      *** "|
00001700  2b 65 72 72 6f 72 24 0d  19 b4 38 e7 20 9f 3d 32  |+error$...8. .=2|
00001710  30 34 20 65 72 72 6f 72  24 3d 22 2a 2a 2a 20 20  |04 error$="***  |
00001720  20 20 57 69 6e 64 6f 77  20 65 72 72 6f 72 20 20  |  Window error  |
00001730  20 20 20 2a 2a 2a 20 22  2b 65 72 72 6f 72 24 0d  |   *** "+error$.|
00001740  19 d2 1c c8 99 22 58 4f  53 5f 46 69 6e 64 22 2c  |....."XOS_Find",|
00001750  30 2c 6d 65 6e 75 66 69  6c 65 25 0d 19 dc 1b c8  |0,menufile%.....|
00001760  99 22 58 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |."XWimp_CloseTem|
00001770  70 6c 61 74 65 22 0d 19  e6 17 c8 99 22 48 6f 75  |plate"......"Hou|
00001780  72 67 6c 61 73 73 5f 53  6d 61 73 68 22 0d 19 fa  |rglass_Smash"...|
00001790  19 24 28 65 72 72 6f 72  62 6c 6b 25 2b 34 29 3d  |.$(errorblk%+4)=|
000017a0  65 72 72 6f 72 24 0d 1a  04 2f c8 99 20 22 57 69  |error$.../.. "Wi|
000017b0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
000017c0  65 72 72 6f 72 62 6c 6b  25 2c 31 2c 61 70 70 5f  |errorblk%,1,app_|
000017d0  6e 61 6d 65 24 0d 1a 18  05 e1 0d 1a 5e 0a dd f2  |name$.......^...|
000017e0  71 75 69 74 0d 1a 68 17  c8 99 20 22 57 69 6d 70  |quit..h... "Wimp|
000017f0  5f 43 6c 6f 73 65 44 6f  77 6e 22 0d 1a 72 05 e0  |_CloseDown"..r..|
00001800  0d 1a 7c 05 e1 0d 1b 12  1c dd f2 69 6e 69 74 5f  |..|........init_|
00001810  6e 65 77 67 61 6d 65 5f  76 61 72 69 61 62 6c 65  |newgame_variable|
00001820  73 0d 1b 30 17 62 6f 61  72 64 5f 73 74 61 74 75  |s..0.board_statu|
00001830  73 25 28 29 20 3d 20 30  0d 1b 4e 10 f2 63 6c 65  |s%() = 0..N..cle|
00001840  61 72 5f 62 6f 61 72 64  0d 1b 62 14 64 75 72 69  |ar_board..b.duri|
00001850  6e 67 5f 67 61 6d 65 25  20 3d 20 b9 0d 1b 6c 19  |ng_game% = ...l.|
00001860  6d 6f 76 65 25 20 20 20  20 20 20 3d 20 31 20 20  |move%      = 1  |
00001870  20 20 20 20 20 0d 1b 76  15 72 65 73 69 67 6e 25  |     ..v.resign%|
00001880  20 20 20 20 3d 20 a3 20  20 20 0d 1b 80 19 6c 61  |    = .   ....la|
00001890  73 74 5f 6d 6f 76 65 5f  63 6f 6c 25 20 20 3d 20  |st_move_col%  = |
000018a0  2d 31 20 0d 1b 8a 19 6c  61 73 74 5f 6d 6f 76 65  |-1 ....last_move|
000018b0  5f 72 6f 77 25 20 20 3d  20 2d 31 20 0d 1b 9e 17  |_row%  = -1 ....|
000018c0  70 6c 61 79 65 72 25 20  20 3d 20 73 74 61 72 74  |player%  = start|
000018d0  65 72 25 0d 1b bc 1b 73  74 61 72 74 65 72 25 20  |er%....starter% |
000018e0  3d 20 73 74 61 72 74 65  72 25 20 82 20 33 0d 1b  |= starter% . 3..|
000018f0  d0 05 e1 0d 1c 16 11 dd  f2 63 6c 65 61 72 5f 62  |.........clear_b|
00001900  6f 61 72 64 0d 1c 2a 23  ea 20 63 6f 6c 25 2c 72  |oard..*#. col%,r|
00001910  6f 77 25 2c 77 69 6e 64  6f 77 5f 78 25 2c 77 69  |ow%,window_x%,wi|
00001920  6e 64 6f 77 5f 79 25 0d  1c 3e 14 c8 99 22 48 6f  |ndow_y%..>..."Ho|
00001930  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 1c 52 13 e3  |urglass_On"..R..|
00001940  20 72 6f 77 25 20 3d 20  30 20 b8 20 31 30 0d 1c  | row% = 0 . 10..|
00001950  66 22 77 69 6e 64 6f 77  5f 79 25 3d 20 2d 28 28  |f"window_y%= -((|
00001960  31 30 2d 72 6f 77 25 29  2a 35 32 29 2d 31 30 35  |10-row%)*52)-105|
00001970  0d 1c 7a 13 e3 20 63 6f  6c 25 20 3d 20 30 20 b8  |..z.. col% = 0 .|
00001980  20 31 30 0d 1c 98 24 77  69 6e 64 6f 77 5f 78 25  | 10...$window_x%|
00001990  3d 28 63 6f 6c 25 2a 37  32 29 2b 28 72 6f 77 25  |=(col%*72)+(row%|
000019a0  2a 33 36 29 2b 31 30 0d  1c ac 2d f2 64 65 6c 65  |*36)+10...-.dele|
000019b0  74 65 5f 69 63 6f 6e 28  68 65 78 5f 77 69 6e 64  |te_icon(hex_wind|
000019c0  6f 77 25 2c 68 65 78 25  28 63 6f 6c 25 2c 72 6f  |ow%,hex%(col%,ro|
000019d0  77 25 29 29 0d 1c c0 5c  68 65 78 25 28 63 6f 6c  |w%))...\hex%(col|
000019e0  25 2c 72 6f 77 25 29 3d  a4 61 64 64 5f 69 63 6f  |%,row%)=.add_ico|
000019f0  6e 28 22 73 70 72 69 74  65 22 2c 22 62 6c 61 6e  |n("sprite","blan|
00001a00  6b 22 2c 68 65 78 5f 77  69 6e 64 6f 77 25 2c 77  |k",hex_window%,w|
00001a10  69 6e 64 6f 77 5f 78 25  2c 77 69 6e 64 6f 77 5f  |indow_x%,window_|
00001a20  79 25 2c 30 2c 73 70 72  69 74 65 73 25 2c 30 29  |y%,0,sprites%,0)|
00001a30  0d 1c ca 0a ed 20 63 6f  6c 25 0d 1c d4 0a ed 20  |..... col%..... |
00001a40  72 6f 77 25 0d 1c e8 15  c8 99 22 48 6f 75 72 67  |row%......"Hourg|
00001a50  6c 61 73 73 5f 4f 66 66  22 0d 1c fc 05 e1 0d 1d  |lass_Off".......|
00001a60  4c 18 dd f2 6d 61 72 6b  5f 6d 6f 76 65 5f 6f 6e  |L...mark_move_on|
00001a70  5f 62 6f 61 72 64 0d 1d  60 19 ea 20 77 69 6e 64  |_board..`.. wind|
00001a80  6f 77 5f 78 25 2c 77 69  6e 64 6f 77 5f 79 25 0d  |ow_x%,window_y%.|
00001a90  1d 74 0e 6d 6f 76 65 25  20 2b 3d 20 31 0d 1d 92  |.t.move% += 1...|
00001aa0  26 62 6f 61 72 64 5f 73  74 61 74 75 73 25 28 63  |&board_status%(c|
00001ab0  6f 6c 25 2c 72 6f 77 25  29 20 3d 20 70 6c 61 79  |ol%,row%) = play|
00001ac0  65 72 25 0d 1d b0 22 77  69 6e 64 6f 77 5f 79 25  |er%..."window_y%|
00001ad0  3d 20 2d 28 28 31 30 2d  72 6f 77 25 29 2a 35 32  |= -((10-row%)*52|
00001ae0  29 2d 31 30 35 0d 1d ce  24 77 69 6e 64 6f 77 5f  |)-105...$window_|
00001af0  78 25 3d 28 63 6f 6c 25  2a 37 32 29 2b 28 72 6f  |x%=(col%*72)+(ro|
00001b00  77 25 2a 33 36 29 2b 31  30 0d 1d e2 2d f2 64 65  |w%*36)+10...-.de|
00001b10  6c 65 74 65 5f 69 63 6f  6e 28 68 65 78 5f 77 69  |lete_icon(hex_wi|
00001b20  6e 64 6f 77 25 2c 68 65  78 25 28 63 6f 6c 25 2c  |ndow%,hex%(col%,|
00001b30  72 6f 77 25 29 29 0d 1d  f6 13 e7 20 70 6c 61 79  |row%))..... play|
00001b40  65 72 25 20 3d 20 31 20  8c 0d 1e 00 5a 68 65 78  |er% = 1 ....Zhex|
00001b50  25 28 63 6f 6c 25 2c 72  6f 77 25 29 3d a4 61 64  |%(col%,row%)=.ad|
00001b60  64 5f 69 63 6f 6e 28 22  73 70 72 69 74 65 22 2c  |d_icon("sprite",|
00001b70  22 72 65 64 22 2c 68 65  78 5f 77 69 6e 64 6f 77  |"red",hex_window|
00001b80  25 2c 77 69 6e 64 6f 77  5f 78 25 2c 77 69 6e 64  |%,window_x%,wind|
00001b90  6f 77 5f 79 25 2c 30 2c  73 70 72 69 74 65 73 25  |ow_y%,0,sprites%|
00001ba0  2c 30 29 0d 1e 0a 05 cc  0d 1e 14 5b 68 65 78 25  |,0)........[hex%|
00001bb0  28 63 6f 6c 25 2c 72 6f  77 25 29 3d a4 61 64 64  |(col%,row%)=.add|
00001bc0  5f 69 63 6f 6e 28 22 73  70 72 69 74 65 22 2c 22  |_icon("sprite","|
00001bd0  62 6c 75 65 22 2c 68 65  78 5f 77 69 6e 64 6f 77  |blue",hex_window|
00001be0  25 2c 77 69 6e 64 6f 77  5f 78 25 2c 77 69 6e 64  |%,window_x%,wind|
00001bf0  6f 77 5f 79 25 2c 30 2c  73 70 72 69 74 65 73 25  |ow_y%,0,sprites%|
00001c00  2c 30 29 0d 1e 1e 05 cd  0d 1e 3c 17 f2 66 6c 61  |,0).......<..fla|
00001c10  73 68 5f 6c 61 73 74 5f  6d 6f 76 65 28 b9 29 0d  |sh_last_move(.).|
00001c20  1e 5a 19 6c 61 73 74 5f  6d 6f 76 65 5f 63 6f 6c  |.Z.last_move_col|
00001c30  25 20 3d 20 63 6f 6c 25  0d 1e 64 19 6c 61 73 74  |% = col%..d.last|
00001c40  5f 6d 6f 76 65 5f 72 6f  77 25 20 3d 20 72 6f 77  |_move_row% = row|
00001c50  25 0d 1e 78 10 f2 77 69  6e 5f 63 68 65 63 6b 20  |%..x..win_check |
00001c60  20 0d 1e 8c 05 e1 0d 1e  dc 25 dd f2 66 6c 61 73  | ........%..flas|
00001c70  68 5f 6c 61 73 74 5f 6d  6f 76 65 28 73 65 74 5f  |h_last_move(set_|
00001c80  6c 61 73 74 5f 6d 6f 76  65 25 29 0d 1e f0 35 ea  |last_move%)...5.|
00001c90  20 75 73 65 5f 73 70 72  69 74 65 24 2c 6d 61 72  | use_sprite$,mar|
00001ca0  6b 5f 31 25 2c 6d 61 72  6b 5f 32 25 2c 77 69 6e  |k_1%,mark_2%,win|
00001cb0  64 6f 77 5f 78 25 2c 77  69 6e 64 6f 77 5f 79 25  |dow_x%,window_y%|
00001cc0  0d 1f 04 1b e7 20 6c 61  73 74 5f 6d 6f 76 65 5f  |..... last_move_|
00001cd0  63 6f 6c 25 20 3e 20 2d  31 20 8c 0d 1f 22 2d 77  |col% > -1 ..."-w|
00001ce0  69 6e 64 6f 77 5f 79 25  20 3d 20 2d 28 28 31 30  |indow_y% = -((10|
00001cf0  2d 6c 61 73 74 5f 6d 6f  76 65 5f 72 6f 77 25 29  |-last_move_row%)|
00001d00  2a 35 32 29 2d 31 30 35  0d 1f 40 38 77 69 6e 64  |*52)-105..@8wind|
00001d10  6f 77 5f 78 25 3d 28 6c  61 73 74 5f 6d 6f 76 65  |ow_x%=(last_move|
00001d20  5f 63 6f 6c 25 2a 37 32  29 2b 28 6c 61 73 74 5f  |_col%*72)+(last_|
00001d30  6d 6f 76 65 5f 72 6f 77  25 2a 33 36 29 2b 31 30  |move_row%*36)+10|
00001d40  0d 1f 5e 18 63 79 63 6c  65 25 20 3d 20 6f 6e 5f  |..^.cycle% = on_|
00001d50  6f 66 66 25 20 83 20 35  0d 1f 72 25 e7 20 63 79  |off% . 5..r%. cy|
00001d60  63 6c 65 25 20 3d 20 30  20 80 20 ac 20 73 65 74  |cle% = 0 . . set|
00001d70  5f 6c 61 73 74 5f 6d 6f  76 65 25 20 8c 0d 1f 7c  |_last_move% ...||
00001d80  41 f2 64 65 6c 65 74 65  5f 69 63 6f 6e 28 68 65  |A.delete_icon(he|
00001d90  78 5f 77 69 6e 64 6f 77  25 2c 68 65 78 25 28 6c  |x_window%,hex%(l|
00001da0  61 73 74 5f 6d 6f 76 65  5f 63 6f 6c 25 2c 6c 61  |ast_move_col%,la|
00001db0  73 74 5f 6d 6f 76 65 5f  72 6f 77 25 29 29 0d 1f  |st_move_row%))..|
00001dc0  86 13 e7 20 70 6c 61 79  65 72 25 20 3d 20 31 20  |... player% = 1 |
00001dd0  8c 0d 1f 90 1a 75 73 65  5f 73 70 72 69 74 65 24  |.....use_sprite$|
00001de0  20 3d 20 22 70 5f 62 6c  75 65 22 0d 1f 9a 05 cc  | = "p_blue".....|
00001df0  0d 1f a4 19 75 73 65 5f  73 70 72 69 74 65 24 20  |....use_sprite$ |
00001e00  3d 20 22 70 5f 72 65 64  22 0d 1f ae 05 cd 0d 1f  |= "p_red".......|
00001e10  b8 74 68 65 78 25 28 6c  61 73 74 5f 6d 6f 76 65  |.thex%(last_move|
00001e20  5f 63 6f 6c 25 2c 6c 61  73 74 5f 6d 6f 76 65 5f  |_col%,last_move_|
00001e30  72 6f 77 25 29 3d a4 61  64 64 5f 69 63 6f 6e 28  |row%)=.add_icon(|
00001e40  22 73 70 72 69 74 65 22  2c 75 73 65 5f 73 70 72  |"sprite",use_spr|
00001e50  69 74 65 24 2c 68 65 78  5f 77 69 6e 64 6f 77 25  |ite$,hex_window%|
00001e60  2c 77 69 6e 64 6f 77 5f  78 25 2c 77 69 6e 64 6f  |,window_x%,windo|
00001e70  77 5f 79 25 2c 30 2c 73  70 72 69 74 65 73 25 2c  |w_y%,0,sprites%,|
00001e80  30 29 0d 1f c2 05 cd 0d  1f e0 2e e7 20 63 79 63  |0).......... cyc|
00001e90  6c 65 25 3d 31 20 84 20  28 73 65 74 5f 6c 61 73  |le%=1 . (set_las|
00001ea0  74 5f 6d 6f 76 65 25 20  80 20 63 79 63 6c 65 25  |t_move% . cycle%|
00001eb0  3d 30 29 20 8c 0d 1f ea  41 f2 64 65 6c 65 74 65  |=0) ....A.delete|
00001ec0  5f 69 63 6f 6e 28 68 65  78 5f 77 69 6e 64 6f 77  |_icon(hex_window|
00001ed0  25 2c 68 65 78 25 28 6c  61 73 74 5f 6d 6f 76 65  |%,hex%(last_move|
00001ee0  5f 63 6f 6c 25 2c 6c 61  73 74 5f 6d 6f 76 65 5f  |_col%,last_move_|
00001ef0  72 6f 77 25 29 29 0d 1f  f4 13 e7 20 70 6c 61 79  |row%))..... play|
00001f00  65 72 25 20 3d 20 31 20  8c 0d 1f fe 18 75 73 65  |er% = 1 .....use|
00001f10  5f 73 70 72 69 74 65 24  20 3d 20 22 62 6c 75 65  |_sprite$ = "blue|
00001f20  22 0d 20 08 05 cc 0d 20  12 17 75 73 65 5f 73 70  |". .... ..use_sp|
00001f30  72 69 74 65 24 20 3d 20  22 72 65 64 22 0d 20 1c  |rite$ = "red". .|
00001f40  05 cd 0d 20 26 74 68 65  78 25 28 6c 61 73 74 5f  |... &thex%(last_|
00001f50  6d 6f 76 65 5f 63 6f 6c  25 2c 6c 61 73 74 5f 6d  |move_col%,last_m|
00001f60  6f 76 65 5f 72 6f 77 25  29 3d a4 61 64 64 5f 69  |ove_row%)=.add_i|
00001f70  63 6f 6e 28 22 73 70 72  69 74 65 22 2c 75 73 65  |con("sprite",use|
00001f80  5f 73 70 72 69 74 65 24  2c 68 65 78 5f 77 69 6e  |_sprite$,hex_win|
00001f90  64 6f 77 25 2c 77 69 6e  64 6f 77 5f 78 25 2c 77  |dow%,window_x%,w|
00001fa0  69 6e 64 6f 77 5f 79 25  2c 30 2c 73 70 72 69 74  |indow_y%,0,sprit|
00001fb0  65 73 25 2c 30 29 0d 20  30 05 cd 0d 20 44 05 cd  |es%,0). 0... D..|
00001fc0  0d 20 58 1f e7 20 73 65  74 5f 6c 61 73 74 5f 6d  |. X.. set_last_m|
00001fd0  6f 76 65 25 20 8c 6f 6e  5f 6f 66 66 25 3d 31 0d  |ove% .on_off%=1.|
00001fe0  20 62 10 6f 6e 5f 6f 66  66 25 20 2b 3d 20 31 0d  | b.on_off% += 1.|
00001ff0  20 76 05 e1 0d 20 e4 1a  dd f2 73 65 74 5f 68 65  | v... ....set_he|
00002000  78 5f 77 69 6e 64 6f 77  5f 69 63 6f 6e 73 0d 20  |x_window_icons. |
00002010  f8 0c ea 20 6c 61 62 65  6c 24 0d 21 16 16 e7 20  |... label$.!... |
00002020  68 75 6d 61 6e 5f 70 6c  61 79 65 72 31 25 20 8c  |human_player1% .|
00002030  0d 21 20 17 6c 61 62 65  6c 24 20 3d 20 22 20 48  |.! .label$ = " H|
00002040  75 6d 61 6e 20 20 22 0d  21 2a 05 cc 0d 21 34 17  |uman  ".!*...!4.|
00002050  6c 61 62 65 6c 24 20 3d  20 22 43 6f 6d 70 75 74  |label$ = "Comput|
00002060  65 72 22 0d 21 3e 05 cd  0d 21 48 32 f2 70 75 74  |er".!>...!H2.put|
00002070  5f 69 63 6f 6e 5f 74 65  78 74 28 68 65 78 5f 77  |_icon_text(hex_w|
00002080  69 6e 64 6f 77 25 2c 72  65 70 6f 72 74 5f 72 65  |indow%,report_re|
00002090  64 25 2c 6c 61 62 65 6c  24 29 0d 21 66 16 e7 20  |d%,label$).!f.. |
000020a0  68 75 6d 61 6e 5f 70 6c  61 79 65 72 32 25 20 8c  |human_player2% .|
000020b0  0d 21 70 17 6c 61 62 65  6c 24 20 3d 20 22 20 48  |.!p.label$ = " H|
000020c0  75 6d 61 6e 20 20 22 0d  21 7a 05 cc 0d 21 84 17  |uman  ".!z...!..|
000020d0  6c 61 62 65 6c 24 20 3d  20 22 43 6f 6d 70 75 74  |label$ = "Comput|
000020e0  65 72 22 0d 21 8e 05 cd  0d 21 98 33 f2 70 75 74  |er".!....!.3.put|
000020f0  5f 69 63 6f 6e 5f 74 65  78 74 28 68 65 78 5f 77  |_icon_text(hex_w|
00002100  69 6e 64 6f 77 25 2c 72  65 70 6f 72 74 5f 62 6c  |indow%,report_bl|
00002110  75 65 25 2c 6c 61 62 65  6c 24 29 0d 21 b6 38 f2  |ue%,label$).!.8.|
00002120  73 68 61 64 65 5f 69 63  6f 6e 28 68 65 78 5f 77  |shade_icon(hex_w|
00002130  69 6e 64 6f 77 25 2c 72  65 70 6f 72 74 5f 62 6c  |indow%,report_bl|
00002140  75 65 25 2c ac 20 64 75  72 69 6e 67 5f 67 61 6d  |ue%,. during_gam|
00002150  65 25 29 0d 21 c0 38 f2  73 68 61 64 65 5f 69 63  |e%).!.8.shade_ic|
00002160  6f 6e 28 68 65 78 5f 77  69 6e 64 6f 77 25 2c 72  |on(hex_window%,r|
00002170  65 70 6f 72 74 5f 72 65  64 25 2c 20 ac 20 64 75  |eport_red%, . du|
00002180  72 69 6e 67 5f 67 61 6d  65 25 29 0d 21 de 14 e7  |ring_game%).!...|
00002190  20 64 75 72 69 6e 67 5f  67 61 6d 65 25 20 8c 0d  | during_game% ..|
000021a0  21 e8 13 e7 20 70 6c 61  79 65 72 25 20 3d 20 31  |!... player% = 1|
000021b0  20 8c 0d 21 f2 31 f2 69  63 6f 6e 5f 62 67 5f 63  | ..!.1.icon_bg_c|
000021c0  6f 6c 6f 75 72 28 68 65  78 5f 77 69 6e 64 6f 77  |olour(hex_window|
000021d0  25 2c 72 65 70 6f 72 74  5f 72 65 64 25 2c 72 65  |%,report_red%,re|
000021e0  64 25 29 0d 21 fc 34 f2  69 63 6f 6e 5f 62 67 5f  |d%).!.4.icon_bg_|
000021f0  63 6f 6c 6f 75 72 28 68  65 78 5f 77 69 6e 64 6f  |colour(hex_windo|
00002200  77 25 2c 72 65 70 6f 72  74 5f 62 6c 75 65 25 2c  |w%,report_blue%,|
00002210  77 68 69 74 65 25 29 0d  22 06 05 cc 0d 22 10 33  |white%)."....".3|
00002220  f2 69 63 6f 6e 5f 62 67  5f 63 6f 6c 6f 75 72 28  |.icon_bg_colour(|
00002230  68 65 78 5f 77 69 6e 64  6f 77 25 2c 72 65 70 6f  |hex_window%,repo|
00002240  72 74 5f 62 6c 75 65 25  2c 62 6c 75 65 25 29 0d  |rt_blue%,blue%).|
00002250  22 1a 33 f2 69 63 6f 6e  5f 62 67 5f 63 6f 6c 6f  |".3.icon_bg_colo|
00002260  75 72 28 68 65 78 5f 77  69 6e 64 6f 77 25 2c 72  |ur(hex_window%,r|
00002270  65 70 6f 72 74 5f 72 65  64 25 2c 77 68 69 74 65  |eport_red%,white|
00002280  25 29 0d 22 24 05 cd 0d  22 2e 05 cd 0d 22 42 05  |%)."$..."...."B.|
00002290  e1 0d 22 9c 13 dd f2 75  70 64 61 74 65 5f 73 63  |.."....update_sc|
000022a0  6f 72 65 73 0d 22 ba 3b  f2 70 75 74 5f 69 63 6f  |ores.".;.put_ico|
000022b0  6e 5f 74 65 78 74 28 73  63 6f 72 65 5f 77 69 6e  |n_text(score_win|
000022c0  64 6f 77 25 2c 62 6c 75  65 5f 73 63 6f 72 65 25  |dow%,blue_score%|
000022d0  2c c3 28 62 6c 75 65 5f  77 69 6e 73 25 29 29 0d  |,.(blue_wins%)).|
000022e0  22 c4 39 f2 70 75 74 5f  69 63 6f 6e 5f 74 65 78  |".9.put_icon_tex|
000022f0  74 28 73 63 6f 72 65 5f  77 69 6e 64 6f 77 25 2c  |t(score_window%,|
00002300  72 65 64 5f 73 63 6f 72  65 25 2c c3 28 72 65 64  |red_score%,.(red|
00002310  5f 77 69 6e 73 25 29 29  0d 22 d8 05 e1 0d 23 1e  |_wins%))."....#.|
00002320  1a dd f2 75 70 64 61 74  65 5f 6f 70 74 69 6f 6e  |...update_option|
00002330  73 5f 69 63 6f 6e 73 0d  23 5a 3c f2 73 65 6c 65  |s_icons.#Z<.sele|
00002340  63 74 5f 69 63 6f 6e 28  6f 70 74 69 6f 6e 73 5f  |ct_icon(options_|
00002350  77 69 6e 64 6f 77 25 2c  6f 70 74 5f 72 65 64 5f  |window%,opt_red_|
00002360  68 25 2c 20 68 75 6d 61  6e 5f 70 6c 61 79 65 72  |h%, human_player|
00002370  31 25 29 0d 23 64 3e f2  73 65 6c 65 63 74 5f 69  |1%).#d>.select_i|
00002380  63 6f 6e 28 6f 70 74 69  6f 6e 73 5f 77 69 6e 64  |con(options_wind|
00002390  6f 77 25 2c 6f 70 74 5f  72 65 64 5f 63 25 2c 20  |ow%,opt_red_c%, |
000023a0  ac 20 68 75 6d 61 6e 5f  70 6c 61 79 65 72 31 25  |. human_player1%|
000023b0  29 0d 23 6e 3c f2 73 65  6c 65 63 74 5f 69 63 6f  |).#n<.select_ico|
000023c0  6e 28 6f 70 74 69 6f 6e  73 5f 77 69 6e 64 6f 77  |n(options_window|
000023d0  25 2c 6f 70 74 5f 62 6c  75 65 5f 68 25 2c 68 75  |%,opt_blue_h%,hu|
000023e0  6d 61 6e 5f 70 6c 61 79  65 72 32 25 29 0d 23 78  |man_player2%).#x|
000023f0  3e f2 73 65 6c 65 63 74  5f 69 63 6f 6e 28 6f 70  |>.select_icon(op|
00002400  74 69 6f 6e 73 5f 77 69  6e 64 6f 77 25 2c 6f 70  |tions_window%,op|
00002410  74 5f 62 6c 75 65 5f 63  25 2c ac 20 68 75 6d 61  |t_blue_c%,. huma|
00002420  6e 5f 70 6c 61 79 65 72  32 25 29 0d 23 96 2e e7  |n_player2%).#...|
00002430  20 6c 65 76 65 6c 25 20  3e 20 6d 61 78 5f 6c 65  | level% > max_le|
00002440  76 65 6c 25 20 8c 6c 65  76 65 6c 25 20 3d 20 6d  |vel% .level% = m|
00002450  61 78 5f 6c 65 76 65 6c  25 0d 23 a0 36 f2 73 65  |ax_level%.#.6.se|
00002460  6c 65 63 74 5f 69 63 6f  6e 28 6f 70 74 69 6f 6e  |lect_icon(option|
00002470  73 5f 77 69 6e 64 6f 77  25 2c 6f 70 74 5f 63 6f  |s_window%,opt_co|
00002480  6d 70 5f 31 25 2c 6c 65  76 65 6c 25 3d 31 29 0d  |mp_1%,level%=1).|
00002490  23 aa 36 f2 73 65 6c 65  63 74 5f 69 63 6f 6e 28  |#.6.select_icon(|
000024a0  6f 70 74 69 6f 6e 73 5f  77 69 6e 64 6f 77 25 2c  |options_window%,|
000024b0  6f 70 74 5f 63 6f 6d 70  5f 32 25 2c 6c 65 76 65  |opt_comp_2%,leve|
000024c0  6c 25 3d 32 29 0d 23 b4  36 f2 73 65 6c 65 63 74  |l%=2).#.6.select|
000024d0  5f 69 63 6f 6e 28 6f 70  74 69 6f 6e 73 5f 77 69  |_icon(options_wi|
000024e0  6e 64 6f 77 25 2c 6f 70  74 5f 63 6f 6d 70 5f 33  |ndow%,opt_comp_3|
000024f0  25 2c 6c 65 76 65 6c 25  3d 33 29 0d 23 be 36 f2  |%,level%=3).#.6.|
00002500  73 65 6c 65 63 74 5f 69  63 6f 6e 28 6f 70 74 69  |select_icon(opti|
00002510  6f 6e 73 5f 77 69 6e 64  6f 77 25 2c 6f 70 74 5f  |ons_window%,opt_|
00002520  63 6f 6d 70 5f 34 25 2c  6c 65 76 65 6c 25 3d 34  |comp_4%,level%=4|
00002530  29 0d 23 c8 36 f2 73 65  6c 65 63 74 5f 69 63 6f  |).#.6.select_ico|
00002540  6e 28 6f 70 74 69 6f 6e  73 5f 77 69 6e 64 6f 77  |n(options_window|
00002550  25 2c 6f 70 74 5f 63 6f  6d 70 5f 35 25 2c 6c 65  |%,opt_comp_5%,le|
00002560  76 65 6c 25 3d 35 29 0d  24 18 05 e1 0d 24 54 12  |vel%=5).$....$T.|
00002570  dd f2 73 61 76 65 5f 6f  70 74 69 6f 6e 73 0d 24  |..save_options.$|
00002580  68 21 73 61 76 65 25 3d  ad 20 28 61 70 70 5f 64  |h!save%=. (app_d|
00002590  69 72 24 2b 22 2e 21 43  6f 6e 66 69 67 22 29 0d  |ir$+".!Config").|
000025a0  24 72 33 f1 23 73 61 76  65 25 2c 20 6c 65 76 65  |$r3.#save%, leve|
000025b0  6c 25 2c 20 68 75 6d 61  6e 5f 70 6c 61 79 65 72  |l%, human_player|
000025c0  31 25 2c 20 68 75 6d 61  6e 5f 70 6c 61 79 65 72  |1%, human_player|
000025d0  32 25 0d 24 7c 0b d9 23  73 61 76 65 25 0d 24 90  |2%.$|..#save%.$.|
000025e0  05 e1 0d 25 26 10 dd f2  68 75 6d 61 6e 5f 6d 6f  |...%&...human_mo|
000025f0  76 65 0d 25 3a 21 e7 20  6d 6f 75 73 65 62 75 74  |ve.%:!. mousebut|
00002600  25 20 3d 20 73 65 6c 65  63 74 5f 63 6c 69 63 6b  |% = select_click|
00002610  25 20 8c 0d 25 58 24 e7  20 62 6f 61 72 64 5f 73  |% ..%X$. board_s|
00002620  74 61 74 75 73 25 28 63  6f 6c 25 2c 72 6f 77 25  |tatus%(col%,row%|
00002630  29 20 3d 20 30 20 8c 0d  25 6c 1c f2 6d 61 72 6b  |) = 0 ..%l..mark|
00002640  5f 6d 6f 76 65 5f 6f 6e  5f 62 6f 61 72 64 20 20  |_move_on_board  |
00002650  20 20 20 0d 25 8a 19 70  6c 61 79 65 72 25 20 3d  |   .%..player% =|
00002660  20 70 6c 61 79 65 72 25  20 82 20 33 0d 25 9e 1c  | player% . 3.%..|
00002670  f2 73 65 74 5f 68 65 78  5f 77 69 6e 64 6f 77 5f  |.set_hex_window_|
00002680  69 63 6f 6e 73 20 20 20  0d 25 a8 1c f2 73 65 74  |icons   .%...set|
00002690  5f 6d 65 6e 75 5f 73 68  61 64 65 73 20 20 20 20  |_menu_shades    |
000026a0  20 20 20 20 0d 25 bc 05  cd 0d 25 d0 05 cd 0d 25  |    .%....%....%|
000026b0  e4 05 e1 0d 28 5a 3d dd  a4 61 64 64 5f 69 63 6f  |....(Z=..add_ico|
000026c0  6e 28 74 79 70 65 24 2c  74 65 78 74 24 2c 77 69  |n(type$,text$,wi|
000026d0  6e 64 6f 77 25 2c 78 25  2c 79 25 2c 73 6c 25 2c  |ndow%,x%,y%,sl%,|
000026e0  65 73 67 5f 73 70 25 2c  62 6f 72 64 65 72 25 29  |esg_sp%,border%)|
000026f0  0d 28 64 47 ea 20 69 63  6f 6e 25 2c 74 65 78 74  |.(dG. icon%,text|
00002700  5f 73 70 61 63 65 25 2c  6e 61 6d 65 5f 73 70 61  |_space%,name_spa|
00002710  63 65 25 2c 76 61 6c 5f  73 70 61 63 65 25 2c 77  |ce%,val_space%,w|
00002720  25 2c 68 25 2c 6d 6f 64  65 25 2c 78 73 25 2c 79  |%,h%,mode%,xs%,y|
00002730  73 25 2c 73 65 6c 25 0d  28 6e 0c 73 65 6c 25 3d  |s%,sel%.(n.sel%=|
00002740  73 6c 25 0d 28 8c 1b e7  20 73 6c 25 3c a9 74 65  |sl%.(... sl%<.te|
00002750  78 74 24 20 73 6c 25 3d  a9 74 65 78 74 24 0d 28  |xt$ sl%=.text$.(|
00002760  96 1b e7 20 73 6c 25 3c  a9 74 79 70 65 24 20 73  |... sl%<.type$ s|
00002770  6c 25 3d a9 74 79 70 65  24 0d 28 b4 15 de 20 74  |l%=.type$.(... t|
00002780  65 78 74 5f 73 70 61 63  65 25 20 73 6c 25 0d 2a  |ext_space% sl%.*|
00002790  b2 17 74 65 6d 70 5f 62  6c 6b 25 21 30 3d 77 69  |..temp_blk%!0=wi|
000027a0  6e 64 6f 77 25 0d 2a d0  12 74 65 6d 70 5f 62 6c  |ndow%.*..temp_bl|
000027b0  6b 25 21 34 3d 78 25 0d  2a ee 15 74 65 6d 70 5f  |k%!4=x%.*..temp_|
000027c0  62 6c 6b 25 21 38 3d 79  25 2d 34 38 0d 2b 0c 20  |blk%!8=y%-48.+. |
000027d0  74 65 6d 70 5f 62 6c 6b  25 21 31 32 3d 78 25 2b  |temp_blk%!12=x%+|
000027e0  31 36 2b 31 36 2a a9 74  65 78 74 24 0d 2b 2a 13  |16+16*.text$.+*.|
000027f0  74 65 6d 70 5f 62 6c 6b  25 21 31 36 3d 79 25 0d  |temp_blk%!16=y%.|
00002800  2b 48 16 24 74 65 78 74  5f 73 70 61 63 65 25 3d  |+H.$text_space%=|
00002810  74 65 78 74 24 0d 2b 66  1a 74 65 6d 70 5f 62 6c  |text$.+f.temp_bl|
00002820  6b 25 21 32 30 3d 26 31  37 30 30 30 31 33 39 0d  |k%!20=&17000139.|
00002830  2b 84 1c 74 65 6d 70 5f  62 6c 6b 25 21 32 34 3d  |+..temp_blk%!24=|
00002840  74 65 78 74 5f 73 70 61  63 65 25 0d 2b a2 13 74  |text_space%.+..t|
00002850  65 6d 70 5f 62 6c 6b 25  21 32 38 3d 2d 31 0d 2b  |emp_blk%!28=-1.+|
00002860  c0 17 74 65 6d 70 5f 62  6c 6b 25 21 33 32 3d a9  |..temp_blk%!32=.|
00002870  74 65 78 74 24 0d 2b de  12 c8 8e 20 c0 74 79 70  |text$.+.... .typ|
00002880  65 24 2c 35 29 20 ca 0d  2b e8 0d c9 20 22 66 69  |e$,5) ..+... "fi|
00002890  6c 65 5f 22 0d 2b fc 37  c8 99 22 57 69 6d 70 5f  |le_".+.7.."Wimp_|
000028a0  53 70 72 69 74 65 4f 70  22 2c 26 32 38 2c 2c 74  |SpriteOp",&28,,t|
000028b0  79 70 65 24 2b bd 28 30  29 20 b8 20 2c 2c 2c 77  |ype$+.(0) . ,,,w|
000028c0  25 2c 68 25 2c 2c 6d 6f  64 65 25 0d 2c 1a 2b c8  |%,h%,,mode%.,.+.|
000028d0  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
000028e0  69 61 62 6c 65 22 2c 6d  6f 64 65 25 2c 34 20 b8  |iable",mode%,4 .|
000028f0  20 2c 2c 78 73 25 0d 2c  24 2b c8 99 22 4f 53 5f  | ,,xs%.,$+.."OS_|
00002900  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00002910  22 2c 6d 6f 64 65 25 2c  35 20 b8 20 2c 2c 79 73  |",mode%,5 . ,,ys|
00002920  25 0d 2c 42 0e 68 25 3d  68 25 3c 3c 79 73 25 0d  |%.,B.h%=h%<<ys%.|
00002930  2c 4c 0e 77 25 3d 77 25  3c 3c 78 73 25 0d 2c 7e  |,L.w%=w%<<xs%.,~|
00002940  10 e7 20 74 65 78 74 24  3d 22 22 20 8c 0d 2c 92  |.. text$="" ..,.|
00002950  15 74 65 6d 70 5f 62 6c  6b 25 21 38 3d 79 25 2d  |.temp_blk%!8=y%-|
00002960  68 25 0d 2c 9c 16 74 65  6d 70 5f 62 6c 6b 25 21  |h%.,..temp_blk%!|
00002970  31 32 3d 78 25 2b 77 25  0d 2c a6 1a 74 65 6d 70  |12=x%+w%.,..temp|
00002980  5f 62 6c 6b 25 21 32 30  3d 26 31 37 30 30 36 31  |_blk%!20=&170061|
00002990  33 41 0d 2c b0 12 74 65  6d 70 5f 62 6c 6b 25 21  |3A.,..temp_blk%!|
000029a0  32 38 3d 31 0d 2c ba 17  74 65 6d 70 5f 62 6c 6b  |28=1.,..temp_blk|
000029b0  25 21 33 32 3d a9 74 79  70 65 24 0d 2c c4 16 24  |%!32=.type$.,..$|
000029c0  74 65 78 74 5f 73 70 61  63 65 25 3d 74 79 70 65  |text_space%=type|
000029d0  24 0d 2c ce 05 cc 0d 2c  ec 1f 74 65 6d 70 5f 62  |$.,....,..temp_b|
000029e0  6c 6b 25 21 38 3d 79 25  2d 68 25 2d 28 31 30 3c  |lk%!8=y%-h%-(10<|
000029f0  3c 79 73 25 29 0d 2d 00  17 73 6c 25 3d 28 38 3c  |<ys%).-..sl%=(8<|
00002a00  3c 78 73 25 29 2a a9 74  65 78 74 24 0d 2d 0a 13  |<xs%)*.text$.-..|
00002a10  e7 20 73 6c 25 3e 77 25  20 77 25 3d 73 6c 25 0d  |. sl%>w% w%=sl%.|
00002a20  2d 14 16 74 65 6d 70 5f  62 6c 6b 25 21 31 32 3d  |-..temp_blk%!12=|
00002a30  78 25 2b 77 25 0d 2d 1e  1a 74 65 6d 70 5f 62 6c  |x%+w%.-..temp_bl|
00002a40  6b 25 21 32 30 3d 26 31  37 30 30 36 31 32 42 0d  |k%!20=&1700612B.|
00002a50  2d 28 1c de 20 6e 61 6d  65 5f 73 70 61 63 65 25  |-(.. name_space%|
00002a60  20 28 32 2b a9 74 79 70  65 24 29 0d 2d 32 1a 24  | (2+.type$).-2.$|
00002a70  6e 61 6d 65 5f 73 70 61  63 65 25 3d 22 73 22 2b  |name_space%="s"+|
00002a80  74 79 70 65 24 0d 2d 3c  1c 74 65 6d 70 5f 62 6c  |type$.-<.temp_bl|
00002a90  6b 25 21 32 38 3d 6e 61  6d 65 5f 73 70 61 63 65  |k%!28=name_space|
00002aa0  25 0d 2d 46 05 cd 0d 2d  50 0d c9 20 22 73 70 72  |%.-F...-P.. "spr|
00002ab0  69 74 22 0d 2d 64 3d c8  99 22 4f 53 5f 53 70 72  |it".-d=.."OS_Spr|
00002ac0  69 74 65 4f 70 22 2c 26  31 32 38 2c 65 73 67 5f  |iteOp",&128,esg_|
00002ad0  73 70 25 2c 74 65 78 74  24 2b bd 28 30 29 20 b8  |sp%,text$+.(0) .|
00002ae0  20 2c 2c 2c 77 25 2c 68  25 2c 2c 6d 6f 64 65 25  | ,,,w%,h%,,mode%|
00002af0  0d 2d 82 2b c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |.-.+.."OS_ReadMo|
00002b00  64 65 56 61 72 69 61 62  6c 65 22 2c 6d 6f 64 65  |deVariable",mode|
00002b10  25 2c 34 20 b8 20 2c 2c  78 73 25 0d 2d 8c 2b c8  |%,4 . ,,xs%.-.+.|
00002b20  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
00002b30  69 61 62 6c 65 22 2c 6d  6f 64 65 25 2c 35 20 b8  |iable",mode%,5 .|
00002b40  20 2c 2c 79 73 25 0d 2d  aa 0e 68 25 3d 68 25 3c  | ,,ys%.-..h%=h%<|
00002b50  3c 79 73 25 0d 2d b4 0e  77 25 3d 77 25 3c 3c 78  |<ys%.-..w%=w%<<x|
00002b60  73 25 0d 2d d2 15 74 65  6d 70 5f 62 6c 6b 25 21  |s%.-..temp_blk%!|
00002b70  38 3d 79 25 2d 68 25 0d  2d dc 16 74 65 6d 70 5f  |8=y%-h%.-..temp_|
00002b80  62 6c 6b 25 21 31 32 3d  78 25 2b 77 25 0d 2d e6  |blk%!12=x%+w%.-.|
00002b90  1a 74 65 6d 70 5f 62 6c  6b 25 21 32 30 3d 26 31  |.temp_blk%!20=&1|
00002ba0  37 30 30 33 31 33 41 0d  2d f0 18 74 65 6d 70 5f  |700313A.-..temp_|
00002bb0  62 6c 6b 25 21 32 38 3d  65 73 67 5f 73 70 25 0d  |blk%!28=esg_sp%.|
00002bc0  2d fa 17 74 65 6d 70 5f  62 6c 6b 25 21 33 32 3d  |-..temp_blk%!32=|
00002bd0  a9 74 65 78 74 24 0d 2e  04 16 24 74 65 78 74 5f  |.text$....$text_|
00002be0  73 70 61 63 65 25 3d 74  65 78 74 24 0d 2e 0e 0d  |space%=text$....|
00002bf0  c9 20 22 6c 61 62 65 6c  22 0d 2e 22 0d c9 20 22  |. "label"..".. "|
00002c00  61 63 74 69 6f 22 0d 2e  36 1a 74 65 6d 70 5f 62  |actio"..6.temp_b|
00002c10  6c 6b 25 21 32 30 3d 26  43 37 31 46 39 31 33 44  |lk%!20=&C71F913D|
00002c20  0d 2e 40 0d c9 20 22 72  65 70 6f 72 22 0d 2e 54  |..@.. "repor"..T|
00002c30  1a 74 65 6d 70 5f 62 6c  6b 25 21 32 30 3d 26 30  |.temp_blk%!20=&0|
00002c40  37 30 30 33 31 33 44 0d  2e 5e 0d c9 20 22 6f 70  |700313D..^.. "op|
00002c50  74 69 6f 22 0d 2e 72 15  74 65 6d 70 5f 62 6c 6b  |tio"..r.temp_blk|
00002c60  25 21 38 3d 79 25 2d 35  32 0d 2e 7c 23 74 65 6d  |%!8=y%-52..|#tem|
00002c70  70 5f 62 6c 6b 25 21 31  32 3d 78 25 2b 34 30 2b  |p_blk%!12=x%+40+|
00002c80  31 36 2b 31 36 2a a9 74  65 78 74 24 0d 2e 86 1a  |16+16*.text$....|
00002c90  74 65 6d 70 5f 62 6c 6b  25 21 32 30 3d 26 31 37  |temp_blk%!20=&17|
00002ca0  30 30 42 31 33 33 0d 2e  90 21 e7 20 73 65 6c 25  |00B133...!. sel%|
00002cb0  20 74 65 6d 70 5f 62 6c  6b 25 21 32 30 3d 26 31  | temp_blk%!20=&1|
00002cc0  37 33 30 33 31 33 33 0d  2e a4 25 de 20 76 61 6c  |7303133...%. val|
00002cd0  5f 73 70 61 63 65 25 20  28 32 2b a9 22 73 6f 70  |_space% (2+."sop|
00002ce0  74 6f 66 66 2c 6f 70 74  6f 6e 22 29 0d 2e ae 1f  |toff,opton")....|
00002cf0  24 76 61 6c 5f 73 70 61  63 65 25 3d 22 73 6f 70  |$val_space%="sop|
00002d00  74 6f 66 66 2c 6f 70 74  6f 6e 22 0d 2e b8 1b 74  |toff,opton"....t|
00002d10  65 6d 70 5f 62 6c 6b 25  21 32 38 3d 76 61 6c 5f  |emp_blk%!28=val_|
00002d20  73 70 61 63 65 25 0d 2e  c2 0d c9 20 22 72 61 64  |space%..... "rad|
00002d30  69 6f 22 0d 2e d6 15 74  65 6d 70 5f 62 6c 6b 25  |io"....temp_blk%|
00002d40  21 38 3d 79 25 2d 35 32  0d 2e e0 23 74 65 6d 70  |!8=y%-52...#temp|
00002d50  5f 62 6c 6b 25 21 31 32  3d 78 25 2b 34 30 2b 31  |_blk%!12=x%+40+1|
00002d60  36 2b 31 36 2a a9 74 65  78 74 24 0d 2e ea 2b e7  |6+16*.text$...+.|
00002d70  20 28 65 73 67 5f 73 70  25 3c 31 29 20 84 20 28  | (esg_sp%<1) . (|
00002d80  65 73 67 5f 73 70 25 3e  33 31 29 20 8c 65 73 67  |esg_sp%>31) .esg|
00002d90  5f 73 70 25 3d 31 0d 2e  f4 2d 74 65 6d 70 5f 62  |_sp%=1...-temp_b|
00002da0  6c 6b 25 21 32 30 3d 26  31 37 30 30 42 31 33 33  |lk%!20=&1700B133|
00002db0  20 84 20 28 65 73 67 5f  73 70 25 2a 26 31 30 30  | . (esg_sp%*&100|
00002dc0  30 30 29 0d 2e fe 34 e7  20 73 65 6c 25 20 74 65  |00)...4. sel% te|
00002dd0  6d 70 5f 62 6c 6b 25 21  32 30 3d 26 31 37 32 30  |mp_blk%!20=&1720|
00002de0  42 31 33 33 20 84 20 28  65 73 67 5f 73 70 25 2a  |B133 . (esg_sp%*|
00002df0  26 31 30 30 30 30 29 0d  2f 12 2a de 20 74 65 78  |&10000)./.*. tex|
00002e00  74 5f 73 70 61 63 65 25  20 28 32 2b a9 22 73 72  |t_space% (2+."sr|
00002e10  61 64 69 6f 6f 66 66 2c  72 61 64 69 6f 6f 6e 22  |adiooff,radioon"|
00002e20  29 0d 2f 1c 24 24 74 65  78 74 5f 73 70 61 63 65  |)./.$$text_space|
00002e30  25 3d 22 73 72 61 64 69  6f 6f 66 66 2c 72 61 64  |%="sradiooff,rad|
00002e40  69 6f 6f 6e 22 0d 2f 26  1c 74 65 6d 70 5f 62 6c  |ioon"./&.temp_bl|
00002e50  6b 25 21 32 38 3d 74 65  78 74 5f 73 70 61 63 65  |k%!28=text_space|
00002e60  25 0d 2f 30 0d c9 20 22  77 72 69 74 65 22 0d 2f  |%./0.. "write"./|
00002e70  3a 20 74 65 6d 70 5f 62  6c 6b 25 21 31 32 3d 78  |: temp_blk%!12=x|
00002e80  25 2b 31 36 2b 31 36 2a  a9 74 65 78 74 24 0d 2f  |%+16+16*.text$./|
00002e90  44 1a 74 65 6d 70 5f 62  6c 6b 25 21 32 30 3d 26  |D.temp_blk%!20=&|
00002ea0  30 37 30 30 46 31 33 35  0d 2f 4e 13 de 20 76 61  |0700F135./N.. va|
00002eb0  6c 5f 73 70 61 63 65 25  20 31 36 0d 2f 58 12 24  |l_space% 16./X.$|
00002ec0  76 61 6c 5f 73 70 61 63  65 25 3d 22 22 0d 2f 62  |val_space%=""./b|
00002ed0  1b 74 65 6d 70 5f 62 6c  6b 25 21 32 38 3d 76 61  |.temp_blk%!28=va|
00002ee0  6c 5f 73 70 61 63 65 25  0d 2f 6c 1f e7 20 73 65  |l_space%./l.. se|
00002ef0  6c 25 3c 28 a9 74 65 78  74 24 29 20 73 65 6c 25  |l%<(.text$) sel%|
00002f00  3d a9 74 65 78 74 24 0d  2f 76 17 74 65 6d 70 5f  |=.text$./v.temp_|
00002f10  62 6c 6b 25 21 33 32 3d  73 65 6c 25 2b 31 0d 2f  |blk%!32=sel%+1./|
00002f20  80 05 cb 0d 2f 9e 2b c8  99 20 22 57 69 6d 70 5f  |..../.+.. "Wimp_|
00002f30  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 74 65 6d  |CreateIcon",,tem|
00002f40  70 5f 62 6c 6b 25 20 b8  20 69 63 6f 6e 25 0d 2f  |p_blk% . icon%./|
00002f50  a8 2b e7 20 62 6f 72 64  65 72 25 3e 30 20 f2 62  |.+. border%>0 .b|
00002f60  6f 72 64 65 72 5f 69 63  6f 6e 28 77 69 6e 64 6f  |order_icon(windo|
00002f70  77 25 2c 69 63 6f 6e 25  29 0d 2f b2 0a 3d 69 63  |w%,icon%)./..=ic|
00002f80  6f 6e 25 0d 2f ee 2e dd  f2 64 65 6c 65 74 65 5f  |on%./....delete_|
00002f90  69 63 6f 6e 28 77 69 6e  64 6f 77 5f 68 61 6e 64  |icon(window_hand|
00002fa0  6c 65 25 2c 69 63 6f 6e  5f 68 61 6e 64 6c 65 25  |le%,icon_handle%|
00002fb0  29 0d 2f f8 1d ea 20 6d  69 6e 78 25 2c 6d 69 6e  |)./... minx%,min|
00002fc0  79 25 2c 6d 61 78 78 25  2c 6d 61 78 79 25 0d 30  |y%,maxx%,maxy%.0|
00002fd0  02 1e 74 65 6d 70 5f 62  6c 6b 25 21 30 3d 77 69  |..temp_blk%!0=wi|
00002fe0  6e 64 6f 77 5f 68 61 6e  64 6c 65 25 0d 30 0c 1c  |ndow_handle%.0..|
00002ff0  74 65 6d 70 5f 62 6c 6b  25 21 34 3d 69 63 6f 6e  |temp_blk%!4=icon|
00003000  5f 68 61 6e 64 6c 65 25  0d 30 20 24 c8 99 22 57  |_handle%.0 $.."W|
00003010  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00003020  22 2c 2c 74 65 6d 70 5f  62 6c 6b 25 0d 30 2a 15  |",,temp_blk%.0*.|
00003030  6d 69 6e 78 25 3d 74 65  6d 70 5f 62 6c 6b 25 21  |minx%=temp_blk%!|
00003040  38 0d 30 34 16 6d 69 6e  79 25 3d 74 65 6d 70 5f  |8.04.miny%=temp_|
00003050  62 6c 6b 25 21 31 32 0d  30 3e 16 6d 61 78 78 25  |blk%!12.0>.maxx%|
00003060  3d 74 65 6d 70 5f 62 6c  6b 25 21 31 36 0d 30 48  |=temp_blk%!16.0H|
00003070  16 6d 61 78 79 25 3d 74  65 6d 70 5f 62 6c 6b 25  |.maxy%=temp_blk%|
00003080  21 32 30 0d 30 5c 22 c8  99 22 57 69 6d 70 5f 44  |!20.0\".."Wimp_D|
00003090  65 6c 65 74 65 49 63 6f  6e 22 2c 2c 74 65 6d 70  |eleteIcon",,temp|
000030a0  5f 62 6c 6b 25 0d 30 70  3f c8 99 22 57 69 6d 70  |_blk%.0p?.."Wimp|
000030b0  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 77 69  |_ForceRedraw",wi|
000030c0  6e 64 6f 77 5f 68 61 6e  64 6c 65 25 2c 6d 69 6e  |ndow_handle%,min|
000030d0  78 25 2c 6d 69 6e 79 25  2c 6d 61 78 78 25 2c 6d  |x%,miny%,maxx%,m|
000030e0  61 78 79 25 0d 30 7a 05  e1 0d 30 b6 39 dd f2 69  |axy%.0z...0.9..i|
000030f0  63 6f 6e 5f 62 67 5f 63  6f 6c 6f 75 72 28 77 69  |con_bg_colour(wi|
00003100  6e 64 6f 77 5f 68 61 6e  64 6c 65 25 2c 69 63 6f  |ndow_handle%,ico|
00003110  6e 5f 68 61 6e 64 6c 65  25 2c 63 6f 6c 6f 75 72  |n_handle%,colour|
00003120  25 29 0d 30 c0 1e e7 20  63 6f 6c 6f 75 72 25 3c  |%).0... colour%<|
00003130  30 20 84 20 63 6f 6c 6f  75 72 25 3e 31 35 20 e1  |0 . colour%>15 .|
00003140  0d 30 ca 1e 74 65 6d 70  5f 62 6c 6b 25 21 30 3d  |.0..temp_blk%!0=|
00003150  77 69 6e 64 6f 77 5f 68  61 6e 64 6c 65 25 0d 30  |window_handle%.0|
00003160  d4 1c 74 65 6d 70 5f 62  6c 6b 25 21 34 3d 69 63  |..temp_blk%!4=ic|
00003170  6f 6e 5f 68 61 6e 64 6c  65 25 0d 30 de 24 c8 99  |on_handle%.0.$..|
00003180  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00003190  74 65 22 2c 2c 74 65 6d  70 5f 62 6c 6b 25 0d 30  |te",,temp_blk%.0|
000031a0  e8 1e e7 20 28 74 65 6d  70 5f 62 6c 6b 25 21 32  |... (temp_blk%!2|
000031b0  34 20 80 20 31 3c 3c 36  29 20 8c e1 0d 30 f2 1a  |4 . 1<<6) ...0..|
000031c0  74 65 6d 70 5f 62 6c 6b  25 21 31 32 3d 26 46 30  |temp_blk%!12=&F0|
000031d0  30 30 30 30 30 30 0d 30  fc 3c 74 65 6d 70 5f 62  |000000.0.<temp_b|
000031e0  6c 6b 25 21 38 3d 63 6f  6c 6f 75 72 25 3c 3c 32  |lk%!8=colour%<<2|
000031f0  38 3a c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |8:.."Wimp_SetIco|
00003200  6e 53 74 61 74 65 22 2c  2c 74 65 6d 70 5f 62 6c  |nState",,temp_bl|
00003210  6b 25 0d 31 06 05 e1 0d  31 42 36 dd f2 70 75 74  |k%.1....1B6..put|
00003220  5f 69 63 6f 6e 5f 74 65  78 74 28 77 69 6e 64 6f  |_icon_text(windo|
00003230  77 5f 68 61 6e 64 6c 65  25 2c 69 63 6f 6e 5f 68  |w_handle%,icon_h|
00003240  61 6e 64 6c 65 25 2c 74  65 78 74 24 29 0d 31 4c  |andle%,text$).1L|
00003250  1e 74 65 6d 70 5f 62 6c  6b 25 21 30 3d 77 69 6e  |.temp_blk%!0=win|
00003260  64 6f 77 5f 68 61 6e 64  6c 65 25 0d 31 56 1c 74  |dow_handle%.1V.t|
00003270  65 6d 70 5f 62 6c 6b 25  21 34 3d 69 63 6f 6e 5f  |emp_blk%!4=icon_|
00003280  68 61 6e 64 6c 65 25 0d  31 60 24 c8 99 22 57 69  |handle%.1`$.."Wi|
00003290  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000032a0  2c 2c 74 65 6d 70 5f 62  6c 6b 25 0d 31 74 23 e7  |,,temp_blk%.1t#.|
000032b0  20 28 74 65 6d 70 5f 62  6c 6b 25 21 32 34 20 80  | (temp_blk%!24 .|
000032c0  20 26 31 30 31 29 3c 3e  26 31 30 31 20 8c 0d 31  | &101)<>&101 ..1|
000032d0  7e 32 85 20 32 30 32 2c  22 49 63 6f 6e 20 22 2b  |~2. 202,"Icon "+|
000032e0  c3 69 63 6f 6e 5f 68 61  6e 64 6c 65 25 2b 22 20  |.icon_handle%+" |
000032f0  6e 6f 74 20 69 6e 64 69  72 65 63 74 65 64 21 22  |not indirected!"|
00003300  0d 31 88 05 e1 0d 31 92  05 cd 0d 31 a6 20 74 65  |.1....1....1. te|
00003310  78 74 24 3d c0 74 65 78  74 24 2c 74 65 6d 70 5f  |xt$=.text$,temp_|
00003320  62 6c 6b 25 21 33 36 2d  31 29 0d 31 ba 17 24 74  |blk%!36-1).1..$t|
00003330  65 6d 70 5f 62 6c 6b 25  21 32 38 3d 74 65 78 74  |emp_blk%!28=text|
00003340  24 0d 31 ce 11 74 65 6d  70 5f 62 6c 6b 25 21 38  |$.1..temp_blk%!8|
00003350  3d 30 0d 31 e2 12 74 65  6d 70 5f 62 6c 6b 25 21  |=0.1..temp_blk%!|
00003360  31 32 3d 30 0d 31 f6 24  c8 99 22 57 69 6d 70 5f  |12=0.1.$.."Wimp_|
00003370  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 74  |SetIconState",,t|
00003380  65 6d 70 5f 62 6c 6b 25  0d 32 00 05 e1 0d 32 3c  |emp_blk%.2....2<|
00003390  36 dd f2 73 65 6c 65 63  74 5f 69 63 6f 6e 28 77  |6..select_icon(w|
000033a0  69 6e 64 6f 77 5f 68 61  6e 64 6c 65 25 2c 69 63  |indow_handle%,ic|
000033b0  6f 6e 5f 68 61 6e 64 6c  65 25 2c 73 65 6c 65 63  |on_handle%,selec|
000033c0  74 25 29 0d 32 50 1e 74  65 6d 70 5f 62 6c 6b 25  |t%).2P.temp_blk%|
000033d0  21 30 3d 77 69 6e 64 6f  77 5f 68 61 6e 64 6c 65  |!0=window_handle|
000033e0  25 0d 32 5a 1c 74 65 6d  70 5f 62 6c 6b 25 21 34  |%.2Z.temp_blk%!4|
000033f0  3d 69 63 6f 6e 5f 68 61  6e 64 6c 65 25 0d 32 64  |=icon_handle%.2d|
00003400  16 74 65 6d 70 5f 62 6c  6b 25 21 31 32 3d 31 3c  |.temp_blk%!12=1<|
00003410  3c 32 31 0d 32 6e 2e e7  20 73 65 6c 65 63 74 25  |<21.2n.. select%|
00003420  20 74 65 6d 70 5f 62 6c  6b 25 21 38 3d 31 3c 3c  | temp_blk%!8=1<<|
00003430  32 31 20 8b 74 65 6d 70  5f 62 6c 6b 25 21 38 3d  |21 .temp_blk%!8=|
00003440  30 0d 32 78 24 c8 99 22  57 69 6d 70 5f 53 65 74  |0.2x$.."Wimp_Set|
00003450  49 63 6f 6e 53 74 61 74  65 22 2c 2c 74 65 6d 70  |IconState",,temp|
00003460  5f 62 6c 6b 25 0d 32 82  05 e1 0d 32 be 34 dd f2  |_blk%.2....2.4..|
00003470  73 68 61 64 65 5f 69 63  6f 6e 28 77 69 6e 64 6f  |shade_icon(windo|
00003480  77 5f 68 61 6e 64 6c 65  25 2c 69 63 6f 6e 5f 68  |w_handle%,icon_h|
00003490  61 6e 64 6c 65 25 2c 73  68 61 64 65 25 29 0d 32  |andle%,shade%).2|
000034a0  d2 1e 74 65 6d 70 5f 62  6c 6b 25 21 30 3d 77 69  |..temp_blk%!0=wi|
000034b0  6e 64 6f 77 5f 68 61 6e  64 6c 65 25 0d 32 dc 1c  |ndow_handle%.2..|
000034c0  74 65 6d 70 5f 62 6c 6b  25 21 34 3d 69 63 6f 6e  |temp_blk%!4=icon|
000034d0  5f 68 61 6e 64 6c 65 25  0d 32 e6 16 74 65 6d 70  |_handle%.2..temp|
000034e0  5f 62 6c 6b 25 21 31 32  3d 31 3c 3c 32 32 0d 32  |_blk%!12=1<<22.2|
000034f0  f0 2d e7 20 73 68 61 64  65 25 20 74 65 6d 70 5f  |.-. shade% temp_|
00003500  62 6c 6b 25 21 38 3d 31  3c 3c 32 32 20 8b 74 65  |blk%!8=1<<22 .te|
00003510  6d 70 5f 62 6c 6b 25 21  38 3d 30 0d 32 fa 24 c8  |mp_blk%!8=0.2.$.|
00003520  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00003530  61 74 65 22 2c 2c 74 65  6d 70 5f 62 6c 6b 25 0d  |ate",,temp_blk%.|
00003540  33 04 05 e1 0d 33 a4 1b  dd a4 69 74 65 6d 5f 63  |3....3....item_c|
00003550  6f 75 6e 74 28 6d 65 6e  75 5f 70 74 72 25 29 0d  |ount(menu_ptr%).|
00003560  33 ae 0c ea 20 63 6f 75  6e 74 25 0d 33 b8 0c 63  |3... count%.3..c|
00003570  6f 75 6e 74 25 3d 31 0d  33 c2 11 6d 65 6e 75 5f  |ount%=1.3..menu_|
00003580  70 74 72 25 2b 3d 32 38  0d 33 cc 35 c8 95 20 28  |ptr%+=28.3.5.. (|
00003590  21 6d 65 6e 75 5f 70 74  72 25 20 80 20 26 38 30  |!menu_ptr% . &80|
000035a0  29 3d 30 3a 6d 65 6e 75  5f 70 74 72 25 2b 3d 32  |)=0:menu_ptr%+=2|
000035b0  34 3a 63 6f 75 6e 74 25  2b 3d 31 3a ce 0d 33 d6  |4:count%+=1:..3.|
000035c0  0b 3d 63 6f 75 6e 74 25  0d 34 12 1f dd f2 73 68  |.=count%.4....sh|
000035d0  61 64 65 28 6d 65 6e 75  25 2c 69 74 65 6d 25 2c  |ade(menu%,item%,|
000035e0  73 68 61 64 65 25 29 0d  34 1c 12 ea 20 66 6c 61  |shade%).4... fla|
000035f0  67 61 64 64 72 65 73 73  25 0d 34 26 23 e7 6d 65  |gaddress%.4&#.me|
00003600  6e 75 25 3c 31 20 84 20  6d 65 6e 75 25 3e de 28  |nu%<1 . menu%>.(|
00003610  6d 65 6e 75 25 28 29 2c  31 29 20 8c 0d 34 30 37  |menu%(),1) ..407|
00003620  85 20 32 30 31 2c 22 49  74 65 6d 20 73 68 61 64  |. 201,"Item shad|
00003630  65 20 65 72 72 6f 72 2e  20 4f 75 74 20 6f 66 20  |e error. Out of |
00003640  72 61 6e 67 65 20 6d 65  6e 75 20 6e 75 6d 62 65  |range menu numbe|
00003650  72 21 22 0d 34 3a 05 cd  0d 34 44 31 e7 20 69 74  |r!".4:...4D1. it|
00003660  65 6d 25 3c 30 20 84 20  69 74 65 6d 25 3e a4 69  |em%<0 . item%>.i|
00003670  74 65 6d 5f 63 6f 75 6e  74 28 6d 65 6e 75 25 28  |tem_count(menu%(|
00003680  6d 65 6e 75 25 29 29 20  8c 0d 34 4e 3c 85 20 32  |menu%)) ..4N<. 2|
00003690  30 31 2c 22 49 74 65 6d  20 73 68 61 64 65 20 65  |01,"Item shade e|
000036a0  72 72 6f 72 2e 20 4f 75  74 20 6f 66 20 72 61 6e  |rror. Out of ran|
000036b0  67 65 20 6d 65 6e 75 20  69 74 65 6d 20 6e 75 6d  |ge menu item num|
000036c0  62 65 72 21 22 0d 34 58  05 cd 0d 34 62 2d 66 6c  |ber!".4X...4b-fl|
000036d0  61 67 61 64 64 72 65 73  73 25 3d 6d 65 6e 75 25  |agaddress%=menu%|
000036e0  28 6d 65 6e 75 25 29 2b  32 38 2b 28 32 34 2a 69  |(menu%)+28+(24*i|
000036f0  74 65 6d 25 29 2b 38 0d  34 6c 27 e7 20 73 68 61  |tem%)+8.4l'. sha|
00003700  64 65 25 3d b9 20 73 68  61 64 65 25 3d 26 34 30  |de%=. shade%=&40|
00003710  30 30 30 30 20 8b 73 68  61 64 65 25 3d 30 0d 34  |0000 .shade%=0.4|
00003720  76 36 21 66 6c 61 67 61  64 64 72 65 73 73 25 3d  |v6!flagaddress%=|
00003730  28 21 66 6c 61 67 61 64  64 72 65 73 73 25 20 80  |(!flagaddress% .|
00003740  20 26 46 46 42 46 46 46  46 46 29 20 84 20 73 68  | &FFBFFFFF) . sh|
00003750  61 64 65 25 0d 34 80 05  e1 0d 34 bc 1d dd f2 74  |ade%.4....4....t|
00003760  69 63 6b 28 6d 65 6e 75  25 2c 69 74 65 6d 25 2c  |ick(menu%,item%,|
00003770  74 69 63 6b 25 29 0d 34  c6 12 ea 20 66 6c 61 67  |tick%).4... flag|
00003780  61 64 64 72 65 73 73 25  0d 34 d0 23 e7 6d 65 6e  |address%.4.#.men|
00003790  75 25 3c 31 20 84 20 6d  65 6e 75 25 3e de 28 6d  |u%<1 . menu%>.(m|
000037a0  65 6e 75 25 28 29 2c 31  29 20 8c 0d 34 da 36 85  |enu%(),1) ..4.6.|
000037b0  20 32 30 31 2c 22 49 74  65 6d 20 74 69 63 6b 20  | 201,"Item tick |
000037c0  65 72 72 6f 72 2e 20 4f  75 74 20 6f 66 20 72 61  |error. Out of ra|
000037d0  6e 67 65 20 6d 65 6e 75  20 6e 75 6d 62 65 72 21  |nge menu number!|
000037e0  22 0d 34 e4 05 cd 0d 34  ee 31 e7 20 69 74 65 6d  |".4....4.1. item|
000037f0  25 3c 30 20 84 20 69 74  65 6d 25 3e a4 69 74 65  |%<0 . item%>.ite|
00003800  6d 5f 63 6f 75 6e 74 28  6d 65 6e 75 25 28 6d 65  |m_count(menu%(me|
00003810  6e 75 25 29 29 20 8c 0d  34 f8 36 85 20 32 30 31  |nu%)) ..4.6. 201|
00003820  2c 22 49 74 65 6d 20 74  69 63 6b 20 65 72 72 6f  |,"Item tick erro|
00003830  72 2e 20 4f 75 74 20 6f  66 20 72 61 6e 67 65 20  |r. Out of range |
00003840  69 74 65 6d 20 6e 75 6d  62 65 72 21 22 0d 35 02  |item number!".5.|
00003850  05 cd 0d 35 0c 2b 66 6c  61 67 61 64 64 72 65 73  |...5.+flagaddres|
00003860  73 25 3d 6d 65 6e 75 25  28 6d 65 6e 75 25 29 2b  |s%=menu%(menu%)+|
00003870  32 38 2b 28 32 34 2a 69  74 65 6d 25 29 0d 35 16  |28+(24*item%).5.|
00003880  1e e7 20 74 69 63 6b 25  3d b9 20 74 69 63 6b 25  |.. tick%=. tick%|
00003890  3d 31 20 8b 74 69 63 6b  25 3d 30 0d 35 20 35 21  |=1 .tick%=0.5 5!|
000038a0  66 6c 61 67 61 64 64 72  65 73 73 25 3d 28 21 66  |flagaddress%=(!f|
000038b0  6c 61 67 61 64 64 72 65  73 73 25 20 80 20 26 46  |lagaddress% . &F|
000038c0  46 46 46 46 46 46 45 29  20 84 20 74 69 63 6b 25  |FFFFFFE) . tick%|
000038d0  0d 35 2a 05 e1 0d 35 66  26 dd a4 64 65 63 6f 64  |.5*...5f&..decod|
000038e0  65 5f 6d 65 6e 75 28 6d  65 6e 75 73 74 61 72 74  |e_menu(menustart|
000038f0  25 2c 6c 69 73 74 70 74  72 25 29 0d 35 70 10 ea  |%,listptr%).5p..|
00003900  20 74 65 78 74 5f 70 61  74 68 24 0d 35 7a 45 c8  | text_path$.5zE.|
00003910  99 22 57 69 6d 70 5f 44  65 63 6f 64 65 4d 65 6e  |."Wimp_DecodeMen|
00003920  75 22 2c 2c 6d 65 6e 75  73 74 61 72 74 25 2c 6c  |u",,menustart%,l|
00003930  69 73 74 70 74 72 25 2c  62 6c 6b 25 2b 32 35 36  |istptr%,blk%+256|
00003940  20 b8 20 2c 2c 2c 74 65  78 74 5f 70 61 74 68 24  | . ,,,text_path$|
00003950  0d 35 84 0f 3d 74 65 78  74 5f 70 61 74 68 24 0d  |.5..=text_path$.|
00003960  35 c0 1c dd a4 6d 65 6e  75 5f 68 65 69 67 68 74  |5....menu_height|
00003970  28 6d 65 6e 75 5f 70 74  72 25 29 0d 35 ca 23 ea  |(menu_ptr%).5.#.|
00003980  20 69 74 65 6d 63 6f 75  6e 74 25 2c 6c 69 6e 65  | itemcount%,line|
00003990  63 6f 75 6e 74 25 2c 68  65 69 67 68 74 25 0d 35  |count%,height%.5|
000039a0  d4 10 69 74 65 6d 63 6f  75 6e 74 25 3d 31 0d 35  |..itemcount%=1.5|
000039b0  de 25 68 65 69 67 68 74  25 3d 6d 65 6e 75 5f 70  |.%height%=menu_p|
000039c0  74 72 25 21 32 30 2b 6d  65 6e 75 5f 70 74 72 25  |tr%!20+menu_ptr%|
000039d0  21 32 34 0d 35 e8 11 6d  65 6e 75 5f 70 74 72 25  |!24.5..menu_ptr%|
000039e0  2b 3d 32 38 0d 35 f2 1b  c8 95 20 28 21 6d 65 6e  |+=28.5.... (!men|
000039f0  75 5f 70 74 72 25 20 80  20 26 38 30 29 3d 30 0d  |u_ptr% . &80)=0.|
00003a00  35 fc 11 69 74 65 6d 63  6f 75 6e 74 25 2b 3d 31  |5..itemcount%+=1|
00003a10  0d 36 06 25 e7 20 28 21  6d 65 6e 75 5f 70 74 72  |.6.%. (!menu_ptr|
00003a20  25 20 80 20 26 32 29 20  6c 69 6e 65 63 6f 75 6e  |% . &2) linecoun|
00003a30  74 25 2b 3d 31 0d 36 10  11 6d 65 6e 75 5f 70 74  |t%+=1.6..menu_pt|
00003a40  72 25 2b 3d 32 34 0d 36  1a 05 ce 0d 36 24 25 e7  |r%+=24.6....6$%.|
00003a50  20 28 21 6d 65 6e 75 5f  70 74 72 25 20 80 20 26  | (!menu_ptr% . &|
00003a60  32 29 20 6c 69 6e 65 63  6f 75 6e 74 25 2b 3d 31  |2) linecount%+=1|
00003a70  0d 36 2e 25 3d 69 74 65  6d 63 6f 75 6e 74 25 2a  |.6.%=itemcount%*|
00003a80  68 65 69 67 68 74 25 2b  6c 69 6e 65 63 6f 75 6e  |height%+linecoun|
00003a90  74 25 2a 32 34 0d 36 9c  11 dd a4 6c 65 61 66 28  |t%*24.6....leaf(|
00003aa0  70 61 74 68 24 29 0d 36  a6 30 c8 95 20 a7 70 61  |path$).6.0.. .pa|
00003ab0  74 68 24 2c 22 2e 22 29  3a 70 61 74 68 24 3d c1  |th$,"."):path$=.|
00003ac0  70 61 74 68 24 2c a7 70  61 74 68 24 2c 22 2e 22  |path$,.path$,"."|
00003ad0  29 2b 31 29 3a ce 0d 36  b0 0a 3d 70 61 74 68 24  |)+1):..6..=path$|
00003ae0  0d 36 f6 11 6c 69 6e 65  25 3d 6c 69 6e 65 25 83  |.6..line%=line%.|
00003af0  34 0d 37 00 17 e7 20 a7  76 61 72 69 61 62 6c 65  |4.7... .variable|
00003b00  24 2c 22 24 22 29 20 8c  0d 37 0a 1f 76 61 72 69  |$,"$") ..7..vari|
00003b10  61 62 6c 65 24 2b 3d 22  3d 22 2b a0 28 76 61 72  |able$+="="+.(var|
00003b20  69 61 62 6c 65 24 29 0d  37 14 05 cc 0d 37 1e 17  |iable$).7....7..|
00003b30  e7 20 a7 76 61 72 69 61  62 6c 65 24 2c 22 20 22  |. .variable$," "|
00003b40  29 20 8c 0d 37 32 05 cc  0d 37 3c 22 76 61 72 69  |) ..72...7<"vari|
00003b50  61 62 6c 65 24 2b 3d 22  3d 22 2b c3 28 a0 28 76  |able$+="="+.(.(v|
00003b60  61 72 69 61 62 6c 65 24  29 29 0d 37 46 05 cd 0d  |ariable$)).7F...|
00003b70  37 50 05 cd 0d 37 5a 34  f2 70 75 74 5f 69 63 6f  |7P...7Z4.put_ico|
00003b80  6e 5f 74 65 78 74 28 73  68 6f 77 5f 76 61 6c 75  |n_text(show_valu|
00003b90  65 25 2c 6c 69 6e 65 25  2c c0 76 61 72 69 61 62  |e%,line%,.variab|
00003ba0  6c 65 24 2c 33 35 29 29  0d 37 64 1d f2 6f 70 65  |le$,35)).7d..ope|
00003bb0  6e 5f 77 69 6e 64 6f 77  28 73 68 6f 77 5f 76 61  |n_window(show_va|
00003bc0  6c 75 65 25 29 0d 37 6e  05 e1 0d 38 0e 42 dd a4  |lue%).7n...8.B..|
00003bd0  6e 65 77 5f 74 65 6d 70  6c 61 74 65 28 74 65 6d  |new_template(tem|
00003be0  70 6c 61 74 65 5f 66 69  6c 65 24 2c 77 69 6e 64  |plate_file$,wind|
00003bf0  6f 77 5f 6e 61 6d 65 24  2c f8 20 6d 65 6d 66 72  |ow_name$,. memfr|
00003c00  65 65 25 2c 6d 65 6d 65  6e 64 25 29 0d 38 18 14  |ee%,memend%).8..|
00003c10  ea 20 77 69 6e 64 6f 77  5f 68 61 6e 64 6c 65 25  |. window_handle%|
00003c20  0d 38 22 29 c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |.8").."Wimp_Open|
00003c30  54 65 6d 70 6c 61 74 65  22 2c 2c 74 65 6d 70 6c  |Template",,templ|
00003c40  61 74 65 5f 66 69 6c 65  24 0d 38 2c 3b 77 69 6e  |ate_file$.8,;win|
00003c50  64 6f 77 5f 68 61 6e 64  6c 65 25 3d a4 74 65 6d  |dow_handle%=.tem|
00003c60  70 6c 61 74 65 28 77 69  6e 64 6f 77 5f 6e 61 6d  |plate(window_nam|
00003c70  65 24 2c 6d 65 6d 66 72  65 65 25 2c 6d 65 6d 65  |e$,memfree%,meme|
00003c80  6e 64 25 29 0d 38 36 1b  c8 99 20 22 57 69 6d 70  |nd%).86... "Wimp|
00003c90  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
00003ca0  38 40 13 3d 77 69 6e 64  6f 77 5f 68 61 6e 64 6c  |8@.=window_handl|
00003cb0  65 25 0d 38 7c 28 dd a4  74 65 6d 70 6c 61 74 65  |e%.8|(..template|
00003cc0  28 77 69 6e 64 6f 77 5f  6e 61 6d 65 24 2c f8 20  |(window_name$,. |
00003cd0  70 74 72 25 2c 65 6e 64  25 29 0d 38 86 1b ea 20  |ptr%,end%).8... |
00003ce0  66 6f 75 6e 64 25 2c 77  69 6e 64 6f 77 5f 68 61  |found%,window_ha|
00003cf0  6e 64 6c 65 25 0d 38 90  4e c8 99 22 57 69 6d 70  |ndle%.8.N.."Wimp|
00003d00  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00003d10  62 6c 6b 25 2c 70 74 72  25 2c 65 6e 64 25 2c 2d  |blk%,ptr%,end%,-|
00003d20  31 2c 77 69 6e 64 6f 77  5f 6e 61 6d 65 24 2c 30  |1,window_name$,0|
00003d30  20 b8 20 2c 2c 70 74 72  25 2c 2c 2c 2c 66 6f 75  | . ,,ptr%,,,,fou|
00003d40  6e 64 25 0d 38 9a 0e e7  20 66 6f 75 6e 64 25 20  |nd%.8... found% |
00003d50  8c 0d 38 a4 31 c8 99 20  22 57 69 6d 70 5f 43 72  |..8.1.. "Wimp_Cr|
00003d60  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6b  |eateWindow",,blk|
00003d70  25 20 b8 20 77 69 6e 64  6f 77 5f 68 61 6e 64 6c  |% . window_handl|
00003d80  65 25 0d 38 ae 05 cc 0d  38 b8 3f 85 20 a2 20 30  |e%.8....8.?. . 0|
00003d90  2c 22 57 69 6e 64 6f 77  20 22 2b 77 69 6e 64 6f  |,"Window "+windo|
00003da0  77 5f 6e 61 6d 65 24 2b  22 20 6e 6f 74 20 66 6f  |w_name$+" not fo|
00003db0  75 6e 64 20 69 6e 20 74  65 6d 70 6c 61 74 65 20  |und in template |
00003dc0  66 69 6c 65 21 22 0d 38  c2 14 77 69 6e 64 6f 77  |file!".8..window|
00003dd0  5f 68 61 6e 64 6c 65 25  3d 30 0d 38 cc 05 cd 0d  |_handle%=0.8....|
00003de0  38 d6 13 3d 77 69 6e 64  6f 77 5f 68 61 6e 64 6c  |8..=window_handl|
00003df0  65 25 0d 39 4e 21 dd f2  6f 70 65 6e 5f 77 69 6e  |e%.9N!..open_win|
00003e00  64 6f 77 28 77 69 6e 64  6f 77 5f 68 61 6e 64 6c  |dow(window_handl|
00003e10  65 25 29 0d 39 58 1d 21  74 65 6d 70 5f 62 6c 6b  |e%).9X.!temp_blk|
00003e20  25 3d 77 69 6e 64 6f 77  5f 68 61 6e 64 6c 65 25  |%=window_handle%|
00003e30  0d 39 62 27 c8 99 20 22  57 69 6d 70 5f 47 65 74  |.9b'.. "Wimp_Get|
00003e40  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 74 65  |WindowState",,te|
00003e50  6d 70 5f 62 6c 6b 25 0d  39 6c 23 c8 99 20 22 57  |mp_blk%.9l#.. "W|
00003e60  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00003e70  2c 74 65 6d 70 5f 62 6c  6b 25 0d 39 76 05 e1 0d  |,temp_blk%.9v...|
00003e80  ff                                                |.|
00003e81