� > !Madness.!RunImage
� taskid%4:$taskid%="TASK"
Aș "Wimp_Initialise",200,!taskid%,"Window 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=� Madness,%1010011,`wfcol,`wbcol,0,-1024,1280,0,0,0,0,0,0
d� � �finish:�
n 
x/� �errorbox:ș CrMenu,,-1 : � close menus!
�q%!16=&400C1:�receive(q%)
�,ș 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:�

3� &400C1:!q%=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1

"7ș49,q%,q%+20:ros=q%!28+1<<q%!20:tos=q%!32+1<<q%!24

,�

6�

@ 

J� �cwindow

TA  � 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%)

|�close_window(handle%)

�
�finish:�

��

� 

�
� �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%
0(q%!60=&3000      : � work area flags
:!q%!64=0:q%!68=0  : � reserved
D$(q%+72)=�title$,11)
Nq%!84=nicons%
X)�I%,x0%,y0%,x1%,y1%,f%,data$:I%=q%+88
bȕ nicons%>0
l(  � x0%,y0%,x1%,y1%,f%,fc%,bc%,data$
v*  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%)
>�getw(handle%)
Hxo%=0:yo%=100
R6�open_window(handle%,xo%,yo%,xo%,yo%,scx%,scy%,-2)
\�
f 
p>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
z�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%)
�=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%:�tick:q%=buffers%
8� �
B0� � � after%=Madness%:� �:�popup(Madness%):�
L'!q%=after%:ș gws%,,q%:after%=q%!28
V�after%=-1 �
`!q%=after%:ș gws%,,q%
ja%=after%�255
t8�q%!12>ros-64 X%(a%)=-�(3)*4 ��q%!4<10 X%(a%)=�(3)*4
~q%!4+=X%(a%):q%!12+=X%(a%)
�9�q%!16>tos-64 Y%(a%)=-�(3)*4 ��q%!8<100 Y%(a%)=�(3)*4
�q%!8+=Y%(a%):q%!16+=Y%(a%)
�%ș "Wimp_SendMessage",2,q%,after%
��
� 
�� �tick
�ș Time% � timeslip%
�+ȕtimeslip%>=timex%:timex%+=madspeed%:�
��
� 
�� �close_window(handle%)
�!q%=handle%:ș CloseW,,q%
�

 
� �vars
Wimp    = (1<<18) + (3<<6)
(CreateW = Wimp+1
2OpenW   = Wimp+5
<CloseW  = Wimp+6
FRedrawW = Wimp+8
PUpdateW = Wimp+9
ZGetR%   = Wimp+10
dGetW    = Wimp+11
nGetP    = Wimp+15
xDrag    = 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,"Madness"
"
�finish:�
,�
�

00000000  0d 00 0a 1a f4 20 3e 20  21 4d 61 64 6e 65 73 73  |..... > !Madness|
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 41 c8 99 20 22  |%="TASK"...A.. "|
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 57  |,200,!taskid%,"W|
00000060  69 6e 64 6f 77 20 4d 61  64 6e 65 73 73 22 20 b8  |indow Madness" .|
00000070  20 76 65 72 73 69 6f 6e  25 0d 00 28 50 60 77 62  | version%..(P`wb|
00000080  63 6f 6c 3d 26 31 3a 60  74 62 63 6f 6c 3d 26 32  |col=&1:`tbcol=&2|
00000090  3a 60 73 63 6f 3d 26 33  3a 60 6d 62 63 6f 6c 3d  |:`sco=&3:`mbcol=|
000000a0  26 42 3a 60 77 66 63 6f  6c 3d 26 37 3a 60 74 66  |&B:`wfcol=&7:`tf|
000000b0  63 6f 6c 3d 26 37 3a 60  73 63 69 3d 26 44 3a 60  |col=&7:`sci=&D:`|
000000c0  74 62 63 6f 6c 32 3d 26  43 0d 00 32 09 f2 76 61  |tbcol2=&C..2..va|
000000d0  72 73 0d 00 3c 29 de 20  71 25 20 32 35 36 2c 62  |rs..<). q% 256,b|
000000e0  75 66 66 65 72 73 25 20  35 31 32 2c 58 25 28 32  |uffers% 512,X%(2|
000000f0  35 35 29 2c 59 25 28 32  35 35 29 0d 00 46 2b e3  |55),Y%(255)..F+.|
00000100  58 25 3d 30 b8 32 35 35  3a 58 25 28 58 25 29 3d  |X%=0.255:X%(X%)=|
00000110  34 2a b3 28 33 29 3a 59  25 28 58 25 29 3d 34 2a  |4*.(3):Y%(X%)=4*|
00000120  b3 28 33 29 3a ed 0d 00  50 22 4d 61 64 6e 65 73  |.(3):...P"Madnes|
00000130  73 25 3d a4 63 77 69 6e  64 6f 77 3a 6d 61 64 73  |s%=.cwindow:mads|
00000140  70 65 65 64 25 3d 32 30  0d 00 5a 3d dc 20 4d 61  |peed%=20..Z=. Ma|
00000150  64 6e 65 73 73 2c 25 31  30 31 30 30 31 31 2c 60  |dness,%1010011,`|
00000160  77 66 63 6f 6c 2c 60 77  62 63 6f 6c 2c 30 2c 2d  |wfcol,`wbcol,0,-|
00000170  31 30 32 34 2c 31 32 38  30 2c 30 2c 30 2c 30 2c  |1024,1280,0,0,0,|
00000180  30 2c 30 2c 30 0d 00 64  11 ee 20 85 20 f2 66 69  |0,0,0..d.. . .fi|
00000190  6e 69 73 68 3a e0 0d 00  6e 05 20 0d 00 78 2f ee  |nish:...n. ..x/.|
000001a0  85 20 f2 65 72 72 6f 72  62 6f 78 3a c8 99 20 43  |. .errorbox:.. C|
000001b0  72 4d 65 6e 75 2c 2c 2d  31 20 3a 20 f4 20 63 6c  |rMenu,,-1 : . cl|
000001c0  6f 73 65 20 6d 65 6e 75  73 21 0d 00 82 1d 71 25  |ose menus!....q%|
000001d0  21 31 36 3d 26 34 30 30  43 31 3a f2 72 65 63 65  |!16=&400C1:.rece|
000001e0  69 76 65 28 71 25 29 0d  00 8c 2c c8 99 20 44 72  |ive(q%)...,.. Dr|
000001f0  61 67 2c 2c 2d 31 3a f2  67 65 74 70 6f 69 6e 74  |ag,,-1:.getpoint|
00000200  65 72 3a f2 70 6f 70 75  70 28 4d 61 64 6e 65 73  |er:.popup(Madnes|
00000210  73 25 29 0d 00 96 37 c8  99 20 54 69 6d 65 25 20  |s%)...7.. Time% |
00000220  b8 20 74 69 6d 65 78 25  3a 74 69 6d 65 78 25 2b  |. timex%:timex%+|
00000230  3d 6d 61 64 73 70 65 65  64 25 3a 61 66 74 65 72  |=madspeed%:after|
00000240  25 3d 4d 61 64 6e 65 73  73 25 0d 00 a0 05 f5 0d  |%=Madness%......|
00000250  00 aa 1f 20 20 c8 99 20  50 6f 6c 6c 25 2c 30 2c  |...  .. Poll%,0,|
00000260  71 25 2c 74 69 6d 65 78  25 20 b8 20 41 25 0d 00  |q%,timex% . A%..|
00000270  b4 0d 20 20 c8 8e 20 41  25 20 ca 0d 00 be 11 20  |..  .. A% ..... |
00000280  20 c9 20 30 20 3a f2 6e  75 64 67 65 0d 00 c8 1d  | . 0 :.nudge....|
00000290  20 20 c9 20 33 20 3a f2  63 6c 6f 73 65 61 77 69  |  . 3 :.closeawi|
000002a0  6e 64 6f 77 28 21 71 25  29 0d 00 d2 1a 20 20 c9  |ndow(!q%)....  .|
000002b0  20 31 37 2c 31 38 3a f2  72 65 63 65 69 76 65 28  | 17,18:.receive(|
000002c0  71 25 29 0d 00 dc 07 20  20 cb 0d 00 e6 07 fd 20  |q%)....  ...... |
000002d0  a3 0d 00 f0 05 20 0d 00  fa 12 dd 20 f2 72 65 63  |..... ..... .rec|
000002e0  65 69 76 65 28 71 25 29  0d 01 04 0e c8 8e 20 71  |eive(q%)...... q|
000002f0  25 21 31 36 20 ca 0d 01  0e 11 c9 20 30 3a f2 66  |%!16 ...... 0:.f|
00000300  69 6e 69 73 68 3a e0 0d  01 18 33 c9 20 26 34 30  |inish:....3. &40|
00000310  30 43 31 3a 21 71 25 3d  34 3a 71 25 21 34 3d 35  |0C1:!q%=4:q%!4=5|
00000320  3a 71 25 21 38 3d 31 31  3a 71 25 21 31 32 3d 31  |:q%!8=11:q%!12=1|
00000330  32 3a 71 25 21 31 36 3d  2d 31 0d 01 22 37 c8 99  |2:q%!16=-1.."7..|
00000340  34 39 2c 71 25 2c 71 25  2b 32 30 3a 72 6f 73 3d  |49,q%,q%+20:ros=|
00000350  71 25 21 32 38 2b 31 3c  3c 71 25 21 32 30 3a 74  |q%!28+1<<q%!20:t|
00000360  6f 73 3d 71 25 21 33 32  2b 31 3c 3c 71 25 21 32  |os=q%!32+1<<q%!2|
00000370  34 0d 01 2c 05 cb 0d 01  36 05 e1 0d 01 40 05 20  |4..,....6....@. |
00000380  0d 01 4a 0e dd 20 a4 63  77 69 6e 64 6f 77 0d 01  |..J.. .cwindow..|
00000390  54 41 20 20 f3 20 41 24  2c 66 25 2c 66 63 25 2c  |TA  . A$,f%,fc%,|
000003a0  62 63 25 2c 78 30 25 2c  79 30 25 2c 78 31 25 2c  |bc%,x0%,y0%,x1%,|
000003b0  79 31 25 2c 63 78 30 25  2c 63 79 30 25 2c 63 78  |y1%,cx0%,cy0%,cx|
000003c0  31 25 2c 63 79 31 25 2c  6e 69 63 6f 6e 73 25 0d  |1%,cy1%,nicons%.|
000003d0  01 5e 56 3d a4 63 72 65  61 74 65 5f 77 69 6e 64  |.^V=.create_wind|
000003e0  6f 77 28 63 78 30 25 2c  63 79 30 25 2c 63 78 31  |ow(cx0%,cy0%,cx1|
000003f0  25 2c 63 79 31 25 2c 30  2c 30 2c 66 25 2c 66 63  |%,cy1%,0,0,f%,fc|
00000400  25 2c 62 63 25 2c 78 30  25 2c 79 30 25 2c 78 31  |%,bc%,x0%,y0%,x1|
00000410  25 2c 79 31 25 2c 26 32  44 2c 41 24 2c 6e 69 63  |%,y1%,&2D,A$,nic|
00000420  6f 6e 73 25 29 0d 01 68  05 20 0d 01 72 1c dd 20  |ons%)..h. ..r.. |
00000430  f2 63 6c 6f 73 65 61 77  69 6e 64 6f 77 28 68 61  |.closeawindow(ha|
00000440  6e 64 6c 65 25 29 0d 01  7c 1a f2 63 6c 6f 73 65  |ndle%)..|..close|
00000450  5f 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |_window(handle%)|
00000460  0d 01 86 0d f2 66 69 6e  69 73 68 3a e0 0d 01 90  |.....finish:....|
00000470  05 e1 0d 01 9a 05 20 0d  01 a4 0d dd 20 f2 66 69  |...... ..... .fi|
00000480  6e 69 73 68 0d 01 ae 17  c8 99 20 22 57 69 6d 70  |nish...... "Wimp|
00000490  5f 43 6c 6f 73 65 44 6f  77 6e 22 0d 01 b8 05 e1  |_CloseDown".....|
000004a0  0d 01 c2 05 20 0d 01 cc  6d dd 20 a4 63 72 65 61  |.... ...m. .crea|
000004b0  74 65 5f 77 69 6e 64 6f  77 28 63 78 30 25 2c 63  |te_window(cx0%,c|
000004c0  79 30 25 2c 63 78 31 25  2c 63 79 31 25 2c 73 63  |y0%,cx1%,cy1%,sc|
000004d0  78 25 2c 73 63 79 25 2c  66 6c 61 67 73 25 2c 66  |x%,scy%,flags%,f|
000004e0  63 25 2c 62 63 25 2c 73  78 30 25 2c 73 79 30 25  |c%,bc%,sx0%,sy0%|
000004f0  2c 73 78 31 25 2c 73 79  31 25 2c 74 69 74 6c 65  |,sx1%,sy1%,title|
00000500  66 25 2c 74 69 74 6c 65  24 2c 6e 69 63 6f 6e 73  |f%,title$,nicons|
00000510  25 29 0d 01 d6 41 21 71  25 3d 63 78 30 25 3a 71  |%)...A!q%=cx0%:q|
00000520  25 21 34 3d 63 79 30 25  3a 71 25 21 38 3d 63 78  |%!4=cy0%:q%!8=cx|
00000530  31 25 3a 71 25 21 31 32  3d 63 79 31 25 3a 71 25  |1%:q%!12=cy1%:q%|
00000540  21 31 36 3d 73 63 78 25  3a 71 25 21 32 30 3d 73  |!16=scx%:q%!20=s|
00000550  63 79 25 0d 01 e0 19 71  25 21 32 34 3d 2d 32 3a  |cy%....q%!24=-2:|
00000560  71 25 21 32 38 3d 66 6c  61 67 73 25 0d 01 ea 13  |q%!28=flags%....|
00000570  e7 66 63 25 3d 31 35 80  62 63 25 3d 31 35 8c 0d  |.fc%=15.bc%=15..|
00000580  01 f4 2b 20 20 71 25 3f  33 32 3d 31 35 3a 71 25  |..+  q%?32=15:q%|
00000590  3f 33 33 3d 31 35 3a 71  25 3f 33 34 3d 66 63 25  |?33=15:q%?34=fc%|
000005a0  3a 71 25 3f 33 35 3d 62  63 25 0d 01 fe 33 cc 20  |:q%?35=bc%...3. |
000005b0  71 25 3f 33 32 3d 60 74  66 63 6f 6c 3a 71 25 3f  |q%?32=`tfcol:q%?|
000005c0  33 33 3d 60 74 62 63 6f  6c 3a 71 25 3f 33 34 3d  |33=`tbcol:q%?34=|
000005d0  66 63 25 3a 71 25 3f 33  35 3d 62 63 25 0d 02 08  |fc%:q%?35=bc%...|
000005e0  05 cd 0d 02 12 31 71 25  3f 33 36 3d 60 73 63 6f  |.....1q%?36=`sco|
000005f0  3a 71 25 3f 33 37 3d 60  74 62 63 6f 6c 3a 71 25  |:q%?37=`tbcol:q%|
00000600  3f 33 38 3d 60 74 62 63  6f 6c 32 3a 71 25 3f 33  |?38=`tbcol2:q%?3|
00000610  39 3d 30 0d 02 1c 2f 71  25 21 34 30 3d 73 78 30  |9=0.../q%!40=sx0|
00000620  25 3a 71 25 21 34 34 3d  73 79 30 25 3a 71 25 21  |%:q%!44=sy0%:q%!|
00000630  34 38 3d 73 78 31 25 3a  71 25 21 35 32 3d 73 79  |48=sx1%:q%!52=sy|
00000640  31 25 0d 02 26 11 71 25  21 35 36 3d 74 69 74 6c  |1%..&.q%!56=titl|
00000650  65 66 25 0d 02 30 28 71  25 21 36 30 3d 26 33 30  |ef%..0(q%!60=&30|
00000660  30 30 20 20 20 20 20 20  3a 20 f4 20 77 6f 72 6b  |00      : . work|
00000670  20 61 72 65 61 20 66 6c  61 67 73 0d 02 3a 21 71  | area flags..:!q|
00000680  25 21 36 34 3d 30 3a 71  25 21 36 38 3d 30 20 20  |%!64=0:q%!68=0  |
00000690  3a 20 f4 20 72 65 73 65  72 76 65 64 0d 02 44 18  |: . reserved..D.|
000006a0  24 28 71 25 2b 37 32 29  3d c0 74 69 74 6c 65 24  |$(q%+72)=.title$|
000006b0  2c 31 31 29 0d 02 4e 11  71 25 21 38 34 3d 6e 69  |,11)..N.q%!84=ni|
000006c0  63 6f 6e 73 25 0d 02 58  29 ea 49 25 2c 78 30 25  |cons%..X).I%,x0%|
000006d0  2c 79 30 25 2c 78 31 25  2c 79 31 25 2c 66 25 2c  |,y0%,x1%,y1%,f%,|
000006e0  64 61 74 61 24 3a 49 25  3d 71 25 2b 38 38 0d 02  |data$:I%=q%+88..|
000006f0  62 10 c8 95 20 6e 69 63  6f 6e 73 25 3e 30 0d 02  |b... nicons%>0..|
00000700  6c 28 20 20 f3 20 78 30  25 2c 79 30 25 2c 78 31  |l(  . x0%,y0%,x1|
00000710  25 2c 79 31 25 2c 66 25  2c 66 63 25 2c 62 63 25  |%,y1%,f%,fc%,bc%|
00000720  2c 64 61 74 61 24 0d 02  76 2a 20 20 49 25 21 30  |,data$..v*  I%!0|
00000730  3d 78 30 25 3a 49 25 21  34 3d 79 30 25 3a 49 25  |=x0%:I%!4=y0%:I%|
00000740  21 38 3d 78 31 25 3a 49  25 21 31 32 3d 79 31 25  |!8=x1%:I%!12=y1%|
00000750  0d 02 80 25 20 20 e7 20  28 66 25 80 26 34 30 29  |...%  . (f%.&40)|
00000760  3d 30 20 8c 20 62 63 25  3d 66 63 25 2b 28 62 63  |=0 . bc%=fc%+(bc|
00000770  25 3c 3c 34 29 0d 02 8a  18 20 20 49 25 21 31 36  |%<<4)....  I%!16|
00000780  3d 66 25 2b 28 62 63 25  3c 3c 32 34 29 0d 02 94  |=f%+(bc%<<24)...|
00000790  11 20 20 e7 28 66 25 80  26 31 30 30 29 8c 0d 02  |.  .(f%.&100)...|
000007a0  9e 40 20 20 20 20 f3 20  4c 25 3a 42 25 3d a4 62  |.@    . L%:B%=.b|
000007b0  75 66 66 65 72 28 4c 25  29 3a 49 25 21 32 30 3d  |uffer(L%):I%!20=|
000007c0  42 25 3a 24 42 25 3d 64  61 74 61 24 3a 49 25 21  |B%:$B%=data$:I%!|
000007d0  32 34 3d 2d 31 3a 49 25  21 32 38 3d 4c 25 0d 02  |24=-1:I%!28=L%..|
000007e0  a8 07 20 20 cc 0d 02 b2  16 20 20 20 20 24 28 49  |..  .....    $(I|
000007f0  25 2b 32 30 29 3d 64 61  74 61 24 0d 02 bc 07 20  |%+20)=data$.... |
00000800  20 cd 0d 02 c6 20 20 20  49 25 3d 49 25 2b 33 32  | ....   I%=I%+32|
00000810  3a 6e 69 63 6f 6e 73 25  3d 6e 69 63 6f 6e 73 25  |:nicons%=nicons%|
00000820  2d 31 0d 02 d0 05 ce 0d  02 da 1d 20 c8 99 20 43  |-1......... .. C|
00000830  72 65 61 74 65 57 2c 2c  71 25 20 b8 20 68 61 6e  |reateW,,q% . han|
00000840  64 6c 65 25 0d 02 e4 0c  3d 68 61 6e 64 6c 65 25  |dle%....=handle%|
00000850  0d 02 ee 05 20 0d 02 f8  15 dd 20 f2 66 72 6f 6e  |.... ..... .fron|
00000860  74 28 68 61 6e 64 6c 65  25 29 0d 03 02 11 e7 68  |t(handle%).....h|
00000870  61 6e 64 6c 65 25 3d 2d  31 8c e1 0d 03 0c 12 f2  |andle%=-1.......|
00000880  67 65 74 77 28 68 61 6e  64 6c 65 25 29 0d 03 16  |getw(handle%)...|
00000890  36 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 68 61  |6.open_window(ha|
000008a0  6e 64 6c 65 25 2c 78 30  25 2c 79 30 25 2c 78 31  |ndle%,x0%,y0%,x1|
000008b0  25 2c 79 31 25 2c 73 63  78 25 2c 73 63 79 25 2c  |%,y1%,scx%,scy%,|
000008c0  2d 31 29 0d 03 20 05 e1  0d 03 2a 05 20 0d 03 34  |-1).. ....*. ..4|
000008d0  15 dd 20 f2 70 6f 70 75  70 28 68 61 6e 64 6c 65  |.. .popup(handle|
000008e0  25 29 0d 03 3e 12 f2 67  65 74 77 28 68 61 6e 64  |%)..>..getw(hand|
000008f0  6c 65 25 29 0d 03 48 11  78 6f 25 3d 30 3a 79 6f  |le%)..H.xo%=0:yo|
00000900  25 3d 31 30 30 0d 03 52  36 f2 6f 70 65 6e 5f 77  |%=100..R6.open_w|
00000910  69 6e 64 6f 77 28 68 61  6e 64 6c 65 25 2c 78 6f  |indow(handle%,xo|
00000920  25 2c 79 6f 25 2c 78 6f  25 2c 79 6f 25 2c 73 63  |%,yo%,xo%,yo%,sc|
00000930  78 25 2c 73 63 79 25 2c  2d 32 29 0d 03 5c 05 e1  |x%,scy%,-2)..\..|
00000940  0d 03 66 05 20 0d 03 70  3e dd 20 f2 6f 70 65 6e  |..f. ..p>. .open|
00000950  5f 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 2c  |_window(handle%,|
00000960  78 30 25 2c 79 30 25 2c  78 31 25 2c 79 31 25 2c  |x0%,y0%,x1%,y1%,|
00000970  73 63 78 25 2c 73 63 79  25 2c 62 68 61 6e 64 6c  |scx%,scy%,bhandl|
00000980  65 25 29 0d 03 7a 11 e7  68 61 6e 64 6c 65 25 3d  |e%)..z..handle%=|
00000990  2d 31 8c e1 0d 03 84 1f  71 25 21 30 3d 68 61 6e  |-1......q%!0=han|
000009a0  64 6c 65 25 3a 71 25 21  32 38 3d 62 68 61 6e 64  |dle%:q%!28=bhand|
000009b0  6c 65 25 0d 03 8e 29 71  25 21 34 3d 78 30 25 3a  |le%...)q%!4=x0%:|
000009c0  71 25 21 38 3d 79 30 25  3a 71 25 21 31 32 3d 78  |q%!8=y0%:q%!12=x|
000009d0  31 25 3a 71 25 21 31 36  3d 79 31 25 0d 03 98 19  |1%:q%!16=y1%....|
000009e0  71 25 21 32 30 3d 73 63  78 25 3a 71 25 21 32 34  |q%!20=scx%:q%!24|
000009f0  3d 73 63 79 25 0d 03 a2  10 c8 99 20 4f 70 65 6e  |=scy%...... Open|
00000a00  57 2c 2c 71 25 0d 03 ac  05 e1 0d 03 b6 05 20 0d  |W,,q%......... .|
00000a10  03 c0 14 dd 20 f2 67 65  74 77 28 68 61 6e 64 6c  |.... .getw(handl|
00000a20  65 25 29 0d 03 ca 1b 21  71 25 3d 68 61 6e 64 6c  |e%)....!q%=handl|
00000a30  65 25 3a c8 99 20 47 65  74 57 2c 2c 71 25 0d 03  |e%:.. GetW,,q%..|
00000a40  d4 2b f2 69 6e 66 6f 28  71 25 2b 34 29 3a 62 68  |.+.info(q%+4):bh|
00000a50  61 6e 64 6c 65 25 3d 71  25 21 32 38 3a 66 6c 61  |andle%=q%!28:fla|
00000a60  67 73 25 3d 71 25 21 33  32 0d 03 de 05 e1 0d 03  |gs%=q%!32.......|
00000a70  e8 05 20 0d 03 f2 0f dd  20 f2 69 6e 66 6f 28 71  |.. ..... .info(q|
00000a80  25 29 0d 03 fc 3d 78 30  25 3d 21 71 25 3a 79 30  |%)...=x0%=!q%:y0|
00000a90  25 3d 71 25 21 34 3a 78  31 25 3d 71 25 21 38 3a  |%=q%!4:x1%=q%!8:|
00000aa0  79 31 25 3d 71 25 21 31  32 3a 73 63 78 25 3d 71  |y1%=q%!12:scx%=q|
00000ab0  25 21 31 36 3a 73 63 79  25 3d 71 25 21 32 30 0d  |%!16:scy%=q%!20.|
00000ac0  04 06 1d 62 78 25 3d 78  30 25 2d 73 63 78 25 3a  |...bx%=x0%-scx%:|
00000ad0  62 79 25 3d 79 31 25 2d  73 63 79 25 0d 04 10 05  |by%=y1%-scy%....|
00000ae0  e1 0d 04 1a 05 20 0d 04  24 0c dd 20 f2 6e 75 64  |..... ..$.. .nud|
00000af0  67 65 0d 04 2e 1a ea 20  71 25 3a f2 74 69 63 6b  |ge..... q%:.tick|
00000b00  3a 71 25 3d 62 75 66 66  65 72 73 25 0d 04 38 07  |:q%=buffers%..8.|
00000b10  ea 20 85 0d 04 42 30 ee  20 85 20 ea 20 61 66 74  |. ...B0. . . aft|
00000b20  65 72 25 3d 4d 61 64 6e  65 73 73 25 3a f7 20 85  |er%=Madness%:. .|
00000b30  3a f2 70 6f 70 75 70 28  4d 61 64 6e 65 73 73 25  |:.popup(Madness%|
00000b40  29 3a e1 0d 04 4c 27 21  71 25 3d 61 66 74 65 72  |):...L'!q%=after|
00000b50  25 3a c8 99 20 67 77 73  25 2c 2c 71 25 3a 61 66  |%:.. gws%,,q%:af|
00000b60  74 65 72 25 3d 71 25 21  32 38 0d 04 56 10 e7 61  |ter%=q%!28..V..a|
00000b70  66 74 65 72 25 3d 2d 31  20 85 0d 04 60 1a 21 71  |fter%=-1 ...`.!q|
00000b80  25 3d 61 66 74 65 72 25  3a c8 99 20 67 77 73 25  |%=after%:.. gws%|
00000b90  2c 2c 71 25 0d 04 6a 11  61 25 3d 61 66 74 65 72  |,,q%..j.a%=after|
00000ba0  25 80 32 35 35 0d 04 74  38 e7 71 25 21 31 32 3e  |%.255..t8.q%!12>|
00000bb0  72 6f 73 2d 36 34 20 58  25 28 61 25 29 3d 2d b3  |ros-64 X%(a%)=-.|
00000bc0  28 33 29 2a 34 20 8b e7  71 25 21 34 3c 31 30 20  |(3)*4 ..q%!4<10 |
00000bd0  58 25 28 61 25 29 3d b3  28 33 29 2a 34 0d 04 7e  |X%(a%)=.(3)*4..~|
00000be0  1e 71 25 21 34 2b 3d 58  25 28 61 25 29 3a 71 25  |.q%!4+=X%(a%):q%|
00000bf0  21 31 32 2b 3d 58 25 28  61 25 29 0d 04 88 39 e7  |!12+=X%(a%)...9.|
00000c00  71 25 21 31 36 3e 74 6f  73 2d 36 34 20 59 25 28  |q%!16>tos-64 Y%(|
00000c10  61 25 29 3d 2d b3 28 33  29 2a 34 20 8b e7 71 25  |a%)=-.(3)*4 ..q%|
00000c20  21 38 3c 31 30 30 20 59  25 28 61 25 29 3d b3 28  |!8<100 Y%(a%)=.(|
00000c30  33 29 2a 34 0d 04 92 1e  71 25 21 38 2b 3d 59 25  |3)*4....q%!8+=Y%|
00000c40  28 61 25 29 3a 71 25 21  31 36 2b 3d 59 25 28 61  |(a%):q%!16+=Y%(a|
00000c50  25 29 0d 04 9c 25 c8 99  20 22 57 69 6d 70 5f 53  |%)...%.. "Wimp_S|
00000c60  65 6e 64 4d 65 73 73 61  67 65 22 2c 32 2c 71 25  |endMessage",2,q%|
00000c70  2c 61 66 74 65 72 25 0d  04 a6 05 e1 0d 04 b0 05  |,after%.........|
00000c80  20 0d 04 ba 0b dd 20 f2  74 69 63 6b 0d 04 c4 18  | ..... .tick....|
00000c90  c8 99 20 54 69 6d 65 25  20 b8 20 74 69 6d 65 73  |.. Time% . times|
00000ca0  6c 69 70 25 0d 04 ce 2b  c8 95 74 69 6d 65 73 6c  |lip%...+..timesl|
00000cb0  69 70 25 3e 3d 74 69 6d  65 78 25 3a 74 69 6d 65  |ip%>=timex%:time|
00000cc0  78 25 2b 3d 6d 61 64 73  70 65 65 64 25 3a ce 0d  |x%+=madspeed%:..|
00000cd0  04 d8 05 e1 0d 04 e2 05  20 0d 04 ec 1c dd 20 f2  |........ ..... .|
00000ce0  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 68 61 6e  |close_window(han|
00000cf0  64 6c 65 25 29 0d 04 f6  1d 21 71 25 3d 68 61 6e  |dle%)....!q%=han|
00000d00  64 6c 65 25 3a c8 99 20  43 6c 6f 73 65 57 2c 2c  |dle%:.. CloseW,,|
00000d10  71 25 0d 05 00 05 e1 0d  05 0a 05 20 0d 05 14 0b  |q%......... ....|
00000d20  dd 20 f2 76 61 72 73 0d  05 1e 1e 57 69 6d 70 20  |. .vars....Wimp |
00000d30  20 20 20 3d 20 28 31 3c  3c 31 38 29 20 2b 20 28  |   = (1<<18) + (|
00000d40  33 3c 3c 36 29 0d 05 28  14 43 72 65 61 74 65 57  |3<<6)..(.CreateW|
00000d50  20 3d 20 57 69 6d 70 2b  31 0d 05 32 14 4f 70 65  | = Wimp+1..2.Ope|
00000d60  6e 57 20 20 20 3d 20 57  69 6d 70 2b 35 0d 05 3c  |nW   = Wimp+5..<|
00000d70  14 43 6c 6f 73 65 57 20  20 3d 20 57 69 6d 70 2b  |.CloseW  = Wimp+|
00000d80  36 0d 05 46 14 52 65 64  72 61 77 57 20 3d 20 57  |6..F.RedrawW = W|
00000d90  69 6d 70 2b 38 0d 05 50  14 55 70 64 61 74 65 57  |imp+8..P.UpdateW|
00000da0  20 3d 20 57 69 6d 70 2b  39 0d 05 5a 15 47 65 74  | = Wimp+9..Z.Get|
00000db0  52 25 20 20 20 3d 20 57  69 6d 70 2b 31 30 0d 05  |R%   = Wimp+10..|
00000dc0  64 15 47 65 74 57 20 20  20 20 3d 20 57 69 6d 70  |d.GetW    = Wimp|
00000dd0  2b 31 31 0d 05 6e 15 47  65 74 50 20 20 20 20 3d  |+11..n.GetP    =|
00000de0  20 57 69 6d 70 2b 31 35  0d 05 78 15 44 72 61 67  | Wimp+15..x.Drag|
00000df0  20 20 20 20 3d 20 57 69  6d 70 2b 31 36 0d 05 82  |    = Wimp+16...|
00000e00  15 43 72 4d 65 6e 75 20  20 3d 20 57 69 6d 70 2b  |.CrMenu  = Wimp+|
00000e10  32 30 0d 05 8c 15 44 63  4d 65 6e 75 20 20 3d 20  |20....DcMenu  = |
00000e20  57 69 6d 70 2b 32 31 0d  05 96 38 c8 99 20 22 4f  |Wimp+21...8.. "O|
00000e30  53 5f 53 57 49 4e 75 6d  62 65 72 46 72 6f 6d 53  |S_SWINumberFromS|
00000e40  74 72 69 6e 67 22 2c 2c  22 57 69 6d 70 5f 50 6f  |tring",,"Wimp_Po|
00000e50  6c 6c 49 64 6c 65 22 20  b8 20 50 6f 6c 6c 25 0d  |llIdle" . Poll%.|
00000e60  05 a0 3f c8 99 20 22 4f  53 5f 53 57 49 4e 75 6d  |..?.. "OS_SWINum|
00000e70  62 65 72 46 72 6f 6d 53  74 72 69 6e 67 22 2c 2c  |berFromString",,|
00000e80  22 4f 53 5f 52 65 61 64  4d 6f 6e 6f 74 6f 6e 69  |"OS_ReadMonotoni|
00000e90  63 54 69 6d 65 22 20 b8  20 54 69 6d 65 25 0d 05  |cTime" . Time%..|
00000ea0  aa 3d c8 99 20 22 4f 53  5f 53 57 49 4e 75 6d 62  |.=.. "OS_SWINumb|
00000eb0  65 72 46 72 6f 6d 53 74  72 69 6e 67 22 2c 2c 22  |erFromString",,"|
00000ec0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00000ed0  61 74 65 22 20 b8 20 67  77 73 25 0d 05 b4 05 e1  |ate" . gws%.....|
00000ee0  0d 05 be 05 20 0d 05 c8  11 dd 20 f2 67 65 74 70  |.... ..... .getp|
00000ef0  6f 69 6e 74 65 72 0d 05  d2 0f c8 99 20 47 65 74  |ointer...... Get|
00000f00  50 2c 2c 71 25 0d 05 dc  48 6d 6f 75 73 65 78 25  |P,,q%...Hmousex%|
00000f10  3d 21 71 25 3a 6d 6f 75  73 65 79 25 3d 71 25 21  |=!q%:mousey%=q%!|
00000f20  34 3a 62 25 3d 71 25 21  38 3a 68 61 6e 64 6c 65  |4:b%=q%!8:handle|
00000f30  25 3d 71 25 21 31 32 3a  69 63 6f 6e 25 3d 71 25  |%=q%!12:icon%=q%|
00000f40  21 31 36 3a 6f 62 25 3d  71 25 21 32 30 0d 05 e6  |!16:ob%=q%!20...|
00000f50  05 e1 0d 05 f0 05 20 0d  05 fa 0f dd 20 f2 65 72  |...... ..... .er|
00000f60  72 6f 72 62 6f 78 0d 06  04 0f c8 99 20 44 72 61  |rorbox...... Dra|
00000f70  67 2c 2c 2d 31 0d 06 0e  32 21 62 75 66 66 65 72  |g,,-1...2!buffer|
00000f80  73 25 3d 9f 3a 24 28 62  75 66 66 65 72 73 25 2b  |s%=.:$(buffers%+|
00000f90  34 29 3d f6 24 2b 22 20  61 74 20 6c 69 6e 65 20  |4)=.$+" at line |
00000fa0  22 2b c3 9e 2b bd 30 0d  06 18 2e c8 99 20 22 57  |"+..+.0...... "W|
00000fb0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00000fc0  2c 62 75 66 66 65 72 73  25 2c 31 2c 22 4d 61 64  |,buffers%,1,"Mad|
00000fd0  6e 65 73 73 22 0d 06 22  0d f2 66 69 6e 69 73 68  |ness".."..finish|
00000fe0  3a e0 0d 06 2c 05 e1 0d  ff                       |:...,....|
00000fe9