#� Simulated iconbar mouse click

� Syntax:
B� Click <application name> [-select] [-menu] [-adjust] [-wait]
(7� <application name>  Name as known to task manager
2U� -select -menu -adjust  Mouse clicks to simulate, at least one and in that order
</� -wait  Wait until application has started
F
P� � �error
Z
d
� = &A500
n
x� block% 256, messages 8
�
�messages!0 = &400C2
�messages!4 = 0
�Nș "Wimp_Initialise", 310, &4B534154, "Click", messages � wimp%, thisTask%
�7� wimp% < 310 � 0, "RiscOS 3.10 or higher required"
�
�ș "OS_GetEnv" � string
�string$ = �string_c(string)
�i = �string$, """")
�i = �string$, """", i+1)
�+string$ = �string_strip(�string$, i+1))
�
�� find the task name

	i = 1

+task$ = �string_commandItem(string$, i)



"!� find the button to simulate

,'select% = �string$, "-select") <> 0

6'menu%   = �string$, "-menu")   <> 0

@'adjust% = �string$, "-adjust") <> 0

J

T>� �(select% � menu% � adjust%) � 0, "Button not specified"

^

h#wait% = �string$, "-wait") <> 0

r

|!maskNoTask% = %11100000110001

�*maskTaskFound% = %11100011100000110000

�

�task% = �findTask(task$)

�

�� task% = -1 �

�'  � � wait% � 0, "Task not running"

�  mask% = maskNoTask%

�  icon% = -1

��

�!  icon% = �scanIconBar(task%)

�7  �makeClick(task%, icon%, select%, menu%, adjust%)

�  mask% = maskTaskFound%

��

�
+  ș "Wimp_Poll", mask%, block% � event
&  Ȏ event �
0  � 0: � null
:    � icon% = -1 �
D%      icon% = �scanIconBar(task%)
N	    �
X;      �makeClick(task%, icon%, select%, menu%, adjust%)
b	    �
l(    � �(select% � menu% � adjust%) �
v  � 17, 18, 19:
�    Ȏ block%!16 �
�!    � &400C2: � task starting
�*      � task$ = �string_c(block%+28) �
�        task% = block%!4
�"        mask% = maskTaskFound%
�      �
�    � 0:
�      �
�	    �
�  �
�� �
�
�=� �makeClick(task%, icon%, � select%, � menu%, � adjust%)
� b%
� select% �
  b% = 4
   select% = �
*�
4  � menu% �
>    b% = 2
H    menu% = �
R  �
\'    � adjust% � b% = 1: adjust% = �
f  �
p�
z� b% = 0 �
�
�block%!0 = -2
�block%!4 = icon%
�#ș "Wimp_GetIconState",, block%
�
�+block%!0  = (block%!8 + block%!16) >> 1
�,block%!4  = (block%!12 + block%!20) >> 1
�block%!8  = b%
�block%!12 = -2
�block%!16 = icon%
�
�/ș "Wimp_SendMessage", 6, block%, -2, icon%
��

 � �whoOwnsIt(window%, icon%)
� task%
$block%!0 = 16
.block%!4 =  0
8block%!8 =  0
Bblock%!12 = 0
L?ș "Wimp_SendMessage", 19, block%, window%, icon% � ,,task%
V= task%
`
j� �scanIconBar(task%)
t� flag%, icon%, nIcons%
~
flag% = �
�icon% = -1
�block%!0 = -2
�&ș "Wimp_GetWindowInfo", ,block%+1
�nIcons% = block%!88
�� icon% = 0 � nIcons%
�/  � task% = �whoOwnsIt(-2, icon%) � = icon%
��
�= -1
�
�� �string_c(p%)
�� 1.0 16/6/91
�n� return control terminated string pointed to by p% and update p% to point to next charactor after control
� a$

ȕ ?p% > 31
  a$ = a$ + � ?p%

  p% += 1
(�
2p% += 1
<= a$
F
P� �findTask(task$)
Z� p%
d
p% = 0
n�
x:  ș "TaskManager_EnumerateTasks", p%, block%, 16 � p%
�1  � �string_c(block%!4) = task$ �  = block%!0
�� p% < 0
�= -1
�
�� �string_strip(a$)
�� 1.0 16/6/91
�ȕ �a$,1)=" "
�   a$=�a$,2)
�   �
�ȕ �a$,1)=" "
�   a$=�a$,�a$-1)
�   �
�=a$

'� �string_commandItem(string$, � i)
� item$, j
"%i = �string_skip(string$, " ", i)
,� �string$, i, 1) = """" �
6  j = �string$, """", i+1)
@!  ȕ �string$, j+1, 1) = """"
J     j = �string$, """", j+2)
T  �
^&  � j = 0 � 0, "Mismatched quotes"
h#  item$ = �string$, i+1, j-i-1)
r
  i = j+1
|�
�,  item$ = �string_token(string$, " ", i)
��
�= item$
�
�)� �string_skip(string$, skip$, from%)
�"ȕ �string$, from%, 1) = skip$
�  from% += 1
��
�= from%
�
�*� �string_token(string$, token$, � i%)
�� 2/3/93
�� p%, a$
� i% = -1 � =""
� i% = 0 � i% = 1
p% = �string$, token$, i%)
&� p% = 0 �
0  a$ = �string$, i%)
:
  i% = -1
D�
N  a$ = �string$, i%, p%-i%)
X  i% = p% + 1
b�
l= �string_strip(a$)
v
�� �error
�-� � � "Click: "; �$; " at line "; �/10: �
�block%!0 = �
�-$(block%+4) = �$ +  " at line " + �(�/10)
�-ș "Wimp_ReportError", block%, 1, "Click"
��
�

00000000  0d 00 0a 23 f4 20 53 69  6d 75 6c 61 74 65 64 20  |...#. Simulated |
00000010  69 63 6f 6e 62 61 72 20  6d 6f 75 73 65 20 63 6c  |iconbar mouse cl|
00000020  69 63 6b 0d 00 14 0d f4  20 53 79 6e 74 61 78 3a  |ick..... Syntax:|
00000030  0d 00 1e 42 f4 20 43 6c  69 63 6b 20 3c 61 70 70  |...B. Click <app|
00000040  6c 69 63 61 74 69 6f 6e  20 6e 61 6d 65 3e 20 5b  |lication name> [|
00000050  2d 73 65 6c 65 63 74 5d  20 5b 2d 6d 65 6e 75 5d  |-select] [-menu]|
00000060  20 5b 2d 61 64 6a 75 73  74 5d 20 5b 2d 77 61 69  | [-adjust] [-wai|
00000070  74 5d 0d 00 28 37 f4 20  3c 61 70 70 6c 69 63 61  |t]..(7. <applica|
00000080  74 69 6f 6e 20 6e 61 6d  65 3e 20 20 4e 61 6d 65  |tion name>  Name|
00000090  20 61 73 20 6b 6e 6f 77  6e 20 74 6f 20 74 61 73  | as known to tas|
000000a0  6b 20 6d 61 6e 61 67 65  72 0d 00 32 55 f4 20 2d  |k manager..2U. -|
000000b0  73 65 6c 65 63 74 20 2d  6d 65 6e 75 20 2d 61 64  |select -menu -ad|
000000c0  6a 75 73 74 20 20 4d 6f  75 73 65 20 63 6c 69 63  |just  Mouse clic|
000000d0  6b 73 20 74 6f 20 73 69  6d 75 6c 61 74 65 2c 20  |ks to simulate, |
000000e0  61 74 20 6c 65 61 73 74  20 6f 6e 65 20 61 6e 64  |at least one and|
000000f0  20 69 6e 20 74 68 61 74  20 6f 72 64 65 72 0d 00  | in that order..|
00000100  3c 2f f4 20 2d 77 61 69  74 20 20 57 61 69 74 20  |</. -wait  Wait |
00000110  75 6e 74 69 6c 20 61 70  70 6c 69 63 61 74 69 6f  |until applicatio|
00000120  6e 20 68 61 73 20 73 74  61 72 74 65 64 0d 00 46  |n has started..F|
00000130  04 0d 00 50 0e ee 20 85  20 f2 65 72 72 6f 72 0d  |...P.. . .error.|
00000140  00 5a 04 0d 00 64 0d e0  20 3d 20 26 41 35 30 30  |.Z...d.. = &A500|
00000150  0d 00 6e 04 0d 00 78 1c  de 20 62 6c 6f 63 6b 25  |..n...x.. block%|
00000160  20 32 35 36 2c 20 6d 65  73 73 61 67 65 73 20 38  | 256, messages 8|
00000170  0d 00 82 04 0d 00 8c 17  6d 65 73 73 61 67 65 73  |........messages|
00000180  21 30 20 3d 20 26 34 30  30 43 32 0d 00 96 12 6d  |!0 = &400C2....m|
00000190  65 73 73 61 67 65 73 21  34 20 3d 20 30 0d 00 a0  |essages!4 = 0...|
000001a0  4e c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |N.. "Wimp_Initia|
000001b0  6c 69 73 65 22 2c 20 33  31 30 2c 20 26 34 42 35  |lise", 310, &4B5|
000001c0  33 34 31 35 34 2c 20 22  43 6c 69 63 6b 22 2c 20  |34154, "Click", |
000001d0  6d 65 73 73 61 67 65 73  20 b8 20 77 69 6d 70 25  |messages . wimp%|
000001e0  2c 20 74 68 69 73 54 61  73 6b 25 0d 00 aa 37 e7  |, thisTask%...7.|
000001f0  20 77 69 6d 70 25 20 3c  20 33 31 30 20 85 20 30  | wimp% < 310 . 0|
00000200  2c 20 22 52 69 73 63 4f  53 20 33 2e 31 30 20 6f  |, "RiscOS 3.10 o|
00000210  72 20 68 69 67 68 65 72  20 72 65 71 75 69 72 65  |r higher require|
00000220  64 22 0d 00 b4 04 0d 00  be 1b c8 99 20 22 4f 53  |d".......... "OS|
00000230  5f 47 65 74 45 6e 76 22  20 b8 20 73 74 72 69 6e  |_GetEnv" . strin|
00000240  67 0d 00 c8 1f 73 74 72  69 6e 67 24 20 3d 20 a4  |g....string$ = .|
00000250  73 74 72 69 6e 67 5f 63  28 73 74 72 69 6e 67 29  |string_c(string)|
00000260  0d 00 d2 17 69 20 3d 20  a7 73 74 72 69 6e 67 24  |....i = .string$|
00000270  2c 20 22 22 22 22 29 0d  00 dc 1c 69 20 3d 20 a7  |, """")....i = .|
00000280  73 74 72 69 6e 67 24 2c  20 22 22 22 22 2c 20 69  |string$, """", i|
00000290  2b 31 29 0d 00 e6 2b 73  74 72 69 6e 67 24 20 3d  |+1)...+string$ =|
000002a0  20 a4 73 74 72 69 6e 67  5f 73 74 72 69 70 28 c1  | .string_strip(.|
000002b0  73 74 72 69 6e 67 24 2c  20 69 2b 31 29 29 0d 00  |string$, i+1))..|
000002c0  f0 04 0d 00 fa 18 f4 20  66 69 6e 64 20 74 68 65  |....... find the|
000002d0  20 74 61 73 6b 20 6e 61  6d 65 0d 01 04 09 69 20  | task name....i |
000002e0  3d 20 31 0d 01 0e 2b 74  61 73 6b 24 20 3d 20 a4  |= 1...+task$ = .|
000002f0  73 74 72 69 6e 67 5f 63  6f 6d 6d 61 6e 64 49 74  |string_commandIt|
00000300  65 6d 28 73 74 72 69 6e  67 24 2c 20 69 29 0d 01  |em(string$, i)..|
00000310  18 04 0d 01 22 21 f4 20  66 69 6e 64 20 74 68 65  |...."!. find the|
00000320  20 62 75 74 74 6f 6e 20  74 6f 20 73 69 6d 75 6c  | button to simul|
00000330  61 74 65 0d 01 2c 27 73  65 6c 65 63 74 25 20 3d  |ate..,'select% =|
00000340  20 a7 73 74 72 69 6e 67  24 2c 20 22 2d 73 65 6c  | .string$, "-sel|
00000350  65 63 74 22 29 20 3c 3e  20 30 0d 01 36 27 6d 65  |ect") <> 0..6'me|
00000360  6e 75 25 20 20 20 3d 20  a7 73 74 72 69 6e 67 24  |nu%   = .string$|
00000370  2c 20 22 2d 6d 65 6e 75  22 29 20 20 20 3c 3e 20  |, "-menu")   <> |
00000380  30 0d 01 40 27 61 64 6a  75 73 74 25 20 3d 20 a7  |0..@'adjust% = .|
00000390  73 74 72 69 6e 67 24 2c  20 22 2d 61 64 6a 75 73  |string$, "-adjus|
000003a0  74 22 29 20 3c 3e 20 30  0d 01 4a 04 0d 01 54 3e  |t") <> 0..J...T>|
000003b0  e7 20 ac 28 73 65 6c 65  63 74 25 20 84 20 6d 65  |. .(select% . me|
000003c0  6e 75 25 20 84 20 61 64  6a 75 73 74 25 29 20 85  |nu% . adjust%) .|
000003d0  20 30 2c 20 22 42 75 74  74 6f 6e 20 6e 6f 74 20  | 0, "Button not |
000003e0  73 70 65 63 69 66 69 65  64 22 0d 01 5e 04 0d 01  |specified"..^...|
000003f0  68 23 77 61 69 74 25 20  3d 20 a7 73 74 72 69 6e  |h#wait% = .strin|
00000400  67 24 2c 20 22 2d 77 61  69 74 22 29 20 3c 3e 20  |g$, "-wait") <> |
00000410  30 0d 01 72 04 0d 01 7c  21 6d 61 73 6b 4e 6f 54  |0..r...|!maskNoT|
00000420  61 73 6b 25 20 3d 20 25  31 31 31 30 30 30 30 30  |ask% = %11100000|
00000430  31 31 30 30 30 31 0d 01  86 2a 6d 61 73 6b 54 61  |110001...*maskTa|
00000440  73 6b 46 6f 75 6e 64 25  20 3d 20 25 31 31 31 30  |skFound% = %1110|
00000450  30 30 31 31 31 30 30 30  30 30 31 31 30 30 30 30  |0011100000110000|
00000460  0d 01 90 04 0d 01 9a 1c  74 61 73 6b 25 20 3d 20  |........task% = |
00000470  a4 66 69 6e 64 54 61 73  6b 28 74 61 73 6b 24 29  |.findTask(task$)|
00000480  0d 01 a4 04 0d 01 ae 12  e7 20 74 61 73 6b 25 20  |......... task% |
00000490  3d 20 2d 31 20 8c 0d 01  b8 27 20 20 e7 20 ac 20  |= -1 ....'  . . |
000004a0  77 61 69 74 25 20 85 20  30 2c 20 22 54 61 73 6b  |wait% . 0, "Task|
000004b0  20 6e 6f 74 20 72 75 6e  6e 69 6e 67 22 0d 01 c2  | not running"...|
000004c0  19 20 20 6d 61 73 6b 25  20 3d 20 6d 61 73 6b 4e  |.  mask% = maskN|
000004d0  6f 54 61 73 6b 25 0d 01  cc 10 20 20 69 63 6f 6e  |oTask%....  icon|
000004e0  25 20 3d 20 2d 31 0d 01  d6 05 cc 0d 01 e0 21 20  |% = -1........! |
000004f0  20 69 63 6f 6e 25 20 3d  20 a4 73 63 61 6e 49 63  | icon% = .scanIc|
00000500  6f 6e 42 61 72 28 74 61  73 6b 25 29 0d 01 ea 37  |onBar(task%)...7|
00000510  20 20 f2 6d 61 6b 65 43  6c 69 63 6b 28 74 61 73  |  .makeClick(tas|
00000520  6b 25 2c 20 69 63 6f 6e  25 2c 20 73 65 6c 65 63  |k%, icon%, selec|
00000530  74 25 2c 20 6d 65 6e 75  25 2c 20 61 64 6a 75 73  |t%, menu%, adjus|
00000540  74 25 29 0d 01 f4 1c 20  20 6d 61 73 6b 25 20 3d  |t%)....  mask% =|
00000550  20 6d 61 73 6b 54 61 73  6b 46 6f 75 6e 64 25 0d  | maskTaskFound%.|
00000560  01 fe 05 cd 0d 02 08 04  0d 02 12 05 f5 0d 02 1c  |................|
00000570  2b 20 20 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |+  .. "Wimp_Poll|
00000580  22 2c 20 6d 61 73 6b 25  2c 20 62 6c 6f 63 6b 25  |", mask%, block%|
00000590  20 b8 20 65 76 65 6e 74  0d 02 26 10 20 20 c8 8e  | . event..&.  ..|
000005a0  20 65 76 65 6e 74 20 ca  0d 02 30 11 20 20 c9 20  | event ...0.  . |
000005b0  30 3a 20 f4 20 6e 75 6c  6c 0d 02 3a 16 20 20 20  |0: . null..:.   |
000005c0  20 e7 20 69 63 6f 6e 25  20 3d 20 2d 31 20 8c 0d  | . icon% = -1 ..|
000005d0  02 44 25 20 20 20 20 20  20 69 63 6f 6e 25 20 3d  |.D%      icon% =|
000005e0  20 a4 73 63 61 6e 49 63  6f 6e 42 61 72 28 74 61  | .scanIconBar(ta|
000005f0  73 6b 25 29 0d 02 4e 09  20 20 20 20 cc 0d 02 58  |sk%)..N.    ...X|
00000600  3b 20 20 20 20 20 20 f2  6d 61 6b 65 43 6c 69 63  |;      .makeClic|
00000610  6b 28 74 61 73 6b 25 2c  20 69 63 6f 6e 25 2c 20  |k(task%, icon%, |
00000620  73 65 6c 65 63 74 25 2c  20 6d 65 6e 75 25 2c 20  |select%, menu%, |
00000630  61 64 6a 75 73 74 25 29  0d 02 62 09 20 20 20 20  |adjust%)..b.    |
00000640  cd 0d 02 6c 28 20 20 20  20 e7 20 ac 28 73 65 6c  |...l(    . .(sel|
00000650  65 63 74 25 20 84 20 6d  65 6e 75 25 20 84 20 61  |ect% . menu% . a|
00000660  64 6a 75 73 74 25 29 20  e0 0d 02 76 13 20 20 c9  |djust%) ...v.  .|
00000670  20 31 37 2c 20 31 38 2c  20 31 39 3a 0d 02 80 16  | 17, 18, 19:....|
00000680  20 20 20 20 c8 8e 20 62  6c 6f 63 6b 25 21 31 36  |    .. block%!16|
00000690  20 ca 0d 02 8a 21 20 20  20 20 c9 20 26 34 30 30  | ....!    . &400|
000006a0  43 32 3a 20 f4 20 74 61  73 6b 20 73 74 61 72 74  |C2: . task start|
000006b0  69 6e 67 0d 02 94 2a 20  20 20 20 20 20 e7 20 74  |ing...*      . t|
000006c0  61 73 6b 24 20 3d 20 a4  73 74 72 69 6e 67 5f 63  |ask$ = .string_c|
000006d0  28 62 6c 6f 63 6b 25 2b  32 38 29 20 8c 0d 02 9e  |(block%+28) ....|
000006e0  1c 20 20 20 20 20 20 20  20 74 61 73 6b 25 20 3d  |.        task% =|
000006f0  20 62 6c 6f 63 6b 25 21  34 0d 02 a8 22 20 20 20  | block%!4..."   |
00000700  20 20 20 20 20 6d 61 73  6b 25 20 3d 20 6d 61 73  |     mask% = mas|
00000710  6b 54 61 73 6b 46 6f 75  6e 64 25 0d 02 b2 0b 20  |kTaskFound%.... |
00000720  20 20 20 20 20 cd 0d 02  bc 0c 20 20 20 20 c9 20  |     .....    . |
00000730  30 3a 0d 02 c6 0b 20 20  20 20 20 20 e0 0d 02 d0  |0:....      ....|
00000740  09 20 20 20 20 cb 0d 02  da 07 20 20 cb 0d 02 e4  |.    .....  ....|
00000750  07 fd 20 a3 0d 02 ee 04  0d 02 f8 3d dd 20 f2 6d  |.. ........=. .m|
00000760  61 6b 65 43 6c 69 63 6b  28 74 61 73 6b 25 2c 20  |akeClick(task%, |
00000770  69 63 6f 6e 25 2c 20 f8  20 73 65 6c 65 63 74 25  |icon%, . select%|
00000780  2c 20 f8 20 6d 65 6e 75  25 2c 20 f8 20 61 64 6a  |, . menu%, . adj|
00000790  75 73 74 25 29 0d 03 02  08 ea 20 62 25 0d 03 0c  |ust%)..... b%...|
000007a0  0f e7 20 73 65 6c 65 63  74 25 20 8c 0d 03 16 0c  |.. select% .....|
000007b0  20 20 62 25 20 3d 20 34  0d 03 20 11 20 20 73 65  |  b% = 4.. .  se|
000007c0  6c 65 63 74 25 20 3d 20  a3 0d 03 2a 05 cc 0d 03  |lect% = ...*....|
000007d0  34 0f 20 20 e7 20 6d 65  6e 75 25 20 8c 0d 03 3e  |4.  . menu% ...>|
000007e0  0e 20 20 20 20 62 25 20  3d 20 32 0d 03 48 11 20  |.    b% = 2..H. |
000007f0  20 20 20 6d 65 6e 75 25  20 3d 20 a3 0d 03 52 07  |   menu% = ...R.|
00000800  20 20 cc 0d 03 5c 27 20  20 20 20 e7 20 61 64 6a  |  ...\'    . adj|
00000810  75 73 74 25 20 8c 20 62  25 20 3d 20 31 3a 20 61  |ust% . b% = 1: a|
00000820  64 6a 75 73 74 25 20 3d  20 a3 0d 03 66 07 20 20  |djust% = ...f.  |
00000830  cd 0d 03 70 05 cd 0d 03  7a 0e e7 20 62 25 20 3d  |...p....z.. b% =|
00000840  20 30 20 e1 0d 03 84 04  0d 03 8e 11 62 6c 6f 63  | 0 .........bloc|
00000850  6b 25 21 30 20 3d 20 2d  32 0d 03 98 14 62 6c 6f  |k%!0 = -2....blo|
00000860  63 6b 25 21 34 20 3d 20  69 63 6f 6e 25 0d 03 a2  |ck%!4 = icon%...|
00000870  23 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |#.. "Wimp_GetIco|
00000880  6e 53 74 61 74 65 22 2c  2c 20 62 6c 6f 63 6b 25  |nState",, block%|
00000890  0d 03 ac 04 0d 03 b6 2b  62 6c 6f 63 6b 25 21 30  |.......+block%!0|
000008a0  20 20 3d 20 28 62 6c 6f  63 6b 25 21 38 20 2b 20  |  = (block%!8 + |
000008b0  62 6c 6f 63 6b 25 21 31  36 29 20 3e 3e 20 31 0d  |block%!16) >> 1.|
000008c0  03 c0 2c 62 6c 6f 63 6b  25 21 34 20 20 3d 20 28  |..,block%!4  = (|
000008d0  62 6c 6f 63 6b 25 21 31  32 20 2b 20 62 6c 6f 63  |block%!12 + bloc|
000008e0  6b 25 21 32 30 29 20 3e  3e 20 31 0d 03 ca 12 62  |k%!20) >> 1....b|
000008f0  6c 6f 63 6b 25 21 38 20  20 3d 20 62 25 0d 03 d4  |lock%!8  = b%...|
00000900  12 62 6c 6f 63 6b 25 21  31 32 20 3d 20 2d 32 0d  |.block%!12 = -2.|
00000910  03 de 15 62 6c 6f 63 6b  25 21 31 36 20 3d 20 69  |...block%!16 = i|
00000920  63 6f 6e 25 0d 03 e8 04  0d 03 f2 2f c8 99 20 22  |con%......./.. "|
00000930  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00000940  22 2c 20 36 2c 20 62 6c  6f 63 6b 25 2c 20 2d 32  |", 6, block%, -2|
00000950  2c 20 69 63 6f 6e 25 0d  03 fc 05 e1 0d 04 06 04  |, icon%.........|
00000960  0d 04 10 20 dd 20 a4 77  68 6f 4f 77 6e 73 49 74  |... . .whoOwnsIt|
00000970  28 77 69 6e 64 6f 77 25  2c 20 69 63 6f 6e 25 29  |(window%, icon%)|
00000980  0d 04 1a 0b ea 20 74 61  73 6b 25 0d 04 24 11 62  |..... task%..$.b|
00000990  6c 6f 63 6b 25 21 30 20  3d 20 31 36 0d 04 2e 11  |lock%!0 = 16....|
000009a0  62 6c 6f 63 6b 25 21 34  20 3d 20 20 30 0d 04 38  |block%!4 =  0..8|
000009b0  11 62 6c 6f 63 6b 25 21  38 20 3d 20 20 30 0d 04  |.block%!8 =  0..|
000009c0  42 11 62 6c 6f 63 6b 25  21 31 32 20 3d 20 30 0d  |B.block%!12 = 0.|
000009d0  04 4c 3f c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |.L?.. "Wimp_Send|
000009e0  4d 65 73 73 61 67 65 22  2c 20 31 39 2c 20 62 6c  |Message", 19, bl|
000009f0  6f 63 6b 25 2c 20 77 69  6e 64 6f 77 25 2c 20 69  |ock%, window%, i|
00000a00  63 6f 6e 25 20 b8 20 2c  2c 74 61 73 6b 25 0d 04  |con% . ,,task%..|
00000a10  56 0b 3d 20 74 61 73 6b  25 0d 04 60 04 0d 04 6a  |V.= task%..`...j|
00000a20  19 dd 20 a4 73 63 61 6e  49 63 6f 6e 42 61 72 28  |.. .scanIconBar(|
00000a30  74 61 73 6b 25 29 0d 04  74 1b ea 20 66 6c 61 67  |task%)..t.. flag|
00000a40  25 2c 20 69 63 6f 6e 25  2c 20 6e 49 63 6f 6e 73  |%, icon%, nIcons|
00000a50  25 0d 04 7e 0d 66 6c 61  67 25 20 3d 20 b9 0d 04  |%..~.flag% = ...|
00000a60  88 0e 69 63 6f 6e 25 20  3d 20 2d 31 0d 04 92 11  |..icon% = -1....|
00000a70  62 6c 6f 63 6b 25 21 30  20 3d 20 2d 32 0d 04 9c  |block%!0 = -2...|
00000a80  26 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |&.. "Wimp_GetWin|
00000a90  64 6f 77 49 6e 66 6f 22  2c 20 2c 62 6c 6f 63 6b  |dowInfo", ,block|
00000aa0  25 2b 31 0d 04 a6 17 6e  49 63 6f 6e 73 25 20 3d  |%+1....nIcons% =|
00000ab0  20 62 6c 6f 63 6b 25 21  38 38 0d 04 b0 19 e3 20  | block%!88..... |
00000ac0  69 63 6f 6e 25 20 3d 20  30 20 b8 20 6e 49 63 6f  |icon% = 0 . nIco|
00000ad0  6e 73 25 0d 04 ba 2f 20  20 e7 20 74 61 73 6b 25  |ns%.../  . task%|
00000ae0  20 3d 20 a4 77 68 6f 4f  77 6e 73 49 74 28 2d 32  | = .whoOwnsIt(-2|
00000af0  2c 20 69 63 6f 6e 25 29  20 8c 20 3d 20 69 63 6f  |, icon%) . = ico|
00000b00  6e 25 0d 04 c4 05 ed 0d  04 ce 08 3d 20 2d 31 0d  |n%.........= -1.|
00000b10  04 d8 04 0d 04 e2 13 dd  20 a4 73 74 72 69 6e 67  |........ .string|
00000b20  5f 63 28 70 25 29 0d 04  ec 11 f4 20 31 2e 30 20  |_c(p%)..... 1.0 |
00000b30  31 36 2f 36 2f 39 31 0d  04 f6 6e f4 20 72 65 74  |16/6/91...n. ret|
00000b40  75 72 6e 20 63 6f 6e 74  72 6f 6c 20 74 65 72 6d  |urn control term|
00000b50  69 6e 61 74 65 64 20 73  74 72 69 6e 67 20 70 6f  |inated string po|
00000b60  69 6e 74 65 64 20 74 6f  20 62 79 20 70 25 20 61  |inted to by p% a|
00000b70  6e 64 20 75 70 64 61 74  65 20 70 25 20 74 6f 20  |nd update p% to |
00000b80  70 6f 69 6e 74 20 74 6f  20 6e 65 78 74 20 63 68  |point to next ch|
00000b90  61 72 61 63 74 6f 72 20  61 66 74 65 72 20 63 6f  |aractor after co|
00000ba0  6e 74 72 6f 6c 0d 05 00  08 ea 20 61 24 0d 05 0a  |ntrol..... a$...|
00000bb0  0f c8 95 20 3f 70 25 20  3e 20 33 31 0d 05 14 15  |... ?p% > 31....|
00000bc0  20 20 61 24 20 3d 20 61  24 20 2b 20 bd 20 3f 70  |  a$ = a$ + . ?p|
00000bd0  25 0d 05 1e 0d 20 20 70  25 20 2b 3d 20 31 0d 05  |%....  p% += 1..|
00000be0  28 05 ce 0d 05 32 0b 70  25 20 2b 3d 20 31 0d 05  |(....2.p% += 1..|
00000bf0  3c 08 3d 20 61 24 0d 05  46 04 0d 05 50 16 dd 20  |<.= a$..F...P.. |
00000c00  a4 66 69 6e 64 54 61 73  6b 28 74 61 73 6b 24 29  |.findTask(task$)|
00000c10  0d 05 5a 08 ea 20 70 25  0d 05 64 0a 70 25 20 3d  |..Z.. p%..d.p% =|
00000c20  20 30 0d 05 6e 05 f5 0d  05 78 3a 20 20 c8 99 20  | 0..n....x:  .. |
00000c30  22 54 61 73 6b 4d 61 6e  61 67 65 72 5f 45 6e 75  |"TaskManager_Enu|
00000c40  6d 65 72 61 74 65 54 61  73 6b 73 22 2c 20 70 25  |merateTasks", p%|
00000c50  2c 20 62 6c 6f 63 6b 25  2c 20 31 36 20 b8 20 70  |, block%, 16 . p|
00000c60  25 0d 05 82 31 20 20 e7  20 a4 73 74 72 69 6e 67  |%...1  . .string|
00000c70  5f 63 28 62 6c 6f 63 6b  25 21 34 29 20 3d 20 74  |_c(block%!4) = t|
00000c80  61 73 6b 24 20 8c 20 20  3d 20 62 6c 6f 63 6b 25  |ask$ .  = block%|
00000c90  21 30 0d 05 8c 0c fd 20  70 25 20 3c 20 30 0d 05  |!0..... p% < 0..|
00000ca0  96 08 3d 20 2d 31 0d 05  a0 04 0d 05 aa 17 dd 20  |..= -1......... |
00000cb0  a4 73 74 72 69 6e 67 5f  73 74 72 69 70 28 61 24  |.string_strip(a$|
00000cc0  29 0d 05 b4 11 f4 20 31  2e 30 20 31 36 2f 36 2f  |)..... 1.0 16/6/|
00000cd0  39 31 0d 05 be 11 c8 95  20 c0 61 24 2c 31 29 3d  |91...... .a$,1)=|
00000ce0  22 20 22 0d 05 c8 10 20  20 20 61 24 3d c1 61 24  |" "....   a$=.a$|
00000cf0  2c 32 29 0d 05 d2 08 20  20 20 ce 0d 05 dc 11 c8  |,2)....   ......|
00000d00  95 20 c2 61 24 2c 31 29  3d 22 20 22 0d 05 e6 14  |. .a$,1)=" "....|
00000d10  20 20 20 61 24 3d c0 61  24 2c a9 61 24 2d 31 29  |   a$=.a$,.a$-1)|
00000d20  0d 05 f0 08 20 20 20 ce  0d 05 fa 07 3d 61 24 0d  |....   .....=a$.|
00000d30  06 04 04 0d 06 0e 27 dd  20 a4 73 74 72 69 6e 67  |......'. .string|
00000d40  5f 63 6f 6d 6d 61 6e 64  49 74 65 6d 28 73 74 72  |_commandItem(str|
00000d50  69 6e 67 24 2c 20 f8 20  69 29 0d 06 18 0e ea 20  |ing$, . i)..... |
00000d60  69 74 65 6d 24 2c 20 6a  0d 06 22 25 69 20 3d 20  |item$, j.."%i = |
00000d70  a4 73 74 72 69 6e 67 5f  73 6b 69 70 28 73 74 72  |.string_skip(str|
00000d80  69 6e 67 24 2c 20 22 20  22 2c 20 69 29 0d 06 2c  |ing$, " ", i)..,|
00000d90  1e e7 20 c1 73 74 72 69  6e 67 24 2c 20 69 2c 20  |.. .string$, i, |
00000da0  31 29 20 3d 20 22 22 22  22 20 8c 0d 06 36 1e 20  |1) = """" ...6. |
00000db0  20 6a 20 3d 20 a7 73 74  72 69 6e 67 24 2c 20 22  | j = .string$, "|
00000dc0  22 22 22 2c 20 69 2b 31  29 0d 06 40 21 20 20 c8  |""", i+1)..@!  .|
00000dd0  95 20 c1 73 74 72 69 6e  67 24 2c 20 6a 2b 31 2c  |. .string$, j+1,|
00000de0  20 31 29 20 3d 20 22 22  22 22 0d 06 4a 20 20 20  | 1) = """"..J   |
00000df0  20 20 6a 20 3d 20 a7 73  74 72 69 6e 67 24 2c 20  |  j = .string$, |
00000e00  22 22 22 22 2c 20 6a 2b  32 29 0d 06 54 07 20 20  |"""", j+2)..T.  |
00000e10  ce 0d 06 5e 26 20 20 e7  20 6a 20 3d 20 30 20 85  |...^&  . j = 0 .|
00000e20  20 30 2c 20 22 4d 69 73  6d 61 74 63 68 65 64 20  | 0, "Mismatched |
00000e30  71 75 6f 74 65 73 22 0d  06 68 23 20 20 69 74 65  |quotes"..h#  ite|
00000e40  6d 24 20 3d 20 c1 73 74  72 69 6e 67 24 2c 20 69  |m$ = .string$, i|
00000e50  2b 31 2c 20 6a 2d 69 2d  31 29 0d 06 72 0d 20 20  |+1, j-i-1)..r.  |
00000e60  69 20 3d 20 6a 2b 31 0d  06 7c 05 cc 0d 06 86 2c  |i = j+1..|.....,|
00000e70  20 20 69 74 65 6d 24 20  3d 20 a4 73 74 72 69 6e  |  item$ = .strin|
00000e80  67 5f 74 6f 6b 65 6e 28  73 74 72 69 6e 67 24 2c  |g_token(string$,|
00000e90  20 22 20 22 2c 20 69 29  0d 06 90 05 cd 0d 06 9a  | " ", i)........|
00000ea0  0b 3d 20 69 74 65 6d 24  0d 06 a4 04 0d 06 ae 29  |.= item$.......)|
00000eb0  dd 20 a4 73 74 72 69 6e  67 5f 73 6b 69 70 28 73  |. .string_skip(s|
00000ec0  74 72 69 6e 67 24 2c 20  73 6b 69 70 24 2c 20 66  |tring$, skip$, f|
00000ed0  72 6f 6d 25 29 0d 06 b8  22 c8 95 20 c1 73 74 72  |rom%)...".. .str|
00000ee0  69 6e 67 24 2c 20 66 72  6f 6d 25 2c 20 31 29 20  |ing$, from%, 1) |
00000ef0  3d 20 73 6b 69 70 24 0d  06 c2 10 20 20 66 72 6f  |= skip$....  fro|
00000f00  6d 25 20 2b 3d 20 31 0d  06 cc 05 ce 0d 06 d6 0b  |m% += 1.........|
00000f10  3d 20 66 72 6f 6d 25 0d  06 e0 04 0d 06 ea 2a dd  |= from%.......*.|
00000f20  20 a4 73 74 72 69 6e 67  5f 74 6f 6b 65 6e 28 73  | .string_token(s|
00000f30  74 72 69 6e 67 24 2c 20  74 6f 6b 65 6e 24 2c 20  |tring$, token$, |
00000f40  f8 20 69 25 29 0d 06 f4  0c f4 20 32 2f 33 2f 39  |. i%)..... 2/3/9|
00000f50  33 0d 06 fe 0c ea 20 70  25 2c 20 61 24 0d 07 08  |3..... p%, a$...|
00000f60  13 e7 20 69 25 20 3d 20  2d 31 20 8c 20 3d 22 22  |.. i% = -1 . =""|
00000f70  0d 07 12 15 e7 20 69 25  20 3d 20 30 20 8c 20 69  |..... i% = 0 . i|
00000f80  25 20 3d 20 31 0d 07 1c  1e 70 25 20 3d 20 a7 73  |% = 1....p% = .s|
00000f90  74 72 69 6e 67 24 2c 20  74 6f 6b 65 6e 24 2c 20  |tring$, token$, |
00000fa0  69 25 29 0d 07 26 0e e7  20 70 25 20 3d 20 30 20  |i%)..&.. p% = 0 |
00000fb0  8c 0d 07 30 18 20 20 61  24 20 3d 20 c1 73 74 72  |...0.  a$ = .str|
00000fc0  69 6e 67 24 2c 20 69 25  29 0d 07 3a 0d 20 20 69  |ing$, i%)..:.  i|
00000fd0  25 20 3d 20 2d 31 0d 07  44 05 cc 0d 07 4e 1f 20  |% = -1..D....N. |
00000fe0  20 61 24 20 3d 20 c1 73  74 72 69 6e 67 24 2c 20  | a$ = .string$, |
00000ff0  69 25 2c 20 70 25 2d 69  25 29 0d 07 58 11 20 20  |i%, p%-i%)..X.  |
00001000  69 25 20 3d 20 70 25 20  2b 20 31 0d 07 62 05 cd  |i% = p% + 1..b..|
00001010  0d 07 6c 17 3d 20 a4 73  74 72 69 6e 67 5f 73 74  |..l.= .string_st|
00001020  72 69 70 28 61 24 29 0d  07 76 04 0d 07 80 0c dd  |rip(a$)..v......|
00001030  20 f2 65 72 72 6f 72 0d  07 8a 2d ee 20 85 20 f1  | .error...-. . .|
00001040  20 22 43 6c 69 63 6b 3a  20 22 3b 20 f6 24 3b 20  | "Click: "; .$; |
00001050  22 20 61 74 20 6c 69 6e  65 20 22 3b 20 9e 2f 31  |" at line "; ./1|
00001060  30 3a 20 e0 0d 07 94 10  62 6c 6f 63 6b 25 21 30  |0: .....block%!0|
00001070  20 3d 20 9f 0d 07 9e 2d  24 28 62 6c 6f 63 6b 25  | = ....-$(block%|
00001080  2b 34 29 20 3d 20 f6 24  20 2b 20 20 22 20 61 74  |+4) = .$ +  " at|
00001090  20 6c 69 6e 65 20 22 20  2b 20 c3 28 9e 2f 31 30  | line " + .(./10|
000010a0  29 0d 07 a8 2d c8 99 20  22 57 69 6d 70 5f 52 65  |)...-.. "Wimp_Re|
000010b0  70 6f 72 74 45 72 72 6f  72 22 2c 20 62 6c 6f 63  |portError", bloc|
000010c0  6b 25 2c 20 31 2c 20 22  43 6c 69 63 6b 22 0d 07  |k%, 1, "Click"..|
000010d0  b2 05 e0 0d ff                                    |.....|
000010d5