� > <Clock$Dir>.!RunImage


� q% 2500
($q%="TASK"
27ș "Wimp_Initialise",200,!q%,"Small Clock" � ,task%
<"ș "Wimp_ClaimInterface",task%
Fș "Hourglass_On"
P:
Z%� text$(50),setting(50),flags(50)
d%� submenu(50),ref(50),menupos(20)
n� menu% 512
x� indirect% &2000
�� msgblk% 256
�%iptr%=indirect%:iend%=iptr%+&2000
�� �merd
�oldtime$=�$
�:
�3ș "Wimp_OpenTemplate",,"<Clock$Dir>.Templates"
�Bș "Wimp_LoadTemplate",,q%,indirect%,indirect%+199,-1,"main",0
�&ș "Wimp_CreateWindow",,q% � main%
�Fș "Wimp_LoadTemplate",,q%,indirect%+200,indirect%+399,-1,"info",0
�&ș "Wimp_CreateWindow",,q% � info%
�ș "Wimp_CloseTemplate"
�
��openwindow(main%,�,-1)

ș "Hourglass_Off"

�

  �action(�poll(0))

"� �

,:

6��closedown

@$q%="TASK"

J"ș "Wimp_CloseDown",task%,q%!0

T�

^�

h:

r<��clickwindow(mousex%,mousey%,button%,handle%,icon%,ob%)

|Ȏ handle% �

�(  � main% :�clickmain(button%,icon%)

��

��

�:

���menu_sicon

�no=0:ȗ x,y,b

�=�define_menu_text("Info",no,0,0,0,0,&10021,info%,0):no+=1

�:�define_menu_text("Quit",no,0,0,0,0,&10021,0,-1):no+=1

�$�create_menu("Clock",no,100,x,y)

�menu_nr%=0          

�claimmenu$="sicon"

��

�:
��clickmain(button%,icon%)

Ȏ � �
!� (button% � 2)=2 � icon%<>-1
&  �menu_sicon
0�
:�
D:
N��action(evnt%)
XȎ evnt% �
b  � 0:�do_clock
l  � 1:�redrawwindow(q%!0)
v  � 2:�openwindow(q%!0,�,0)
�  � 3:�closewindow(q%!0)
�7  � 6:�clickwindow(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
�3  � 9:� claimmenu$<>"" � �whichmenu(claimmenu$)
�  � 17,18:�receive(q%)
��
��
�:
���receive(q%)
�Ȏ q%!16 �
�� 0 :�closedown
��
��
�:

��merd
� "Error "+�$+" : "+�(�):�
�
 
*&��openwindow(handle%,full%,front%)
4q%!0=handle%
>-� � full% � ș "Wimp_GetWindowState",0,q%
H� front% � q%!28=-1
Rș "Wimp_OpenWindow",0,q%
\�
f
pݤpoll(mask%)
z ș "Wimp_Poll",mask%,q% � a%
�=a%
�
�2��define_menu_text(text$,n,w,t,d,s,flags,sm,l)
�text$(n)=text$
�setting(n)=0
�8� w � setting(n)=setting(n) � &04:flags=flags � &100
�%� t � setting(n)=setting(n) � &01
�%� d � setting(n)=setting(n) � &02
�%� l � setting(n)=setting(n) � &80
�� s � flags=flags � &400000
�flags(n)=flags
�submenu(n)=sm
��

&��create_menu(title$,n,width%,x,y)

mb%=menu%
$menus=0:q=0
.�
8!  menupos(menus)=mb%:menus+=1
B  $mb%=title$
L  mb%?12=7
V  mb%?13=2
`  mb%?14=7
j  mb%?15=0
t  mb%!16=width%
~'  mb%!20=40 :� height of menu items
�A  mb%!24=0  :� vertical gap between items (also top & bottom)
�  itemptr=mb%+28
�  �
�    itemptr!0=setting(q)
�    ref(q)=itemptr+4
�*    itemptr!8=flags(q) � 0<<28 � 7<<24
�    � (flags(q) � &100)=0 �
�       $(itemptr+12)=text$(q)
�	    �
�      pos=�text$(q),"(")
�(      itemptr!12=�(�text$(q),pos-1))
�      itemptr!16=-1
2      itemptr!20=�(�text$(q),�(text$(q))-pos))

	    �
    itemptr+=24:q+=1
  � (setting(q-1) � &80)>0
(  mb%=itemptr
2#  � q<>n � title$=text$(q):q+=1
<	� q=n
F
P� q=0 � n-1
Z)  � submenu(q)>0 � submenu(q)<menus �
d#    !ref(q)=menupos(submenu(q))
n  �
xH    !ref(q)=submenu(q):� was -1 i.e. submenu disallowed! This change
�>                      :� allows a window handle to be used
�  �
�� q
�#ș "Wimp_CreateMenu",,menu%,x,y
��
�
���opentemplatefile(file$)
�!ș "Wimp_OpenTemplate",,file$
��
�
���do_clock
�thetime$=�$
�C� thetime$<>oldtime$ � �icon_putdata(q%,main%,0,�thetime$,8),1)
oldtime$=thetime$
�
:
"��redrawwindow(handle%)
,� void%
6q%!0=handle%
@'ș "Wimp_RedrawWindow",0,q% � more%
J�lwaorigin(q%+4,x0%,y0%)
Tȕ more%
^  �newvals
h  Ȏ handle% �
r  �
|   ș "Wimp_BorderWindow",,q%
�)  ș "Wimp_GetRectangle",0,q% � more%
��
��
�
���closewindow(handle%)
�� �oktoclosew(handle%) �
�  q%!0=handle%
�   ș "Wimp_CloseWindow",0,q%
��
��
�
���whichmenu(menu$)
�� void%
Ȏ menu$ �
(  � "sicon" :void%=�menuselect_sicon
�
&�
0
:
��newvals
Dgtx=q%!36:gty=q%!40
Nwbx=q%!4:wby=q%!8
Xwtx=q%!12:wty=q%!16
bxsc=q%!20:ysc=q%!24
l!hp=wtx-wbx:vp=wty-wby:ebx=xsc
v!etx=xsc+hp:ety=ysc:eby=ysc-vp
��
�
�ݤoktoclosew(handle%)
�� shutting%
�shutting%=�
�=shutting%
�
�ݤmenuselect_sicon
�� level0
�level0=q%!0
�Ȏ level0 �
�"  � 0 :�openwindow(info%,�,-1)
�  � 1 :�closedown
�
=0

 ��lwaorigin(b,� x%,� y%)
*x%=b!0-b!16:y%=b!12-b!20
4�
>
H&��icon_putdata(b,wh%,ih%,text$,rd)
Rb!0=wh%:b!4=ih%
\ș "Wimp_GetIconState",,b
fș "Wimp_DeleteIcon",,b
pb!4=wh%:$(b!28)=text$:b+=4
zș "Wimp_CreateIcon",,b
�6� rd � ș "Wimp_ForceRedraw",b!0,b!4,b!8,b!12,b!16
�b-=4
��
�

00000000  0d 00 0a 1d f4 20 3e 20  3c 43 6c 6f 63 6b 24 44  |..... > <Clock$D|
00000010  69 72 3e 2e 21 52 75 6e  49 6d 61 67 65 0d 00 14  |ir>.!RunImage...|
00000020  04 0d 00 1e 0d de 20 71  25 20 32 35 30 30 0d 00  |...... q% 2500..|
00000030  28 0e 24 71 25 3d 22 54  41 53 4b 22 0d 00 32 37  |(.$q%="TASK"..27|
00000040  c8 99 20 22 57 69 6d 70  5f 49 6e 69 74 69 61 6c  |.. "Wimp_Initial|
00000050  69 73 65 22 2c 32 30 30  2c 21 71 25 2c 22 53 6d  |ise",200,!q%,"Sm|
00000060  61 6c 6c 20 43 6c 6f 63  6b 22 20 b8 20 2c 74 61  |all Clock" . ,ta|
00000070  73 6b 25 0d 00 3c 22 c8  99 20 22 57 69 6d 70 5f  |sk%..<".. "Wimp_|
00000080  43 6c 61 69 6d 49 6e 74  65 72 66 61 63 65 22 2c  |ClaimInterface",|
00000090  74 61 73 6b 25 0d 00 46  15 c8 99 20 22 48 6f 75  |task%..F... "Hou|
000000a0  72 67 6c 61 73 73 5f 4f  6e 22 0d 00 50 05 3a 0d  |rglass_On"..P.:.|
000000b0  00 5a 25 de 20 74 65 78  74 24 28 35 30 29 2c 73  |.Z%. text$(50),s|
000000c0  65 74 74 69 6e 67 28 35  30 29 2c 66 6c 61 67 73  |etting(50),flags|
000000d0  28 35 30 29 0d 00 64 25  de 20 73 75 62 6d 65 6e  |(50)..d%. submen|
000000e0  75 28 35 30 29 2c 72 65  66 28 35 30 29 2c 6d 65  |u(50),ref(50),me|
000000f0  6e 75 70 6f 73 28 32 30  29 0d 00 6e 0f de 20 6d  |nupos(20)..n.. m|
00000100  65 6e 75 25 20 35 31 32  0d 00 78 15 de 20 69 6e  |enu% 512..x.. in|
00000110  64 69 72 65 63 74 25 20  26 32 30 30 30 0d 00 82  |direct% &2000...|
00000120  11 de 20 6d 73 67 62 6c  6b 25 20 32 35 36 0d 00  |.. msgblk% 256..|
00000130  8c 25 69 70 74 72 25 3d  69 6e 64 69 72 65 63 74  |.%iptr%=indirect|
00000140  25 3a 69 65 6e 64 25 3d  69 70 74 72 25 2b 26 32  |%:iend%=iptr%+&2|
00000150  30 30 30 0d 00 96 0c ee  85 20 f2 6d 65 72 64 0d  |000...... .merd.|
00000160  00 a0 0f 6f 6c 64 74 69  6d 65 24 3d 91 24 0d 00  |...oldtime$=.$..|
00000170  aa 05 3a 0d 00 b4 33 c8  99 20 22 57 69 6d 70 5f  |..:...3.. "Wimp_|
00000180  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 22  |OpenTemplate",,"|
00000190  3c 43 6c 6f 63 6b 24 44  69 72 3e 2e 54 65 6d 70  |<Clock$Dir>.Temp|
000001a0  6c 61 74 65 73 22 0d 00  be 42 c8 99 20 22 57 69  |lates"...B.. "Wi|
000001b0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000001c0  2c 2c 71 25 2c 69 6e 64  69 72 65 63 74 25 2c 69  |,,q%,indirect%,i|
000001d0  6e 64 69 72 65 63 74 25  2b 31 39 39 2c 2d 31 2c  |ndirect%+199,-1,|
000001e0  22 6d 61 69 6e 22 2c 30  0d 00 c8 26 c8 99 20 22  |"main",0...&.. "|
000001f0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000200  77 22 2c 2c 71 25 20 b8  20 6d 61 69 6e 25 0d 00  |w",,q% . main%..|
00000210  d2 46 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.F.. "Wimp_LoadT|
00000220  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 69 6e 64  |emplate",,q%,ind|
00000230  69 72 65 63 74 25 2b 32  30 30 2c 69 6e 64 69 72  |irect%+200,indir|
00000240  65 63 74 25 2b 33 39 39  2c 2d 31 2c 22 69 6e 66  |ect%+399,-1,"inf|
00000250  6f 22 2c 30 0d 00 dc 26  c8 99 20 22 57 69 6d 70  |o",0...&.. "Wimp|
00000260  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000270  71 25 20 b8 20 69 6e 66  6f 25 0d 00 e6 1b c8 99  |q% . info%......|
00000280  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
00000290  6c 61 74 65 22 0d 00 f0  04 0d 00 fa 1b f2 6f 70  |late".........op|
000002a0  65 6e 77 69 6e 64 6f 77  28 6d 61 69 6e 25 2c a3  |enwindow(main%,.|
000002b0  2c 2d 31 29 0d 01 04 16  c8 99 20 22 48 6f 75 72  |,-1)...... "Hour|
000002c0  67 6c 61 73 73 5f 4f 66  66 22 0d 01 0e 05 f5 0d  |glass_Off"......|
000002d0  01 18 17 20 20 f2 61 63  74 69 6f 6e 28 a4 70 6f  |...  .action(.po|
000002e0  6c 6c 28 30 29 29 0d 01  22 07 fd 20 a3 0d 01 2c  |ll(0))..".. ...,|
000002f0  05 3a 0d 01 36 0f dd f2  63 6c 6f 73 65 64 6f 77  |.:..6...closedow|
00000300  6e 0d 01 40 0e 24 71 25  3d 22 54 41 53 4b 22 0d  |n..@.$q%="TASK".|
00000310  01 4a 22 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.J".. "Wimp_Clos|
00000320  65 44 6f 77 6e 22 2c 74  61 73 6b 25 2c 71 25 21  |eDown",task%,q%!|
00000330  30 0d 01 54 05 e0 0d 01  5e 05 e1 0d 01 68 05 3a  |0..T....^....h.:|
00000340  0d 01 72 3c dd f2 63 6c  69 63 6b 77 69 6e 64 6f  |..r<..clickwindo|
00000350  77 28 6d 6f 75 73 65 78  25 2c 6d 6f 75 73 65 79  |w(mousex%,mousey|
00000360  25 2c 62 75 74 74 6f 6e  25 2c 68 61 6e 64 6c 65  |%,button%,handle|
00000370  25 2c 69 63 6f 6e 25 2c  6f 62 25 29 0d 01 7c 10  |%,icon%,ob%)..|.|
00000380  c8 8e 20 68 61 6e 64 6c  65 25 20 ca 0d 01 86 28  |.. handle% ....(|
00000390  20 20 c9 20 6d 61 69 6e  25 20 3a f2 63 6c 69 63  |  . main% :.clic|
000003a0  6b 6d 61 69 6e 28 62 75  74 74 6f 6e 25 2c 69 63  |kmain(button%,ic|
000003b0  6f 6e 25 29 0d 01 90 05  cb 0d 01 9a 05 e1 0d 01  |on%)............|
000003c0  a4 05 3a 0d 01 ae 10 dd  f2 6d 65 6e 75 5f 73 69  |..:......menu_si|
000003d0  63 6f 6e 0d 01 b8 11 6e  6f 3d 30 3a c8 97 20 78  |con....no=0:.. x|
000003e0  2c 79 2c 62 0d 01 c2 3d  f2 64 65 66 69 6e 65 5f  |,y,b...=.define_|
000003f0  6d 65 6e 75 5f 74 65 78  74 28 22 49 6e 66 6f 22  |menu_text("Info"|
00000400  2c 6e 6f 2c 30 2c 30 2c  30 2c 30 2c 26 31 30 30  |,no,0,0,0,0,&100|
00000410  32 31 2c 69 6e 66 6f 25  2c 30 29 3a 6e 6f 2b 3d  |21,info%,0):no+=|
00000420  31 0d 01 cc 3a f2 64 65  66 69 6e 65 5f 6d 65 6e  |1...:.define_men|
00000430  75 5f 74 65 78 74 28 22  51 75 69 74 22 2c 6e 6f  |u_text("Quit",no|
00000440  2c 30 2c 30 2c 30 2c 30  2c 26 31 30 30 32 31 2c  |,0,0,0,0,&10021,|
00000450  30 2c 2d 31 29 3a 6e 6f  2b 3d 31 0d 01 d6 24 f2  |0,-1):no+=1...$.|
00000460  63 72 65 61 74 65 5f 6d  65 6e 75 28 22 43 6c 6f  |create_menu("Clo|
00000470  63 6b 22 2c 6e 6f 2c 31  30 30 2c 78 2c 79 29 0d  |ck",no,100,x,y).|
00000480  01 e0 18 6d 65 6e 75 5f  6e 72 25 3d 30 20 20 20  |...menu_nr%=0   |
00000490  20 20 20 20 20 20 20 0d  01 ea 16 63 6c 61 69 6d  |       ....claim|
000004a0  6d 65 6e 75 24 3d 22 73  69 63 6f 6e 22 0d 01 f4  |menu$="sicon"...|
000004b0  05 e1 0d 01 fe 05 3a 0d  02 08 1e dd f2 63 6c 69  |......:......cli|
000004c0  63 6b 6d 61 69 6e 28 62  75 74 74 6f 6e 25 2c 69  |ckmain(button%,i|
000004d0  63 6f 6e 25 29 0d 02 12  0a c8 8e 20 b9 20 ca 0d  |con%)...... . ..|
000004e0  02 1c 21 c9 20 28 62 75  74 74 6f 6e 25 20 80 20  |..!. (button% . |
000004f0  32 29 3d 32 20 80 20 69  63 6f 6e 25 3c 3e 2d 31  |2)=2 . icon%<>-1|
00000500  0d 02 26 11 20 20 f2 6d  65 6e 75 5f 73 69 63 6f  |..&.  .menu_sico|
00000510  6e 0d 02 30 05 cb 0d 02  3a 05 e1 0d 02 44 05 3a  |n..0....:....D.:|
00000520  0d 02 4e 13 dd f2 61 63  74 69 6f 6e 28 65 76 6e  |..N...action(evn|
00000530  74 25 29 0d 02 58 0e c8  8e 20 65 76 6e 74 25 20  |t%)..X... evnt% |
00000540  ca 0d 02 62 13 20 20 c9  20 30 3a f2 64 6f 5f 63  |...b.  . 0:.do_c|
00000550  6c 6f 63 6b 0d 02 6c 1d  20 20 c9 20 31 3a f2 72  |lock..l.  . 1:.r|
00000560  65 64 72 61 77 77 69 6e  64 6f 77 28 71 25 21 30  |edrawwindow(q%!0|
00000570  29 0d 02 76 1f 20 20 c9  20 32 3a f2 6f 70 65 6e  |)..v.  . 2:.open|
00000580  77 69 6e 64 6f 77 28 71  25 21 30 2c b9 2c 30 29  |window(q%!0,.,0)|
00000590  0d 02 80 1c 20 20 c9 20  33 3a f2 63 6c 6f 73 65  |....  . 3:.close|
000005a0  77 69 6e 64 6f 77 28 71  25 21 30 29 0d 02 8a 37  |window(q%!0)...7|
000005b0  20 20 c9 20 36 3a f2 63  6c 69 63 6b 77 69 6e 64  |  . 6:.clickwind|
000005c0  6f 77 28 21 71 25 2c 71  25 21 34 2c 71 25 21 38  |ow(!q%,q%!4,q%!8|
000005d0  2c 71 25 21 31 32 2c 71  25 21 31 36 2c 71 25 21  |,q%!12,q%!16,q%!|
000005e0  32 30 29 0d 02 94 33 20  20 c9 20 39 3a e7 20 63  |20)...3  . 9:. c|
000005f0  6c 61 69 6d 6d 65 6e 75  24 3c 3e 22 22 20 8c 20  |laimmenu$<>"" . |
00000600  f2 77 68 69 63 68 6d 65  6e 75 28 63 6c 61 69 6d  |.whichmenu(claim|
00000610  6d 65 6e 75 24 29 0d 02  9e 1a 20 20 c9 20 31 37  |menu$)....  . 17|
00000620  2c 31 38 3a f2 72 65 63  65 69 76 65 28 71 25 29  |,18:.receive(q%)|
00000630  0d 02 a8 05 cb 0d 02 b2  05 e1 0d 02 bc 05 3a 0d  |..............:.|
00000640  02 c6 11 dd f2 72 65 63  65 69 76 65 28 71 25 29  |.....receive(q%)|
00000650  0d 02 d0 0e c8 8e 20 71  25 21 31 36 20 ca 0d 02  |...... q%!16 ...|
00000660  da 13 c9 20 30 20 3a f2  63 6c 6f 73 65 64 6f 77  |... 0 :.closedow|
00000670  6e 0d 02 e4 05 cb 0d 02  ee 05 e1 0d 02 f8 05 3a  |n..............:|
00000680  0d 03 02 0a dd f2 6d 65  72 64 0d 03 0c 1e ff 20  |......merd..... |
00000690  22 45 72 72 6f 72 20 22  2b f6 24 2b 22 20 3a 20  |"Error "+.$+" : |
000006a0  22 2b c3 28 9e 29 3a e1  0d 03 16 05 e1 0d 03 20  |"+.(.):........ |
000006b0  04 0d 03 2a 26 dd f2 6f  70 65 6e 77 69 6e 64 6f  |...*&..openwindo|
000006c0  77 28 68 61 6e 64 6c 65  25 2c 66 75 6c 6c 25 2c  |w(handle%,full%,|
000006d0  66 72 6f 6e 74 25 29 0d  03 34 10 71 25 21 30 3d  |front%)..4.q%!0=|
000006e0  68 61 6e 64 6c 65 25 0d  03 3e 2d e7 20 ac 20 66  |handle%..>-. . f|
000006f0  75 6c 6c 25 20 8c 20 c8  99 20 22 57 69 6d 70 5f  |ull% . .. "Wimp_|
00000700  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00000710  30 2c 71 25 0d 03 48 17  e7 20 66 72 6f 6e 74 25  |0,q%..H.. front%|
00000720  20 8c 20 71 25 21 32 38  3d 2d 31 0d 03 52 1d c8  | . q%!28=-1..R..|
00000730  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000740  6f 77 22 2c 30 2c 71 25  0d 03 5c 05 e1 0d 03 66  |ow",0,q%..\....f|
00000750  04 0d 03 70 11 dd a4 70  6f 6c 6c 28 6d 61 73 6b  |...p...poll(mask|
00000760  25 29 0d 03 7a 20 c8 99  20 22 57 69 6d 70 5f 50  |%)..z .. "Wimp_P|
00000770  6f 6c 6c 22 2c 6d 61 73  6b 25 2c 71 25 20 b8 20  |oll",mask%,q% . |
00000780  61 25 0d 03 84 07 3d 61  25 0d 03 8e 04 0d 03 98  |a%....=a%.......|
00000790  32 dd f2 64 65 66 69 6e  65 5f 6d 65 6e 75 5f 74  |2..define_menu_t|
000007a0  65 78 74 28 74 65 78 74  24 2c 6e 2c 77 2c 74 2c  |ext(text$,n,w,t,|
000007b0  64 2c 73 2c 66 6c 61 67  73 2c 73 6d 2c 6c 29 0d  |d,s,flags,sm,l).|
000007c0  03 a2 12 74 65 78 74 24  28 6e 29 3d 74 65 78 74  |...text$(n)=text|
000007d0  24 0d 03 ac 10 73 65 74  74 69 6e 67 28 6e 29 3d  |$....setting(n)=|
000007e0  30 0d 03 b6 38 e7 20 77  20 8c 20 73 65 74 74 69  |0...8. w . setti|
000007f0  6e 67 28 6e 29 3d 73 65  74 74 69 6e 67 28 6e 29  |ng(n)=setting(n)|
00000800  20 84 20 26 30 34 3a 66  6c 61 67 73 3d 66 6c 61  | . &04:flags=fla|
00000810  67 73 20 84 20 26 31 30  30 0d 03 c0 25 e7 20 74  |gs . &100...%. t|
00000820  20 8c 20 73 65 74 74 69  6e 67 28 6e 29 3d 73 65  | . setting(n)=se|
00000830  74 74 69 6e 67 28 6e 29  20 84 20 26 30 31 0d 03  |tting(n) . &01..|
00000840  ca 25 e7 20 64 20 8c 20  73 65 74 74 69 6e 67 28  |.%. d . setting(|
00000850  6e 29 3d 73 65 74 74 69  6e 67 28 6e 29 20 84 20  |n)=setting(n) . |
00000860  26 30 32 0d 03 d4 25 e7  20 6c 20 8c 20 73 65 74  |&02...%. l . set|
00000870  74 69 6e 67 28 6e 29 3d  73 65 74 74 69 6e 67 28  |ting(n)=setting(|
00000880  6e 29 20 84 20 26 38 30  0d 03 de 1f e7 20 73 20  |n) . &80..... s |
00000890  8c 20 66 6c 61 67 73 3d  66 6c 61 67 73 20 84 20  |. flags=flags . |
000008a0  26 34 30 30 30 30 30 0d  03 e8 12 66 6c 61 67 73  |&400000....flags|
000008b0  28 6e 29 3d 66 6c 61 67  73 0d 03 f2 11 73 75 62  |(n)=flags....sub|
000008c0  6d 65 6e 75 28 6e 29 3d  73 6d 0d 03 fc 05 e1 0d  |menu(n)=sm......|
000008d0  04 06 04 0d 04 10 26 dd  f2 63 72 65 61 74 65 5f  |......&..create_|
000008e0  6d 65 6e 75 28 74 69 74  6c 65 24 2c 6e 2c 77 69  |menu(title$,n,wi|
000008f0  64 74 68 25 2c 78 2c 79  29 0d 04 1a 0d 6d 62 25  |dth%,x,y)....mb%|
00000900  3d 6d 65 6e 75 25 0d 04  24 0f 6d 65 6e 75 73 3d  |=menu%..$.menus=|
00000910  30 3a 71 3d 30 0d 04 2e  05 f5 0d 04 38 21 20 20  |0:q=0.......8!  |
00000920  6d 65 6e 75 70 6f 73 28  6d 65 6e 75 73 29 3d 6d  |menupos(menus)=m|
00000930  62 25 3a 6d 65 6e 75 73  2b 3d 31 0d 04 42 11 20  |b%:menus+=1..B. |
00000940  20 24 6d 62 25 3d 74 69  74 6c 65 24 0d 04 4c 0e  | $mb%=title$..L.|
00000950  20 20 6d 62 25 3f 31 32  3d 37 0d 04 56 0e 20 20  |  mb%?12=7..V.  |
00000960  6d 62 25 3f 31 33 3d 32  0d 04 60 0e 20 20 6d 62  |mb%?13=2..`.  mb|
00000970  25 3f 31 34 3d 37 0d 04  6a 0e 20 20 6d 62 25 3f  |%?14=7..j.  mb%?|
00000980  31 35 3d 30 0d 04 74 13  20 20 6d 62 25 21 31 36  |15=0..t.  mb%!16|
00000990  3d 77 69 64 74 68 25 0d  04 7e 27 20 20 6d 62 25  |=width%..~'  mb%|
000009a0  21 32 30 3d 34 30 20 3a  f4 20 68 65 69 67 68 74  |!20=40 :. height|
000009b0  20 6f 66 20 6d 65 6e 75  20 69 74 65 6d 73 0d 04  | of menu items..|
000009c0  88 41 20 20 6d 62 25 21  32 34 3d 30 20 20 3a f4  |.A  mb%!24=0  :.|
000009d0  20 76 65 72 74 69 63 61  6c 20 67 61 70 20 62 65  | vertical gap be|
000009e0  74 77 65 65 6e 20 69 74  65 6d 73 20 28 61 6c 73  |tween items (als|
000009f0  6f 20 74 6f 70 20 26 20  62 6f 74 74 6f 6d 29 0d  |o top & bottom).|
00000a00  04 92 14 20 20 69 74 65  6d 70 74 72 3d 6d 62 25  |...  itemptr=mb%|
00000a10  2b 32 38 0d 04 9c 07 20  20 f5 0d 04 a6 1c 20 20  |+28....  .....  |
00000a20  20 20 69 74 65 6d 70 74  72 21 30 3d 73 65 74 74  |  itemptr!0=sett|
00000a30  69 6e 67 28 71 29 0d 04  b0 18 20 20 20 20 72 65  |ing(q)....    re|
00000a40  66 28 71 29 3d 69 74 65  6d 70 74 72 2b 34 0d 04  |f(q)=itemptr+4..|
00000a50  ba 2a 20 20 20 20 69 74  65 6d 70 74 72 21 38 3d  |.*    itemptr!8=|
00000a60  66 6c 61 67 73 28 71 29  20 84 20 30 3c 3c 32 38  |flags(q) . 0<<28|
00000a70  20 84 20 37 3c 3c 32 34  0d 04 c4 1f 20 20 20 20  | . 7<<24....    |
00000a80  e7 20 28 66 6c 61 67 73  28 71 29 20 80 20 26 31  |. (flags(q) . &1|
00000a90  30 30 29 3d 30 20 8c 0d  04 ce 20 20 20 20 20 20  |00)=0 ....      |
00000aa0  20 24 28 69 74 65 6d 70  74 72 2b 31 32 29 3d 74  | $(itemptr+12)=t|
00000ab0  65 78 74 24 28 71 29 0d  04 d8 09 20 20 20 20 cc  |ext$(q)....    .|
00000ac0  0d 04 e2 1c 20 20 20 20  20 20 70 6f 73 3d a7 74  |....      pos=.t|
00000ad0  65 78 74 24 28 71 29 2c  22 28 22 29 0d 04 ec 28  |ext$(q),"(")...(|
00000ae0  20 20 20 20 20 20 69 74  65 6d 70 74 72 21 31 32  |      itemptr!12|
00000af0  3d a0 28 c0 74 65 78 74  24 28 71 29 2c 70 6f 73  |=.(.text$(q),pos|
00000b00  2d 31 29 29 0d 04 f6 17  20 20 20 20 20 20 69 74  |-1))....      it|
00000b10  65 6d 70 74 72 21 31 36  3d 2d 31 0d 05 00 32 20  |emptr!16=-1...2 |
00000b20  20 20 20 20 20 69 74 65  6d 70 74 72 21 32 30 3d  |     itemptr!20=|
00000b30  a0 28 c2 74 65 78 74 24  28 71 29 2c a9 28 74 65  |.(.text$(q),.(te|
00000b40  78 74 24 28 71 29 29 2d  70 6f 73 29 29 0d 05 0a  |xt$(q))-pos))...|
00000b50  09 20 20 20 20 cd 0d 05  14 18 20 20 20 20 69 74  |.    .....    it|
00000b60  65 6d 70 74 72 2b 3d 32  34 3a 71 2b 3d 31 0d 05  |emptr+=24:q+=1..|
00000b70  1e 1e 20 20 fd 20 28 73  65 74 74 69 6e 67 28 71  |..  . (setting(q|
00000b80  2d 31 29 20 80 20 26 38  30 29 3e 30 0d 05 28 11  |-1) . &80)>0..(.|
00000b90  20 20 6d 62 25 3d 69 74  65 6d 70 74 72 0d 05 32  |  mb%=itemptr..2|
00000ba0  23 20 20 e7 20 71 3c 3e  6e 20 8c 20 74 69 74 6c  |#  . q<>n . titl|
00000bb0  65 24 3d 74 65 78 74 24  28 71 29 3a 71 2b 3d 31  |e$=text$(q):q+=1|
00000bc0  0d 05 3c 09 fd 20 71 3d  6e 0d 05 46 04 0d 05 50  |..<.. q=n..F...P|
00000bd0  0f e3 20 71 3d 30 20 b8  20 6e 2d 31 0d 05 5a 29  |.. q=0 . n-1..Z)|
00000be0  20 20 e7 20 73 75 62 6d  65 6e 75 28 71 29 3e 30  |  . submenu(q)>0|
00000bf0  20 80 20 73 75 62 6d 65  6e 75 28 71 29 3c 6d 65  | . submenu(q)<me|
00000c00  6e 75 73 20 8c 0d 05 64  23 20 20 20 20 21 72 65  |nus ...d#    !re|
00000c10  66 28 71 29 3d 6d 65 6e  75 70 6f 73 28 73 75 62  |f(q)=menupos(sub|
00000c20  6d 65 6e 75 28 71 29 29  0d 05 6e 07 20 20 cc 0d  |menu(q))..n.  ..|
00000c30  05 78 48 20 20 20 20 21  72 65 66 28 71 29 3d 73  |.xH    !ref(q)=s|
00000c40  75 62 6d 65 6e 75 28 71  29 3a f4 20 77 61 73 20  |ubmenu(q):. was |
00000c50  2d 31 20 69 2e 65 2e 20  73 75 62 6d 65 6e 75 20  |-1 i.e. submenu |
00000c60  64 69 73 61 6c 6c 6f 77  65 64 21 20 54 68 69 73  |disallowed! This|
00000c70  20 63 68 61 6e 67 65 0d  05 82 3e 20 20 20 20 20  | change...>     |
00000c80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000c90  20 3a f4 20 61 6c 6c 6f  77 73 20 61 20 77 69 6e  | :. allows a win|
00000ca0  64 6f 77 20 68 61 6e 64  6c 65 20 74 6f 20 62 65  |dow handle to be|
00000cb0  20 75 73 65 64 0d 05 8c  07 20 20 cd 0d 05 96 07  | used....  .....|
00000cc0  ed 20 71 0d 05 a0 23 c8  99 20 22 57 69 6d 70 5f  |. q...#.. "Wimp_|
00000cd0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 65 6e  |CreateMenu",,men|
00000ce0  75 25 2c 78 2c 79 0d 05  aa 05 e1 0d 05 b4 04 0d  |u%,x,y..........|
00000cf0  05 be 1d dd f2 6f 70 65  6e 74 65 6d 70 6c 61 74  |.....opentemplat|
00000d00  65 66 69 6c 65 28 66 69  6c 65 24 29 0d 05 c8 21  |efile(file$)...!|
00000d10  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 54 65 6d  |.. "Wimp_OpenTem|
00000d20  70 6c 61 74 65 22 2c 2c  66 69 6c 65 24 0d 05 d2  |plate",,file$...|
00000d30  05 e1 0d 05 dc 04 0d 05  e6 0e dd f2 64 6f 5f 63  |............do_c|
00000d40  6c 6f 63 6b 0d 05 f0 0f  74 68 65 74 69 6d 65 24  |lock....thetime$|
00000d50  3d 91 24 0d 05 fa 43 e7  20 74 68 65 74 69 6d 65  |=.$...C. thetime|
00000d60  24 3c 3e 6f 6c 64 74 69  6d 65 24 20 8c 20 f2 69  |$<>oldtime$ . .i|
00000d70  63 6f 6e 5f 70 75 74 64  61 74 61 28 71 25 2c 6d  |con_putdata(q%,m|
00000d80  61 69 6e 25 2c 30 2c c2  74 68 65 74 69 6d 65 24  |ain%,0,.thetime$|
00000d90  2c 38 29 2c 31 29 0d 06  04 15 6f 6c 64 74 69 6d  |,8),1)....oldtim|
00000da0  65 24 3d 74 68 65 74 69  6d 65 24 0d 06 0e 05 e1  |e$=thetime$.....|
00000db0  0d 06 18 05 3a 0d 06 22  1b dd f2 72 65 64 72 61  |....:.."...redra|
00000dc0  77 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |wwindow(handle%)|
00000dd0  0d 06 2c 0b ea 20 76 6f  69 64 25 0d 06 36 10 71  |..,.. void%..6.q|
00000de0  25 21 30 3d 68 61 6e 64  6c 65 25 0d 06 40 27 c8  |%!0=handle%..@'.|
00000df0  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
00000e00  6e 64 6f 77 22 2c 30 2c  71 25 20 b8 20 6d 6f 72  |ndow",0,q% . mor|
00000e10  65 25 0d 06 4a 1c f2 6c  77 61 6f 72 69 67 69 6e  |e%..J..lwaorigin|
00000e20  28 71 25 2b 34 2c 78 30  25 2c 79 30 25 29 0d 06  |(q%+4,x0%,y0%)..|
00000e30  54 0c c8 95 20 6d 6f 72  65 25 0d 06 5e 0e 20 20  |T... more%..^.  |
00000e40  f2 6e 65 77 76 61 6c 73  0d 06 68 12 20 20 c8 8e  |.newvals..h.  ..|
00000e50  20 68 61 6e 64 6c 65 25  20 ca 0d 06 72 07 20 20  | handle% ...r.  |
00000e60  cb 0d 06 7c 20 20 20 c8  99 20 22 57 69 6d 70 5f  |...|   .. "Wimp_|
00000e70  42 6f 72 64 65 72 57 69  6e 64 6f 77 22 2c 2c 71  |BorderWindow",,q|
00000e80  25 0d 06 86 29 20 20 c8  99 20 22 57 69 6d 70 5f  |%...)  .. "Wimp_|
00000e90  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 30 2c  |GetRectangle",0,|
00000ea0  71 25 20 b8 20 6d 6f 72  65 25 0d 06 90 05 ce 0d  |q% . more%......|
00000eb0  06 9a 05 e1 0d 06 a4 04  0d 06 ae 1a dd f2 63 6c  |..............cl|
00000ec0  6f 73 65 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |osewindow(handle|
00000ed0  25 29 0d 06 b8 1c e7 20  a4 6f 6b 74 6f 63 6c 6f  |%)..... .oktoclo|
00000ee0  73 65 77 28 68 61 6e 64  6c 65 25 29 20 8c 0d 06  |sew(handle%) ...|
00000ef0  c2 12 20 20 71 25 21 30  3d 68 61 6e 64 6c 65 25  |..  q%!0=handle%|
00000f00  0d 06 cc 20 20 20 c8 99  20 22 57 69 6d 70 5f 43  |...   .. "Wimp_C|
00000f10  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 30 2c 71 25  |loseWindow",0,q%|
00000f20  0d 06 d6 05 cd 0d 06 e0  05 e1 0d 06 ea 04 0d 06  |................|
00000f30  f4 16 dd f2 77 68 69 63  68 6d 65 6e 75 28 6d 65  |....whichmenu(me|
00000f40  6e 75 24 29 0d 06 fe 0b  ea 20 76 6f 69 64 25 0d  |nu$)..... void%.|
00000f50  07 08 0e c8 8e 20 6d 65  6e 75 24 20 ca 0d 07 12  |..... menu$ ....|
00000f60  28 20 20 c9 20 22 73 69  63 6f 6e 22 20 3a 76 6f  |(  . "sicon" :vo|
00000f70  69 64 25 3d a4 6d 65 6e  75 73 65 6c 65 63 74 5f  |id%=.menuselect_|
00000f80  73 69 63 6f 6e 0d 07 1c  05 cb 0d 07 26 05 e1 0d  |sicon.......&...|
00000f90  07 30 04 0d 07 3a 0d dd  f2 6e 65 77 76 61 6c 73  |.0...:...newvals|
00000fa0  0d 07 44 17 67 74 78 3d  71 25 21 33 36 3a 67 74  |..D.gtx=q%!36:gt|
00000fb0  79 3d 71 25 21 34 30 0d  07 4e 15 77 62 78 3d 71  |y=q%!40..N.wbx=q|
00000fc0  25 21 34 3a 77 62 79 3d  71 25 21 38 0d 07 58 17  |%!4:wby=q%!8..X.|
00000fd0  77 74 78 3d 71 25 21 31  32 3a 77 74 79 3d 71 25  |wtx=q%!12:wty=q%|
00000fe0  21 31 36 0d 07 62 17 78  73 63 3d 71 25 21 32 30  |!16..b.xsc=q%!20|
00000ff0  3a 79 73 63 3d 71 25 21  32 34 0d 07 6c 21 68 70  |:ysc=q%!24..l!hp|
00001000  3d 77 74 78 2d 77 62 78  3a 76 70 3d 77 74 79 2d  |=wtx-wbx:vp=wty-|
00001010  77 62 79 3a 65 62 78 3d  78 73 63 0d 07 76 21 65  |wby:ebx=xsc..v!e|
00001020  74 78 3d 78 73 63 2b 68  70 3a 65 74 79 3d 79 73  |tx=xsc+hp:ety=ys|
00001030  63 3a 65 62 79 3d 79 73  63 2d 76 70 0d 07 80 05  |c:eby=ysc-vp....|
00001040  e1 0d 07 8a 04 0d 07 94  19 dd a4 6f 6b 74 6f 63  |...........oktoc|
00001050  6c 6f 73 65 77 28 68 61  6e 64 6c 65 25 29 0d 07  |losew(handle%)..|
00001060  9e 0f ea 20 73 68 75 74  74 69 6e 67 25 0d 07 a8  |... shutting%...|
00001070  0f 73 68 75 74 74 69 6e  67 25 3d b9 0d 07 b2 0e  |.shutting%=.....|
00001080  3d 73 68 75 74 74 69 6e  67 25 0d 07 bc 04 0d 07  |=shutting%......|
00001090  c6 16 dd a4 6d 65 6e 75  73 65 6c 65 63 74 5f 73  |....menuselect_s|
000010a0  69 63 6f 6e 0d 07 d0 0c  ea 20 6c 65 76 65 6c 30  |icon..... level0|
000010b0  0d 07 da 0f 6c 65 76 65  6c 30 3d 71 25 21 30 0d  |....level0=q%!0.|
000010c0  07 e4 0f c8 8e 20 6c 65  76 65 6c 30 20 ca 0d 07  |..... level0 ...|
000010d0  ee 22 20 20 c9 20 30 20  3a f2 6f 70 65 6e 77 69  |."  . 0 :.openwi|
000010e0  6e 64 6f 77 28 69 6e 66  6f 25 2c a3 2c 2d 31 29  |ndow(info%,.,-1)|
000010f0  0d 07 f8 15 20 20 c9 20  31 20 3a f2 63 6c 6f 73  |....  . 1 :.clos|
00001100  65 64 6f 77 6e 0d 08 02  05 cb 0d 08 0c 06 3d 30  |edown.........=0|
00001110  0d 08 16 04 0d 08 20 1c  dd f2 6c 77 61 6f 72 69  |...... ...lwaori|
00001120  67 69 6e 28 62 2c f8 20  78 25 2c f8 20 79 25 29  |gin(b,. x%,. y%)|
00001130  0d 08 2a 1c 78 25 3d 62  21 30 2d 62 21 31 36 3a  |..*.x%=b!0-b!16:|
00001140  79 25 3d 62 21 31 32 2d  62 21 32 30 0d 08 34 05  |y%=b!12-b!20..4.|
00001150  e1 0d 08 3e 04 0d 08 48  26 dd f2 69 63 6f 6e 5f  |...>...H&..icon_|
00001160  70 75 74 64 61 74 61 28  62 2c 77 68 25 2c 69 68  |putdata(b,wh%,ih|
00001170  25 2c 74 65 78 74 24 2c  72 64 29 0d 08 52 13 62  |%,text$,rd)..R.b|
00001180  21 30 3d 77 68 25 3a 62  21 34 3d 69 68 25 0d 08  |!0=wh%:b!4=ih%..|
00001190  5c 1d c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |\... "Wimp_GetIc|
000011a0  6f 6e 53 74 61 74 65 22  2c 2c 62 0d 08 66 1b c8  |onState",,b..f..|
000011b0  99 20 22 57 69 6d 70 5f  44 65 6c 65 74 65 49 63  |. "Wimp_DeleteIc|
000011c0  6f 6e 22 2c 2c 62 0d 08  70 1e 62 21 34 3d 77 68  |on",,b..p.b!4=wh|
000011d0  25 3a 24 28 62 21 32 38  29 3d 74 65 78 74 24 3a  |%:$(b!28)=text$:|
000011e0  62 2b 3d 34 0d 08 7a 1b  c8 99 20 22 57 69 6d 70  |b+=4..z... "Wimp|
000011f0  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 62 0d  |_CreateIcon",,b.|
00001200  08 84 36 e7 20 72 64 20  8c 20 c8 99 20 22 57 69  |..6. rd . .. "Wi|
00001210  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00001220  62 21 30 2c 62 21 34 2c  62 21 38 2c 62 21 31 32  |b!0,b!4,b!8,b!12|
00001230  2c 62 21 31 36 0d 08 8e  08 62 2d 3d 34 0d 08 98  |,b!16....b-=4...|
00001240  05 e1 0d ff                                       |....|
00001244