� > $.!Drunk.!RunImage
� taskid%4:$taskid%="TASK"
@ș "Wimp_Initialise",200,!taskid%,"Mouse Madness" � version%
(P`wbcol=&1:`tbcol=&2:`sco=&3:`mbcol=&B:`wfcol=&7:`tfcol=&7:`sci=&D:`tbcol2=&C
2	�vars
<)� q% 256,buffers% 512,X%(255),Y%(255)
F+�X%=0�255:X%(X%)=4*�(3):Y%(X%)=4*�(3):�
P"Madness%=�cwindow:madspeed%=20
Z;� Drunk,%1010011,`wfcol,`wbcol,0,-1024,1280,0,0,0,0,0,0
d� � �finish:�
n 
x/� �errorbox:ș CrMenu,,-1 : � close menus!
�,ș Drag,,-1:�getpointer:�popup(Madness%)
�7ș Time% � timex%:timex%+=madspeed%:after%=Madness%
��
�  ș Poll%,0,q%,timex% � A%
�
  Ȏ A% �
�  � 0 :�nudge
�  � 3 :�closeawindow(!q%)
�  � 17,18:�receive(q%)
�  �
�� �
� 
�� �receive(q%)
�Ȏ q%!16 �

� 0:�finish:�

�

�

" 

,� �cwindow

6A  � 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%)

J 

T� �closeawindow(handle%)

^�close_window(handle%)

h
�finish:�

r�

| 

�
� �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=-2: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%
q%!56=titlef%
(q%!60=&3000      : � work area flags
!q%!64=0:q%!68=0  : � reserved
&$(q%+72)=�title$,11)
0q%!84=nicons%
:)�I%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
Dȕ nicons%>0
N(  � x0%,y0%,x1%,y1%,f%,fc%,bc%,data$
X*  I%!0=x0%:I%!4=y0%:I%!8=x1%:I%!12=y1%
b%  � (f%�&40)=0 � bc%=fc%+(bc%<<4)
l  I%!16=f%+(bc%<<24)
v  �(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)
�
 
� �popup(handle%)
 �getw(handle%)
*xo%=0:yo%=100
46�open_window(handle%,xo%,yo%,xo%,yo%,scx%,scy%,-2)
>�
H 
R>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
\�handle%=-1��
fq%!0=handle%:q%!28=bhandle%
p)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
zq%!20=scx%:q%!24=scy%
�ș OpenW,,q%
��
� 
�� �getw(handle%)
�!q%=handle%:ș GetW,,q%
�+�info(q%+4):bhandle%=q%!28:flags%=q%!32
��
� 
�� �info(q%)
�=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
�bx%=x0%-scx%:by%=y1%-scy%
��
� 
� �nudge
 � q%,X,Y,Z:�tick:q%=buffers%
� �
$0� � � after%=Madness%:� �:�popup(Madness%):�
.'!q%=after%:ș gws%,,q%:after%=q%!28
8�after%=-1 �
B!q%=after%:ș gws%,,q%
La%=after%�255
V9�q%!12>1280-64 X%(a%)=-�(3)*4 ��q%!4<10 X%(a%)=�(3)*4
`q%!4+=X%(a%):q%!12+=X%(a%)
j:�q%!16>1024-64 Y%(a%)=-�(3)*4 ��q%!8<100 Y%(a%)=�(3)*4
tq%!8+=Y%(a%):q%!16+=Y%(a%)
~(� SYS "Wimp_SendMessage",2,q%,after%
�ȗ X,Y,Z
�X+=�(70)-�(40)
�Y+=�(10)-�(50)
�ȗ � X,Y
��
� 
�� �tick
�ș Time% � timeslip%
�+ȕtimeslip%>=timex%:timex%+=madspeed%:�
��
� 
� �close_window(handle%)

!q%=handle%:ș CloseW,,q%
�
 
(� �vars
2Wimp    = (1<<18) + (3<<6)
<CreateW = Wimp+1
FOpenW   = Wimp+5
PCloseW  = Wimp+6
ZRedrawW = Wimp+8
dUpdateW = Wimp+9
nGetR%   = Wimp+10
xGetW    = Wimp+11
�GetP    = Wimp+15
�Drag    = Wimp+16
�CrMenu  = Wimp+20
�DcMenu  = Wimp+21
�8ș "OS_SWINumberFromString",,"Wimp_PollIdle" � Poll%
�?ș "OS_SWINumberFromString",,"OS_ReadMonotonicTime" � Time%
�=ș "OS_SWINumberFromString",,"Wimp_GetWindowState" � gws%
��
� 
�� �getpointer
�ș GetP,,q%
�Hmousex%=!q%:mousey%=q%!4:b%=q%!8:handle%=q%!12:icon%=q%!16:ob%=q%!20
��
 
� �errorbox
ș Drag,,-1
"2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
,,ș "Wimp_ReportError",buffers%,1,"Drunk"
6
�finish:�
@�
�

00000000  0d 00 0a 1a f4 20 3e 20  24 2e 21 44 72 75 6e 6b  |..... > $.!Drunk|
00000010  2e 21 52 75 6e 49 6d 61  67 65 0d 00 14 1e de 20  |.!RunImage..... |
00000020  74 61 73 6b 69 64 25 34  3a 24 74 61 73 6b 69 64  |taskid%4:$taskid|
00000030  25 3d 22 54 41 53 4b 22  0d 00 1e 40 c8 99 20 22  |%="TASK"...@.. "|
00000040  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000050  2c 32 30 30 2c 21 74 61  73 6b 69 64 25 2c 22 4d  |,200,!taskid%,"M|
00000060  6f 75 73 65 20 4d 61 64  6e 65 73 73 22 20 b8 20  |ouse Madness" . |
00000070  76 65 72 73 69 6f 6e 25  0d 00 28 50 60 77 62 63  |version%..(P`wbc|
00000080  6f 6c 3d 26 31 3a 60 74  62 63 6f 6c 3d 26 32 3a  |ol=&1:`tbcol=&2:|
00000090  60 73 63 6f 3d 26 33 3a  60 6d 62 63 6f 6c 3d 26  |`sco=&3:`mbcol=&|
000000a0  42 3a 60 77 66 63 6f 6c  3d 26 37 3a 60 74 66 63  |B:`wfcol=&7:`tfc|
000000b0  6f 6c 3d 26 37 3a 60 73  63 69 3d 26 44 3a 60 74  |ol=&7:`sci=&D:`t|
000000c0  62 63 6f 6c 32 3d 26 43  0d 00 32 09 f2 76 61 72  |bcol2=&C..2..var|
000000d0  73 0d 00 3c 29 de 20 71  25 20 32 35 36 2c 62 75  |s..<). q% 256,bu|
000000e0  66 66 65 72 73 25 20 35  31 32 2c 58 25 28 32 35  |ffers% 512,X%(25|
000000f0  35 29 2c 59 25 28 32 35  35 29 0d 00 46 2b e3 58  |5),Y%(255)..F+.X|
00000100  25 3d 30 b8 32 35 35 3a  58 25 28 58 25 29 3d 34  |%=0.255:X%(X%)=4|
00000110  2a b3 28 33 29 3a 59 25  28 58 25 29 3d 34 2a b3  |*.(3):Y%(X%)=4*.|
00000120  28 33 29 3a ed 0d 00 50  22 4d 61 64 6e 65 73 73  |(3):...P"Madness|
00000130  25 3d a4 63 77 69 6e 64  6f 77 3a 6d 61 64 73 70  |%=.cwindow:madsp|
00000140  65 65 64 25 3d 32 30 0d  00 5a 3b dc 20 44 72 75  |eed%=20..Z;. Dru|
00000150  6e 6b 2c 25 31 30 31 30  30 31 31 2c 60 77 66 63  |nk,%1010011,`wfc|
00000160  6f 6c 2c 60 77 62 63 6f  6c 2c 30 2c 2d 31 30 32  |ol,`wbcol,0,-102|
00000170  34 2c 31 32 38 30 2c 30  2c 30 2c 30 2c 30 2c 30  |4,1280,0,0,0,0,0|
00000180  2c 30 0d 00 64 11 ee 20  85 20 f2 66 69 6e 69 73  |,0..d.. . .finis|
00000190  68 3a e0 0d 00 6e 05 20  0d 00 78 2f ee 85 20 f2  |h:...n. ..x/.. .|
000001a0  65 72 72 6f 72 62 6f 78  3a c8 99 20 43 72 4d 65  |errorbox:.. CrMe|
000001b0  6e 75 2c 2c 2d 31 20 3a  20 f4 20 63 6c 6f 73 65  |nu,,-1 : . close|
000001c0  20 6d 65 6e 75 73 21 0d  00 82 2c c8 99 20 44 72  | menus!...,.. Dr|
000001d0  61 67 2c 2c 2d 31 3a f2  67 65 74 70 6f 69 6e 74  |ag,,-1:.getpoint|
000001e0  65 72 3a f2 70 6f 70 75  70 28 4d 61 64 6e 65 73  |er:.popup(Madnes|
000001f0  73 25 29 0d 00 8c 37 c8  99 20 54 69 6d 65 25 20  |s%)...7.. Time% |
00000200  b8 20 74 69 6d 65 78 25  3a 74 69 6d 65 78 25 2b  |. timex%:timex%+|
00000210  3d 6d 61 64 73 70 65 65  64 25 3a 61 66 74 65 72  |=madspeed%:after|
00000220  25 3d 4d 61 64 6e 65 73  73 25 0d 00 96 05 f5 0d  |%=Madness%......|
00000230  00 a0 1f 20 20 c8 99 20  50 6f 6c 6c 25 2c 30 2c  |...  .. Poll%,0,|
00000240  71 25 2c 74 69 6d 65 78  25 20 b8 20 41 25 0d 00  |q%,timex% . A%..|
00000250  aa 0d 20 20 c8 8e 20 41  25 20 ca 0d 00 b4 11 20  |..  .. A% ..... |
00000260  20 c9 20 30 20 3a f2 6e  75 64 67 65 0d 00 be 1d  | . 0 :.nudge....|
00000270  20 20 c9 20 33 20 3a f2  63 6c 6f 73 65 61 77 69  |  . 3 :.closeawi|
00000280  6e 64 6f 77 28 21 71 25  29 0d 00 c8 1a 20 20 c9  |ndow(!q%)....  .|
00000290  20 31 37 2c 31 38 3a f2  72 65 63 65 69 76 65 28  | 17,18:.receive(|
000002a0  71 25 29 0d 00 d2 07 20  20 cb 0d 00 dc 07 fd 20  |q%)....  ...... |
000002b0  a3 0d 00 e6 05 20 0d 00  f0 12 dd 20 f2 72 65 63  |..... ..... .rec|
000002c0  65 69 76 65 28 71 25 29  0d 00 fa 0e c8 8e 20 71  |eive(q%)...... q|
000002d0  25 21 31 36 20 ca 0d 01  04 11 c9 20 30 3a f2 66  |%!16 ...... 0:.f|
000002e0  69 6e 69 73 68 3a e0 0d  01 0e 05 cb 0d 01 18 05  |inish:..........|
000002f0  e1 0d 01 22 05 20 0d 01  2c 0e dd 20 a4 63 77 69  |...". ..,.. .cwi|
00000300  6e 64 6f 77 0d 01 36 41  20 20 f3 20 41 24 2c 66  |ndow..6A  . A$,f|
00000310  25 2c 66 63 25 2c 62 63  25 2c 78 30 25 2c 79 30  |%,fc%,bc%,x0%,y0|
00000320  25 2c 78 31 25 2c 79 31  25 2c 63 78 30 25 2c 63  |%,x1%,y1%,cx0%,c|
00000330  79 30 25 2c 63 78 31 25  2c 63 79 31 25 2c 6e 69  |y0%,cx1%,cy1%,ni|
00000340  63 6f 6e 73 25 0d 01 40  56 3d a4 63 72 65 61 74  |cons%..@V=.creat|
00000350  65 5f 77 69 6e 64 6f 77  28 63 78 30 25 2c 63 79  |e_window(cx0%,cy|
00000360  30 25 2c 63 78 31 25 2c  63 79 31 25 2c 30 2c 30  |0%,cx1%,cy1%,0,0|
00000370  2c 66 25 2c 66 63 25 2c  62 63 25 2c 78 30 25 2c  |,f%,fc%,bc%,x0%,|
00000380  79 30 25 2c 78 31 25 2c  79 31 25 2c 26 32 44 2c  |y0%,x1%,y1%,&2D,|
00000390  41 24 2c 6e 69 63 6f 6e  73 25 29 0d 01 4a 05 20  |A$,nicons%)..J. |
000003a0  0d 01 54 1c dd 20 f2 63  6c 6f 73 65 61 77 69 6e  |..T.. .closeawin|
000003b0  64 6f 77 28 68 61 6e 64  6c 65 25 29 0d 01 5e 1a  |dow(handle%)..^.|
000003c0  f2 63 6c 6f 73 65 5f 77  69 6e 64 6f 77 28 68 61  |.close_window(ha|
000003d0  6e 64 6c 65 25 29 0d 01  68 0d f2 66 69 6e 69 73  |ndle%)..h..finis|
000003e0  68 3a e0 0d 01 72 05 e1  0d 01 7c 05 20 0d 01 86  |h:...r....|. ...|
000003f0  0d dd 20 f2 66 69 6e 69  73 68 0d 01 90 17 c8 99  |.. .finish......|
00000400  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
00000410  22 0d 01 9a 05 e1 0d 01  a4 05 20 0d 01 ae 6d dd  |"......... ...m.|
00000420  20 a4 63 72 65 61 74 65  5f 77 69 6e 64 6f 77 28  | .create_window(|
00000430  63 78 30 25 2c 63 79 30  25 2c 63 78 31 25 2c 63  |cx0%,cy0%,cx1%,c|
00000440  79 31 25 2c 73 63 78 25  2c 73 63 79 25 2c 66 6c  |y1%,scx%,scy%,fl|
00000450  61 67 73 25 2c 66 63 25  2c 62 63 25 2c 73 78 30  |ags%,fc%,bc%,sx0|
00000460  25 2c 73 79 30 25 2c 73  78 31 25 2c 73 79 31 25  |%,sy0%,sx1%,sy1%|
00000470  2c 74 69 74 6c 65 66 25  2c 74 69 74 6c 65 24 2c  |,titlef%,title$,|
00000480  6e 69 63 6f 6e 73 25 29  0d 01 b8 41 21 71 25 3d  |nicons%)...A!q%=|
00000490  63 78 30 25 3a 71 25 21  34 3d 63 79 30 25 3a 71  |cx0%:q%!4=cy0%:q|
000004a0  25 21 38 3d 63 78 31 25  3a 71 25 21 31 32 3d 63  |%!8=cx1%:q%!12=c|
000004b0  79 31 25 3a 71 25 21 31  36 3d 73 63 78 25 3a 71  |y1%:q%!16=scx%:q|
000004c0  25 21 32 30 3d 73 63 79  25 0d 01 c2 19 71 25 21  |%!20=scy%....q%!|
000004d0  32 34 3d 2d 32 3a 71 25  21 32 38 3d 66 6c 61 67  |24=-2:q%!28=flag|
000004e0  73 25 0d 01 cc 13 e7 66  63 25 3d 31 35 80 62 63  |s%.....fc%=15.bc|
000004f0  25 3d 31 35 8c 0d 01 d6  2b 20 20 71 25 3f 33 32  |%=15....+  q%?32|
00000500  3d 31 35 3a 71 25 3f 33  33 3d 31 35 3a 71 25 3f  |=15:q%?33=15:q%?|
00000510  33 34 3d 66 63 25 3a 71  25 3f 33 35 3d 62 63 25  |34=fc%:q%?35=bc%|
00000520  0d 01 e0 33 cc 20 71 25  3f 33 32 3d 60 74 66 63  |...3. q%?32=`tfc|
00000530  6f 6c 3a 71 25 3f 33 33  3d 60 74 62 63 6f 6c 3a  |ol:q%?33=`tbcol:|
00000540  71 25 3f 33 34 3d 66 63  25 3a 71 25 3f 33 35 3d  |q%?34=fc%:q%?35=|
00000550  62 63 25 0d 01 ea 05 cd  0d 01 f4 31 71 25 3f 33  |bc%........1q%?3|
00000560  36 3d 60 73 63 6f 3a 71  25 3f 33 37 3d 60 74 62  |6=`sco:q%?37=`tb|
00000570  63 6f 6c 3a 71 25 3f 33  38 3d 60 74 62 63 6f 6c  |col:q%?38=`tbcol|
00000580  32 3a 71 25 3f 33 39 3d  30 0d 01 fe 2f 71 25 21  |2:q%?39=0.../q%!|
00000590  34 30 3d 73 78 30 25 3a  71 25 21 34 34 3d 73 79  |40=sx0%:q%!44=sy|
000005a0  30 25 3a 71 25 21 34 38  3d 73 78 31 25 3a 71 25  |0%:q%!48=sx1%:q%|
000005b0  21 35 32 3d 73 79 31 25  0d 02 08 11 71 25 21 35  |!52=sy1%....q%!5|
000005c0  36 3d 74 69 74 6c 65 66  25 0d 02 12 28 71 25 21  |6=titlef%...(q%!|
000005d0  36 30 3d 26 33 30 30 30  20 20 20 20 20 20 3a 20  |60=&3000      : |
000005e0  f4 20 77 6f 72 6b 20 61  72 65 61 20 66 6c 61 67  |. work area flag|
000005f0  73 0d 02 1c 21 71 25 21  36 34 3d 30 3a 71 25 21  |s...!q%!64=0:q%!|
00000600  36 38 3d 30 20 20 3a 20  f4 20 72 65 73 65 72 76  |68=0  : . reserv|
00000610  65 64 0d 02 26 18 24 28  71 25 2b 37 32 29 3d c0  |ed..&.$(q%+72)=.|
00000620  74 69 74 6c 65 24 2c 31  31 29 0d 02 30 11 71 25  |title$,11)..0.q%|
00000630  21 38 34 3d 6e 69 63 6f  6e 73 25 0d 02 3a 29 ea  |!84=nicons%..:).|
00000640  49 25 2c 78 30 25 2c 79  30 25 2c 78 31 25 2c 79  |I%,x0%,y0%,x1%,y|
00000650  31 25 2c 66 25 2c 64 61  74 61 24 3a 49 25 3d 71  |1%,f%,data$:I%=q|
00000660  25 2b 38 38 0d 02 44 10  c8 95 20 6e 69 63 6f 6e  |%+88..D... nicon|
00000670  73 25 3e 30 0d 02 4e 28  20 20 f3 20 78 30 25 2c  |s%>0..N(  . x0%,|
00000680  79 30 25 2c 78 31 25 2c  79 31 25 2c 66 25 2c 66  |y0%,x1%,y1%,f%,f|
00000690  63 25 2c 62 63 25 2c 64  61 74 61 24 0d 02 58 2a  |c%,bc%,data$..X*|
000006a0  20 20 49 25 21 30 3d 78  30 25 3a 49 25 21 34 3d  |  I%!0=x0%:I%!4=|
000006b0  79 30 25 3a 49 25 21 38  3d 78 31 25 3a 49 25 21  |y0%:I%!8=x1%:I%!|
000006c0  31 32 3d 79 31 25 0d 02  62 25 20 20 e7 20 28 66  |12=y1%..b%  . (f|
000006d0  25 80 26 34 30 29 3d 30  20 8c 20 62 63 25 3d 66  |%.&40)=0 . bc%=f|
000006e0  63 25 2b 28 62 63 25 3c  3c 34 29 0d 02 6c 18 20  |c%+(bc%<<4)..l. |
000006f0  20 49 25 21 31 36 3d 66  25 2b 28 62 63 25 3c 3c  | I%!16=f%+(bc%<<|
00000700  32 34 29 0d 02 76 11 20  20 e7 28 66 25 80 26 31  |24)..v.  .(f%.&1|
00000710  30 30 29 8c 0d 02 80 40  20 20 20 20 f3 20 4c 25  |00)....@    . L%|
00000720  3a 42 25 3d a4 62 75 66  66 65 72 28 4c 25 29 3a  |:B%=.buffer(L%):|
00000730  49 25 21 32 30 3d 42 25  3a 24 42 25 3d 64 61 74  |I%!20=B%:$B%=dat|
00000740  61 24 3a 49 25 21 32 34  3d 2d 31 3a 49 25 21 32  |a$:I%!24=-1:I%!2|
00000750  38 3d 4c 25 0d 02 8a 07  20 20 cc 0d 02 94 16 20  |8=L%....  ..... |
00000760  20 20 20 24 28 49 25 2b  32 30 29 3d 64 61 74 61  |   $(I%+20)=data|
00000770  24 0d 02 9e 07 20 20 cd  0d 02 a8 20 20 20 49 25  |$....  ....   I%|
00000780  3d 49 25 2b 33 32 3a 6e  69 63 6f 6e 73 25 3d 6e  |=I%+32:nicons%=n|
00000790  69 63 6f 6e 73 25 2d 31  0d 02 b2 05 ce 0d 02 bc  |icons%-1........|
000007a0  1d 20 c8 99 20 43 72 65  61 74 65 57 2c 2c 71 25  |. .. CreateW,,q%|
000007b0  20 b8 20 68 61 6e 64 6c  65 25 0d 02 c6 0c 3d 68  | . handle%....=h|
000007c0  61 6e 64 6c 65 25 0d 02  d0 05 20 0d 02 da 15 dd  |andle%.... .....|
000007d0  20 f2 66 72 6f 6e 74 28  68 61 6e 64 6c 65 25 29  | .front(handle%)|
000007e0  0d 02 e4 11 e7 68 61 6e  64 6c 65 25 3d 2d 31 8c  |.....handle%=-1.|
000007f0  e1 0d 02 ee 12 f2 67 65  74 77 28 68 61 6e 64 6c  |......getw(handl|
00000800  65 25 29 0d 02 f8 36 f2  6f 70 65 6e 5f 77 69 6e  |e%)...6.open_win|
00000810  64 6f 77 28 68 61 6e 64  6c 65 25 2c 78 30 25 2c  |dow(handle%,x0%,|
00000820  79 30 25 2c 78 31 25 2c  79 31 25 2c 73 63 78 25  |y0%,x1%,y1%,scx%|
00000830  2c 73 63 79 25 2c 2d 31  29 0d 03 02 05 e1 0d 03  |,scy%,-1).......|
00000840  0c 05 20 0d 03 16 15 dd  20 f2 70 6f 70 75 70 28  |.. ..... .popup(|
00000850  68 61 6e 64 6c 65 25 29  0d 03 20 12 f2 67 65 74  |handle%).. ..get|
00000860  77 28 68 61 6e 64 6c 65  25 29 0d 03 2a 11 78 6f  |w(handle%)..*.xo|
00000870  25 3d 30 3a 79 6f 25 3d  31 30 30 0d 03 34 36 f2  |%=0:yo%=100..46.|
00000880  6f 70 65 6e 5f 77 69 6e  64 6f 77 28 68 61 6e 64  |open_window(hand|
00000890  6c 65 25 2c 78 6f 25 2c  79 6f 25 2c 78 6f 25 2c  |le%,xo%,yo%,xo%,|
000008a0  79 6f 25 2c 73 63 78 25  2c 73 63 79 25 2c 2d 32  |yo%,scx%,scy%,-2|
000008b0  29 0d 03 3e 05 e1 0d 03  48 05 20 0d 03 52 3e dd  |)..>....H. ..R>.|
000008c0  20 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 68 61  | .open_window(ha|
000008d0  6e 64 6c 65 25 2c 78 30  25 2c 79 30 25 2c 78 31  |ndle%,x0%,y0%,x1|
000008e0  25 2c 79 31 25 2c 73 63  78 25 2c 73 63 79 25 2c  |%,y1%,scx%,scy%,|
000008f0  62 68 61 6e 64 6c 65 25  29 0d 03 5c 11 e7 68 61  |bhandle%)..\..ha|
00000900  6e 64 6c 65 25 3d 2d 31  8c e1 0d 03 66 1f 71 25  |ndle%=-1....f.q%|
00000910  21 30 3d 68 61 6e 64 6c  65 25 3a 71 25 21 32 38  |!0=handle%:q%!28|
00000920  3d 62 68 61 6e 64 6c 65  25 0d 03 70 29 71 25 21  |=bhandle%..p)q%!|
00000930  34 3d 78 30 25 3a 71 25  21 38 3d 79 30 25 3a 71  |4=x0%:q%!8=y0%:q|
00000940  25 21 31 32 3d 78 31 25  3a 71 25 21 31 36 3d 79  |%!12=x1%:q%!16=y|
00000950  31 25 0d 03 7a 19 71 25  21 32 30 3d 73 63 78 25  |1%..z.q%!20=scx%|
00000960  3a 71 25 21 32 34 3d 73  63 79 25 0d 03 84 10 c8  |:q%!24=scy%.....|
00000970  99 20 4f 70 65 6e 57 2c  2c 71 25 0d 03 8e 05 e1  |. OpenW,,q%.....|
00000980  0d 03 98 05 20 0d 03 a2  14 dd 20 f2 67 65 74 77  |.... ..... .getw|
00000990  28 68 61 6e 64 6c 65 25  29 0d 03 ac 1b 21 71 25  |(handle%)....!q%|
000009a0  3d 68 61 6e 64 6c 65 25  3a c8 99 20 47 65 74 57  |=handle%:.. GetW|
000009b0  2c 2c 71 25 0d 03 b6 2b  f2 69 6e 66 6f 28 71 25  |,,q%...+.info(q%|
000009c0  2b 34 29 3a 62 68 61 6e  64 6c 65 25 3d 71 25 21  |+4):bhandle%=q%!|
000009d0  32 38 3a 66 6c 61 67 73  25 3d 71 25 21 33 32 0d  |28:flags%=q%!32.|
000009e0  03 c0 05 e1 0d 03 ca 05  20 0d 03 d4 0f dd 20 f2  |........ ..... .|
000009f0  69 6e 66 6f 28 71 25 29  0d 03 de 3d 78 30 25 3d  |info(q%)...=x0%=|
00000a00  21 71 25 3a 79 30 25 3d  71 25 21 34 3a 78 31 25  |!q%:y0%=q%!4:x1%|
00000a10  3d 71 25 21 38 3a 79 31  25 3d 71 25 21 31 32 3a  |=q%!8:y1%=q%!12:|
00000a20  73 63 78 25 3d 71 25 21  31 36 3a 73 63 79 25 3d  |scx%=q%!16:scy%=|
00000a30  71 25 21 32 30 0d 03 e8  1d 62 78 25 3d 78 30 25  |q%!20....bx%=x0%|
00000a40  2d 73 63 78 25 3a 62 79  25 3d 79 31 25 2d 73 63  |-scx%:by%=y1%-sc|
00000a50  79 25 0d 03 f2 05 e1 0d  03 fc 05 20 0d 04 06 0c  |y%......... ....|
00000a60  dd 20 f2 6e 75 64 67 65  0d 04 10 20 ea 20 71 25  |. .nudge... . q%|
00000a70  2c 58 2c 59 2c 5a 3a f2  74 69 63 6b 3a 71 25 3d  |,X,Y,Z:.tick:q%=|
00000a80  62 75 66 66 65 72 73 25  0d 04 1a 07 ea 20 85 0d  |buffers%..... ..|
00000a90  04 24 30 ee 20 85 20 ea  20 61 66 74 65 72 25 3d  |.$0. . . after%=|
00000aa0  4d 61 64 6e 65 73 73 25  3a f7 20 85 3a f2 70 6f  |Madness%:. .:.po|
00000ab0  70 75 70 28 4d 61 64 6e  65 73 73 25 29 3a e1 0d  |pup(Madness%):..|
00000ac0  04 2e 27 21 71 25 3d 61  66 74 65 72 25 3a c8 99  |..'!q%=after%:..|
00000ad0  20 67 77 73 25 2c 2c 71  25 3a 61 66 74 65 72 25  | gws%,,q%:after%|
00000ae0  3d 71 25 21 32 38 0d 04  38 10 e7 61 66 74 65 72  |=q%!28..8..after|
00000af0  25 3d 2d 31 20 85 0d 04  42 1a 21 71 25 3d 61 66  |%=-1 ...B.!q%=af|
00000b00  74 65 72 25 3a c8 99 20  67 77 73 25 2c 2c 71 25  |ter%:.. gws%,,q%|
00000b10  0d 04 4c 11 61 25 3d 61  66 74 65 72 25 80 32 35  |..L.a%=after%.25|
00000b20  35 0d 04 56 39 e7 71 25  21 31 32 3e 31 32 38 30  |5..V9.q%!12>1280|
00000b30  2d 36 34 20 58 25 28 61  25 29 3d 2d b3 28 33 29  |-64 X%(a%)=-.(3)|
00000b40  2a 34 20 8b e7 71 25 21  34 3c 31 30 20 58 25 28  |*4 ..q%!4<10 X%(|
00000b50  61 25 29 3d b3 28 33 29  2a 34 0d 04 60 1e 71 25  |a%)=.(3)*4..`.q%|
00000b60  21 34 2b 3d 58 25 28 61  25 29 3a 71 25 21 31 32  |!4+=X%(a%):q%!12|
00000b70  2b 3d 58 25 28 61 25 29  0d 04 6a 3a e7 71 25 21  |+=X%(a%)..j:.q%!|
00000b80  31 36 3e 31 30 32 34 2d  36 34 20 59 25 28 61 25  |16>1024-64 Y%(a%|
00000b90  29 3d 2d b3 28 33 29 2a  34 20 8b e7 71 25 21 38  |)=-.(3)*4 ..q%!8|
00000ba0  3c 31 30 30 20 59 25 28  61 25 29 3d b3 28 33 29  |<100 Y%(a%)=.(3)|
00000bb0  2a 34 0d 04 74 1e 71 25  21 38 2b 3d 59 25 28 61  |*4..t.q%!8+=Y%(a|
00000bc0  25 29 3a 71 25 21 31 36  2b 3d 59 25 28 61 25 29  |%):q%!16+=Y%(a%)|
00000bd0  0d 04 7e 28 f4 20 53 59  53 20 22 57 69 6d 70 5f  |..~(. SYS "Wimp_|
00000be0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 32 2c 71  |SendMessage",2,q|
00000bf0  25 2c 61 66 74 65 72 25  0d 04 88 0c c8 97 20 58  |%,after%...... X|
00000c00  2c 59 2c 5a 0d 04 92 12  58 2b 3d b3 28 37 30 29  |,Y,Z....X+=.(70)|
00000c10  2d b3 28 34 30 29 0d 04  9c 12 59 2b 3d b3 28 31  |-.(40)....Y+=.(1|
00000c20  30 29 2d b3 28 35 30 29  0d 04 b0 0c c8 97 20 b8  |0)-.(50)...... .|
00000c30  20 58 2c 59 0d 04 ba 05  e1 0d 04 c4 05 20 0d 04  | X,Y......... ..|
00000c40  ce 0b dd 20 f2 74 69 63  6b 0d 04 d8 18 c8 99 20  |... .tick...... |
00000c50  54 69 6d 65 25 20 b8 20  74 69 6d 65 73 6c 69 70  |Time% . timeslip|
00000c60  25 0d 04 e2 2b c8 95 74  69 6d 65 73 6c 69 70 25  |%...+..timeslip%|
00000c70  3e 3d 74 69 6d 65 78 25  3a 74 69 6d 65 78 25 2b  |>=timex%:timex%+|
00000c80  3d 6d 61 64 73 70 65 65  64 25 3a ce 0d 04 ec 05  |=madspeed%:.....|
00000c90  e1 0d 04 f6 05 20 0d 05  00 1c dd 20 f2 63 6c 6f  |..... ..... .clo|
00000ca0  73 65 5f 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |se_window(handle|
00000cb0  25 29 0d 05 0a 1d 21 71  25 3d 68 61 6e 64 6c 65  |%)....!q%=handle|
00000cc0  25 3a c8 99 20 43 6c 6f  73 65 57 2c 2c 71 25 0d  |%:.. CloseW,,q%.|
00000cd0  05 14 05 e1 0d 05 1e 05  20 0d 05 28 0b dd 20 f2  |........ ..(.. .|
00000ce0  76 61 72 73 0d 05 32 1e  57 69 6d 70 20 20 20 20  |vars..2.Wimp    |
00000cf0  3d 20 28 31 3c 3c 31 38  29 20 2b 20 28 33 3c 3c  |= (1<<18) + (3<<|
00000d00  36 29 0d 05 3c 14 43 72  65 61 74 65 57 20 3d 20  |6)..<.CreateW = |
00000d10  57 69 6d 70 2b 31 0d 05  46 14 4f 70 65 6e 57 20  |Wimp+1..F.OpenW |
00000d20  20 20 3d 20 57 69 6d 70  2b 35 0d 05 50 14 43 6c  |  = Wimp+5..P.Cl|
00000d30  6f 73 65 57 20 20 3d 20  57 69 6d 70 2b 36 0d 05  |oseW  = Wimp+6..|
00000d40  5a 14 52 65 64 72 61 77  57 20 3d 20 57 69 6d 70  |Z.RedrawW = Wimp|
00000d50  2b 38 0d 05 64 14 55 70  64 61 74 65 57 20 3d 20  |+8..d.UpdateW = |
00000d60  57 69 6d 70 2b 39 0d 05  6e 15 47 65 74 52 25 20  |Wimp+9..n.GetR% |
00000d70  20 20 3d 20 57 69 6d 70  2b 31 30 0d 05 78 15 47  |  = Wimp+10..x.G|
00000d80  65 74 57 20 20 20 20 3d  20 57 69 6d 70 2b 31 31  |etW    = Wimp+11|
00000d90  0d 05 82 15 47 65 74 50  20 20 20 20 3d 20 57 69  |....GetP    = Wi|
00000da0  6d 70 2b 31 35 0d 05 8c  15 44 72 61 67 20 20 20  |mp+15....Drag   |
00000db0  20 3d 20 57 69 6d 70 2b  31 36 0d 05 96 15 43 72  | = Wimp+16....Cr|
00000dc0  4d 65 6e 75 20 20 3d 20  57 69 6d 70 2b 32 30 0d  |Menu  = Wimp+20.|
00000dd0  05 a0 15 44 63 4d 65 6e  75 20 20 3d 20 57 69 6d  |...DcMenu  = Wim|
00000de0  70 2b 32 31 0d 05 aa 38  c8 99 20 22 4f 53 5f 53  |p+21...8.. "OS_S|
00000df0  57 49 4e 75 6d 62 65 72  46 72 6f 6d 53 74 72 69  |WINumberFromStri|
00000e00  6e 67 22 2c 2c 22 57 69  6d 70 5f 50 6f 6c 6c 49  |ng",,"Wimp_PollI|
00000e10  64 6c 65 22 20 b8 20 50  6f 6c 6c 25 0d 05 b4 3f  |dle" . Poll%...?|
00000e20  c8 99 20 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |.. "OS_SWINumber|
00000e30  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 4f 53  |FromString",,"OS|
00000e40  5f 52 65 61 64 4d 6f 6e  6f 74 6f 6e 69 63 54 69  |_ReadMonotonicTi|
00000e50  6d 65 22 20 b8 20 54 69  6d 65 25 0d 05 be 3d c8  |me" . Time%...=.|
00000e60  99 20 22 4f 53 5f 53 57  49 4e 75 6d 62 65 72 46  |. "OS_SWINumberF|
00000e70  72 6f 6d 53 74 72 69 6e  67 22 2c 2c 22 57 69 6d  |romString",,"Wim|
00000e80  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000e90  22 20 b8 20 67 77 73 25  0d 05 c8 05 e1 0d 05 d2  |" . gws%........|
00000ea0  05 20 0d 05 dc 11 dd 20  f2 67 65 74 70 6f 69 6e  |. ..... .getpoin|
00000eb0  74 65 72 0d 05 e6 0f c8  99 20 47 65 74 50 2c 2c  |ter...... GetP,,|
00000ec0  71 25 0d 05 f0 48 6d 6f  75 73 65 78 25 3d 21 71  |q%...Hmousex%=!q|
00000ed0  25 3a 6d 6f 75 73 65 79  25 3d 71 25 21 34 3a 62  |%:mousey%=q%!4:b|
00000ee0  25 3d 71 25 21 38 3a 68  61 6e 64 6c 65 25 3d 71  |%=q%!8:handle%=q|
00000ef0  25 21 31 32 3a 69 63 6f  6e 25 3d 71 25 21 31 36  |%!12:icon%=q%!16|
00000f00  3a 6f 62 25 3d 71 25 21  32 30 0d 05 fa 05 e1 0d  |:ob%=q%!20......|
00000f10  06 04 05 20 0d 06 0e 0f  dd 20 f2 65 72 72 6f 72  |... ..... .error|
00000f20  62 6f 78 0d 06 18 0f c8  99 20 44 72 61 67 2c 2c  |box...... Drag,,|
00000f30  2d 31 0d 06 22 32 21 62  75 66 66 65 72 73 25 3d  |-1.."2!buffers%=|
00000f40  9f 3a 24 28 62 75 66 66  65 72 73 25 2b 34 29 3d  |.:$(buffers%+4)=|
00000f50  f6 24 2b 22 20 61 74 20  6c 69 6e 65 20 22 2b c3  |.$+" at line "+.|
00000f60  9e 2b bd 30 0d 06 2c 2c  c8 99 20 22 57 69 6d 70  |.+.0..,,.. "Wimp|
00000f70  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 75  |_ReportError",bu|
00000f80  66 66 65 72 73 25 2c 31  2c 22 44 72 75 6e 6b 22  |ffers%,1,"Drunk"|
00000f90  0d 06 36 0d f2 66 69 6e  69 73 68 3a e0 0d 06 40  |..6..finish:...@|
00000fa0  05 e1 0d ff                                       |....|
00000fa4