� > Usage
� taskid%4:$taskid%="TASK"
8ș "Wimp_Initialise",200,!taskid%,"Usage" � version%
(I`wbcol=0:`tbcol=2:`sco=3:`mbcol=2:`wfcol=7:`tfcol=7:`sci=1:`tbcol2=12
2	�vars
</� q% &300,h% 63:acc%=0:�J%=0�63�4:h%!J%=0:�
F 
Pmaxbuf%=&400
Z0� buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
d 
nshow%=�cwindow
xB� CPU Usage,3,`wfcol,`wbcol,0,-200,256,0,     0,-200,256,0  ,0
� 
�� � �errorbox
�Fș Drag,,-1:�getpointer:�popup(show%):ș Time% � t1%:timex%=t1%+50
��
�  ș Poll%,0,q% � A%
�
  Ȏ A% �
�   � 0 :�nudge:ș Time% � t1%
�  � 1 :�redraw_window(!q%)
�D  � 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
�  � 3 :�finish:�
�  � 17,18:�receive(q%)
�  �
�� �

 

� �receive(q%)

Ȏ q%!16 �

"� 0:�finish:�

,�

6�

@ 

J� �cwindow

T?� A$,f%,fc%,bc%,x0%,y0%,x1%,y1%,cx0%,cy0%,cx1%,cy1%,nicons%

^V=�create_window(cx0%,cy0%,cx1%,cy1%,0,0,f%,fc%,bc%,x0%,y0%,x1%,y1%,&2D,A$,nicons%)

h 

r� �closeawindow(handle%)

|�getw(handle%)

�xo%=x0%:yo%=y0%:open%=�

��close_window(handle%)

��

� 

�
� �finish

�ș "Wimp_CloseDown"

��

� 

�m� �create_window(cx0%,cy0%,cx1%,cy1%,scx%,scy%,flags%,fc%,bc%,sx0%,sy0%,sx1%,sy1%,titlef%,title$,nicons%)

�A!q%=cx0%:q%!4=cy0%:q%!8=cx1%:q%!12=cy1%:q%!16=scx%:q%!20=scy%

�q%!24=-1:q%!28=flags%

��fc%=15�bc%=15�

�.     q%?32=15:q%?33=15:q%?34=fc%:q%?35=bc%
3� q%?32=`tfcol:q%?33=`tbcol:q%?34=fc%:q%?35=bc%
�
1q%?36=`sco:q%?37=`tbcol:q%?38=`tbcol2:q%?39=0
&/q%!40=sx0%:q%!44=sy0%:q%!48=sx1%:q%!52=sy1%
0q%!56=titlef%
:(q%!60=&3000      : � work area flags
D!q%!64=0:q%!68=0  : � reserved
N$(q%+72)=�title$,11)
Xq%!84=nicons%
b)�I%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
lȕ nicons%>0
v(  � x0%,y0%,x1%,y1%,f%,fc%,bc%,data$
�*  I%!0=x0%:I%!4=y0%:I%!8=x1%:I%!12=y1%
�%  � (f%�&40)=0 � bc%=fc%+(bc%<<4)
�  I%!16=f%+(bc%<<24)
�  �(f%�&100)�
�@    � L%:B%=�buffer(L%):I%!20=B%:$B%=data$:I%!24=-1:I%!28=L%
�  �
�    $(I%+20)=data$
�  �
�   I%=I%+32:nicons%=nicons%-1
��
� ș CreateW,,q% � handle%
�=handle%
� 
� �front(handle%)
�handle%=-1��
�getw(handle%)
 6�open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,-1)
*�
4 
>� �popup(handle%)
H�getw(handle%)
R0xo%=mousex%-(x0%+x1%)/2:yo%=mousey%-(y1%+64)
\F�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
f�
p 
z� �reopen(handle%)
��getw(handle%)
�F�open_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
��
� 
�>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
��handle%=-1��
�q%!0=handle%:q%!28=bhandle%
�)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
�q%!20=scx%:q%!24=scy%
�ș OpenW,,q%
��
� 
�� �getw(handle%)
!q%=handle%:ș GetW,,q%
+�info(q%+4):bhandle%=q%!28:flags%=q%!32
�
$ 
.� �info(q%)
8=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
Bbx%=x0%-scx%:by%=y1%-scy%
L�
V 
`*� �update(handle%,ux0%,uy0%,ux1%,uy1%)
j9!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
t&ș UpdateW,,q% � more%:�info(q%+4)
~�
� 
�*� �invalidate(handle%,x0%,y0%,x1%,y1%)
�%ș Screen,handle%,x0%,y0%,x1%,y1%
��
� 
�� �redraw_window(handle%)
��handle%=show% �
�!q%=handle%
�ș RedrawW,,q% � more%
��info(q%+4)
�ȕ more%
�#  �J%=q%!28-bx%>>2�q%!36-bx%>>2
"  ȓȐbx%+J%*4,by%-200,3,h%?J%

  �
  ș GetR%,0,q% � more%
�
(�
2�
< 
F� �close_window(handle%)
P!q%=handle%:ș CloseW,,q%
Z�
d 
n� �vars
xWimp    = (1<<18) + (3<<6)
�CreateW = Wimp+1
�OpenW   = Wimp+5
�CloseW  = Wimp+6
�Poll%   = Wimp+7
�RedrawW = Wimp+8
�UpdateW = Wimp+9
�GetR%   = Wimp+10
�GetW    = Wimp+11
�GetP    = Wimp+15
�Drag    = Wimp+16
�Screen  = Wimp+17
�CrMenu  = Wimp+20
�DcMenu  = Wimp+21
8ș "OS_SWINumberFromString",,"Wimp_SetColour" � Col%
8ș "OS_SWINumberFromString",,"Wimp_BlockCopy" � blk%
?ș "OS_SWINumberFromString",,"OS_ReadMonotonicTime" � Time%
"�
, 
6� �getpointer
@ș GetP,,q%
JHmousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
T�
^ 
h� �errorbox
rș Drag,,-1
|C!buffer%=�:$(buffer%+4)=�$+" (internal code number "+Þ+")."+�0
�+ș "Wimp_ReportError",buffer%,1,"Usage"
�
�finish:�
��
� 
�� �buffer(L%)
�9�curbuf%+L%>buffer%+maxbuf%� �100,"Buffer space full"
�curbuf%+=L%
�=curbuf%-L%
� 
�� �nudge
�.ș Time% � t2%:�t2%<timex% acc%+=t2%-t1%:�
�'ȕtimex%+100*64<t2%:timex%+=50*64:�
��J%=h%�h%+63�4:!J%=J%!1:�
0ș blk%,show%,4,-200,256,0,0,-200:timex%+=50
,h%?63=200-acc%/50*200:�acc%>50 h%?63=200
�t2%>timex%+50 h%?63=200
&?q%=buffer%:!q%=show%:q%!4=256-4:q%!8=-200:q%!12=256:q%!16=0
0ș UpdateW,,q% � more%
:bx%=q%!4-q%!20:by%=q%!16
Dȕ more%
N-  ș Col%,7:ȓȐbx%+256-4,by%-200,3,h%?63
X-  ș Col%,0:ȓȐbx%+256-4,by%,3,h%?63-200
b  ș GetR%,0,q% � more%
l�
v�t2%<timex% acc%=0
��
�

00000000  0d 00 0a 0d f4 20 3e 20  55 73 61 67 65 0d 00 14  |..... > Usage...|
00000010  1e de 20 74 61 73 6b 69  64 25 34 3a 24 74 61 73  |.. taskid%4:$tas|
00000020  6b 69 64 25 3d 22 54 41  53 4b 22 0d 00 1e 38 c8  |kid%="TASK"...8.|
00000030  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00000040  73 65 22 2c 32 30 30 2c  21 74 61 73 6b 69 64 25  |se",200,!taskid%|
00000050  2c 22 55 73 61 67 65 22  20 b8 20 76 65 72 73 69  |,"Usage" . versi|
00000060  6f 6e 25 0d 00 28 49 60  77 62 63 6f 6c 3d 30 3a  |on%..(I`wbcol=0:|
00000070  60 74 62 63 6f 6c 3d 32  3a 60 73 63 6f 3d 33 3a  |`tbcol=2:`sco=3:|
00000080  60 6d 62 63 6f 6c 3d 32  3a 60 77 66 63 6f 6c 3d  |`mbcol=2:`wfcol=|
00000090  37 3a 60 74 66 63 6f 6c  3d 37 3a 60 73 63 69 3d  |7:`tfcol=7:`sci=|
000000a0  31 3a 60 74 62 63 6f 6c  32 3d 31 32 0d 00 32 09  |1:`tbcol2=12..2.|
000000b0  f2 76 61 72 73 0d 00 3c  2f de 20 71 25 20 26 33  |.vars..</. q% &3|
000000c0  30 30 2c 68 25 20 36 33  3a 61 63 63 25 3d 30 3a  |00,h% 63:acc%=0:|
000000d0  e3 4a 25 3d 30 b8 36 33  88 34 3a 68 25 21 4a 25  |.J%=0.63.4:h%!J%|
000000e0  3d 30 3a ed 0d 00 46 05  20 0d 00 50 10 6d 61 78  |=0:...F. ..P.max|
000000f0  62 75 66 25 3d 26 34 30  30 0d 00 5a 30 de 20 62  |buf%=&400..Z0. b|
00000100  75 66 66 65 72 25 20 6d  61 78 62 75 66 25 2c 65  |uffer% maxbuf%,e|
00000110  6e 64 62 75 66 25 20 2d  31 3a 63 75 72 62 75 66  |ndbuf% -1:curbuf|
00000120  25 3d 62 75 66 66 65 72  25 0d 00 64 05 20 0d 00  |%=buffer%..d. ..|
00000130  6e 12 73 68 6f 77 25 3d  a4 63 77 69 6e 64 6f 77  |n.show%=.cwindow|
00000140  0d 00 78 42 dc 20 43 50  55 20 55 73 61 67 65 2c  |..xB. CPU Usage,|
00000150  33 2c 60 77 66 63 6f 6c  2c 60 77 62 63 6f 6c 2c  |3,`wfcol,`wbcol,|
00000160  30 2c 2d 32 30 30 2c 32  35 36 2c 30 2c 20 20 20  |0,-200,256,0,   |
00000170  20 20 30 2c 2d 32 30 30  2c 32 35 36 2c 30 20 20  |  0,-200,256,0  |
00000180  2c 30 0d 00 82 05 20 0d  00 8c 11 ee 20 85 20 f2  |,0.... ..... . .|
00000190  65 72 72 6f 72 62 6f 78  0d 00 96 46 c8 99 20 44  |errorbox...F.. D|
000001a0  72 61 67 2c 2c 2d 31 3a  f2 67 65 74 70 6f 69 6e  |rag,,-1:.getpoin|
000001b0  74 65 72 3a f2 70 6f 70  75 70 28 73 68 6f 77 25  |ter:.popup(show%|
000001c0  29 3a c8 99 20 54 69 6d  65 25 20 b8 20 74 31 25  |):.. Time% . t1%|
000001d0  3a 74 69 6d 65 78 25 3d  74 31 25 2b 35 30 0d 00  |:timex%=t1%+50..|
000001e0  a0 05 f5 0d 00 aa 18 20  20 c8 99 20 50 6f 6c 6c  |.......  .. Poll|
000001f0  25 2c 30 2c 71 25 20 b8  20 41 25 0d 00 b4 0d 20  |%,0,q% . A%.... |
00000200  20 c8 8e 20 41 25 20 ca  0d 00 be 20 20 20 c9 20  | .. A% ....   . |
00000210  30 20 3a f2 6e 75 64 67  65 3a c8 99 20 54 69 6d  |0 :.nudge:.. Tim|
00000220  65 25 20 b8 20 74 31 25  0d 00 c8 1e 20 20 c9 20  |e% . t1%....  . |
00000230  31 20 3a f2 72 65 64 72  61 77 5f 77 69 6e 64 6f  |1 :.redraw_windo|
00000240  77 28 21 71 25 29 0d 00  d2 44 20 20 c9 20 32 20  |w(!q%)...D  . 2 |
00000250  3a f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 21 71  |:.open_window(!q|
00000260  25 2c 71 25 21 34 2c 71  25 21 38 2c 71 25 21 31  |%,q%!4,q%!8,q%!1|
00000270  32 2c 71 25 21 31 36 2c  71 25 21 32 30 2c 71 25  |2,q%!16,q%!20,q%|
00000280  21 32 34 2c 71 25 21 32  38 29 0d 00 dc 14 20 20  |!24,q%!28)....  |
00000290  c9 20 33 20 3a f2 66 69  6e 69 73 68 3a e0 0d 00  |. 3 :.finish:...|
000002a0  e6 1a 20 20 c9 20 31 37  2c 31 38 3a f2 72 65 63  |..  . 17,18:.rec|
000002b0  65 69 76 65 28 71 25 29  0d 00 f0 07 20 20 cb 0d  |eive(q%)....  ..|
000002c0  00 fa 07 fd 20 a3 0d 01  04 05 20 0d 01 0e 12 dd  |.... ..... .....|
000002d0  20 f2 72 65 63 65 69 76  65 28 71 25 29 0d 01 18  | .receive(q%)...|
000002e0  0e c8 8e 20 71 25 21 31  36 20 ca 0d 01 22 11 c9  |... q%!16 ..."..|
000002f0  20 30 3a f2 66 69 6e 69  73 68 3a e0 0d 01 2c 05  | 0:.finish:...,.|
00000300  cb 0d 01 36 05 e1 0d 01  40 05 20 0d 01 4a 0e dd  |...6....@. ..J..|
00000310  20 a4 63 77 69 6e 64 6f  77 0d 01 54 3f f3 20 41  | .cwindow..T?. A|
00000320  24 2c 66 25 2c 66 63 25  2c 62 63 25 2c 78 30 25  |$,f%,fc%,bc%,x0%|
00000330  2c 79 30 25 2c 78 31 25  2c 79 31 25 2c 63 78 30  |,y0%,x1%,y1%,cx0|
00000340  25 2c 63 79 30 25 2c 63  78 31 25 2c 63 79 31 25  |%,cy0%,cx1%,cy1%|
00000350  2c 6e 69 63 6f 6e 73 25  0d 01 5e 56 3d a4 63 72  |,nicons%..^V=.cr|
00000360  65 61 74 65 5f 77 69 6e  64 6f 77 28 63 78 30 25  |eate_window(cx0%|
00000370  2c 63 79 30 25 2c 63 78  31 25 2c 63 79 31 25 2c  |,cy0%,cx1%,cy1%,|
00000380  30 2c 30 2c 66 25 2c 66  63 25 2c 62 63 25 2c 78  |0,0,f%,fc%,bc%,x|
00000390  30 25 2c 79 30 25 2c 78  31 25 2c 79 31 25 2c 26  |0%,y0%,x1%,y1%,&|
000003a0  32 44 2c 41 24 2c 6e 69  63 6f 6e 73 25 29 0d 01  |2D,A$,nicons%)..|
000003b0  68 05 20 0d 01 72 1c dd  20 f2 63 6c 6f 73 65 61  |h. ..r.. .closea|
000003c0  77 69 6e 64 6f 77 28 68  61 6e 64 6c 65 25 29 0d  |window(handle%).|
000003d0  01 7c 12 f2 67 65 74 77  28 68 61 6e 64 6c 65 25  |.|..getw(handle%|
000003e0  29 0d 01 86 1b 78 6f 25  3d 78 30 25 3a 79 6f 25  |)....xo%=x0%:yo%|
000003f0  3d 79 30 25 3a 6f 70 65  6e 25 3d a3 0d 01 90 1a  |=y0%:open%=.....|
00000400  f2 63 6c 6f 73 65 5f 77  69 6e 64 6f 77 28 68 61  |.close_window(ha|
00000410  6e 64 6c 65 25 29 0d 01  9a 05 e1 0d 01 a4 05 20  |ndle%)......... |
00000420  0d 01 ae 0d dd 20 f2 66  69 6e 69 73 68 0d 01 b8  |..... .finish...|
00000430  17 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |... "Wimp_CloseD|
00000440  6f 77 6e 22 0d 01 c2 05  e1 0d 01 cc 05 20 0d 01  |own"......... ..|
00000450  d6 6d dd 20 a4 63 72 65  61 74 65 5f 77 69 6e 64  |.m. .create_wind|
00000460  6f 77 28 63 78 30 25 2c  63 79 30 25 2c 63 78 31  |ow(cx0%,cy0%,cx1|
00000470  25 2c 63 79 31 25 2c 73  63 78 25 2c 73 63 79 25  |%,cy1%,scx%,scy%|
00000480  2c 66 6c 61 67 73 25 2c  66 63 25 2c 62 63 25 2c  |,flags%,fc%,bc%,|
00000490  73 78 30 25 2c 73 79 30  25 2c 73 78 31 25 2c 73  |sx0%,sy0%,sx1%,s|
000004a0  79 31 25 2c 74 69 74 6c  65 66 25 2c 74 69 74 6c  |y1%,titlef%,titl|
000004b0  65 24 2c 6e 69 63 6f 6e  73 25 29 0d 01 e0 41 21  |e$,nicons%)...A!|
000004c0  71 25 3d 63 78 30 25 3a  71 25 21 34 3d 63 79 30  |q%=cx0%:q%!4=cy0|
000004d0  25 3a 71 25 21 38 3d 63  78 31 25 3a 71 25 21 31  |%:q%!8=cx1%:q%!1|
000004e0  32 3d 63 79 31 25 3a 71  25 21 31 36 3d 73 63 78  |2=cy1%:q%!16=scx|
000004f0  25 3a 71 25 21 32 30 3d  73 63 79 25 0d 01 ea 19  |%:q%!20=scy%....|
00000500  71 25 21 32 34 3d 2d 31  3a 71 25 21 32 38 3d 66  |q%!24=-1:q%!28=f|
00000510  6c 61 67 73 25 0d 01 f4  13 e7 66 63 25 3d 31 35  |lags%.....fc%=15|
00000520  80 62 63 25 3d 31 35 8c  0d 01 fe 2e 20 20 20 20  |.bc%=15.....    |
00000530  20 71 25 3f 33 32 3d 31  35 3a 71 25 3f 33 33 3d  | q%?32=15:q%?33=|
00000540  31 35 3a 71 25 3f 33 34  3d 66 63 25 3a 71 25 3f  |15:q%?34=fc%:q%?|
00000550  33 35 3d 62 63 25 0d 02  08 33 cc 20 71 25 3f 33  |35=bc%...3. q%?3|
00000560  32 3d 60 74 66 63 6f 6c  3a 71 25 3f 33 33 3d 60  |2=`tfcol:q%?33=`|
00000570  74 62 63 6f 6c 3a 71 25  3f 33 34 3d 66 63 25 3a  |tbcol:q%?34=fc%:|
00000580  71 25 3f 33 35 3d 62 63  25 0d 02 12 05 cd 0d 02  |q%?35=bc%.......|
00000590  1c 31 71 25 3f 33 36 3d  60 73 63 6f 3a 71 25 3f  |.1q%?36=`sco:q%?|
000005a0  33 37 3d 60 74 62 63 6f  6c 3a 71 25 3f 33 38 3d  |37=`tbcol:q%?38=|
000005b0  60 74 62 63 6f 6c 32 3a  71 25 3f 33 39 3d 30 0d  |`tbcol2:q%?39=0.|
000005c0  02 26 2f 71 25 21 34 30  3d 73 78 30 25 3a 71 25  |.&/q%!40=sx0%:q%|
000005d0  21 34 34 3d 73 79 30 25  3a 71 25 21 34 38 3d 73  |!44=sy0%:q%!48=s|
000005e0  78 31 25 3a 71 25 21 35  32 3d 73 79 31 25 0d 02  |x1%:q%!52=sy1%..|
000005f0  30 11 71 25 21 35 36 3d  74 69 74 6c 65 66 25 0d  |0.q%!56=titlef%.|
00000600  02 3a 28 71 25 21 36 30  3d 26 33 30 30 30 20 20  |.:(q%!60=&3000  |
00000610  20 20 20 20 3a 20 f4 20  77 6f 72 6b 20 61 72 65  |    : . work are|
00000620  61 20 66 6c 61 67 73 0d  02 44 21 71 25 21 36 34  |a flags..D!q%!64|
00000630  3d 30 3a 71 25 21 36 38  3d 30 20 20 3a 20 f4 20  |=0:q%!68=0  : . |
00000640  72 65 73 65 72 76 65 64  0d 02 4e 18 24 28 71 25  |reserved..N.$(q%|
00000650  2b 37 32 29 3d c0 74 69  74 6c 65 24 2c 31 31 29  |+72)=.title$,11)|
00000660  0d 02 58 11 71 25 21 38  34 3d 6e 69 63 6f 6e 73  |..X.q%!84=nicons|
00000670  25 0d 02 62 29 ea 49 25  2c 78 30 25 2c 79 30 25  |%..b).I%,x0%,y0%|
00000680  2c 78 31 25 2c 79 31 25  2c 66 25 2c 64 61 74 61  |,x1%,y1%,f%,data|
00000690  24 3a 49 25 3d 71 25 2b  38 38 0d 02 6c 10 c8 95  |$:I%=q%+88..l...|
000006a0  20 6e 69 63 6f 6e 73 25  3e 30 0d 02 76 28 20 20  | nicons%>0..v(  |
000006b0  f3 20 78 30 25 2c 79 30  25 2c 78 31 25 2c 79 31  |. x0%,y0%,x1%,y1|
000006c0  25 2c 66 25 2c 66 63 25  2c 62 63 25 2c 64 61 74  |%,f%,fc%,bc%,dat|
000006d0  61 24 0d 02 80 2a 20 20  49 25 21 30 3d 78 30 25  |a$...*  I%!0=x0%|
000006e0  3a 49 25 21 34 3d 79 30  25 3a 49 25 21 38 3d 78  |:I%!4=y0%:I%!8=x|
000006f0  31 25 3a 49 25 21 31 32  3d 79 31 25 0d 02 8a 25  |1%:I%!12=y1%...%|
00000700  20 20 e7 20 28 66 25 80  26 34 30 29 3d 30 20 8c  |  . (f%.&40)=0 .|
00000710  20 62 63 25 3d 66 63 25  2b 28 62 63 25 3c 3c 34  | bc%=fc%+(bc%<<4|
00000720  29 0d 02 94 18 20 20 49  25 21 31 36 3d 66 25 2b  |)....  I%!16=f%+|
00000730  28 62 63 25 3c 3c 32 34  29 0d 02 9e 11 20 20 e7  |(bc%<<24)....  .|
00000740  28 66 25 80 26 31 30 30  29 8c 0d 02 a8 40 20 20  |(f%.&100)....@  |
00000750  20 20 f3 20 4c 25 3a 42  25 3d a4 62 75 66 66 65  |  . L%:B%=.buffe|
00000760  72 28 4c 25 29 3a 49 25  21 32 30 3d 42 25 3a 24  |r(L%):I%!20=B%:$|
00000770  42 25 3d 64 61 74 61 24  3a 49 25 21 32 34 3d 2d  |B%=data$:I%!24=-|
00000780  31 3a 49 25 21 32 38 3d  4c 25 0d 02 b2 07 20 20  |1:I%!28=L%....  |
00000790  cc 0d 02 bc 16 20 20 20  20 24 28 49 25 2b 32 30  |.....    $(I%+20|
000007a0  29 3d 64 61 74 61 24 0d  02 c6 07 20 20 cd 0d 02  |)=data$....  ...|
000007b0  d0 20 20 20 49 25 3d 49  25 2b 33 32 3a 6e 69 63  |.   I%=I%+32:nic|
000007c0  6f 6e 73 25 3d 6e 69 63  6f 6e 73 25 2d 31 0d 02  |ons%=nicons%-1..|
000007d0  da 05 ce 0d 02 e4 1d 20  c8 99 20 43 72 65 61 74  |....... .. Creat|
000007e0  65 57 2c 2c 71 25 20 b8  20 68 61 6e 64 6c 65 25  |eW,,q% . handle%|
000007f0  0d 02 ee 0c 3d 68 61 6e  64 6c 65 25 0d 02 f8 05  |....=handle%....|
00000800  20 0d 03 02 15 dd 20 f2  66 72 6f 6e 74 28 68 61  | ..... .front(ha|
00000810  6e 64 6c 65 25 29 0d 03  0c 11 e7 68 61 6e 64 6c  |ndle%).....handl|
00000820  65 25 3d 2d 31 8c e1 0d  03 16 12 f2 67 65 74 77  |e%=-1.......getw|
00000830  28 68 61 6e 64 6c 65 25  29 0d 03 20 36 f2 6f 70  |(handle%).. 6.op|
00000840  65 6e 5f 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |en_window(handle|
00000850  25 2c 78 30 25 2c 79 30  25 2c 78 31 25 2c 79 31  |%,x0%,y0%,x1%,y1|
00000860  25 2c 73 63 78 25 2c 73  63 79 25 2c 2d 31 29 0d  |%,scx%,scy%,-1).|
00000870  03 2a 05 e1 0d 03 34 05  20 0d 03 3e 15 dd 20 f2  |.*....4. ..>.. .|
00000880  70 6f 70 75 70 28 68 61  6e 64 6c 65 25 29 0d 03  |popup(handle%)..|
00000890  48 12 f2 67 65 74 77 28  68 61 6e 64 6c 65 25 29  |H..getw(handle%)|
000008a0  0d 03 52 30 78 6f 25 3d  6d 6f 75 73 65 78 25 2d  |..R0xo%=mousex%-|
000008b0  28 78 30 25 2b 78 31 25  29 2f 32 3a 79 6f 25 3d  |(x0%+x1%)/2:yo%=|
000008c0  6d 6f 75 73 65 79 25 2d  28 79 31 25 2b 36 34 29  |mousey%-(y1%+64)|
000008d0  0d 03 5c 46 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |..\F.open_window|
000008e0  28 68 61 6e 64 6c 65 25  2c 78 30 25 2b 78 6f 25  |(handle%,x0%+xo%|
000008f0  2c 79 30 25 2b 79 6f 25  2c 78 31 25 2b 78 6f 25  |,y0%+yo%,x1%+xo%|
00000900  2c 79 31 25 2b 79 6f 25  2c 73 63 78 25 2c 73 63  |,y1%+yo%,scx%,sc|
00000910  79 25 2c 2d 31 29 0d 03  66 05 e1 0d 03 70 05 20  |y%,-1)..f....p. |
00000920  0d 03 7a 16 dd 20 f2 72  65 6f 70 65 6e 28 68 61  |..z.. .reopen(ha|
00000930  6e 64 6c 65 25 29 0d 03  84 12 f2 67 65 74 77 28  |ndle%).....getw(|
00000940  68 61 6e 64 6c 65 25 29  0d 03 8e 46 f2 6f 70 65  |handle%)...F.ope|
00000950  6e 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |n_window(handle%|
00000960  2c 78 6f 25 2c 79 6f 25  2c 78 31 25 2d 78 30 25  |,xo%,yo%,x1%-x0%|
00000970  2b 78 6f 25 2c 79 31 25  2d 79 30 25 2b 79 6f 25  |+xo%,y1%-y0%+yo%|
00000980  2c 73 63 78 25 2c 73 63  79 25 2c 2d 31 29 0d 03  |,scx%,scy%,-1)..|
00000990  98 05 e1 0d 03 a2 05 20  0d 03 ac 3e dd 20 f2 6f  |....... ...>. .o|
000009a0  70 65 6e 5f 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |pen_window(handl|
000009b0  65 25 2c 78 30 25 2c 79  30 25 2c 78 31 25 2c 79  |e%,x0%,y0%,x1%,y|
000009c0  31 25 2c 73 63 78 25 2c  73 63 79 25 2c 62 68 61  |1%,scx%,scy%,bha|
000009d0  6e 64 6c 65 25 29 0d 03  b6 11 e7 68 61 6e 64 6c  |ndle%).....handl|
000009e0  65 25 3d 2d 31 8c e1 0d  03 c0 1f 71 25 21 30 3d  |e%=-1......q%!0=|
000009f0  68 61 6e 64 6c 65 25 3a  71 25 21 32 38 3d 62 68  |handle%:q%!28=bh|
00000a00  61 6e 64 6c 65 25 0d 03  ca 29 71 25 21 34 3d 78  |andle%...)q%!4=x|
00000a10  30 25 3a 71 25 21 38 3d  79 30 25 3a 71 25 21 31  |0%:q%!8=y0%:q%!1|
00000a20  32 3d 78 31 25 3a 71 25  21 31 36 3d 79 31 25 0d  |2=x1%:q%!16=y1%.|
00000a30  03 d4 19 71 25 21 32 30  3d 73 63 78 25 3a 71 25  |...q%!20=scx%:q%|
00000a40  21 32 34 3d 73 63 79 25  0d 03 de 10 c8 99 20 4f  |!24=scy%...... O|
00000a50  70 65 6e 57 2c 2c 71 25  0d 03 e8 05 e1 0d 03 f2  |penW,,q%........|
00000a60  05 20 0d 03 fc 14 dd 20  f2 67 65 74 77 28 68 61  |. ..... .getw(ha|
00000a70  6e 64 6c 65 25 29 0d 04  06 1b 21 71 25 3d 68 61  |ndle%)....!q%=ha|
00000a80  6e 64 6c 65 25 3a c8 99  20 47 65 74 57 2c 2c 71  |ndle%:.. GetW,,q|
00000a90  25 0d 04 10 2b f2 69 6e  66 6f 28 71 25 2b 34 29  |%...+.info(q%+4)|
00000aa0  3a 62 68 61 6e 64 6c 65  25 3d 71 25 21 32 38 3a  |:bhandle%=q%!28:|
00000ab0  66 6c 61 67 73 25 3d 71  25 21 33 32 0d 04 1a 05  |flags%=q%!32....|
00000ac0  e1 0d 04 24 05 20 0d 04  2e 0f dd 20 f2 69 6e 66  |...$. ..... .inf|
00000ad0  6f 28 71 25 29 0d 04 38  3d 78 30 25 3d 21 71 25  |o(q%)..8=x0%=!q%|
00000ae0  3a 79 30 25 3d 71 25 21  34 3a 78 31 25 3d 71 25  |:y0%=q%!4:x1%=q%|
00000af0  21 38 3a 79 31 25 3d 71  25 21 31 32 3a 73 63 78  |!8:y1%=q%!12:scx|
00000b00  25 3d 71 25 21 31 36 3a  73 63 79 25 3d 71 25 21  |%=q%!16:scy%=q%!|
00000b10  32 30 0d 04 42 1d 62 78  25 3d 78 30 25 2d 73 63  |20..B.bx%=x0%-sc|
00000b20  78 25 3a 62 79 25 3d 79  31 25 2d 73 63 79 25 0d  |x%:by%=y1%-scy%.|
00000b30  04 4c 05 e1 0d 04 56 05  20 0d 04 60 2a dd 20 f2  |.L....V. ..`*. .|
00000b40  75 70 64 61 74 65 28 68  61 6e 64 6c 65 25 2c 75  |update(handle%,u|
00000b50  78 30 25 2c 75 79 30 25  2c 75 78 31 25 2c 75 79  |x0%,uy0%,ux1%,uy|
00000b60  31 25 29 0d 04 6a 39 21  71 25 3d 68 61 6e 64 6c  |1%)..j9!q%=handl|
00000b70  65 25 3a 71 25 21 34 3d  75 78 30 25 3a 71 25 21  |e%:q%!4=ux0%:q%!|
00000b80  38 3d 75 79 30 25 3a 71  25 21 31 32 3d 75 78 31  |8=uy0%:q%!12=ux1|
00000b90  25 3a 71 25 21 31 36 3d  75 79 31 25 0d 04 74 26  |%:q%!16=uy1%..t&|
00000ba0  c8 99 20 55 70 64 61 74  65 57 2c 2c 71 25 20 b8  |.. UpdateW,,q% .|
00000bb0  20 6d 6f 72 65 25 3a f2  69 6e 66 6f 28 71 25 2b  | more%:.info(q%+|
00000bc0  34 29 0d 04 7e 05 e1 0d  04 88 05 20 0d 04 92 2a  |4)..~...... ...*|
00000bd0  dd 20 f2 69 6e 76 61 6c  69 64 61 74 65 28 68 61  |. .invalidate(ha|
00000be0  6e 64 6c 65 25 2c 78 30  25 2c 79 30 25 2c 78 31  |ndle%,x0%,y0%,x1|
00000bf0  25 2c 79 31 25 29 0d 04  9c 25 c8 99 20 53 63 72  |%,y1%)...%.. Scr|
00000c00  65 65 6e 2c 68 61 6e 64  6c 65 25 2c 78 30 25 2c  |een,handle%,x0%,|
00000c10  79 30 25 2c 78 31 25 2c  79 31 25 0d 04 a6 05 e1  |y0%,x1%,y1%.....|
00000c20  0d 04 b0 05 20 0d 04 ba  1d dd 20 f2 72 65 64 72  |.... ..... .redr|
00000c30  61 77 5f 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |aw_window(handle|
00000c40  25 29 0d 04 c4 14 e7 68  61 6e 64 6c 65 25 3d 73  |%).....handle%=s|
00000c50  68 6f 77 25 20 8c 0d 04  ce 0f 21 71 25 3d 68 61  |how% .....!q%=ha|
00000c60  6e 64 6c 65 25 0d 04 d8  1a c8 99 20 52 65 64 72  |ndle%...... Redr|
00000c70  61 77 57 2c 2c 71 25 20  b8 20 6d 6f 72 65 25 0d  |awW,,q% . more%.|
00000c80  04 e2 0f f2 69 6e 66 6f  28 71 25 2b 34 29 0d 04  |....info(q%+4)..|
00000c90  ec 0c c8 95 20 6d 6f 72  65 25 0d 04 f6 23 20 20  |.... more%...#  |
00000ca0  e3 4a 25 3d 71 25 21 32  38 2d 62 78 25 3e 3e 32  |.J%=q%!28-bx%>>2|
00000cb0  b8 71 25 21 33 36 2d 62  78 25 3e 3e 32 0d 05 00  |.q%!36-bx%>>2...|
00000cc0  22 20 20 c8 93 c8 90 62  78 25 2b 4a 25 2a 34 2c  |"  ....bx%+J%*4,|
00000cd0  62 79 25 2d 32 30 30 2c  33 2c 68 25 3f 4a 25 0d  |by%-200,3,h%?J%.|
00000ce0  05 0a 07 20 20 ed 0d 05  14 1b 20 20 c8 99 20 47  |...  .....  .. G|
00000cf0  65 74 52 25 2c 30 2c 71  25 20 b8 20 6d 6f 72 65  |etR%,0,q% . more|
00000d00  25 0d 05 1e 05 ce 0d 05  28 05 cd 0d 05 32 05 e1  |%.......(....2..|
00000d10  0d 05 3c 05 20 0d 05 46  1c dd 20 f2 63 6c 6f 73  |..<. ..F.. .clos|
00000d20  65 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |e_window(handle%|
00000d30  29 0d 05 50 1d 21 71 25  3d 68 61 6e 64 6c 65 25  |)..P.!q%=handle%|
00000d40  3a c8 99 20 43 6c 6f 73  65 57 2c 2c 71 25 0d 05  |:.. CloseW,,q%..|
00000d50  5a 05 e1 0d 05 64 05 20  0d 05 6e 0b dd 20 f2 76  |Z....d. ..n.. .v|
00000d60  61 72 73 0d 05 78 1e 57  69 6d 70 20 20 20 20 3d  |ars..x.Wimp    =|
00000d70  20 28 31 3c 3c 31 38 29  20 2b 20 28 33 3c 3c 36  | (1<<18) + (3<<6|
00000d80  29 0d 05 82 14 43 72 65  61 74 65 57 20 3d 20 57  |)....CreateW = W|
00000d90  69 6d 70 2b 31 0d 05 8c  14 4f 70 65 6e 57 20 20  |imp+1....OpenW  |
00000da0  20 3d 20 57 69 6d 70 2b  35 0d 05 96 14 43 6c 6f  | = Wimp+5....Clo|
00000db0  73 65 57 20 20 3d 20 57  69 6d 70 2b 36 0d 05 a0  |seW  = Wimp+6...|
00000dc0  14 50 6f 6c 6c 25 20 20  20 3d 20 57 69 6d 70 2b  |.Poll%   = Wimp+|
00000dd0  37 0d 05 aa 14 52 65 64  72 61 77 57 20 3d 20 57  |7....RedrawW = W|
00000de0  69 6d 70 2b 38 0d 05 b4  14 55 70 64 61 74 65 57  |imp+8....UpdateW|
00000df0  20 3d 20 57 69 6d 70 2b  39 0d 05 be 15 47 65 74  | = Wimp+9....Get|
00000e00  52 25 20 20 20 3d 20 57  69 6d 70 2b 31 30 0d 05  |R%   = Wimp+10..|
00000e10  c8 15 47 65 74 57 20 20  20 20 3d 20 57 69 6d 70  |..GetW    = Wimp|
00000e20  2b 31 31 0d 05 d2 15 47  65 74 50 20 20 20 20 3d  |+11....GetP    =|
00000e30  20 57 69 6d 70 2b 31 35  0d 05 dc 15 44 72 61 67  | Wimp+15....Drag|
00000e40  20 20 20 20 3d 20 57 69  6d 70 2b 31 36 0d 05 e6  |    = Wimp+16...|
00000e50  15 53 63 72 65 65 6e 20  20 3d 20 57 69 6d 70 2b  |.Screen  = Wimp+|
00000e60  31 37 0d 05 f0 15 43 72  4d 65 6e 75 20 20 3d 20  |17....CrMenu  = |
00000e70  57 69 6d 70 2b 32 30 0d  05 fa 15 44 63 4d 65 6e  |Wimp+20....DcMen|
00000e80  75 20 20 3d 20 57 69 6d  70 2b 32 31 0d 06 04 38  |u  = Wimp+21...8|
00000e90  c8 99 20 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |.. "OS_SWINumber|
00000ea0  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 57 69  |FromString",,"Wi|
00000eb0  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 20 b8 20  |mp_SetColour" . |
00000ec0  43 6f 6c 25 0d 06 0e 38  c8 99 20 22 4f 53 5f 53  |Col%...8.. "OS_S|
00000ed0  57 49 4e 75 6d 62 65 72  46 72 6f 6d 53 74 72 69  |WINumberFromStri|
00000ee0  6e 67 22 2c 2c 22 57 69  6d 70 5f 42 6c 6f 63 6b  |ng",,"Wimp_Block|
00000ef0  43 6f 70 79 22 20 b8 20  62 6c 6b 25 0d 06 18 3f  |Copy" . blk%...?|
00000f00  c8 99 20 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |.. "OS_SWINumber|
00000f10  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 4f 53  |FromString",,"OS|
00000f20  5f 52 65 61 64 4d 6f 6e  6f 74 6f 6e 69 63 54 69  |_ReadMonotonicTi|
00000f30  6d 65 22 20 b8 20 54 69  6d 65 25 0d 06 22 05 e1  |me" . Time%.."..|
00000f40  0d 06 2c 05 20 0d 06 36  11 dd 20 f2 67 65 74 70  |..,. ..6.. .getp|
00000f50  6f 69 6e 74 65 72 0d 06  40 0f c8 99 20 47 65 74  |ointer..@... Get|
00000f60  50 2c 2c 71 25 0d 06 4a  48 6d 6f 75 73 65 78 25  |P,,q%..JHmousex%|
00000f70  3d 21 71 25 3a 6d 6f 75  73 65 79 25 3d 71 25 21  |=!q%:mousey%=q%!|
00000f80  34 3a 62 25 3d 71 25 21  38 3a 68 61 6e 64 6c 65  |4:b%=q%!8:handle|
00000f90  25 3d 71 25 21 31 32 3a  69 63 6f 6e 25 3d 71 25  |%=q%!12:icon%=q%|
00000fa0  21 31 36 3a 6f 62 25 3d  71 25 21 32 30 0d 06 54  |!16:ob%=q%!20..T|
00000fb0  05 e1 0d 06 5e 05 20 0d  06 68 0f dd 20 f2 65 72  |....^. ..h.. .er|
00000fc0  72 6f 72 62 6f 78 0d 06  72 0f c8 99 20 44 72 61  |rorbox..r... Dra|
00000fd0  67 2c 2c 2d 31 0d 06 7c  43 21 62 75 66 66 65 72  |g,,-1..|C!buffer|
00000fe0  25 3d 9f 3a 24 28 62 75  66 66 65 72 25 2b 34 29  |%=.:$(buffer%+4)|
00000ff0  3d f6 24 2b 22 20 28 69  6e 74 65 72 6e 61 6c 20  |=.$+" (internal |
00001000  63 6f 64 65 20 6e 75 6d  62 65 72 20 22 2b c3 9e  |code number "+..|
00001010  2b 22 29 2e 22 2b bd 30  0d 06 86 2b c8 99 20 22  |+")."+.0...+.. "|
00001020  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00001030  22 2c 62 75 66 66 65 72  25 2c 31 2c 22 55 73 61  |",buffer%,1,"Usa|
00001040  67 65 22 0d 06 90 0d f2  66 69 6e 69 73 68 3a e0  |ge".....finish:.|
00001050  0d 06 9a 05 e1 0d 06 a4  05 20 0d 06 ae 11 dd 20  |......... ..... |
00001060  a4 62 75 66 66 65 72 28  4c 25 29 0d 06 b8 39 e7  |.buffer(L%)...9.|
00001070  63 75 72 62 75 66 25 2b  4c 25 3e 62 75 66 66 65  |curbuf%+L%>buffe|
00001080  72 25 2b 6d 61 78 62 75  66 25 8c 20 85 31 30 30  |r%+maxbuf%. .100|
00001090  2c 22 42 75 66 66 65 72  20 73 70 61 63 65 20 66  |,"Buffer space f|
000010a0  75 6c 6c 22 0d 06 c2 0f  63 75 72 62 75 66 25 2b  |ull"....curbuf%+|
000010b0  3d 4c 25 0d 06 cc 0f 3d  63 75 72 62 75 66 25 2d  |=L%....=curbuf%-|
000010c0  4c 25 0d 06 d6 05 20 0d  06 e0 0c dd 20 f2 6e 75  |L%.... ..... .nu|
000010d0  64 67 65 0d 06 ea 2e c8  99 20 54 69 6d 65 25 20  |dge...... Time% |
000010e0  b8 20 74 32 25 3a e7 74  32 25 3c 74 69 6d 65 78  |. t2%:.t2%<timex|
000010f0  25 20 61 63 63 25 2b 3d  74 32 25 2d 74 31 25 3a  |% acc%+=t2%-t1%:|
00001100  e1 0d 06 f4 27 c8 95 74  69 6d 65 78 25 2b 31 30  |....'..timex%+10|
00001110  30 2a 36 34 3c 74 32 25  3a 74 69 6d 65 78 25 2b  |0*64<t2%:timex%+|
00001120  3d 35 30 2a 36 34 3a ce  0d 06 fe 1d e3 4a 25 3d  |=50*64:......J%=|
00001130  68 25 b8 68 25 2b 36 33  88 34 3a 21 4a 25 3d 4a  |h%.h%+63.4:!J%=J|
00001140  25 21 31 3a ed 0d 07 08  30 c8 99 20 62 6c 6b 25  |%!1:....0.. blk%|
00001150  2c 73 68 6f 77 25 2c 34  2c 2d 32 30 30 2c 32 35  |,show%,4,-200,25|
00001160  36 2c 30 2c 30 2c 2d 32  30 30 3a 74 69 6d 65 78  |6,0,0,-200:timex|
00001170  25 2b 3d 35 30 0d 07 12  2c 68 25 3f 36 33 3d 32  |%+=50...,h%?63=2|
00001180  30 30 2d 61 63 63 25 2f  35 30 2a 32 30 30 3a e7  |00-acc%/50*200:.|
00001190  61 63 63 25 3e 35 30 20  68 25 3f 36 33 3d 32 30  |acc%>50 h%?63=20|
000011a0  30 0d 07 1c 1c e7 74 32  25 3e 74 69 6d 65 78 25  |0.....t2%>timex%|
000011b0  2b 35 30 20 68 25 3f 36  33 3d 32 30 30 0d 07 26  |+50 h%?63=200..&|
000011c0  3f 71 25 3d 62 75 66 66  65 72 25 3a 21 71 25 3d  |?q%=buffer%:!q%=|
000011d0  73 68 6f 77 25 3a 71 25  21 34 3d 32 35 36 2d 34  |show%:q%!4=256-4|
000011e0  3a 71 25 21 38 3d 2d 32  30 30 3a 71 25 21 31 32  |:q%!8=-200:q%!12|
000011f0  3d 32 35 36 3a 71 25 21  31 36 3d 30 0d 07 30 1a  |=256:q%!16=0..0.|
00001200  c8 99 20 55 70 64 61 74  65 57 2c 2c 71 25 20 b8  |.. UpdateW,,q% .|
00001210  20 6d 6f 72 65 25 0d 07  3a 1c 62 78 25 3d 71 25  | more%..:.bx%=q%|
00001220  21 34 2d 71 25 21 32 30  3a 62 79 25 3d 71 25 21  |!4-q%!20:by%=q%!|
00001230  31 36 0d 07 44 0c c8 95  20 6d 6f 72 65 25 0d 07  |16..D... more%..|
00001240  4e 2d 20 20 c8 99 20 43  6f 6c 25 2c 37 3a c8 93  |N-  .. Col%,7:..|
00001250  c8 90 62 78 25 2b 32 35  36 2d 34 2c 62 79 25 2d  |..bx%+256-4,by%-|
00001260  32 30 30 2c 33 2c 68 25  3f 36 33 0d 07 58 2d 20  |200,3,h%?63..X- |
00001270  20 c8 99 20 43 6f 6c 25  2c 30 3a c8 93 c8 90 62  | .. Col%,0:....b|
00001280  78 25 2b 32 35 36 2d 34  2c 62 79 25 2c 33 2c 68  |x%+256-4,by%,3,h|
00001290  25 3f 36 33 2d 32 30 30  0d 07 62 1b 20 20 c8 99  |%?63-200..b.  ..|
000012a0  20 47 65 74 52 25 2c 30  2c 71 25 20 b8 20 6d 6f  | GetR%,0,q% . mo|
000012b0  72 65 25 0d 07 6c 05 ce  0d 07 76 16 e7 74 32 25  |re%..l....v..t2%|
000012c0  3c 74 69 6d 65 78 25 20  61 63 63 25 3d 30 0d 07  |<timex% acc%=0..|
000012d0  80 05 e1 0d ff                                    |.....|
000012d5