� > <FontZip$Dir>.!RunImage
(� Written by Barry Wickett, May 1994

(
�initiate
2
<!� � �report_error(�$):exit%=�
F
P
ȕ �exit%
Z  �poll(poll_mask%)
d�
n
x� font%=0 � 255
�  ȕ font_table%?font%
�    ș"Font_LoseFont",font%
�    font_table%?font%-=1
�  �
�� font%
�
�ș"Wimp_CloseDown"
�
��
�
�� �initiate
�task_name$="Font Zip"
�H� q% &400,message_list% 8,menu_block% &100,ind% 700, font_table% 256

poll_word%=(1<<14)-1

�


  � mask%

"(  poll_word%=poll_word% � (1<<mask%)

,� mask%=-1

6� 2,6,8,9,-1

@indend%=ind%+700

J!message_list%=3

Tmessage_list%!4=0

^Qș"Wimp_Initialise",310,&4B534154,task_name$,message_list% � version%,mytask%

h7myicon%=�create_icon(-1,0,0,68,68,&2002,"!fontzip")

rexit%=�

|
active%=�

�

�� font%=0 � 255

�  font_table%?font%=0

�� font%

�

�4ș"Wimp_OpenTemplate",,"<FontZip$Dir>.Templates"

� info%=�create_window("info")

�$action%=�create_window("action")

�ș"Wimp_CloseTemplate"

�

�!menu%=�start_menu(task_name$)

��menu_item("Info",info%)

��menu_item("Quit",0)

�end_menu
�

&� �poll(poll_mask%)
0)ș"Wimp_Poll",poll_mask%,q% � reason%
:Ȏ reason% �
D#  � 2 : ș"Wimp_OpenWindow",,q%
N3  � 6 : �mouse_click(!q%,q%!4,q%!8,q%!12,q%!16)
X   � 8 : �key(!q%,q%!4,q%!24)
b  � 9 : � !q%=1 � exit%=�
l)  � 17,18 : �message(q%!4,q%!8,q%!16)
v�
��
�
�,� �mouse_click(mx%,my%,but%,wind%,icon%)
�Ȏ wind% �
�B  � -2 : � but%=2 � �open_menu(menu%,!q%-(menu%!16>>1)-16,184)
�5  � action% : � icon%=4 � icon%=5 � choice%=icon%
��
��
�
�� �key(wind%,icon%,key%)
�
Ȏ � �
�5  � wind%=action% � icon%=3 � key%=13 : choice%=4
�
  ș"Wimp_ProcessKey",key%
�
�
 
*#� �message(task%,ref%,message%)
4Ȏ message% �
>  � 0 : exit%=�
HB  � 3 : � q%!40=&2000 � �active% � �do_it(�null_string(q%+44))
R�
\�
f
p� �do_it(prefix$)
zș"Wimp_GetPointerInfo",,q%
�-�open_window_at(action%,!q%-256,q%!4+160)
�active%=�:map%=�
�"out_file$=prefix$+".Messages1"
�file=�(out_file$)
�
level%=-1
�
�scan("")
�
�#file
�"ș"OS_File",&12,out_file$,&FFF
��close_window(action%)
�
active%=�
��
�
�� �scan(dir$)

level%+=1
� entry%,dir_info%
ȕ entry%>=0
$Aș"OS_GBPB",10,prefix$+dir$,q%,1,entry%,256 � ,,,read%,entry%
.
� read% �
8   file$=�null_string(q%+&14)
B  Ȏ q%!&10 �
L    � 2
V      � level%=0 �
`&        �set_icon(action%,1,file$)
j#        �set_icon(action%,3,"")
t        � map% �
~%          �set_caret(action%,3,0)
�          choice%=0
�          �
�!            �poll(poll_mask%)
�          � choice% � exit%
�"          � choice%=5 � map%=�
�"          �set_caret(-1,-1,-1)
�
        �
�&        map$=�read_icon(action%,3)
�      �
�*      � �exit% � �scan(dir$+"."+file$)
�    � 1
�      char%=�(�file$,1))
/      � char%>=48 � char%<=57 � dir_info%=2

%      � dir_info%=0 � dir_info%=1
  �
�
(�
2� level%>0 � dir_info%>0 �
<  font$=�dir$,2)
F$  � dir_info%=2 � l$="L" � l$=""
PG  � map$="" � this_map$="" � this_map$=map$+�font$,�font$+".","."))
Z+  �#file,l$+"Font_"+font$+":"+this_map$
d�
n
level%-=1
x�
�
�� �null_string(pos%)
�
� string$
�ȕ ?pos%>31
�  string$+=�(?pos%)
�
  pos%+=1
��
�=string$
�
�"� �set_caret(wind%,icon%,pos%)
�5ș"Wimp_SetCaretPosition",wind%,icon%,0,0,-1,pos%
��
�
<� �create_icon(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,$(q%+24))
#ș"Wimp_CreateIcon",,q% � icon%

=icon%
"
,� �set_icon(!q%,q%!4,text$)
6ș"Wimp_GetIconState",,q%
@� $(q%!28)<>text$ �
J  $(q%!28)=text$
T  q%!8=0:q%!12=0
^  ș"Wimp_SetIconState",,q%
h�
r�
|
�� �read_icon(!q%,q%!4)
�ș"Wimp_GetIconState",,q%
�
=$(q%!28)
�
�� �open_menu(menu%,mx%,my%)
�&ș"Wimp_CreateMenu",,menu%,mx%,my%
�open_menu%=menu%
��
�
�� �create_window(window$)
�Gș"Wimp_LoadTemplate",,q%,ind%,indend%,font_table%,window$ � ,,ind%
�'ș"Wimp_CreateWindow",,q% � window%
�=window%

"� �open_window_at(!q%,wx%,wy%)
ș"Wimp_GetWindowState",,q%
&
wx%-=q%!4
0
wy%-=q%!8
:
q%!4+=wx%
D
q%!8+=wy%
Nq%!12+=wx%
Xq%!16+=wy%
bș"Wimp_OpenWindow",,q%
l�
v
�� �close_window(!q%)
�ș"Wimp_CloseWindow",,q%
��
�
�� �start_menu(name$)
�longest%=�name$
�menu_start%=menu_block%
�$menu_block%=name$
�menu_block%!12=&70207
�menu_block%!20=44
�menu_block%!24=0
�menu_block%+=28
�=menu_start%

� �menu_item(item$,link%)
'� �item$>longest% � longest%=�item$
 !menu_block%=0
*menu_block%!4=link%
4menu_block%!8=&7000021
>$(menu_block%+12)=item$
Hmenu_block%+=24
R�
\
f� �end_menu
p"menu_start%!16=(longest%+1)*16
z-!(menu_block%-24)=!(menu_block%-24) � &80
��
�
�� �report_error($(q%+4))
�!q%=255
�(ș"Wimp_ReportError",q%,2,task_name$
��
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 46 6f 6e 74 5a 69 70  |..... > <FontZip|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 28 f4 20 57 72 69  74 74 65 6e 20 62 79 20  |..(. Written by |
00000030  42 61 72 72 79 20 57 69  63 6b 65 74 74 2c 20 4d  |Barry Wickett, M|
00000040  61 79 20 31 39 39 34 0d  00 1e 04 0d 00 28 0d f2  |ay 1994......(..|
00000050  69 6e 69 74 69 61 74 65  0d 00 32 04 0d 00 3c 21  |initiate..2...<!|
00000060  ee 20 85 20 f2 72 65 70  6f 72 74 5f 65 72 72 6f  |. . .report_erro|
00000070  72 28 f6 24 29 3a 65 78  69 74 25 3d b9 0d 00 46  |r(.$):exit%=...F|
00000080  04 0d 00 50 0d c8 95 20  ac 65 78 69 74 25 0d 00  |...P... .exit%..|
00000090  5a 17 20 20 f2 70 6f 6c  6c 28 70 6f 6c 6c 5f 6d  |Z.  .poll(poll_m|
000000a0  61 73 6b 25 29 0d 00 64  05 ce 0d 00 6e 04 0d 00  |ask%)..d....n...|
000000b0  78 13 e3 20 66 6f 6e 74  25 3d 30 20 b8 20 32 35  |x.. font%=0 . 25|
000000c0  35 0d 00 82 1a 20 20 c8  95 20 66 6f 6e 74 5f 74  |5....  .. font_t|
000000d0  61 62 6c 65 25 3f 66 6f  6e 74 25 0d 00 8c 1f 20  |able%?font%.... |
000000e0  20 20 20 c8 99 22 46 6f  6e 74 5f 4c 6f 73 65 46  |   .."Font_LoseF|
000000f0  6f 6e 74 22 2c 66 6f 6e  74 25 0d 00 96 1c 20 20  |ont",font%....  |
00000100  20 20 66 6f 6e 74 5f 74  61 62 6c 65 25 3f 66 6f  |  font_table%?fo|
00000110  6e 74 25 2d 3d 31 0d 00  a0 07 20 20 ce 0d 00 aa  |nt%-=1....  ....|
00000120  0b ed 20 66 6f 6e 74 25  0d 00 b4 04 0d 00 be 16  |.. font%........|
00000130  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
00000140  6e 22 0d 00 c8 04 0d 00  d2 05 e0 0d 00 dc 04 0d  |n"..............|
00000150  00 e6 0f dd 20 f2 69 6e  69 74 69 61 74 65 0d 00  |.... .initiate..|
00000160  f0 19 74 61 73 6b 5f 6e  61 6d 65 24 3d 22 46 6f  |..task_name$="Fo|
00000170  6e 74 20 5a 69 70 22 0d  00 fa 48 de 20 71 25 20  |nt Zip"...H. q% |
00000180  26 34 30 30 2c 6d 65 73  73 61 67 65 5f 6c 69 73  |&400,message_lis|
00000190  74 25 20 38 2c 6d 65 6e  75 5f 62 6c 6f 63 6b 25  |t% 8,menu_block%|
000001a0  20 26 31 30 30 2c 69 6e  64 25 20 37 30 30 2c 20  | &100,ind% 700, |
000001b0  66 6f 6e 74 5f 74 61 62  6c 65 25 20 32 35 36 0d  |font_table% 256.|
000001c0  01 04 18 70 6f 6c 6c 5f  77 6f 72 64 25 3d 28 31  |...poll_word%=(1|
000001d0  3c 3c 31 34 29 2d 31 0d  01 0e 05 f5 0d 01 18 0d  |<<14)-1.........|
000001e0  20 20 f3 20 6d 61 73 6b  25 0d 01 22 28 20 20 70  |  . mask%.."(  p|
000001f0  6f 6c 6c 5f 77 6f 72 64  25 3d 70 6f 6c 6c 5f 77  |oll_word%=poll_w|
00000200  6f 72 64 25 20 82 20 28  31 3c 3c 6d 61 73 6b 25  |ord% . (1<<mask%|
00000210  29 0d 01 2c 0e fd 20 6d  61 73 6b 25 3d 2d 31 0d  |)..,.. mask%=-1.|
00000220  01 36 10 dc 20 32 2c 36  2c 38 2c 39 2c 2d 31 0d  |.6.. 2,6,8,9,-1.|
00000230  01 40 14 69 6e 64 65 6e  64 25 3d 69 6e 64 25 2b  |.@.indend%=ind%+|
00000240  37 30 30 0d 01 4a 14 21  6d 65 73 73 61 67 65 5f  |700..J.!message_|
00000250  6c 69 73 74 25 3d 33 0d  01 54 15 6d 65 73 73 61  |list%=3..T.messa|
00000260  67 65 5f 6c 69 73 74 25  21 34 3d 30 0d 01 5e 51  |ge_list%!4=0..^Q|
00000270  c8 99 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |.."Wimp_Initiali|
00000280  73 65 22 2c 33 31 30 2c  26 34 42 35 33 34 31 35  |se",310,&4B53415|
00000290  34 2c 74 61 73 6b 5f 6e  61 6d 65 24 2c 6d 65 73  |4,task_name$,mes|
000002a0  73 61 67 65 5f 6c 69 73  74 25 20 b8 20 76 65 72  |sage_list% . ver|
000002b0  73 69 6f 6e 25 2c 6d 79  74 61 73 6b 25 0d 01 68  |sion%,mytask%..h|
000002c0  37 6d 79 69 63 6f 6e 25  3d a4 63 72 65 61 74 65  |7myicon%=.create|
000002d0  5f 69 63 6f 6e 28 2d 31  2c 30 2c 30 2c 36 38 2c  |_icon(-1,0,0,68,|
000002e0  36 38 2c 26 32 30 30 32  2c 22 21 66 6f 6e 74 7a  |68,&2002,"!fontz|
000002f0  69 70 22 29 0d 01 72 0b  65 78 69 74 25 3d a3 0d  |ip")..r.exit%=..|
00000300  01 7c 0d 61 63 74 69 76  65 25 3d a3 0d 01 86 04  |.|.active%=.....|
00000310  0d 01 90 13 e3 20 66 6f  6e 74 25 3d 30 20 b8 20  |..... font%=0 . |
00000320  32 35 35 0d 01 9a 19 20  20 66 6f 6e 74 5f 74 61  |255....  font_ta|
00000330  62 6c 65 25 3f 66 6f 6e  74 25 3d 30 0d 01 a4 0b  |ble%?font%=0....|
00000340  ed 20 66 6f 6e 74 25 0d  01 ae 04 0d 01 b8 34 c8  |. font%.......4.|
00000350  99 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  |."Wimp_OpenTempl|
00000360  61 74 65 22 2c 2c 22 3c  46 6f 6e 74 5a 69 70 24  |ate",,"<FontZip$|
00000370  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
00000380  01 c2 20 69 6e 66 6f 25  3d a4 63 72 65 61 74 65  |.. info%=.create|
00000390  5f 77 69 6e 64 6f 77 28  22 69 6e 66 6f 22 29 0d  |_window("info").|
000003a0  01 cc 24 61 63 74 69 6f  6e 25 3d a4 63 72 65 61  |..$action%=.crea|
000003b0  74 65 5f 77 69 6e 64 6f  77 28 22 61 63 74 69 6f  |te_window("actio|
000003c0  6e 22 29 0d 01 d6 1a c8  99 22 57 69 6d 70 5f 43  |n")......"Wimp_C|
000003d0  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 01 e0  |loseTemplate"...|
000003e0  04 0d 01 ea 21 6d 65 6e  75 25 3d a4 73 74 61 72  |....!menu%=.star|
000003f0  74 5f 6d 65 6e 75 28 74  61 73 6b 5f 6e 61 6d 65  |t_menu(task_name|
00000400  24 29 0d 01 f4 1c f2 6d  65 6e 75 5f 69 74 65 6d  |$).....menu_item|
00000410  28 22 49 6e 66 6f 22 2c  69 6e 66 6f 25 29 0d 01  |("Info",info%)..|
00000420  fe 18 f2 6d 65 6e 75 5f  69 74 65 6d 28 22 51 75  |...menu_item("Qu|
00000430  69 74 22 2c 30 29 0d 02  08 0d f2 65 6e 64 5f 6d  |it",0).....end_m|
00000440  65 6e 75 0d 02 12 05 e1  0d 02 1c 04 0d 02 26 17  |enu...........&.|
00000450  dd 20 f2 70 6f 6c 6c 28  70 6f 6c 6c 5f 6d 61 73  |. .poll(poll_mas|
00000460  6b 25 29 0d 02 30 29 c8  99 22 57 69 6d 70 5f 50  |k%)..0).."Wimp_P|
00000470  6f 6c 6c 22 2c 70 6f 6c  6c 5f 6d 61 73 6b 25 2c  |oll",poll_mask%,|
00000480  71 25 20 b8 20 72 65 61  73 6f 6e 25 0d 02 3a 10  |q% . reason%..:.|
00000490  c8 8e 20 72 65 61 73 6f  6e 25 20 ca 0d 02 44 23  |.. reason% ...D#|
000004a0  20 20 c9 20 32 20 3a 20  c8 99 22 57 69 6d 70 5f  |  . 2 : .."Wimp_|
000004b0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
000004c0  02 4e 33 20 20 c9 20 36  20 3a 20 f2 6d 6f 75 73  |.N3  . 6 : .mous|
000004d0  65 5f 63 6c 69 63 6b 28  21 71 25 2c 71 25 21 34  |e_click(!q%,q%!4|
000004e0  2c 71 25 21 38 2c 71 25  21 31 32 2c 71 25 21 31  |,q%!8,q%!12,q%!1|
000004f0  36 29 0d 02 58 20 20 20  c9 20 38 20 3a 20 f2 6b  |6)..X   . 8 : .k|
00000500  65 79 28 21 71 25 2c 71  25 21 34 2c 71 25 21 32  |ey(!q%,q%!4,q%!2|
00000510  34 29 0d 02 62 1d 20 20  c9 20 39 20 3a 20 e7 20  |4)..b.  . 9 : . |
00000520  21 71 25 3d 31 20 8c 20  65 78 69 74 25 3d b9 0d  |!q%=1 . exit%=..|
00000530  02 6c 29 20 20 c9 20 31  37 2c 31 38 20 3a 20 f2  |.l)  . 17,18 : .|
00000540  6d 65 73 73 61 67 65 28  71 25 21 34 2c 71 25 21  |message(q%!4,q%!|
00000550  38 2c 71 25 21 31 36 29  0d 02 76 05 cb 0d 02 80  |8,q%!16)..v.....|
00000560  05 e1 0d 02 8a 04 0d 02  94 2c dd 20 f2 6d 6f 75  |.........,. .mou|
00000570  73 65 5f 63 6c 69 63 6b  28 6d 78 25 2c 6d 79 25  |se_click(mx%,my%|
00000580  2c 62 75 74 25 2c 77 69  6e 64 25 2c 69 63 6f 6e  |,but%,wind%,icon|
00000590  25 29 0d 02 9e 0e c8 8e  20 77 69 6e 64 25 20 ca  |%)...... wind% .|
000005a0  0d 02 a8 42 20 20 c9 20  2d 32 20 3a 20 e7 20 62  |...B  . -2 : . b|
000005b0  75 74 25 3d 32 20 8c 20  f2 6f 70 65 6e 5f 6d 65  |ut%=2 . .open_me|
000005c0  6e 75 28 6d 65 6e 75 25  2c 21 71 25 2d 28 6d 65  |nu(menu%,!q%-(me|
000005d0  6e 75 25 21 31 36 3e 3e  31 29 2d 31 36 2c 31 38  |nu%!16>>1)-16,18|
000005e0  34 29 0d 02 b2 35 20 20  c9 20 61 63 74 69 6f 6e  |4)...5  . action|
000005f0  25 20 3a 20 e7 20 69 63  6f 6e 25 3d 34 20 84 20  |% : . icon%=4 . |
00000600  69 63 6f 6e 25 3d 35 20  8c 20 63 68 6f 69 63 65  |icon%=5 . choice|
00000610  25 3d 69 63 6f 6e 25 0d  02 bc 05 cb 0d 02 c6 05  |%=icon%.........|
00000620  e1 0d 02 d0 04 0d 02 da  1c dd 20 f2 6b 65 79 28  |.......... .key(|
00000630  77 69 6e 64 25 2c 69 63  6f 6e 25 2c 6b 65 79 25  |wind%,icon%,key%|
00000640  29 0d 02 e4 0a c8 8e 20  b9 20 ca 0d 02 ee 35 20  |)...... . ....5 |
00000650  20 c9 20 77 69 6e 64 25  3d 61 63 74 69 6f 6e 25  | . wind%=action%|
00000660  20 80 20 69 63 6f 6e 25  3d 33 20 80 20 6b 65 79  | . icon%=3 . key|
00000670  25 3d 31 33 20 3a 20 63  68 6f 69 63 65 25 3d 34  |%=13 : choice%=4|
00000680  0d 02 f8 05 7f 0d 03 02  1e 20 20 c8 99 22 57 69  |.........  .."Wi|
00000690  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 6b  |mp_ProcessKey",k|
000006a0  65 79 25 0d 03 0c 05 cb  0d 03 16 05 e1 0d 03 20  |ey%............ |
000006b0  04 0d 03 2a 23 dd 20 f2  6d 65 73 73 61 67 65 28  |...*#. .message(|
000006c0  74 61 73 6b 25 2c 72 65  66 25 2c 6d 65 73 73 61  |task%,ref%,messa|
000006d0  67 65 25 29 0d 03 34 11  c8 8e 20 6d 65 73 73 61  |ge%)..4... messa|
000006e0  67 65 25 20 ca 0d 03 3e  13 20 20 c9 20 30 20 3a  |ge% ...>.  . 0 :|
000006f0  20 65 78 69 74 25 3d b9  0d 03 48 42 20 20 c9 20  | exit%=...HB  . |
00000700  33 20 3a 20 e7 20 71 25  21 34 30 3d 26 32 30 30  |3 : . q%!40=&200|
00000710  30 20 80 20 ac 61 63 74  69 76 65 25 20 8c 20 f2  |0 . .active% . .|
00000720  64 6f 5f 69 74 28 a4 6e  75 6c 6c 5f 73 74 72 69  |do_it(.null_stri|
00000730  6e 67 28 71 25 2b 34 34  29 29 0d 03 52 05 cb 0d  |ng(q%+44))..R...|
00000740  03 5c 05 e1 0d 03 66 04  0d 03 70 15 dd 20 f2 64  |.\....f...p.. .d|
00000750  6f 5f 69 74 28 70 72 65  66 69 78 24 29 0d 03 7a  |o_it(prefix$)..z|
00000760  1f c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |..."Wimp_GetPoin|
00000770  74 65 72 49 6e 66 6f 22  2c 2c 71 25 0d 03 84 2d  |terInfo",,q%...-|
00000780  f2 6f 70 65 6e 5f 77 69  6e 64 6f 77 5f 61 74 28  |.open_window_at(|
00000790  61 63 74 69 6f 6e 25 2c  21 71 25 2d 32 35 36 2c  |action%,!q%-256,|
000007a0  71 25 21 34 2b 31 36 30  29 0d 03 8e 14 61 63 74  |q%!4+160)....act|
000007b0  69 76 65 25 3d b9 3a 6d  61 70 25 3d b9 0d 03 98  |ive%=.:map%=....|
000007c0  22 6f 75 74 5f 66 69 6c  65 24 3d 70 72 65 66 69  |"out_file$=prefi|
000007d0  78 24 2b 22 2e 4d 65 73  73 61 67 65 73 31 22 0d  |x$+".Messages1".|
000007e0  03 a2 15 66 69 6c 65 3d  ae 28 6f 75 74 5f 66 69  |...file=.(out_fi|
000007f0  6c 65 24 29 0d 03 ac 0d  6c 65 76 65 6c 25 3d 2d  |le$)....level%=-|
00000800  31 0d 03 b6 0d f2 73 63  61 6e 28 22 22 29 0d 03  |1.....scan("")..|
00000810  c0 0a d9 23 66 69 6c 65  0d 03 ca 22 c8 99 22 4f  |...#file...".."O|
00000820  53 5f 46 69 6c 65 22 2c  26 31 32 2c 6f 75 74 5f  |S_File",&12,out_|
00000830  66 69 6c 65 24 2c 26 46  46 46 0d 03 d4 1a f2 63  |file$,&FFF.....c|
00000840  6c 6f 73 65 5f 77 69 6e  64 6f 77 28 61 63 74 69  |lose_window(acti|
00000850  6f 6e 25 29 0d 03 de 0d  61 63 74 69 76 65 25 3d  |on%)....active%=|
00000860  a3 0d 03 e8 05 e1 0d 03  f2 04 0d 03 fc 11 dd 20  |............... |
00000870  f2 73 63 61 6e 28 64 69  72 24 29 0d 04 06 0d 6c  |.scan(dir$)....l|
00000880  65 76 65 6c 25 2b 3d 31  0d 04 10 16 ea 20 65 6e  |evel%+=1..... en|
00000890  74 72 79 25 2c 64 69 72  5f 69 6e 66 6f 25 0d 04  |try%,dir_info%..|
000008a0  1a 10 c8 95 20 65 6e 74  72 79 25 3e 3d 30 0d 04  |.... entry%>=0..|
000008b0  24 41 c8 99 22 4f 53 5f  47 42 50 42 22 2c 31 30  |$A.."OS_GBPB",10|
000008c0  2c 70 72 65 66 69 78 24  2b 64 69 72 24 2c 71 25  |,prefix$+dir$,q%|
000008d0  2c 31 2c 65 6e 74 72 79  25 2c 32 35 36 20 b8 20  |,1,entry%,256 . |
000008e0  2c 2c 2c 72 65 61 64 25  2c 65 6e 74 72 79 25 0d  |,,,read%,entry%.|
000008f0  04 2e 0d e7 20 72 65 61  64 25 20 8c 0d 04 38 20  |.... read% ...8 |
00000900  20 20 66 69 6c 65 24 3d  a4 6e 75 6c 6c 5f 73 74  |  file$=.null_st|
00000910  72 69 6e 67 28 71 25 2b  26 31 34 29 0d 04 42 11  |ring(q%+&14)..B.|
00000920  20 20 c8 8e 20 71 25 21  26 31 30 20 ca 0d 04 4c  |  .. q%!&10 ...L|
00000930  0b 20 20 20 20 c9 20 32  0d 04 56 16 20 20 20 20  |.    . 2..V.    |
00000940  20 20 e7 20 6c 65 76 65  6c 25 3d 30 20 8c 0d 04  |  . level%=0 ...|
00000950  60 26 20 20 20 20 20 20  20 20 f2 73 65 74 5f 69  |`&        .set_i|
00000960  63 6f 6e 28 61 63 74 69  6f 6e 25 2c 31 2c 66 69  |con(action%,1,fi|
00000970  6c 65 24 29 0d 04 6a 23  20 20 20 20 20 20 20 20  |le$)..j#        |
00000980  f2 73 65 74 5f 69 63 6f  6e 28 61 63 74 69 6f 6e  |.set_icon(action|
00000990  25 2c 33 2c 22 22 29 0d  04 74 14 20 20 20 20 20  |%,3,"")..t.     |
000009a0  20 20 20 e7 20 6d 61 70  25 20 8c 0d 04 7e 25 20  |   . map% ...~% |
000009b0  20 20 20 20 20 20 20 20  20 f2 73 65 74 5f 63 61  |         .set_ca|
000009c0  72 65 74 28 61 63 74 69  6f 6e 25 2c 33 2c 30 29  |ret(action%,3,0)|
000009d0  0d 04 88 17 20 20 20 20  20 20 20 20 20 20 63 68  |....          ch|
000009e0  6f 69 63 65 25 3d 30 0d  04 92 0f 20 20 20 20 20  |oice%=0....     |
000009f0  20 20 20 20 20 f5 0d 04  9c 21 20 20 20 20 20 20  |     ....!      |
00000a00  20 20 20 20 20 20 f2 70  6f 6c 6c 28 70 6f 6c 6c  |      .poll(poll|
00000a10  5f 6d 61 73 6b 25 29 0d  04 a6 1f 20 20 20 20 20  |_mask%)....     |
00000a20  20 20 20 20 20 fd 20 63  68 6f 69 63 65 25 20 84  |     . choice% .|
00000a30  20 65 78 69 74 25 0d 04  b0 22 20 20 20 20 20 20  | exit%..."      |
00000a40  20 20 20 20 e7 20 63 68  6f 69 63 65 25 3d 35 20  |    . choice%=5 |
00000a50  8c 20 6d 61 70 25 3d a3  0d 04 ba 22 20 20 20 20  |. map%=...."    |
00000a60  20 20 20 20 20 20 f2 73  65 74 5f 63 61 72 65 74  |      .set_caret|
00000a70  28 2d 31 2c 2d 31 2c 2d  31 29 0d 04 c4 0d 20 20  |(-1,-1,-1)....  |
00000a80  20 20 20 20 20 20 cd 0d  04 ce 26 20 20 20 20 20  |      ....&     |
00000a90  20 20 20 6d 61 70 24 3d  a4 72 65 61 64 5f 69 63  |   map$=.read_ic|
00000aa0  6f 6e 28 61 63 74 69 6f  6e 25 2c 33 29 0d 04 d8  |on(action%,3)...|
00000ab0  0b 20 20 20 20 20 20 cd  0d 04 e2 2a 20 20 20 20  |.      ....*    |
00000ac0  20 20 e7 20 ac 65 78 69  74 25 20 8c 20 f2 73 63  |  . .exit% . .sc|
00000ad0  61 6e 28 64 69 72 24 2b  22 2e 22 2b 66 69 6c 65  |an(dir$+"."+file|
00000ae0  24 29 0d 04 ec 0b 20 20  20 20 c9 20 31 0d 04 f6  |$)....    . 1...|
00000af0  1c 20 20 20 20 20 20 63  68 61 72 25 3d 97 28 c2  |.      char%=.(.|
00000b00  66 69 6c 65 24 2c 31 29  29 0d 05 00 2f 20 20 20  |file$,1)).../   |
00000b10  20 20 20 e7 20 63 68 61  72 25 3e 3d 34 38 20 80  |   . char%>=48 .|
00000b20  20 63 68 61 72 25 3c 3d  35 37 20 8c 20 64 69 72  | char%<=57 . dir|
00000b30  5f 69 6e 66 6f 25 3d 32  0d 05 0a 25 20 20 20 20  |_info%=2...%    |
00000b40  20 20 e7 20 64 69 72 5f  69 6e 66 6f 25 3d 30 20  |  . dir_info%=0 |
00000b50  8c 20 64 69 72 5f 69 6e  66 6f 25 3d 31 0d 05 14  |. dir_info%=1...|
00000b60  07 20 20 cb 0d 05 1e 05  cd 0d 05 28 05 ce 0d 05  |.  ........(....|
00000b70  32 1e e7 20 6c 65 76 65  6c 25 3e 30 20 80 20 64  |2.. level%>0 . d|
00000b80  69 72 5f 69 6e 66 6f 25  3e 30 20 8c 0d 05 3c 14  |ir_info%>0 ...<.|
00000b90  20 20 66 6f 6e 74 24 3d  c1 64 69 72 24 2c 32 29  |  font$=.dir$,2)|
00000ba0  0d 05 46 24 20 20 e7 20  64 69 72 5f 69 6e 66 6f  |..F$  . dir_info|
00000bb0  25 3d 32 20 8c 20 6c 24  3d 22 4c 22 20 8b 20 6c  |%=2 . l$="L" . l|
00000bc0  24 3d 22 22 0d 05 50 47  20 20 e7 20 6d 61 70 24  |$=""..PG  . map$|
00000bd0  3d 22 22 20 8c 20 74 68  69 73 5f 6d 61 70 24 3d  |="" . this_map$=|
00000be0  22 22 20 8b 20 74 68 69  73 5f 6d 61 70 24 3d 6d  |"" . this_map$=m|
00000bf0  61 70 24 2b c1 66 6f 6e  74 24 2c a7 66 6f 6e 74  |ap$+.font$,.font|
00000c00  24 2b 22 2e 22 2c 22 2e  22 29 29 0d 05 5a 2b 20  |$+".","."))..Z+ |
00000c10  20 d5 23 66 69 6c 65 2c  6c 24 2b 22 46 6f 6e 74  | .#file,l$+"Font|
00000c20  5f 22 2b 66 6f 6e 74 24  2b 22 3a 22 2b 74 68 69  |_"+font$+":"+thi|
00000c30  73 5f 6d 61 70 24 0d 05  64 05 cd 0d 05 6e 0d 6c  |s_map$..d....n.l|
00000c40  65 76 65 6c 25 2d 3d 31  0d 05 78 05 e1 0d 05 82  |evel%-=1..x.....|
00000c50  04 0d 05 8c 18 dd 20 a4  6e 75 6c 6c 5f 73 74 72  |...... .null_str|
00000c60  69 6e 67 28 70 6f 73 25  29 0d 05 96 0d ea 20 73  |ing(pos%)..... s|
00000c70  74 72 69 6e 67 24 0d 05  a0 0f c8 95 20 3f 70 6f  |tring$...... ?po|
00000c80  73 25 3e 33 31 0d 05 aa  17 20 20 73 74 72 69 6e  |s%>31....  strin|
00000c90  67 24 2b 3d bd 28 3f 70  6f 73 25 29 0d 05 b4 0d  |g$+=.(?pos%)....|
00000ca0  20 20 70 6f 73 25 2b 3d  31 0d 05 be 05 ce 0d 05  |  pos%+=1.......|
00000cb0  c8 0c 3d 73 74 72 69 6e  67 24 0d 05 d2 04 0d 05  |..=string$......|
00000cc0  dc 22 dd 20 f2 73 65 74  5f 63 61 72 65 74 28 77  |.". .set_caret(w|
00000cd0  69 6e 64 25 2c 69 63 6f  6e 25 2c 70 6f 73 25 29  |ind%,icon%,pos%)|
00000ce0  0d 05 e6 35 c8 99 22 57  69 6d 70 5f 53 65 74 43  |...5.."Wimp_SetC|
00000cf0  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 77 69  |aretPosition",wi|
00000d00  6e 64 25 2c 69 63 6f 6e  25 2c 30 2c 30 2c 2d 31  |nd%,icon%,0,0,-1|
00000d10  2c 70 6f 73 25 0d 05 f0  05 e1 0d 05 fa 04 0d 06  |,pos%...........|
00000d20  04 3c dd 20 a4 63 72 65  61 74 65 5f 69 63 6f 6e  |.<. .create_icon|
00000d30  28 21 71 25 2c 71 25 21  34 2c 71 25 21 38 2c 71  |(!q%,q%!4,q%!8,q|
00000d40  25 21 31 32 2c 71 25 21  31 36 2c 71 25 21 32 30  |%!12,q%!16,q%!20|
00000d50  2c 24 28 71 25 2b 32 34  29 29 0d 06 0e 23 c8 99  |,$(q%+24))...#..|
00000d60  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00000d70  22 2c 2c 71 25 20 b8 20  69 63 6f 6e 25 0d 06 18  |",,q% . icon%...|
00000d80  0a 3d 69 63 6f 6e 25 0d  06 22 04 0d 06 2c 1f dd  |.=icon%.."...,..|
00000d90  20 f2 73 65 74 5f 69 63  6f 6e 28 21 71 25 2c 71  | .set_icon(!q%,q|
00000da0  25 21 34 2c 74 65 78 74  24 29 0d 06 36 1d c8 99  |%!4,text$)..6...|
00000db0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00000dc0  74 65 22 2c 2c 71 25 0d  06 40 17 e7 20 24 28 71  |te",,q%..@.. $(q|
00000dd0  25 21 32 38 29 3c 3e 74  65 78 74 24 20 8c 0d 06  |%!28)<>text$ ...|
00000de0  4a 14 20 20 24 28 71 25  21 32 38 29 3d 74 65 78  |J.  $(q%!28)=tex|
00000df0  74 24 0d 06 54 14 20 20  71 25 21 38 3d 30 3a 71  |t$..T.  q%!8=0:q|
00000e00  25 21 31 32 3d 30 0d 06  5e 1f 20 20 c8 99 22 57  |%!12=0..^.  .."W|
00000e10  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00000e20  22 2c 2c 71 25 0d 06 68  05 cd 0d 06 72 05 e1 0d  |",,q%..h....r...|
00000e30  06 7c 04 0d 06 86 1a dd  20 a4 72 65 61 64 5f 69  |.|...... .read_i|
00000e40  63 6f 6e 28 21 71 25 2c  71 25 21 34 29 0d 06 90  |con(!q%,q%!4)...|
00000e50  1d c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |..."Wimp_GetIcon|
00000e60  53 74 61 74 65 22 2c 2c  71 25 0d 06 9a 0d 3d 24  |State",,q%....=$|
00000e70  28 71 25 21 32 38 29 0d  06 a4 04 0d 06 ae 1f dd  |(q%!28).........|
00000e80  20 f2 6f 70 65 6e 5f 6d  65 6e 75 28 6d 65 6e 75  | .open_menu(menu|
00000e90  25 2c 6d 78 25 2c 6d 79  25 29 0d 06 b8 26 c8 99  |%,mx%,my%)...&..|
00000ea0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00000eb0  22 2c 2c 6d 65 6e 75 25  2c 6d 78 25 2c 6d 79 25  |",,menu%,mx%,my%|
00000ec0  0d 06 c2 14 6f 70 65 6e  5f 6d 65 6e 75 25 3d 6d  |....open_menu%=m|
00000ed0  65 6e 75 25 0d 06 cc 05  e1 0d 06 d6 04 0d 06 e0  |enu%............|
00000ee0  1d dd 20 a4 63 72 65 61  74 65 5f 77 69 6e 64 6f  |.. .create_windo|
00000ef0  77 28 77 69 6e 64 6f 77  24 29 0d 06 ea 47 c8 99  |w(window$)...G..|
00000f00  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000f10  74 65 22 2c 2c 71 25 2c  69 6e 64 25 2c 69 6e 64  |te",,q%,ind%,ind|
00000f20  65 6e 64 25 2c 66 6f 6e  74 5f 74 61 62 6c 65 25  |end%,font_table%|
00000f30  2c 77 69 6e 64 6f 77 24  20 b8 20 2c 2c 69 6e 64  |,window$ . ,,ind|
00000f40  25 0d 06 f4 27 c8 99 22  57 69 6d 70 5f 43 72 65  |%...'.."Wimp_Cre|
00000f50  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
00000f60  20 77 69 6e 64 6f 77 25  0d 06 fe 0c 3d 77 69 6e  | window%....=win|
00000f70  64 6f 77 25 0d 07 08 04  0d 07 12 22 dd 20 f2 6f  |dow%.......". .o|
00000f80  70 65 6e 5f 77 69 6e 64  6f 77 5f 61 74 28 21 71  |pen_window_at(!q|
00000f90  25 2c 77 78 25 2c 77 79  25 29 0d 07 1c 1f c8 99  |%,wx%,wy%)......|
00000fa0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00000fb0  74 61 74 65 22 2c 2c 71  25 0d 07 26 0d 77 78 25  |tate",,q%..&.wx%|
00000fc0  2d 3d 71 25 21 34 0d 07  30 0d 77 79 25 2d 3d 71  |-=q%!4..0.wy%-=q|
00000fd0  25 21 38 0d 07 3a 0d 71  25 21 34 2b 3d 77 78 25  |%!8..:.q%!4+=wx%|
00000fe0  0d 07 44 0d 71 25 21 38  2b 3d 77 79 25 0d 07 4e  |..D.q%!8+=wy%..N|
00000ff0  0e 71 25 21 31 32 2b 3d  77 78 25 0d 07 58 0e 71  |.q%!12+=wx%..X.q|
00001000  25 21 31 36 2b 3d 77 79  25 0d 07 62 1b c8 99 22  |%!16+=wy%..b..."|
00001010  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001020  2c 2c 71 25 0d 07 6c 05  e1 0d 07 76 04 0d 07 80  |,,q%..l....v....|
00001030  18 dd 20 f2 63 6c 6f 73  65 5f 77 69 6e 64 6f 77  |.. .close_window|
00001040  28 21 71 25 29 0d 07 8a  1c c8 99 22 57 69 6d 70  |(!q%)......"Wimp|
00001050  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 71  |_CloseWindow",,q|
00001060  25 0d 07 94 05 e1 0d 07  9e 04 0d 07 a8 18 dd 20  |%.............. |
00001070  a4 73 74 61 72 74 5f 6d  65 6e 75 28 6e 61 6d 65  |.start_menu(name|
00001080  24 29 0d 07 b2 13 6c 6f  6e 67 65 73 74 25 3d a9  |$)....longest%=.|
00001090  6e 61 6d 65 24 0d 07 bc  1b 6d 65 6e 75 5f 73 74  |name$....menu_st|
000010a0  61 72 74 25 3d 6d 65 6e  75 5f 62 6c 6f 63 6b 25  |art%=menu_block%|
000010b0  0d 07 c6 16 24 6d 65 6e  75 5f 62 6c 6f 63 6b 25  |....$menu_block%|
000010c0  3d 6e 61 6d 65 24 0d 07  d0 19 6d 65 6e 75 5f 62  |=name$....menu_b|
000010d0  6c 6f 63 6b 25 21 31 32  3d 26 37 30 32 30 37 0d  |lock%!12=&70207.|
000010e0  07 da 15 6d 65 6e 75 5f  62 6c 6f 63 6b 25 21 32  |...menu_block%!2|
000010f0  30 3d 34 34 0d 07 e4 14  6d 65 6e 75 5f 62 6c 6f  |0=44....menu_blo|
00001100  63 6b 25 21 32 34 3d 30  0d 07 ee 13 6d 65 6e 75  |ck%!24=0....menu|
00001110  5f 62 6c 6f 63 6b 25 2b  3d 32 38 0d 07 f8 10 3d  |_block%+=28....=|
00001120  6d 65 6e 75 5f 73 74 61  72 74 25 0d 08 02 04 0d  |menu_start%.....|
00001130  08 0c 1d dd 20 f2 6d 65  6e 75 5f 69 74 65 6d 28  |.... .menu_item(|
00001140  69 74 65 6d 24 2c 6c 69  6e 6b 25 29 0d 08 16 27  |item$,link%)...'|
00001150  e7 20 a9 69 74 65 6d 24  3e 6c 6f 6e 67 65 73 74  |. .item$>longest|
00001160  25 20 8c 20 6c 6f 6e 67  65 73 74 25 3d a9 69 74  |% . longest%=.it|
00001170  65 6d 24 0d 08 20 12 21  6d 65 6e 75 5f 62 6c 6f  |em$.. .!menu_blo|
00001180  63 6b 25 3d 30 0d 08 2a  17 6d 65 6e 75 5f 62 6c  |ck%=0..*.menu_bl|
00001190  6f 63 6b 25 21 34 3d 6c  69 6e 6b 25 0d 08 34 1a  |ock%!4=link%..4.|
000011a0  6d 65 6e 75 5f 62 6c 6f  63 6b 25 21 38 3d 26 37  |menu_block%!8=&7|
000011b0  30 30 30 30 32 31 0d 08  3e 1b 24 28 6d 65 6e 75  |000021..>.$(menu|
000011c0  5f 62 6c 6f 63 6b 25 2b  31 32 29 3d 69 74 65 6d  |_block%+12)=item|
000011d0  24 0d 08 48 13 6d 65 6e  75 5f 62 6c 6f 63 6b 25  |$..H.menu_block%|
000011e0  2b 3d 32 34 0d 08 52 05  e1 0d 08 5c 04 0d 08 66  |+=24..R....\...f|
000011f0  0f dd 20 f2 65 6e 64 5f  6d 65 6e 75 0d 08 70 22  |.. .end_menu..p"|
00001200  6d 65 6e 75 5f 73 74 61  72 74 25 21 31 36 3d 28  |menu_start%!16=(|
00001210  6c 6f 6e 67 65 73 74 25  2b 31 29 2a 31 36 0d 08  |longest%+1)*16..|
00001220  7a 2d 21 28 6d 65 6e 75  5f 62 6c 6f 63 6b 25 2d  |z-!(menu_block%-|
00001230  32 34 29 3d 21 28 6d 65  6e 75 5f 62 6c 6f 63 6b  |24)=!(menu_block|
00001240  25 2d 32 34 29 20 84 20  26 38 30 0d 08 84 05 e1  |%-24) . &80.....|
00001250  0d 08 8e 04 0d 08 98 1c  dd 20 f2 72 65 70 6f 72  |......... .repor|
00001260  74 5f 65 72 72 6f 72 28  24 28 71 25 2b 34 29 29  |t_error($(q%+4))|
00001270  0d 08 a2 0b 21 71 25 3d  32 35 35 0d 08 ac 28 c8  |....!q%=255...(.|
00001280  99 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  |."Wimp_ReportErr|
00001290  6f 72 22 2c 71 25 2c 32  2c 74 61 73 6b 5f 6e 61  |or",q%,2,task_na|
000012a0  6d 65 24 0d 08 b6 05 e1  0d ff                    |me$.......|
000012aa