!� > <SolidDrag$Dir>.!RunImage
:
� SolidDrag
(5� Simple means to set/unset solid sprite dragging
2!� version 1.00  (10 Sep 1994)
<� by Graham Crow
F:
P	�init
Z�loadtemplates
d
�readCMOS
n�ow(main%,�)
x� � �wimperror
�:
�quit%=�
��:�poll:� quit%
�,$q%="TASK":ș "Wimp_CloseDown",task%,!q%
��
�:
��------
��. POLL
��------
�:
�
��poll
� ș "Wimp_Poll",,q% � reason%
�Ȏ reason% �

 � 2:�ow(q%!0,�)

 � 3:�cw(q%!0)

 � 6:�mouse(q%)

" � 17,18:� q%!16=0 quit%=�

,�

6�

@:

J�-------

T�. MOUSE

^�-------

h:

r��mouse(q%)

|� mb%,wh%,ih%

� mb%=q%!8:wh%=q%!12:ih%=q%!16

�Ȏ ih% �

� � 1

�* � mb%=1 � � �is(wh%,ih%) �si(wh%,ih%)

�
 �setCMOS

� � 2

�* � mb%=1 � � �is(wh%,ih%) �si(wh%,ih%)

� �unsetCMOS

� � 3:quit%=�

��

��

�:

�
�--------

� EXECUTE

�--------
:
&��readCMOS
0� read CMOS byte 28
:ș "OS_Byte",161,28 �,,val%
D1� �bitset(val%,1) �si(main%,1) � �si(main%,2)
N�
X:
b
��setCMOS
l� read CMOS  byte 28
vș "OS_Byte",161,28 �,,val%
�val%=�setbit(val%,1)
�� write CMOS byte 28
�ș "OS_Byte",162,28,val%
��
�:
���unsetCMOS
�� read CMOS byte 28
�ș "OS_Byte",161,28 �,,val%
�val%=�clearbit(val%,1)
�� write CMOS byte 28
�ș "OS_Byte",162,28,val%
��
�:
ݤbitset(i%,b%)
"� is bit b% in integer i% set?
� d%:d%=1<<b%
 =(i% � d%) � d%
*:
4ݤsetbit(i%,b%)
>� set bit b% in integer i%
H=i% � (1<<b%)
R:
\ݤclearbit(i%,b%)
f � clear bit b% in integer i%
p=i% � � (1<<b%)
z:
��----------------
��. INITIALISATION
��----------------
�:
�
��init
�task$="SolidDrag"
�� q% &200, buffer% &100
�B$q%="TASK":ș "Wimp_Initialise",310,!q%,task$ � version%,task%
��
�:
��---------
��. WINDOWS
��---------
:
��loadtemplates
7ș "Wimp_OpenTemplate",,"<SolidDrag$Dir>.Templates"
$main%=�twindow("Main")
.ș "Wimp_CloseTemplate"
8�
B:
Lݤtwindow(a$)
V� c%,end%:end%=buffer%+&100
`Eș "Wimp_LoadTemplate",,q%,buffer%,end%,-1,a$,0 � ,,buffer%,,,,c%
j#ș "Wimp_CreateWindow",,q% � c%
t=c%
~:
���ow(wh%,full%)
�q%!0=wh%
�5� � full% � ș "Wimp_GetWindowState",,q%:q%!28=-1
�ș "Wimp_OpenWindow",,q%
��
�:
�
��cw(wh%)
�%!q%=wh%:ș "Wimp_CloseWindow",,q%
��
�:
��-------
��. ICONS
�-------

:
��si(wh%,ih%)
,q%!0=wh%:q%!4=ih%:q%!8=1<<21:q%!12=1<<21
(ș"Wimp_SetIconState",,q%
2�
<:
F��ui(wh%,ih%)
P(q%!0=wh%:q%!4=ih%:q%!8=0:q%!12=1<<21
Zș"Wimp_SetIconState",,q%
d�
n:
xݤis(wh%,ih%)
�!q%=wh%:q%!4=ih%
�ș"Wimp_GetIconState",,q%
�=((q%!24 � 1<<21)>>>21)
�:
�
�--------
�
�. ERRORS
�
�--------
�:
���wimperror
�
� ans%
�4!q%=�:s$="OK to continue, CANCEL to kill "+task$
�0$(q%+4)=�$+" (Internal error "+Þ+") "+s$+�0
�,ș "Wimp_ReportError",q%,3,task$ � ,ans%
7� ans%=2 $q%="TASK":ș "Wimp_CloseDown",task%,!q%:�
�
�

00000000  0d 00 0a 21 f4 20 3e 20  3c 53 6f 6c 69 64 44 72  |...!. > <SolidDr|
00000010  61 67 24 44 69 72 3e 2e  21 52 75 6e 49 6d 61 67  |ag$Dir>.!RunImag|
00000020  65 0d 00 14 05 3a 0d 00  1e 0f f4 20 53 6f 6c 69  |e....:..... Soli|
00000030  64 44 72 61 67 0d 00 28  35 f4 20 53 69 6d 70 6c  |dDrag..(5. Simpl|
00000040  65 20 6d 65 61 6e 73 20  74 6f 20 73 65 74 2f 75  |e means to set/u|
00000050  6e 73 65 74 20 73 6f 6c  69 64 20 73 70 72 69 74  |nset solid sprit|
00000060  65 20 64 72 61 67 67 69  6e 67 0d 00 32 21 f4 20  |e dragging..2!. |
00000070  76 65 72 73 69 6f 6e 20  31 2e 30 30 20 20 28 31  |version 1.00  (1|
00000080  30 20 53 65 70 20 31 39  39 34 29 0d 00 3c 14 f4  |0 Sep 1994)..<..|
00000090  20 62 79 20 47 72 61 68  61 6d 20 43 72 6f 77 0d  | by Graham Crow.|
000000a0  00 46 05 3a 0d 00 50 09  f2 69 6e 69 74 0d 00 5a  |.F.:..P..init..Z|
000000b0  12 f2 6c 6f 61 64 74 65  6d 70 6c 61 74 65 73 0d  |..loadtemplates.|
000000c0  00 64 0d f2 72 65 61 64  43 4d 4f 53 0d 00 6e 10  |.d..readCMOS..n.|
000000d0  f2 6f 77 28 6d 61 69 6e  25 2c a3 29 0d 00 78 12  |.ow(main%,.)..x.|
000000e0  ee 20 85 20 f2 77 69 6d  70 65 72 72 6f 72 0d 00  |. . .wimperror..|
000000f0  82 05 3a 0d 00 8c 0b 71  75 69 74 25 3d a3 0d 00  |..:....quit%=...|
00000100  96 13 f5 3a f2 70 6f 6c  6c 3a fd 20 71 75 69 74  |...:.poll:. quit|
00000110  25 0d 00 a0 2c 24 71 25  3d 22 54 41 53 4b 22 3a  |%...,$q%="TASK":|
00000120  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000130  77 6e 22 2c 74 61 73 6b  25 2c 21 71 25 0d 00 aa  |wn",task%,!q%...|
00000140  05 e0 0d 00 b4 05 3a 0d  00 be 0b f4 2d 2d 2d 2d  |......:.....----|
00000150  2d 2d 0d 00 c8 0b f4 2e  20 50 4f 4c 4c 0d 00 d2  |--...... POLL...|
00000160  0b f4 2d 2d 2d 2d 2d 2d  0d 00 dc 05 3a 0d 00 e6  |..------....:...|
00000170  0a dd f2 70 6f 6c 6c 0d  00 f0 20 c8 99 20 22 57  |...poll... .. "W|
00000180  69 6d 70 5f 50 6f 6c 6c  22 2c 2c 71 25 20 b8 20  |imp_Poll",,q% . |
00000190  72 65 61 73 6f 6e 25 0d  00 fa 10 c8 8e 20 72 65  |reason%...... re|
000001a0  61 73 6f 6e 25 20 ca 0d  01 04 14 20 c9 20 32 3a  |ason% ..... . 2:|
000001b0  f2 6f 77 28 71 25 21 30  2c b9 29 0d 01 0e 12 20  |.ow(q%!0,.).... |
000001c0  c9 20 33 3a f2 63 77 28  71 25 21 30 29 0d 01 18  |. 3:.cw(q%!0)...|
000001d0  13 20 c9 20 36 3a f2 6d  6f 75 73 65 28 71 25 29  |. . 6:.mouse(q%)|
000001e0  0d 01 22 1e 20 c9 20 31  37 2c 31 38 3a e7 20 71  |..". . 17,18:. q|
000001f0  25 21 31 36 3d 30 20 71  75 69 74 25 3d b9 0d 01  |%!16=0 quit%=...|
00000200  2c 05 cb 0d 01 36 05 e1  0d 01 40 05 3a 0d 01 4a  |,....6....@.:..J|
00000210  0c f4 2d 2d 2d 2d 2d 2d  2d 0d 01 54 0c f4 2e 20  |..-------..T... |
00000220  4d 4f 55 53 45 0d 01 5e  0c f4 2d 2d 2d 2d 2d 2d  |MOUSE..^..------|
00000230  2d 0d 01 68 05 3a 0d 01  72 0f dd f2 6d 6f 75 73  |-..h.:..r...mous|
00000240  65 28 71 25 29 0d 01 7c  11 ea 20 6d 62 25 2c 77  |e(q%)..|.. mb%,w|
00000250  68 25 2c 69 68 25 0d 01  86 20 6d 62 25 3d 71 25  |h%,ih%... mb%=q%|
00000260  21 38 3a 77 68 25 3d 71  25 21 31 32 3a 69 68 25  |!8:wh%=q%!12:ih%|
00000270  3d 71 25 21 31 36 0d 01  90 0c c8 8e 20 69 68 25  |=q%!16...... ih%|
00000280  20 ca 0d 01 9a 08 20 c9  20 31 0d 01 a4 2a 20 e7  | ..... . 1...* .|
00000290  20 6d 62 25 3d 31 20 80  20 ac 20 a4 69 73 28 77  | mb%=1 . . .is(w|
000002a0  68 25 2c 69 68 25 29 20  f2 73 69 28 77 68 25 2c  |h%,ih%) .si(wh%,|
000002b0  69 68 25 29 0d 01 ae 0d  20 f2 73 65 74 43 4d 4f  |ih%).... .setCMO|
000002c0  53 0d 01 b8 08 20 c9 20  32 0d 01 c2 2a 20 e7 20  |S.... . 2...* . |
000002d0  6d 62 25 3d 31 20 80 20  ac 20 a4 69 73 28 77 68  |mb%=1 . . .is(wh|
000002e0  25 2c 69 68 25 29 20 f2  73 69 28 77 68 25 2c 69  |%,ih%) .si(wh%,i|
000002f0  68 25 29 0d 01 cc 0f 20  f2 75 6e 73 65 74 43 4d  |h%).... .unsetCM|
00000300  4f 53 0d 01 d6 10 20 c9  20 33 3a 71 75 69 74 25  |OS.... . 3:quit%|
00000310  3d b9 0d 01 e0 05 cb 0d  01 ea 05 e1 0d 01 f4 05  |=...............|
00000320  3a 0d 01 fe 0d f4 2d 2d  2d 2d 2d 2d 2d 2d 0d 02  |:.....--------..|
00000330  08 0d f4 20 45 58 45 43  55 54 45 0d 02 12 0d f4  |... EXECUTE.....|
00000340  2d 2d 2d 2d 2d 2d 2d 2d  0d 02 1c 05 3a 0d 02 26  |--------....:..&|
00000350  0e dd f2 72 65 61 64 43  4d 4f 53 0d 02 30 17 f4  |...readCMOS..0..|
00000360  20 72 65 61 64 20 43 4d  4f 53 20 62 79 74 65 20  | read CMOS byte |
00000370  32 38 0d 02 3a 1f c8 99  20 22 4f 53 5f 42 79 74  |28..:... "OS_Byt|
00000380  65 22 2c 31 36 31 2c 32  38 20 b8 2c 2c 76 61 6c  |e",161,28 .,,val|
00000390  25 0d 02 44 31 e7 20 a4  62 69 74 73 65 74 28 76  |%..D1. .bitset(v|
000003a0  61 6c 25 2c 31 29 20 f2  73 69 28 6d 61 69 6e 25  |al%,1) .si(main%|
000003b0  2c 31 29 20 8b 20 f2 73  69 28 6d 61 69 6e 25 2c  |,1) . .si(main%,|
000003c0  32 29 0d 02 4e 05 e1 0d  02 58 05 3a 0d 02 62 0d  |2)..N....X.:..b.|
000003d0  dd f2 73 65 74 43 4d 4f  53 0d 02 6c 18 f4 20 72  |..setCMOS..l.. r|
000003e0  65 61 64 20 43 4d 4f 53  20 20 62 79 74 65 20 32  |ead CMOS  byte 2|
000003f0  38 0d 02 76 1f c8 99 20  22 4f 53 5f 42 79 74 65  |8..v... "OS_Byte|
00000400  22 2c 31 36 31 2c 32 38  20 b8 2c 2c 76 61 6c 25  |",161,28 .,,val%|
00000410  0d 02 80 18 76 61 6c 25  3d a4 73 65 74 62 69 74  |....val%=.setbit|
00000420  28 76 61 6c 25 2c 31 29  0d 02 8a 18 f4 20 77 72  |(val%,1)..... wr|
00000430  69 74 65 20 43 4d 4f 53  20 62 79 74 65 20 32 38  |ite CMOS byte 28|
00000440  0d 02 94 1c c8 99 20 22  4f 53 5f 42 79 74 65 22  |...... "OS_Byte"|
00000450  2c 31 36 32 2c 32 38 2c  76 61 6c 25 0d 02 9e 05  |,162,28,val%....|
00000460  e1 0d 02 a8 05 3a 0d 02  b2 0f dd f2 75 6e 73 65  |.....:......unse|
00000470  74 43 4d 4f 53 0d 02 bc  17 f4 20 72 65 61 64 20  |tCMOS..... read |
00000480  43 4d 4f 53 20 62 79 74  65 20 32 38 0d 02 c6 1f  |CMOS byte 28....|
00000490  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 36 31  |.. "OS_Byte",161|
000004a0  2c 32 38 20 b8 2c 2c 76  61 6c 25 0d 02 d0 1a 76  |,28 .,,val%....v|
000004b0  61 6c 25 3d a4 63 6c 65  61 72 62 69 74 28 76 61  |al%=.clearbit(va|
000004c0  6c 25 2c 31 29 0d 02 da  18 f4 20 77 72 69 74 65  |l%,1)..... write|
000004d0  20 43 4d 4f 53 20 62 79  74 65 20 32 38 0d 02 e4  | CMOS byte 28...|
000004e0  1c c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 36  |... "OS_Byte",16|
000004f0  32 2c 32 38 2c 76 61 6c  25 0d 02 ee 05 e1 0d 02  |2,28,val%.......|
00000500  f8 05 3a 0d 03 02 13 dd  a4 62 69 74 73 65 74 28  |..:......bitset(|
00000510  69 25 2c 62 25 29 0d 03  0c 22 f4 20 69 73 20 62  |i%,b%)...". is b|
00000520  69 74 20 62 25 20 69 6e  20 69 6e 74 65 67 65 72  |it b% in integer|
00000530  20 69 25 20 73 65 74 3f  0d 03 16 11 ea 20 64 25  | i% set?..... d%|
00000540  3a 64 25 3d 31 3c 3c 62  25 0d 03 20 13 3d 28 69  |:d%=1<<b%.. .=(i|
00000550  25 20 80 20 64 25 29 20  81 20 64 25 0d 03 2a 05  |% . d%) . d%..*.|
00000560  3a 0d 03 34 13 dd a4 73  65 74 62 69 74 28 69 25  |:..4...setbit(i%|
00000570  2c 62 25 29 0d 03 3e 1e  f4 20 73 65 74 20 62 69  |,b%)..>.. set bi|
00000580  74 20 62 25 20 69 6e 20  69 6e 74 65 67 65 72 20  |t b% in integer |
00000590  69 25 0d 03 48 11 3d 69  25 20 84 20 28 31 3c 3c  |i%..H.=i% . (1<<|
000005a0  62 25 29 0d 03 52 05 3a  0d 03 5c 15 dd a4 63 6c  |b%)..R.:..\...cl|
000005b0  65 61 72 62 69 74 28 69  25 2c 62 25 29 0d 03 66  |earbit(i%,b%)..f|
000005c0  20 f4 20 63 6c 65 61 72  20 62 69 74 20 62 25 20  | . clear bit b% |
000005d0  69 6e 20 69 6e 74 65 67  65 72 20 69 25 0d 03 70  |in integer i%..p|
000005e0  13 3d 69 25 20 80 20 ac  20 28 31 3c 3c 62 25 29  |.=i% . . (1<<b%)|
000005f0  0d 03 7a 05 3a 0d 03 84  15 f4 2d 2d 2d 2d 2d 2d  |..z.:.....------|
00000600  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 03 8e 15 f4 2e  |----------......|
00000610  20 49 4e 49 54 49 41 4c  49 53 41 54 49 4f 4e 0d  | INITIALISATION.|
00000620  03 98 15 f4 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....------------|
00000630  2d 2d 2d 2d 0d 03 a2 05  3a 0d 03 ac 0a dd f2 69  |----....:......i|
00000640  6e 69 74 0d 03 b6 15 74  61 73 6b 24 3d 22 53 6f  |nit....task$="So|
00000650  6c 69 64 44 72 61 67 22  0d 03 c0 1b de 20 71 25  |lidDrag"..... q%|
00000660  20 26 32 30 30 2c 20 62  75 66 66 65 72 25 20 26  | &200, buffer% &|
00000670  31 30 30 0d 03 ca 42 24  71 25 3d 22 54 41 53 4b  |100...B$q%="TASK|
00000680  22 3a c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |":.. "Wimp_Initi|
00000690  61 6c 69 73 65 22 2c 33  31 30 2c 21 71 25 2c 74  |alise",310,!q%,t|
000006a0  61 73 6b 24 20 b8 20 76  65 72 73 69 6f 6e 25 2c  |ask$ . version%,|
000006b0  74 61 73 6b 25 0d 03 d4  05 e1 0d 03 de 05 3a 0d  |task%.........:.|
000006c0  03 e8 0e f4 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 03 f2  |....---------...|
000006d0  0e f4 2e 20 57 49 4e 44  4f 57 53 0d 03 fc 0e f4  |... WINDOWS.....|
000006e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 04 06 05 3a 0d 04  |---------....:..|
000006f0  10 13 dd f2 6c 6f 61 64  74 65 6d 70 6c 61 74 65  |....loadtemplate|
00000700  73 0d 04 1a 37 c8 99 20  22 57 69 6d 70 5f 4f 70  |s...7.. "Wimp_Op|
00000710  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 53  |enTemplate",,"<S|
00000720  6f 6c 69 64 44 72 61 67  24 44 69 72 3e 2e 54 65  |olidDrag$Dir>.Te|
00000730  6d 70 6c 61 74 65 73 22  0d 04 24 1a 6d 61 69 6e  |mplates"..$.main|
00000740  25 3d a4 74 77 69 6e 64  6f 77 28 22 4d 61 69 6e  |%=.twindow("Main|
00000750  22 29 0d 04 2e 1b c8 99  20 22 57 69 6d 70 5f 43  |")...... "Wimp_C|
00000760  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 04 38  |loseTemplate"..8|
00000770  05 e1 0d 04 42 05 3a 0d  04 4c 11 dd a4 74 77 69  |....B.:..L...twi|
00000780  6e 64 6f 77 28 61 24 29  0d 04 56 1f ea 20 63 25  |ndow(a$)..V.. c%|
00000790  2c 65 6e 64 25 3a 65 6e  64 25 3d 62 75 66 66 65  |,end%:end%=buffe|
000007a0  72 25 2b 26 31 30 30 0d  04 60 45 c8 99 20 22 57  |r%+&100..`E.. "W|
000007b0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000007c0  22 2c 2c 71 25 2c 62 75  66 66 65 72 25 2c 65 6e  |",,q%,buffer%,en|
000007d0  64 25 2c 2d 31 2c 61 24  2c 30 20 b8 20 2c 2c 62  |d%,-1,a$,0 . ,,b|
000007e0  75 66 66 65 72 25 2c 2c  2c 2c 63 25 0d 04 6a 23  |uffer%,,,,c%..j#|
000007f0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000800  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 63 25 0d  |indow",,q% . c%.|
00000810  04 74 07 3d 63 25 0d 04  7e 05 3a 0d 04 88 13 dd  |.t.=c%..~.:.....|
00000820  f2 6f 77 28 77 68 25 2c  66 75 6c 6c 25 29 0d 04  |.ow(wh%,full%)..|
00000830  92 0c 71 25 21 30 3d 77  68 25 0d 04 9c 35 e7 20  |..q%!0=wh%...5. |
00000840  ac 20 66 75 6c 6c 25 20  8c 20 c8 99 20 22 57 69  |. full% . .. "Wi|
00000850  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000860  65 22 2c 2c 71 25 3a 71  25 21 32 38 3d 2d 31 0d  |e",,q%:q%!28=-1.|
00000870  04 a6 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..... "Wimp_Open|
00000880  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 04 b0 05 e1  |Window",,q%.....|
00000890  0d 04 ba 05 3a 0d 04 c4  0d dd f2 63 77 28 77 68  |....:......cw(wh|
000008a0  25 29 0d 04 ce 25 21 71  25 3d 77 68 25 3a c8 99  |%)...%!q%=wh%:..|
000008b0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
000008c0  6f 77 22 2c 2c 71 25 0d  04 d8 05 e1 0d 04 e2 05  |ow",,q%.........|
000008d0  3a 0d 04 ec 0c f4 2d 2d  2d 2d 2d 2d 2d 0d 04 f6  |:.....-------...|
000008e0  0c f4 2e 20 49 43 4f 4e  53 0d 05 00 0c f4 2d 2d  |... ICONS.....--|
000008f0  2d 2d 2d 2d 2d 0d 05 0a  05 3a 0d 05 14 11 dd f2  |-----....:......|
00000900  73 69 28 77 68 25 2c 69  68 25 29 0d 05 1e 2c 71  |si(wh%,ih%)...,q|
00000910  25 21 30 3d 77 68 25 3a  71 25 21 34 3d 69 68 25  |%!0=wh%:q%!4=ih%|
00000920  3a 71 25 21 38 3d 31 3c  3c 32 31 3a 71 25 21 31  |:q%!8=1<<21:q%!1|
00000930  32 3d 31 3c 3c 32 31 0d  05 28 1d c8 99 22 57 69  |2=1<<21..(..."Wi|
00000940  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00000950  2c 2c 71 25 0d 05 32 05  e1 0d 05 3c 05 3a 0d 05  |,,q%..2....<.:..|
00000960  46 11 dd f2 75 69 28 77  68 25 2c 69 68 25 29 0d  |F...ui(wh%,ih%).|
00000970  05 50 28 71 25 21 30 3d  77 68 25 3a 71 25 21 34  |.P(q%!0=wh%:q%!4|
00000980  3d 69 68 25 3a 71 25 21  38 3d 30 3a 71 25 21 31  |=ih%:q%!8=0:q%!1|
00000990  32 3d 31 3c 3c 32 31 0d  05 5a 1d c8 99 22 57 69  |2=1<<21..Z..."Wi|
000009a0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000009b0  2c 2c 71 25 0d 05 64 05  e1 0d 05 6e 05 3a 0d 05  |,,q%..d....n.:..|
000009c0  78 11 dd a4 69 73 28 77  68 25 2c 69 68 25 29 0d  |x...is(wh%,ih%).|
000009d0  05 82 14 21 71 25 3d 77  68 25 3a 71 25 21 34 3d  |...!q%=wh%:q%!4=|
000009e0  69 68 25 0d 05 8c 1d c8  99 22 57 69 6d 70 5f 47  |ih%......"Wimp_G|
000009f0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
00000a00  0d 05 96 1b 3d 28 28 71  25 21 32 34 20 80 20 31  |....=((q%!24 . 1|
00000a10  3c 3c 32 31 29 3e 3e 3e  32 31 29 0d 05 a0 05 3a  |<<21)>>>21)....:|
00000a20  0d 05 aa 0d f4 2d 2d 2d  2d 2d 2d 2d 2d 0d 05 b4  |.....--------...|
00000a30  0d f4 2e 20 45 52 52 4f  52 53 0d 05 be 0d f4 2d  |... ERRORS.....-|
00000a40  2d 2d 2d 2d 2d 2d 2d 0d  05 c8 05 3a 0d 05 d2 0f  |-------....:....|
00000a50  dd f2 77 69 6d 70 65 72  72 6f 72 0d 05 dc 0a ea  |..wimperror.....|
00000a60  20 61 6e 73 25 0d 05 e6  34 21 71 25 3d 9f 3a 73  | ans%...4!q%=.:s|
00000a70  24 3d 22 4f 4b 20 74 6f  20 63 6f 6e 74 69 6e 75  |$="OK to continu|
00000a80  65 2c 20 43 41 4e 43 45  4c 20 74 6f 20 6b 69 6c  |e, CANCEL to kil|
00000a90  6c 20 22 2b 74 61 73 6b  24 0d 05 f0 30 24 28 71  |l "+task$...0$(q|
00000aa0  25 2b 34 29 3d f6 24 2b  22 20 28 49 6e 74 65 72  |%+4)=.$+" (Inter|
00000ab0  6e 61 6c 20 65 72 72 6f  72 20 22 2b c3 9e 2b 22  |nal error "+..+"|
00000ac0  29 20 22 2b 73 24 2b bd  30 0d 05 fa 2c c8 99 20  |) "+s$+.0...,.. |
00000ad0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00000ae0  72 22 2c 71 25 2c 33 2c  74 61 73 6b 24 20 b8 20  |r",q%,3,task$ . |
00000af0  2c 61 6e 73 25 0d 06 04  37 e7 20 61 6e 73 25 3d  |,ans%...7. ans%=|
00000b00  32 20 24 71 25 3d 22 54  41 53 4b 22 3a c8 99 20  |2 $q%="TASK":.. |
00000b10  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000b20  2c 74 61 73 6b 25 2c 21  71 25 3a e0 0d 06 0e 05  |,task%,!q%:.....|
00000b30  e1 0d ff                                          |...|
00000b33