� >!Menaker
� Menu Creation System
� �1993 Richard Leggett
� 1/6/93 - 13/8/93

initialised=�

� � �error
	

�initialise
�install
�load_temps

	�load
�menu_data
�main_loop

�shutdown
�

��error
%error$=�$+" ("+ß+") at line "+Þ
*SPool <Menaker$Dir>.Error
� � initialised � � error$

*SPool
� initialised �
  Ȏ � �
W    � 654:�report_error("Sorry, a problem : Please find !Fonts and try again...",1)
!    :�report_error(error$,1)
  �
�
�

 ��initialise
!3� block% 256,      name 128,        validate 32
""� ind% 256,        sblock% 256
#'� psprites 512,    usprites 80*1024
$1� sname 16,        rename 16,       fname 256
%� icon_menu 512
&� info_wind 2048
'6� typ1_wind 4096,  typ2_wind 4096,  typ3_wind 4096
(5� typ1_font 256,   typ2_font 256,   typ3_font 256
)4� action(20,40),   fname$(20,40),   text$(20,40)
*#� sprite$(20,40),  ftype(20,40)
+2� no_opts(20),     type(20),        mname$(20)
,1� wm_name$(1),    wm_addr(1),     wm_nopts(1)
-"� wm_data$(1,10), wm_sub(1,10)
.
/no_opts()=-1:type()=1
0$validate=""+�0
1mname$(0)="Main Menu"
2menu$="none":quit=�
32type=1:current_menu=0:num_mens=1:alter_item=-1
4�
5
6
��install
7;prog_name$="Menaker Server":version$="1.10 (13-Aug-93)"
8@ș"Wimp_Initialise",200,&4B534154,prog_name$ � ,task_handle%
9initialised=�
:�place_ib_icon
;�
<
=��main_loop
>*mask=%10001100000000000000000000000000
?�
@*  ș "Wimp_Poll",mask,block% � reason%
A  Ȏ reason% �
B(    � 2:ș "Wimp_OpenWindow",,block%
C)    � 3:ș "Wimp_CloseWindow",,block%
D    � 6:�click_icon
E    � 9:�menu_selection
F    � 17,18:�receive
G  �
H
� quit
I�
J
K
��receive
LȎ block%!16 �
M  � 0:�shutdown
N�
O�
P
Q��quit_program
R
�shutdown
S�
T
U��shutdown
Vș"Wimp_CloseDown"
W�
X
Y��report_error(error$,code)
Z!block%=255
[$(block%+4)=error$+�0
\Aș "Wimp_ReportError",block%,code,prog_name$ � ,user_response
]�
^
_��place_ib_icon
`N!block%=-1:block%!4=0:block%!8=0:block%!12=78:block%!16=68:block%!20=&3002
a$(block%+24)="menu"
b*ș"Wimp_CreateIcon",,block% � ibhandle
c�
d
eݤfile(fn$)
fin=�(fn$)+1
g�
h  in-=1
i� �fn$,in,1)="."
j=�fn$,�(fn$)-in)
k
l��redo_all_icons
m�read_mode_vars
nplus=18
o	to=17
ptitle=36
q� icn=0 � to
r9  �set_indirected(handle,icn,text$(current_menu,icn))
s@  �set_indirected(handle,icn+plus,sprite$(current_menu,icn))
t�
u6�set_indirected(handle,title,mname$(current_menu))
v�size_window
w.ș"Wimp_ForceRedraw",handle,0,-1800,1200,0
x�
y
z��read_mode_vars
{*ș"OS_ReadModeVariable",-1,11 � ,,xpix
|)ș"OS_ReadModeVariable",-1,4 � ,,xbit
}*ș"OS_ReadModeVariable",-1,12 � ,,ypix
~)ș"OS_ReadModeVariable",-1,5 � ,,ybit
xsize=xpix*(2^xbit)
�ysize=ypix*(2^ybit)
��
�
���size_window
�n=no_opts(current_menu)
�� n=255 n=-1
�Ȏ handle �
�  � typ1_handle:�type1_size
�  � typ2_handle:�type2_size
�  � typ3_handle:�type3_size
��
��
�
���type1_size
�n+=1
�	x=640
�y=160+(n*88)
�
!block%=0
�block%!4=-y
�block%!8=x
�block%!12=0
�$ș"Wimp_SetExtent",handle,block%
�� n>10 � y=160+(10*88)
�!block%=handle
�#ș"Wimp_GetWindowState",,block%
�block%!4=(xsize-x) � 2
�block%!8=(ysize-y) � 2
�block%!12=block%!4+x
�block%!16=block%!8+y
�ș"Wimp_OpenWindow",,block%
��
�
���type2_size
�y=(n � 2)+1
�� n>(y*2) � y+=1
�
x=1080
�y=132+(y*88)
�block%!4=(xsize-x) � 2
�block%!8=(ysize-y) � 2
�block%!12=block%!4+x
�block%!16=block%!8+y
�ș"Wimp_OpenWindow",,block%
��
�
���type3_size
�y=(n � 3)+1
�� n>(y*3) � y+=1
�	x=872
�y=120+(y*132)
�block%!4=(xsize-x) � 2
�block%!8=(ysize-y) � 2
�block%!12=block%!4+x
�block%!16=block%!8+y
�ș"Wimp_OpenWindow",,block%
��
�
���open_ib_window
��open_window(handle)
��
�
���click_icon
�xpos=!block%:ypos=block%!4
�3button=block%!8:window=block%!12:icon=block%!16
�Ȏ window �
�  � -2    :�icon_bar_click
�  � handle:�handle_click
��
�.block%!12=window:block%!16=icon:block%!8=0
��
�
���handle_click
�Ȏ button �
�  � 4:�handle_select
��
��
�
���handle_select
�item=�icon_to_item(icon)
�+� item<0 � item>no_opts(current_menu) �
�"Ȏ action(current_menu,item) �
�  � 1:�click_newmenu
�  � 2:�click_directory
�  � 3:�click_run
��
��
�
���click_newmenu
�#find$=fname$(current_menu,item)
�
gotone=-1
�� m=0 � num_mens
�-  � �mname$(m),�(find$))=find$ � gotone=m
��
� � find$="Main Menu" gotone=0
�� gotone=-1 �
�current_menu=gotone
�
�set_type
��redo_all_icons
��
�
���click_directory
�/�"Filer_OpenDir "+fname$(current_menu,item)
��close_window(handle)
��
�
���click_run
�+�"Filer_Run "+fname$(current_menu,item)
��close_window(handle)
��
�
���set_type
��close_window(handle)
�Ȏ type(current_menu) �
�  � 1:handle=typ1_handle
�  � 2:handle=typ2_handle
�  � 3:handle=typ3_handle
��
��open_window(handle)
��
�
���icon_bar_click
�Ȏ button �
�  � 4:�open_ib_window
�I  � 2:menu$="iconbar":�showmenu(icon_menu,!block%-64,140+(no_mmd*44))
��
��
�
�ݤget_state(wind,ic)
�!ind%=wind


ind%!4=ic


ș"Wimp_GetIconState",,ind%

flags=ind%!24

function=((flags � (2^21)))

.� function>0 set=�:unset=� � set=�:unset=�

=set



��set_indirected(w,i,s$)

!ind%=w:ind%!4=i

	 ș "Wimp_GetIconState",,ind%


$(ind%!28)=s$

�




ݤget_indirected(w,i)

!ind%=w:ind%!4=i

 ș "Wimp_GetIconState",,ind%

=�zero_string(ind%!28)



��unset_bit(w,i,b)

*!ind%=w:ind%!4=i:ind%!8=0:ind%!12=1<<b

 ș "Wimp_SetIconState",,ind%

�



��set_bit(w,i,b)

-!ind%=w:ind%!4=i:ind%!8=1<<b:ind%!12=1<<b

ș"Wimp_SetIconState",,ind%

�



ݤzero_string(data)

� s$

ȕ ?data<>0 � ?data<>13

  s$+=�(?data)

 
  data+=1

!�

"=s$

#

$ݤstring(ptr%)

%� a$

&ȕ ?ptr%<>0

'  a$+=�(?ptr%)

(
  ptr%+=1

)�

*=a$

+

,��read_menu_data

-
menu=1

.1� wm_name$(menu),wm_nopts(menu),wm_addr(menu)

/� opt=1 � wm_nopts(menu)

0+  � wm_data$(menu,opt),wm_sub(menu,opt)

1�

2iconb_mhandle=1:no_mmd=2

3�

4

5��menu_data

6�read_menu_data

7�make_menu(iconb_mhandle)

8�

9

:��make_menu(handle)

;Jdata=wm_addr(handle):no_items=wm_nopts(handle):title$=wm_name$(handle)

<$data=title$

=@data?12=7:data?13=2:data?14=7:data?15=0:data!20=44:data!24=0

>ptr=data+28

?max_len=�(title$)

@� item=1 � no_items

A!  icon$=wm_data$(handle,item)

B!  submenu=wm_sub(handle,item)

C5  � item=no_items � menuflags=&80 � menuflags=&00

D  iconflags=&7000021

E2  !ptr=menuflags:ptr!4=submenu:ptr!8=iconflags

F  � �(icon$)<=12 �

G    $(ptr+12)=icon$

H  �

I    ptr!8=&7000121

J-    address=wm_addr(handle)+400+(item*40)

K6    ptr!12=address:ptr!16=validate:ptr!20=�(icon$)

L    $address=icon$

M  �

N+  � �(icon$)>max_len � max_len=�(icon$)

O
  ptr+=24

P�

Qdata!16=(max_len*16)+16

R�

S

T��grey_item(handle,item)

Ubase=wm_addr(handle)+28

Vbase=base+((item-1)*24)

Wword=base!8

Xword=word � (2^22)

Ybase!8=word

Z�

[

\��showmenu(menu,x,y)

]"ș "Wimp_CreateMenu",,menu,x,y

^�

_

`��menu_selection

afirst=!block%

bsecond=block%!4

cthird=block%!8

d#ș"Wimp_GetPointerInfo",,block%

ebutton=block%!8

f$� button=1 � �showmenu(data,0,0)

gȎ first �

h2  � 1:current_menu=0:�set_type:�redo_all_icons

i  � 2:�quit_program

j�

k�

l

m��load_temps

n:ș"Wimp_OpenTemplate",,"<MenakerServer$Dir>.Templates"

o<info_handle=�load_template("progInfo",info_wind,2048,-1)

p@typ1_handle=�load_template("type1",typ1_wind,4096,typ1_font)

q@typ2_handle=�load_template("type2",typ2_wind,4096,typ2_font)

r@typ3_handle=�load_template("type3",typ3_wind,4096,typ3_font)

sș"Wimp_CloseTemplate"

thandle=typ1_handle

u+�set_indirected(info_handle,4,version$)

v�

w

x2ݤload_template(name$,mem_start,mem_size,font)

y%icon_start=mem_start+(mem_size/2)

z!icon_end=mem_start+mem_size-1

{$name=name$

|Dș"Wimp_LoadTemplate",,mem_start,icon_start,icon_end,font,name,0

}-ș"Wimp_CreateWindow",,mem_start � handle

~=handle



���open_window(handle)

�!block%=handle

�#ș"Wimp_GetWindowState",,block%

�ș"Wimp_OpenWindow",,block%

��

�

���close_window(handle)

�!block%=handle

� ș"Wimp_CloseWindow",,block%

��

�

�� "Menaker",3,icon_menu

�� "Info",info_handle

�� "Main Menu",-1

�� "Quit",-1

�

�ݤgetleaf(a$)

�ȕ �a$,".")

�  a$=�a$,�a$,".")+1)

��

�
=a$+�0

�

���load_error

��#X

�>�report_error("I'm sorry, but the menu data is corrupt",1)

�
�shutdown

��

�

���load_data

�%F$="<MenakerServer$Dir>.MenuData"

�
X=� F$

�� X=0 �load_error

�r=82:m=77:l=76

�	r=�#X

�	m=�#X

�	l=�#X

�"� ((r+m+l)<>235) � �load_error

�num_mens=�#X

��#X,make

�� menu=0 � num_mens-1

�  �#X,mname$(menu)

�  type(menu)=�#X

�  no_opts(menu)=�#X

�#  � no_opts(menu)<>255 �sl_each

��

��#X

��

�

�
��sl_each

�� item=0 � no_opts(menu)

�  action(menu,item)=�#X

�  �#X,fname$(menu,item)

�  �#X,text$(menu,item)

�  �#X,sprite$(menu,item)

�  �#X,ftype(menu,item)

��

��

�

�ݤicon_to_item(icn)

�
it=icn

�� it>17 � it-=18

�=it

�

�
��load

��load_data

�7� make � �"Iconsprites <MenakerServer$Dir>.Sprites"

�ty=type(current_menu)

�Ȏ ty �

�  � 1:handle=typ1_handle

�  � 2:handle=typ2_handle

�  � 3:handle=typ3_handle

��

��open_window(handle)

��redo_all_icons

��

�

�
ݤm(n)

�=�mname$(icon),10)
�

00000000  0d 00 01 0f f4 20 3e 21  4d 65 6e 61 6b 65 72 0d  |..... >!Menaker.|
00000010  00 02 1a f4 20 4d 65 6e  75 20 43 72 65 61 74 69  |.... Menu Creati|
00000020  6f 6e 20 53 79 73 74 65  6d 0d 00 03 1b f4 20 a9  |on System..... .|
00000030  31 39 39 33 20 52 69 63  68 61 72 64 20 4c 65 67  |1993 Richard Leg|
00000040  67 65 74 74 0d 00 04 16  f4 20 31 2f 36 2f 39 33  |gett..... 1/6/93|
00000050  20 2d 20 31 33 2f 38 2f  39 33 0d 00 05 04 0d 00  | - 13/8/93......|
00000060  06 11 69 6e 69 74 69 61  6c 69 73 65 64 3d a3 0d  |..initialised=..|
00000070  00 07 04 0d 00 08 0e ee  20 85 20 f2 65 72 72 6f  |........ . .erro|
00000080  72 0d 00 09 04 0d 00 0a  0f f2 69 6e 69 74 69 61  |r.........initia|
00000090  6c 69 73 65 0d 00 0b 0c  f2 69 6e 73 74 61 6c 6c  |lise.....install|
000000a0  0d 00 0c 0f f2 6c 6f 61  64 5f 74 65 6d 70 73 0d  |.....load_temps.|
000000b0  00 0d 09 f2 6c 6f 61 64  0d 00 0e 0e f2 6d 65 6e  |....load.....men|
000000c0  75 5f 64 61 74 61 0d 00  0f 0e f2 6d 61 69 6e 5f  |u_data.....main_|
000000d0  6c 6f 6f 70 0d 00 10 0d  f2 73 68 75 74 64 6f 77  |loop.....shutdow|
000000e0  6e 0d 00 11 05 e0 0d 00  12 04 0d 00 13 0b dd f2  |n...............|
000000f0  65 72 72 6f 72 0d 00 14  25 65 72 72 6f 72 24 3d  |error...%error$=|
00000100  f6 24 2b 22 20 28 22 2b  c3 9f 2b 22 29 20 61 74  |.$+" ("+..+") at|
00000110  20 6c 69 6e 65 20 22 2b  c3 9e 0d 00 15 1e 2a 53  | line "+......*S|
00000120  50 6f 6f 6c 20 3c 4d 65  6e 61 6b 65 72 24 44 69  |Pool <Menaker$Di|
00000130  72 3e 2e 45 72 72 6f 72  0d 00 16 1e e7 20 ac 20  |r>.Error..... . |
00000140  69 6e 69 74 69 61 6c 69  73 65 64 20 8c 20 f1 20  |initialised . . |
00000150  65 72 72 6f 72 24 0d 00  17 0a 2a 53 50 6f 6f 6c  |error$....*SPool|
00000160  0d 00 18 13 e7 20 69 6e  69 74 69 61 6c 69 73 65  |..... initialise|
00000170  64 20 8c 0d 00 19 0c 20  20 c8 8e 20 9f 20 ca 0d  |d .....  .. . ..|
00000180  00 1a 57 20 20 20 20 c9  20 36 35 34 3a f2 72 65  |..W    . 654:.re|
00000190  70 6f 72 74 5f 65 72 72  6f 72 28 22 53 6f 72 72  |port_error("Sorr|
000001a0  79 2c 20 61 20 70 72 6f  62 6c 65 6d 20 3a 20 50  |y, a problem : P|
000001b0  6c 65 61 73 65 20 66 69  6e 64 20 21 46 6f 6e 74  |lease find !Font|
000001c0  73 20 61 6e 64 20 74 72  79 20 61 67 61 69 6e 2e  |s and try again.|
000001d0  2e 2e 22 2c 31 29 0d 00  1b 21 20 20 20 20 7f 3a  |..",1)...!    .:|
000001e0  f2 72 65 70 6f 72 74 5f  65 72 72 6f 72 28 65 72  |.report_error(er|
000001f0  72 6f 72 24 2c 31 29 0d  00 1c 07 20 20 cb 0d 00  |ror$,1)....  ...|
00000200  1d 05 cd 0d 00 1e 05 e0  0d 00 1f 04 0d 00 20 10  |.............. .|
00000210  dd f2 69 6e 69 74 69 61  6c 69 73 65 0d 00 21 33  |..initialise..!3|
00000220  de 20 62 6c 6f 63 6b 25  20 32 35 36 2c 20 20 20  |. block% 256,   |
00000230  20 20 20 6e 61 6d 65 20  31 32 38 2c 20 20 20 20  |   name 128,    |
00000240  20 20 20 20 76 61 6c 69  64 61 74 65 20 33 32 0d  |    validate 32.|
00000250  00 22 22 de 20 69 6e 64  25 20 32 35 36 2c 20 20  |."". ind% 256,  |
00000260  20 20 20 20 20 20 73 62  6c 6f 63 6b 25 20 32 35  |      sblock% 25|
00000270  36 0d 00 23 27 de 20 70  73 70 72 69 74 65 73 20  |6..#'. psprites |
00000280  35 31 32 2c 20 20 20 20  75 73 70 72 69 74 65 73  |512,    usprites|
00000290  20 38 30 2a 31 30 32 34  0d 00 24 31 de 20 73 6e  | 80*1024..$1. sn|
000002a0  61 6d 65 20 31 36 2c 20  20 20 20 20 20 20 20 72  |ame 16,        r|
000002b0  65 6e 61 6d 65 20 31 36  2c 20 20 20 20 20 20 20  |ename 16,       |
000002c0  66 6e 61 6d 65 20 32 35  36 0d 00 25 13 de 20 69  |fname 256..%.. i|
000002d0  63 6f 6e 5f 6d 65 6e 75  20 35 31 32 0d 00 26 14  |con_menu 512..&.|
000002e0  de 20 69 6e 66 6f 5f 77  69 6e 64 20 32 30 34 38  |. info_wind 2048|
000002f0  0d 00 27 36 de 20 74 79  70 31 5f 77 69 6e 64 20  |..'6. typ1_wind |
00000300  34 30 39 36 2c 20 20 74  79 70 32 5f 77 69 6e 64  |4096,  typ2_wind|
00000310  20 34 30 39 36 2c 20 20  74 79 70 33 5f 77 69 6e  | 4096,  typ3_win|
00000320  64 20 34 30 39 36 0d 00  28 35 de 20 74 79 70 31  |d 4096..(5. typ1|
00000330  5f 66 6f 6e 74 20 32 35  36 2c 20 20 20 74 79 70  |_font 256,   typ|
00000340  32 5f 66 6f 6e 74 20 32  35 36 2c 20 20 20 74 79  |2_font 256,   ty|
00000350  70 33 5f 66 6f 6e 74 20  32 35 36 0d 00 29 34 de  |p3_font 256..)4.|
00000360  20 61 63 74 69 6f 6e 28  32 30 2c 34 30 29 2c 20  | action(20,40), |
00000370  20 20 66 6e 61 6d 65 24  28 32 30 2c 34 30 29 2c  |  fname$(20,40),|
00000380  20 20 20 74 65 78 74 24  28 32 30 2c 34 30 29 0d  |   text$(20,40).|
00000390  00 2a 23 de 20 73 70 72  69 74 65 24 28 32 30 2c  |.*#. sprite$(20,|
000003a0  34 30 29 2c 20 20 66 74  79 70 65 28 32 30 2c 34  |40),  ftype(20,4|
000003b0  30 29 0d 00 2b 32 de 20  6e 6f 5f 6f 70 74 73 28  |0)..+2. no_opts(|
000003c0  32 30 29 2c 20 20 20 20  20 74 79 70 65 28 32 30  |20),     type(20|
000003d0  29 2c 20 20 20 20 20 20  20 20 6d 6e 61 6d 65 24  |),        mname$|
000003e0  28 32 30 29 0d 00 2c 31  de 20 77 6d 5f 6e 61 6d  |(20)..,1. wm_nam|
000003f0  65 24 28 31 29 2c 20 20  20 20 77 6d 5f 61 64 64  |e$(1),    wm_add|
00000400  72 28 31 29 2c 20 20 20  20 20 77 6d 5f 6e 6f 70  |r(1),     wm_nop|
00000410  74 73 28 31 29 0d 00 2d  22 de 20 77 6d 5f 64 61  |ts(1)..-". wm_da|
00000420  74 61 24 28 31 2c 31 30  29 2c 20 77 6d 5f 73 75  |ta$(1,10), wm_su|
00000430  62 28 31 2c 31 30 29 0d  00 2e 04 0d 00 2f 19 6e  |b(1,10)....../.n|
00000440  6f 5f 6f 70 74 73 28 29  3d 2d 31 3a 74 79 70 65  |o_opts()=-1:type|
00000450  28 29 3d 31 0d 00 30 13  24 76 61 6c 69 64 61 74  |()=1..0.$validat|
00000460  65 3d 22 22 2b bd 30 0d  00 31 19 6d 6e 61 6d 65  |e=""+.0..1.mname|
00000470  24 28 30 29 3d 22 4d 61  69 6e 20 4d 65 6e 75 22  |$(0)="Main Menu"|
00000480  0d 00 32 17 6d 65 6e 75  24 3d 22 6e 6f 6e 65 22  |..2.menu$="none"|
00000490  3a 71 75 69 74 3d a3 0d  00 33 32 74 79 70 65 3d  |:quit=...32type=|
000004a0  31 3a 63 75 72 72 65 6e  74 5f 6d 65 6e 75 3d 30  |1:current_menu=0|
000004b0  3a 6e 75 6d 5f 6d 65 6e  73 3d 31 3a 61 6c 74 65  |:num_mens=1:alte|
000004c0  72 5f 69 74 65 6d 3d 2d  31 0d 00 34 05 e1 0d 00  |r_item=-1..4....|
000004d0  35 04 0d 00 36 0d dd f2  69 6e 73 74 61 6c 6c 0d  |5...6...install.|
000004e0  00 37 3b 70 72 6f 67 5f  6e 61 6d 65 24 3d 22 4d  |.7;prog_name$="M|
000004f0  65 6e 61 6b 65 72 20 53  65 72 76 65 72 22 3a 76  |enaker Server":v|
00000500  65 72 73 69 6f 6e 24 3d  22 31 2e 31 30 20 28 31  |ersion$="1.10 (1|
00000510  33 2d 41 75 67 2d 39 33  29 22 0d 00 38 40 c8 99  |3-Aug-93)"..8@..|
00000520  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00000530  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
00000540  70 72 6f 67 5f 6e 61 6d  65 24 20 b8 20 2c 74 61  |prog_name$ . ,ta|
00000550  73 6b 5f 68 61 6e 64 6c  65 25 0d 00 39 11 69 6e  |sk_handle%..9.in|
00000560  69 74 69 61 6c 69 73 65  64 3d b9 0d 00 3a 12 f2  |itialised=...:..|
00000570  70 6c 61 63 65 5f 69 62  5f 69 63 6f 6e 0d 00 3b  |place_ib_icon..;|
00000580  05 e1 0d 00 3c 04 0d 00  3d 0f dd f2 6d 61 69 6e  |....<...=...main|
00000590  5f 6c 6f 6f 70 0d 00 3e  2a 6d 61 73 6b 3d 25 31  |_loop..>*mask=%1|
000005a0  30 30 30 31 31 30 30 30  30 30 30 30 30 30 30 30  |0001100000000000|
000005b0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 0d  |000000000000000.|
000005c0  00 3f 05 f5 0d 00 40 2a  20 20 c8 99 20 22 57 69  |.?....@*  .. "Wi|
000005d0  6d 70 5f 50 6f 6c 6c 22  2c 6d 61 73 6b 2c 62 6c  |mp_Poll",mask,bl|
000005e0  6f 63 6b 25 20 b8 20 72  65 61 73 6f 6e 25 0d 00  |ock% . reason%..|
000005f0  41 12 20 20 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |A.  .. reason% .|
00000600  0d 00 42 28 20 20 20 20  c9 20 32 3a c8 99 20 22  |..B(    . 2:.. "|
00000610  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000620  2c 2c 62 6c 6f 63 6b 25  0d 00 43 29 20 20 20 20  |,,block%..C)    |
00000630  c9 20 33 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |. 3:.. "Wimp_Clo|
00000640  73 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |seWindow",,block|
00000650  25 0d 00 44 17 20 20 20  20 c9 20 36 3a f2 63 6c  |%..D.    . 6:.cl|
00000660  69 63 6b 5f 69 63 6f 6e  0d 00 45 1b 20 20 20 20  |ick_icon..E.    |
00000670  c9 20 39 3a f2 6d 65 6e  75 5f 73 65 6c 65 63 74  |. 9:.menu_select|
00000680  69 6f 6e 0d 00 46 18 20  20 20 20 c9 20 31 37 2c  |ion..F.    . 17,|
00000690  31 38 3a f2 72 65 63 65  69 76 65 0d 00 47 07 20  |18:.receive..G. |
000006a0  20 cb 0d 00 48 0a fd 20  71 75 69 74 0d 00 49 05  | ...H.. quit..I.|
000006b0  e1 0d 00 4a 04 0d 00 4b  0d dd f2 72 65 63 65 69  |...J...K...recei|
000006c0  76 65 0d 00 4c 12 c8 8e  20 62 6c 6f 63 6b 25 21  |ve..L... block%!|
000006d0  31 36 20 ca 0d 00 4d 13  20 20 c9 20 30 3a f2 73  |16 ...M.  . 0:.s|
000006e0  68 75 74 64 6f 77 6e 0d  00 4e 05 cb 0d 00 4f 05  |hutdown..N....O.|
000006f0  e1 0d 00 50 04 0d 00 51  12 dd f2 71 75 69 74 5f  |...P...Q...quit_|
00000700  70 72 6f 67 72 61 6d 0d  00 52 0d f2 73 68 75 74  |program..R..shut|
00000710  64 6f 77 6e 0d 00 53 05  e1 0d 00 54 04 0d 00 55  |down..S....T...U|
00000720  0e dd f2 73 68 75 74 64  6f 77 6e 0d 00 56 16 c8  |...shutdown..V..|
00000730  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00000740  22 0d 00 57 05 e1 0d 00  58 04 0d 00 59 1f dd f2  |"..W....X...Y...|
00000750  72 65 70 6f 72 74 5f 65  72 72 6f 72 28 65 72 72  |report_error(err|
00000760  6f 72 24 2c 63 6f 64 65  29 0d 00 5a 0f 21 62 6c  |or$,code)..Z.!bl|
00000770  6f 63 6b 25 3d 32 35 35  0d 00 5b 19 24 28 62 6c  |ock%=255..[.$(bl|
00000780  6f 63 6b 25 2b 34 29 3d  65 72 72 6f 72 24 2b bd  |ock%+4)=error$+.|
00000790  30 0d 00 5c 41 c8 99 20  22 57 69 6d 70 5f 52 65  |0..\A.. "Wimp_Re|
000007a0  70 6f 72 74 45 72 72 6f  72 22 2c 62 6c 6f 63 6b  |portError",block|
000007b0  25 2c 63 6f 64 65 2c 70  72 6f 67 5f 6e 61 6d 65  |%,code,prog_name|
000007c0  24 20 b8 20 2c 75 73 65  72 5f 72 65 73 70 6f 6e  |$ . ,user_respon|
000007d0  73 65 0d 00 5d 05 e1 0d  00 5e 04 0d 00 5f 13 dd  |se..]....^..._..|
000007e0  f2 70 6c 61 63 65 5f 69  62 5f 69 63 6f 6e 0d 00  |.place_ib_icon..|
000007f0  60 4e 21 62 6c 6f 63 6b  25 3d 2d 31 3a 62 6c 6f  |`N!block%=-1:blo|
00000800  63 6b 25 21 34 3d 30 3a  62 6c 6f 63 6b 25 21 38  |ck%!4=0:block%!8|
00000810  3d 30 3a 62 6c 6f 63 6b  25 21 31 32 3d 37 38 3a  |=0:block%!12=78:|
00000820  62 6c 6f 63 6b 25 21 31  36 3d 36 38 3a 62 6c 6f  |block%!16=68:blo|
00000830  63 6b 25 21 32 30 3d 26  33 30 30 32 0d 00 61 17  |ck%!20=&3002..a.|
00000840  24 28 62 6c 6f 63 6b 25  2b 32 34 29 3d 22 6d 65  |$(block%+24)="me|
00000850  6e 75 22 0d 00 62 2a c8  99 22 57 69 6d 70 5f 43  |nu"..b*.."Wimp_C|
00000860  72 65 61 74 65 49 63 6f  6e 22 2c 2c 62 6c 6f 63  |reateIcon",,bloc|
00000870  6b 25 20 b8 20 69 62 68  61 6e 64 6c 65 0d 00 63  |k% . ibhandle..c|
00000880  05 e1 0d 00 64 04 0d 00  65 0f dd a4 66 69 6c 65  |....d...e...file|
00000890  28 66 6e 24 29 0d 00 66  0f 69 6e 3d a9 28 66 6e  |(fn$)..f.in=.(fn|
000008a0  24 29 2b 31 0d 00 67 05  f5 0d 00 68 0b 20 20 69  |$)+1..g....h.  i|
000008b0  6e 2d 3d 31 0d 00 69 14  fd 20 c1 66 6e 24 2c 69  |n-=1..i.. .fn$,i|
000008c0  6e 2c 31 29 3d 22 2e 22  0d 00 6a 14 3d c2 66 6e  |n,1)="."..j.=.fn|
000008d0  24 2c a9 28 66 6e 24 29  2d 69 6e 29 0d 00 6b 04  |$,.(fn$)-in)..k.|
000008e0  0d 00 6c 14 dd f2 72 65  64 6f 5f 61 6c 6c 5f 69  |..l...redo_all_i|
000008f0  63 6f 6e 73 0d 00 6d 13  f2 72 65 61 64 5f 6d 6f  |cons..m..read_mo|
00000900  64 65 5f 76 61 72 73 0d  00 6e 0b 70 6c 75 73 3d  |de_vars..n.plus=|
00000910  31 38 0d 00 6f 09 74 6f  3d 31 37 0d 00 70 0c 74  |18..o.to=17..p.t|
00000920  69 74 6c 65 3d 33 36 0d  00 71 10 e3 20 69 63 6e  |itle=36..q.. icn|
00000930  3d 30 20 b8 20 74 6f 0d  00 72 39 20 20 f2 73 65  |=0 . to..r9  .se|
00000940  74 5f 69 6e 64 69 72 65  63 74 65 64 28 68 61 6e  |t_indirected(han|
00000950  64 6c 65 2c 69 63 6e 2c  74 65 78 74 24 28 63 75  |dle,icn,text$(cu|
00000960  72 72 65 6e 74 5f 6d 65  6e 75 2c 69 63 6e 29 29  |rrent_menu,icn))|
00000970  0d 00 73 40 20 20 f2 73  65 74 5f 69 6e 64 69 72  |..s@  .set_indir|
00000980  65 63 74 65 64 28 68 61  6e 64 6c 65 2c 69 63 6e  |ected(handle,icn|
00000990  2b 70 6c 75 73 2c 73 70  72 69 74 65 24 28 63 75  |+plus,sprite$(cu|
000009a0  72 72 65 6e 74 5f 6d 65  6e 75 2c 69 63 6e 29 29  |rrent_menu,icn))|
000009b0  0d 00 74 05 ed 0d 00 75  36 f2 73 65 74 5f 69 6e  |..t....u6.set_in|
000009c0  64 69 72 65 63 74 65 64  28 68 61 6e 64 6c 65 2c  |directed(handle,|
000009d0  74 69 74 6c 65 2c 6d 6e  61 6d 65 24 28 63 75 72  |title,mname$(cur|
000009e0  72 65 6e 74 5f 6d 65 6e  75 29 29 0d 00 76 10 f2  |rent_menu))..v..|
000009f0  73 69 7a 65 5f 77 69 6e  64 6f 77 0d 00 77 2e c8  |size_window..w..|
00000a00  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00000a10  61 77 22 2c 68 61 6e 64  6c 65 2c 30 2c 2d 31 38  |aw",handle,0,-18|
00000a20  30 30 2c 31 32 30 30 2c  30 0d 00 78 05 e1 0d 00  |00,1200,0..x....|
00000a30  79 04 0d 00 7a 14 dd f2  72 65 61 64 5f 6d 6f 64  |y...z...read_mod|
00000a40  65 5f 76 61 72 73 0d 00  7b 2a c8 99 22 4f 53 5f  |e_vars..{*.."OS_|
00000a50  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00000a60  22 2c 2d 31 2c 31 31 20  b8 20 2c 2c 78 70 69 78  |",-1,11 . ,,xpix|
00000a70  0d 00 7c 29 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |..|).."OS_ReadMo|
00000a80  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 34  |deVariable",-1,4|
00000a90  20 b8 20 2c 2c 78 62 69  74 0d 00 7d 2a c8 99 22  | . ,,xbit..}*.."|
00000aa0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000ab0  62 6c 65 22 2c 2d 31 2c  31 32 20 b8 20 2c 2c 79  |ble",-1,12 . ,,y|
00000ac0  70 69 78 0d 00 7e 29 c8  99 22 4f 53 5f 52 65 61  |pix..~).."OS_Rea|
00000ad0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00000ae0  31 2c 35 20 b8 20 2c 2c  79 62 69 74 0d 00 7f 17  |1,5 . ,,ybit....|
00000af0  78 73 69 7a 65 3d 78 70  69 78 2a 28 32 5e 78 62  |xsize=xpix*(2^xb|
00000b00  69 74 29 0d 00 80 17 79  73 69 7a 65 3d 79 70 69  |it)....ysize=ypi|
00000b10  78 2a 28 32 5e 79 62 69  74 29 0d 00 81 05 e1 0d  |x*(2^ybit)......|
00000b20  00 82 04 0d 00 83 11 dd  f2 73 69 7a 65 5f 77 69  |.........size_wi|
00000b30  6e 64 6f 77 0d 00 84 1b  6e 3d 6e 6f 5f 6f 70 74  |ndow....n=no_opt|
00000b40  73 28 63 75 72 72 65 6e  74 5f 6d 65 6e 75 29 0d  |s(current_menu).|
00000b50  00 85 10 e7 20 6e 3d 32  35 35 20 6e 3d 2d 31 0d  |.... n=255 n=-1.|
00000b60  00 86 0f c8 8e 20 68 61  6e 64 6c 65 20 ca 0d 00  |..... handle ...|
00000b70  87 1f 20 20 c9 20 74 79  70 31 5f 68 61 6e 64 6c  |..  . typ1_handl|
00000b80  65 3a f2 74 79 70 65 31  5f 73 69 7a 65 0d 00 88  |e:.type1_size...|
00000b90  1f 20 20 c9 20 74 79 70  32 5f 68 61 6e 64 6c 65  |.  . typ2_handle|
00000ba0  3a f2 74 79 70 65 32 5f  73 69 7a 65 0d 00 89 1f  |:.type2_size....|
00000bb0  20 20 c9 20 74 79 70 33  5f 68 61 6e 64 6c 65 3a  |  . typ3_handle:|
00000bc0  f2 74 79 70 65 33 5f 73  69 7a 65 0d 00 8a 05 cb  |.type3_size.....|
00000bd0  0d 00 8b 05 e1 0d 00 8c  04 0d 00 8d 10 dd f2 74  |...............t|
00000be0  79 70 65 31 5f 73 69 7a  65 0d 00 8e 08 6e 2b 3d  |ype1_size....n+=|
00000bf0  31 0d 00 8f 09 78 3d 36  34 30 0d 00 90 10 79 3d  |1....x=640....y=|
00000c00  31 36 30 2b 28 6e 2a 38  38 29 0d 00 91 0d 21 62  |160+(n*88)....!b|
00000c10  6c 6f 63 6b 25 3d 30 0d  00 92 0f 62 6c 6f 63 6b  |lock%=0....block|
00000c20  25 21 34 3d 2d 79 0d 00  93 0e 62 6c 6f 63 6b 25  |%!4=-y....block%|
00000c30  21 38 3d 78 0d 00 94 0f  62 6c 6f 63 6b 25 21 31  |!8=x....block%!1|
00000c40  32 3d 30 0d 00 95 24 c8  99 22 57 69 6d 70 5f 53  |2=0...$.."Wimp_S|
00000c50  65 74 45 78 74 65 6e 74  22 2c 68 61 6e 64 6c 65  |etExtent",handle|
00000c60  2c 62 6c 6f 63 6b 25 0d  00 96 1a e7 20 6e 3e 31  |,block%..... n>1|
00000c70  30 20 8c 20 79 3d 31 36  30 2b 28 31 30 2a 38 38  |0 . y=160+(10*88|
00000c80  29 0d 00 97 12 21 62 6c  6f 63 6b 25 3d 68 61 6e  |)....!block%=han|
00000c90  64 6c 65 0d 00 98 23 c8  99 22 57 69 6d 70 5f 47  |dle...#.."Wimp_G|
00000ca0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00000cb0  62 6c 6f 63 6b 25 0d 00  99 1a 62 6c 6f 63 6b 25  |block%....block%|
00000cc0  21 34 3d 28 78 73 69 7a  65 2d 78 29 20 81 20 32  |!4=(xsize-x) . 2|
00000cd0  0d 00 9a 1a 62 6c 6f 63  6b 25 21 38 3d 28 79 73  |....block%!8=(ys|
00000ce0  69 7a 65 2d 79 29 20 81  20 32 0d 00 9b 18 62 6c  |ize-y) . 2....bl|
00000cf0  6f 63 6b 25 21 31 32 3d  62 6c 6f 63 6b 25 21 34  |ock%!12=block%!4|
00000d00  2b 78 0d 00 9c 18 62 6c  6f 63 6b 25 21 31 36 3d  |+x....block%!16=|
00000d10  62 6c 6f 63 6b 25 21 38  2b 79 0d 00 9d 1f c8 99  |block%!8+y......|
00000d20  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000d30  22 2c 2c 62 6c 6f 63 6b  25 0d 00 9e 05 e1 0d 00  |",,block%.......|
00000d40  9f 04 0d 00 a0 10 dd f2  74 79 70 65 32 5f 73 69  |........type2_si|
00000d50  7a 65 0d 00 a1 0f 79 3d  28 6e 20 81 20 32 29 2b  |ze....y=(n . 2)+|
00000d60  31 0d 00 a2 14 e7 20 6e  3e 28 79 2a 32 29 20 8c  |1..... n>(y*2) .|
00000d70  20 79 2b 3d 31 0d 00 a3  0a 78 3d 31 30 38 30 0d  | y+=1....x=1080.|
00000d80  00 a4 10 79 3d 31 33 32  2b 28 79 2a 38 38 29 0d  |...y=132+(y*88).|
00000d90  00 a5 1a 62 6c 6f 63 6b  25 21 34 3d 28 78 73 69  |...block%!4=(xsi|
00000da0  7a 65 2d 78 29 20 81 20  32 0d 00 a6 1a 62 6c 6f  |ze-x) . 2....blo|
00000db0  63 6b 25 21 38 3d 28 79  73 69 7a 65 2d 79 29 20  |ck%!8=(ysize-y) |
00000dc0  81 20 32 0d 00 a7 18 62  6c 6f 63 6b 25 21 31 32  |. 2....block%!12|
00000dd0  3d 62 6c 6f 63 6b 25 21  34 2b 78 0d 00 a8 18 62  |=block%!4+x....b|
00000de0  6c 6f 63 6b 25 21 31 36  3d 62 6c 6f 63 6b 25 21  |lock%!16=block%!|
00000df0  38 2b 79 0d 00 a9 1f c8  99 22 57 69 6d 70 5f 4f  |8+y......"Wimp_O|
00000e00  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
00000e10  6b 25 0d 00 aa 05 e1 0d  00 ab 04 0d 00 ac 10 dd  |k%..............|
00000e20  f2 74 79 70 65 33 5f 73  69 7a 65 0d 00 ad 0f 79  |.type3_size....y|
00000e30  3d 28 6e 20 81 20 33 29  2b 31 0d 00 ae 14 e7 20  |=(n . 3)+1..... |
00000e40  6e 3e 28 79 2a 33 29 20  8c 20 79 2b 3d 31 0d 00  |n>(y*3) . y+=1..|
00000e50  af 09 78 3d 38 37 32 0d  00 b0 11 79 3d 31 32 30  |..x=872....y=120|
00000e60  2b 28 79 2a 31 33 32 29  0d 00 b1 1a 62 6c 6f 63  |+(y*132)....bloc|
00000e70  6b 25 21 34 3d 28 78 73  69 7a 65 2d 78 29 20 81  |k%!4=(xsize-x) .|
00000e80  20 32 0d 00 b2 1a 62 6c  6f 63 6b 25 21 38 3d 28  | 2....block%!8=(|
00000e90  79 73 69 7a 65 2d 79 29  20 81 20 32 0d 00 b3 18  |ysize-y) . 2....|
00000ea0  62 6c 6f 63 6b 25 21 31  32 3d 62 6c 6f 63 6b 25  |block%!12=block%|
00000eb0  21 34 2b 78 0d 00 b4 18  62 6c 6f 63 6b 25 21 31  |!4+x....block%!1|
00000ec0  36 3d 62 6c 6f 63 6b 25  21 38 2b 79 0d 00 b5 1f  |6=block%!8+y....|
00000ed0  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
00000ee0  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 00 b6 05 e1  |ow",,block%.....|
00000ef0  0d 00 b7 04 0d 00 b8 14  dd f2 6f 70 65 6e 5f 69  |..........open_i|
00000f00  62 5f 77 69 6e 64 6f 77  0d 00 b9 18 f2 6f 70 65  |b_window.....ope|
00000f10  6e 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 29  |n_window(handle)|
00000f20  0d 00 ba 05 e1 0d 00 bb  04 0d 00 bc 10 dd f2 63  |...............c|
00000f30  6c 69 63 6b 5f 69 63 6f  6e 0d 00 bd 1e 78 70 6f  |lick_icon....xpo|
00000f40  73 3d 21 62 6c 6f 63 6b  25 3a 79 70 6f 73 3d 62  |s=!block%:ypos=b|
00000f50  6c 6f 63 6b 25 21 34 0d  00 be 33 62 75 74 74 6f  |lock%!4...3butto|
00000f60  6e 3d 62 6c 6f 63 6b 25  21 38 3a 77 69 6e 64 6f  |n=block%!8:windo|
00000f70  77 3d 62 6c 6f 63 6b 25  21 31 32 3a 69 63 6f 6e  |w=block%!12:icon|
00000f80  3d 62 6c 6f 63 6b 25 21  31 36 0d 00 bf 0f c8 8e  |=block%!16......|
00000f90  20 77 69 6e 64 6f 77 20  ca 0d 00 c0 1e 20 20 c9  | window .....  .|
00000fa0  20 2d 32 20 20 20 20 3a  f2 69 63 6f 6e 5f 62 61  | -2    :.icon_ba|
00000fb0  72 5f 63 6c 69 63 6b 0d  00 c1 1c 20 20 c9 20 68  |r_click....  . h|
00000fc0  61 6e 64 6c 65 3a f2 68  61 6e 64 6c 65 5f 63 6c  |andle:.handle_cl|
00000fd0  69 63 6b 0d 00 c2 05 cb  0d 00 c3 2e 62 6c 6f 63  |ick.........bloc|
00000fe0  6b 25 21 31 32 3d 77 69  6e 64 6f 77 3a 62 6c 6f  |k%!12=window:blo|
00000ff0  63 6b 25 21 31 36 3d 69  63 6f 6e 3a 62 6c 6f 63  |ck%!16=icon:bloc|
00001000  6b 25 21 38 3d 30 0d 00  c4 05 e1 0d 00 c5 04 0d  |k%!8=0..........|
00001010  00 c6 12 dd f2 68 61 6e  64 6c 65 5f 63 6c 69 63  |.....handle_clic|
00001020  6b 0d 00 c7 0f c8 8e 20  62 75 74 74 6f 6e 20 ca  |k...... button .|
00001030  0d 00 c8 18 20 20 c9 20  34 3a f2 68 61 6e 64 6c  |....  . 4:.handl|
00001040  65 5f 73 65 6c 65 63 74  0d 00 c9 05 cb 0d 00 ca  |e_select........|
00001050  05 e1 0d 00 cb 04 0d 00  cc 13 dd f2 68 61 6e 64  |............hand|
00001060  6c 65 5f 73 65 6c 65 63  74 0d 00 cd 1c 69 74 65  |le_select....ite|
00001070  6d 3d a4 69 63 6f 6e 5f  74 6f 5f 69 74 65 6d 28  |m=.icon_to_item(|
00001080  69 63 6f 6e 29 0d 00 ce  2b e7 20 69 74 65 6d 3c  |icon)...+. item<|
00001090  30 20 84 20 69 74 65 6d  3e 6e 6f 5f 6f 70 74 73  |0 . item>no_opts|
000010a0  28 63 75 72 72 65 6e 74  5f 6d 65 6e 75 29 20 e1  |(current_menu) .|
000010b0  0d 00 cf 22 c8 8e 20 61  63 74 69 6f 6e 28 63 75  |...".. action(cu|
000010c0  72 72 65 6e 74 5f 6d 65  6e 75 2c 69 74 65 6d 29  |rrent_menu,item)|
000010d0  20 ca 0d 00 d0 18 20 20  c9 20 31 3a f2 63 6c 69  | .....  . 1:.cli|
000010e0  63 6b 5f 6e 65 77 6d 65  6e 75 0d 00 d1 1a 20 20  |ck_newmenu....  |
000010f0  c9 20 32 3a f2 63 6c 69  63 6b 5f 64 69 72 65 63  |. 2:.click_direc|
00001100  74 6f 72 79 0d 00 d2 14  20 20 c9 20 33 3a f2 63  |tory....  . 3:.c|
00001110  6c 69 63 6b 5f 72 75 6e  0d 00 d3 05 cb 0d 00 d4  |lick_run........|
00001120  05 e1 0d 00 d5 04 0d 00  d6 13 dd f2 63 6c 69 63  |............clic|
00001130  6b 5f 6e 65 77 6d 65 6e  75 0d 00 d7 23 66 69 6e  |k_newmenu...#fin|
00001140  64 24 3d 66 6e 61 6d 65  24 28 63 75 72 72 65 6e  |d$=fname$(curren|
00001150  74 5f 6d 65 6e 75 2c 69  74 65 6d 29 0d 00 d8 0d  |t_menu,item)....|
00001160  67 6f 74 6f 6e 65 3d 2d  31 0d 00 d9 14 e3 20 6d  |gotone=-1..... m|
00001170  3d 30 20 b8 20 6e 75 6d  5f 6d 65 6e 73 0d 00 da  |=0 . num_mens...|
00001180  2d 20 20 e7 20 c0 6d 6e  61 6d 65 24 28 6d 29 2c  |-  . .mname$(m),|
00001190  a9 28 66 69 6e 64 24 29  29 3d 66 69 6e 64 24 20  |.(find$))=find$ |
000011a0  8c 20 67 6f 74 6f 6e 65  3d 6d 0d 00 db 05 ed 0d  |. gotone=m......|
000011b0  00 dc 20 e7 20 66 69 6e  64 24 3d 22 4d 61 69 6e  |.. . find$="Main|
000011c0  20 4d 65 6e 75 22 20 67  6f 74 6f 6e 65 3d 30 0d  | Menu" gotone=0.|
000011d0  00 dd 11 e7 20 67 6f 74  6f 6e 65 3d 2d 31 20 e1  |.... gotone=-1 .|
000011e0  0d 00 de 17 63 75 72 72  65 6e 74 5f 6d 65 6e 75  |....current_menu|
000011f0  3d 67 6f 74 6f 6e 65 0d  00 df 0d f2 73 65 74 5f  |=gotone.....set_|
00001200  74 79 70 65 0d 00 e0 13  f2 72 65 64 6f 5f 61 6c  |type.....redo_al|
00001210  6c 5f 69 63 6f 6e 73 0d  00 e1 05 e1 0d 00 e2 04  |l_icons.........|
00001220  0d 00 e3 15 dd f2 63 6c  69 63 6b 5f 64 69 72 65  |......click_dire|
00001230  63 74 6f 72 79 0d 00 e4  2f ff 22 46 69 6c 65 72  |ctory.../."Filer|
00001240  5f 4f 70 65 6e 44 69 72  20 22 2b 66 6e 61 6d 65  |_OpenDir "+fname|
00001250  24 28 63 75 72 72 65 6e  74 5f 6d 65 6e 75 2c 69  |$(current_menu,i|
00001260  74 65 6d 29 0d 00 e5 19  f2 63 6c 6f 73 65 5f 77  |tem).....close_w|
00001270  69 6e 64 6f 77 28 68 61  6e 64 6c 65 29 0d 00 e6  |indow(handle)...|
00001280  05 e1 0d 00 e7 04 0d 00  e8 0f dd f2 63 6c 69 63  |............clic|
00001290  6b 5f 72 75 6e 0d 00 e9  2b ff 22 46 69 6c 65 72  |k_run...+."Filer|
000012a0  5f 52 75 6e 20 22 2b 66  6e 61 6d 65 24 28 63 75  |_Run "+fname$(cu|
000012b0  72 72 65 6e 74 5f 6d 65  6e 75 2c 69 74 65 6d 29  |rrent_menu,item)|
000012c0  0d 00 ea 19 f2 63 6c 6f  73 65 5f 77 69 6e 64 6f  |.....close_windo|
000012d0  77 28 68 61 6e 64 6c 65  29 0d 00 eb 05 e1 0d 00  |w(handle).......|
000012e0  ec 04 0d 00 ed 0e dd f2  73 65 74 5f 74 79 70 65  |........set_type|
000012f0  0d 00 ee 19 f2 63 6c 6f  73 65 5f 77 69 6e 64 6f  |.....close_windo|
00001300  77 28 68 61 6e 64 6c 65  29 0d 00 ef 1b c8 8e 20  |w(handle)...... |
00001310  74 79 70 65 28 63 75 72  72 65 6e 74 5f 6d 65 6e  |type(current_men|
00001320  75 29 20 ca 0d 00 f0 1c  20 20 c9 20 31 3a 68 61  |u) .....  . 1:ha|
00001330  6e 64 6c 65 3d 74 79 70  31 5f 68 61 6e 64 6c 65  |ndle=typ1_handle|
00001340  0d 00 f1 1c 20 20 c9 20  32 3a 68 61 6e 64 6c 65  |....  . 2:handle|
00001350  3d 74 79 70 32 5f 68 61  6e 64 6c 65 0d 00 f2 1c  |=typ2_handle....|
00001360  20 20 c9 20 33 3a 68 61  6e 64 6c 65 3d 74 79 70  |  . 3:handle=typ|
00001370  33 5f 68 61 6e 64 6c 65  0d 00 f3 05 cb 0d 00 f4  |3_handle........|
00001380  18 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 68 61  |..open_window(ha|
00001390  6e 64 6c 65 29 0d 00 f5  05 e1 0d 00 f6 04 0d 00  |ndle)...........|
000013a0  f7 14 dd f2 69 63 6f 6e  5f 62 61 72 5f 63 6c 69  |....icon_bar_cli|
000013b0  63 6b 0d 00 f8 0f c8 8e  20 62 75 74 74 6f 6e 20  |ck...... button |
000013c0  ca 0d 00 f9 19 20 20 c9  20 34 3a f2 6f 70 65 6e  |.....  . 4:.open|
000013d0  5f 69 62 5f 77 69 6e 64  6f 77 0d 00 fa 49 20 20  |_ib_window...I  |
000013e0  c9 20 32 3a 6d 65 6e 75  24 3d 22 69 63 6f 6e 62  |. 2:menu$="iconb|
000013f0  61 72 22 3a f2 73 68 6f  77 6d 65 6e 75 28 69 63  |ar":.showmenu(ic|
00001400  6f 6e 5f 6d 65 6e 75 2c  21 62 6c 6f 63 6b 25 2d  |on_menu,!block%-|
00001410  36 34 2c 31 34 30 2b 28  6e 6f 5f 6d 6d 64 2a 34  |64,140+(no_mmd*4|
00001420  34 29 29 0d 00 fb 05 cb  0d 00 fc 05 e1 0d 00 fd  |4)).............|
00001430  04 0d 00 fe 18 dd a4 67  65 74 5f 73 74 61 74 65  |.......get_state|
00001440  28 77 69 6e 64 2c 69 63  29 0d 00 ff 0e 21 69 6e  |(wind,ic)....!in|
00001450  64 25 3d 77 69 6e 64 0d  01 00 0d 69 6e 64 25 21  |d%=wind....ind%!|
00001460  34 3d 69 63 0d 01 01 1f  c8 99 22 57 69 6d 70 5f  |4=ic......"Wimp_|
00001470  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 69  |GetIconState",,i|
00001480  6e 64 25 0d 01 02 11 66  6c 61 67 73 3d 69 6e 64  |nd%....flags=ind|
00001490  25 21 32 34 0d 01 03 1f  66 75 6e 63 74 69 6f 6e  |%!24....function|
000014a0  3d 28 28 66 6c 61 67 73  20 80 20 28 32 5e 32 31  |=((flags . (2^21|
000014b0  29 29 29 0d 01 04 2e e7  20 66 75 6e 63 74 69 6f  |)))..... functio|
000014c0  6e 3e 30 20 73 65 74 3d  b9 3a 75 6e 73 65 74 3d  |n>0 set=.:unset=|
000014d0  a3 20 8b 20 73 65 74 3d  a3 3a 75 6e 73 65 74 3d  |. . set=.:unset=|
000014e0  b9 0d 01 05 08 3d 73 65  74 0d 01 06 04 0d 01 07  |.....=set.......|
000014f0  1c dd f2 73 65 74 5f 69  6e 64 69 72 65 63 74 65  |...set_indirecte|
00001500  64 28 77 2c 69 2c 73 24  29 0d 01 08 14 21 69 6e  |d(w,i,s$)....!in|
00001510  64 25 3d 77 3a 69 6e 64  25 21 34 3d 69 0d 01 09  |d%=w:ind%!4=i...|
00001520  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  | .. "Wimp_GetIco|
00001530  6e 53 74 61 74 65 22 2c  2c 69 6e 64 25 0d 01 0a  |nState",,ind%...|
00001540  11 24 28 69 6e 64 25 21  32 38 29 3d 73 24 0d 01  |.$(ind%!28)=s$..|
00001550  0b 05 e1 0d 01 0c 04 0d  01 0d 19 dd a4 67 65 74  |.............get|
00001560  5f 69 6e 64 69 72 65 63  74 65 64 28 77 2c 69 29  |_indirected(w,i)|
00001570  0d 01 0e 14 21 69 6e 64  25 3d 77 3a 69 6e 64 25  |....!ind%=w:ind%|
00001580  21 34 3d 69 0d 01 0f 20  c8 99 20 22 57 69 6d 70  |!4=i... .. "Wimp|
00001590  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000015a0  69 6e 64 25 0d 01 10 1a  3d a4 7a 65 72 6f 5f 73  |ind%....=.zero_s|
000015b0  74 72 69 6e 67 28 69 6e  64 25 21 32 38 29 0d 01  |tring(ind%!28)..|
000015c0  11 04 0d 01 12 16 dd f2  75 6e 73 65 74 5f 62 69  |........unset_bi|
000015d0  74 28 77 2c 69 2c 62 29  0d 01 13 2a 21 69 6e 64  |t(w,i,b)...*!ind|
000015e0  25 3d 77 3a 69 6e 64 25  21 34 3d 69 3a 69 6e 64  |%=w:ind%!4=i:ind|
000015f0  25 21 38 3d 30 3a 69 6e  64 25 21 31 32 3d 31 3c  |%!8=0:ind%!12=1<|
00001600  3c 62 0d 01 14 20 c8 99  20 22 57 69 6d 70 5f 53  |<b... .. "Wimp_S|
00001610  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 69 6e  |etIconState",,in|
00001620  64 25 0d 01 15 05 e1 0d  01 16 04 0d 01 17 14 dd  |d%..............|
00001630  f2 73 65 74 5f 62 69 74  28 77 2c 69 2c 62 29 0d  |.set_bit(w,i,b).|
00001640  01 18 2d 21 69 6e 64 25  3d 77 3a 69 6e 64 25 21  |..-!ind%=w:ind%!|
00001650  34 3d 69 3a 69 6e 64 25  21 38 3d 31 3c 3c 62 3a  |4=i:ind%!8=1<<b:|
00001660  69 6e 64 25 21 31 32 3d  31 3c 3c 62 0d 01 19 1f  |ind%!12=1<<b....|
00001670  c8 99 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |.."Wimp_SetIconS|
00001680  74 61 74 65 22 2c 2c 69  6e 64 25 0d 01 1a 05 e1  |tate",,ind%.....|
00001690  0d 01 1b 04 0d 01 1c 17  dd a4 7a 65 72 6f 5f 73  |..........zero_s|
000016a0  74 72 69 6e 67 28 64 61  74 61 29 0d 01 1d 08 ea  |tring(data).....|
000016b0  20 73 24 0d 01 1e 1b c8  95 20 3f 64 61 74 61 3c  | s$...... ?data<|
000016c0  3e 30 20 80 20 3f 64 61  74 61 3c 3e 31 33 0d 01  |>0 . ?data<>13..|
000016d0  1f 12 20 20 73 24 2b 3d  bd 28 3f 64 61 74 61 29  |..  s$+=.(?data)|
000016e0  0d 01 20 0d 20 20 64 61  74 61 2b 3d 31 0d 01 21  |.. .  data+=1..!|
000016f0  05 ce 0d 01 22 07 3d 73  24 0d 01 23 04 0d 01 24  |....".=s$..#...$|
00001700  12 dd a4 73 74 72 69 6e  67 28 70 74 72 25 29 0d  |...string(ptr%).|
00001710  01 25 08 ea 20 61 24 0d  01 26 0f c8 95 20 3f 70  |.%.. a$..&... ?p|
00001720  74 72 25 3c 3e 30 0d 01  27 12 20 20 61 24 2b 3d  |tr%<>0..'.  a$+=|
00001730  bd 28 3f 70 74 72 25 29  0d 01 28 0d 20 20 70 74  |.(?ptr%)..(.  pt|
00001740  72 25 2b 3d 31 0d 01 29  05 ce 0d 01 2a 07 3d 61  |r%+=1..)....*.=a|
00001750  24 0d 01 2b 04 0d 01 2c  14 dd f2 72 65 61 64 5f  |$..+...,...read_|
00001760  6d 65 6e 75 5f 64 61 74  61 0d 01 2d 0a 6d 65 6e  |menu_data..-.men|
00001770  75 3d 31 0d 01 2e 31 f3  20 77 6d 5f 6e 61 6d 65  |u=1...1. wm_name|
00001780  24 28 6d 65 6e 75 29 2c  77 6d 5f 6e 6f 70 74 73  |$(menu),wm_nopts|
00001790  28 6d 65 6e 75 29 2c 77  6d 5f 61 64 64 72 28 6d  |(menu),wm_addr(m|
000017a0  65 6e 75 29 0d 01 2f 1c  e3 20 6f 70 74 3d 31 20  |enu)../.. opt=1 |
000017b0  b8 20 77 6d 5f 6e 6f 70  74 73 28 6d 65 6e 75 29  |. wm_nopts(menu)|
000017c0  0d 01 30 2b 20 20 f3 20  77 6d 5f 64 61 74 61 24  |..0+  . wm_data$|
000017d0  28 6d 65 6e 75 2c 6f 70  74 29 2c 77 6d 5f 73 75  |(menu,opt),wm_su|
000017e0  62 28 6d 65 6e 75 2c 6f  70 74 29 0d 01 31 05 ed  |b(menu,opt)..1..|
000017f0  0d 01 32 1c 69 63 6f 6e  62 5f 6d 68 61 6e 64 6c  |..2.iconb_mhandl|
00001800  65 3d 31 3a 6e 6f 5f 6d  6d 64 3d 32 0d 01 33 05  |e=1:no_mmd=2..3.|
00001810  e1 0d 01 34 04 0d 01 35  0f dd f2 6d 65 6e 75 5f  |...4...5...menu_|
00001820  64 61 74 61 0d 01 36 13  f2 72 65 61 64 5f 6d 65  |data..6..read_me|
00001830  6e 75 5f 64 61 74 61 0d  01 37 1d f2 6d 61 6b 65  |nu_data..7..make|
00001840  5f 6d 65 6e 75 28 69 63  6f 6e 62 5f 6d 68 61 6e  |_menu(iconb_mhan|
00001850  64 6c 65 29 0d 01 38 05  e1 0d 01 39 04 0d 01 3a  |dle)..8....9...:|
00001860  17 dd f2 6d 61 6b 65 5f  6d 65 6e 75 28 68 61 6e  |...make_menu(han|
00001870  64 6c 65 29 0d 01 3b 4a  64 61 74 61 3d 77 6d 5f  |dle)..;Jdata=wm_|
00001880  61 64 64 72 28 68 61 6e  64 6c 65 29 3a 6e 6f 5f  |addr(handle):no_|
00001890  69 74 65 6d 73 3d 77 6d  5f 6e 6f 70 74 73 28 68  |items=wm_nopts(h|
000018a0  61 6e 64 6c 65 29 3a 74  69 74 6c 65 24 3d 77 6d  |andle):title$=wm|
000018b0  5f 6e 61 6d 65 24 28 68  61 6e 64 6c 65 29 0d 01  |_name$(handle)..|
000018c0  3c 10 24 64 61 74 61 3d  74 69 74 6c 65 24 0d 01  |<.$data=title$..|
000018d0  3d 40 64 61 74 61 3f 31  32 3d 37 3a 64 61 74 61  |=@data?12=7:data|
000018e0  3f 31 33 3d 32 3a 64 61  74 61 3f 31 34 3d 37 3a  |?13=2:data?14=7:|
000018f0  64 61 74 61 3f 31 35 3d  30 3a 64 61 74 61 21 32  |data?15=0:data!2|
00001900  30 3d 34 34 3a 64 61 74  61 21 32 34 3d 30 0d 01  |0=44:data!24=0..|
00001910  3e 0f 70 74 72 3d 64 61  74 61 2b 32 38 0d 01 3f  |>.ptr=data+28..?|
00001920  15 6d 61 78 5f 6c 65 6e  3d a9 28 74 69 74 6c 65  |.max_len=.(title|
00001930  24 29 0d 01 40 17 e3 20  69 74 65 6d 3d 31 20 b8  |$)..@.. item=1 .|
00001940  20 6e 6f 5f 69 74 65 6d  73 0d 01 41 21 20 20 69  | no_items..A!  i|
00001950  63 6f 6e 24 3d 77 6d 5f  64 61 74 61 24 28 68 61  |con$=wm_data$(ha|
00001960  6e 64 6c 65 2c 69 74 65  6d 29 0d 01 42 21 20 20  |ndle,item)..B!  |
00001970  73 75 62 6d 65 6e 75 3d  77 6d 5f 73 75 62 28 68  |submenu=wm_sub(h|
00001980  61 6e 64 6c 65 2c 69 74  65 6d 29 0d 01 43 35 20  |andle,item)..C5 |
00001990  20 e7 20 69 74 65 6d 3d  6e 6f 5f 69 74 65 6d 73  | . item=no_items|
000019a0  20 8c 20 6d 65 6e 75 66  6c 61 67 73 3d 26 38 30  | . menuflags=&80|
000019b0  20 8b 20 6d 65 6e 75 66  6c 61 67 73 3d 26 30 30  | . menuflags=&00|
000019c0  0d 01 44 18 20 20 69 63  6f 6e 66 6c 61 67 73 3d  |..D.  iconflags=|
000019d0  26 37 30 30 30 30 32 31  0d 01 45 32 20 20 21 70  |&7000021..E2  !p|
000019e0  74 72 3d 6d 65 6e 75 66  6c 61 67 73 3a 70 74 72  |tr=menuflags:ptr|
000019f0  21 34 3d 73 75 62 6d 65  6e 75 3a 70 74 72 21 38  |!4=submenu:ptr!8|
00001a00  3d 69 63 6f 6e 66 6c 61  67 73 0d 01 46 16 20 20  |=iconflags..F.  |
00001a10  e7 20 a9 28 69 63 6f 6e  24 29 3c 3d 31 32 20 8c  |. .(icon$)<=12 .|
00001a20  0d 01 47 17 20 20 20 20  24 28 70 74 72 2b 31 32  |..G.    $(ptr+12|
00001a30  29 3d 69 63 6f 6e 24 0d  01 48 07 20 20 cc 0d 01  |)=icon$..H.  ...|
00001a40  49 16 20 20 20 20 70 74  72 21 38 3d 26 37 30 30  |I.    ptr!8=&700|
00001a50  30 31 32 31 0d 01 4a 2d  20 20 20 20 61 64 64 72  |0121..J-    addr|
00001a60  65 73 73 3d 77 6d 5f 61  64 64 72 28 68 61 6e 64  |ess=wm_addr(hand|
00001a70  6c 65 29 2b 34 30 30 2b  28 69 74 65 6d 2a 34 30  |le)+400+(item*40|
00001a80  29 0d 01 4b 36 20 20 20  20 70 74 72 21 31 32 3d  |)..K6    ptr!12=|
00001a90  61 64 64 72 65 73 73 3a  70 74 72 21 31 36 3d 76  |address:ptr!16=v|
00001aa0  61 6c 69 64 61 74 65 3a  70 74 72 21 32 30 3d a9  |alidate:ptr!20=.|
00001ab0  28 69 63 6f 6e 24 29 0d  01 4c 16 20 20 20 20 24  |(icon$)..L.    $|
00001ac0  61 64 64 72 65 73 73 3d  69 63 6f 6e 24 0d 01 4d  |address=icon$..M|
00001ad0  07 20 20 cd 0d 01 4e 2b  20 20 e7 20 a9 28 69 63  |.  ...N+  . .(ic|
00001ae0  6f 6e 24 29 3e 6d 61 78  5f 6c 65 6e 20 8c 20 6d  |on$)>max_len . m|
00001af0  61 78 5f 6c 65 6e 3d a9  28 69 63 6f 6e 24 29 0d  |ax_len=.(icon$).|
00001b00  01 4f 0d 20 20 70 74 72  2b 3d 32 34 0d 01 50 05  |.O.  ptr+=24..P.|
00001b10  ed 0d 01 51 1b 64 61 74  61 21 31 36 3d 28 6d 61  |...Q.data!16=(ma|
00001b20  78 5f 6c 65 6e 2a 31 36  29 2b 31 36 0d 01 52 05  |x_len*16)+16..R.|
00001b30  e1 0d 01 53 04 0d 01 54  1c dd f2 67 72 65 79 5f  |...S...T...grey_|
00001b40  69 74 65 6d 28 68 61 6e  64 6c 65 2c 69 74 65 6d  |item(handle,item|
00001b50  29 0d 01 55 1b 62 61 73  65 3d 77 6d 5f 61 64 64  |)..U.base=wm_add|
00001b60  72 28 68 61 6e 64 6c 65  29 2b 32 38 0d 01 56 1b  |r(handle)+28..V.|
00001b70  62 61 73 65 3d 62 61 73  65 2b 28 28 69 74 65 6d  |base=base+((item|
00001b80  2d 31 29 2a 32 34 29 0d  01 57 0f 77 6f 72 64 3d  |-1)*24)..W.word=|
00001b90  62 61 73 65 21 38 0d 01  58 16 77 6f 72 64 3d 77  |base!8..X.word=w|
00001ba0  6f 72 64 20 82 20 28 32  5e 32 32 29 0d 01 59 0f  |ord . (2^22)..Y.|
00001bb0  62 61 73 65 21 38 3d 77  6f 72 64 0d 01 5a 05 e1  |base!8=word..Z..|
00001bc0  0d 01 5b 04 0d 01 5c 18  dd f2 73 68 6f 77 6d 65  |..[...\...showme|
00001bd0  6e 75 28 6d 65 6e 75 2c  78 2c 79 29 0d 01 5d 22  |nu(menu,x,y)..]"|
00001be0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00001bf0  65 6e 75 22 2c 2c 6d 65  6e 75 2c 78 2c 79 0d 01  |enu",,menu,x,y..|
00001c00  5e 05 e1 0d 01 5f 04 0d  01 60 14 dd f2 6d 65 6e  |^...._...`...men|
00001c10  75 5f 73 65 6c 65 63 74  69 6f 6e 0d 01 61 11 66  |u_selection..a.f|
00001c20  69 72 73 74 3d 21 62 6c  6f 63 6b 25 0d 01 62 13  |irst=!block%..b.|
00001c30  73 65 63 6f 6e 64 3d 62  6c 6f 63 6b 25 21 34 0d  |second=block%!4.|
00001c40  01 63 12 74 68 69 72 64  3d 62 6c 6f 63 6b 25 21  |.c.third=block%!|
00001c50  38 0d 01 64 23 c8 99 22  57 69 6d 70 5f 47 65 74  |8..d#.."Wimp_Get|
00001c60  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 62 6c  |PointerInfo",,bl|
00001c70  6f 63 6b 25 0d 01 65 13  62 75 74 74 6f 6e 3d 62  |ock%..e.button=b|
00001c80  6c 6f 63 6b 25 21 38 0d  01 66 24 e7 20 62 75 74  |lock%!8..f$. but|
00001c90  74 6f 6e 3d 31 20 8c 20  f2 73 68 6f 77 6d 65 6e  |ton=1 . .showmen|
00001ca0  75 28 64 61 74 61 2c 30  2c 30 29 0d 01 67 0e c8  |u(data,0,0)..g..|
00001cb0  8e 20 66 69 72 73 74 20  ca 0d 01 68 32 20 20 c9  |. first ...h2  .|
00001cc0  20 31 3a 63 75 72 72 65  6e 74 5f 6d 65 6e 75 3d  | 1:current_menu=|
00001cd0  30 3a f2 73 65 74 5f 74  79 70 65 3a f2 72 65 64  |0:.set_type:.red|
00001ce0  6f 5f 61 6c 6c 5f 69 63  6f 6e 73 0d 01 69 17 20  |o_all_icons..i. |
00001cf0  20 c9 20 32 3a f2 71 75  69 74 5f 70 72 6f 67 72  | . 2:.quit_progr|
00001d00  61 6d 0d 01 6a 05 cb 0d  01 6b 05 e1 0d 01 6c 04  |am..j....k....l.|
00001d10  0d 01 6d 10 dd f2 6c 6f  61 64 5f 74 65 6d 70 73  |..m...load_temps|
00001d20  0d 01 6e 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |..n:.."Wimp_Open|
00001d30  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 4d 65 6e  |Template",,"<Men|
00001d40  61 6b 65 72 53 65 72 76  65 72 24 44 69 72 3e 2e  |akerServer$Dir>.|
00001d50  54 65 6d 70 6c 61 74 65  73 22 0d 01 6f 3c 69 6e  |Templates"..o<in|
00001d60  66 6f 5f 68 61 6e 64 6c  65 3d a4 6c 6f 61 64 5f  |fo_handle=.load_|
00001d70  74 65 6d 70 6c 61 74 65  28 22 70 72 6f 67 49 6e  |template("progIn|
00001d80  66 6f 22 2c 69 6e 66 6f  5f 77 69 6e 64 2c 32 30  |fo",info_wind,20|
00001d90  34 38 2c 2d 31 29 0d 01  70 40 74 79 70 31 5f 68  |48,-1)..p@typ1_h|
00001da0  61 6e 64 6c 65 3d a4 6c  6f 61 64 5f 74 65 6d 70  |andle=.load_temp|
00001db0  6c 61 74 65 28 22 74 79  70 65 31 22 2c 74 79 70  |late("type1",typ|
00001dc0  31 5f 77 69 6e 64 2c 34  30 39 36 2c 74 79 70 31  |1_wind,4096,typ1|
00001dd0  5f 66 6f 6e 74 29 0d 01  71 40 74 79 70 32 5f 68  |_font)..q@typ2_h|
00001de0  61 6e 64 6c 65 3d a4 6c  6f 61 64 5f 74 65 6d 70  |andle=.load_temp|
00001df0  6c 61 74 65 28 22 74 79  70 65 32 22 2c 74 79 70  |late("type2",typ|
00001e00  32 5f 77 69 6e 64 2c 34  30 39 36 2c 74 79 70 32  |2_wind,4096,typ2|
00001e10  5f 66 6f 6e 74 29 0d 01  72 40 74 79 70 33 5f 68  |_font)..r@typ3_h|
00001e20  61 6e 64 6c 65 3d a4 6c  6f 61 64 5f 74 65 6d 70  |andle=.load_temp|
00001e30  6c 61 74 65 28 22 74 79  70 65 33 22 2c 74 79 70  |late("type3",typ|
00001e40  33 5f 77 69 6e 64 2c 34  30 39 36 2c 74 79 70 33  |3_wind,4096,typ3|
00001e50  5f 66 6f 6e 74 29 0d 01  73 1a c8 99 22 57 69 6d  |_font)..s..."Wim|
00001e60  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00001e70  0d 01 74 16 68 61 6e 64  6c 65 3d 74 79 70 31 5f  |..t.handle=typ1_|
00001e80  68 61 6e 64 6c 65 0d 01  75 2b f2 73 65 74 5f 69  |handle..u+.set_i|
00001e90  6e 64 69 72 65 63 74 65  64 28 69 6e 66 6f 5f 68  |ndirected(info_h|
00001ea0  61 6e 64 6c 65 2c 34 2c  76 65 72 73 69 6f 6e 24  |andle,4,version$|
00001eb0  29 0d 01 76 05 e1 0d 01  77 04 0d 01 78 32 dd a4  |)..v....w...x2..|
00001ec0  6c 6f 61 64 5f 74 65 6d  70 6c 61 74 65 28 6e 61  |load_template(na|
00001ed0  6d 65 24 2c 6d 65 6d 5f  73 74 61 72 74 2c 6d 65  |me$,mem_start,me|
00001ee0  6d 5f 73 69 7a 65 2c 66  6f 6e 74 29 0d 01 79 25  |m_size,font)..y%|
00001ef0  69 63 6f 6e 5f 73 74 61  72 74 3d 6d 65 6d 5f 73  |icon_start=mem_s|
00001f00  74 61 72 74 2b 28 6d 65  6d 5f 73 69 7a 65 2f 32  |tart+(mem_size/2|
00001f10  29 0d 01 7a 21 69 63 6f  6e 5f 65 6e 64 3d 6d 65  |)..z!icon_end=me|
00001f20  6d 5f 73 74 61 72 74 2b  6d 65 6d 5f 73 69 7a 65  |m_start+mem_size|
00001f30  2d 31 0d 01 7b 0f 24 6e  61 6d 65 3d 6e 61 6d 65  |-1..{.$name=name|
00001f40  24 0d 01 7c 44 c8 99 22  57 69 6d 70 5f 4c 6f 61  |$..|D.."Wimp_Loa|
00001f50  64 54 65 6d 70 6c 61 74  65 22 2c 2c 6d 65 6d 5f  |dTemplate",,mem_|
00001f60  73 74 61 72 74 2c 69 63  6f 6e 5f 73 74 61 72 74  |start,icon_start|
00001f70  2c 69 63 6f 6e 5f 65 6e  64 2c 66 6f 6e 74 2c 6e  |,icon_end,font,n|
00001f80  61 6d 65 2c 30 0d 01 7d  2d c8 99 22 57 69 6d 70  |ame,0..}-.."Wimp|
00001f90  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00001fa0  6d 65 6d 5f 73 74 61 72  74 20 b8 20 68 61 6e 64  |mem_start . hand|
00001fb0  6c 65 0d 01 7e 0b 3d 68  61 6e 64 6c 65 0d 01 7f  |le..~.=handle...|
00001fc0  04 0d 01 80 19 dd f2 6f  70 65 6e 5f 77 69 6e 64  |.......open_wind|
00001fd0  6f 77 28 68 61 6e 64 6c  65 29 0d 01 81 12 21 62  |ow(handle)....!b|
00001fe0  6c 6f 63 6b 25 3d 68 61  6e 64 6c 65 0d 01 82 23  |lock%=handle...#|
00001ff0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00002000  77 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |wState",,block%.|
00002010  01 83 1f c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |....."Wimp_OpenW|
00002020  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 01  |indow",,block%..|
00002030  84 05 e1 0d 01 85 04 0d  01 86 1a dd f2 63 6c 6f  |.............clo|
00002040  73 65 5f 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |se_window(handle|
00002050  29 0d 01 87 12 21 62 6c  6f 63 6b 25 3d 68 61 6e  |)....!block%=han|
00002060  64 6c 65 0d 01 88 20 c8  99 22 57 69 6d 70 5f 43  |dle... .."Wimp_C|
00002070  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
00002080  63 6b 25 0d 01 89 05 e1  0d 01 8a 04 0d 01 8b 1b  |ck%.............|
00002090  dc 20 22 4d 65 6e 61 6b  65 72 22 2c 33 2c 69 63  |. "Menaker",3,ic|
000020a0  6f 6e 5f 6d 65 6e 75 0d  01 8c 18 dc 20 22 49 6e  |on_menu..... "In|
000020b0  66 6f 22 2c 69 6e 66 6f  5f 68 61 6e 64 6c 65 0d  |fo",info_handle.|
000020c0  01 8d 14 dc 20 22 4d 61  69 6e 20 4d 65 6e 75 22  |.... "Main Menu"|
000020d0  2c 2d 31 0d 01 8e 0f dc  20 22 51 75 69 74 22 2c  |,-1..... "Quit",|
000020e0  2d 31 0d 01 8f 04 0d 01  90 11 dd a4 67 65 74 6c  |-1..........getl|
000020f0  65 61 66 28 61 24 29 0d  01 91 0f c8 95 20 a7 61  |eaf(a$)...... .a|
00002100  24 2c 22 2e 22 29 0d 01  92 18 20 20 61 24 3d c1  |$,".")....  a$=.|
00002110  61 24 2c a7 61 24 2c 22  2e 22 29 2b 31 29 0d 01  |a$,.a$,".")+1)..|
00002120  93 05 ce 0d 01 94 0a 3d  61 24 2b bd 30 0d 01 95  |.......=a$+.0...|
00002130  04 0d 01 96 10 dd f2 6c  6f 61 64 5f 65 72 72 6f  |.......load_erro|
00002140  72 0d 01 97 07 d9 23 58  0d 01 98 3e f2 72 65 70  |r.....#X...>.rep|
00002150  6f 72 74 5f 65 72 72 6f  72 28 22 49 27 6d 20 73  |ort_error("I'm s|
00002160  6f 72 72 79 2c 20 62 75  74 20 74 68 65 20 6d 65  |orry, but the me|
00002170  6e 75 20 64 61 74 61 20  69 73 20 63 6f 72 72 75  |nu data is corru|
00002180  70 74 22 2c 31 29 0d 01  99 0d f2 73 68 75 74 64  |pt",1).....shutd|
00002190  6f 77 6e 0d 01 9a 05 e1  0d 01 9b 04 0d 01 9c 0f  |own.............|
000021a0  dd f2 6c 6f 61 64 5f 64  61 74 61 0d 01 9d 25 46  |..load_data...%F|
000021b0  24 3d 22 3c 4d 65 6e 61  6b 65 72 53 65 72 76 65  |$="<MenakerServe|
000021c0  72 24 44 69 72 3e 2e 4d  65 6e 75 44 61 74 61 22  |r$Dir>.MenuData"|
000021d0  0d 01 9e 0a 58 3d 8e 20  46 24 0d 01 9f 15 e7 20  |....X=. F$..... |
000021e0  58 3d 30 20 f2 6c 6f 61  64 5f 65 72 72 6f 72 0d  |X=0 .load_error.|
000021f0  01 a0 12 72 3d 38 32 3a  6d 3d 37 37 3a 6c 3d 37  |...r=82:m=77:l=7|
00002200  36 0d 01 a1 09 72 3d 9a  23 58 0d 01 a2 09 6d 3d  |6....r=.#X....m=|
00002210  9a 23 58 0d 01 a3 09 6c  3d 9a 23 58 0d 01 a4 22  |.#X....l=.#X..."|
00002220  e7 20 28 28 72 2b 6d 2b  6c 29 3c 3e 32 33 35 29  |. ((r+m+l)<>235)|
00002230  20 8c 20 f2 6c 6f 61 64  5f 65 72 72 6f 72 0d 01  | . .load_error..|
00002240  a5 10 6e 75 6d 5f 6d 65  6e 73 3d 9a 23 58 0d 01  |..num_mens=.#X..|
00002250  a6 0c e8 23 58 2c 6d 61  6b 65 0d 01 a7 19 e3 20  |...#X,make..... |
00002260  6d 65 6e 75 3d 30 20 b8  20 6e 75 6d 5f 6d 65 6e  |menu=0 . num_men|
00002270  73 2d 31 0d 01 a8 16 20  20 e8 23 58 2c 6d 6e 61  |s-1....  .#X,mna|
00002280  6d 65 24 28 6d 65 6e 75  29 0d 01 a9 14 20 20 74  |me$(menu)....  t|
00002290  79 70 65 28 6d 65 6e 75  29 3d 9a 23 58 0d 01 aa  |ype(menu)=.#X...|
000022a0  17 20 20 6e 6f 5f 6f 70  74 73 28 6d 65 6e 75 29  |.  no_opts(menu)|
000022b0  3d 9a 23 58 0d 01 ab 23  20 20 e7 20 6e 6f 5f 6f  |=.#X...#  . no_o|
000022c0  70 74 73 28 6d 65 6e 75  29 3c 3e 32 35 35 20 f2  |pts(menu)<>255 .|
000022d0  73 6c 5f 65 61 63 68 0d  01 ac 05 ed 0d 01 ad 07  |sl_each.........|
000022e0  d9 23 58 0d 01 ae 05 e1  0d 01 af 04 0d 01 b0 0d  |.#X.............|
000022f0  dd f2 73 6c 5f 65 61 63  68 0d 01 b1 1c e3 20 69  |..sl_each..... i|
00002300  74 65 6d 3d 30 20 b8 20  6e 6f 5f 6f 70 74 73 28  |tem=0 . no_opts(|
00002310  6d 65 6e 75 29 0d 01 b2  1b 20 20 61 63 74 69 6f  |menu)....  actio|
00002320  6e 28 6d 65 6e 75 2c 69  74 65 6d 29 3d 9a 23 58  |n(menu,item)=.#X|
00002330  0d 01 b3 1b 20 20 e8 23  58 2c 66 6e 61 6d 65 24  |....  .#X,fname$|
00002340  28 6d 65 6e 75 2c 69 74  65 6d 29 0d 01 b4 1a 20  |(menu,item).... |
00002350  20 e8 23 58 2c 74 65 78  74 24 28 6d 65 6e 75 2c  | .#X,text$(menu,|
00002360  69 74 65 6d 29 0d 01 b5  1c 20 20 e8 23 58 2c 73  |item)....  .#X,s|
00002370  70 72 69 74 65 24 28 6d  65 6e 75 2c 69 74 65 6d  |prite$(menu,item|
00002380  29 0d 01 b6 1a 20 20 e8  23 58 2c 66 74 79 70 65  |)....  .#X,ftype|
00002390  28 6d 65 6e 75 2c 69 74  65 6d 29 0d 01 b7 05 ed  |(menu,item).....|
000023a0  0d 01 b8 05 e1 0d 01 b9  04 0d 01 ba 17 dd a4 69  |...............i|
000023b0  63 6f 6e 5f 74 6f 5f 69  74 65 6d 28 69 63 6e 29  |con_to_item(icn)|
000023c0  0d 01 bb 0a 69 74 3d 69  63 6e 0d 01 bc 14 e7 20  |....it=icn..... |
000023d0  69 74 3e 31 37 20 8c 20  69 74 2d 3d 31 38 0d 01  |it>17 . it-=18..|
000023e0  bd 07 3d 69 74 0d 01 be  04 0d 01 bf 0a dd f2 6c  |..=it..........l|
000023f0  6f 61 64 0d 01 c0 0e f2  6c 6f 61 64 5f 64 61 74  |oad.....load_dat|
00002400  61 0d 01 c1 37 e7 20 6d  61 6b 65 20 8c 20 ff 22  |a...7. make . ."|
00002410  49 63 6f 6e 73 70 72 69  74 65 73 20 3c 4d 65 6e  |Iconsprites <Men|
00002420  61 6b 65 72 53 65 72 76  65 72 24 44 69 72 3e 2e  |akerServer$Dir>.|
00002430  53 70 72 69 74 65 73 22  0d 01 c2 19 74 79 3d 74  |Sprites"....ty=t|
00002440  79 70 65 28 63 75 72 72  65 6e 74 5f 6d 65 6e 75  |ype(current_menu|
00002450  29 0d 01 c3 0b c8 8e 20  74 79 20 ca 0d 01 c4 1c  |)...... ty .....|
00002460  20 20 c9 20 31 3a 68 61  6e 64 6c 65 3d 74 79 70  |  . 1:handle=typ|
00002470  31 5f 68 61 6e 64 6c 65  0d 01 c5 1c 20 20 c9 20  |1_handle....  . |
00002480  32 3a 68 61 6e 64 6c 65  3d 74 79 70 32 5f 68 61  |2:handle=typ2_ha|
00002490  6e 64 6c 65 0d 01 c6 1c  20 20 c9 20 33 3a 68 61  |ndle....  . 3:ha|
000024a0  6e 64 6c 65 3d 74 79 70  33 5f 68 61 6e 64 6c 65  |ndle=typ3_handle|
000024b0  0d 01 c7 05 cb 0d 01 c8  18 f2 6f 70 65 6e 5f 77  |..........open_w|
000024c0  69 6e 64 6f 77 28 68 61  6e 64 6c 65 29 0d 01 c9  |indow(handle)...|
000024d0  13 f2 72 65 64 6f 5f 61  6c 6c 5f 69 63 6f 6e 73  |..redo_all_icons|
000024e0  0d 01 ca 05 e1 0d 01 cb  04 0d 01 cc 0a dd a4 6d  |...............m|
000024f0  28 6e 29 0d 01 cd 16 3d  c0 6d 6e 61 6d 65 24 28  |(n)....=.mname$(|
00002500  69 63 6f 6e 29 2c 31 30  29 0d ff                 |icon),10)..|
0000250b