� > !RunImage
� � Michael John Coe 1992
� � Batsoft 1992
(� Mouse speed changer
2:
<� **** Main Program ****
F:
P
�setup
Z	�main
d	�quit
n�
x:
�(� **** Procedures and Functions ****
�:
�4� **** Setup the wimp and inform it of task ****
�:
�� �setup
��vardef
�$block%="TASK"
�6ș "Wimp_Initialise",300,!block%,"Rat" � ,taskhnd%
�barhnd%=�iconbar("!Rat")
��loadtemplates
�%�writetotexticon(infohnd%,4,ver$)
�?�writetotexticon(infohnd%,0,"� This program is FreeWare �")
��loadconfig

�openHKG

�

:

" � **** Define Variables ****

,:

6
� �vardef

@ver$="0.01 (06 Jul 1992)"

J� block% 256

T� pollblk% 256

^� errblk% 256

h� menublk% 256

r� infobuff% 1024

|� infospace% 512

�� configbuff% 1024

�� configspace% 1024

�� HKGbuff% 128

�� HKGspace% 32

�mslow%=�

�configopen%=�

��

�:

�9� **** Puts icon on icon_bar - needs sprite name ****

�:

�� �iconbar(spname$)

�� spname% 16

�!block%=-1
block%!4=0
block%!8=0
block%!12=64
&block%!16=68
0/block%!20=%01110000000000000011000100111010
:block%!24=spname%
Dblock%!28=1
Nblock%!32=�(spname$)+1
X$(spname%)=spname$+�(0)
b+ș "Wimp_CreateIcon",,block% � iconhnd%
l
=iconhnd%
v:
�A� **** Unexpected error handler - shouldn't be needed!!! ****
�:
�� �error
�!errblk%=�
�A$(errblk%+4)="Internal error code "+�(�)+" "+�(�)+" "+�$+�(0)
�)ș "Wimp_ReportError",errblk%,1,"Rat"
�	�quit
��
�:
�.� **** Closes down wimp and ends task ****
�:
�� �quit
��setmousemult(fast%)
$block%="TASK"
(ș "Wimp_CloseDown",taskhnd%,!block%
ș "OS_Exit"
 �
*:
4#� **** Loads all Templates ****
>:
H� �loadtemplates
R� tname% 32
\1ș "Wimp_OpenTemplate",,"<Rat$Dir>.Templates"
f$(tname%)="Info"+�(0)
pKș "Wimp_LoadTemplate",,infobuff%,infospace%,infospace%+512,-1,tname%,0
z0ș "Wimp_CreateWindow",,infobuff% � infohnd%
�$(tname%)="Config"+�(0)
�Rș "Wimp_LoadTemplate",,configbuff%,configspace%,configspace%+1024,-1,tname%,0
�4ș "Wimp_CreateWindow",,configbuff% � confighnd%
�$(tname%)="HKGrabber"+�(0)
�Iș "Wimp_LoadTemplate",,HKGbuff%,HKGspace%,HKGspace%+1024,-1,tname%,0
�.ș "Wimp_CreateWindow",,HKGbuff% � HKGhnd%
��
�:
�!� **** Main polling loop ****
�:
�� �main
�
exit=�
��
!pollblk%=0
mask%=%00000001100000110001
+ș "Wimp_Poll",mask%,pollblk% � reason%
$�action(reason%)
.� exit=�
8�
B:
L0� **** Calls req'd code for wimp-reason ****
V:
`� �action(reason%)
jȎ reason% �
t� 0 : �null
~� 2 : �openwin
�� 3 : �closewin
�� 6 : �mouseclick
�� 8 : �keypressed
�� 9 : �menusel
�� 17 : �umessage
�� 18 : �umessage
�� 19 : �umessage
��
��
�:
�0� **** Respond to open-window event (2) ****
�:
� �openwin

"ș "Wimp_OpenWindow",,pollblk%
*� !pollblk%=confighnd% � configopen%=�
�
(:
21� **** Respond to close-window event (3) ****
<:
F� �closewin
P#ș "Wimp_CloseWindow",,pollblk%
Z*� !pollblk%=confighnd% � configopen%=�
d�
n:
x0� **** Respond to mouse-click event (6) ****
�:
�� �mouseclick
�mx%=!pollblk%
�my%=pollblk%!4
�but%=pollblk%!8
�whnd%=pollblk%!12
�ihnd%=pollblk%!16
�� whnd%=-2 �
�� but%=4 � �togglespeed
�� but%=2 � �createiconmenu
�*� but%=1 � configopen%=� � �openconfig
��
�� whnd%=confighnd% �
� but%=4 �
� ihnd%=4 � �getnewconfig
� ihnd%=5 � �saveconfig
".� ihnd%=6 � !pollblk%=confighnd%:�closewin
,�
6�
@�
J:
T0� **** Respond to key-pressed event (8) ****
^:
h� �keypressed
rwhnd%=!pollblk%
|ihnd%=pollblk%!4
�key%=pollblk%!24
�grabbed%=�
�)� key%=&1AC � �togglespeed:grabbed%=�
�� whnd%=confighnd% �
�V� ihnd%=2 � key%=&0D � ș "Wimp_SetCaretPosition",confighnd%,3,0,0,-1,0:grabbed%=�
�3� ihnd%=3 � key%=&0D � �getnewconfig:grabbed%=�
��
�� grabbed%=� �
�ș "Wimp_ProcessKey",key%
��
��
�:
�3� **** Respond to menu-selection event (9) ****
:
� �menusel
� currmenu$="icon" �
&� !pollblk%=1 � �quit
0�
:$ș "Wimp_GetPointerInfo",,block%
D"� block%!8=1 � �createiconmenu
N�
X:
b/� **** Respond to message events (17,18,19)
l:
v� �umessage
�� pollblk%!16=0 � exit=�:�
��
�:
�V� **** Creates and displays the icon-bar menu (Menu clicked on icon-bar icon) ****
�:
�� �createiconmenu
�currmenu$="icon"
�items=2:lines=0
�$menublk%="Rat"+�(0)
�menublk%?12=7
�menublk%?13=2
�menublk%?14=7
�menublk%?15=0
menublk%!16=96
menublk%!20=44
menublk%!24=0
 menublk%!28=0
*menublk%!32=infohnd%
41menublk%!36=%00000111000000000000000000100001
>$(menublk%+40)="Info"+�(0)
Hmenublk%!52=%10000000
Rmenublk%!56=-1
\1menublk%!60=%00000111000000000000000000100001
f$(menublk%+64)="Quit"+�(0)
pmenux%=mx%-64
z%menuy%=(96+(items*44)+(lines*24))
�0ș "Wimp_CreateMenu",,menublk%,menux%,menuy%
��
�:
�d� **** Writes given string to the indirected text-icon addressed by window and icon handles ****
�:
�)� �writetotexticon(whnd%,ihnd%,text$)
�!block%=whnd%
�block%!4=ihnd%
�"ș "Wimp_GetIconState",,block%
�addr=block%!28
�$(addr)=text$
�!block%=whnd%
�block%!4=ihnd%
	block%!8=0
	block%!12=0
	"ș "Wimp_SetIconState",,block%
	$�
	.:
	84� **** Respond to null processing event (0) ****
	B:
	L� �null
	V�
	`:
	jm� **** Reads string from the indirected text-icon (or writable) addressed by window and icon handles ****
	t:
	~� �rdwrticon(whnd%,ihnd%)
	�!block%=whnd%
	�block%!4=ihnd%
	�"ș "Wimp_GetIconState",,block%
	�addr=block%!28
	�string$=$addr
	�=string$
	�:
	�#� **** Opens Config Window ****
	�:
	�� �openconfig
	�)�writetotexticon(confighnd%,2,�fast%)
	�)�writetotexticon(confighnd%,3,�slow%)
!block%=confighnd%

block%!4=!configbuff%
block%!8=configbuff%!4
block%!12=configbuff%!8
(block%!16=configbuff%!12
2block%!20=configbuff%!16
<block%!24=configbuff%!20
Fblock%!28=-1
P ș "Wimp_OpenWindow",,block%
Z�
d:
nA� **** Changes the icon-bar icon to the sprite specified ****
x:
�� �changeibaricon(spname$)
�$spname%=spname$+�(0)
�6!block%=-1:block%!4=barhnd%:block%!8=0:block%!12=0
�"ș "Wimp_SetIconState",,block%
��
�:
�� **** Load config options
�:
�� �loadconfig
�file%=�("<Rat$Dir>.Config")
�5� file%=0 � � 0,"Who's nicked my config file????"
�fast%=�#file%
�slow%=�#file%
�#file%
�
:
"#� **** Save config options ****
,:
6� �saveconfig
@�getnewconfig
Jfile%=�("<Rat$Dir>.Config")
T�#file%,fast%
^�#file%,slow%
h�#file%
r�
|:
�2� **** Get new config parameters from win ****
�:
�� �getnewconfig
�%fast%=�(�rdwrticon(confighnd%,2))
�%slow%=�(�rdwrticon(confighnd%,3))
�!pollblk%=confighnd%
�
�closewin
��
�:
�8� **** toggles speed of mouse and icon-bar icon ****
�:
�� �togglespeed
�� mslow%=� �
�changeibaricon("!rat")
�setmousemult(fast%)
mslow%=�
&�
0�changeibaricon("!red")
:�setmousemult(slow%)
Dmslow%=�
N�
X�
b:
l)� **** Sets the mouse multiplier ****
v:
�� �setmousemult(mult%)
�
?block%=2
�block%?1=mult%
�block%?2=mult%
�ș "OS_Word",21,block%
��
�:
�$� **** Open Hot-key Grabber ****
�:
�� �openHKG
�!block%=HKGhnd%
�block%!4=-1000
�block%!8=HKGbuff%!4

block%!12=-990

block%!16=HKGbuff%!12

block%!20=0

 block%!24=0

*block%!28=-1

4 ș "Wimp_OpenWindow",,block%

>�

H:

R:

\0� **** Procedure for debugging use only ****

f:

p� �debug

z(ș "Wimp_CommandWindow","Hello"+�(0)

�

�ș "Wimp_CommandWindow",0

��

�:
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 1d f4 20 a9  20 4d 69 63 68 61 65 6c  |e..... . Michael|
00000020  20 4a 6f 68 6e 20 43 6f  65 20 31 39 39 32 0d 00  | John Coe 1992..|
00000030  1e 14 f4 20 a9 20 42 61  74 73 6f 66 74 20 31 39  |... . Batsoft 19|
00000040  39 32 0d 00 28 19 f4 20  4d 6f 75 73 65 20 73 70  |92..(.. Mouse sp|
00000050  65 65 64 20 63 68 61 6e  67 65 72 0d 00 32 05 3a  |eed changer..2.:|
00000060  0d 00 3c 1c f4 20 2a 2a  2a 2a 20 4d 61 69 6e 20  |..<.. **** Main |
00000070  50 72 6f 67 72 61 6d 20  2a 2a 2a 2a 0d 00 46 05  |Program ****..F.|
00000080  3a 0d 00 50 0a f2 73 65  74 75 70 0d 00 5a 09 f2  |:..P..setup..Z..|
00000090  6d 61 69 6e 0d 00 64 09  f2 71 75 69 74 0d 00 6e  |main..d..quit..n|
000000a0  05 e0 0d 00 78 05 3a 0d  00 82 28 f4 20 2a 2a 2a  |....x.:...(. ***|
000000b0  2a 20 50 72 6f 63 65 64  75 72 65 73 20 61 6e 64  |* Procedures and|
000000c0  20 46 75 6e 63 74 69 6f  6e 73 20 2a 2a 2a 2a 0d  | Functions ****.|
000000d0  00 8c 05 3a 0d 00 96 34  f4 20 2a 2a 2a 2a 20 53  |...:...4. **** S|
000000e0  65 74 75 70 20 74 68 65  20 77 69 6d 70 20 61 6e  |etup the wimp an|
000000f0  64 20 69 6e 66 6f 72 6d  20 69 74 20 6f 66 20 74  |d inform it of t|
00000100  61 73 6b 20 2a 2a 2a 2a  0d 00 a0 05 3a 0d 00 aa  |ask ****....:...|
00000110  0c dd 20 f2 73 65 74 75  70 0d 00 b4 0b f2 76 61  |.. .setup.....va|
00000120  72 64 65 66 0d 00 be 12  24 62 6c 6f 63 6b 25 3d  |rdef....$block%=|
00000130  22 54 41 53 4b 22 0d 00  c8 36 c8 99 20 22 57 69  |"TASK"...6.. "Wi|
00000140  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 33  |mp_Initialise",3|
00000150  30 30 2c 21 62 6c 6f 63  6b 25 2c 22 52 61 74 22  |00,!block%,"Rat"|
00000160  20 b8 20 2c 74 61 73 6b  68 6e 64 25 0d 00 d2 1c  | . ,taskhnd%....|
00000170  62 61 72 68 6e 64 25 3d  a4 69 63 6f 6e 62 61 72  |barhnd%=.iconbar|
00000180  28 22 21 52 61 74 22 29  0d 00 dc 12 f2 6c 6f 61  |("!Rat").....loa|
00000190  64 74 65 6d 70 6c 61 74  65 73 0d 00 e6 25 f2 77  |dtemplates...%.w|
000001a0  72 69 74 65 74 6f 74 65  78 74 69 63 6f 6e 28 69  |ritetotexticon(i|
000001b0  6e 66 6f 68 6e 64 25 2c  34 2c 76 65 72 24 29 0d  |nfohnd%,4,ver$).|
000001c0  00 f0 3f f2 77 72 69 74  65 74 6f 74 65 78 74 69  |..?.writetotexti|
000001d0  63 6f 6e 28 69 6e 66 6f  68 6e 64 25 2c 30 2c 22  |con(infohnd%,0,"|
000001e0  bb 20 54 68 69 73 20 70  72 6f 67 72 61 6d 20 69  |. This program i|
000001f0  73 20 46 72 65 65 57 61  72 65 20 ab 22 29 0d 00  |s FreeWare .")..|
00000200  fa 0f f2 6c 6f 61 64 63  6f 6e 66 69 67 0d 01 04  |...loadconfig...|
00000210  0c f2 6f 70 65 6e 48 4b  47 0d 01 0e 05 e1 0d 01  |..openHKG.......|
00000220  18 05 3a 0d 01 22 20 f4  20 2a 2a 2a 2a 20 44 65  |..:.." . **** De|
00000230  66 69 6e 65 20 56 61 72  69 61 62 6c 65 73 20 2a  |fine Variables *|
00000240  2a 2a 2a 0d 01 2c 05 3a  0d 01 36 0d dd 20 f2 76  |***..,.:..6.. .v|
00000250  61 72 64 65 66 0d 01 40  1d 76 65 72 24 3d 22 30  |ardef..@.ver$="0|
00000260  2e 30 31 20 28 30 36 20  4a 75 6c 20 31 39 39 32  |.01 (06 Jul 1992|
00000270  29 22 0d 01 4a 10 de 20  62 6c 6f 63 6b 25 20 32  |)"..J.. block% 2|
00000280  35 36 0d 01 54 12 de 20  70 6f 6c 6c 62 6c 6b 25  |56..T.. pollblk%|
00000290  20 32 35 36 0d 01 5e 11  de 20 65 72 72 62 6c 6b  | 256..^.. errblk|
000002a0  25 20 32 35 36 0d 01 68  12 de 20 6d 65 6e 75 62  |% 256..h.. menub|
000002b0  6c 6b 25 20 32 35 36 0d  01 72 14 de 20 69 6e 66  |lk% 256..r.. inf|
000002c0  6f 62 75 66 66 25 20 31  30 32 34 0d 01 7c 14 de  |obuff% 1024..|..|
000002d0  20 69 6e 66 6f 73 70 61  63 65 25 20 35 31 32 0d  | infospace% 512.|
000002e0  01 86 16 de 20 63 6f 6e  66 69 67 62 75 66 66 25  |.... configbuff%|
000002f0  20 31 30 32 34 0d 01 90  17 de 20 63 6f 6e 66 69  | 1024..... confi|
00000300  67 73 70 61 63 65 25 20  31 30 32 34 0d 01 9a 12  |gspace% 1024....|
00000310  de 20 48 4b 47 62 75 66  66 25 20 31 32 38 0d 01  |. HKGbuff% 128..|
00000320  a4 12 de 20 48 4b 47 73  70 61 63 65 25 20 33 32  |... HKGspace% 32|
00000330  0d 01 ae 0c 6d 73 6c 6f  77 25 3d a3 0d 01 b8 11  |....mslow%=.....|
00000340  63 6f 6e 66 69 67 6f 70  65 6e 25 3d a3 0d 01 c2  |configopen%=....|
00000350  05 e1 0d 01 cc 05 3a 0d  01 d6 39 f4 20 2a 2a 2a  |......:...9. ***|
00000360  2a 20 50 75 74 73 20 69  63 6f 6e 20 6f 6e 20 69  |* Puts icon on i|
00000370  63 6f 6e 5f 62 61 72 20  2d 20 6e 65 65 64 73 20  |con_bar - needs |
00000380  73 70 72 69 74 65 20 6e  61 6d 65 20 2a 2a 2a 2a  |sprite name ****|
00000390  0d 01 e0 05 3a 0d 01 ea  17 dd 20 a4 69 63 6f 6e  |....:..... .icon|
000003a0  62 61 72 28 73 70 6e 61  6d 65 24 29 0d 01 f4 10  |bar(spname$)....|
000003b0  de 20 73 70 6e 61 6d 65  25 20 31 36 0d 01 fe 0e  |. spname% 16....|
000003c0  21 62 6c 6f 63 6b 25 3d  2d 31 0d 02 08 0e 62 6c  |!block%=-1....bl|
000003d0  6f 63 6b 25 21 34 3d 30  0d 02 12 0e 62 6c 6f 63  |ock%!4=0....bloc|
000003e0  6b 25 21 38 3d 30 0d 02  1c 10 62 6c 6f 63 6b 25  |k%!8=0....block%|
000003f0  21 31 32 3d 36 34 0d 02  26 10 62 6c 6f 63 6b 25  |!12=64..&.block%|
00000400  21 31 36 3d 36 38 0d 02  30 2f 62 6c 6f 63 6b 25  |!16=68..0/block%|
00000410  21 32 30 3d 25 30 31 31  31 30 30 30 30 30 30 30  |!20=%01110000000|
00000420  30 30 30 30 30 30 30 31  31 30 30 30 31 30 30 31  |0000000110001001|
00000430  31 31 30 31 30 0d 02 3a  15 62 6c 6f 63 6b 25 21  |11010..:.block%!|
00000440  32 34 3d 73 70 6e 61 6d  65 25 0d 02 44 0f 62 6c  |24=spname%..D.bl|
00000450  6f 63 6b 25 21 32 38 3d  31 0d 02 4e 1a 62 6c 6f  |ock%!28=1..N.blo|
00000460  63 6b 25 21 33 32 3d a9  28 73 70 6e 61 6d 65 24  |ck%!32=.(spname$|
00000470  29 2b 31 0d 02 58 1b 24  28 73 70 6e 61 6d 65 25  |)+1..X.$(spname%|
00000480  29 3d 73 70 6e 61 6d 65  24 2b bd 28 30 29 0d 02  |)=spname$+.(0)..|
00000490  62 2b c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |b+.. "Wimp_Creat|
000004a0  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |eIcon",,block% .|
000004b0  20 69 63 6f 6e 68 6e 64  25 0d 02 6c 0d 3d 69 63  | iconhnd%..l.=ic|
000004c0  6f 6e 68 6e 64 25 0d 02  76 05 3a 0d 02 80 41 f4  |onhnd%..v.:...A.|
000004d0  20 2a 2a 2a 2a 20 55 6e  65 78 70 65 63 74 65 64  | **** Unexpected|
000004e0  20 65 72 72 6f 72 20 68  61 6e 64 6c 65 72 20 2d  | error handler -|
000004f0  20 73 68 6f 75 6c 64 6e  27 74 20 62 65 20 6e 65  | shouldn't be ne|
00000500  65 64 65 64 21 21 21 20  2a 2a 2a 2a 0d 02 8a 05  |eded!!! ****....|
00000510  3a 0d 02 94 0c dd 20 f2  65 72 72 6f 72 0d 02 9e  |:..... .error...|
00000520  0e 21 65 72 72 62 6c 6b  25 3d 9f 0d 02 a8 41 24  |.!errblk%=....A$|
00000530  28 65 72 72 62 6c 6b 25  2b 34 29 3d 22 49 6e 74  |(errblk%+4)="Int|
00000540  65 72 6e 61 6c 20 65 72  72 6f 72 20 63 6f 64 65  |ernal error code|
00000550  20 22 2b c3 28 9e 29 2b  22 20 22 2b c3 28 9f 29  | "+.(.)+" "+.(.)|
00000560  2b 22 20 22 2b f6 24 2b  bd 28 30 29 0d 02 b2 29  |+" "+.$+.(0)...)|
00000570  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00000580  72 72 6f 72 22 2c 65 72  72 62 6c 6b 25 2c 31 2c  |rror",errblk%,1,|
00000590  22 52 61 74 22 0d 02 bc  09 f2 71 75 69 74 0d 02  |"Rat".....quit..|
000005a0  c6 05 e1 0d 02 d0 05 3a  0d 02 da 2e f4 20 2a 2a  |.......:..... **|
000005b0  2a 2a 20 43 6c 6f 73 65  73 20 64 6f 77 6e 20 77  |** Closes down w|
000005c0  69 6d 70 20 61 6e 64 20  65 6e 64 73 20 74 61 73  |imp and ends tas|
000005d0  6b 20 2a 2a 2a 2a 0d 02  e4 05 3a 0d 02 ee 0b dd  |k ****....:.....|
000005e0  20 f2 71 75 69 74 0d 02  f8 18 f2 73 65 74 6d 6f  | .quit.....setmo|
000005f0  75 73 65 6d 75 6c 74 28  66 61 73 74 25 29 0d 03  |usemult(fast%)..|
00000600  02 12 24 62 6c 6f 63 6b  25 3d 22 54 41 53 4b 22  |..$block%="TASK"|
00000610  0d 03 0c 28 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...(.. "Wimp_Clo|
00000620  73 65 44 6f 77 6e 22 2c  74 61 73 6b 68 6e 64 25  |seDown",taskhnd%|
00000630  2c 21 62 6c 6f 63 6b 25  0d 03 16 10 c8 99 20 22  |,!block%...... "|
00000640  4f 53 5f 45 78 69 74 22  0d 03 20 05 e1 0d 03 2a  |OS_Exit".. ....*|
00000650  05 3a 0d 03 34 23 f4 20  2a 2a 2a 2a 20 4c 6f 61  |.:..4#. **** Loa|
00000660  64 73 20 61 6c 6c 20 54  65 6d 70 6c 61 74 65 73  |ds all Templates|
00000670  20 2a 2a 2a 2a 0d 03 3e  05 3a 0d 03 48 14 dd 20  | ****..>.:..H.. |
00000680  f2 6c 6f 61 64 74 65 6d  70 6c 61 74 65 73 0d 03  |.loadtemplates..|
00000690  52 0f de 20 74 6e 61 6d  65 25 20 33 32 0d 03 5c  |R.. tname% 32..\|
000006a0  31 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |1.. "Wimp_OpenTe|
000006b0  6d 70 6c 61 74 65 22 2c  2c 22 3c 52 61 74 24 44  |mplate",,"<Rat$D|
000006c0  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 0d 03  |ir>.Templates"..|
000006d0  66 19 24 28 74 6e 61 6d  65 25 29 3d 22 49 6e 66  |f.$(tname%)="Inf|
000006e0  6f 22 2b bd 28 30 29 0d  03 70 4b c8 99 20 22 57  |o"+.(0)..pK.. "W|
000006f0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000700  22 2c 2c 69 6e 66 6f 62  75 66 66 25 2c 69 6e 66  |",,infobuff%,inf|
00000710  6f 73 70 61 63 65 25 2c  69 6e 66 6f 73 70 61 63  |ospace%,infospac|
00000720  65 25 2b 35 31 32 2c 2d  31 2c 74 6e 61 6d 65 25  |e%+512,-1,tname%|
00000730  2c 30 0d 03 7a 30 c8 99  20 22 57 69 6d 70 5f 43  |,0..z0.. "Wimp_C|
00000740  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 69 6e  |reateWindow",,in|
00000750  66 6f 62 75 66 66 25 20  b8 20 69 6e 66 6f 68 6e  |fobuff% . infohn|
00000760  64 25 0d 03 84 1b 24 28  74 6e 61 6d 65 25 29 3d  |d%....$(tname%)=|
00000770  22 43 6f 6e 66 69 67 22  2b bd 28 30 29 0d 03 8e  |"Config"+.(0)...|
00000780  52 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |R.. "Wimp_LoadTe|
00000790  6d 70 6c 61 74 65 22 2c  2c 63 6f 6e 66 69 67 62  |mplate",,configb|
000007a0  75 66 66 25 2c 63 6f 6e  66 69 67 73 70 61 63 65  |uff%,configspace|
000007b0  25 2c 63 6f 6e 66 69 67  73 70 61 63 65 25 2b 31  |%,configspace%+1|
000007c0  30 32 34 2c 2d 31 2c 74  6e 61 6d 65 25 2c 30 0d  |024,-1,tname%,0.|
000007d0  03 98 34 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..4.. "Wimp_Crea|
000007e0  74 65 57 69 6e 64 6f 77  22 2c 2c 63 6f 6e 66 69  |teWindow",,confi|
000007f0  67 62 75 66 66 25 20 b8  20 63 6f 6e 66 69 67 68  |gbuff% . configh|
00000800  6e 64 25 0d 03 a2 1e 24  28 74 6e 61 6d 65 25 29  |nd%....$(tname%)|
00000810  3d 22 48 4b 47 72 61 62  62 65 72 22 2b bd 28 30  |="HKGrabber"+.(0|
00000820  29 0d 03 ac 49 c8 99 20  22 57 69 6d 70 5f 4c 6f  |)...I.. "Wimp_Lo|
00000830  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 48 4b 47  |adTemplate",,HKG|
00000840  62 75 66 66 25 2c 48 4b  47 73 70 61 63 65 25 2c  |buff%,HKGspace%,|
00000850  48 4b 47 73 70 61 63 65  25 2b 31 30 32 34 2c 2d  |HKGspace%+1024,-|
00000860  31 2c 74 6e 61 6d 65 25  2c 30 0d 03 b6 2e c8 99  |1,tname%,0......|
00000870  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000880  64 6f 77 22 2c 2c 48 4b  47 62 75 66 66 25 20 b8  |dow",,HKGbuff% .|
00000890  20 48 4b 47 68 6e 64 25  0d 03 c0 05 e1 0d 03 ca  | HKGhnd%........|
000008a0  05 3a 0d 03 d4 21 f4 20  2a 2a 2a 2a 20 4d 61 69  |.:...!. **** Mai|
000008b0  6e 20 70 6f 6c 6c 69 6e  67 20 6c 6f 6f 70 20 2a  |n polling loop *|
000008c0  2a 2a 2a 0d 03 de 05 3a  0d 03 e8 0b dd 20 f2 6d  |***....:..... .m|
000008d0  61 69 6e 0d 03 f2 0a 65  78 69 74 3d a3 0d 03 fc  |ain....exit=....|
000008e0  05 f5 0d 04 06 0f 21 70  6f 6c 6c 62 6c 6b 25 3d  |......!pollblk%=|
000008f0  30 0d 04 10 1f 6d 61 73  6b 25 3d 25 30 30 30 30  |0....mask%=%0000|
00000900  30 30 30 31 31 30 30 30  30 30 31 31 30 30 30 31  |0001100000110001|
00000910  0d 04 1a 2b c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |...+.. "Wimp_Pol|
00000920  6c 22 2c 6d 61 73 6b 25  2c 70 6f 6c 6c 62 6c 6b  |l",mask%,pollblk|
00000930  25 20 b8 20 72 65 61 73  6f 6e 25 0d 04 24 14 f2  |% . reason%..$..|
00000940  61 63 74 69 6f 6e 28 72  65 61 73 6f 6e 25 29 0d  |action(reason%).|
00000950  04 2e 0c fd 20 65 78 69  74 3d b9 0d 04 38 05 e1  |.... exit=...8..|
00000960  0d 04 42 05 3a 0d 04 4c  30 f4 20 2a 2a 2a 2a 20  |..B.:..L0. **** |
00000970  43 61 6c 6c 73 20 72 65  71 27 64 20 63 6f 64 65  |Calls req'd code|
00000980  20 66 6f 72 20 77 69 6d  70 2d 72 65 61 73 6f 6e  | for wimp-reason|
00000990  20 2a 2a 2a 2a 0d 04 56  05 3a 0d 04 60 16 dd 20  | ****..V.:..`.. |
000009a0  f2 61 63 74 69 6f 6e 28  72 65 61 73 6f 6e 25 29  |.action(reason%)|
000009b0  0d 04 6a 10 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |..j... reason% .|
000009c0  0d 04 74 0f c9 20 30 20  3a 20 f2 6e 75 6c 6c 0d  |..t.. 0 : .null.|
000009d0  04 7e 12 c9 20 32 20 3a  20 f2 6f 70 65 6e 77 69  |.~.. 2 : .openwi|
000009e0  6e 0d 04 88 13 c9 20 33  20 3a 20 f2 63 6c 6f 73  |n..... 3 : .clos|
000009f0  65 77 69 6e 0d 04 92 15  c9 20 36 20 3a 20 f2 6d  |ewin..... 6 : .m|
00000a00  6f 75 73 65 63 6c 69 63  6b 0d 04 9c 15 c9 20 38  |ouseclick..... 8|
00000a10  20 3a 20 f2 6b 65 79 70  72 65 73 73 65 64 0d 04  | : .keypressed..|
00000a20  a6 12 c9 20 39 20 3a 20  f2 6d 65 6e 75 73 65 6c  |... 9 : .menusel|
00000a30  0d 04 b0 14 c9 20 31 37  20 3a 20 f2 75 6d 65 73  |..... 17 : .umes|
00000a40  73 61 67 65 0d 04 ba 14  c9 20 31 38 20 3a 20 f2  |sage..... 18 : .|
00000a50  75 6d 65 73 73 61 67 65  0d 04 c4 14 c9 20 31 39  |umessage..... 19|
00000a60  20 3a 20 f2 75 6d 65 73  73 61 67 65 0d 04 ce 05  | : .umessage....|
00000a70  cb 0d 04 d8 05 e1 0d 04  e2 05 3a 0d 04 ec 30 f4  |..........:...0.|
00000a80  20 2a 2a 2a 2a 20 52 65  73 70 6f 6e 64 20 74 6f  | **** Respond to|
00000a90  20 6f 70 65 6e 2d 77 69  6e 64 6f 77 20 65 76 65  | open-window eve|
00000aa0  6e 74 20 28 32 29 20 2a  2a 2a 2a 0d 04 f6 05 3a  |nt (2) ****....:|
00000ab0  0d 05 00 0e dd 20 f2 6f  70 65 6e 77 69 6e 0d 05  |..... .openwin..|
00000ac0  0a 22 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |.".. "Wimp_OpenW|
00000ad0  69 6e 64 6f 77 22 2c 2c  70 6f 6c 6c 62 6c 6b 25  |indow",,pollblk%|
00000ae0  0d 05 14 2a e7 20 21 70  6f 6c 6c 62 6c 6b 25 3d  |...*. !pollblk%=|
00000af0  63 6f 6e 66 69 67 68 6e  64 25 20 8c 20 63 6f 6e  |confighnd% . con|
00000b00  66 69 67 6f 70 65 6e 25  3d b9 0d 05 1e 05 e1 0d  |figopen%=.......|
00000b10  05 28 05 3a 0d 05 32 31  f4 20 2a 2a 2a 2a 20 52  |.(.:..21. **** R|
00000b20  65 73 70 6f 6e 64 20 74  6f 20 63 6c 6f 73 65 2d  |espond to close-|
00000b30  77 69 6e 64 6f 77 20 65  76 65 6e 74 20 28 33 29  |window event (3)|
00000b40  20 2a 2a 2a 2a 0d 05 3c  05 3a 0d 05 46 0f dd 20  | ****..<.:..F.. |
00000b50  f2 63 6c 6f 73 65 77 69  6e 0d 05 50 23 c8 99 20  |.closewin..P#.. |
00000b60  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00000b70  77 22 2c 2c 70 6f 6c 6c  62 6c 6b 25 0d 05 5a 2a  |w",,pollblk%..Z*|
00000b80  e7 20 21 70 6f 6c 6c 62  6c 6b 25 3d 63 6f 6e 66  |. !pollblk%=conf|
00000b90  69 67 68 6e 64 25 20 8c  20 63 6f 6e 66 69 67 6f  |ighnd% . configo|
00000ba0  70 65 6e 25 3d a3 0d 05  64 05 e1 0d 05 6e 05 3a  |pen%=...d....n.:|
00000bb0  0d 05 78 30 f4 20 2a 2a  2a 2a 20 52 65 73 70 6f  |..x0. **** Respo|
00000bc0  6e 64 20 74 6f 20 6d 6f  75 73 65 2d 63 6c 69 63  |nd to mouse-clic|
00000bd0  6b 20 65 76 65 6e 74 20  28 36 29 20 2a 2a 2a 2a  |k event (6) ****|
00000be0  0d 05 82 05 3a 0d 05 8c  11 dd 20 f2 6d 6f 75 73  |....:..... .mous|
00000bf0  65 63 6c 69 63 6b 0d 05  96 11 6d 78 25 3d 21 70  |eclick....mx%=!p|
00000c00  6f 6c 6c 62 6c 6b 25 0d  05 a0 12 6d 79 25 3d 70  |ollblk%....my%=p|
00000c10  6f 6c 6c 62 6c 6b 25 21  34 0d 05 aa 13 62 75 74  |ollblk%!4....but|
00000c20  25 3d 70 6f 6c 6c 62 6c  6b 25 21 38 0d 05 b4 15  |%=pollblk%!8....|
00000c30  77 68 6e 64 25 3d 70 6f  6c 6c 62 6c 6b 25 21 31  |whnd%=pollblk%!1|
00000c40  32 0d 05 be 15 69 68 6e  64 25 3d 70 6f 6c 6c 62  |2....ihnd%=pollb|
00000c50  6c 6b 25 21 31 36 0d 05  c8 10 e7 20 77 68 6e 64  |lk%!16..... whnd|
00000c60  25 3d 2d 32 20 8c 0d 05  d2 1b e7 20 62 75 74 25  |%=-2 ...... but%|
00000c70  3d 34 20 8c 20 f2 74 6f  67 67 6c 65 73 70 65 65  |=4 . .togglespee|
00000c80  64 0d 05 dc 1e e7 20 62  75 74 25 3d 32 20 8c 20  |d..... but%=2 . |
00000c90  f2 63 72 65 61 74 65 69  63 6f 6e 6d 65 6e 75 0d  |.createiconmenu.|
00000ca0  05 e6 2a e7 20 62 75 74  25 3d 31 20 80 20 63 6f  |..*. but%=1 . co|
00000cb0  6e 66 69 67 6f 70 65 6e  25 3d a3 20 8c 20 f2 6f  |nfigopen%=. . .o|
00000cc0  70 65 6e 63 6f 6e 66 69  67 0d 05 f0 05 cd 0d 05  |penconfig.......|
00000cd0  fa 18 e7 20 77 68 6e 64  25 3d 63 6f 6e 66 69 67  |... whnd%=config|
00000ce0  68 6e 64 25 20 8c 0d 06  04 0e e7 20 62 75 74 25  |hnd% ...... but%|
00000cf0  3d 34 20 8c 0d 06 0e 1d  e7 20 69 68 6e 64 25 3d  |=4 ...... ihnd%=|
00000d00  34 20 8c 20 f2 67 65 74  6e 65 77 63 6f 6e 66 69  |4 . .getnewconfi|
00000d10  67 0d 06 18 1b e7 20 69  68 6e 64 25 3d 35 20 8c  |g..... ihnd%=5 .|
00000d20  20 f2 73 61 76 65 63 6f  6e 66 69 67 0d 06 22 2e  | .saveconfig..".|
00000d30  e7 20 69 68 6e 64 25 3d  36 20 8c 20 21 70 6f 6c  |. ihnd%=6 . !pol|
00000d40  6c 62 6c 6b 25 3d 63 6f  6e 66 69 67 68 6e 64 25  |lblk%=confighnd%|
00000d50  3a f2 63 6c 6f 73 65 77  69 6e 0d 06 2c 05 cd 0d  |:.closewin..,...|
00000d60  06 36 05 cd 0d 06 40 05  e1 0d 06 4a 05 3a 0d 06  |.6....@....J.:..|
00000d70  54 30 f4 20 2a 2a 2a 2a  20 52 65 73 70 6f 6e 64  |T0. **** Respond|
00000d80  20 74 6f 20 6b 65 79 2d  70 72 65 73 73 65 64 20  | to key-pressed |
00000d90  65 76 65 6e 74 20 28 38  29 20 2a 2a 2a 2a 0d 06  |event (8) ****..|
00000da0  5e 05 3a 0d 06 68 11 dd  20 f2 6b 65 79 70 72 65  |^.:..h.. .keypre|
00000db0  73 73 65 64 0d 06 72 13  77 68 6e 64 25 3d 21 70  |ssed..r.whnd%=!p|
00000dc0  6f 6c 6c 62 6c 6b 25 0d  06 7c 14 69 68 6e 64 25  |ollblk%..|.ihnd%|
00000dd0  3d 70 6f 6c 6c 62 6c 6b  25 21 34 0d 06 86 14 6b  |=pollblk%!4....k|
00000de0  65 79 25 3d 70 6f 6c 6c  62 6c 6b 25 21 32 34 0d  |ey%=pollblk%!24.|
00000df0  06 90 0e 67 72 61 62 62  65 64 25 3d a3 0d 06 9a  |...grabbed%=....|
00000e00  29 e7 20 6b 65 79 25 3d  26 31 41 43 20 8c 20 f2  |). key%=&1AC . .|
00000e10  74 6f 67 67 6c 65 73 70  65 65 64 3a 67 72 61 62  |togglespeed:grab|
00000e20  62 65 64 25 3d b9 0d 06  a4 18 e7 20 77 68 6e 64  |bed%=...... whnd|
00000e30  25 3d 63 6f 6e 66 69 67  68 6e 64 25 20 8c 0d 06  |%=confighnd% ...|
00000e40  ae 56 e7 20 69 68 6e 64  25 3d 32 20 80 20 6b 65  |.V. ihnd%=2 . ke|
00000e50  79 25 3d 26 30 44 20 8c  20 c8 99 20 22 57 69 6d  |y%=&0D . .. "Wim|
00000e60  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
00000e70  6f 6e 22 2c 63 6f 6e 66  69 67 68 6e 64 25 2c 33  |on",confighnd%,3|
00000e80  2c 30 2c 30 2c 2d 31 2c  30 3a 67 72 61 62 62 65  |,0,0,-1,0:grabbe|
00000e90  64 25 3d b9 0d 06 b8 33  e7 20 69 68 6e 64 25 3d  |d%=....3. ihnd%=|
00000ea0  33 20 80 20 6b 65 79 25  3d 26 30 44 20 8c 20 f2  |3 . key%=&0D . .|
00000eb0  67 65 74 6e 65 77 63 6f  6e 66 69 67 3a 67 72 61  |getnewconfig:gra|
00000ec0  62 62 65 64 25 3d b9 0d  06 c2 05 cd 0d 06 cc 12  |bbed%=..........|
00000ed0  e7 20 67 72 61 62 62 65  64 25 3d a3 20 8c 0d 06  |. grabbed%=. ...|
00000ee0  d6 1d c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |.... "Wimp_Proce|
00000ef0  73 73 4b 65 79 22 2c 6b  65 79 25 0d 06 e0 05 cd  |ssKey",key%.....|
00000f00  0d 06 ea 05 e1 0d 06 f4  05 3a 0d 06 fe 33 f4 20  |.........:...3. |
00000f10  2a 2a 2a 2a 20 52 65 73  70 6f 6e 64 20 74 6f 20  |**** Respond to |
00000f20  6d 65 6e 75 2d 73 65 6c  65 63 74 69 6f 6e 20 65  |menu-selection e|
00000f30  76 65 6e 74 20 28 39 29  20 2a 2a 2a 2a 0d 07 08  |vent (9) ****...|
00000f40  05 3a 0d 07 12 0e dd 20  f2 6d 65 6e 75 73 65 6c  |.:..... .menusel|
00000f50  0d 07 1c 18 e7 20 63 75  72 72 6d 65 6e 75 24 3d  |..... currmenu$=|
00000f60  22 69 63 6f 6e 22 20 8c  0d 07 26 19 e7 20 21 70  |"icon" ...&.. !p|
00000f70  6f 6c 6c 62 6c 6b 25 3d  31 20 8c 20 f2 71 75 69  |ollblk%=1 . .qui|
00000f80  74 0d 07 30 05 cd 0d 07  3a 24 c8 99 20 22 57 69  |t..0....:$.. "Wi|
00000f90  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000fa0  6f 22 2c 2c 62 6c 6f 63  6b 25 0d 07 44 22 e7 20  |o",,block%..D". |
00000fb0  62 6c 6f 63 6b 25 21 38  3d 31 20 8c 20 f2 63 72  |block%!8=1 . .cr|
00000fc0  65 61 74 65 69 63 6f 6e  6d 65 6e 75 0d 07 4e 05  |eateiconmenu..N.|
00000fd0  e1 0d 07 58 05 3a 0d 07  62 2f f4 20 2a 2a 2a 2a  |...X.:..b/. ****|
00000fe0  20 52 65 73 70 6f 6e 64  20 74 6f 20 6d 65 73 73  | Respond to mess|
00000ff0  61 67 65 20 65 76 65 6e  74 73 20 28 31 37 2c 31  |age events (17,1|
00001000  38 2c 31 39 29 0d 07 6c  05 3a 0d 07 76 0f dd 20  |8,19)..l.:..v.. |
00001010  f2 75 6d 65 73 73 61 67  65 0d 07 80 1e e7 20 70  |.umessage..... p|
00001020  6f 6c 6c 62 6c 6b 25 21  31 36 3d 30 20 8c 20 65  |ollblk%!16=0 . e|
00001030  78 69 74 3d b9 3a e1 0d  07 8a 05 e1 0d 07 94 05  |xit=.:..........|
00001040  3a 0d 07 9e 56 f4 20 2a  2a 2a 2a 20 43 72 65 61  |:...V. **** Crea|
00001050  74 65 73 20 61 6e 64 20  64 69 73 70 6c 61 79 73  |tes and displays|
00001060  20 74 68 65 20 69 63 6f  6e 2d 62 61 72 20 6d 65  | the icon-bar me|
00001070  6e 75 20 28 4d 65 6e 75  20 63 6c 69 63 6b 65 64  |nu (Menu clicked|
00001080  20 6f 6e 20 69 63 6f 6e  2d 62 61 72 20 69 63 6f  | on icon-bar ico|
00001090  6e 29 20 2a 2a 2a 2a 0d  07 a8 05 3a 0d 07 b2 15  |n) ****....:....|
000010a0  dd 20 f2 63 72 65 61 74  65 69 63 6f 6e 6d 65 6e  |. .createiconmen|
000010b0  75 0d 07 bc 14 63 75 72  72 6d 65 6e 75 24 3d 22  |u....currmenu$="|
000010c0  69 63 6f 6e 22 0d 07 c6  13 69 74 65 6d 73 3d 32  |icon"....items=2|
000010d0  3a 6c 69 6e 65 73 3d 30  0d 07 d0 18 24 6d 65 6e  |:lines=0....$men|
000010e0  75 62 6c 6b 25 3d 22 52  61 74 22 2b bd 28 30 29  |ublk%="Rat"+.(0)|
000010f0  0d 07 da 11 6d 65 6e 75  62 6c 6b 25 3f 31 32 3d  |....menublk%?12=|
00001100  37 0d 07 e4 11 6d 65 6e  75 62 6c 6b 25 3f 31 33  |7....menublk%?13|
00001110  3d 32 0d 07 ee 11 6d 65  6e 75 62 6c 6b 25 3f 31  |=2....menublk%?1|
00001120  34 3d 37 0d 07 f8 11 6d  65 6e 75 62 6c 6b 25 3f  |4=7....menublk%?|
00001130  31 35 3d 30 0d 08 02 12  6d 65 6e 75 62 6c 6b 25  |15=0....menublk%|
00001140  21 31 36 3d 39 36 0d 08  0c 12 6d 65 6e 75 62 6c  |!16=96....menubl|
00001150  6b 25 21 32 30 3d 34 34  0d 08 16 11 6d 65 6e 75  |k%!20=44....menu|
00001160  62 6c 6b 25 21 32 34 3d  30 0d 08 20 11 6d 65 6e  |blk%!24=0.. .men|
00001170  75 62 6c 6b 25 21 32 38  3d 30 0d 08 2a 18 6d 65  |ublk%!28=0..*.me|
00001180  6e 75 62 6c 6b 25 21 33  32 3d 69 6e 66 6f 68 6e  |nublk%!32=infohn|
00001190  64 25 0d 08 34 31 6d 65  6e 75 62 6c 6b 25 21 33  |d%..41menublk%!3|
000011a0  36 3d 25 30 30 30 30 30  31 31 31 30 30 30 30 30  |6=%0000011100000|
000011b0  30 30 30 30 30 30 30 30  30 30 30 30 30 31 30 30  |0000000000000100|
000011c0  30 30 31 0d 08 3e 1e 24  28 6d 65 6e 75 62 6c 6b  |001..>.$(menublk|
000011d0  25 2b 34 30 29 3d 22 49  6e 66 6f 22 2b bd 28 30  |%+40)="Info"+.(0|
000011e0  29 0d 08 48 19 6d 65 6e  75 62 6c 6b 25 21 35 32  |)..H.menublk%!52|
000011f0  3d 25 31 30 30 30 30 30  30 30 0d 08 52 12 6d 65  |=%10000000..R.me|
00001200  6e 75 62 6c 6b 25 21 35  36 3d 2d 31 0d 08 5c 31  |nublk%!56=-1..\1|
00001210  6d 65 6e 75 62 6c 6b 25  21 36 30 3d 25 30 30 30  |menublk%!60=%000|
00001220  30 30 31 31 31 30 30 30  30 30 30 30 30 30 30 30  |0011100000000000|
00001230  30 30 30 30 30 30 30 31  30 30 30 30 31 0d 08 66  |0000000100001..f|
00001240  1e 24 28 6d 65 6e 75 62  6c 6b 25 2b 36 34 29 3d  |.$(menublk%+64)=|
00001250  22 51 75 69 74 22 2b bd  28 30 29 0d 08 70 11 6d  |"Quit"+.(0)..p.m|
00001260  65 6e 75 78 25 3d 6d 78  25 2d 36 34 0d 08 7a 25  |enux%=mx%-64..z%|
00001270  6d 65 6e 75 79 25 3d 28  39 36 2b 28 69 74 65 6d  |menuy%=(96+(item|
00001280  73 2a 34 34 29 2b 28 6c  69 6e 65 73 2a 32 34 29  |s*44)+(lines*24)|
00001290  29 0d 08 84 30 c8 99 20  22 57 69 6d 70 5f 43 72  |)...0.. "Wimp_Cr|
000012a0  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 62  |eateMenu",,menub|
000012b0  6c 6b 25 2c 6d 65 6e 75  78 25 2c 6d 65 6e 75 79  |lk%,menux%,menuy|
000012c0  25 0d 08 8e 05 e1 0d 08  98 05 3a 0d 08 a2 64 f4  |%.........:...d.|
000012d0  20 2a 2a 2a 2a 20 57 72  69 74 65 73 20 67 69 76  | **** Writes giv|
000012e0  65 6e 20 73 74 72 69 6e  67 20 74 6f 20 74 68 65  |en string to the|
000012f0  20 69 6e 64 69 72 65 63  74 65 64 20 74 65 78 74  | indirected text|
00001300  2d 69 63 6f 6e 20 61 64  64 72 65 73 73 65 64 20  |-icon addressed |
00001310  62 79 20 77 69 6e 64 6f  77 20 61 6e 64 20 69 63  |by window and ic|
00001320  6f 6e 20 68 61 6e 64 6c  65 73 20 2a 2a 2a 2a 0d  |on handles ****.|
00001330  08 ac 05 3a 0d 08 b6 29  dd 20 f2 77 72 69 74 65  |...:...). .write|
00001340  74 6f 74 65 78 74 69 63  6f 6e 28 77 68 6e 64 25  |totexticon(whnd%|
00001350  2c 69 68 6e 64 25 2c 74  65 78 74 24 29 0d 08 c0  |,ihnd%,text$)...|
00001360  11 21 62 6c 6f 63 6b 25  3d 77 68 6e 64 25 0d 08  |.!block%=whnd%..|
00001370  ca 12 62 6c 6f 63 6b 25  21 34 3d 69 68 6e 64 25  |..block%!4=ihnd%|
00001380  0d 08 d4 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...".. "Wimp_Get|
00001390  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
000013a0  6b 25 0d 08 de 12 61 64  64 72 3d 62 6c 6f 63 6b  |k%....addr=block|
000013b0  25 21 32 38 0d 08 e8 11  24 28 61 64 64 72 29 3d  |%!28....$(addr)=|
000013c0  74 65 78 74 24 0d 08 f2  11 21 62 6c 6f 63 6b 25  |text$....!block%|
000013d0  3d 77 68 6e 64 25 0d 08  fc 12 62 6c 6f 63 6b 25  |=whnd%....block%|
000013e0  21 34 3d 69 68 6e 64 25  0d 09 06 0e 62 6c 6f 63  |!4=ihnd%....bloc|
000013f0  6b 25 21 38 3d 30 0d 09  10 0f 62 6c 6f 63 6b 25  |k%!8=0....block%|
00001400  21 31 32 3d 30 0d 09 1a  22 c8 99 20 22 57 69 6d  |!12=0...".. "Wim|
00001410  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00001420  2c 62 6c 6f 63 6b 25 0d  09 24 05 e1 0d 09 2e 05  |,block%..$......|
00001430  3a 0d 09 38 34 f4 20 2a  2a 2a 2a 20 52 65 73 70  |:..84. **** Resp|
00001440  6f 6e 64 20 74 6f 20 6e  75 6c 6c 20 70 72 6f 63  |ond to null proc|
00001450  65 73 73 69 6e 67 20 65  76 65 6e 74 20 28 30 29  |essing event (0)|
00001460  20 2a 2a 2a 2a 0d 09 42  05 3a 0d 09 4c 0b dd 20  | ****..B.:..L.. |
00001470  f2 6e 75 6c 6c 0d 09 56  05 e1 0d 09 60 05 3a 0d  |.null..V....`.:.|
00001480  09 6a 6d f4 20 2a 2a 2a  2a 20 52 65 61 64 73 20  |.jm. **** Reads |
00001490  73 74 72 69 6e 67 20 66  72 6f 6d 20 74 68 65 20  |string from the |
000014a0  69 6e 64 69 72 65 63 74  65 64 20 74 65 78 74 2d  |indirected text-|
000014b0  69 63 6f 6e 20 28 6f 72  20 77 72 69 74 61 62 6c  |icon (or writabl|
000014c0  65 29 20 61 64 64 72 65  73 73 65 64 20 62 79 20  |e) addressed by |
000014d0  77 69 6e 64 6f 77 20 61  6e 64 20 69 63 6f 6e 20  |window and icon |
000014e0  68 61 6e 64 6c 65 73 20  2a 2a 2a 2a 0d 09 74 05  |handles ****..t.|
000014f0  3a 0d 09 7e 1d dd 20 a4  72 64 77 72 74 69 63 6f  |:..~.. .rdwrtico|
00001500  6e 28 77 68 6e 64 25 2c  69 68 6e 64 25 29 0d 09  |n(whnd%,ihnd%)..|
00001510  88 11 21 62 6c 6f 63 6b  25 3d 77 68 6e 64 25 0d  |..!block%=whnd%.|
00001520  09 92 12 62 6c 6f 63 6b  25 21 34 3d 69 68 6e 64  |...block%!4=ihnd|
00001530  25 0d 09 9c 22 c8 99 20  22 57 69 6d 70 5f 47 65  |%...".. "Wimp_Ge|
00001540  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00001550  63 6b 25 0d 09 a6 12 61  64 64 72 3d 62 6c 6f 63  |ck%....addr=bloc|
00001560  6b 25 21 32 38 0d 09 b0  11 73 74 72 69 6e 67 24  |k%!28....string$|
00001570  3d 24 61 64 64 72 0d 09  ba 0c 3d 73 74 72 69 6e  |=$addr....=strin|
00001580  67 24 0d 09 c4 05 3a 0d  09 ce 23 f4 20 2a 2a 2a  |g$....:...#. ***|
00001590  2a 20 4f 70 65 6e 73 20  43 6f 6e 66 69 67 20 57  |* Opens Config W|
000015a0  69 6e 64 6f 77 20 2a 2a  2a 2a 0d 09 d8 05 3a 0d  |indow ****....:.|
000015b0  09 e2 11 dd 20 f2 6f 70  65 6e 63 6f 6e 66 69 67  |.... .openconfig|
000015c0  0d 09 ec 29 f2 77 72 69  74 65 74 6f 74 65 78 74  |...).writetotext|
000015d0  69 63 6f 6e 28 63 6f 6e  66 69 67 68 6e 64 25 2c  |icon(confighnd%,|
000015e0  32 2c c3 66 61 73 74 25  29 0d 09 f6 29 f2 77 72  |2,.fast%)...).wr|
000015f0  69 74 65 74 6f 74 65 78  74 69 63 6f 6e 28 63 6f  |itetotexticon(co|
00001600  6e 66 69 67 68 6e 64 25  2c 33 2c c3 73 6c 6f 77  |nfighnd%,3,.slow|
00001610  25 29 0d 0a 00 16 21 62  6c 6f 63 6b 25 3d 63 6f  |%)....!block%=co|
00001620  6e 66 69 67 68 6e 64 25  0d 0a 0a 19 62 6c 6f 63  |nfighnd%....bloc|
00001630  6b 25 21 34 3d 21 63 6f  6e 66 69 67 62 75 66 66  |k%!4=!configbuff|
00001640  25 0d 0a 14 1a 62 6c 6f  63 6b 25 21 38 3d 63 6f  |%....block%!8=co|
00001650  6e 66 69 67 62 75 66 66  25 21 34 0d 0a 1e 1b 62  |nfigbuff%!4....b|
00001660  6c 6f 63 6b 25 21 31 32  3d 63 6f 6e 66 69 67 62  |lock%!12=configb|
00001670  75 66 66 25 21 38 0d 0a  28 1c 62 6c 6f 63 6b 25  |uff%!8..(.block%|
00001680  21 31 36 3d 63 6f 6e 66  69 67 62 75 66 66 25 21  |!16=configbuff%!|
00001690  31 32 0d 0a 32 1c 62 6c  6f 63 6b 25 21 32 30 3d  |12..2.block%!20=|
000016a0  63 6f 6e 66 69 67 62 75  66 66 25 21 31 36 0d 0a  |configbuff%!16..|
000016b0  3c 1c 62 6c 6f 63 6b 25  21 32 34 3d 63 6f 6e 66  |<.block%!24=conf|
000016c0  69 67 62 75 66 66 25 21  32 30 0d 0a 46 10 62 6c  |igbuff%!20..F.bl|
000016d0  6f 63 6b 25 21 32 38 3d  2d 31 0d 0a 50 20 c8 99  |ock%!28=-1..P ..|
000016e0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000016f0  77 22 2c 2c 62 6c 6f 63  6b 25 0d 0a 5a 05 e1 0d  |w",,block%..Z...|
00001700  0a 64 05 3a 0d 0a 6e 41  f4 20 2a 2a 2a 2a 20 43  |.d.:..nA. **** C|
00001710  68 61 6e 67 65 73 20 74  68 65 20 69 63 6f 6e 2d  |hanges the icon-|
00001720  62 61 72 20 69 63 6f 6e  20 74 6f 20 74 68 65 20  |bar icon to the |
00001730  73 70 72 69 74 65 20 73  70 65 63 69 66 69 65 64  |sprite specified|
00001740  20 2a 2a 2a 2a 0d 0a 78  05 3a 0d 0a 82 1e dd 20  | ****..x.:..... |
00001750  f2 63 68 61 6e 67 65 69  62 61 72 69 63 6f 6e 28  |.changeibaricon(|
00001760  73 70 6e 61 6d 65 24 29  0d 0a 8c 19 24 73 70 6e  |spname$)....$spn|
00001770  61 6d 65 25 3d 73 70 6e  61 6d 65 24 2b bd 28 30  |ame%=spname$+.(0|
00001780  29 0d 0a 96 36 21 62 6c  6f 63 6b 25 3d 2d 31 3a  |)...6!block%=-1:|
00001790  62 6c 6f 63 6b 25 21 34  3d 62 61 72 68 6e 64 25  |block%!4=barhnd%|
000017a0  3a 62 6c 6f 63 6b 25 21  38 3d 30 3a 62 6c 6f 63  |:block%!8=0:bloc|
000017b0  6b 25 21 31 32 3d 30 0d  0a a0 22 c8 99 20 22 57  |k%!12=0...".. "W|
000017c0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000017d0  22 2c 2c 62 6c 6f 63 6b  25 0d 0a aa 05 e1 0d 0a  |",,block%.......|
000017e0  b4 05 3a 0d 0a be 1e f4  20 2a 2a 2a 2a 20 4c 6f  |..:..... **** Lo|
000017f0  61 64 20 63 6f 6e 66 69  67 20 6f 70 74 69 6f 6e  |ad config option|
00001800  73 0d 0a c8 05 3a 0d 0a  d2 11 dd 20 f2 6c 6f 61  |s....:..... .loa|
00001810  64 63 6f 6e 66 69 67 0d  0a dc 1f 66 69 6c 65 25  |dconfig....file%|
00001820  3d 8e 28 22 3c 52 61 74  24 44 69 72 3e 2e 43 6f  |=.("<Rat$Dir>.Co|
00001830  6e 66 69 67 22 29 0d 0a  e6 35 e7 20 66 69 6c 65  |nfig")...5. file|
00001840  25 3d 30 20 8c 20 85 20  30 2c 22 57 68 6f 27 73  |%=0 . . 0,"Who's|
00001850  20 6e 69 63 6b 65 64 20  6d 79 20 63 6f 6e 66 69  | nicked my confi|
00001860  67 20 66 69 6c 65 3f 3f  3f 3f 22 0d 0a f0 11 66  |g file????"....f|
00001870  61 73 74 25 3d 9a 23 66  69 6c 65 25 0d 0a fa 11  |ast%=.#file%....|
00001880  73 6c 6f 77 25 3d 9a 23  66 69 6c 65 25 0d 0b 04  |slow%=.#file%...|
00001890  0b d9 23 66 69 6c 65 25  0d 0b 0e 05 e1 0d 0b 18  |..#file%........|
000018a0  05 3a 0d 0b 22 23 f4 20  2a 2a 2a 2a 20 53 61 76  |.:.."#. **** Sav|
000018b0  65 20 63 6f 6e 66 69 67  20 6f 70 74 69 6f 6e 73  |e config options|
000018c0  20 2a 2a 2a 2a 0d 0b 2c  05 3a 0d 0b 36 11 dd 20  | ****..,.:..6.. |
000018d0  f2 73 61 76 65 63 6f 6e  66 69 67 0d 0b 40 11 f2  |.saveconfig..@..|
000018e0  67 65 74 6e 65 77 63 6f  6e 66 69 67 0d 0b 4a 1f  |getnewconfig..J.|
000018f0  66 69 6c 65 25 3d ae 28  22 3c 52 61 74 24 44 69  |file%=.("<Rat$Di|
00001900  72 3e 2e 43 6f 6e 66 69  67 22 29 0d 0b 54 11 d5  |r>.Config")..T..|
00001910  23 66 69 6c 65 25 2c 66  61 73 74 25 0d 0b 5e 11  |#file%,fast%..^.|
00001920  d5 23 66 69 6c 65 25 2c  73 6c 6f 77 25 0d 0b 68  |.#file%,slow%..h|
00001930  0b d9 23 66 69 6c 65 25  0d 0b 72 05 e1 0d 0b 7c  |..#file%..r....||
00001940  05 3a 0d 0b 86 32 f4 20  2a 2a 2a 2a 20 47 65 74  |.:...2. **** Get|
00001950  20 6e 65 77 20 63 6f 6e  66 69 67 20 70 61 72 61  | new config para|
00001960  6d 65 74 65 72 73 20 66  72 6f 6d 20 77 69 6e 20  |meters from win |
00001970  2a 2a 2a 2a 0d 0b 90 05  3a 0d 0b 9a 13 dd 20 f2  |****....:..... .|
00001980  67 65 74 6e 65 77 63 6f  6e 66 69 67 0d 0b a4 25  |getnewconfig...%|
00001990  66 61 73 74 25 3d bb 28  a4 72 64 77 72 74 69 63  |fast%=.(.rdwrtic|
000019a0  6f 6e 28 63 6f 6e 66 69  67 68 6e 64 25 2c 32 29  |on(confighnd%,2)|
000019b0  29 0d 0b ae 25 73 6c 6f  77 25 3d bb 28 a4 72 64  |)...%slow%=.(.rd|
000019c0  77 72 74 69 63 6f 6e 28  63 6f 6e 66 69 67 68 6e  |wrticon(confighn|
000019d0  64 25 2c 33 29 29 0d 0b  b8 18 21 70 6f 6c 6c 62  |d%,3))....!pollb|
000019e0  6c 6b 25 3d 63 6f 6e 66  69 67 68 6e 64 25 0d 0b  |lk%=confighnd%..|
000019f0  c2 0d f2 63 6c 6f 73 65  77 69 6e 0d 0b cc 05 e1  |...closewin.....|
00001a00  0d 0b d6 05 3a 0d 0b e0  38 f4 20 2a 2a 2a 2a 20  |....:...8. **** |
00001a10  74 6f 67 67 6c 65 73 20  73 70 65 65 64 20 6f 66  |toggles speed of|
00001a20  20 6d 6f 75 73 65 20 61  6e 64 20 69 63 6f 6e 2d  | mouse and icon-|
00001a30  62 61 72 20 69 63 6f 6e  20 2a 2a 2a 2a 0d 0b ea  |bar icon ****...|
00001a40  05 3a 0d 0b f4 12 dd 20  f2 74 6f 67 67 6c 65 73  |.:..... .toggles|
00001a50  70 65 65 64 0d 0b fe 10  e7 20 6d 73 6c 6f 77 25  |peed..... mslow%|
00001a60  3d b9 20 8c 0d 0c 08 1b  f2 63 68 61 6e 67 65 69  |=. ......changei|
00001a70  62 61 72 69 63 6f 6e 28  22 21 72 61 74 22 29 0d  |baricon("!rat").|
00001a80  0c 12 18 f2 73 65 74 6d  6f 75 73 65 6d 75 6c 74  |....setmousemult|
00001a90  28 66 61 73 74 25 29 0d  0c 1c 0c 6d 73 6c 6f 77  |(fast%)....mslow|
00001aa0  25 3d a3 0d 0c 26 05 cc  0d 0c 30 1b f2 63 68 61  |%=...&....0..cha|
00001ab0  6e 67 65 69 62 61 72 69  63 6f 6e 28 22 21 72 65  |ngeibaricon("!re|
00001ac0  64 22 29 0d 0c 3a 18 f2  73 65 74 6d 6f 75 73 65  |d")..:..setmouse|
00001ad0  6d 75 6c 74 28 73 6c 6f  77 25 29 0d 0c 44 0c 6d  |mult(slow%)..D.m|
00001ae0  73 6c 6f 77 25 3d b9 0d  0c 4e 05 cd 0d 0c 58 05  |slow%=...N....X.|
00001af0  e1 0d 0c 62 05 3a 0d 0c  6c 29 f4 20 2a 2a 2a 2a  |...b.:..l). ****|
00001b00  20 53 65 74 73 20 74 68  65 20 6d 6f 75 73 65 20  | Sets the mouse |
00001b10  6d 75 6c 74 69 70 6c 69  65 72 20 2a 2a 2a 2a 0d  |multiplier ****.|
00001b20  0c 76 05 3a 0d 0c 80 1a  dd 20 f2 73 65 74 6d 6f  |.v.:..... .setmo|
00001b30  75 73 65 6d 75 6c 74 28  6d 75 6c 74 25 29 0d 0c  |usemult(mult%)..|
00001b40  8a 0d 3f 62 6c 6f 63 6b  25 3d 32 0d 0c 94 12 62  |..?block%=2....b|
00001b50  6c 6f 63 6b 25 3f 31 3d  6d 75 6c 74 25 0d 0c 9e  |lock%?1=mult%...|
00001b60  12 62 6c 6f 63 6b 25 3f  32 3d 6d 75 6c 74 25 0d  |.block%?2=mult%.|
00001b70  0c a8 1a c8 99 20 22 4f  53 5f 57 6f 72 64 22 2c  |..... "OS_Word",|
00001b80  32 31 2c 62 6c 6f 63 6b  25 0d 0c b2 05 e1 0d 0c  |21,block%.......|
00001b90  bc 05 3a 0d 0c c6 24 f4  20 2a 2a 2a 2a 20 4f 70  |..:...$. **** Op|
00001ba0  65 6e 20 48 6f 74 2d 6b  65 79 20 47 72 61 62 62  |en Hot-key Grabb|
00001bb0  65 72 20 2a 2a 2a 2a 0d  0c d0 05 3a 0d 0c da 0e  |er ****....:....|
00001bc0  dd 20 f2 6f 70 65 6e 48  4b 47 0d 0c e4 13 21 62  |. .openHKG....!b|
00001bd0  6c 6f 63 6b 25 3d 48 4b  47 68 6e 64 25 0d 0c ee  |lock%=HKGhnd%...|
00001be0  12 62 6c 6f 63 6b 25 21  34 3d 2d 31 30 30 30 0d  |.block%!4=-1000.|
00001bf0  0c f8 17 62 6c 6f 63 6b  25 21 38 3d 48 4b 47 62  |...block%!8=HKGb|
00001c00  75 66 66 25 21 34 0d 0d  02 12 62 6c 6f 63 6b 25  |uff%!4....block%|
00001c10  21 31 32 3d 2d 39 39 30  0d 0d 0c 19 62 6c 6f 63  |!12=-990....bloc|
00001c20  6b 25 21 31 36 3d 48 4b  47 62 75 66 66 25 21 31  |k%!16=HKGbuff%!1|
00001c30  32 0d 0d 16 0f 62 6c 6f  63 6b 25 21 32 30 3d 30  |2....block%!20=0|
00001c40  0d 0d 20 0f 62 6c 6f 63  6b 25 21 32 34 3d 30 0d  |.. .block%!24=0.|
00001c50  0d 2a 10 62 6c 6f 63 6b  25 21 32 38 3d 2d 31 0d  |.*.block%!28=-1.|
00001c60  0d 34 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.4 .. "Wimp_Open|
00001c70  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
00001c80  0d 3e 05 e1 0d 0d 48 05  3a 0d 0d 52 05 3a 0d 0d  |.>....H.:..R.:..|
00001c90  5c 30 f4 20 2a 2a 2a 2a  20 50 72 6f 63 65 64 75  |\0. **** Procedu|
00001ca0  72 65 20 66 6f 72 20 64  65 62 75 67 67 69 6e 67  |re for debugging|
00001cb0  20 75 73 65 20 6f 6e 6c  79 20 2a 2a 2a 2a 0d 0d  | use only ****..|
00001cc0  66 05 3a 0d 0d 70 0c dd  20 f2 64 65 62 75 67 0d  |f.:..p.. .debug.|
00001cd0  0d 7a 28 c8 99 20 22 57  69 6d 70 5f 43 6f 6d 6d  |.z(.. "Wimp_Comm|
00001ce0  61 6e 64 57 69 6e 64 6f  77 22 2c 22 48 65 6c 6c  |andWindow","Hell|
00001cf0  6f 22 2b bd 28 30 29 0d  0d 84 04 0d 0d 8e 1d c8  |o"+.(0).........|
00001d00  99 20 22 57 69 6d 70 5f  43 6f 6d 6d 61 6e 64 57  |. "Wimp_CommandW|
00001d10  69 6e 64 6f 77 22 2c 30  0d 0d 98 05 e1 0d 0d a2  |indow",0........|
00001d20  05 3a 0d ff                                       |.:..|
00001d24