�>$.applic.!Stamp.!RunImage
�version$="1.01 (26-Aug-89)"
��q% 500,msgblk 200
�$q%="TASK"
�-ș"Wimp_Initialise",200,!q%,"Stamp"�,task
�ș"Hourglass_On"
�4sicon=�spriteicon(-1,0,0,68,68,&3102,1,"!stamp")

"menu_title_fg=7

,menu_title_bg=2

6menu_work_fg=7

@menu_work_bg=0

htick=&01

rdotted=&02

|writeable=&04

�last=&80

�default=&10021

�shaded=&400000

�first=�

�second=�

�	sel=�

�claimdrag$="":claimmenu$=""

�close_down=�
)�text$(5),setting(5),flags(5),data(5)
!�submenu(5),ref(5),menupos(5)
D�menu% 100
N�indirect% 400
v#iptr%=indirect%:iend%=iptr%+400
�.�opentemplatefile("<Stamp$Dir>.Templates")
� �loadtemplate("progInfo",q%)
�#ș"Wimp_CreateWindow",,q%�info%
��closetemplatefile
�current_file$=""
 (�icon_putdata(q%,info%,4,version$,0)
Hș"Hourglass_Off"
��
��action(�poll(1))
��close_down
�ș"Wimp_CloseDown"
��
�<��clickwindow(mousex%,mousey%,button%,handle%,icon%,ob%)
�Ȏhandle%�
�$�-2:�clickiconbar(button%,icon%)
��
�
!��clickiconbar(button%,icon%)
$�icon%<0��
.Ȏ��
8�button%=2
B�icon%=sicon�
L�menu_sicon
V�
`�
j�
~��keypress
��
�ݤmenuselect_sicon
�level0=q%!0
�
Ȏlevel0�
��0
��1
�close_down=�
��
�=0
���menu_sicon
no=0:ȗx,y,b:y=y+100
>�define_menu_text("Info",no,0,0,0,0,default,info%,0):no+=1
;�define_menu_text("Quit",no,0,0,0,0,default,0,-1):no+=1
( �create_menu("Stamp",no,x,y)
2menu_nr%=0
<claimmenu$="sicon"
F�
Z��dataload(b)
dcurrent_file$=�gname(q%+44)
n�b!40<4096�
x�("STAMP "+current_file$)
��
��
���ackload(b)
��
���finish
�ș"Wimp_CloseDown"
��
���close_down
�ș"Wimp_CloseDown"
��12

*FX4,0
*FX220,0
�
,ݤpoll(mask%)
6ș"Wimp_Poll",mask%,q%�a%
@=a%
T��action(evnt%)
^Ȏevnt%�
h4�6:�clickwindow(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
r9�9:�claimmenu$<>""�junk=�("FNmenuselect_"+claimmenu$)
|�17,18:�receive(q%)
��
��
���receive(q%)
�Ȏq%!16�
��0:�finish:�
��2:�datasave(q%)
��3,5:�q%!12=0��dataload(q%)
��&502:�interactive_help(q%)
��
��
�2��define_menu_text(text$,n,w,t,d,s,flags,sm,l)
text$(n)=text$
setting(n)=0
7�w�setting(n)=setting(n)�writeable:flags=flags�&100
&!�t�setting(n)=setting(n)�tick
0#�d�setting(n)=setting(n)�dotted
:!�l�setting(n)=setting(n)�last
D�s�flags=flags�shaded
Nflags(n)=flags
Xsubmenu(n)=sm
b�
v��create_menu(title$,n,x,y)
�
mb%=menu%
�menus=0:q=0
��
�menupos(menus)=mb%:menus+=1
�$mb%=title$
�mb%?12=menu_title_fg
�mb%?13=menu_title_bg
�mb%?14=menu_work_fg
�mb%?15=menu_work_bg
�mb%!16=100:
�mb%!20=40:
�mb%!24=10:
�itemptr=mb%+28
�
itemptr!0=setting(q)
ref(q)=itemptr+4
 8itemptr!8=flags(q)�menu_work_bg<<28�menu_work_fg<<24
*�(flags(q)�&100)=0�
4$(itemptr+12)=text$(q)
>�
Hpos=�text$(q),"(")
R"itemptr!12=�(�text$(q),pos-1))
\itemptr!16=-1
f,itemptr!20=�(�text$(q),�(text$(q))-pos))
p�
zitemptr+=24:q+=1
��(setting(q-1)�last)>0
�mb%=itemptr
��q<>n�title$=text$(q):q+=1
��q=n
��q=0�n-1
�#�submenu(q)>0�submenu(q)<menus�
�!ref(q)=menupos(submenu(q))
��
�!ref(q)=submenu(q):
��
��q
	'ș"Wimp_CreateMenu",,menu%,x-20,190
	�
	$ݤmax(a%,b%)
	.�a%<b%�=b%�=a%
	B��opentemplatefile(file$)
	L ș"Wimp_OpenTemplate",,file$
	V�
	j��loadtemplate(name$,b)
	t�type%,pos%,x%
	~Hș"Wimp_LoadTemplate",,b,iptr%,iend%,-1,name$,0�type%,,iptr%,,,,pos%
	��
	���closetemplatefile
	�ș"Wimp_CloseTemplate"
	��
	�6ݤspriteicon(window,x0,y0,x1,y1,flags,sptr,sname$)
	��q%!24�sname$+1:q%!28=sptr
	�!q%!32=�sname$+1:$q%!24=sname$
	�'=�iconblk(window,x0,y0,x1,y1,flags)
	�'ݤiconblk(window,x0,y0,x1,y1,flags)
	�icon

!q%=window
q%!4=x0:q%!8=y0
q%!12=x1:q%!16=y1
(q%!20=flags
2 ș"Wimp_CreateIcon",,q%�icon
<	=icon
Pݤgname(ptr)
Z	f$=""
dȕ?ptr<>0�?ptr<>13
nf$=f$+�?ptr:ptr+=1
x�
�=f$
�5��icon_putdata(q%,whandle%,ihandle%,data$,redraw)
�q%!0=whandle%
�q%!4=ihandle%
�ș"Wimp_GetIconState",,q%
�$(q%!28)=data$
��redraw�
�8ș"Wimp_ForceRedraw",whandle%,q%!8,q%!12,q%!16,q%!20
��
��
���interactive_help(q%)
�t$
Ȏq%!32�
�-2
"wt$="This is the Stamp icon.|MDragging a file to this icon will date stamp the file with the current time and date."
,�
6�t$<>""�
7q%!12=q%!8
8q%!16=&503
9$(q%+20)=t$+�0
:!q%=(25+�t$)��3
;#ș"Wimp_SendMessage",17,q%,q%!4
<�
T�
�to this icon will date stamp the file with the current time and date."
,�
6� t$<>"" �
7q%!12=q%!8
8q%!16=&503
9$(q%+20)=t$+�0
:!q%=(25+�t$) � � 3
;$ș "Wimp_SendMessage",17,q%,q%!4
<�
T�
�

00000000  0d 00 00 1f f4 3e 24 2e  61 70 70 6c 69 63 2e 21  |.....>$.applic.!|
00000010  53 74 61 6d 70 2e 21 52  75 6e 49 6d 61 67 65 0d  |Stamp.!RunImage.|
00000020  00 82 1f 76 65 72 73 69  6f 6e 24 3d 22 31 2e 30  |...version$="1.0|
00000030  31 20 28 32 36 2d 41 75  67 2d 38 39 29 22 0d 00  |1 (26-Aug-89)"..|
00000040  8c 16 de 71 25 20 35 30  30 2c 6d 73 67 62 6c 6b  |...q% 500,msgblk|
00000050  20 32 30 30 0d 00 96 0e  24 71 25 3d 22 54 41 53  | 200....$q%="TAS|
00000060  4b 22 0d 00 a0 2d c8 99  22 57 69 6d 70 5f 49 6e  |K"...-.."Wimp_In|
00000070  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 71  |itialise",200,!q|
00000080  25 2c 22 53 74 61 6d 70  22 b8 2c 74 61 73 6b 0d  |%,"Stamp".,task.|
00000090  00 aa 14 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |....."Hourglass_|
000000a0  4f 6e 22 0d 00 e6 34 73  69 63 6f 6e 3d a4 73 70  |On"...4sicon=.sp|
000000b0  72 69 74 65 69 63 6f 6e  28 2d 31 2c 30 2c 30 2c  |riteicon(-1,0,0,|
000000c0  36 38 2c 36 38 2c 26 33  31 30 32 2c 31 2c 22 21  |68,68,&3102,1,"!|
000000d0  73 74 61 6d 70 22 29 0d  01 22 13 6d 65 6e 75 5f  |stamp")..".menu_|
000000e0  74 69 74 6c 65 5f 66 67  3d 37 0d 01 2c 13 6d 65  |title_fg=7..,.me|
000000f0  6e 75 5f 74 69 74 6c 65  5f 62 67 3d 32 0d 01 36  |nu_title_bg=2..6|
00000100  12 6d 65 6e 75 5f 77 6f  72 6b 5f 66 67 3d 37 0d  |.menu_work_fg=7.|
00000110  01 40 12 6d 65 6e 75 5f  77 6f 72 6b 5f 62 67 3d  |.@.menu_work_bg=|
00000120  30 0d 01 68 0c 74 69 63  6b 3d 26 30 31 0d 01 72  |0..h.tick=&01..r|
00000130  0e 64 6f 74 74 65 64 3d  26 30 32 0d 01 7c 11 77  |.dotted=&02..|.w|
00000140  72 69 74 65 61 62 6c 65  3d 26 30 34 0d 01 86 0c  |riteable=&04....|
00000150  6c 61 73 74 3d 26 38 30  0d 01 90 12 64 65 66 61  |last=&80....defa|
00000160  75 6c 74 3d 26 31 30 30  32 31 0d 01 9a 12 73 68  |ult=&10021....sh|
00000170  61 64 65 64 3d 26 34 30  30 30 30 30 0d 01 a4 0b  |aded=&400000....|
00000180  66 69 72 73 74 3d b9 0d  01 ae 0c 73 65 63 6f 6e  |first=.....secon|
00000190  64 3d a3 0d 01 b8 09 73  65 6c 3d b9 0d 01 e0 1f  |d=.....sel=.....|
000001a0  63 6c 61 69 6d 64 72 61  67 24 3d 22 22 3a 63 6c  |claimdrag$="":cl|
000001b0  61 69 6d 6d 65 6e 75 24  3d 22 22 0d 01 ea 10 63  |aimmenu$=""....c|
000001c0  6c 6f 73 65 5f 64 6f 77  6e 3d a3 0d 02 12 29 de  |lose_down=....).|
000001d0  74 65 78 74 24 28 35 29  2c 73 65 74 74 69 6e 67  |text$(5),setting|
000001e0  28 35 29 2c 66 6c 61 67  73 28 35 29 2c 64 61 74  |(5),flags(5),dat|
000001f0  61 28 35 29 0d 02 1c 21  de 73 75 62 6d 65 6e 75  |a(5)...!.submenu|
00000200  28 35 29 2c 72 65 66 28  35 29 2c 6d 65 6e 75 70  |(5),ref(5),menup|
00000210  6f 73 28 35 29 0d 02 44  0e de 6d 65 6e 75 25 20  |os(5)..D..menu% |
00000220  31 30 30 0d 02 4e 12 de  69 6e 64 69 72 65 63 74  |100..N..indirect|
00000230  25 20 34 30 30 0d 02 76  23 69 70 74 72 25 3d 69  |% 400..v#iptr%=i|
00000240  6e 64 69 72 65 63 74 25  3a 69 65 6e 64 25 3d 69  |ndirect%:iend%=i|
00000250  70 74 72 25 2b 34 30 30  0d 02 9e 2e f2 6f 70 65  |ptr%+400.....ope|
00000260  6e 74 65 6d 70 6c 61 74  65 66 69 6c 65 28 22 3c  |ntemplatefile("<|
00000270  53 74 61 6d 70 24 44 69  72 3e 2e 54 65 6d 70 6c  |Stamp$Dir>.Templ|
00000280  61 74 65 73 22 29 0d 02  a8 20 f2 6c 6f 61 64 74  |ates")... .loadt|
00000290  65 6d 70 6c 61 74 65 28  22 70 72 6f 67 49 6e 66  |emplate("progInf|
000002a0  6f 22 2c 71 25 29 0d 02  b2 23 c8 99 22 57 69 6d  |o",q%)...#.."Wim|
000002b0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000002c0  2c 71 25 b8 69 6e 66 6f  25 0d 02 bc 16 f2 63 6c  |,q%.info%.....cl|
000002d0  6f 73 65 74 65 6d 70 6c  61 74 65 66 69 6c 65 0d  |osetemplatefile.|
000002e0  02 f8 14 63 75 72 72 65  6e 74 5f 66 69 6c 65 24  |...current_file$|
000002f0  3d 22 22 0d 03 20 28 f2  69 63 6f 6e 5f 70 75 74  |="".. (.icon_put|
00000300  64 61 74 61 28 71 25 2c  69 6e 66 6f 25 2c 34 2c  |data(q%,info%,4,|
00000310  76 65 72 73 69 6f 6e 24  2c 30 29 0d 03 48 15 c8  |version$,0)..H..|
00000320  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |."Hourglass_Off"|
00000330  0d 03 84 05 f5 0d 03 8e  15 f2 61 63 74 69 6f 6e  |..........action|
00000340  28 a4 70 6f 6c 6c 28 31  29 29 0d 03 98 0f fd 63  |(.poll(1)).....c|
00000350  6c 6f 73 65 5f 64 6f 77  6e 0d 03 c0 16 c8 99 22  |lose_down......"|
00000360  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 0d  |Wimp_CloseDown".|
00000370  03 ca 05 e0 0d 03 de 3c  dd f2 63 6c 69 63 6b 77  |.......<..clickw|
00000380  69 6e 64 6f 77 28 6d 6f  75 73 65 78 25 2c 6d 6f  |indow(mousex%,mo|
00000390  75 73 65 79 25 2c 62 75  74 74 6f 6e 25 2c 68 61  |usey%,button%,ha|
000003a0  6e 64 6c 65 25 2c 69 63  6f 6e 25 2c 6f 62 25 29  |ndle%,icon%,ob%)|
000003b0  0d 03 e8 0e c8 8e 68 61  6e 64 6c 65 25 ca 0d 03  |......handle%...|
000003c0  f2 24 c9 2d 32 3a f2 63  6c 69 63 6b 69 63 6f 6e  |.$.-2:.clickicon|
000003d0  62 61 72 28 62 75 74 74  6f 6e 25 2c 69 63 6f 6e  |bar(button%,icon|
000003e0  25 29 0d 03 fc 05 cb 0d  04 06 05 e1 0d 04 1a 21  |%).............!|
000003f0  dd f2 63 6c 69 63 6b 69  63 6f 6e 62 61 72 28 62  |..clickiconbar(b|
00000400  75 74 74 6f 6e 25 2c 69  63 6f 6e 25 29 0d 04 24  |utton%,icon%)..$|
00000410  0e e7 69 63 6f 6e 25 3c  30 8c e1 0d 04 2e 08 c8  |..icon%<0.......|
00000420  8e b9 ca 0d 04 38 0e c9  62 75 74 74 6f 6e 25 3d  |.....8..button%=|
00000430  32 0d 04 42 11 e7 69 63  6f 6e 25 3d 73 69 63 6f  |2..B..icon%=sico|
00000440  6e 8c 0d 04 4c 0f f2 6d  65 6e 75 5f 73 69 63 6f  |n...L..menu_sico|
00000450  6e 0d 04 56 05 cd 0d 04  60 05 cb 0d 04 6a 05 e1  |n..V....`....j..|
00000460  0d 04 7e 0e dd f2 6b 65  79 70 72 65 73 73 0d 04  |..~...keypress..|
00000470  88 05 e1 0d 04 9c 16 dd  a4 6d 65 6e 75 73 65 6c  |.........menusel|
00000480  65 63 74 5f 73 69 63 6f  6e 0d 04 a6 0f 6c 65 76  |ect_sicon....lev|
00000490  65 6c 30 3d 71 25 21 30  0d 04 b0 0d c8 8e 6c 65  |el0=q%!0......le|
000004a0  76 65 6c 30 ca 0d 04 ba  06 c9 30 0d 04 c4 06 c9  |vel0......0.....|
000004b0  31 0d 04 ce 10 63 6c 6f  73 65 5f 64 6f 77 6e 3d  |1....close_down=|
000004c0  b9 0d 04 d8 05 cb 0d 04  e2 06 3d 30 0d 04 f6 10  |..........=0....|
000004d0  dd f2 6d 65 6e 75 5f 73  69 63 6f 6e 0d 05 00 18  |..menu_sicon....|
000004e0  6e 6f 3d 30 3a c8 97 78  2c 79 2c 62 3a 79 3d 79  |no=0:..x,y,b:y=y|
000004f0  2b 31 30 30 0d 05 14 3e  f2 64 65 66 69 6e 65 5f  |+100...>.define_|
00000500  6d 65 6e 75 5f 74 65 78  74 28 22 49 6e 66 6f 22  |menu_text("Info"|
00000510  2c 6e 6f 2c 30 2c 30 2c  30 2c 30 2c 64 65 66 61  |,no,0,0,0,0,defa|
00000520  75 6c 74 2c 69 6e 66 6f  25 2c 30 29 3a 6e 6f 2b  |ult,info%,0):no+|
00000530  3d 31 0d 05 1e 3b f2 64  65 66 69 6e 65 5f 6d 65  |=1...;.define_me|
00000540  6e 75 5f 74 65 78 74 28  22 51 75 69 74 22 2c 6e  |nu_text("Quit",n|
00000550  6f 2c 30 2c 30 2c 30 2c  30 2c 64 65 66 61 75 6c  |o,0,0,0,0,defaul|
00000560  74 2c 30 2c 2d 31 29 3a  6e 6f 2b 3d 31 0d 05 28  |t,0,-1):no+=1..(|
00000570  20 f2 63 72 65 61 74 65  5f 6d 65 6e 75 28 22 53  | .create_menu("S|
00000580  74 61 6d 70 22 2c 6e 6f  2c 78 2c 79 29 0d 05 32  |tamp",no,x,y)..2|
00000590  0e 6d 65 6e 75 5f 6e 72  25 3d 30 0d 05 3c 16 63  |.menu_nr%=0..<.c|
000005a0  6c 61 69 6d 6d 65 6e 75  24 3d 22 73 69 63 6f 6e  |laimmenu$="sicon|
000005b0  22 0d 05 46 05 e1 0d 05  5a 11 dd f2 64 61 74 61  |"..F....Z...data|
000005c0  6c 6f 61 64 28 62 29 0d  05 64 1f 63 75 72 72 65  |load(b)..d.curre|
000005d0  6e 74 5f 66 69 6c 65 24  3d a4 67 6e 61 6d 65 28  |nt_file$=.gname(|
000005e0  71 25 2b 34 34 29 0d 05  6e 0f e7 62 21 34 30 3c  |q%+44)..n..b!40<|
000005f0  34 30 39 36 8c 0d 05 78  1d ff 28 22 53 54 41 4d  |4096...x..("STAM|
00000600  50 20 22 2b 63 75 72 72  65 6e 74 5f 66 69 6c 65  |P "+current_file|
00000610  24 29 0d 05 82 05 cd 0d  05 8c 05 e1 0d 05 a0 10  |$)..............|
00000620  dd f2 61 63 6b 6c 6f 61  64 28 62 29 0d 05 aa 05  |..ackload(b)....|
00000630  e1 0d 05 be 0c dd f2 66  69 6e 69 73 68 0d 05 c8  |.......finish...|
00000640  16 c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |..."Wimp_CloseDo|
00000650  77 6e 22 0d 05 d2 05 e1  0d 05 e6 10 dd f2 63 6c  |wn"...........cl|
00000660  6f 73 65 5f 64 6f 77 6e  0d 05 f0 16 c8 99 22 57  |ose_down......"W|
00000670  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 0d 05  |imp_CloseDown"..|
00000680  fa 07 eb 31 32 0d 06 04  0a 2a 46 58 34 2c 30 0d  |...12....*FX4,0.|
00000690  06 0e 0c 2a 46 58 32 32  30 2c 30 0d 06 18 05 e1  |...*FX220,0.....|
000006a0  0d 06 2c 11 dd a4 70 6f  6c 6c 28 6d 61 73 6b 25  |..,...poll(mask%|
000006b0  29 0d 06 36 1d c8 99 22  57 69 6d 70 5f 50 6f 6c  |)..6..."Wimp_Pol|
000006c0  6c 22 2c 6d 61 73 6b 25  2c 71 25 b8 61 25 0d 06  |l",mask%,q%.a%..|
000006d0  40 07 3d 61 25 0d 06 54  13 dd f2 61 63 74 69 6f  |@.=a%..T...actio|
000006e0  6e 28 65 76 6e 74 25 29  0d 06 5e 0c c8 8e 65 76  |n(evnt%)..^...ev|
000006f0  6e 74 25 ca 0d 06 68 34  c9 36 3a f2 63 6c 69 63  |nt%...h4.6:.clic|
00000700  6b 77 69 6e 64 6f 77 28  21 71 25 2c 71 25 21 34  |kwindow(!q%,q%!4|
00000710  2c 71 25 21 38 2c 71 25  21 31 32 2c 71 25 21 31  |,q%!8,q%!12,q%!1|
00000720  36 2c 71 25 21 32 30 29  0d 06 72 39 c9 39 3a e7  |6,q%!20)..r9.9:.|
00000730  63 6c 61 69 6d 6d 65 6e  75 24 3c 3e 22 22 8c 6a  |claimmenu$<>"".j|
00000740  75 6e 6b 3d a0 28 22 46  4e 6d 65 6e 75 73 65 6c  |unk=.("FNmenusel|
00000750  65 63 74 5f 22 2b 63 6c  61 69 6d 6d 65 6e 75 24  |ect_"+claimmenu$|
00000760  29 0d 06 7c 17 c9 31 37  2c 31 38 3a f2 72 65 63  |)..|..17,18:.rec|
00000770  65 69 76 65 28 71 25 29  0d 06 86 05 cb 0d 06 90  |eive(q%)........|
00000780  05 e1 0d 06 a4 11 dd f2  72 65 63 65 69 76 65 28  |........receive(|
00000790  71 25 29 0d 06 ae 0c c8  8e 71 25 21 31 36 ca 0d  |q%)......q%!16..|
000007a0  06 b8 10 c9 30 3a f2 66  69 6e 69 73 68 3a e0 0d  |....0:.finish:..|
000007b0  06 c2 14 c9 32 3a f2 64  61 74 61 73 61 76 65 28  |....2:.datasave(|
000007c0  71 25 29 0d 06 cc 1f c9  33 2c 35 3a e7 71 25 21  |q%).....3,5:.q%!|
000007d0  31 32 3d 30 8c f2 64 61  74 61 6c 6f 61 64 28 71  |12=0..dataload(q|
000007e0  25 29 0d 06 d6 1f c9 26  35 30 32 3a f2 69 6e 74  |%).....&502:.int|
000007f0  65 72 61 63 74 69 76 65  5f 68 65 6c 70 28 71 25  |eractive_help(q%|
00000800  29 0d 06 e0 05 cb 0d 06  ea 05 e1 0d 06 fe 32 dd  |).............2.|
00000810  f2 64 65 66 69 6e 65 5f  6d 65 6e 75 5f 74 65 78  |.define_menu_tex|
00000820  74 28 74 65 78 74 24 2c  6e 2c 77 2c 74 2c 64 2c  |t(text$,n,w,t,d,|
00000830  73 2c 66 6c 61 67 73 2c  73 6d 2c 6c 29 0d 07 08  |s,flags,sm,l)...|
00000840  12 74 65 78 74 24 28 6e  29 3d 74 65 78 74 24 0d  |.text$(n)=text$.|
00000850  07 12 10 73 65 74 74 69  6e 67 28 6e 29 3d 30 0d  |...setting(n)=0.|
00000860  07 1c 37 e7 77 8c 73 65  74 74 69 6e 67 28 6e 29  |..7.w.setting(n)|
00000870  3d 73 65 74 74 69 6e 67  28 6e 29 84 77 72 69 74  |=setting(n).writ|
00000880  65 61 62 6c 65 3a 66 6c  61 67 73 3d 66 6c 61 67  |eable:flags=flag|
00000890  73 84 26 31 30 30 0d 07  26 21 e7 74 8c 73 65 74  |s.&100..&!.t.set|
000008a0  74 69 6e 67 28 6e 29 3d  73 65 74 74 69 6e 67 28  |ting(n)=setting(|
000008b0  6e 29 84 74 69 63 6b 0d  07 30 23 e7 64 8c 73 65  |n).tick..0#.d.se|
000008c0  74 74 69 6e 67 28 6e 29  3d 73 65 74 74 69 6e 67  |tting(n)=setting|
000008d0  28 6e 29 84 64 6f 74 74  65 64 0d 07 3a 21 e7 6c  |(n).dotted..:!.l|
000008e0  8c 73 65 74 74 69 6e 67  28 6e 29 3d 73 65 74 74  |.setting(n)=sett|
000008f0  69 6e 67 28 6e 29 84 6c  61 73 74 0d 07 44 19 e7  |ing(n).last..D..|
00000900  73 8c 66 6c 61 67 73 3d  66 6c 61 67 73 84 73 68  |s.flags=flags.sh|
00000910  61 64 65 64 0d 07 4e 12  66 6c 61 67 73 28 6e 29  |aded..N.flags(n)|
00000920  3d 66 6c 61 67 73 0d 07  58 11 73 75 62 6d 65 6e  |=flags..X.submen|
00000930  75 28 6e 29 3d 73 6d 0d  07 62 05 e1 0d 07 76 1f  |u(n)=sm..b....v.|
00000940  dd f2 63 72 65 61 74 65  5f 6d 65 6e 75 28 74 69  |..create_menu(ti|
00000950  74 6c 65 24 2c 6e 2c 78  2c 79 29 0d 07 80 0d 6d  |tle$,n,x,y)....m|
00000960  62 25 3d 6d 65 6e 75 25  0d 07 8a 0f 6d 65 6e 75  |b%=menu%....menu|
00000970  73 3d 30 3a 71 3d 30 0d  07 94 05 f5 0d 07 9e 1f  |s=0:q=0.........|
00000980  6d 65 6e 75 70 6f 73 28  6d 65 6e 75 73 29 3d 6d  |menupos(menus)=m|
00000990  62 25 3a 6d 65 6e 75 73  2b 3d 31 0d 07 a8 0f 24  |b%:menus+=1....$|
000009a0  6d 62 25 3d 74 69 74 6c  65 24 0d 07 b2 18 6d 62  |mb%=title$....mb|
000009b0  25 3f 31 32 3d 6d 65 6e  75 5f 74 69 74 6c 65 5f  |%?12=menu_title_|
000009c0  66 67 0d 07 bc 18 6d 62  25 3f 31 33 3d 6d 65 6e  |fg....mb%?13=men|
000009d0  75 5f 74 69 74 6c 65 5f  62 67 0d 07 c6 17 6d 62  |u_title_bg....mb|
000009e0  25 3f 31 34 3d 6d 65 6e  75 5f 77 6f 72 6b 5f 66  |%?14=menu_work_f|
000009f0  67 0d 07 d0 17 6d 62 25  3f 31 35 3d 6d 65 6e 75  |g....mb%?15=menu|
00000a00  5f 77 6f 72 6b 5f 62 67  0d 07 da 0f 6d 62 25 21  |_work_bg....mb%!|
00000a10  31 36 3d 31 30 30 3a 0d  07 e4 0e 6d 62 25 21 32  |16=100:....mb%!2|
00000a20  30 3d 34 30 3a 0d 07 ee  0e 6d 62 25 21 32 34 3d  |0=40:....mb%!24=|
00000a30  31 30 3a 0d 07 f8 12 69  74 65 6d 70 74 72 3d 6d  |10:....itemptr=m|
00000a40  62 25 2b 32 38 0d 08 02  05 f5 0d 08 0c 18 69 74  |b%+28.........it|
00000a50  65 6d 70 74 72 21 30 3d  73 65 74 74 69 6e 67 28  |emptr!0=setting(|
00000a60  71 29 0d 08 16 14 72 65  66 28 71 29 3d 69 74 65  |q)....ref(q)=ite|
00000a70  6d 70 74 72 2b 34 0d 08  20 38 69 74 65 6d 70 74  |mptr+4.. 8itempt|
00000a80  72 21 38 3d 66 6c 61 67  73 28 71 29 84 6d 65 6e  |r!8=flags(q).men|
00000a90  75 5f 77 6f 72 6b 5f 62  67 3c 3c 32 38 84 6d 65  |u_work_bg<<28.me|
00000aa0  6e 75 5f 77 6f 72 6b 5f  66 67 3c 3c 32 34 0d 08  |nu_work_fg<<24..|
00000ab0  2a 17 e7 28 66 6c 61 67  73 28 71 29 80 26 31 30  |*..(flags(q).&10|
00000ac0  30 29 3d 30 8c 0d 08 34  1a 24 28 69 74 65 6d 70  |0)=0...4.$(itemp|
00000ad0  74 72 2b 31 32 29 3d 74  65 78 74 24 28 71 29 0d  |tr+12)=text$(q).|
00000ae0  08 3e 05 cc 0d 08 48 16  70 6f 73 3d a7 74 65 78  |.>....H.pos=.tex|
00000af0  74 24 28 71 29 2c 22 28  22 29 0d 08 52 22 69 74  |t$(q),"(")..R"it|
00000b00  65 6d 70 74 72 21 31 32  3d a0 28 c0 74 65 78 74  |emptr!12=.(.text|
00000b10  24 28 71 29 2c 70 6f 73  2d 31 29 29 0d 08 5c 11  |$(q),pos-1))..\.|
00000b20  69 74 65 6d 70 74 72 21  31 36 3d 2d 31 0d 08 66  |itemptr!16=-1..f|
00000b30  2c 69 74 65 6d 70 74 72  21 32 30 3d a0 28 c2 74  |,itemptr!20=.(.t|
00000b40  65 78 74 24 28 71 29 2c  a9 28 74 65 78 74 24 28  |ext$(q),.(text$(|
00000b50  71 29 29 2d 70 6f 73 29  29 0d 08 70 05 cd 0d 08  |q))-pos))..p....|
00000b60  7a 14 69 74 65 6d 70 74  72 2b 3d 32 34 3a 71 2b  |z.itemptr+=24:q+|
00000b70  3d 31 0d 08 84 1a fd 28  73 65 74 74 69 6e 67 28  |=1.....(setting(|
00000b80  71 2d 31 29 80 6c 61 73  74 29 3e 30 0d 08 8e 0f  |q-1).last)>0....|
00000b90  6d 62 25 3d 69 74 65 6d  70 74 72 0d 08 98 1e e7  |mb%=itemptr.....|
00000ba0  71 3c 3e 6e 8c 74 69 74  6c 65 24 3d 74 65 78 74  |q<>n.title$=text|
00000bb0  24 28 71 29 3a 71 2b 3d  31 0d 08 a2 08 fd 71 3d  |$(q):q+=1.....q=|
00000bc0  6e 0d 08 b6 0c e3 71 3d  30 b8 6e 2d 31 0d 08 c0  |n.....q=0.n-1...|
00000bd0  23 e7 73 75 62 6d 65 6e  75 28 71 29 3e 30 80 73  |#.submenu(q)>0.s|
00000be0  75 62 6d 65 6e 75 28 71  29 3c 6d 65 6e 75 73 8c  |ubmenu(q)<menus.|
00000bf0  0d 08 ca 1f 21 72 65 66  28 71 29 3d 6d 65 6e 75  |....!ref(q)=menu|
00000c00  70 6f 73 28 73 75 62 6d  65 6e 75 28 71 29 29 0d  |pos(submenu(q)).|
00000c10  08 d4 05 cc 0d 08 de 17  21 72 65 66 28 71 29 3d  |........!ref(q)=|
00000c20  73 75 62 6d 65 6e 75 28  71 29 3a 0d 08 f2 05 cd  |submenu(q):.....|
00000c30  0d 08 fc 06 ed 71 0d 09  06 27 c8 99 22 57 69 6d  |.....q...'.."Wim|
00000c40  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
00000c50  65 6e 75 25 2c 78 2d 32  30 2c 31 39 30 0d 09 10  |enu%,x-20,190...|
00000c60  05 e1 0d 09 24 10 dd a4  6d 61 78 28 61 25 2c 62  |....$...max(a%,b|
00000c70  25 29 0d 09 2e 12 e7 61  25 3c 62 25 8c 3d 62 25  |%).....a%<b%.=b%|
00000c80  8b 3d 61 25 0d 09 42 1d  dd f2 6f 70 65 6e 74 65  |.=a%..B...opente|
00000c90  6d 70 6c 61 74 65 66 69  6c 65 28 66 69 6c 65 24  |mplatefile(file$|
00000ca0  29 0d 09 4c 20 c8 99 22  57 69 6d 70 5f 4f 70 65  |)..L .."Wimp_Ope|
00000cb0  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 66 69 6c 65  |nTemplate",,file|
00000cc0  24 0d 09 56 05 e1 0d 09  6a 1b dd f2 6c 6f 61 64  |$..V....j...load|
00000cd0  74 65 6d 70 6c 61 74 65  28 6e 61 6d 65 24 2c 62  |template(name$,b|
00000ce0  29 0d 09 74 12 ea 74 79  70 65 25 2c 70 6f 73 25  |)..t..type%,pos%|
00000cf0  2c 78 25 0d 09 7e 48 c8  99 22 57 69 6d 70 5f 4c  |,x%..~H.."Wimp_L|
00000d00  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 2c  |oadTemplate",,b,|
00000d10  69 70 74 72 25 2c 69 65  6e 64 25 2c 2d 31 2c 6e  |iptr%,iend%,-1,n|
00000d20  61 6d 65 24 2c 30 b8 74  79 70 65 25 2c 2c 69 70  |ame$,0.type%,,ip|
00000d30  74 72 25 2c 2c 2c 2c 70  6f 73 25 0d 09 88 05 e1  |tr%,,,,pos%.....|
00000d40  0d 09 9c 17 dd f2 63 6c  6f 73 65 74 65 6d 70 6c  |......closetempl|
00000d50  61 74 65 66 69 6c 65 0d  09 a6 1a c8 99 22 57 69  |atefile......"Wi|
00000d60  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000d70  22 0d 09 b0 05 e1 0d 09  c4 36 dd a4 73 70 72 69  |"........6..spri|
00000d80  74 65 69 63 6f 6e 28 77  69 6e 64 6f 77 2c 78 30  |teicon(window,x0|
00000d90  2c 79 30 2c 78 31 2c 79  31 2c 66 6c 61 67 73 2c  |,y0,x1,y1,flags,|
00000da0  73 70 74 72 2c 73 6e 61  6d 65 24 29 0d 09 ce 1e  |sptr,sname$)....|
00000db0  de 71 25 21 32 34 a9 73  6e 61 6d 65 24 2b 31 3a  |.q%!24.sname$+1:|
00000dc0  71 25 21 32 38 3d 73 70  74 72 0d 09 d8 21 71 25  |q%!28=sptr...!q%|
00000dd0  21 33 32 3d a9 73 6e 61  6d 65 24 2b 31 3a 24 71  |!32=.sname$+1:$q|
00000de0  25 21 32 34 3d 73 6e 61  6d 65 24 0d 09 e2 27 3d  |%!24=sname$...'=|
00000df0  a4 69 63 6f 6e 62 6c 6b  28 77 69 6e 64 6f 77 2c  |.iconblk(window,|
00000e00  78 30 2c 79 30 2c 78 31  2c 79 31 2c 66 6c 61 67  |x0,y0,x1,y1,flag|
00000e10  73 29 0d 09 f6 27 dd a4  69 63 6f 6e 62 6c 6b 28  |s)...'..iconblk(|
00000e20  77 69 6e 64 6f 77 2c 78  30 2c 79 30 2c 78 31 2c  |window,x0,y0,x1,|
00000e30  79 31 2c 66 6c 61 67 73  29 0d 0a 00 09 ea 69 63  |y1,flags).....ic|
00000e40  6f 6e 0d 0a 0a 0e 21 71  25 3d 77 69 6e 64 6f 77  |on....!q%=window|
00000e50  0d 0a 14 13 71 25 21 34  3d 78 30 3a 71 25 21 38  |....q%!4=x0:q%!8|
00000e60  3d 79 30 0d 0a 1e 15 71  25 21 31 32 3d 78 31 3a  |=y0....q%!12=x1:|
00000e70  71 25 21 31 36 3d 79 31  0d 0a 28 0f 71 25 21 32  |q%!16=y1..(.q%!2|
00000e80  30 3d 66 6c 61 67 73 0d  0a 32 20 c8 99 22 57 69  |0=flags..2 .."Wi|
00000e90  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00000ea0  71 25 b8 69 63 6f 6e 0d  0a 3c 09 3d 69 63 6f 6e  |q%.icon..<.=icon|
00000eb0  0d 0a 50 10 dd a4 67 6e  61 6d 65 28 70 74 72 29  |..P...gname(ptr)|
00000ec0  0d 0a 5a 09 66 24 3d 22  22 0d 0a 64 16 c8 95 3f  |..Z.f$=""..d...?|
00000ed0  70 74 72 3c 3e 30 80 3f  70 74 72 3c 3e 31 33 0d  |ptr<>0.?ptr<>13.|
00000ee0  0a 6e 16 66 24 3d 66 24  2b bd 3f 70 74 72 3a 70  |.n.f$=f$+.?ptr:p|
00000ef0  74 72 2b 3d 31 0d 0a 78  05 ce 0d 0a 82 07 3d 66  |tr+=1..x......=f|
00000f00  24 0d 0a 96 35 dd f2 69  63 6f 6e 5f 70 75 74 64  |$...5..icon_putd|
00000f10  61 74 61 28 71 25 2c 77  68 61 6e 64 6c 65 25 2c  |ata(q%,whandle%,|
00000f20  69 68 61 6e 64 6c 65 25  2c 64 61 74 61 24 2c 72  |ihandle%,data$,r|
00000f30  65 64 72 61 77 29 0d 0a  a0 11 71 25 21 30 3d 77  |edraw)....q%!0=w|
00000f40  68 61 6e 64 6c 65 25 0d  0a aa 11 71 25 21 34 3d  |handle%....q%!4=|
00000f50  69 68 61 6e 64 6c 65 25  0d 0a b4 1d c8 99 22 57  |ihandle%......"W|
00000f60  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00000f70  22 2c 2c 71 25 0d 0a be  12 24 28 71 25 21 32 38  |",,q%....$(q%!28|
00000f80  29 3d 64 61 74 61 24 0d  0a c8 0c e7 72 65 64 72  |)=data$.....redr|
00000f90  61 77 8c 0d 0a d2 38 c8  99 22 57 69 6d 70 5f 46  |aw....8.."Wimp_F|
00000fa0  6f 72 63 65 52 65 64 72  61 77 22 2c 77 68 61 6e  |orceRedraw",whan|
00000fb0  64 6c 65 25 2c 71 25 21  38 2c 71 25 21 31 32 2c  |dle%,q%!8,q%!12,|
00000fc0  71 25 21 31 36 2c 71 25  21 32 30 0d 0a dc 05 cd  |q%!16,q%!20.....|
00000fd0  0d 0a e6 05 e1 0d 0a fa  1a dd f2 69 6e 74 65 72  |...........inter|
00000fe0  61 63 74 69 76 65 5f 68  65 6c 70 28 71 25 29 0d  |active_help(q%).|
00000ff0  0b 04 07 ea 74 24 0d 0b  0e 0c c8 8e 71 25 21 33  |....t$......q%!3|
00001000  32 ca 0d 0b 18 07 c9 2d  32 0d 0b 22 77 74 24 3d  |2......-2.."wt$=|
00001010  22 54 68 69 73 20 69 73  20 74 68 65 20 53 74 61  |"This is the Sta|
00001020  6d 70 20 69 63 6f 6e 2e  7c 4d 44 72 61 67 67 69  |mp icon.|MDraggi|
00001030  6e 67 20 61 20 66 69 6c  65 20 74 6f 20 74 68 69  |ng a file to thi|
00001040  73 20 69 63 6f 6e 20 77  69 6c 6c 20 64 61 74 65  |s icon will date|
00001050  20 73 74 61 6d 70 20 74  68 65 20 66 69 6c 65 20  | stamp the file |
00001060  77 69 74 68 20 74 68 65  20 63 75 72 72 65 6e 74  |with the current|
00001070  20 74 69 6d 65 20 61 6e  64 20 64 61 74 65 2e 22  | time and date."|
00001080  0d 0b 2c 05 cb 0d 0b 36  0c e7 74 24 3c 3e 22 22  |..,....6..t$<>""|
00001090  8c 0d 0b 37 0e 71 25 21  31 32 3d 71 25 21 38 0d  |...7.q%!12=q%!8.|
000010a0  0b 38 0e 71 25 21 31 36  3d 26 35 30 33 0d 0b 39  |.8.q%!16=&503..9|
000010b0  12 24 28 71 25 2b 32 30  29 3d 74 24 2b bd 30 0d  |.$(q%+20)=t$+.0.|
000010c0  0b 3a 13 21 71 25 3d 28  32 35 2b a9 74 24 29 80  |.:.!q%=(25+.t$).|
000010d0  ac 33 0d 0b 3b 23 c8 99  22 57 69 6d 70 5f 53 65  |.3..;#.."Wimp_Se|
000010e0  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 71 25  |ndMessage",17,q%|
000010f0  2c 71 25 21 34 0d 0b 3c  05 cd 0d 0b 54 05 e1 0d  |,q%!4..<....T...|
00001100  ff 74 6f 20 74 68 69 73  20 69 63 6f 6e 20 77 69  |.to this icon wi|
00001110  6c 6c 20 64 61 74 65 20  73 74 61 6d 70 20 74 68  |ll date stamp th|
00001120  65 20 66 69 6c 65 20 77  69 74 68 20 74 68 65 20  |e file with the |
00001130  63 75 72 72 65 6e 74 20  74 69 6d 65 20 61 6e 64  |current time and|
00001140  20 64 61 74 65 2e 22 0d  0b 2c 05 cb 0d 0b 36 0e  | date."..,....6.|
00001150  e7 20 74 24 3c 3e 22 22  20 8c 0d 0b 37 0e 71 25  |. t$<>"" ...7.q%|
00001160  21 31 32 3d 71 25 21 38  0d 0b 38 0e 71 25 21 31  |!12=q%!8..8.q%!1|
00001170  36 3d 26 35 30 33 0d 0b  39 12 24 28 71 25 2b 32  |6=&503..9.$(q%+2|
00001180  30 29 3d 74 24 2b bd 30  0d 0b 3a 16 21 71 25 3d  |0)=t$+.0..:.!q%=|
00001190  28 32 35 2b a9 74 24 29  20 80 20 ac 20 33 0d 0b  |(25+.t$) . . 3..|
000011a0  3b 24 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |;$.. "Wimp_SendM|
000011b0  65 73 73 61 67 65 22 2c  31 37 2c 71 25 2c 71 25  |essage",17,q%,q%|
000011c0  21 34 0d 0b 3c 05 cd 0d  0b 54 05 e1 0d ff        |!4..<....T....|
000011ce