� >WimpLib
� Wimp procedure library
� For use by Menaker
(� �1993 Richard M. Leggett
2� 14/7/93 - 13/8/93
<
F��initialise_library
P.� block% 256,name 128,validate 32,ind% 256
Z� input% 256,output% 256
d$validate=""+�0
n�
x
���install(in$,ix,iy)
�Gș"Wimp_Initialise",200,&4B534154,prog_name$ � version,task_handle%
��iconbar_icon(in$,ix,iy)
�initialised=�
��
�
���shutdown
�ș"Wimp_CloseDown"
��
�
���report_error(error$,code)
�
!ind%=255
�$(ind%+4)=error$+�0

?ș "Wimp_ReportError",ind%,code,prog_name$ � ,user_response

�



"M� ---------------------------- Icon Routines ----------------------------

,

6��iconbar_icon(n$,x,y)

@!block%=-1

Jblock%!4=0

Tblock%!8=0

^block%!12=x

hblock%!16=y

rblock%!20=&3002

|$(block%+24)=n$

�*ș"Wimp_CreateIcon",,block% � ibhandle

��

�

���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)

��caret(w,i)
l=�(�get_indirected(w,i))
&*ș"Wimp_SetCaretPosition",w,i,0,0,-1,l
0�
:
Dݤget_state(wind,ic)
N!ind%=wind
X
ind%!4=ic
bș"Wimp_GetIconState",,ind%
lflags=ind%!24
vfunction=((flags � (2^21)))
�.� function>0 set=�:unset=� � set=�:unset=�
�=set
�
���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%
��
�
M� -------------------------- Window Routines ----------------------------

��open_template_file(f$)
 ș"Wimp_OpenTemplate",,f$
*�
4
>��close_template_file
Hș"Wimp_CloseTemplate"
R�
\
f2ݤload_template(name$,mem_start,mem_size,font)
p%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:�wi_handle%(handle)
�#ș"Wimp_GetWindowState",,block%
�ș"Wimp_OpenWindow",,block%
��
�
���close_window(handle)
�!block%=handle
 ș"Wimp_CloseWindow",,block%
�

$��centre_window(w,x,y)
.
!block%=w
8block%!4=(xr-x) � 2
Bblock%!8=(yr-y) � 2
Lblock%!12=block%!4+x
Vblock%!16=block%!8+y
`block%!28=-1
jș"Wimp_OpenWindow",,block%
t�
~
�M� ------------------------- Debugging Routines --------------------------
�
���deb_mes(n,m$)
�(�set_indirected(debu_handle,n+13,m$)
��open_window(debu_handle)
�3ș"Wimp_ForceRedraw",debu_handle,0,-1200,1200,0
��
�
���deb_grid
�� y=1 � 10
�  A$=""
�  � x=1 � 10
    B$=�grid(x,y)

    � �(B$)=1 B$=" "+B$
    A$=A$+B$+" "
  �
(  �deb_mes(10-y,A$)
2�
<�
F
PK� --------------------------- Menu Routines ---------------------------
Z
d��initialise_menus(n)
n� wm_name$(n)
x� wm_addr(n)
�� wm_nopts(n)
�� wm_data$(n,32)
�� wm_sub(n,32)
��
�
���read_menu_data(n)
�� menu=1 � n
�3  � wm_name$(menu),wm_nopts(menu),wm_addr(menu)
�  � opt=1 � wm_nopts(menu)
�-    � wm_data$(menu,opt),wm_sub(menu,opt)
�  �
��
��

��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
6ptr=data+28
@max_len=�(title$)
J� item=1 � no_items
T!  icon$=wm_data$(handle,item)
^!  submenu=wm_sub(handle,item)
h5  � item=no_items � menuflags=&80 � menuflags=&00
r  iconflags=&7000021
|2  !ptr=menuflags:ptr!4=submenu:ptr!8=iconflags
�  � �(icon$)<=12 �
�    $(ptr+12)=icon$
�  �
�    ptr!8=&7000121
�-    address=wm_addr(handle)+400+(item*40)
�6    ptr!12=address:ptr!16=validate:ptr!20=�(icon$)
�    $address=icon$
�  �
�+  � �(icon$)>max_len � max_len=�(icon$)
�
  ptr+=24
��
�data!16=(max_len*16)+16
��

��showmenu(menu,x,y)
"ș "Wimp_CreateMenu",,menu,x,y
&�
0
:ݤwhat_selection
Ddata=wm_addr(os_menu)
N,ș"Wimp_DecodeMenu",,data,block%,output%
X!select$=�zero_string(output%)
b option$=�os_menu+"."+select$
lB� option$="1.Options.Run files from Menaker" � �run_files_from
v#ș"Wimp_GetPointerInfo",,block%
�button=block%!8
�$� button=1 � �showmenu(data,0,0)
�=option$
�
���grey_item(handle,item)
�base=wm_addr(handle)+28
�base=base+((item-1)*24)
�word=base!8
�word=word � (2^22)
�base!8=word
��
�
���tick_item(handle,item)
base=wm_addr(handle)+28
base=base+((item-1)*24)
word=!base
 word=word � (2^0)
*!base=word
4�
>
HO� -------------------- Window and Menu definition files -------------------
R
\��load_templates(root$)
f3� version>=300 t$=".Templates" � t$=".TempsRO2"
p!�open_template_file(root$+t$)
z#�read_windows(root$+".Windows")
��close_template_file
��
�
���read_windows(fname$)
�X=� fname$
��
�  A=�#X
�  � A=�("|") �next_line
�� A>=48 � A<=57
�A$=�A:A=�#X:A$+=�A
�no_windows=�(A$)
��initialise_windows
�
size=0
	� window=1 � no_windows
	  B$=�get_line
	  �window_line
	$  size+=wi_size%(window)
	.�
	8�#X
	B
	Lfont_size=no_windows*256
	V� windows% size
	`� fontdata% font_size
	joffset%=windows%
	tft=fontdata%
	~� window=1 � no_windows
	�  wi_data%(window)=offset%
	�^  wi_handle%(window)=�load_template(wi_name$(window),wi_data%(window),wi_size%(window),ft)
	�  offset%+=wi_size%(window)
	�
  ft+=256
	��
	��
	�
	���initialise_windows
	�� wi_name$(no_windows)
	�� wi_size%(no_windows)
	�� wi_data%(no_windows)
	�� wi_handle%(no_windows)
�


��initialise_menus
� os_no%(no_menus)
(� os_title$(no_menus)
2� os_data%(no_menus)
<� os_size%(no_menus)
F� os_option$(no_menus,20)
P� os_submenu%(no_menus,20)
Z�
d
n��next_line
x�:A=�#X:� A=10
��
�
�ݤget_line
��
�  A=�#X
�� A<>10 � A<>32
�	A$=�A
��
�  A=�#X
�  A$+=�A
�� A=10 � �(A$)>250
�A$=�A$,�(A$)-1)
�=A$

��window_line
n$=�B$,2):n=�(n$)
"B$=�B$,�(B$)-3)
,p=�B$,",")
6name$=�B$,p-1)
@B$=�B$,�(B$)-p)
Jsi=�(B$)
Twi_name$(n)=name$
^wi_size%(n)=si
h�
r
|M� ----------------------------- String Routines -------------------------
�
�ݤzero_string(data)
�� s$
�ȕ ?data<>0 � ?data<>13
�  s$+=�(?data)
�
  data+=1
��
�=s$
�
�ݤstring(ptr%)
�� a$
�ȕ ?ptr%<>0
�  a$+=�(?ptr%)

  ptr%+=1
�
=a$
&
0ݤgetleaf(a$)
:ȕ �a$,".")
D  a$=�a$,�a$,".")+1)
N�
X
=a$+�0
b
lݤget_name(data)
v	a$=""
�� l=0 � length-1
�a$+=�(data?l)
��
�=a$
�
�ݤalpha(a$)
�	b$=""
�� l=1 � �(a$)
�  a=�(�a$,l,1))
�  � a>=65 � a<=90 � a+=32
�  b$+=�a
��
�=b$



ݤrz(a$)

� �a$,1)<>�0 � =a$

 a=�(a$)

*
=�a$,a-1)

4

>K� ------------------------ Saving/Dragging Routines -------------------

H

R��start_drag(w,i)

\
!block%=w

f#ș"Wimp_GetWindowState",,block%

pox=block%!4-block%!20

zoy=block%!16-block%!24

�block%!4=i

�!ș"Wimp_GetIconState",,block%

�!block%=save_handle

�block%!4=5

�block%!8=ox+block%!8

�block%!12=oy+block%!12

�block%!16=ox+block%!16

�block%!20=oy+block%!20

�block%!24=0

�block%!28=0

�block%!32=&7FFFFFFF

�block%!36=&7FFFFFFF

�ș"Wimp_DragBox",,block%
�

L� --------------------------- Mode/VDU Routines ------------------------
$
.��read_vdu
8*ș"OS_ReadModeVariable",-1,11 � ,,xpix
B)ș"OS_ReadModeVariable",-1,4 � ,,xbit
L*ș"OS_ReadModeVariable",-1,12 � ,,ypix
V)ș"OS_ReadModeVariable",-1,5 � ,,ybit
`xr=xpix*(2^xbit)
jyr=ypix*(2^ybit)
t�
�

00000000  0d 00 0a 0e f4 20 3e 57  69 6d 70 4c 69 62 0d 00  |..... >WimpLib..|
00000010  14 1c f4 20 57 69 6d 70  20 70 72 6f 63 65 64 75  |... Wimp procedu|
00000020  72 65 20 6c 69 62 72 61  72 79 0d 00 1e 18 f4 20  |re library..... |
00000030  46 6f 72 20 75 73 65 20  62 79 20 4d 65 6e 61 6b  |For use by Menak|
00000040  65 72 0d 00 28 1e f4 20  a9 31 39 39 33 20 52 69  |er..(.. .1993 Ri|
00000050  63 68 61 72 64 20 4d 2e  20 4c 65 67 67 65 74 74  |chard M. Leggett|
00000060  0d 00 32 17 f4 20 31 34  2f 37 2f 39 33 20 2d 20  |..2.. 14/7/93 - |
00000070  31 33 2f 38 2f 39 33 0d  00 3c 04 0d 00 46 18 dd  |13/8/93..<...F..|
00000080  f2 69 6e 69 74 69 61 6c  69 73 65 5f 6c 69 62 72  |.initialise_libr|
00000090  61 72 79 0d 00 50 2e de  20 62 6c 6f 63 6b 25 20  |ary..P.. block% |
000000a0  32 35 36 2c 6e 61 6d 65  20 31 32 38 2c 76 61 6c  |256,name 128,val|
000000b0  69 64 61 74 65 20 33 32  2c 69 6e 64 25 20 32 35  |idate 32,ind% 25|
000000c0  36 0d 00 5a 1c de 20 69  6e 70 75 74 25 20 32 35  |6..Z.. input% 25|
000000d0  36 2c 6f 75 74 70 75 74  25 20 32 35 36 0d 00 64  |6,output% 256..d|
000000e0  13 24 76 61 6c 69 64 61  74 65 3d 22 22 2b bd 30  |.$validate=""+.0|
000000f0  0d 00 6e 05 e1 0d 00 78  04 0d 00 82 18 dd f2 69  |..n....x.......i|
00000100  6e 73 74 61 6c 6c 28 69  6e 24 2c 69 78 2c 69 79  |nstall(in$,ix,iy|
00000110  29 0d 00 8c 47 c8 99 22  57 69 6d 70 5f 49 6e 69  |)...G.."Wimp_Ini|
00000120  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 26 34 42  |tialise",200,&4B|
00000130  35 33 34 31 35 34 2c 70  72 6f 67 5f 6e 61 6d 65  |534154,prog_name|
00000140  24 20 b8 20 76 65 72 73  69 6f 6e 2c 74 61 73 6b  |$ . version,task|
00000150  5f 68 61 6e 64 6c 65 25  0d 00 96 1c f2 69 63 6f  |_handle%.....ico|
00000160  6e 62 61 72 5f 69 63 6f  6e 28 69 6e 24 2c 69 78  |nbar_icon(in$,ix|
00000170  2c 69 79 29 0d 00 a0 11  69 6e 69 74 69 61 6c 69  |,iy)....initiali|
00000180  73 65 64 3d b9 0d 00 aa  05 e1 0d 00 b4 04 0d 00  |sed=............|
00000190  be 0e dd f2 73 68 75 74  64 6f 77 6e 0d 00 c8 16  |....shutdown....|
000001a0  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
000001b0  6e 22 0d 00 d2 05 e1 0d  00 dc 04 0d 00 e6 1f dd  |n"..............|
000001c0  f2 72 65 70 6f 72 74 5f  65 72 72 6f 72 28 65 72  |.report_error(er|
000001d0  72 6f 72 24 2c 63 6f 64  65 29 0d 00 f0 0d 21 69  |ror$,code)....!i|
000001e0  6e 64 25 3d 32 35 35 0d  00 fa 17 24 28 69 6e 64  |nd%=255....$(ind|
000001f0  25 2b 34 29 3d 65 72 72  6f 72 24 2b bd 30 0d 01  |%+4)=error$+.0..|
00000200  04 3f c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |.?.. "Wimp_Repor|
00000210  74 45 72 72 6f 72 22 2c  69 6e 64 25 2c 63 6f 64  |tError",ind%,cod|
00000220  65 2c 70 72 6f 67 5f 6e  61 6d 65 24 20 b8 20 2c  |e,prog_name$ . ,|
00000230  75 73 65 72 5f 72 65 73  70 6f 6e 73 65 0d 01 0e  |user_response...|
00000240  05 e1 0d 01 18 04 0d 01  22 4d f4 20 2d 2d 2d 2d  |........"M. ----|
00000250  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000260  2d 2d 2d 2d 2d 2d 2d 2d  20 49 63 6f 6e 20 52 6f  |-------- Icon Ro|
00000270  75 74 69 6e 65 73 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |utines ---------|
00000280  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000290  2d 2d 2d 0d 01 2c 04 0d  01 36 1a dd f2 69 63 6f  |---..,...6...ico|
000002a0  6e 62 61 72 5f 69 63 6f  6e 28 6e 24 2c 78 2c 79  |nbar_icon(n$,x,y|
000002b0  29 0d 01 40 0e 21 62 6c  6f 63 6b 25 3d 2d 31 0d  |)..@.!block%=-1.|
000002c0  01 4a 0e 62 6c 6f 63 6b  25 21 34 3d 30 0d 01 54  |.J.block%!4=0..T|
000002d0  0e 62 6c 6f 63 6b 25 21  38 3d 30 0d 01 5e 0f 62  |.block%!8=0..^.b|
000002e0  6c 6f 63 6b 25 21 31 32  3d 78 0d 01 68 0f 62 6c  |lock%!12=x..h.bl|
000002f0  6f 63 6b 25 21 31 36 3d  79 0d 01 72 13 62 6c 6f  |ock%!16=y..r.blo|
00000300  63 6b 25 21 32 30 3d 26  33 30 30 32 0d 01 7c 13  |ck%!20=&3002..|.|
00000310  24 28 62 6c 6f 63 6b 25  2b 32 34 29 3d 6e 24 0d  |$(block%+24)=n$.|
00000320  01 86 2a c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..*.."Wimp_Creat|
00000330  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |eIcon",,block% .|
00000340  20 69 62 68 61 6e 64 6c  65 0d 01 90 05 e1 0d 01  | ibhandle.......|
00000350  9a 04 0d 01 a4 1c dd f2  73 65 74 5f 69 6e 64 69  |........set_indi|
00000360  72 65 63 74 65 64 28 77  2c 69 2c 73 24 29 0d 01  |rected(w,i,s$)..|
00000370  ae 14 21 69 6e 64 25 3d  77 3a 69 6e 64 25 21 34  |..!ind%=w:ind%!4|
00000380  3d 69 0d 01 b8 20 c8 99  20 22 57 69 6d 70 5f 47  |=i... .. "Wimp_G|
00000390  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 69 6e  |etIconState",,in|
000003a0  64 25 0d 01 c2 11 24 28  69 6e 64 25 21 32 38 29  |d%....$(ind%!28)|
000003b0  3d 73 24 0d 01 cc 05 e1  0d 01 d6 04 0d 01 e0 19  |=s$.............|
000003c0  dd a4 67 65 74 5f 69 6e  64 69 72 65 63 74 65 64  |..get_indirected|
000003d0  28 77 2c 69 29 0d 01 ea  14 21 69 6e 64 25 3d 77  |(w,i)....!ind%=w|
000003e0  3a 69 6e 64 25 21 34 3d  69 0d 01 f4 20 c8 99 20  |:ind%!4=i... .. |
000003f0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00000400  74 65 22 2c 2c 69 6e 64  25 0d 01 fe 1a 3d a4 7a  |te",,ind%....=.z|
00000410  65 72 6f 5f 73 74 72 69  6e 67 28 69 6e 64 25 21  |ero_string(ind%!|
00000420  32 38 29 0d 02 08 04 0d  02 12 10 dd f2 63 61 72  |28)..........car|
00000430  65 74 28 77 2c 69 29 0d  02 1c 1d 6c 3d a9 28 a4  |et(w,i)....l=.(.|
00000440  67 65 74 5f 69 6e 64 69  72 65 63 74 65 64 28 77  |get_indirected(w|
00000450  2c 69 29 29 0d 02 26 2a  c8 99 22 57 69 6d 70 5f  |,i))..&*.."Wimp_|
00000460  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00000470  22 2c 77 2c 69 2c 30 2c  30 2c 2d 31 2c 6c 0d 02  |",w,i,0,0,-1,l..|
00000480  30 05 e1 0d 02 3a 04 0d  02 44 18 dd a4 67 65 74  |0....:...D...get|
00000490  5f 73 74 61 74 65 28 77  69 6e 64 2c 69 63 29 0d  |_state(wind,ic).|
000004a0  02 4e 0e 21 69 6e 64 25  3d 77 69 6e 64 0d 02 58  |.N.!ind%=wind..X|
000004b0  0d 69 6e 64 25 21 34 3d  69 63 0d 02 62 1f c8 99  |.ind%!4=ic..b...|
000004c0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000004d0  74 65 22 2c 2c 69 6e 64  25 0d 02 6c 11 66 6c 61  |te",,ind%..l.fla|
000004e0  67 73 3d 69 6e 64 25 21  32 34 0d 02 76 1f 66 75  |gs=ind%!24..v.fu|
000004f0  6e 63 74 69 6f 6e 3d 28  28 66 6c 61 67 73 20 80  |nction=((flags .|
00000500  20 28 32 5e 32 31 29 29  29 0d 02 80 2e e7 20 66  | (2^21)))..... f|
00000510  75 6e 63 74 69 6f 6e 3e  30 20 73 65 74 3d b9 3a  |unction>0 set=.:|
00000520  75 6e 73 65 74 3d a3 20  8b 20 73 65 74 3d a3 3a  |unset=. . set=.:|
00000530  75 6e 73 65 74 3d b9 0d  02 8a 08 3d 73 65 74 0d  |unset=.....=set.|
00000540  02 94 04 0d 02 9e 16 dd  f2 75 6e 73 65 74 5f 62  |.........unset_b|
00000550  69 74 28 77 2c 69 2c 62  29 0d 02 a8 2a 21 69 6e  |it(w,i,b)...*!in|
00000560  64 25 3d 77 3a 69 6e 64  25 21 34 3d 69 3a 69 6e  |d%=w:ind%!4=i:in|
00000570  64 25 21 38 3d 30 3a 69  6e 64 25 21 31 32 3d 31  |d%!8=0:ind%!12=1|
00000580  3c 3c 62 0d 02 b2 20 c8  99 20 22 57 69 6d 70 5f  |<<b... .. "Wimp_|
00000590  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 69  |SetIconState",,i|
000005a0  6e 64 25 0d 02 bc 05 e1  0d 02 c6 04 0d 02 d0 14  |nd%.............|
000005b0  dd f2 73 65 74 5f 62 69  74 28 77 2c 69 2c 62 29  |..set_bit(w,i,b)|
000005c0  0d 02 da 2d 21 69 6e 64  25 3d 77 3a 69 6e 64 25  |...-!ind%=w:ind%|
000005d0  21 34 3d 69 3a 69 6e 64  25 21 38 3d 31 3c 3c 62  |!4=i:ind%!8=1<<b|
000005e0  3a 69 6e 64 25 21 31 32  3d 31 3c 3c 62 0d 02 e4  |:ind%!12=1<<b...|
000005f0  1f c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |..."Wimp_SetIcon|
00000600  53 74 61 74 65 22 2c 2c  69 6e 64 25 0d 02 ee 05  |State",,ind%....|
00000610  e1 0d 02 f8 04 0d 03 02  4d f4 20 2d 2d 2d 2d 2d  |........M. -----|
00000620  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000630  2d 2d 2d 2d 2d 20 57 69  6e 64 6f 77 20 52 6f 75  |----- Window Rou|
00000640  74 69 6e 65 73 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |tines ----------|
00000650  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000660  2d 2d 0d 03 0c 04 0d 03  16 1c dd f2 6f 70 65 6e  |--..........open|
00000670  5f 74 65 6d 70 6c 61 74  65 5f 66 69 6c 65 28 66  |_template_file(f|
00000680  24 29 0d 03 20 1d c8 99  22 57 69 6d 70 5f 4f 70  |$).. ..."Wimp_Op|
00000690  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 66 24 0d  |enTemplate",,f$.|
000006a0  03 2a 05 e1 0d 03 34 04  0d 03 3e 19 dd f2 63 6c  |.*....4...>...cl|
000006b0  6f 73 65 5f 74 65 6d 70  6c 61 74 65 5f 66 69 6c  |ose_template_fil|
000006c0  65 0d 03 48 1a c8 99 22  57 69 6d 70 5f 43 6c 6f  |e..H..."Wimp_Clo|
000006d0  73 65 54 65 6d 70 6c 61  74 65 22 0d 03 52 05 e1  |seTemplate"..R..|
000006e0  0d 03 5c 04 0d 03 66 32  dd a4 6c 6f 61 64 5f 74  |..\...f2..load_t|
000006f0  65 6d 70 6c 61 74 65 28  6e 61 6d 65 24 2c 6d 65  |emplate(name$,me|
00000700  6d 5f 73 74 61 72 74 2c  6d 65 6d 5f 73 69 7a 65  |m_start,mem_size|
00000710  2c 66 6f 6e 74 29 0d 03  70 25 69 63 6f 6e 5f 73  |,font)..p%icon_s|
00000720  74 61 72 74 3d 6d 65 6d  5f 73 74 61 72 74 2b 28  |tart=mem_start+(|
00000730  6d 65 6d 5f 73 69 7a 65  2f 32 29 0d 03 7a 21 69  |mem_size/2)..z!i|
00000740  63 6f 6e 5f 65 6e 64 3d  6d 65 6d 5f 73 74 61 72  |con_end=mem_star|
00000750  74 2b 6d 65 6d 5f 73 69  7a 65 2d 31 0d 03 84 0f  |t+mem_size-1....|
00000760  24 6e 61 6d 65 3d 6e 61  6d 65 24 0d 03 8e 44 c8  |$name=name$...D.|
00000770  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00000780  61 74 65 22 2c 2c 6d 65  6d 5f 73 74 61 72 74 2c  |ate",,mem_start,|
00000790  69 63 6f 6e 5f 73 74 61  72 74 2c 69 63 6f 6e 5f  |icon_start,icon_|
000007a0  65 6e 64 2c 66 6f 6e 74  2c 6e 61 6d 65 2c 30 0d  |end,font,name,0.|
000007b0  03 98 2d c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..-.."Wimp_Creat|
000007c0  65 57 69 6e 64 6f 77 22  2c 2c 6d 65 6d 5f 73 74  |eWindow",,mem_st|
000007d0  61 72 74 20 b8 20 68 61  6e 64 6c 65 0d 03 a2 0b  |art . handle....|
000007e0  3d 68 61 6e 64 6c 65 0d  03 ac 04 0d 03 b6 19 dd  |=handle.........|
000007f0  f2 6f 70 65 6e 5f 77 69  6e 64 6f 77 28 68 61 6e  |.open_window(han|
00000800  64 6c 65 29 0d 03 c0 26  21 62 6c 6f 63 6b 25 3d  |dle)...&!block%=|
00000810  68 61 6e 64 6c 65 3a f4  77 69 5f 68 61 6e 64 6c  |handle:.wi_handl|
00000820  65 25 28 68 61 6e 64 6c  65 29 0d 03 ca 23 c8 99  |e%(handle)...#..|
00000830  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00000840  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 03 d4  |tate",,block%...|
00000850  1f c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |..."Wimp_OpenWin|
00000860  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 03 de 05  |dow",,block%....|
00000870  e1 0d 03 e8 04 0d 03 f2  1a dd f2 63 6c 6f 73 65  |...........close|
00000880  5f 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 29 0d  |_window(handle).|
00000890  03 fc 12 21 62 6c 6f 63  6b 25 3d 68 61 6e 64 6c  |...!block%=handl|
000008a0  65 0d 04 06 20 c8 99 22  57 69 6d 70 5f 43 6c 6f  |e... .."Wimp_Clo|
000008b0  73 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |seWindow",,block|
000008c0  25 0d 04 10 05 e1 0d 04  1a 04 0d 04 24 1a dd f2  |%...........$...|
000008d0  63 65 6e 74 72 65 5f 77  69 6e 64 6f 77 28 77 2c  |centre_window(w,|
000008e0  78 2c 79 29 0d 04 2e 0d  21 62 6c 6f 63 6b 25 3d  |x,y)....!block%=|
000008f0  77 0d 04 38 17 62 6c 6f  63 6b 25 21 34 3d 28 78  |w..8.block%!4=(x|
00000900  72 2d 78 29 20 81 20 32  0d 04 42 17 62 6c 6f 63  |r-x) . 2..B.bloc|
00000910  6b 25 21 38 3d 28 79 72  2d 79 29 20 81 20 32 0d  |k%!8=(yr-y) . 2.|
00000920  04 4c 18 62 6c 6f 63 6b  25 21 31 32 3d 62 6c 6f  |.L.block%!12=blo|
00000930  63 6b 25 21 34 2b 78 0d  04 56 18 62 6c 6f 63 6b  |ck%!4+x..V.block|
00000940  25 21 31 36 3d 62 6c 6f  63 6b 25 21 38 2b 79 0d  |%!16=block%!8+y.|
00000950  04 60 10 62 6c 6f 63 6b  25 21 32 38 3d 2d 31 0d  |.`.block%!28=-1.|
00000960  04 6a 1f c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |.j..."Wimp_OpenW|
00000970  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 04  |indow",,block%..|
00000980  74 05 e1 0d 04 7e 04 0d  04 88 4d f4 20 2d 2d 2d  |t....~....M. ---|
00000990  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000009a0  2d 2d 2d 2d 2d 2d 20 44  65 62 75 67 67 69 6e 67  |------ Debugging|
000009b0  20 52 6f 75 74 69 6e 65  73 20 2d 2d 2d 2d 2d 2d  | Routines ------|
000009c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000009d0  2d 2d 2d 2d 0d 04 92 04  0d 04 9c 13 dd f2 64 65  |----..........de|
000009e0  62 5f 6d 65 73 28 6e 2c  6d 24 29 0d 04 a6 28 f2  |b_mes(n,m$)...(.|
000009f0  73 65 74 5f 69 6e 64 69  72 65 63 74 65 64 28 64  |set_indirected(d|
00000a00  65 62 75 5f 68 61 6e 64  6c 65 2c 6e 2b 31 33 2c  |ebu_handle,n+13,|
00000a10  6d 24 29 0d 04 b0 1d f2  6f 70 65 6e 5f 77 69 6e  |m$).....open_win|
00000a20  64 6f 77 28 64 65 62 75  5f 68 61 6e 64 6c 65 29  |dow(debu_handle)|
00000a30  0d 04 ba 33 c8 99 22 57  69 6d 70 5f 46 6f 72 63  |...3.."Wimp_Forc|
00000a40  65 52 65 64 72 61 77 22  2c 64 65 62 75 5f 68 61  |eRedraw",debu_ha|
00000a50  6e 64 6c 65 2c 30 2c 2d  31 32 30 30 2c 31 32 30  |ndle,0,-1200,120|
00000a60  30 2c 30 0d 04 c4 05 e1  0d 04 ce 04 0d 04 d8 0e  |0,0.............|
00000a70  dd f2 64 65 62 5f 67 72  69 64 0d 04 e2 0e e3 20  |..deb_grid..... |
00000a80  79 3d 31 20 b8 20 31 30  0d 04 ec 0b 20 20 41 24  |y=1 . 10....  A$|
00000a90  3d 22 22 0d 04 f6 10 20  20 e3 20 78 3d 31 20 b8  |=""....  . x=1 .|
00000aa0  20 31 30 0d 05 00 15 20  20 20 20 42 24 3d c3 67  | 10....    B$=.g|
00000ab0  72 69 64 28 78 2c 79 29  0d 05 0a 1b 20 20 20 20  |rid(x,y)....    |
00000ac0  e7 20 a9 28 42 24 29 3d  31 20 42 24 3d 22 20 22  |. .(B$)=1 B$=" "|
00000ad0  2b 42 24 0d 05 14 14 20  20 20 20 41 24 3d 41 24  |+B$....    A$=A$|
00000ae0  2b 42 24 2b 22 20 22 0d  05 1e 07 20 20 ed 0d 05  |+B$+" "....  ...|
00000af0  28 17 20 20 f2 64 65 62  5f 6d 65 73 28 31 30 2d  |(.  .deb_mes(10-|
00000b00  79 2c 41 24 29 0d 05 32  05 ed 0d 05 3c 05 e1 0d  |y,A$)..2....<...|
00000b10  05 46 04 0d 05 50 4b f4  20 2d 2d 2d 2d 2d 2d 2d  |.F...PK. -------|
00000b20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000b30  2d 2d 2d 2d 20 4d 65 6e  75 20 52 6f 75 74 69 6e  |---- Menu Routin|
00000b40  65 73 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |es -------------|
00000b50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 05  |--------------..|
00000b60  5a 04 0d 05 64 19 dd f2  69 6e 69 74 69 61 6c 69  |Z...d...initiali|
00000b70  73 65 5f 6d 65 6e 75 73  28 6e 29 0d 05 6e 11 de  |se_menus(n)..n..|
00000b80  20 77 6d 5f 6e 61 6d 65  24 28 6e 29 0d 05 78 10  | wm_name$(n)..x.|
00000b90  de 20 77 6d 5f 61 64 64  72 28 6e 29 0d 05 82 11  |. wm_addr(n)....|
00000ba0  de 20 77 6d 5f 6e 6f 70  74 73 28 6e 29 0d 05 8c  |. wm_nopts(n)...|
00000bb0  14 de 20 77 6d 5f 64 61  74 61 24 28 6e 2c 33 32  |.. wm_data$(n,32|
00000bc0  29 0d 05 96 12 de 20 77  6d 5f 73 75 62 28 6e 2c  |)..... wm_sub(n,|
00000bd0  33 32 29 0d 05 a0 05 e1  0d 05 aa 04 0d 05 b4 17  |32).............|
00000be0  dd f2 72 65 61 64 5f 6d  65 6e 75 5f 64 61 74 61  |..read_menu_data|
00000bf0  28 6e 29 0d 05 be 10 e3  20 6d 65 6e 75 3d 31 20  |(n)..... menu=1 |
00000c00  b8 20 6e 0d 05 c8 33 20  20 f3 20 77 6d 5f 6e 61  |. n...3  . wm_na|
00000c10  6d 65 24 28 6d 65 6e 75  29 2c 77 6d 5f 6e 6f 70  |me$(menu),wm_nop|
00000c20  74 73 28 6d 65 6e 75 29  2c 77 6d 5f 61 64 64 72  |ts(menu),wm_addr|
00000c30  28 6d 65 6e 75 29 0d 05  d2 1e 20 20 e3 20 6f 70  |(menu)....  . op|
00000c40  74 3d 31 20 b8 20 77 6d  5f 6e 6f 70 74 73 28 6d  |t=1 . wm_nopts(m|
00000c50  65 6e 75 29 0d 05 dc 2d  20 20 20 20 f3 20 77 6d  |enu)...-    . wm|
00000c60  5f 64 61 74 61 24 28 6d  65 6e 75 2c 6f 70 74 29  |_data$(menu,opt)|
00000c70  2c 77 6d 5f 73 75 62 28  6d 65 6e 75 2c 6f 70 74  |,wm_sub(menu,opt|
00000c80  29 0d 05 e6 07 20 20 ed  0d 05 f0 05 ed 0d 05 fa  |)....  .........|
00000c90  05 e1 0d 06 04 04 0d 06  0e 17 dd f2 6d 61 6b 65  |............make|
00000ca0  5f 6d 65 6e 75 28 68 61  6e 64 6c 65 29 0d 06 18  |_menu(handle)...|
00000cb0  4a 64 61 74 61 3d 77 6d  5f 61 64 64 72 28 68 61  |Jdata=wm_addr(ha|
00000cc0  6e 64 6c 65 29 3a 6e 6f  5f 69 74 65 6d 73 3d 77  |ndle):no_items=w|
00000cd0  6d 5f 6e 6f 70 74 73 28  68 61 6e 64 6c 65 29 3a  |m_nopts(handle):|
00000ce0  74 69 74 6c 65 24 3d 77  6d 5f 6e 61 6d 65 24 28  |title$=wm_name$(|
00000cf0  68 61 6e 64 6c 65 29 0d  06 22 10 24 64 61 74 61  |handle)..".$data|
00000d00  3d 74 69 74 6c 65 24 0d  06 2c 40 64 61 74 61 3f  |=title$..,@data?|
00000d10  31 32 3d 37 3a 64 61 74  61 3f 31 33 3d 32 3a 64  |12=7:data?13=2:d|
00000d20  61 74 61 3f 31 34 3d 37  3a 64 61 74 61 3f 31 35  |ata?14=7:data?15|
00000d30  3d 30 3a 64 61 74 61 21  32 30 3d 34 34 3a 64 61  |=0:data!20=44:da|
00000d40  74 61 21 32 34 3d 30 0d  06 36 0f 70 74 72 3d 64  |ta!24=0..6.ptr=d|
00000d50  61 74 61 2b 32 38 0d 06  40 15 6d 61 78 5f 6c 65  |ata+28..@.max_le|
00000d60  6e 3d a9 28 74 69 74 6c  65 24 29 0d 06 4a 17 e3  |n=.(title$)..J..|
00000d70  20 69 74 65 6d 3d 31 20  b8 20 6e 6f 5f 69 74 65  | item=1 . no_ite|
00000d80  6d 73 0d 06 54 21 20 20  69 63 6f 6e 24 3d 77 6d  |ms..T!  icon$=wm|
00000d90  5f 64 61 74 61 24 28 68  61 6e 64 6c 65 2c 69 74  |_data$(handle,it|
00000da0  65 6d 29 0d 06 5e 21 20  20 73 75 62 6d 65 6e 75  |em)..^!  submenu|
00000db0  3d 77 6d 5f 73 75 62 28  68 61 6e 64 6c 65 2c 69  |=wm_sub(handle,i|
00000dc0  74 65 6d 29 0d 06 68 35  20 20 e7 20 69 74 65 6d  |tem)..h5  . item|
00000dd0  3d 6e 6f 5f 69 74 65 6d  73 20 8c 20 6d 65 6e 75  |=no_items . menu|
00000de0  66 6c 61 67 73 3d 26 38  30 20 8b 20 6d 65 6e 75  |flags=&80 . menu|
00000df0  66 6c 61 67 73 3d 26 30  30 0d 06 72 18 20 20 69  |flags=&00..r.  i|
00000e00  63 6f 6e 66 6c 61 67 73  3d 26 37 30 30 30 30 32  |conflags=&700002|
00000e10  31 0d 06 7c 32 20 20 21  70 74 72 3d 6d 65 6e 75  |1..|2  !ptr=menu|
00000e20  66 6c 61 67 73 3a 70 74  72 21 34 3d 73 75 62 6d  |flags:ptr!4=subm|
00000e30  65 6e 75 3a 70 74 72 21  38 3d 69 63 6f 6e 66 6c  |enu:ptr!8=iconfl|
00000e40  61 67 73 0d 06 86 16 20  20 e7 20 a9 28 69 63 6f  |ags....  . .(ico|
00000e50  6e 24 29 3c 3d 31 32 20  8c 0d 06 90 17 20 20 20  |n$)<=12 .....   |
00000e60  20 24 28 70 74 72 2b 31  32 29 3d 69 63 6f 6e 24  | $(ptr+12)=icon$|
00000e70  0d 06 9a 07 20 20 cc 0d  06 a4 16 20 20 20 20 70  |....  .....    p|
00000e80  74 72 21 38 3d 26 37 30  30 30 31 32 31 0d 06 ae  |tr!8=&7000121...|
00000e90  2d 20 20 20 20 61 64 64  72 65 73 73 3d 77 6d 5f  |-    address=wm_|
00000ea0  61 64 64 72 28 68 61 6e  64 6c 65 29 2b 34 30 30  |addr(handle)+400|
00000eb0  2b 28 69 74 65 6d 2a 34  30 29 0d 06 b8 36 20 20  |+(item*40)...6  |
00000ec0  20 20 70 74 72 21 31 32  3d 61 64 64 72 65 73 73  |  ptr!12=address|
00000ed0  3a 70 74 72 21 31 36 3d  76 61 6c 69 64 61 74 65  |:ptr!16=validate|
00000ee0  3a 70 74 72 21 32 30 3d  a9 28 69 63 6f 6e 24 29  |:ptr!20=.(icon$)|
00000ef0  0d 06 c2 16 20 20 20 20  24 61 64 64 72 65 73 73  |....    $address|
00000f00  3d 69 63 6f 6e 24 0d 06  cc 07 20 20 cd 0d 06 d6  |=icon$....  ....|
00000f10  2b 20 20 e7 20 a9 28 69  63 6f 6e 24 29 3e 6d 61  |+  . .(icon$)>ma|
00000f20  78 5f 6c 65 6e 20 8c 20  6d 61 78 5f 6c 65 6e 3d  |x_len . max_len=|
00000f30  a9 28 69 63 6f 6e 24 29  0d 06 e0 0d 20 20 70 74  |.(icon$)....  pt|
00000f40  72 2b 3d 32 34 0d 06 ea  05 ed 0d 06 f4 1b 64 61  |r+=24.........da|
00000f50  74 61 21 31 36 3d 28 6d  61 78 5f 6c 65 6e 2a 31  |ta!16=(max_len*1|
00000f60  36 29 2b 31 36 0d 06 fe  05 e1 0d 07 08 04 0d 07  |6)+16...........|
00000f70  12 18 dd f2 73 68 6f 77  6d 65 6e 75 28 6d 65 6e  |....showmenu(men|
00000f80  75 2c 78 2c 79 29 0d 07  1c 22 c8 99 20 22 57 69  |u,x,y)...".. "Wi|
00000f90  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000fa0  6d 65 6e 75 2c 78 2c 79  0d 07 26 05 e1 0d 07 30  |menu,x,y..&....0|
00000fb0  04 0d 07 3a 14 dd a4 77  68 61 74 5f 73 65 6c 65  |...:...what_sele|
00000fc0  63 74 69 6f 6e 0d 07 44  19 64 61 74 61 3d 77 6d  |ction..D.data=wm|
00000fd0  5f 61 64 64 72 28 6f 73  5f 6d 65 6e 75 29 0d 07  |_addr(os_menu)..|
00000fe0  4e 2c c8 99 22 57 69 6d  70 5f 44 65 63 6f 64 65  |N,.."Wimp_Decode|
00000ff0  4d 65 6e 75 22 2c 2c 64  61 74 61 2c 62 6c 6f 63  |Menu",,data,bloc|
00001000  6b 25 2c 6f 75 74 70 75  74 25 0d 07 58 21 73 65  |k%,output%..X!se|
00001010  6c 65 63 74 24 3d a4 7a  65 72 6f 5f 73 74 72 69  |lect$=.zero_stri|
00001020  6e 67 28 6f 75 74 70 75  74 25 29 0d 07 62 20 6f  |ng(output%)..b o|
00001030  70 74 69 6f 6e 24 3d c3  6f 73 5f 6d 65 6e 75 2b  |ption$=.os_menu+|
00001040  22 2e 22 2b 73 65 6c 65  63 74 24 0d 07 6c 42 e7  |"."+select$..lB.|
00001050  20 6f 70 74 69 6f 6e 24  3d 22 31 2e 4f 70 74 69  | option$="1.Opti|
00001060  6f 6e 73 2e 52 75 6e 20  66 69 6c 65 73 20 66 72  |ons.Run files fr|
00001070  6f 6d 20 4d 65 6e 61 6b  65 72 22 20 8c 20 f2 72  |om Menaker" . .r|
00001080  75 6e 5f 66 69 6c 65 73  5f 66 72 6f 6d 0d 07 76  |un_files_from..v|
00001090  23 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |#.."Wimp_GetPoin|
000010a0  74 65 72 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 25  |terInfo",,block%|
000010b0  0d 07 80 13 62 75 74 74  6f 6e 3d 62 6c 6f 63 6b  |....button=block|
000010c0  25 21 38 0d 07 8a 24 e7  20 62 75 74 74 6f 6e 3d  |%!8...$. button=|
000010d0  31 20 8c 20 f2 73 68 6f  77 6d 65 6e 75 28 64 61  |1 . .showmenu(da|
000010e0  74 61 2c 30 2c 30 29 0d  07 94 0c 3d 6f 70 74 69  |ta,0,0)....=opti|
000010f0  6f 6e 24 0d 07 9e 04 0d  07 a8 1c dd f2 67 72 65  |on$..........gre|
00001100  79 5f 69 74 65 6d 28 68  61 6e 64 6c 65 2c 69 74  |y_item(handle,it|
00001110  65 6d 29 0d 07 b2 1b 62  61 73 65 3d 77 6d 5f 61  |em)....base=wm_a|
00001120  64 64 72 28 68 61 6e 64  6c 65 29 2b 32 38 0d 07  |ddr(handle)+28..|
00001130  bc 1b 62 61 73 65 3d 62  61 73 65 2b 28 28 69 74  |..base=base+((it|
00001140  65 6d 2d 31 29 2a 32 34  29 0d 07 c6 0f 77 6f 72  |em-1)*24)....wor|
00001150  64 3d 62 61 73 65 21 38  0d 07 d0 16 77 6f 72 64  |d=base!8....word|
00001160  3d 77 6f 72 64 20 82 20  28 32 5e 32 32 29 0d 07  |=word . (2^22)..|
00001170  da 0f 62 61 73 65 21 38  3d 77 6f 72 64 0d 07 e4  |..base!8=word...|
00001180  05 e1 0d 07 ee 04 0d 07  f8 1c dd f2 74 69 63 6b  |............tick|
00001190  5f 69 74 65 6d 28 68 61  6e 64 6c 65 2c 69 74 65  |_item(handle,ite|
000011a0  6d 29 0d 08 02 1b 62 61  73 65 3d 77 6d 5f 61 64  |m)....base=wm_ad|
000011b0  64 72 28 68 61 6e 64 6c  65 29 2b 32 38 0d 08 0c  |dr(handle)+28...|
000011c0  1b 62 61 73 65 3d 62 61  73 65 2b 28 28 69 74 65  |.base=base+((ite|
000011d0  6d 2d 31 29 2a 32 34 29  0d 08 16 0e 77 6f 72 64  |m-1)*24)....word|
000011e0  3d 21 62 61 73 65 0d 08  20 15 77 6f 72 64 3d 77  |=!base.. .word=w|
000011f0  6f 72 64 20 82 20 28 32  5e 30 29 0d 08 2a 0e 21  |ord . (2^0)..*.!|
00001200  62 61 73 65 3d 77 6f 72  64 0d 08 34 05 e1 0d 08  |base=word..4....|
00001210  3e 04 0d 08 48 4f f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |>...HO. --------|
00001220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 20 57 69 6e  |------------ Win|
00001230  64 6f 77 20 61 6e 64 20  4d 65 6e 75 20 64 65 66  |dow and Menu def|
00001240  69 6e 69 74 69 6f 6e 20  66 69 6c 65 73 20 2d 2d  |inition files --|
00001250  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001260  2d 0d 08 52 04 0d 08 5c  1b dd f2 6c 6f 61 64 5f  |-..R...\...load_|
00001270  74 65 6d 70 6c 61 74 65  73 28 72 6f 6f 74 24 29  |templates(root$)|
00001280  0d 08 66 33 e7 20 76 65  72 73 69 6f 6e 3e 3d 33  |..f3. version>=3|
00001290  30 30 20 74 24 3d 22 2e  54 65 6d 70 6c 61 74 65  |00 t$=".Template|
000012a0  73 22 20 8b 20 74 24 3d  22 2e 54 65 6d 70 73 52  |s" . t$=".TempsR|
000012b0  4f 32 22 0d 08 70 21 f2  6f 70 65 6e 5f 74 65 6d  |O2"..p!.open_tem|
000012c0  70 6c 61 74 65 5f 66 69  6c 65 28 72 6f 6f 74 24  |plate_file(root$|
000012d0  2b 74 24 29 0d 08 7a 23  f2 72 65 61 64 5f 77 69  |+t$)..z#.read_wi|
000012e0  6e 64 6f 77 73 28 72 6f  6f 74 24 2b 22 2e 57 69  |ndows(root$+".Wi|
000012f0  6e 64 6f 77 73 22 29 0d  08 84 18 f2 63 6c 6f 73  |ndows").....clos|
00001300  65 5f 74 65 6d 70 6c 61  74 65 5f 66 69 6c 65 0d  |e_template_file.|
00001310  08 8e 05 e1 0d 08 98 04  0d 08 a2 1a dd f2 72 65  |..............re|
00001320  61 64 5f 77 69 6e 64 6f  77 73 28 66 6e 61 6d 65  |ad_windows(fname|
00001330  24 29 0d 08 ac 0e 58 3d  8e 20 66 6e 61 6d 65 24  |$)....X=. fname$|
00001340  0d 08 b6 05 f5 0d 08 c0  0b 20 20 41 3d 9a 23 58  |.........  A=.#X|
00001350  0d 08 ca 1b 20 20 e7 20  41 3d 97 28 22 7c 22 29  |....  . A=.("|")|
00001360  20 f2 6e 65 78 74 5f 6c  69 6e 65 0d 08 d4 13 fd  | .next_line.....|
00001370  20 41 3e 3d 34 38 20 80  20 41 3c 3d 35 37 0d 08  | A>=48 . A<=57..|
00001380  de 16 41 24 3d bd 41 3a  41 3d 9a 23 58 3a 41 24  |..A$=.A:A=.#X:A$|
00001390  2b 3d bd 41 0d 08 e8 14  6e 6f 5f 77 69 6e 64 6f  |+=.A....no_windo|
000013a0  77 73 3d bb 28 41 24 29  0d 08 f2 17 f2 69 6e 69  |ws=.(A$).....ini|
000013b0  74 69 61 6c 69 73 65 5f  77 69 6e 64 6f 77 73 0d  |tialise_windows.|
000013c0  08 fc 0a 73 69 7a 65 3d  30 0d 09 06 1b e3 20 77  |...size=0..... w|
000013d0  69 6e 64 6f 77 3d 31 20  b8 20 6e 6f 5f 77 69 6e  |indow=1 . no_win|
000013e0  64 6f 77 73 0d 09 10 12  20 20 42 24 3d a4 67 65  |dows....  B$=.ge|
000013f0  74 5f 6c 69 6e 65 0d 09  1a 12 20 20 f2 77 69 6e  |t_line....  .win|
00001400  64 6f 77 5f 6c 69 6e 65  0d 09 24 1c 20 20 73 69  |dow_line..$.  si|
00001410  7a 65 2b 3d 77 69 5f 73  69 7a 65 25 28 77 69 6e  |ze+=wi_size%(win|
00001420  64 6f 77 29 0d 09 2e 05  ed 0d 09 38 07 d9 23 58  |dow).......8..#X|
00001430  0d 09 42 04 0d 09 4c 1c  66 6f 6e 74 5f 73 69 7a  |..B...L.font_siz|
00001440  65 3d 6e 6f 5f 77 69 6e  64 6f 77 73 2a 32 35 36  |e=no_windows*256|
00001450  0d 09 56 13 de 20 77 69  6e 64 6f 77 73 25 20 73  |..V.. windows% s|
00001460  69 7a 65 0d 09 60 19 de  20 66 6f 6e 74 64 61 74  |ize..`.. fontdat|
00001470  61 25 20 66 6f 6e 74 5f  73 69 7a 65 0d 09 6a 14  |a% font_size..j.|
00001480  6f 66 66 73 65 74 25 3d  77 69 6e 64 6f 77 73 25  |offset%=windows%|
00001490  0d 09 74 10 66 74 3d 66  6f 6e 74 64 61 74 61 25  |..t.ft=fontdata%|
000014a0  0d 09 7e 1b e3 20 77 69  6e 64 6f 77 3d 31 20 b8  |..~.. window=1 .|
000014b0  20 6e 6f 5f 77 69 6e 64  6f 77 73 0d 09 88 1e 20  | no_windows.... |
000014c0  20 77 69 5f 64 61 74 61  25 28 77 69 6e 64 6f 77  | wi_data%(window|
000014d0  29 3d 6f 66 66 73 65 74  25 0d 09 92 5e 20 20 77  |)=offset%...^  w|
000014e0  69 5f 68 61 6e 64 6c 65  25 28 77 69 6e 64 6f 77  |i_handle%(window|
000014f0  29 3d a4 6c 6f 61 64 5f  74 65 6d 70 6c 61 74 65  |)=.load_template|
00001500  28 77 69 5f 6e 61 6d 65  24 28 77 69 6e 64 6f 77  |(wi_name$(window|
00001510  29 2c 77 69 5f 64 61 74  61 25 28 77 69 6e 64 6f  |),wi_data%(windo|
00001520  77 29 2c 77 69 5f 73 69  7a 65 25 28 77 69 6e 64  |w),wi_size%(wind|
00001530  6f 77 29 2c 66 74 29 0d  09 9c 1f 20 20 6f 66 66  |ow),ft)....  off|
00001540  73 65 74 25 2b 3d 77 69  5f 73 69 7a 65 25 28 77  |set%+=wi_size%(w|
00001550  69 6e 64 6f 77 29 0d 09  a6 0d 20 20 66 74 2b 3d  |indow)....  ft+=|
00001560  32 35 36 0d 09 b0 05 ed  0d 09 ba 05 e1 0d 09 c4  |256.............|
00001570  04 0d 09 ce 18 dd f2 69  6e 69 74 69 61 6c 69 73  |.......initialis|
00001580  65 5f 77 69 6e 64 6f 77  73 0d 09 d8 1a de 20 77  |e_windows..... w|
00001590  69 5f 6e 61 6d 65 24 28  6e 6f 5f 77 69 6e 64 6f  |i_name$(no_windo|
000015a0  77 73 29 0d 09 e2 1a de  20 77 69 5f 73 69 7a 65  |ws)..... wi_size|
000015b0  25 28 6e 6f 5f 77 69 6e  64 6f 77 73 29 0d 09 ec  |%(no_windows)...|
000015c0  1a de 20 77 69 5f 64 61  74 61 25 28 6e 6f 5f 77  |.. wi_data%(no_w|
000015d0  69 6e 64 6f 77 73 29 0d  09 f6 1c de 20 77 69 5f  |indows)..... wi_|
000015e0  68 61 6e 64 6c 65 25 28  6e 6f 5f 77 69 6e 64 6f  |handle%(no_windo|
000015f0  77 73 29 0d 0a 00 05 e1  0d 0a 0a 04 0d 0a 14 16  |ws).............|
00001600  dd f2 69 6e 69 74 69 61  6c 69 73 65 5f 6d 65 6e  |..initialise_men|
00001610  75 73 0d 0a 1e 16 de 20  6f 73 5f 6e 6f 25 28 6e  |us..... os_no%(n|
00001620  6f 5f 6d 65 6e 75 73 29  0d 0a 28 19 de 20 6f 73  |o_menus)..(.. os|
00001630  5f 74 69 74 6c 65 24 28  6e 6f 5f 6d 65 6e 75 73  |_title$(no_menus|
00001640  29 0d 0a 32 18 de 20 6f  73 5f 64 61 74 61 25 28  |)..2.. os_data%(|
00001650  6e 6f 5f 6d 65 6e 75 73  29 0d 0a 3c 18 de 20 6f  |no_menus)..<.. o|
00001660  73 5f 73 69 7a 65 25 28  6e 6f 5f 6d 65 6e 75 73  |s_size%(no_menus|
00001670  29 0d 0a 46 1d de 20 6f  73 5f 6f 70 74 69 6f 6e  |)..F.. os_option|
00001680  24 28 6e 6f 5f 6d 65 6e  75 73 2c 32 30 29 0d 0a  |$(no_menus,20)..|
00001690  50 1e de 20 6f 73 5f 73  75 62 6d 65 6e 75 25 28  |P.. os_submenu%(|
000016a0  6e 6f 5f 6d 65 6e 75 73  2c 32 30 29 0d 0a 5a 05  |no_menus,20)..Z.|
000016b0  e1 0d 0a 64 04 0d 0a 6e  0f dd f2 6e 65 78 74 5f  |...d...n...next_|
000016c0  6c 69 6e 65 0d 0a 78 12  f5 3a 41 3d 9a 23 58 3a  |line..x..:A=.#X:|
000016d0  fd 20 41 3d 31 30 0d 0a  82 05 e1 0d 0a 8c 04 0d  |. A=10..........|
000016e0  0a 96 0e dd a4 67 65 74  5f 6c 69 6e 65 0d 0a a0  |.....get_line...|
000016f0  05 f5 0d 0a aa 0b 20 20  41 3d 9a 23 58 0d 0a b4  |......  A=.#X...|
00001700  13 fd 20 41 3c 3e 31 30  20 80 20 41 3c 3e 33 32  |.. A<>10 . A<>32|
00001710  0d 0a be 09 41 24 3d bd  41 0d 0a c8 05 f5 0d 0a  |....A$=.A.......|
00001720  d2 0b 20 20 41 3d 9a 23  58 0d 0a dc 0c 20 20 41  |..  A=.#X....  A|
00001730  24 2b 3d bd 41 0d 0a e6  16 fd 20 41 3d 31 30 20  |$+=.A..... A=10 |
00001740  84 20 a9 28 41 24 29 3e  32 35 30 0d 0a f0 13 41  |. .(A$)>250....A|
00001750  24 3d c0 41 24 2c a9 28  41 24 29 2d 31 29 0d 0a  |$=.A$,.(A$)-1)..|
00001760  fa 07 3d 41 24 0d 0b 04  04 0d 0b 0e 11 dd f2 77  |..=A$..........w|
00001770  69 6e 64 6f 77 5f 6c 69  6e 65 0d 0b 18 15 6e 24  |indow_line....n$|
00001780  3d c0 42 24 2c 32 29 3a  6e 3d bb 28 6e 24 29 0d  |=.B$,2):n=.(n$).|
00001790  0b 22 13 42 24 3d c2 42  24 2c a9 28 42 24 29 2d  |.".B$=.B$,.(B$)-|
000017a0  33 29 0d 0b 2c 0e 70 3d  a7 42 24 2c 22 2c 22 29  |3)..,.p=.B$,",")|
000017b0  0d 0b 36 12 6e 61 6d 65  24 3d c0 42 24 2c 70 2d  |..6.name$=.B$,p-|
000017c0  31 29 0d 0b 40 13 42 24  3d c2 42 24 2c a9 28 42  |1)..@.B$=.B$,.(B|
000017d0  24 29 2d 70 29 0d 0b 4a  0c 73 69 3d bb 28 42 24  |$)-p)..J.si=.(B$|
000017e0  29 0d 0b 54 15 77 69 5f  6e 61 6d 65 24 28 6e 29  |)..T.wi_name$(n)|
000017f0  3d 6e 61 6d 65 24 0d 0b  5e 12 77 69 5f 73 69 7a  |=name$..^.wi_siz|
00001800  65 25 28 6e 29 3d 73 69  0d 0b 68 05 e1 0d 0b 72  |e%(n)=si..h....r|
00001810  04 0d 0b 7c 4d f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...|M. ---------|
00001820  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001830  2d 2d 2d 2d 20 53 74 72  69 6e 67 20 52 6f 75 74  |---- String Rout|
00001840  69 6e 65 73 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ines -----------|
00001850  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 0b  |--------------..|
00001860  86 04 0d 0b 90 17 dd a4  7a 65 72 6f 5f 73 74 72  |........zero_str|
00001870  69 6e 67 28 64 61 74 61  29 0d 0b 9a 08 ea 20 73  |ing(data)..... s|
00001880  24 0d 0b a4 1b c8 95 20  3f 64 61 74 61 3c 3e 30  |$...... ?data<>0|
00001890  20 80 20 3f 64 61 74 61  3c 3e 31 33 0d 0b ae 12  | . ?data<>13....|
000018a0  20 20 73 24 2b 3d bd 28  3f 64 61 74 61 29 0d 0b  |  s$+=.(?data)..|
000018b0  b8 0d 20 20 64 61 74 61  2b 3d 31 0d 0b c2 05 ce  |..  data+=1.....|
000018c0  0d 0b cc 07 3d 73 24 0d  0b d6 04 0d 0b e0 12 dd  |....=s$.........|
000018d0  a4 73 74 72 69 6e 67 28  70 74 72 25 29 0d 0b ea  |.string(ptr%)...|
000018e0  08 ea 20 61 24 0d 0b f4  0f c8 95 20 3f 70 74 72  |.. a$...... ?ptr|
000018f0  25 3c 3e 30 0d 0b fe 12  20 20 61 24 2b 3d bd 28  |%<>0....  a$+=.(|
00001900  3f 70 74 72 25 29 0d 0c  08 0d 20 20 70 74 72 25  |?ptr%)....  ptr%|
00001910  2b 3d 31 0d 0c 12 05 ce  0d 0c 1c 07 3d 61 24 0d  |+=1.........=a$.|
00001920  0c 26 04 0d 0c 30 11 dd  a4 67 65 74 6c 65 61 66  |.&...0...getleaf|
00001930  28 61 24 29 0d 0c 3a 0f  c8 95 20 a7 61 24 2c 22  |(a$)..:... .a$,"|
00001940  2e 22 29 0d 0c 44 18 20  20 61 24 3d c1 61 24 2c  |.")..D.  a$=.a$,|
00001950  a7 61 24 2c 22 2e 22 29  2b 31 29 0d 0c 4e 05 ce  |.a$,".")+1)..N..|
00001960  0d 0c 58 0a 3d 61 24 2b  bd 30 0d 0c 62 04 0d 0c  |..X.=a$+.0..b...|
00001970  6c 14 dd a4 67 65 74 5f  6e 61 6d 65 28 64 61 74  |l...get_name(dat|
00001980  61 29 0d 0c 76 09 61 24  3d 22 22 0d 0c 80 14 e3  |a)..v.a$="".....|
00001990  20 6c 3d 30 20 b8 20 6c  65 6e 67 74 68 2d 31 0d  | l=0 . length-1.|
000019a0  0c 8a 11 61 24 2b 3d bd  28 64 61 74 61 3f 6c 29  |...a$+=.(data?l)|
000019b0  0d 0c 94 05 ed 0d 0c 9e  07 3d 61 24 0d 0c a8 04  |.........=a$....|
000019c0  0d 0c b2 0f dd a4 61 6c  70 68 61 28 61 24 29 0d  |......alpha(a$).|
000019d0  0c bc 09 62 24 3d 22 22  0d 0c c6 11 e3 20 6c 3d  |...b$=""..... l=|
000019e0  31 20 b8 20 a9 28 61 24  29 0d 0c d0 13 20 20 61  |1 . .(a$)....  a|
000019f0  3d 97 28 c1 61 24 2c 6c  2c 31 29 29 0d 0c da 1d  |=.(.a$,l,1))....|
00001a00  20 20 e7 20 61 3e 3d 36  35 20 80 20 61 3c 3d 39  |  . a>=65 . a<=9|
00001a10  30 20 8c 20 61 2b 3d 33  32 0d 0c e4 0c 20 20 62  |0 . a+=32....  b|
00001a20  24 2b 3d bd 61 0d 0c ee  05 ed 0d 0c f8 07 3d 62  |$+=.a.........=b|
00001a30  24 0d 0d 02 04 0d 0d 0c  0c dd a4 72 7a 28 61 24  |$..........rz(a$|
00001a40  29 0d 0d 16 16 e7 20 c2  61 24 2c 31 29 3c 3e bd  |)..... .a$,1)<>.|
00001a50  30 20 8c 20 3d 61 24 0d  0d 20 0b 61 3d a9 28 61  |0 . =a$.. .a=.(a|
00001a60  24 29 0d 0d 2a 0d 3d c0  61 24 2c 61 2d 31 29 0d  |$)..*.=.a$,a-1).|
00001a70  0d 34 04 0d 0d 3e 4b f4  20 2d 2d 2d 2d 2d 2d 2d  |.4...>K. -------|
00001a80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001a90  2d 20 53 61 76 69 6e 67  2f 44 72 61 67 67 69 6e  |- Saving/Draggin|
00001aa0  67 20 52 6f 75 74 69 6e  65 73 20 2d 2d 2d 2d 2d  |g Routines -----|
00001ab0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 0d  |--------------..|
00001ac0  48 04 0d 0d 52 15 dd f2  73 74 61 72 74 5f 64 72  |H...R...start_dr|
00001ad0  61 67 28 77 2c 69 29 0d  0d 5c 0d 21 62 6c 6f 63  |ag(w,i)..\.!bloc|
00001ae0  6b 25 3d 77 0d 0d 66 23  c8 99 22 57 69 6d 70 5f  |k%=w..f#.."Wimp_|
00001af0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001b00  2c 62 6c 6f 63 6b 25 0d  0d 70 19 6f 78 3d 62 6c  |,block%..p.ox=bl|
00001b10  6f 63 6b 25 21 34 2d 62  6c 6f 63 6b 25 21 32 30  |ock%!4-block%!20|
00001b20  0d 0d 7a 1a 6f 79 3d 62  6c 6f 63 6b 25 21 31 36  |..z.oy=block%!16|
00001b30  2d 62 6c 6f 63 6b 25 21  32 34 0d 0d 84 0e 62 6c  |-block%!24....bl|
00001b40  6f 63 6b 25 21 34 3d 69  0d 0d 8e 21 c8 99 22 57  |ock%!4=i...!.."W|
00001b50  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00001b60  22 2c 2c 62 6c 6f 63 6b  25 0d 0d 98 17 21 62 6c  |",,block%....!bl|
00001b70  6f 63 6b 25 3d 73 61 76  65 5f 68 61 6e 64 6c 65  |ock%=save_handle|
00001b80  0d 0d a2 0e 62 6c 6f 63  6b 25 21 34 3d 35 0d 0d  |....block%!4=5..|
00001b90  ac 18 62 6c 6f 63 6b 25  21 38 3d 6f 78 2b 62 6c  |..block%!8=ox+bl|
00001ba0  6f 63 6b 25 21 38 0d 0d  b6 1a 62 6c 6f 63 6b 25  |ock%!8....block%|
00001bb0  21 31 32 3d 6f 79 2b 62  6c 6f 63 6b 25 21 31 32  |!12=oy+block%!12|
00001bc0  0d 0d c0 1a 62 6c 6f 63  6b 25 21 31 36 3d 6f 78  |....block%!16=ox|
00001bd0  2b 62 6c 6f 63 6b 25 21  31 36 0d 0d ca 1a 62 6c  |+block%!16....bl|
00001be0  6f 63 6b 25 21 32 30 3d  6f 79 2b 62 6c 6f 63 6b  |ock%!20=oy+block|
00001bf0  25 21 32 30 0d 0d d4 0f  62 6c 6f 63 6b 25 21 32  |%!20....block%!2|
00001c00  34 3d 30 0d 0d de 0f 62  6c 6f 63 6b 25 21 32 38  |4=0....block%!28|
00001c10  3d 30 0d 0d e8 17 62 6c  6f 63 6b 25 21 33 32 3d  |=0....block%!32=|
00001c20  26 37 46 46 46 46 46 46  46 0d 0d f2 17 62 6c 6f  |&7FFFFFFF....blo|
00001c30  63 6b 25 21 33 36 3d 26  37 46 46 46 46 46 46 46  |ck%!36=&7FFFFFFF|
00001c40  0d 0d fc 1c c8 99 22 57  69 6d 70 5f 44 72 61 67  |......"Wimp_Drag|
00001c50  42 6f 78 22 2c 2c 62 6c  6f 63 6b 25 0d 0e 06 05  |Box",,block%....|
00001c60  e1 0d 0e 10 04 0d 0e 1a  4c f4 20 2d 2d 2d 2d 2d  |........L. -----|
00001c70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001c80  2d 2d 2d 2d 2d 2d 20 4d  6f 64 65 2f 56 44 55 20  |------ Mode/VDU |
00001c90  52 6f 75 74 69 6e 65 73  20 2d 2d 2d 2d 2d 2d 2d  |Routines -------|
00001ca0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001cb0  2d 0d 0e 24 04 0d 0e 2e  0e dd f2 72 65 61 64 5f  |-..$.......read_|
00001cc0  76 64 75 0d 0e 38 2a c8  99 22 4f 53 5f 52 65 61  |vdu..8*.."OS_Rea|
00001cd0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00001ce0  31 2c 31 31 20 b8 20 2c  2c 78 70 69 78 0d 0e 42  |1,11 . ,,xpix..B|
00001cf0  29 c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |).."OS_ReadModeV|
00001d00  61 72 69 61 62 6c 65 22  2c 2d 31 2c 34 20 b8 20  |ariable",-1,4 . |
00001d10  2c 2c 78 62 69 74 0d 0e  4c 2a c8 99 22 4f 53 5f  |,,xbit..L*.."OS_|
00001d20  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00001d30  22 2c 2d 31 2c 31 32 20  b8 20 2c 2c 79 70 69 78  |",-1,12 . ,,ypix|
00001d40  0d 0e 56 29 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |..V).."OS_ReadMo|
00001d50  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 35  |deVariable",-1,5|
00001d60  20 b8 20 2c 2c 79 62 69  74 0d 0e 60 14 78 72 3d  | . ,,ybit..`.xr=|
00001d70  78 70 69 78 2a 28 32 5e  78 62 69 74 29 0d 0e 6a  |xpix*(2^xbit)..j|
00001d80  14 79 72 3d 79 70 69 78  2a 28 32 5e 79 62 69 74  |.yr=ypix*(2^ybit|
00001d90  29 0d 0e 74 05 e1 0d ff                           |)..t....|
00001d98