,ț"<SmallHelp$Dir>.WimpLib":�initlibrary
Appname$="Small Help"
'Appdir$=�systemvar("SmallHelp$Dir")
(� � �closemessages:�error:�
2
�initwimp
<
�initprog
Fquit%=�
P�
Z
 �poll
d) ș"OS_ReadMonotonicTime" � new_time%
n! ș"OS_Mouse" � new_x%,new_y%
x2 � �(old_x%-new_x%)<=8 � �(old_y%-new_y%)<=8 �
�:  � new_time%-old_time%>delay% � win_open%=� � �sendhm
�g  � new_time%-old_time%-delay%>goaway% � win_open%=� � goaway%>0 � �closewin(helpbox%):win_open%=-2
� �
�5  old_time%=new_time%:old_x%=new_x%:old_y%=new_y%
�3  � win_open% � �closewin(helpbox%):win_open%=�
� �
� � �(-31) �
�   � �-1 � � �-2 � �goiconbar
�9  � �(�-1 � �-2) � �sendhm:old_time%=new_time%-delay%
� �
�� quit%
�ș"Wimp_CloseDown"
��closemessages

�



��initwimp

":� �lower(�GetEnv)="-iconbar" � iconbar%=� � iconbar%=�

,!� messagelist% 256:messptr%=0

6)�notemessage(&503):�notemessage(&502)

@�notemessage(0)

J�openmessages

TQș "Wimp_Initialise",310,&4B534154,Appname$,messagelist% � wimpversion,handle

^Gindl%=1024:menul%=1024:� b% 2048,ind% indl%,menu% menul%,wspc% &800

hcurmenu%=-1

r!version$=�msgtoken("Version")

|0shortname$="":longname$=�msgtoken("Purpose")

�#helpbox%=�loadtemplate("Box",1)

�(progwin%=�loadtemplate("ProgInfo",1)

�&optwin%=�loadtemplate("Options",1)

�%colwin%=�loadtemplate("Colour",1)

�%�seticontext(progwin%,0,Appname$)

�&�seticontext(progwin%,1,longname$)

�%�seticontext(progwin%,3,version$)

�=quitmenu%=�createmenu("Quit|Icon Bar only|Whole program")

�quitoptions%=options%

�Libmenu%=�createmenu("Small Help|Info]>progwin%|Options|Quit]>quitmenu%")

� iboptions%=options%:ibar%=-1

�� iconbar% � �goiconbar

��

��initprog
� option_b% 8
&
�loadopts
0o_delay% =delay%
:o_goaway%=goaway%
Do_bcol%  =(cols%>>4)
No_fcol%  =cols%�15
Xo_hbox%  =hbox%
b(ș"OS_ReadMonotonicTime" � old_time%
l ș"OS_Mouse" � old_x%,old_y%
vwin_open%=�
�menuopen%=�
��
�
���goiconbar
�iconbar%=�
�/ibar%=�CreateIconBarIcon("!SmallHelp","",1)
��
�
�
��poll
� ș"Wimp_Poll",0,b% � reason%
�Ȏ reason% �
�= � 2:ș"Wimp_OpenWindow",,b%:� !b%=helpbox% � win_open%=�
�> � 3:ș"Wimp_CloseWindow",,b%:� !b%=helpbox% � win_open%=�
! � 6:�click(b%!8,b%!12,b%!16)
% � 8:�processkey(b%!0,b%!4,b%!24)
 � 9:�menu_c(b%!0,b%!4)
  � 17,18:�recieve(b%!16)
*�
4�
>
H!��processkey(win%,icon%,key%)
R� a$
\4� win%=optwin% �(key%=8 � key%=&7F � key%=&18B)�
fa$=�geticontext(win%,icon%)
p:� �a$=0 �a$<>"0"�a$<>"00"� �seticontext(win%,icon%,"")
z�
� ș"Wimp_ProcessKey",key%
��
��
�
���recieve(mess)
�� a$
�
Ȏ mess �
� � 0:quit%=�
�) � &502:�:�readhelp(b%!32,b%!36,b%!4)
�& � &503:�drawhelp(�string0(b%+20))
��
��
�
%� progwin%,">Hpw", optwin%,">How"
@� 0 ,">How0", 1 ,">How1", 2 ,">How2", 3 ,">How3", 4 ,">How4"
@� 5 ,">How5", 6 ,">How6", 7 ,">How7", 8 ,">How8", 9 ,">How9"
$A� 10,">How10",11,">How11",12,">How12",13,">How13",14,">How14"
.A� 15,">How15",16,">How16",17,">How17",18,">How18",19,">How19"
8B� 20,">How20",21,">How21",22,">How22",colwin%,">Hcw",-2,">Hib"
B� -1,-1
L� ibmenu%,-1,-1,-1
V� 2,0,-1,">HMhide"
`� 2,1,-1,">HMall"
j� -2,-2,-2,-2
t
~��click(bt%,win%,icon%)
�� a$
�� win%=-2 � icon%=ibar% �
� � bt%=2 �
�  �ibmenu:menuopen%=3
� �
�  �openopts
� �
��
�� win%=optwin% � bt%<>2 �
� !b%=optwin%
�! ș "Wimp_GetWindowState",,b%
�� � icon%=3 � icon%=5 � a$=�geticontext(optwin%,4):� �a$=0 � a$<>"0" � �seticontext(optwin%,4,"OFF"):o_delay%=1000 � o_delay%=�a$
| � icon%=6 � icon%=8 � a$=�geticontext(optwin%,7):� �a$=0 � �seticontext(optwin%,7,"OFF"):o_goaway%=1000 � o_goaway%=�a$

 Ȏ icon% �
%  � 0:�getopts:�closewin(optwin%)
/  � 1:�getopts:�saveopts:�closewin(optwin%)
(  � 2:�closewin(optwin%)
2J  � 3:�  o_delay%>0   �  o_delay%-=1:�seticontext(optwin%,4,�o_delay%)
<  � 5:�  o_delay%<1000�
Fm          o_delay%+=1:� o_delay%=1000 � �seticontext(optwin%,4,"OFF") � �seticontext(optwin%,4,�o_delay%)
P         �
ZK  � 6:� o_goaway%>1   � o_goaway%-=1:�seticontext(optwin%,7,�o_goaway%)
d  � 8:� o_goaway%<1000 �
no          o_goaway%+=1:� o_goaway%=1000� �seticontext(optwin%,7,"OFF") � �seticontext(optwin%,7,�o_goaway%)
x         �
�`  � 9:� o_fcol%>0 � o_fcol%-=1:�seticontext(optwin%,17,�o_fcol%):�colour(optwin%,17,o_fcol%)
�`  �10:� o_fcol%<15� o_fcol%+=1:�seticontext(optwin%,17,�o_fcol%):�colour(optwin%,17,o_fcol%)
�7  �11:�menu(colwin%,b%!4+432,b%!16-140):menuopen%=1
�`  �12:� o_bcol%>0 � o_bcol%-=1:�seticontext(optwin%,18,�o_bcol%):�colour(optwin%,18,o_bcol%)
�`  �13:� o_bcol%<15� o_bcol%+=1:�seticontext(optwin%,18,�o_bcol%):�colour(optwin%,18,o_bcol%)
�7  �14:�menu(colwin%,b%!4+432,b%!16-200):menuopen%=2
� �
��
�B� win%=colwin% � bt%<>2 � �menu_c(icon%,-1):�closewin(colwin%)
��
�
���menu_c(item%,subitem%)
�Ȏ menuopen% �
� 1:o_fcol%=item%-1
,       �seticontext(optwin%,17,�o_fcol%)
&       �colour(optwin%,17,o_fcol%)
"� 2:o_bcol%=item%-1
,,       �seticontext(optwin%,18,�o_bcol%)
6&       �colour(optwin%,18,o_bcol%)
@� 3:
J Ȏ item% �
T  � 1:�openopts
^
  � 2:
h   Ȏ subitem% �
r    � -1,0:iconbar%=�
|$           �deleteicon(-2,ibar%)
�!           �closewin(optwin%)
�    � 1:quit%=�
�   �
� �
��
��
�
���openopts
�o_delay% =delay%
�o_goaway%=goaway%
�o_bcol%  =(cols%>>4)
�o_fcol%  =cols%�15
�o_hbox%  =hbox%
W� o_delay%<1000 � �seticontext(optwin%,4,�o_delay%) � �seticontext(optwin%,4,"OFF")
W� o_goaway%<1000� �seticontext(optwin%,7,�o_goaway%)� �seticontext(optwin%,7,"OFF")
)�change(optwin%,15,21,2+(o_hbox%>>1))
&(�change(optwin%,16,21,2+(o_hbox%�1))
0%�seticontext(optwin%,17,�o_fcol%)
:%�seticontext(optwin%,18,�o_bcol%)
D�colour(optwin%,17,o_fcol%)
N�colour(optwin%,18,o_bcol%)
X�openwin(optwin%)
b�
l
v��saveopts
�;!option_b%=delay%+(goaway%<<10)+(hbox%<<20)+(cols%<<24)
�3�"Save "+Appdir$+".Options "+�~option_b%+" + 4"
�'�"SetType "+Appdir$+".Options Data"
��
�
���loadopts
�,�"Load "+Appdir$+".Options "+�~option_b%
�a%=!option_b%
�(delay%=a%�&3FF:goaway%=(a%>>10)�&3FF
�(hbox%=(a%>>20)�&F:cols%=(a%>>24)�&FF
��
�
�
��getopts
� a$
a$=�geticontext(optwin%,4)
4� �a$=0 � a$<>"0" � o_delay%=1000 � o_delay%=�a$
 a$=�geticontext(optwin%,7)
*,� �a$=0 � o_goaway%=1000 � o_goaway%=�a$
4
o_hbox%=0
>+� �geticonstate(optwin%,15) � o_hbox%=2
H+� �geticonstate(optwin%,16) � o_hbox%=1
Rdelay% =o_delay%
\goaway%=o_goaway%
f cols%  =(o_bcol%<<4)+o_fcol%
phbox%  =o_hbox%
z�
�
���sendhm
�� a%,i%
�0!b%=40:b%!4=handle:b%!8=0:b%!12=0:b%!16=&502
�"ș"Wimp_GetPointerInfo",,b%+20
�/� b%!32=-1 � �drawhelp("\TBackground.|M"):�
�� b%!32=-2 �
�2 ș"Wimp_SendMessage",18,b%,b%!32,b%!36 � ,,a%
�
 � a%=0 �
�   �drawhelp("\TIcon Bar.|M")
� �
�0  ș"TaskManager_TaskNameFromHandle",a% � i%
�-  �drawhelp("\T"+�string0(i%)+" icon.|M")
	 �
	�
	$ș"Wimp_SendMessage",17,b%,b%!32
	$�
	.�
	8
	B��drawhelp(text$)
	L� ic%,v$
	V'text$=�convert_help(text$,�(text$))
	`)length%=�(text$):width%=16+16*length%
	j�deleteicon(helpbox%,0)
	tv$=�msgtoken("V"+�hbox%)
	~Fic%=�createicon(helpbox%,0,0,width%,44,text$,v$,cols%,0,0,%110100)
	�)�resizewinto(helpbox%,0,0,width%,-44)
	�� new_x%+width%<1280 �
	�* �openwinat(helpbox%,new_x%+24,new_y%)
	��
	�/ �openwinat(helpbox%,1279-width%,new_y%-32)
	��
	�win_open%=�
	��
	�
	�ݤconvert_help(a$,l%)
	�� a%,b$,c$
	�a%=1:b$=""
�

c$=�a$,a%,1)
� c$="\" �

 a%+=1
(! b$+=�msgtoken("T"+�a$,a%,1))
2�
< � c$<>"|" � b$+=c$
F�
P	a%+=1
Z� a%>l% � c$="|"
d=b$
n
x ��change(!b%,b%!4,bit%,tog%)
�
� a1%,a2%
�a1%=tog%�1:a2%=tog%>>1
�ș "Wimp_GetIconState",,b%
�"b%!8=a1%<<bit%:b%!12=a2%<<bit%
�ș "Wimp_SetIconState",,b%
��
�
���colour(!b%,b%!4,a1%)
�	� a2%
�%� a1%>=4 � a1%<=8 � a2%=0 � a2%=7
�ș "Wimp_GetIconState",,b%
�,b%!8=(a1%<<28)+(a2%<<24):b%!12=&FF000000
�ș "Wimp_SetIconState",,b%
�
�

00000000  0d 00 0a 2c c8 9b 22 3c  53 6d 61 6c 6c 48 65 6c  |...,.."<SmallHel|
00000010  70 24 44 69 72 3e 2e 57  69 6d 70 4c 69 62 22 3a  |p$Dir>.WimpLib":|
00000020  f2 69 6e 69 74 6c 69 62  72 61 72 79 0d 00 14 19  |.initlibrary....|
00000030  41 70 70 6e 61 6d 65 24  3d 22 53 6d 61 6c 6c 20  |Appname$="Small |
00000040  48 65 6c 70 22 0d 00 1e  27 41 70 70 64 69 72 24  |Help"...'Appdir$|
00000050  3d a4 73 79 73 74 65 6d  76 61 72 28 22 53 6d 61  |=.systemvar("Sma|
00000060  6c 6c 48 65 6c 70 24 44  69 72 22 29 0d 00 28 1f  |llHelp$Dir")..(.|
00000070  ee 20 85 20 f2 63 6c 6f  73 65 6d 65 73 73 61 67  |. . .closemessag|
00000080  65 73 3a f2 65 72 72 6f  72 3a e0 0d 00 32 0d f2  |es:.error:...2..|
00000090  69 6e 69 74 77 69 6d 70  0d 00 3c 0d f2 69 6e 69  |initwimp..<..ini|
000000a0  74 70 72 6f 67 0d 00 46  0b 71 75 69 74 25 3d a3  |tprog..F.quit%=.|
000000b0  0d 00 50 05 f5 0d 00 5a  0a 20 f2 70 6f 6c 6c 0d  |..P....Z. .poll.|
000000c0  00 64 29 20 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |.d) .."OS_ReadMo|
000000d0  6e 6f 74 6f 6e 69 63 54  69 6d 65 22 20 b8 20 6e  |notonicTime" . n|
000000e0  65 77 5f 74 69 6d 65 25  0d 00 6e 21 20 c8 99 22  |ew_time%..n! .."|
000000f0  4f 53 5f 4d 6f 75 73 65  22 20 b8 20 6e 65 77 5f  |OS_Mouse" . new_|
00000100  78 25 2c 6e 65 77 5f 79  25 0d 00 78 32 20 e7 20  |x%,new_y%..x2 . |
00000110  94 28 6f 6c 64 5f 78 25  2d 6e 65 77 5f 78 25 29  |.(old_x%-new_x%)|
00000120  3c 3d 38 20 80 20 94 28  6f 6c 64 5f 79 25 2d 6e  |<=8 . .(old_y%-n|
00000130  65 77 5f 79 25 29 3c 3d  38 20 8c 0d 00 82 3a 20  |ew_y%)<=8 ....: |
00000140  20 e7 20 6e 65 77 5f 74  69 6d 65 25 2d 6f 6c 64  | . new_time%-old|
00000150  5f 74 69 6d 65 25 3e 64  65 6c 61 79 25 20 80 20  |_time%>delay% . |
00000160  77 69 6e 5f 6f 70 65 6e  25 3d a3 20 8c 20 f2 73  |win_open%=. . .s|
00000170  65 6e 64 68 6d 0d 00 8c  67 20 20 e7 20 6e 65 77  |endhm...g  . new|
00000180  5f 74 69 6d 65 25 2d 6f  6c 64 5f 74 69 6d 65 25  |_time%-old_time%|
00000190  2d 64 65 6c 61 79 25 3e  67 6f 61 77 61 79 25 20  |-delay%>goaway% |
000001a0  80 20 77 69 6e 5f 6f 70  65 6e 25 3d b9 20 80 20  |. win_open%=. . |
000001b0  67 6f 61 77 61 79 25 3e  30 20 8c 20 f2 63 6c 6f  |goaway%>0 . .clo|
000001c0  73 65 77 69 6e 28 68 65  6c 70 62 6f 78 25 29 3a  |sewin(helpbox%):|
000001d0  77 69 6e 5f 6f 70 65 6e  25 3d 2d 32 0d 00 96 06  |win_open%=-2....|
000001e0  20 cc 0d 00 a0 35 20 20  6f 6c 64 5f 74 69 6d 65  | ....5  old_time|
000001f0  25 3d 6e 65 77 5f 74 69  6d 65 25 3a 6f 6c 64 5f  |%=new_time%:old_|
00000200  78 25 3d 6e 65 77 5f 78  25 3a 6f 6c 64 5f 79 25  |x%=new_x%:old_y%|
00000210  3d 6e 65 77 5f 79 25 0d  00 aa 33 20 20 e7 20 77  |=new_y%...3  . w|
00000220  69 6e 5f 6f 70 65 6e 25  20 8c 20 f2 63 6c 6f 73  |in_open% . .clos|
00000230  65 77 69 6e 28 68 65 6c  70 62 6f 78 25 29 3a 77  |ewin(helpbox%):w|
00000240  69 6e 5f 6f 70 65 6e 25  3d a3 0d 00 b4 06 20 cd  |in_open%=..... .|
00000250  0d 00 be 0f 20 e7 20 a6  28 2d 33 31 29 20 8c 0d  |.... . .(-31) ..|
00000260  00 c8 20 20 20 e7 20 a6  2d 31 20 80 20 ac 20 a6  |..   . .-1 . . .|
00000270  2d 32 20 8c 20 f2 67 6f  69 63 6f 6e 62 61 72 0d  |-2 . .goiconbar.|
00000280  00 d2 39 20 20 e7 20 ac  28 a6 2d 31 20 84 20 a6  |..9  . .(.-1 . .|
00000290  2d 32 29 20 8c 20 f2 73  65 6e 64 68 6d 3a 6f 6c  |-2) . .sendhm:ol|
000002a0  64 5f 74 69 6d 65 25 3d  6e 65 77 5f 74 69 6d 65  |d_time%=new_time|
000002b0  25 2d 64 65 6c 61 79 25  0d 00 dc 06 20 cd 0d 00  |%-delay%.... ...|
000002c0  e6 0b fd 20 71 75 69 74  25 0d 00 f0 16 c8 99 22  |... quit%......"|
000002d0  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 0d  |Wimp_CloseDown".|
000002e0  00 fa 12 f2 63 6c 6f 73  65 6d 65 73 73 61 67 65  |....closemessage|
000002f0  73 0d 01 04 05 e0 0d 01  0e 04 0d 01 18 0e dd f2  |s...............|
00000300  69 6e 69 74 77 69 6d 70  0d 01 22 3a e7 20 a4 6c  |initwimp..":. .l|
00000310  6f 77 65 72 28 a4 47 65  74 45 6e 76 29 3d 22 2d  |ower(.GetEnv)="-|
00000320  69 63 6f 6e 62 61 72 22  20 8c 20 69 63 6f 6e 62  |iconbar" . iconb|
00000330  61 72 25 3d b9 20 8b 20  69 63 6f 6e 62 61 72 25  |ar%=. . iconbar%|
00000340  3d a3 0d 01 2c 21 de 20  6d 65 73 73 61 67 65 6c  |=...,!. messagel|
00000350  69 73 74 25 20 32 35 36  3a 6d 65 73 73 70 74 72  |ist% 256:messptr|
00000360  25 3d 30 0d 01 36 29 f2  6e 6f 74 65 6d 65 73 73  |%=0..6).notemess|
00000370  61 67 65 28 26 35 30 33  29 3a f2 6e 6f 74 65 6d  |age(&503):.notem|
00000380  65 73 73 61 67 65 28 26  35 30 32 29 0d 01 40 13  |essage(&502)..@.|
00000390  f2 6e 6f 74 65 6d 65 73  73 61 67 65 28 30 29 0d  |.notemessage(0).|
000003a0  01 4a 11 f2 6f 70 65 6e  6d 65 73 73 61 67 65 73  |.J..openmessages|
000003b0  0d 01 54 51 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |..TQ.. "Wimp_Ini|
000003c0  74 69 61 6c 69 73 65 22  2c 33 31 30 2c 26 34 42  |tialise",310,&4B|
000003d0  35 33 34 31 35 34 2c 41  70 70 6e 61 6d 65 24 2c  |534154,Appname$,|
000003e0  6d 65 73 73 61 67 65 6c  69 73 74 25 20 b8 20 77  |messagelist% . w|
000003f0  69 6d 70 76 65 72 73 69  6f 6e 2c 68 61 6e 64 6c  |impversion,handl|
00000400  65 0d 01 5e 47 69 6e 64  6c 25 3d 31 30 32 34 3a  |e..^Gindl%=1024:|
00000410  6d 65 6e 75 6c 25 3d 31  30 32 34 3a de 20 62 25  |menul%=1024:. b%|
00000420  20 32 30 34 38 2c 69 6e  64 25 20 69 6e 64 6c 25  | 2048,ind% indl%|
00000430  2c 6d 65 6e 75 25 20 6d  65 6e 75 6c 25 2c 77 73  |,menu% menul%,ws|
00000440  70 63 25 20 26 38 30 30  0d 01 68 0f 63 75 72 6d  |pc% &800..h.curm|
00000450  65 6e 75 25 3d 2d 31 0d  01 72 21 76 65 72 73 69  |enu%=-1..r!versi|
00000460  6f 6e 24 3d a4 6d 73 67  74 6f 6b 65 6e 28 22 56  |on$=.msgtoken("V|
00000470  65 72 73 69 6f 6e 22 29  0d 01 7c 30 73 68 6f 72  |ersion")..|0shor|
00000480  74 6e 61 6d 65 24 3d 22  22 3a 6c 6f 6e 67 6e 61  |tname$="":longna|
00000490  6d 65 24 3d a4 6d 73 67  74 6f 6b 65 6e 28 22 50  |me$=.msgtoken("P|
000004a0  75 72 70 6f 73 65 22 29  0d 01 86 23 68 65 6c 70  |urpose")...#help|
000004b0  62 6f 78 25 3d a4 6c 6f  61 64 74 65 6d 70 6c 61  |box%=.loadtempla|
000004c0  74 65 28 22 42 6f 78 22  2c 31 29 0d 01 90 28 70  |te("Box",1)...(p|
000004d0  72 6f 67 77 69 6e 25 3d  a4 6c 6f 61 64 74 65 6d  |rogwin%=.loadtem|
000004e0  70 6c 61 74 65 28 22 50  72 6f 67 49 6e 66 6f 22  |plate("ProgInfo"|
000004f0  2c 31 29 0d 01 9a 26 6f  70 74 77 69 6e 25 3d a4  |,1)...&optwin%=.|
00000500  6c 6f 61 64 74 65 6d 70  6c 61 74 65 28 22 4f 70  |loadtemplate("Op|
00000510  74 69 6f 6e 73 22 2c 31  29 0d 01 a4 25 63 6f 6c  |tions",1)...%col|
00000520  77 69 6e 25 3d a4 6c 6f  61 64 74 65 6d 70 6c 61  |win%=.loadtempla|
00000530  74 65 28 22 43 6f 6c 6f  75 72 22 2c 31 29 0d 01  |te("Colour",1)..|
00000540  ae 25 f2 73 65 74 69 63  6f 6e 74 65 78 74 28 70  |.%.seticontext(p|
00000550  72 6f 67 77 69 6e 25 2c  30 2c 41 70 70 6e 61 6d  |rogwin%,0,Appnam|
00000560  65 24 29 0d 01 b8 26 f2  73 65 74 69 63 6f 6e 74  |e$)...&.seticont|
00000570  65 78 74 28 70 72 6f 67  77 69 6e 25 2c 31 2c 6c  |ext(progwin%,1,l|
00000580  6f 6e 67 6e 61 6d 65 24  29 0d 01 c2 25 f2 73 65  |ongname$)...%.se|
00000590  74 69 63 6f 6e 74 65 78  74 28 70 72 6f 67 77 69  |ticontext(progwi|
000005a0  6e 25 2c 33 2c 76 65 72  73 69 6f 6e 24 29 0d 01  |n%,3,version$)..|
000005b0  cc 3d 71 75 69 74 6d 65  6e 75 25 3d a4 63 72 65  |.=quitmenu%=.cre|
000005c0  61 74 65 6d 65 6e 75 28  22 51 75 69 74 7c 49 63  |atemenu("Quit|Ic|
000005d0  6f 6e 20 42 61 72 20 6f  6e 6c 79 7c 57 68 6f 6c  |on Bar only|Whol|
000005e0  65 20 70 72 6f 67 72 61  6d 22 29 0d 01 d6 19 71  |e program")....q|
000005f0  75 69 74 6f 70 74 69 6f  6e 73 25 3d 6f 70 74 69  |uitoptions%=opti|
00000600  6f 6e 73 25 0d 01 e0 4c  69 62 6d 65 6e 75 25 3d  |ons%...Libmenu%=|
00000610  a4 63 72 65 61 74 65 6d  65 6e 75 28 22 53 6d 61  |.createmenu("Sma|
00000620  6c 6c 20 48 65 6c 70 7c  49 6e 66 6f 5d 3e 70 72  |ll Help|Info]>pr|
00000630  6f 67 77 69 6e 25 7c 4f  70 74 69 6f 6e 73 7c 51  |ogwin%|Options|Q|
00000640  75 69 74 5d 3e 71 75 69  74 6d 65 6e 75 25 22 29  |uit]>quitmenu%")|
00000650  0d 01 ea 20 69 62 6f 70  74 69 6f 6e 73 25 3d 6f  |... iboptions%=o|
00000660  70 74 69 6f 6e 73 25 3a  69 62 61 72 25 3d 2d 31  |ptions%:ibar%=-1|
00000670  0d 01 f4 1b e7 20 69 63  6f 6e 62 61 72 25 20 8c  |..... iconbar% .|
00000680  20 f2 67 6f 69 63 6f 6e  62 61 72 0d 01 fe 05 e1  | .goiconbar.....|
00000690  0d 02 08 04 0d 02 12 0e  dd f2 69 6e 69 74 70 72  |..........initpr|
000006a0  6f 67 0d 02 1c 11 de 20  6f 70 74 69 6f 6e 5f 62  |og..... option_b|
000006b0  25 20 38 0d 02 26 0d f2  6c 6f 61 64 6f 70 74 73  |% 8..&..loadopts|
000006c0  0d 02 30 14 6f 5f 64 65  6c 61 79 25 20 3d 64 65  |..0.o_delay% =de|
000006d0  6c 61 79 25 0d 02 3a 15  6f 5f 67 6f 61 77 61 79  |lay%..:.o_goaway|
000006e0  25 3d 67 6f 61 77 61 79  25 0d 02 44 18 6f 5f 62  |%=goaway%..D.o_b|
000006f0  63 6f 6c 25 20 20 3d 28  63 6f 6c 73 25 3e 3e 34  |col%  =(cols%>>4|
00000700  29 0d 02 4e 16 6f 5f 66  63 6f 6c 25 20 20 3d 63  |)..N.o_fcol%  =c|
00000710  6f 6c 73 25 80 31 35 0d  02 58 13 6f 5f 68 62 6f  |ols%.15..X.o_hbo|
00000720  78 25 20 20 3d 68 62 6f  78 25 0d 02 62 28 c8 99  |x%  =hbox%..b(..|
00000730  22 4f 53 5f 52 65 61 64  4d 6f 6e 6f 74 6f 6e 69  |"OS_ReadMonotoni|
00000740  63 54 69 6d 65 22 20 b8  20 6f 6c 64 5f 74 69 6d  |cTime" . old_tim|
00000750  65 25 0d 02 6c 20 c8 99  22 4f 53 5f 4d 6f 75 73  |e%..l .."OS_Mous|
00000760  65 22 20 b8 20 6f 6c 64  5f 78 25 2c 6f 6c 64 5f  |e" . old_x%,old_|
00000770  79 25 0d 02 76 0f 77 69  6e 5f 6f 70 65 6e 25 3d  |y%..v.win_open%=|
00000780  a3 0d 02 80 0f 6d 65 6e  75 6f 70 65 6e 25 3d a3  |.....menuopen%=.|
00000790  0d 02 8a 05 e1 0d 02 94  04 0d 02 9e 0f dd f2 67  |...............g|
000007a0  6f 69 63 6f 6e 62 61 72  0d 02 a8 0e 69 63 6f 6e  |oiconbar....icon|
000007b0  62 61 72 25 3d b9 0d 02  b2 2f 69 62 61 72 25 3d  |bar%=..../ibar%=|
000007c0  a4 43 72 65 61 74 65 49  63 6f 6e 42 61 72 49 63  |.CreateIconBarIc|
000007d0  6f 6e 28 22 21 53 6d 61  6c 6c 48 65 6c 70 22 2c  |on("!SmallHelp",|
000007e0  22 22 2c 31 29 0d 02 bc  05 e1 0d 02 c6 04 0d 02  |"",1)...........|
000007f0  d0 0a dd f2 70 6f 6c 6c  0d 02 da 20 c8 99 22 57  |....poll... .."W|
00000800  69 6d 70 5f 50 6f 6c 6c  22 2c 30 2c 62 25 20 b8  |imp_Poll",0,b% .|
00000810  20 72 65 61 73 6f 6e 25  0d 02 e4 10 c8 8e 20 72  | reason%...... r|
00000820  65 61 73 6f 6e 25 20 ca  0d 02 ee 3d 20 c9 20 32  |eason% ....= . 2|
00000830  3a c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |:.."Wimp_OpenWin|
00000840  64 6f 77 22 2c 2c 62 25  3a e7 20 21 62 25 3d 68  |dow",,b%:. !b%=h|
00000850  65 6c 70 62 6f 78 25 20  8c 20 77 69 6e 5f 6f 70  |elpbox% . win_op|
00000860  65 6e 25 3d b9 0d 02 f8  3e 20 c9 20 33 3a c8 99  |en%=....> . 3:..|
00000870  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00000880  77 22 2c 2c 62 25 3a e7  20 21 62 25 3d 68 65 6c  |w",,b%:. !b%=hel|
00000890  70 62 6f 78 25 20 8c 20  77 69 6e 5f 6f 70 65 6e  |pbox% . win_open|
000008a0  25 3d a3 0d 03 02 21 20  c9 20 36 3a f2 63 6c 69  |%=....! . 6:.cli|
000008b0  63 6b 28 62 25 21 38 2c  62 25 21 31 32 2c 62 25  |ck(b%!8,b%!12,b%|
000008c0  21 31 36 29 0d 03 0c 25  20 c9 20 38 3a f2 70 72  |!16)...% . 8:.pr|
000008d0  6f 63 65 73 73 6b 65 79  28 62 25 21 30 2c 62 25  |ocesskey(b%!0,b%|
000008e0  21 34 2c 62 25 21 32 34  29 0d 03 16 1b 20 c9 20  |!4,b%!24).... . |
000008f0  39 3a f2 6d 65 6e 75 5f  63 28 62 25 21 30 2c 62  |9:.menu_c(b%!0,b|
00000900  25 21 34 29 0d 03 20 1c  20 c9 20 31 37 2c 31 38  |%!4).. . . 17,18|
00000910  3a f2 72 65 63 69 65 76  65 28 62 25 21 31 36 29  |:.recieve(b%!16)|
00000920  0d 03 2a 05 cb 0d 03 34  05 e1 0d 03 3e 04 0d 03  |..*....4....>...|
00000930  48 21 dd f2 70 72 6f 63  65 73 73 6b 65 79 28 77  |H!..processkey(w|
00000940  69 6e 25 2c 69 63 6f 6e  25 2c 6b 65 79 25 29 0d  |in%,icon%,key%).|
00000950  03 52 08 ea 20 61 24 0d  03 5c 34 e7 20 77 69 6e  |.R.. a$..\4. win|
00000960  25 3d 6f 70 74 77 69 6e  25 20 80 28 6b 65 79 25  |%=optwin% .(key%|
00000970  3d 38 20 84 20 6b 65 79  25 3d 26 37 46 20 84 20  |=8 . key%=&7F . |
00000980  6b 65 79 25 3d 26 31 38  42 29 8c 0d 03 66 1f 61  |key%=&18B)...f.a|
00000990  24 3d a4 67 65 74 69 63  6f 6e 74 65 78 74 28 77  |$=.geticontext(w|
000009a0  69 6e 25 2c 69 63 6f 6e  25 29 0d 03 70 3a e7 20  |in%,icon%)..p:. |
000009b0  bb 61 24 3d 30 20 80 61  24 3c 3e 22 30 22 80 61  |.a$=0 .a$<>"0".a|
000009c0  24 3c 3e 22 30 30 22 8c  20 f2 73 65 74 69 63 6f  |$<>"00". .setico|
000009d0  6e 74 65 78 74 28 77 69  6e 25 2c 69 63 6f 6e 25  |ntext(win%,icon%|
000009e0  2c 22 22 29 0d 03 7a 05  cc 0d 03 84 1d 20 c8 99  |,"")..z...... ..|
000009f0  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
00000a00  22 2c 6b 65 79 25 0d 03  8e 05 cd 0d 03 98 05 e1  |",key%..........|
00000a10  0d 03 a2 04 0d 03 ac 13  dd f2 72 65 63 69 65 76  |..........reciev|
00000a20  65 28 6d 65 73 73 29 0d  03 b6 08 ea 20 61 24 0d  |e(mess)..... a$.|
00000a30  03 c0 0d c8 8e 20 6d 65  73 73 20 ca 0d 03 ca 10  |..... mess .....|
00000a40  20 c9 20 30 3a 71 75 69  74 25 3d b9 0d 03 d4 29  | . 0:quit%=....)|
00000a50  20 c9 20 26 35 30 32 3a  f7 3a f2 72 65 61 64 68  | . &502:.:.readh|
00000a60  65 6c 70 28 62 25 21 33  32 2c 62 25 21 33 36 2c  |elp(b%!32,b%!36,|
00000a70  62 25 21 34 29 0d 03 de  26 20 c9 20 26 35 30 33  |b%!4)...& . &503|
00000a80  3a f2 64 72 61 77 68 65  6c 70 28 a4 73 74 72 69  |:.drawhelp(.stri|
00000a90  6e 67 30 28 62 25 2b 32  30 29 29 0d 03 e8 05 cb  |ng0(b%+20)).....|
00000aa0  0d 03 f2 05 e1 0d 03 fc  04 0d 04 06 25 dc 20 70  |............%. p|
00000ab0  72 6f 67 77 69 6e 25 2c  22 3e 48 70 77 22 2c 20  |rogwin%,">Hpw", |
00000ac0  6f 70 74 77 69 6e 25 2c  22 3e 48 6f 77 22 0d 04  |optwin%,">How"..|
00000ad0  10 40 dc 20 30 20 2c 22  3e 48 6f 77 30 22 2c 20  |.@. 0 ,">How0", |
00000ae0  31 20 2c 22 3e 48 6f 77  31 22 2c 20 32 20 2c 22  |1 ,">How1", 2 ,"|
00000af0  3e 48 6f 77 32 22 2c 20  33 20 2c 22 3e 48 6f 77  |>How2", 3 ,">How|
00000b00  33 22 2c 20 34 20 2c 22  3e 48 6f 77 34 22 0d 04  |3", 4 ,">How4"..|
00000b10  1a 40 dc 20 35 20 2c 22  3e 48 6f 77 35 22 2c 20  |.@. 5 ,">How5", |
00000b20  36 20 2c 22 3e 48 6f 77  36 22 2c 20 37 20 2c 22  |6 ,">How6", 7 ,"|
00000b30  3e 48 6f 77 37 22 2c 20  38 20 2c 22 3e 48 6f 77  |>How7", 8 ,">How|
00000b40  38 22 2c 20 39 20 2c 22  3e 48 6f 77 39 22 0d 04  |8", 9 ,">How9"..|
00000b50  24 41 dc 20 31 30 2c 22  3e 48 6f 77 31 30 22 2c  |$A. 10,">How10",|
00000b60  31 31 2c 22 3e 48 6f 77  31 31 22 2c 31 32 2c 22  |11,">How11",12,"|
00000b70  3e 48 6f 77 31 32 22 2c  31 33 2c 22 3e 48 6f 77  |>How12",13,">How|
00000b80  31 33 22 2c 31 34 2c 22  3e 48 6f 77 31 34 22 0d  |13",14,">How14".|
00000b90  04 2e 41 dc 20 31 35 2c  22 3e 48 6f 77 31 35 22  |..A. 15,">How15"|
00000ba0  2c 31 36 2c 22 3e 48 6f  77 31 36 22 2c 31 37 2c  |,16,">How16",17,|
00000bb0  22 3e 48 6f 77 31 37 22  2c 31 38 2c 22 3e 48 6f  |">How17",18,">Ho|
00000bc0  77 31 38 22 2c 31 39 2c  22 3e 48 6f 77 31 39 22  |w18",19,">How19"|
00000bd0  0d 04 38 42 dc 20 32 30  2c 22 3e 48 6f 77 32 30  |..8B. 20,">How20|
00000be0  22 2c 32 31 2c 22 3e 48  6f 77 32 31 22 2c 32 32  |",21,">How21",22|
00000bf0  2c 22 3e 48 6f 77 32 32  22 2c 63 6f 6c 77 69 6e  |,">How22",colwin|
00000c00  25 2c 22 3e 48 63 77 22  2c 2d 32 2c 22 3e 48 69  |%,">Hcw",-2,">Hi|
00000c10  62 22 0d 04 42 0b dc 20  2d 31 2c 2d 31 0d 04 4c  |b"..B.. -1,-1..L|
00000c20  16 dc 20 69 62 6d 65 6e  75 25 2c 2d 31 2c 2d 31  |.. ibmenu%,-1,-1|
00000c30  2c 2d 31 0d 04 56 16 dc  20 32 2c 30 2c 2d 31 2c  |,-1..V.. 2,0,-1,|
00000c40  22 3e 48 4d 68 69 64 65  22 0d 04 60 15 dc 20 32  |">HMhide"..`.. 2|
00000c50  2c 31 2c 2d 31 2c 22 3e  48 4d 61 6c 6c 22 0d 04  |,1,-1,">HMall"..|
00000c60  6a 11 dc 20 2d 32 2c 2d  32 2c 2d 32 2c 2d 32 0d  |j.. -2,-2,-2,-2.|
00000c70  04 74 04 0d 04 7e 1b dd  f2 63 6c 69 63 6b 28 62  |.t...~...click(b|
00000c80  74 25 2c 77 69 6e 25 2c  69 63 6f 6e 25 29 0d 04  |t%,win%,icon%)..|
00000c90  88 08 ea 20 61 24 0d 04  92 1d e7 20 77 69 6e 25  |... a$..... win%|
00000ca0  3d 2d 32 20 80 20 69 63  6f 6e 25 3d 69 62 61 72  |=-2 . icon%=ibar|
00000cb0  25 20 8c 0d 04 9c 0e 20  e7 20 62 74 25 3d 32 20  |% ..... . bt%=2 |
00000cc0  8c 0d 04 a6 19 20 20 f2  69 62 6d 65 6e 75 3a 6d  |.....  .ibmenu:m|
00000cd0  65 6e 75 6f 70 65 6e 25  3d 33 0d 04 b0 06 20 cc  |enuopen%=3.... .|
00000ce0  0d 04 ba 0f 20 20 f2 6f  70 65 6e 6f 70 74 73 0d  |....  .openopts.|
00000cf0  04 c4 06 20 cd 0d 04 ce  05 cd 0d 04 d8 1d e7 20  |... ........... |
00000d00  77 69 6e 25 3d 6f 70 74  77 69 6e 25 20 80 20 62  |win%=optwin% . b|
00000d10  74 25 3c 3e 32 20 8c 0d  04 e2 10 20 21 62 25 3d  |t%<>2 ..... !b%=|
00000d20  6f 70 74 77 69 6e 25 0d  04 ec 21 20 c8 99 20 22  |optwin%...! .. "|
00000d30  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00000d40  61 74 65 22 2c 2c 62 25  0d 04 f6 84 20 e7 20 69  |ate",,b%.... . i|
00000d50  63 6f 6e 25 3d 33 20 84  20 69 63 6f 6e 25 3d 35  |con%=3 . icon%=5|
00000d60  20 8c 20 61 24 3d a4 67  65 74 69 63 6f 6e 74 65  | . a$=.geticonte|
00000d70  78 74 28 6f 70 74 77 69  6e 25 2c 34 29 3a e7 20  |xt(optwin%,4):. |
00000d80  bb 61 24 3d 30 20 80 20  61 24 3c 3e 22 30 22 20  |.a$=0 . a$<>"0" |
00000d90  8c 20 f2 73 65 74 69 63  6f 6e 74 65 78 74 28 6f  |. .seticontext(o|
00000da0  70 74 77 69 6e 25 2c 34  2c 22 4f 46 46 22 29 3a  |ptwin%,4,"OFF"):|
00000db0  6f 5f 64 65 6c 61 79 25  3d 31 30 30 30 20 8b 20  |o_delay%=1000 . |
00000dc0  6f 5f 64 65 6c 61 79 25  3d bb 61 24 0d 05 00 7c  |o_delay%=.a$...||
00000dd0  20 e7 20 69 63 6f 6e 25  3d 36 20 84 20 69 63 6f  | . icon%=6 . ico|
00000de0  6e 25 3d 38 20 8c 20 61  24 3d a4 67 65 74 69 63  |n%=8 . a$=.getic|
00000df0  6f 6e 74 65 78 74 28 6f  70 74 77 69 6e 25 2c 37  |ontext(optwin%,7|
00000e00  29 3a e7 20 bb 61 24 3d  30 20 8c 20 f2 73 65 74  |):. .a$=0 . .set|
00000e10  69 63 6f 6e 74 65 78 74  28 6f 70 74 77 69 6e 25  |icontext(optwin%|
00000e20  2c 37 2c 22 4f 46 46 22  29 3a 6f 5f 67 6f 61 77  |,7,"OFF"):o_goaw|
00000e30  61 79 25 3d 31 30 30 30  20 8b 20 6f 5f 67 6f 61  |ay%=1000 . o_goa|
00000e40  77 61 79 25 3d bb 61 24  0d 05 0a 0f 20 c8 8e 20  |way%=.a$.... .. |
00000e50  69 63 6f 6e 25 20 ca 0d  05 14 25 20 20 c9 20 30  |icon% ....%  . 0|
00000e60  3a f2 67 65 74 6f 70 74  73 3a f2 63 6c 6f 73 65  |:.getopts:.close|
00000e70  77 69 6e 28 6f 70 74 77  69 6e 25 29 0d 05 1e 2f  |win(optwin%).../|
00000e80  20 20 c9 20 31 3a f2 67  65 74 6f 70 74 73 3a f2  |  . 1:.getopts:.|
00000e90  73 61 76 65 6f 70 74 73  3a f2 63 6c 6f 73 65 77  |saveopts:.closew|
00000ea0  69 6e 28 6f 70 74 77 69  6e 25 29 0d 05 28 1c 20  |in(optwin%)..(. |
00000eb0  20 c9 20 32 3a f2 63 6c  6f 73 65 77 69 6e 28 6f  | . 2:.closewin(o|
00000ec0  70 74 77 69 6e 25 29 0d  05 32 4a 20 20 c9 20 33  |ptwin%)..2J  . 3|
00000ed0  3a e7 20 20 6f 5f 64 65  6c 61 79 25 3e 30 20 20  |:.  o_delay%>0  |
00000ee0  20 8c 20 20 6f 5f 64 65  6c 61 79 25 2d 3d 31 3a  | .  o_delay%-=1:|
00000ef0  f2 73 65 74 69 63 6f 6e  74 65 78 74 28 6f 70 74  |.seticontext(opt|
00000f00  77 69 6e 25 2c 34 2c c3  6f 5f 64 65 6c 61 79 25  |win%,4,.o_delay%|
00000f10  29 0d 05 3c 1b 20 20 c9  20 35 3a e7 20 20 6f 5f  |)..<.  . 5:.  o_|
00000f20  64 65 6c 61 79 25 3c 31  30 30 30 8c 0d 05 46 6d  |delay%<1000...Fm|
00000f30  20 20 20 20 20 20 20 20  20 20 6f 5f 64 65 6c 61  |          o_dela|
00000f40  79 25 2b 3d 31 3a e7 20  6f 5f 64 65 6c 61 79 25  |y%+=1:. o_delay%|
00000f50  3d 31 30 30 30 20 8c 20  f2 73 65 74 69 63 6f 6e  |=1000 . .seticon|
00000f60  74 65 78 74 28 6f 70 74  77 69 6e 25 2c 34 2c 22  |text(optwin%,4,"|
00000f70  4f 46 46 22 29 20 8b 20  f2 73 65 74 69 63 6f 6e  |OFF") . .seticon|
00000f80  74 65 78 74 28 6f 70 74  77 69 6e 25 2c 34 2c c3  |text(optwin%,4,.|
00000f90  6f 5f 64 65 6c 61 79 25  29 0d 05 50 0e 20 20 20  |o_delay%)..P.   |
00000fa0  20 20 20 20 20 20 cd 0d  05 5a 4b 20 20 c9 20 36  |      ...ZK  . 6|
00000fb0  3a e7 20 6f 5f 67 6f 61  77 61 79 25 3e 31 20 20  |:. o_goaway%>1  |
00000fc0  20 8c 20 6f 5f 67 6f 61  77 61 79 25 2d 3d 31 3a  | . o_goaway%-=1:|
00000fd0  f2 73 65 74 69 63 6f 6e  74 65 78 74 28 6f 70 74  |.seticontext(opt|
00000fe0  77 69 6e 25 2c 37 2c c3  6f 5f 67 6f 61 77 61 79  |win%,7,.o_goaway|
00000ff0  25 29 0d 05 64 1c 20 20  c9 20 38 3a e7 20 6f 5f  |%)..d.  . 8:. o_|
00001000  67 6f 61 77 61 79 25 3c  31 30 30 30 20 8c 0d 05  |goaway%<1000 ...|
00001010  6e 6f 20 20 20 20 20 20  20 20 20 20 6f 5f 67 6f  |no          o_go|
00001020  61 77 61 79 25 2b 3d 31  3a e7 20 6f 5f 67 6f 61  |away%+=1:. o_goa|
00001030  77 61 79 25 3d 31 30 30  30 8c 20 f2 73 65 74 69  |way%=1000. .seti|
00001040  63 6f 6e 74 65 78 74 28  6f 70 74 77 69 6e 25 2c  |context(optwin%,|
00001050  37 2c 22 4f 46 46 22 29  20 8b 20 f2 73 65 74 69  |7,"OFF") . .seti|
00001060  63 6f 6e 74 65 78 74 28  6f 70 74 77 69 6e 25 2c  |context(optwin%,|
00001070  37 2c c3 6f 5f 67 6f 61  77 61 79 25 29 0d 05 78  |7,.o_goaway%)..x|
00001080  0e 20 20 20 20 20 20 20  20 20 cd 0d 05 82 60 20  |.         ....` |
00001090  20 c9 20 39 3a e7 20 6f  5f 66 63 6f 6c 25 3e 30  | . 9:. o_fcol%>0|
000010a0  20 8c 20 6f 5f 66 63 6f  6c 25 2d 3d 31 3a f2 73  | . o_fcol%-=1:.s|
000010b0  65 74 69 63 6f 6e 74 65  78 74 28 6f 70 74 77 69  |eticontext(optwi|
000010c0  6e 25 2c 31 37 2c c3 6f  5f 66 63 6f 6c 25 29 3a  |n%,17,.o_fcol%):|
000010d0  f2 63 6f 6c 6f 75 72 28  6f 70 74 77 69 6e 25 2c  |.colour(optwin%,|
000010e0  31 37 2c 6f 5f 66 63 6f  6c 25 29 0d 05 8c 60 20  |17,o_fcol%)...` |
000010f0  20 c9 31 30 3a e7 20 6f  5f 66 63 6f 6c 25 3c 31  | .10:. o_fcol%<1|
00001100  35 8c 20 6f 5f 66 63 6f  6c 25 2b 3d 31 3a f2 73  |5. o_fcol%+=1:.s|
00001110  65 74 69 63 6f 6e 74 65  78 74 28 6f 70 74 77 69  |eticontext(optwi|
00001120  6e 25 2c 31 37 2c c3 6f  5f 66 63 6f 6c 25 29 3a  |n%,17,.o_fcol%):|
00001130  f2 63 6f 6c 6f 75 72 28  6f 70 74 77 69 6e 25 2c  |.colour(optwin%,|
00001140  31 37 2c 6f 5f 66 63 6f  6c 25 29 0d 05 96 37 20  |17,o_fcol%)...7 |
00001150  20 c9 31 31 3a f2 6d 65  6e 75 28 63 6f 6c 77 69  | .11:.menu(colwi|
00001160  6e 25 2c 62 25 21 34 2b  34 33 32 2c 62 25 21 31  |n%,b%!4+432,b%!1|
00001170  36 2d 31 34 30 29 3a 6d  65 6e 75 6f 70 65 6e 25  |6-140):menuopen%|
00001180  3d 31 0d 05 a0 60 20 20  c9 31 32 3a e7 20 6f 5f  |=1...`  .12:. o_|
00001190  62 63 6f 6c 25 3e 30 20  8c 20 6f 5f 62 63 6f 6c  |bcol%>0 . o_bcol|
000011a0  25 2d 3d 31 3a f2 73 65  74 69 63 6f 6e 74 65 78  |%-=1:.seticontex|
000011b0  74 28 6f 70 74 77 69 6e  25 2c 31 38 2c c3 6f 5f  |t(optwin%,18,.o_|
000011c0  62 63 6f 6c 25 29 3a f2  63 6f 6c 6f 75 72 28 6f  |bcol%):.colour(o|
000011d0  70 74 77 69 6e 25 2c 31  38 2c 6f 5f 62 63 6f 6c  |ptwin%,18,o_bcol|
000011e0  25 29 0d 05 aa 60 20 20  c9 31 33 3a e7 20 6f 5f  |%)...`  .13:. o_|
000011f0  62 63 6f 6c 25 3c 31 35  8c 20 6f 5f 62 63 6f 6c  |bcol%<15. o_bcol|
00001200  25 2b 3d 31 3a f2 73 65  74 69 63 6f 6e 74 65 78  |%+=1:.seticontex|
00001210  74 28 6f 70 74 77 69 6e  25 2c 31 38 2c c3 6f 5f  |t(optwin%,18,.o_|
00001220  62 63 6f 6c 25 29 3a f2  63 6f 6c 6f 75 72 28 6f  |bcol%):.colour(o|
00001230  70 74 77 69 6e 25 2c 31  38 2c 6f 5f 62 63 6f 6c  |ptwin%,18,o_bcol|
00001240  25 29 0d 05 b4 37 20 20  c9 31 34 3a f2 6d 65 6e  |%)...7  .14:.men|
00001250  75 28 63 6f 6c 77 69 6e  25 2c 62 25 21 34 2b 34  |u(colwin%,b%!4+4|
00001260  33 32 2c 62 25 21 31 36  2d 32 30 30 29 3a 6d 65  |32,b%!16-200):me|
00001270  6e 75 6f 70 65 6e 25 3d  32 0d 05 be 06 20 cb 0d  |nuopen%=2.... ..|
00001280  05 c8 05 cd 0d 05 d2 42  e7 20 77 69 6e 25 3d 63  |.......B. win%=c|
00001290  6f 6c 77 69 6e 25 20 80  20 62 74 25 3c 3e 32 20  |olwin% . bt%<>2 |
000012a0  8c 20 f2 6d 65 6e 75 5f  63 28 69 63 6f 6e 25 2c  |. .menu_c(icon%,|
000012b0  2d 31 29 3a f2 63 6c 6f  73 65 77 69 6e 28 63 6f  |-1):.closewin(co|
000012c0  6c 77 69 6e 25 29 0d 05  dc 05 e1 0d 05 e6 04 0d  |lwin%)..........|
000012d0  05 f0 1c dd f2 6d 65 6e  75 5f 63 28 69 74 65 6d  |.....menu_c(item|
000012e0  25 2c 73 75 62 69 74 65  6d 25 29 0d 05 fa 12 c8  |%,subitem%).....|
000012f0  8e 20 6d 65 6e 75 6f 70  65 6e 25 20 ca 0d 06 04  |. menuopen% ....|
00001300  17 c9 20 31 3a 6f 5f 66  63 6f 6c 25 3d 69 74 65  |.. 1:o_fcol%=ite|
00001310  6d 25 2d 31 0d 06 0e 2c  20 20 20 20 20 20 20 f2  |m%-1...,       .|
00001320  73 65 74 69 63 6f 6e 74  65 78 74 28 6f 70 74 77  |seticontext(optw|
00001330  69 6e 25 2c 31 37 2c c3  6f 5f 66 63 6f 6c 25 29  |in%,17,.o_fcol%)|
00001340  0d 06 18 26 20 20 20 20  20 20 20 f2 63 6f 6c 6f  |...&       .colo|
00001350  75 72 28 6f 70 74 77 69  6e 25 2c 31 37 2c 6f 5f  |ur(optwin%,17,o_|
00001360  66 63 6f 6c 25 29 0d 06  22 17 c9 20 32 3a 6f 5f  |fcol%)..".. 2:o_|
00001370  62 63 6f 6c 25 3d 69 74  65 6d 25 2d 31 0d 06 2c  |bcol%=item%-1..,|
00001380  2c 20 20 20 20 20 20 20  f2 73 65 74 69 63 6f 6e  |,       .seticon|
00001390  74 65 78 74 28 6f 70 74  77 69 6e 25 2c 31 38 2c  |text(optwin%,18,|
000013a0  c3 6f 5f 62 63 6f 6c 25  29 0d 06 36 26 20 20 20  |.o_bcol%)..6&   |
000013b0  20 20 20 20 f2 63 6f 6c  6f 75 72 28 6f 70 74 77  |    .colour(optw|
000013c0  69 6e 25 2c 31 38 2c 6f  5f 62 63 6f 6c 25 29 0d  |in%,18,o_bcol%).|
000013d0  06 40 08 c9 20 33 3a 0d  06 4a 0f 20 c8 8e 20 69  |.@.. 3:..J. .. i|
000013e0  74 65 6d 25 20 ca 0d 06  54 13 20 20 c9 20 31 3a  |tem% ...T.  . 1:|
000013f0  f2 6f 70 65 6e 6f 70 74  73 0d 06 5e 0a 20 20 c9  |.openopts..^.  .|
00001400  20 32 3a 0d 06 68 14 20  20 20 c8 8e 20 73 75 62  | 2:..h.   .. sub|
00001410  69 74 65 6d 25 20 ca 0d  06 72 19 20 20 20 20 c9  |item% ...r.    .|
00001420  20 2d 31 2c 30 3a 69 63  6f 6e 62 61 72 25 3d a3  | -1,0:iconbar%=.|
00001430  0d 06 7c 24 20 20 20 20  20 20 20 20 20 20 20 f2  |..|$           .|
00001440  64 65 6c 65 74 65 69 63  6f 6e 28 2d 32 2c 69 62  |deleteicon(-2,ib|
00001450  61 72 25 29 0d 06 86 21  20 20 20 20 20 20 20 20  |ar%)...!        |
00001460  20 20 20 f2 63 6c 6f 73  65 77 69 6e 28 6f 70 74  |   .closewin(opt|
00001470  77 69 6e 25 29 0d 06 90  13 20 20 20 20 c9 20 31  |win%)....    . 1|
00001480  3a 71 75 69 74 25 3d b9  0d 06 9a 08 20 20 20 cb  |:quit%=.....   .|
00001490  0d 06 a4 06 20 cb 0d 06  ae 05 cb 0d 06 b8 05 e1  |.... ...........|
000014a0  0d 06 c2 04 0d 06 cc 0e  dd f2 6f 70 65 6e 6f 70  |..........openop|
000014b0  74 73 0d 06 d6 14 6f 5f  64 65 6c 61 79 25 20 3d  |ts....o_delay% =|
000014c0  64 65 6c 61 79 25 0d 06  e0 15 6f 5f 67 6f 61 77  |delay%....o_goaw|
000014d0  61 79 25 3d 67 6f 61 77  61 79 25 0d 06 ea 18 6f  |ay%=goaway%....o|
000014e0  5f 62 63 6f 6c 25 20 20  3d 28 63 6f 6c 73 25 3e  |_bcol%  =(cols%>|
000014f0  3e 34 29 0d 06 f4 16 6f  5f 66 63 6f 6c 25 20 20  |>4)....o_fcol%  |
00001500  3d 63 6f 6c 73 25 80 31  35 0d 06 fe 13 6f 5f 68  |=cols%.15....o_h|
00001510  62 6f 78 25 20 20 3d 68  62 6f 78 25 0d 07 08 57  |box%  =hbox%...W|
00001520  e7 20 6f 5f 64 65 6c 61  79 25 3c 31 30 30 30 20  |. o_delay%<1000 |
00001530  8c 20 f2 73 65 74 69 63  6f 6e 74 65 78 74 28 6f  |. .seticontext(o|
00001540  70 74 77 69 6e 25 2c 34  2c c3 6f 5f 64 65 6c 61  |ptwin%,4,.o_dela|
00001550  79 25 29 20 8b 20 f2 73  65 74 69 63 6f 6e 74 65  |y%) . .seticonte|
00001560  78 74 28 6f 70 74 77 69  6e 25 2c 34 2c 22 4f 46  |xt(optwin%,4,"OF|
00001570  46 22 29 0d 07 12 57 e7  20 6f 5f 67 6f 61 77 61  |F")...W. o_goawa|
00001580  79 25 3c 31 30 30 30 8c  20 f2 73 65 74 69 63 6f  |y%<1000. .setico|
00001590  6e 74 65 78 74 28 6f 70  74 77 69 6e 25 2c 37 2c  |ntext(optwin%,7,|
000015a0  c3 6f 5f 67 6f 61 77 61  79 25 29 8b 20 f2 73 65  |.o_goaway%). .se|
000015b0  74 69 63 6f 6e 74 65 78  74 28 6f 70 74 77 69 6e  |ticontext(optwin|
000015c0  25 2c 37 2c 22 4f 46 46  22 29 0d 07 1c 29 f2 63  |%,7,"OFF")...).c|
000015d0  68 61 6e 67 65 28 6f 70  74 77 69 6e 25 2c 31 35  |hange(optwin%,15|
000015e0  2c 32 31 2c 32 2b 28 6f  5f 68 62 6f 78 25 3e 3e  |,21,2+(o_hbox%>>|
000015f0  31 29 29 0d 07 26 28 f2  63 68 61 6e 67 65 28 6f  |1))..&(.change(o|
00001600  70 74 77 69 6e 25 2c 31  36 2c 32 31 2c 32 2b 28  |ptwin%,16,21,2+(|
00001610  6f 5f 68 62 6f 78 25 80  31 29 29 0d 07 30 25 f2  |o_hbox%.1))..0%.|
00001620  73 65 74 69 63 6f 6e 74  65 78 74 28 6f 70 74 77  |seticontext(optw|
00001630  69 6e 25 2c 31 37 2c c3  6f 5f 66 63 6f 6c 25 29  |in%,17,.o_fcol%)|
00001640  0d 07 3a 25 f2 73 65 74  69 63 6f 6e 74 65 78 74  |..:%.seticontext|
00001650  28 6f 70 74 77 69 6e 25  2c 31 38 2c c3 6f 5f 62  |(optwin%,18,.o_b|
00001660  63 6f 6c 25 29 0d 07 44  1f f2 63 6f 6c 6f 75 72  |col%)..D..colour|
00001670  28 6f 70 74 77 69 6e 25  2c 31 37 2c 6f 5f 66 63  |(optwin%,17,o_fc|
00001680  6f 6c 25 29 0d 07 4e 1f  f2 63 6f 6c 6f 75 72 28  |ol%)..N..colour(|
00001690  6f 70 74 77 69 6e 25 2c  31 38 2c 6f 5f 62 63 6f  |optwin%,18,o_bco|
000016a0  6c 25 29 0d 07 58 15 f2  6f 70 65 6e 77 69 6e 28  |l%)..X..openwin(|
000016b0  6f 70 74 77 69 6e 25 29  0d 07 62 05 e1 0d 07 6c  |optwin%)..b....l|
000016c0  04 0d 07 76 0e dd f2 73  61 76 65 6f 70 74 73 0d  |...v...saveopts.|
000016d0  07 80 3b 21 6f 70 74 69  6f 6e 5f 62 25 3d 64 65  |..;!option_b%=de|
000016e0  6c 61 79 25 2b 28 67 6f  61 77 61 79 25 3c 3c 31  |lay%+(goaway%<<1|
000016f0  30 29 2b 28 68 62 6f 78  25 3c 3c 32 30 29 2b 28  |0)+(hbox%<<20)+(|
00001700  63 6f 6c 73 25 3c 3c 32  34 29 0d 07 8a 33 ff 22  |cols%<<24)...3."|
00001710  53 61 76 65 20 22 2b 41  70 70 64 69 72 24 2b 22  |Save "+Appdir$+"|
00001720  2e 4f 70 74 69 6f 6e 73  20 22 2b c3 7e 6f 70 74  |.Options "+.~opt|
00001730  69 6f 6e 5f 62 25 2b 22  20 2b 20 34 22 0d 07 94  |ion_b%+" + 4"...|
00001740  27 ff 22 53 65 74 54 79  70 65 20 22 2b 41 70 70  |'."SetType "+App|
00001750  64 69 72 24 2b 22 2e 4f  70 74 69 6f 6e 73 20 44  |dir$+".Options D|
00001760  61 74 61 22 0d 07 9e 05  e1 0d 07 a8 04 0d 07 b2  |ata"............|
00001770  0e dd f2 6c 6f 61 64 6f  70 74 73 0d 07 bc 2c ff  |...loadopts...,.|
00001780  22 4c 6f 61 64 20 22 2b  41 70 70 64 69 72 24 2b  |"Load "+Appdir$+|
00001790  22 2e 4f 70 74 69 6f 6e  73 20 22 2b c3 7e 6f 70  |".Options "+.~op|
000017a0  74 69 6f 6e 5f 62 25 0d  07 c6 11 61 25 3d 21 6f  |tion_b%....a%=!o|
000017b0  70 74 69 6f 6e 5f 62 25  0d 07 d0 28 64 65 6c 61  |ption_b%...(dela|
000017c0  79 25 3d 61 25 80 26 33  46 46 3a 67 6f 61 77 61  |y%=a%.&3FF:goawa|
000017d0  79 25 3d 28 61 25 3e 3e  31 30 29 80 26 33 46 46  |y%=(a%>>10).&3FF|
000017e0  0d 07 da 28 68 62 6f 78  25 3d 28 61 25 3e 3e 32  |...(hbox%=(a%>>2|
000017f0  30 29 80 26 46 3a 63 6f  6c 73 25 3d 28 61 25 3e  |0).&F:cols%=(a%>|
00001800  3e 32 34 29 80 26 46 46  0d 07 e4 05 e1 0d 07 ee  |>24).&FF........|
00001810  04 0d 07 f8 0d dd f2 67  65 74 6f 70 74 73 0d 08  |.......getopts..|
00001820  02 08 ea 20 61 24 0d 08  0c 1e 61 24 3d a4 67 65  |... a$....a$=.ge|
00001830  74 69 63 6f 6e 74 65 78  74 28 6f 70 74 77 69 6e  |ticontext(optwin|
00001840  25 2c 34 29 0d 08 16 34  e7 20 bb 61 24 3d 30 20  |%,4)...4. .a$=0 |
00001850  80 20 61 24 3c 3e 22 30  22 20 8c 20 6f 5f 64 65  |. a$<>"0" . o_de|
00001860  6c 61 79 25 3d 31 30 30  30 20 8b 20 6f 5f 64 65  |lay%=1000 . o_de|
00001870  6c 61 79 25 3d bb 61 24  0d 08 20 1e 61 24 3d a4  |lay%=.a$.. .a$=.|
00001880  67 65 74 69 63 6f 6e 74  65 78 74 28 6f 70 74 77  |geticontext(optw|
00001890  69 6e 25 2c 37 29 0d 08  2a 2c e7 20 bb 61 24 3d  |in%,7)..*,. .a$=|
000018a0  30 20 8c 20 6f 5f 67 6f  61 77 61 79 25 3d 31 30  |0 . o_goaway%=10|
000018b0  30 30 20 8b 20 6f 5f 67  6f 61 77 61 79 25 3d bb  |00 . o_goaway%=.|
000018c0  61 24 0d 08 34 0d 6f 5f  68 62 6f 78 25 3d 30 0d  |a$..4.o_hbox%=0.|
000018d0  08 3e 2b e7 20 a4 67 65  74 69 63 6f 6e 73 74 61  |.>+. .geticonsta|
000018e0  74 65 28 6f 70 74 77 69  6e 25 2c 31 35 29 20 8c  |te(optwin%,15) .|
000018f0  20 6f 5f 68 62 6f 78 25  3d 32 0d 08 48 2b e7 20  | o_hbox%=2..H+. |
00001900  a4 67 65 74 69 63 6f 6e  73 74 61 74 65 28 6f 70  |.geticonstate(op|
00001910  74 77 69 6e 25 2c 31 36  29 20 8c 20 6f 5f 68 62  |twin%,16) . o_hb|
00001920  6f 78 25 3d 31 0d 08 52  14 64 65 6c 61 79 25 20  |ox%=1..R.delay% |
00001930  3d 6f 5f 64 65 6c 61 79  25 0d 08 5c 15 67 6f 61  |=o_delay%..\.goa|
00001940  77 61 79 25 3d 6f 5f 67  6f 61 77 61 79 25 0d 08  |way%=o_goaway%..|
00001950  66 20 63 6f 6c 73 25 20  20 3d 28 6f 5f 62 63 6f  |f cols%  =(o_bco|
00001960  6c 25 3c 3c 34 29 2b 6f  5f 66 63 6f 6c 25 0d 08  |l%<<4)+o_fcol%..|
00001970  70 13 68 62 6f 78 25 20  20 3d 6f 5f 68 62 6f 78  |p.hbox%  =o_hbox|
00001980  25 0d 08 7a 05 e1 0d 08  84 04 0d 08 8e 0c dd f2  |%..z............|
00001990  73 65 6e 64 68 6d 0d 08  98 0b ea 20 61 25 2c 69  |sendhm..... a%,i|
000019a0  25 0d 08 a2 30 21 62 25  3d 34 30 3a 62 25 21 34  |%...0!b%=40:b%!4|
000019b0  3d 68 61 6e 64 6c 65 3a  62 25 21 38 3d 30 3a 62  |=handle:b%!8=0:b|
000019c0  25 21 31 32 3d 30 3a 62  25 21 31 36 3d 26 35 30  |%!12=0:b%!16=&50|
000019d0  32 0d 08 ac 22 c8 99 22  57 69 6d 70 5f 47 65 74  |2...".."Wimp_Get|
000019e0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 62 25  |PointerInfo",,b%|
000019f0  2b 32 30 0d 08 b6 2f e7  20 62 25 21 33 32 3d 2d  |+20.../. b%!32=-|
00001a00  31 20 8c 20 f2 64 72 61  77 68 65 6c 70 28 22 5c  |1 . .drawhelp("\|
00001a10  54 42 61 63 6b 67 72 6f  75 6e 64 2e 7c 4d 22 29  |TBackground.|M")|
00001a20  3a e1 0d 08 c0 10 e7 20  62 25 21 33 32 3d 2d 32  |:...... b%!32=-2|
00001a30  20 8c 0d 08 ca 32 20 c8  99 22 57 69 6d 70 5f 53  | ....2 .."Wimp_S|
00001a40  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 38 2c 62  |endMessage",18,b|
00001a50  25 2c 62 25 21 33 32 2c  62 25 21 33 36 20 b8 20  |%,b%!32,b%!36 . |
00001a60  2c 2c 61 25 0d 08 d4 0d  20 e7 20 61 25 3d 30 20  |,,a%.... . a%=0 |
00001a70  8c 0d 08 de 20 20 20 f2  64 72 61 77 68 65 6c 70  |....   .drawhelp|
00001a80  28 22 5c 54 49 63 6f 6e  20 42 61 72 2e 7c 4d 22  |("\TIcon Bar.|M"|
00001a90  29 0d 08 e8 06 20 cc 0d  08 f2 30 20 20 c8 99 22  |).... ....0  .."|
00001aa0  54 61 73 6b 4d 61 6e 61  67 65 72 5f 54 61 73 6b  |TaskManager_Task|
00001ab0  4e 61 6d 65 46 72 6f 6d  48 61 6e 64 6c 65 22 2c  |NameFromHandle",|
00001ac0  61 25 20 b8 20 69 25 0d  08 fc 2d 20 20 f2 64 72  |a% . i%...-  .dr|
00001ad0  61 77 68 65 6c 70 28 22  5c 54 22 2b a4 73 74 72  |awhelp("\T"+.str|
00001ae0  69 6e 67 30 28 69 25 29  2b 22 20 69 63 6f 6e 2e  |ing0(i%)+" icon.|
00001af0  7c 4d 22 29 0d 09 06 06  20 cd 0d 09 10 05 cc 0d  ||M").... .......|
00001b00  09 1a 24 c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |..$.."Wimp_SendM|
00001b10  65 73 73 61 67 65 22 2c  31 37 2c 62 25 2c 62 25  |essage",17,b%,b%|
00001b20  21 33 32 0d 09 24 05 cd  0d 09 2e 05 e1 0d 09 38  |!32..$.........8|
00001b30  04 0d 09 42 15 dd f2 64  72 61 77 68 65 6c 70 28  |...B...drawhelp(|
00001b40  74 65 78 74 24 29 0d 09  4c 0c ea 20 69 63 25 2c  |text$)..L.. ic%,|
00001b50  76 24 0d 09 56 27 74 65  78 74 24 3d a4 63 6f 6e  |v$..V'text$=.con|
00001b60  76 65 72 74 5f 68 65 6c  70 28 74 65 78 74 24 2c  |vert_help(text$,|
00001b70  a9 28 74 65 78 74 24 29  29 0d 09 60 29 6c 65 6e  |.(text$))..`)len|
00001b80  67 74 68 25 3d a9 28 74  65 78 74 24 29 3a 77 69  |gth%=.(text$):wi|
00001b90  64 74 68 25 3d 31 36 2b  31 36 2a 6c 65 6e 67 74  |dth%=16+16*lengt|
00001ba0  68 25 0d 09 6a 1b f2 64  65 6c 65 74 65 69 63 6f  |h%..j..deleteico|
00001bb0  6e 28 68 65 6c 70 62 6f  78 25 2c 30 29 0d 09 74  |n(helpbox%,0)..t|
00001bc0  1c 76 24 3d a4 6d 73 67  74 6f 6b 65 6e 28 22 56  |.v$=.msgtoken("V|
00001bd0  22 2b c3 68 62 6f 78 25  29 0d 09 7e 46 69 63 25  |"+.hbox%)..~Fic%|
00001be0  3d a4 63 72 65 61 74 65  69 63 6f 6e 28 68 65 6c  |=.createicon(hel|
00001bf0  70 62 6f 78 25 2c 30 2c  30 2c 77 69 64 74 68 25  |pbox%,0,0,width%|
00001c00  2c 34 34 2c 74 65 78 74  24 2c 76 24 2c 63 6f 6c  |,44,text$,v$,col|
00001c10  73 25 2c 30 2c 30 2c 25  31 31 30 31 30 30 29 0d  |s%,0,0,%110100).|
00001c20  09 88 29 f2 72 65 73 69  7a 65 77 69 6e 74 6f 28  |..).resizewinto(|
00001c30  68 65 6c 70 62 6f 78 25  2c 30 2c 30 2c 77 69 64  |helpbox%,0,0,wid|
00001c40  74 68 25 2c 2d 34 34 29  0d 09 92 1a e7 20 6e 65  |th%,-44)..... ne|
00001c50  77 5f 78 25 2b 77 69 64  74 68 25 3c 31 32 38 30  |w_x%+width%<1280|
00001c60  20 8c 0d 09 9c 2a 20 f2  6f 70 65 6e 77 69 6e 61  | ....* .openwina|
00001c70  74 28 68 65 6c 70 62 6f  78 25 2c 6e 65 77 5f 78  |t(helpbox%,new_x|
00001c80  25 2b 32 34 2c 6e 65 77  5f 79 25 29 0d 09 a6 05  |%+24,new_y%)....|
00001c90  cc 0d 09 b0 2f 20 f2 6f  70 65 6e 77 69 6e 61 74  |..../ .openwinat|
00001ca0  28 68 65 6c 70 62 6f 78  25 2c 31 32 37 39 2d 77  |(helpbox%,1279-w|
00001cb0  69 64 74 68 25 2c 6e 65  77 5f 79 25 2d 33 32 29  |idth%,new_y%-32)|
00001cc0  0d 09 ba 05 cd 0d 09 c4  0f 77 69 6e 5f 6f 70 65  |.........win_ope|
00001cd0  6e 25 3d b9 0d 09 ce 05  e1 0d 09 d8 04 0d 09 e2  |n%=.............|
00001ce0  19 dd a4 63 6f 6e 76 65  72 74 5f 68 65 6c 70 28  |...convert_help(|
00001cf0  61 24 2c 6c 25 29 0d 09  ec 0e ea 20 61 25 2c 62  |a$,l%)..... a%,b|
00001d00  24 2c 63 24 0d 09 f6 0e  61 25 3d 31 3a 62 24 3d  |$,c$....a%=1:b$=|
00001d10  22 22 0d 0a 00 05 f5 0d  0a 0a 10 63 24 3d c1 61  |"".........c$=.a|
00001d20  24 2c 61 25 2c 31 29 0d  0a 14 0e e7 20 63 24 3d  |$,a%,1)..... c$=|
00001d30  22 5c 22 20 8c 0d 0a 1e  0a 20 61 25 2b 3d 31 0d  |"\" ..... a%+=1.|
00001d40  0a 28 21 20 62 24 2b 3d  a4 6d 73 67 74 6f 6b 65  |.(! b$+=.msgtoke|
00001d50  6e 28 22 54 22 2b c1 61  24 2c 61 25 2c 31 29 29  |n("T"+.a$,a%,1))|
00001d60  0d 0a 32 05 cc 0d 0a 3c  17 20 e7 20 63 24 3c 3e  |..2....<. . c$<>|
00001d70  22 7c 22 20 8c 20 62 24  2b 3d 63 24 0d 0a 46 05  |"|" . b$+=c$..F.|
00001d80  cd 0d 0a 50 09 61 25 2b  3d 31 0d 0a 5a 14 fd 20  |...P.a%+=1..Z.. |
00001d90  61 25 3e 6c 25 20 84 20  63 24 3d 22 7c 22 0d 0a  |a%>l% . c$="|"..|
00001da0  64 07 3d 62 24 0d 0a 6e  04 0d 0a 78 20 dd f2 63  |d.=b$..n...x ..c|
00001db0  68 61 6e 67 65 28 21 62  25 2c 62 25 21 34 2c 62  |hange(!b%,b%!4,b|
00001dc0  69 74 25 2c 74 6f 67 25  29 0d 0a 82 0d ea 20 61  |it%,tog%)..... a|
00001dd0  31 25 2c 61 32 25 0d 0a  8c 1a 61 31 25 3d 74 6f  |1%,a2%....a1%=to|
00001de0  67 25 80 31 3a 61 32 25  3d 74 6f 67 25 3e 3e 31  |g%.1:a2%=tog%>>1|
00001df0  0d 0a 96 1e c8 99 20 22  57 69 6d 70 5f 47 65 74  |...... "Wimp_Get|
00001e00  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 25 0d 0a  |IconState",,b%..|
00001e10  a0 22 62 25 21 38 3d 61  31 25 3c 3c 62 69 74 25  |."b%!8=a1%<<bit%|
00001e20  3a 62 25 21 31 32 3d 61  32 25 3c 3c 62 69 74 25  |:b%!12=a2%<<bit%|
00001e30  0d 0a aa 1e c8 99 20 22  57 69 6d 70 5f 53 65 74  |...... "Wimp_Set|
00001e40  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 25 0d 0a  |IconState",,b%..|
00001e50  b4 05 e1 0d 0a be 04 0d  0a c8 1a dd f2 63 6f 6c  |.............col|
00001e60  6f 75 72 28 21 62 25 2c  62 25 21 34 2c 61 31 25  |our(!b%,b%!4,a1%|
00001e70  29 0d 0a d2 09 ea 20 61  32 25 0d 0a dc 25 e7 20  |)..... a2%...%. |
00001e80  61 31 25 3e 3d 34 20 80  20 61 31 25 3c 3d 38 20  |a1%>=4 . a1%<=8 |
00001e90  8c 20 61 32 25 3d 30 20  8b 20 61 32 25 3d 37 0d  |. a2%=0 . a2%=7.|
00001ea0  0a e6 1e c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |..... "Wimp_GetI|
00001eb0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 25 0d 0a f0  |conState",,b%...|
00001ec0  2c 62 25 21 38 3d 28 61  31 25 3c 3c 32 38 29 2b  |,b%!8=(a1%<<28)+|
00001ed0  28 61 32 25 3c 3c 32 34  29 3a 62 25 21 31 32 3d  |(a2%<<24):b%!12=|
00001ee0  26 46 46 30 30 30 30 30  30 0d 0a fa 1e c8 99 20  |&FF000000...... |
00001ef0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00001f00  74 65 22 2c 2c 62 25 0d  0b 04 05 e1 0d ff        |te",,b%.......|
00001f0e