� >WimpLib - Wimp Library
:
6� �wimperror(block%,errno%,err$,task$,ok%,cancel%)
(� flag%,response%
2!block%=errno%
<$(block%+4)=err$+�(0)
Fflag%=ok%+(cancel%<<1)
P9ș "Wimp_ReportError",block%,flag%,task$ � ,response%
Z=response%
d:
n^� �poll_flags(null%,redraw%,leave%,enter%,click%,key%,lose%,gain%,user%,userrec%,userack%)
x� flag%
��flag%=null%+(redraw%<<1)+(leave%<<4)+(enter%<<5)+(click%<<6)+(key%<<8)+(lose%<<11)+(gain%<<12)+(user%<<17)+(userrec%<<18)+(userack%<<19)
�
=flag%
�:
�G� �st_create_window(block%,x%,y%,w%,h%,ww%,wh%,sx%,sy%,title$,ind%)
�"� iflag%,i2%,i3%,tflag%,wflag%
�C� ind%=0 � iflag%=0:i2%=0:i3%=0 � iflag%=1:i2%=-1:i3%=�(title$)
�/tflag%=�title_flags(1,0,1,1,0,iflag%,0,0,0)
�9wflag%=�window_flags(1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0)
�s=�create_window(block%,x%,y%,w%,h%,ww%,wh%,sx%,sy%,title$,12,wflag%,0,0,-1,tflag%,7,2,7,0,3,1,0,ind%,i2%,i3%,1)
�:
�V� �st_create_window2(block%,x%,y%,w%,h%,ww%,wh%,sx%,sy%,title$,ind%,input%,wflag%)
�#� iflag%,i2%,i3%,selcol%,tflag%
�C� ind%=0 � iflag%=0:i2%=0:i3%=0 � iflag%=1:i2%=-1:i3%=�(title$)

'� input%=0 � selcol%=2 � selcol%=12

/tflag%=�title_flags(1,0,1,1,0,iflag%,0,0,0)

x=�create_window(block%,x%,y%,w%,h%,ww%,wh%,sx%,sy%,title$,selcol%,wflag%,0,0,-1,tflag%,7,2,7,0,3,1,0,ind%,i2%,i3%,1)

":

,�� �create_window(block%,x%,y%,w%,h%,ww%,wh%,sx%,sy%,title$,input%,wflag%,mw%,mh%,behind%,tflag%,tfore%,tback%,wfore%,wback%,sout%,sin%,button%,icon1%,icon2%,icon3%,sparea%)

6� handle%,ist%

@!block%=x%:block%!4=y%-h%

Jblock%!8=x%+w%:block%!12=y%

T block%!16=sx%:block%!20=-sy%

^&block%!24=behind%:block%!28=wflag%

h%block%?32=tfore%:block%?33=tback%

r%block%?34=wfore%:block%?35=wback%

|"block%?36=sout%:block%?37=sin%

� block%?38=input%:block%?39=0

�block%!40=0:block%!44=-wh%

�block%!48=ww%:block%!52=0

�*block%!56=tflag%:block%!60=button%<<12

�block%!64=sparea%

�'block%?68=mw%�256:block%?69=mw%�256

�'block%?70=mh%�256:block%?71=mh%�256

�#ist%=((tflag%>>6)�4)+(tflag%�3)

�
Ȏ ist% �

�  � 1,2,3:$(block%+72)=title$

�N � 5,6,7:block%!72=icon1%:block%!76=icon2%:block%!80=icon3%:$icon1%=title$

��

�block%!84=0
,ș "Wimp_CreateWindow",,block% � handle%
=handle%
:
&G� �title_flags(text%,sp%,chor%,cver%,anti%,ind%,rjust%,half%,font%)
0� flag%
:[flag%=text%+(sp%<<1)+(chor%<<3)+(cver%<<4)+(anti%<<6)+(ind%<<8)+(rjust%<<9)+(half%<<11)
D#� anti%<>0 � flag%+=(font%<<24)
N
=flag%
X:
b}� �window_flags(back%,close%,title%,toggle%,vscr%,hscr%,adj%,move%,wredraw%,pane%,bound%,scr%,rscr%,gcol%,below%,hotkey%)
l� flag%
v�flag%=(move%<<1)+(wredraw%<<4)+(pane%<<5)+(bound%<<6)+(scr%<<8)+(rscr%<<9)+(gcol%<<10)+(below%<<11)+(hotkey%<<12)+(back%<<24)+(close%<<25)+(title%<<26)+(toggle%<<27)+(vscr%<<28)+(adj%<<29)+(hscr%<<30)+(1<<31)
�
=flag%
�:
�P� �create_icon(block%,whandle%,x%,y%,w%,h%,flag%,text$,icon1%,icon2%,icon3%)
�� handle%,ist%
� !block%=whandle%:block%!4=x%
�#block%!8=-y%-h%:block%!12=x%+w%
�!block%!16=-y%:block%!20=flag%
�!ist%=((flag%>>6)�4)+(flag%�3)
�
Ȏ ist% �
� � 1,2,3:$(block%+24)=text$
�M � 5,6,7:block%!24=icon1%:block%!28=icon2%:block%!32=icon3%:$icon1%=text$
��
�*ș "Wimp_CreateIcon",,block% � handle%
=handle%
:
�� �icon_flags(text%,sp%,bor%,chor%,cver%,fill%,anti%,redraw%,ind%,rjust%,adj%,half%,button%,esg%,invert%,shade%,del%,fcol%,bcol%,font%)
 � flag%
*�flag%=text%+(sp%<<1)+(bor%<<2)+(chor%<<3)+(cver%<<4)+(fill%<<5)+(anti%<<6)+(redraw%<<7)+(ind%<<8)+(rjust%<<9)+(adj%<<10)+(half%<<11)+(button%<<12)+(esg%<<16)+(invert%<<21)+(shade%<<22)+(del%<<23)
4� anti%=0 �
># flag%+=(fcol%<<24)+(bcol%<<28)
H�
R flag%+=(font%<<24)
\�
f
=flag%
p:
z� �load_sprites(file$)
�� file%,size%,sprite%
�file%=� file$
�size%=�#file%+16:�#file%
�� sprite% size%
�!sprite%=size%:sprite%!8=16
�!ș "OS_SpriteOp",&109,sprite%
�'ș "OS_SpriteOp",&10A,sprite%,file$
�=sprite%
�:
�*� �icon_bar_icon(block%,spname$,side%)
�� flag%
�>flag%=�icon_flags(0,1,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0)
�?=�create_icon(block%,side%,0,-68,68,68,flag%,spname$,0,0,0)
:
@� �changeable_bar_icon(block%,spname$,side%,spname%,sprite%)
� flag%
$>flag%=�icon_flags(0,1,0,0,0,0,0,0,1,0,0,0,3,0,0,0,0,0,0,0)
.W=�create_icon(block%,side%,0,-68,68,68,flag%,spname$,spname%,sprite%,�($spname%)+1)
8:
B1� �change_icon(block%,whandle%,ihandle%,new$)
L&!block%=whandle%:block%!4=ihandle%
V"ș "Wimp_GetIconState",,block%
`$(block%!28)=new$
j&!block%=whandle%:block%!4=ihandle%
tblock%!8=0:block%!12=0
~"ș "Wimp_SetIconState",,block%
��
�:
�.� �init_menu(menu%,� width%,� end%,title$)
�width%=�(title$)
�$menu%=title$:menu%?12=7
�$menu%?13=2:menu%?14=7:menu%?15=0
�&menu%!16=(width%+1)*16:menu%!20=44
�menu%!24=0:end%=menu%+28
��
�:
�N� �st_menu_item(menu%,� width%,� end%,text$,tick%,dot%,shade%,last%,link%)
�� f%
f%=�st_menu_flags(shade%)

[�menu_item(menu%,width%,end%,text$,tick%,dot%,shade%,last%,link%,write%,mess%,f%,0,0,0)
�
:
(s� �menu_item(menu%,� width%,� end%,text$,tick%,dot%,shade%,last%,link%,write%,mess%,flag%,icon1%,icon2%,icon3%)
2
� f%,ist%
<8f%=tick%+(dot%<<1)+(write%<<2)+(mess%<<3)+(last%<<7)
F&!end%=f%:end%!4=link%:end%!8=flag%
P!ist%=((flag%>>6)�4)+(flag%�3)
Z
Ȏ ist% �
d � 1,2,3:$(end%+12)=text$
n9 � 5,6,7:end%!12=icon1%:end%!16=icon2%:end%!20=icon3%
x�
�end%+=24
�'� �(text$)>width% � width%=�(text$)
�menu%!16=(width%+1)*16
��
�:
�X� �menu_flags(text%,sp%,bor%,chor%,anti%,ind%,rjust%,half%,shade%,fcol%,bcol%,font%)
�� flag%
�nflag%=text%+(sp%<<1)+(bor%<<2)+(chor%<<3)+(1<<5)+(anti%<<6)+(ind%<<8)+(rjust%<<9)+(half%<<11)+(shade%<<22)
�� anti%=0 �
�# flag%+=(fcol%<<24)+(bcol%<<28)
��
� flag%+=(font%<<24)
��

=flag%
:
� �st_menu_flags(shade%)
".=�menu_flags(1,0,0,0,0,0,0,0,shade%,7,0,0)
,:
6.� �display_bar_menu(menu%,items%,dots%,x%)
@?ș "Wimp_CreateMenu",,menu%,x%-64,96+(items%*44)+(dots%*24)
J�
T:
^ � �display_menu(menu%,x%,y%)
h(ș "Wimp_CreateMenu",,menu%,x%-64,y%
r�
|:
�#� �display_submenu(menu%,x%,y%)
�(ș "Wimp_CreateSubMenu",,menu%,x%,y%
��
�:
�� �first(menu$)
�	� ch$
�;� �menu$,".")=0 � ch$=menu$ � ch$=�menu$,�menu$,".")-1)
�=ch$
�:
�� �rest(menu$)
�	� ch$
�?� �menu$,".")=0 � ch$="" � ch$=�menu$,�(menu$)-�menu$,"."))
�=ch$
:
� �leaf(file$)
� pos%,temp%
&temp%=0
0�
:pos%=temp%+1
Dtemp%=�file$,".",pos%)
N
� temp%=0
X=�file$,pos%)
b:
l� �branch(file$)
v� pos%,br$,temp%
�� �file$,".")=0 �
� br$=""
��
� temp%=0
� �
� pos%=temp%+1
� temp%=�file$,".",pos%)
� � temp%=0
� br$=�file$,pos%-2)
��
�=br$
�:
�� �zero_string(point%)

� string$
string$=""
ȕ ?point%
  string$+=�?point%
* point%+=1
4�
>=string$
H:
R� �library_version
\=50
f:
p.� �quicksave(block%,savebox%,iname%,task$)
z� temp%,file$
�$!block%=savebox%:block%!4=iname%
�"ș "Wimp_GetIconState",,block%
�file$=$(block%!28)
�� �file$,".") �
� �save(file$)
��
�Z temp%=�wimperror(block%,255,"To save, drag the icon to a directory viewer",task$,1,0)
��
��
�:
�-� �start_dragsave(block%,savebox%,iicon%)
�
� ox%,oy%
�!block%=savebox%
	$ș "Wimp_GetWindowState",,block%
	ox%=block%!4-block%!20
	oy%=block%!16-block%!24
	$block%!4=iicon%
	."ș "Wimp_GetIconState",,block%
	8!block%=savebox%:block%!4=5
	Bblock%!8=ox%+block%!8
	Lblock%!12=oy%+block%!12
	Vblock%!16=ox%+block%!16
	`block%!20=oy%+block%!20
	jblock%!24=0:block%!28=0
	tblock%!32=&7FFFFFFF
	~block%!36=&7FFFFFFF
	�ș "Wimp_DragBox",,block%
	��
	�:
	�?� �end_dragsave(block%,savebox%,iname%,filetype%,filesize%)
	�� file$
	�$!block%=savebox%:block%!4=iname%
	�"ș "Wimp_GetIconState",,block%
	�file$=$(block%!28)
	�$ș "Wimp_GetPointerInfo",,block%
	�block%!20=block%!12
	�block%!24=block%!16
	�block%!28=block%!0
block%!32=block%!4

block%!36=filesize%
block%!0=64:block%!12=0
#block%!16=1:block%!40=filetype%
($(block%+44)=�leaf(file$)
27ș "Wimp_SendMessage",17,block%,block%!20,block%!24
<�
F:
P� �message_datasave(block%)
Z� ok%,file$
d!file$=�zero_string(block%+44)
n�save(file$)
x"� block%!36>-1 � ok%=� � ok%=�
�block%!12=block%!8
�!block%=256:block%!16=3
�7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
�� ok% � =file$ � =""
�:
�8� �message_ramsave(block%,task%,� srcbuff%,� bytes%)
�'� btrans%,code%,dbuff%,dtask%,last%
�$dtask%=block%!4:dbuff%=block%!20
�� bytes%>=block%!24 �
� btrans%=block%!24
� code%=18:last%=�
��
� btrans%=bytes%
 code%=17:last%=�
�
@ș "Wimp_TransferBlock",task%,srcbuff%,dtask%,dbuff%,btrans%
"%srcbuff%+=btrans%:bytes%-=btrans%
,"block%!12=block%!8:block%!16=7
6&block%!20=dbuff%:block%!24=btrans%
@-ș "Wimp_SendMessage",code%,block%,dtask%
J
=last%
T:
^B� �open_window_with_pane(block%,main%,pane%,offx%,offy%,open%)
h/� mx0%,my0%,mx1%,my1%,behind%,xsize%,ysize%
rȎ !block% �
| � pane%
�"  ș "Wimp_OpenWindow",,block%
� � main%
�  mx0%=block%!4
�  my0%=block%!8
�  mx1%=block%!12
�  my1%=block%!16
�K  � open% � behind%=block%!28:block%!28=pane% � behind%=-1:block%!28=-1
�  !block%=pane%
�%  ș "Wimp_GetWindowInfo",,block%
�  xsize%=block%!12-block%!4
�  ysize%=block%!16-block%!8
�  !block%=pane%
�  block%!4=mx0%+offx%
  block%!8=my0%+offy%
!  block%!12=mx0%+offx%+xsize%
!  block%!16=my0%+offy%+ysize%
&  block%!28=behind%
0"  ș "Wimp_OpenWindow",,block%
:  !block%=main%
D%  ș "Wimp_GetWindowInfo",,block%
N  block%!4=mx0%
X  block%!8=my0%
b  block%!12=mx1%
l  block%!16=my1%
v  block%!28=pane%
�"  ș "Wimp_OpenWindow",,block%
��
��
�:
�1� �close_window_with_pane(block%,main%,pane%)
�/!block%=main%:ș "Wimp_CloseWindow",,block%
�/!block%=pane%:ș "Wimp_CloseWindow",,block%
��
�

00000000  0d 00 0a 1d f4 20 3e 57  69 6d 70 4c 69 62 20 2d  |..... >WimpLib -|
00000010  20 57 69 6d 70 20 4c 69  62 72 61 72 79 0d 00 14  | Wimp Library...|
00000020  05 3a 0d 00 1e 36 dd 20  a4 77 69 6d 70 65 72 72  |.:...6. .wimperr|
00000030  6f 72 28 62 6c 6f 63 6b  25 2c 65 72 72 6e 6f 25  |or(block%,errno%|
00000040  2c 65 72 72 24 2c 74 61  73 6b 24 2c 6f 6b 25 2c  |,err$,task$,ok%,|
00000050  63 61 6e 63 65 6c 25 29  0d 00 28 15 ea 20 66 6c  |cancel%)..(.. fl|
00000060  61 67 25 2c 72 65 73 70  6f 6e 73 65 25 0d 00 32  |ag%,response%..2|
00000070  12 21 62 6c 6f 63 6b 25  3d 65 72 72 6e 6f 25 0d  |.!block%=errno%.|
00000080  00 3c 19 24 28 62 6c 6f  63 6b 25 2b 34 29 3d 65  |.<.$(block%+4)=e|
00000090  72 72 24 2b bd 28 30 29  0d 00 46 1a 66 6c 61 67  |rr$+.(0)..F.flag|
000000a0  25 3d 6f 6b 25 2b 28 63  61 6e 63 65 6c 25 3c 3c  |%=ok%+(cancel%<<|
000000b0  31 29 0d 00 50 39 c8 99  20 22 57 69 6d 70 5f 52  |1)..P9.. "Wimp_R|
000000c0  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
000000d0  6b 25 2c 66 6c 61 67 25  2c 74 61 73 6b 24 20 b8  |k%,flag%,task$ .|
000000e0  20 2c 72 65 73 70 6f 6e  73 65 25 0d 00 5a 0e 3d  | ,response%..Z.=|
000000f0  72 65 73 70 6f 6e 73 65  25 0d 00 64 05 3a 0d 00  |response%..d.:..|
00000100  6e 5e dd 20 a4 70 6f 6c  6c 5f 66 6c 61 67 73 28  |n^. .poll_flags(|
00000110  6e 75 6c 6c 25 2c 72 65  64 72 61 77 25 2c 6c 65  |null%,redraw%,le|
00000120  61 76 65 25 2c 65 6e 74  65 72 25 2c 63 6c 69 63  |ave%,enter%,clic|
00000130  6b 25 2c 6b 65 79 25 2c  6c 6f 73 65 25 2c 67 61  |k%,key%,lose%,ga|
00000140  69 6e 25 2c 75 73 65 72  25 2c 75 73 65 72 72 65  |in%,user%,userre|
00000150  63 25 2c 75 73 65 72 61  63 6b 25 29 0d 00 78 0b  |c%,userack%)..x.|
00000160  ea 20 66 6c 61 67 25 0d  00 82 8c 66 6c 61 67 25  |. flag%....flag%|
00000170  3d 6e 75 6c 6c 25 2b 28  72 65 64 72 61 77 25 3c  |=null%+(redraw%<|
00000180  3c 31 29 2b 28 6c 65 61  76 65 25 3c 3c 34 29 2b  |<1)+(leave%<<4)+|
00000190  28 65 6e 74 65 72 25 3c  3c 35 29 2b 28 63 6c 69  |(enter%<<5)+(cli|
000001a0  63 6b 25 3c 3c 36 29 2b  28 6b 65 79 25 3c 3c 38  |ck%<<6)+(key%<<8|
000001b0  29 2b 28 6c 6f 73 65 25  3c 3c 31 31 29 2b 28 67  |)+(lose%<<11)+(g|
000001c0  61 69 6e 25 3c 3c 31 32  29 2b 28 75 73 65 72 25  |ain%<<12)+(user%|
000001d0  3c 3c 31 37 29 2b 28 75  73 65 72 72 65 63 25 3c  |<<17)+(userrec%<|
000001e0  3c 31 38 29 2b 28 75 73  65 72 61 63 6b 25 3c 3c  |<18)+(userack%<<|
000001f0  31 39 29 0d 00 8c 0a 3d  66 6c 61 67 25 0d 00 96  |19)....=flag%...|
00000200  05 3a 0d 00 a0 47 dd 20  a4 73 74 5f 63 72 65 61  |.:...G. .st_crea|
00000210  74 65 5f 77 69 6e 64 6f  77 28 62 6c 6f 63 6b 25  |te_window(block%|
00000220  2c 78 25 2c 79 25 2c 77  25 2c 68 25 2c 77 77 25  |,x%,y%,w%,h%,ww%|
00000230  2c 77 68 25 2c 73 78 25  2c 73 79 25 2c 74 69 74  |,wh%,sx%,sy%,tit|
00000240  6c 65 24 2c 69 6e 64 25  29 0d 00 aa 22 ea 20 69  |le$,ind%)...". i|
00000250  66 6c 61 67 25 2c 69 32  25 2c 69 33 25 2c 74 66  |flag%,i2%,i3%,tf|
00000260  6c 61 67 25 2c 77 66 6c  61 67 25 0d 00 b4 43 e7  |lag%,wflag%...C.|
00000270  20 69 6e 64 25 3d 30 20  8c 20 69 66 6c 61 67 25  | ind%=0 . iflag%|
00000280  3d 30 3a 69 32 25 3d 30  3a 69 33 25 3d 30 20 8b  |=0:i2%=0:i3%=0 .|
00000290  20 69 66 6c 61 67 25 3d  31 3a 69 32 25 3d 2d 31  | iflag%=1:i2%=-1|
000002a0  3a 69 33 25 3d a9 28 74  69 74 6c 65 24 29 0d 00  |:i3%=.(title$)..|
000002b0  be 2f 74 66 6c 61 67 25  3d a4 74 69 74 6c 65 5f  |./tflag%=.title_|
000002c0  66 6c 61 67 73 28 31 2c  30 2c 31 2c 31 2c 30 2c  |flags(1,0,1,1,0,|
000002d0  69 66 6c 61 67 25 2c 30  2c 30 2c 30 29 0d 00 c8  |iflag%,0,0,0)...|
000002e0  39 77 66 6c 61 67 25 3d  a4 77 69 6e 64 6f 77 5f  |9wflag%=.window_|
000002f0  66 6c 61 67 73 28 31 2c  31 2c 31 2c 31 2c 31 2c  |flags(1,1,1,1,1,|
00000300  31 2c 31 2c 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |1,1,1,0,0,0,0,0,|
00000310  30 2c 30 2c 30 29 0d 00  d2 73 3d a4 63 72 65 61  |0,0,0)...s=.crea|
00000320  74 65 5f 77 69 6e 64 6f  77 28 62 6c 6f 63 6b 25  |te_window(block%|
00000330  2c 78 25 2c 79 25 2c 77  25 2c 68 25 2c 77 77 25  |,x%,y%,w%,h%,ww%|
00000340  2c 77 68 25 2c 73 78 25  2c 73 79 25 2c 74 69 74  |,wh%,sx%,sy%,tit|
00000350  6c 65 24 2c 31 32 2c 77  66 6c 61 67 25 2c 30 2c  |le$,12,wflag%,0,|
00000360  30 2c 2d 31 2c 74 66 6c  61 67 25 2c 37 2c 32 2c  |0,-1,tflag%,7,2,|
00000370  37 2c 30 2c 33 2c 31 2c  30 2c 69 6e 64 25 2c 69  |7,0,3,1,0,ind%,i|
00000380  32 25 2c 69 33 25 2c 31  29 0d 00 dc 05 3a 0d 00  |2%,i3%,1)....:..|
00000390  e6 56 dd 20 a4 73 74 5f  63 72 65 61 74 65 5f 77  |.V. .st_create_w|
000003a0  69 6e 64 6f 77 32 28 62  6c 6f 63 6b 25 2c 78 25  |indow2(block%,x%|
000003b0  2c 79 25 2c 77 25 2c 68  25 2c 77 77 25 2c 77 68  |,y%,w%,h%,ww%,wh|
000003c0  25 2c 73 78 25 2c 73 79  25 2c 74 69 74 6c 65 24  |%,sx%,sy%,title$|
000003d0  2c 69 6e 64 25 2c 69 6e  70 75 74 25 2c 77 66 6c  |,ind%,input%,wfl|
000003e0  61 67 25 29 0d 00 f0 23  ea 20 69 66 6c 61 67 25  |ag%)...#. iflag%|
000003f0  2c 69 32 25 2c 69 33 25  2c 73 65 6c 63 6f 6c 25  |,i2%,i3%,selcol%|
00000400  2c 74 66 6c 61 67 25 0d  00 fa 43 e7 20 69 6e 64  |,tflag%...C. ind|
00000410  25 3d 30 20 8c 20 69 66  6c 61 67 25 3d 30 3a 69  |%=0 . iflag%=0:i|
00000420  32 25 3d 30 3a 69 33 25  3d 30 20 8b 20 69 66 6c  |2%=0:i3%=0 . ifl|
00000430  61 67 25 3d 31 3a 69 32  25 3d 2d 31 3a 69 33 25  |ag%=1:i2%=-1:i3%|
00000440  3d a9 28 74 69 74 6c 65  24 29 0d 01 04 27 e7 20  |=.(title$)...'. |
00000450  69 6e 70 75 74 25 3d 30  20 8c 20 73 65 6c 63 6f  |input%=0 . selco|
00000460  6c 25 3d 32 20 8b 20 73  65 6c 63 6f 6c 25 3d 31  |l%=2 . selcol%=1|
00000470  32 0d 01 0e 2f 74 66 6c  61 67 25 3d a4 74 69 74  |2.../tflag%=.tit|
00000480  6c 65 5f 66 6c 61 67 73  28 31 2c 30 2c 31 2c 31  |le_flags(1,0,1,1|
00000490  2c 30 2c 69 66 6c 61 67  25 2c 30 2c 30 2c 30 29  |,0,iflag%,0,0,0)|
000004a0  0d 01 18 78 3d a4 63 72  65 61 74 65 5f 77 69 6e  |...x=.create_win|
000004b0  64 6f 77 28 62 6c 6f 63  6b 25 2c 78 25 2c 79 25  |dow(block%,x%,y%|
000004c0  2c 77 25 2c 68 25 2c 77  77 25 2c 77 68 25 2c 73  |,w%,h%,ww%,wh%,s|
000004d0  78 25 2c 73 79 25 2c 74  69 74 6c 65 24 2c 73 65  |x%,sy%,title$,se|
000004e0  6c 63 6f 6c 25 2c 77 66  6c 61 67 25 2c 30 2c 30  |lcol%,wflag%,0,0|
000004f0  2c 2d 31 2c 74 66 6c 61  67 25 2c 37 2c 32 2c 37  |,-1,tflag%,7,2,7|
00000500  2c 30 2c 33 2c 31 2c 30  2c 69 6e 64 25 2c 69 32  |,0,3,1,0,ind%,i2|
00000510  25 2c 69 33 25 2c 31 29  0d 01 22 05 3a 0d 01 2c  |%,i3%,1)..".:..,|
00000520  b0 dd 20 a4 63 72 65 61  74 65 5f 77 69 6e 64 6f  |.. .create_windo|
00000530  77 28 62 6c 6f 63 6b 25  2c 78 25 2c 79 25 2c 77  |w(block%,x%,y%,w|
00000540  25 2c 68 25 2c 77 77 25  2c 77 68 25 2c 73 78 25  |%,h%,ww%,wh%,sx%|
00000550  2c 73 79 25 2c 74 69 74  6c 65 24 2c 69 6e 70 75  |,sy%,title$,inpu|
00000560  74 25 2c 77 66 6c 61 67  25 2c 6d 77 25 2c 6d 68  |t%,wflag%,mw%,mh|
00000570  25 2c 62 65 68 69 6e 64  25 2c 74 66 6c 61 67 25  |%,behind%,tflag%|
00000580  2c 74 66 6f 72 65 25 2c  74 62 61 63 6b 25 2c 77  |,tfore%,tback%,w|
00000590  66 6f 72 65 25 2c 77 62  61 63 6b 25 2c 73 6f 75  |fore%,wback%,sou|
000005a0  74 25 2c 73 69 6e 25 2c  62 75 74 74 6f 6e 25 2c  |t%,sin%,button%,|
000005b0  69 63 6f 6e 31 25 2c 69  63 6f 6e 32 25 2c 69 63  |icon1%,icon2%,ic|
000005c0  6f 6e 33 25 2c 73 70 61  72 65 61 25 29 0d 01 36  |on3%,sparea%)..6|
000005d0  12 ea 20 68 61 6e 64 6c  65 25 2c 69 73 74 25 0d  |.. handle%,ist%.|
000005e0  01 40 1d 21 62 6c 6f 63  6b 25 3d 78 25 3a 62 6c  |.@.!block%=x%:bl|
000005f0  6f 63 6b 25 21 34 3d 79  25 2d 68 25 0d 01 4a 1f  |ock%!4=y%-h%..J.|
00000600  62 6c 6f 63 6b 25 21 38  3d 78 25 2b 77 25 3a 62  |block%!8=x%+w%:b|
00000610  6c 6f 63 6b 25 21 31 32  3d 79 25 0d 01 54 20 62  |lock%!12=y%..T b|
00000620  6c 6f 63 6b 25 21 31 36  3d 73 78 25 3a 62 6c 6f  |lock%!16=sx%:blo|
00000630  63 6b 25 21 32 30 3d 2d  73 79 25 0d 01 5e 26 62  |ck%!20=-sy%..^&b|
00000640  6c 6f 63 6b 25 21 32 34  3d 62 65 68 69 6e 64 25  |lock%!24=behind%|
00000650  3a 62 6c 6f 63 6b 25 21  32 38 3d 77 66 6c 61 67  |:block%!28=wflag|
00000660  25 0d 01 68 25 62 6c 6f  63 6b 25 3f 33 32 3d 74  |%..h%block%?32=t|
00000670  66 6f 72 65 25 3a 62 6c  6f 63 6b 25 3f 33 33 3d  |fore%:block%?33=|
00000680  74 62 61 63 6b 25 0d 01  72 25 62 6c 6f 63 6b 25  |tback%..r%block%|
00000690  3f 33 34 3d 77 66 6f 72  65 25 3a 62 6c 6f 63 6b  |?34=wfore%:block|
000006a0  25 3f 33 35 3d 77 62 61  63 6b 25 0d 01 7c 22 62  |%?35=wback%..|"b|
000006b0  6c 6f 63 6b 25 3f 33 36  3d 73 6f 75 74 25 3a 62  |lock%?36=sout%:b|
000006c0  6c 6f 63 6b 25 3f 33 37  3d 73 69 6e 25 0d 01 86  |lock%?37=sin%...|
000006d0  20 62 6c 6f 63 6b 25 3f  33 38 3d 69 6e 70 75 74  | block%?38=input|
000006e0  25 3a 62 6c 6f 63 6b 25  3f 33 39 3d 30 0d 01 90  |%:block%?39=0...|
000006f0  1e 62 6c 6f 63 6b 25 21  34 30 3d 30 3a 62 6c 6f  |.block%!40=0:blo|
00000700  63 6b 25 21 34 34 3d 2d  77 68 25 0d 01 9a 1d 62  |ck%!44=-wh%....b|
00000710  6c 6f 63 6b 25 21 34 38  3d 77 77 25 3a 62 6c 6f  |lock%!48=ww%:blo|
00000720  63 6b 25 21 35 32 3d 30  0d 01 a4 2a 62 6c 6f 63  |ck%!52=0...*bloc|
00000730  6b 25 21 35 36 3d 74 66  6c 61 67 25 3a 62 6c 6f  |k%!56=tflag%:blo|
00000740  63 6b 25 21 36 30 3d 62  75 74 74 6f 6e 25 3c 3c  |ck%!60=button%<<|
00000750  31 32 0d 01 ae 15 62 6c  6f 63 6b 25 21 36 34 3d  |12....block%!64=|
00000760  73 70 61 72 65 61 25 0d  01 b8 27 62 6c 6f 63 6b  |sparea%...'block|
00000770  25 3f 36 38 3d 6d 77 25  83 32 35 36 3a 62 6c 6f  |%?68=mw%.256:blo|
00000780  63 6b 25 3f 36 39 3d 6d  77 25 81 32 35 36 0d 01  |ck%?69=mw%.256..|
00000790  c2 27 62 6c 6f 63 6b 25  3f 37 30 3d 6d 68 25 83  |.'block%?70=mh%.|
000007a0  32 35 36 3a 62 6c 6f 63  6b 25 3f 37 31 3d 6d 68  |256:block%?71=mh|
000007b0  25 81 32 35 36 0d 01 cc  23 69 73 74 25 3d 28 28  |%.256...#ist%=((|
000007c0  74 66 6c 61 67 25 3e 3e  36 29 80 34 29 2b 28 74  |tflag%>>6).4)+(t|
000007d0  66 6c 61 67 25 80 33 29  0d 01 d6 0d c8 8e 20 69  |flag%.3)...... i|
000007e0  73 74 25 20 ca 0d 01 e0  20 20 c9 20 31 2c 32 2c  |st% ....  . 1,2,|
000007f0  33 3a 24 28 62 6c 6f 63  6b 25 2b 37 32 29 3d 74  |3:$(block%+72)=t|
00000800  69 74 6c 65 24 0d 01 ea  4e 20 c9 20 35 2c 36 2c  |itle$...N . 5,6,|
00000810  37 3a 62 6c 6f 63 6b 25  21 37 32 3d 69 63 6f 6e  |7:block%!72=icon|
00000820  31 25 3a 62 6c 6f 63 6b  25 21 37 36 3d 69 63 6f  |1%:block%!76=ico|
00000830  6e 32 25 3a 62 6c 6f 63  6b 25 21 38 30 3d 69 63  |n2%:block%!80=ic|
00000840  6f 6e 33 25 3a 24 69 63  6f 6e 31 25 3d 74 69 74  |on3%:$icon1%=tit|
00000850  6c 65 24 0d 01 f4 05 cb  0d 01 fe 0f 62 6c 6f 63  |le$.........bloc|
00000860  6b 25 21 38 34 3d 30 0d  02 08 2c c8 99 20 22 57  |k%!84=0...,.. "W|
00000870  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000880  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 68 61 6e 64  |",,block% . hand|
00000890  6c 65 25 0d 02 12 0c 3d  68 61 6e 64 6c 65 25 0d  |le%....=handle%.|
000008a0  02 1c 05 3a 0d 02 26 47  dd 20 a4 74 69 74 6c 65  |...:..&G. .title|
000008b0  5f 66 6c 61 67 73 28 74  65 78 74 25 2c 73 70 25  |_flags(text%,sp%|
000008c0  2c 63 68 6f 72 25 2c 63  76 65 72 25 2c 61 6e 74  |,chor%,cver%,ant|
000008d0  69 25 2c 69 6e 64 25 2c  72 6a 75 73 74 25 2c 68  |i%,ind%,rjust%,h|
000008e0  61 6c 66 25 2c 66 6f 6e  74 25 29 0d 02 30 0b ea  |alf%,font%)..0..|
000008f0  20 66 6c 61 67 25 0d 02  3a 5b 66 6c 61 67 25 3d  | flag%..:[flag%=|
00000900  74 65 78 74 25 2b 28 73  70 25 3c 3c 31 29 2b 28  |text%+(sp%<<1)+(|
00000910  63 68 6f 72 25 3c 3c 33  29 2b 28 63 76 65 72 25  |chor%<<3)+(cver%|
00000920  3c 3c 34 29 2b 28 61 6e  74 69 25 3c 3c 36 29 2b  |<<4)+(anti%<<6)+|
00000930  28 69 6e 64 25 3c 3c 38  29 2b 28 72 6a 75 73 74  |(ind%<<8)+(rjust|
00000940  25 3c 3c 39 29 2b 28 68  61 6c 66 25 3c 3c 31 31  |%<<9)+(half%<<11|
00000950  29 0d 02 44 23 e7 20 61  6e 74 69 25 3c 3e 30 20  |)..D#. anti%<>0 |
00000960  8c 20 66 6c 61 67 25 2b  3d 28 66 6f 6e 74 25 3c  |. flag%+=(font%<|
00000970  3c 32 34 29 0d 02 4e 0a  3d 66 6c 61 67 25 0d 02  |<24)..N.=flag%..|
00000980  58 05 3a 0d 02 62 7d dd  20 a4 77 69 6e 64 6f 77  |X.:..b}. .window|
00000990  5f 66 6c 61 67 73 28 62  61 63 6b 25 2c 63 6c 6f  |_flags(back%,clo|
000009a0  73 65 25 2c 74 69 74 6c  65 25 2c 74 6f 67 67 6c  |se%,title%,toggl|
000009b0  65 25 2c 76 73 63 72 25  2c 68 73 63 72 25 2c 61  |e%,vscr%,hscr%,a|
000009c0  64 6a 25 2c 6d 6f 76 65  25 2c 77 72 65 64 72 61  |dj%,move%,wredra|
000009d0  77 25 2c 70 61 6e 65 25  2c 62 6f 75 6e 64 25 2c  |w%,pane%,bound%,|
000009e0  73 63 72 25 2c 72 73 63  72 25 2c 67 63 6f 6c 25  |scr%,rscr%,gcol%|
000009f0  2c 62 65 6c 6f 77 25 2c  68 6f 74 6b 65 79 25 29  |,below%,hotkey%)|
00000a00  0d 02 6c 0b ea 20 66 6c  61 67 25 0d 02 76 d4 66  |..l.. flag%..v.f|
00000a10  6c 61 67 25 3d 28 6d 6f  76 65 25 3c 3c 31 29 2b  |lag%=(move%<<1)+|
00000a20  28 77 72 65 64 72 61 77  25 3c 3c 34 29 2b 28 70  |(wredraw%<<4)+(p|
00000a30  61 6e 65 25 3c 3c 35 29  2b 28 62 6f 75 6e 64 25  |ane%<<5)+(bound%|
00000a40  3c 3c 36 29 2b 28 73 63  72 25 3c 3c 38 29 2b 28  |<<6)+(scr%<<8)+(|
00000a50  72 73 63 72 25 3c 3c 39  29 2b 28 67 63 6f 6c 25  |rscr%<<9)+(gcol%|
00000a60  3c 3c 31 30 29 2b 28 62  65 6c 6f 77 25 3c 3c 31  |<<10)+(below%<<1|
00000a70  31 29 2b 28 68 6f 74 6b  65 79 25 3c 3c 31 32 29  |1)+(hotkey%<<12)|
00000a80  2b 28 62 61 63 6b 25 3c  3c 32 34 29 2b 28 63 6c  |+(back%<<24)+(cl|
00000a90  6f 73 65 25 3c 3c 32 35  29 2b 28 74 69 74 6c 65  |ose%<<25)+(title|
00000aa0  25 3c 3c 32 36 29 2b 28  74 6f 67 67 6c 65 25 3c  |%<<26)+(toggle%<|
00000ab0  3c 32 37 29 2b 28 76 73  63 72 25 3c 3c 32 38 29  |<27)+(vscr%<<28)|
00000ac0  2b 28 61 64 6a 25 3c 3c  32 39 29 2b 28 68 73 63  |+(adj%<<29)+(hsc|
00000ad0  72 25 3c 3c 33 30 29 2b  28 31 3c 3c 33 31 29 0d  |r%<<30)+(1<<31).|
00000ae0  02 80 0a 3d 66 6c 61 67  25 0d 02 8a 05 3a 0d 02  |...=flag%....:..|
00000af0  94 50 dd 20 a4 63 72 65  61 74 65 5f 69 63 6f 6e  |.P. .create_icon|
00000b00  28 62 6c 6f 63 6b 25 2c  77 68 61 6e 64 6c 65 25  |(block%,whandle%|
00000b10  2c 78 25 2c 79 25 2c 77  25 2c 68 25 2c 66 6c 61  |,x%,y%,w%,h%,fla|
00000b20  67 25 2c 74 65 78 74 24  2c 69 63 6f 6e 31 25 2c  |g%,text$,icon1%,|
00000b30  69 63 6f 6e 32 25 2c 69  63 6f 6e 33 25 29 0d 02  |icon2%,icon3%)..|
00000b40  9e 12 ea 20 68 61 6e 64  6c 65 25 2c 69 73 74 25  |... handle%,ist%|
00000b50  0d 02 a8 20 21 62 6c 6f  63 6b 25 3d 77 68 61 6e  |... !block%=whan|
00000b60  64 6c 65 25 3a 62 6c 6f  63 6b 25 21 34 3d 78 25  |dle%:block%!4=x%|
00000b70  0d 02 b2 23 62 6c 6f 63  6b 25 21 38 3d 2d 79 25  |...#block%!8=-y%|
00000b80  2d 68 25 3a 62 6c 6f 63  6b 25 21 31 32 3d 78 25  |-h%:block%!12=x%|
00000b90  2b 77 25 0d 02 bc 21 62  6c 6f 63 6b 25 21 31 36  |+w%...!block%!16|
00000ba0  3d 2d 79 25 3a 62 6c 6f  63 6b 25 21 32 30 3d 66  |=-y%:block%!20=f|
00000bb0  6c 61 67 25 0d 02 c6 21  69 73 74 25 3d 28 28 66  |lag%...!ist%=((f|
00000bc0  6c 61 67 25 3e 3e 36 29  80 34 29 2b 28 66 6c 61  |lag%>>6).4)+(fla|
00000bd0  67 25 80 33 29 0d 02 d0  0d c8 8e 20 69 73 74 25  |g%.3)...... ist%|
00000be0  20 ca 0d 02 da 1f 20 c9  20 31 2c 32 2c 33 3a 24  | ..... . 1,2,3:$|
00000bf0  28 62 6c 6f 63 6b 25 2b  32 34 29 3d 74 65 78 74  |(block%+24)=text|
00000c00  24 0d 02 e4 4d 20 c9 20  35 2c 36 2c 37 3a 62 6c  |$...M . 5,6,7:bl|
00000c10  6f 63 6b 25 21 32 34 3d  69 63 6f 6e 31 25 3a 62  |ock%!24=icon1%:b|
00000c20  6c 6f 63 6b 25 21 32 38  3d 69 63 6f 6e 32 25 3a  |lock%!28=icon2%:|
00000c30  62 6c 6f 63 6b 25 21 33  32 3d 69 63 6f 6e 33 25  |block%!32=icon3%|
00000c40  3a 24 69 63 6f 6e 31 25  3d 74 65 78 74 24 0d 02  |:$icon1%=text$..|
00000c50  ee 05 cb 0d 02 f8 2a c8  99 20 22 57 69 6d 70 5f  |......*.. "Wimp_|
00000c60  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 62 6c 6f  |CreateIcon",,blo|
00000c70  63 6b 25 20 b8 20 68 61  6e 64 6c 65 25 0d 03 02  |ck% . handle%...|
00000c80  0c 3d 68 61 6e 64 6c 65  25 0d 03 0c 05 3a 0d 03  |.=handle%....:..|
00000c90  16 8b dd 20 a4 69 63 6f  6e 5f 66 6c 61 67 73 28  |... .icon_flags(|
00000ca0  74 65 78 74 25 2c 73 70  25 2c 62 6f 72 25 2c 63  |text%,sp%,bor%,c|
00000cb0  68 6f 72 25 2c 63 76 65  72 25 2c 66 69 6c 6c 25  |hor%,cver%,fill%|
00000cc0  2c 61 6e 74 69 25 2c 72  65 64 72 61 77 25 2c 69  |,anti%,redraw%,i|
00000cd0  6e 64 25 2c 72 6a 75 73  74 25 2c 61 64 6a 25 2c  |nd%,rjust%,adj%,|
00000ce0  68 61 6c 66 25 2c 62 75  74 74 6f 6e 25 2c 65 73  |half%,button%,es|
00000cf0  67 25 2c 69 6e 76 65 72  74 25 2c 73 68 61 64 65  |g%,invert%,shade|
00000d00  25 2c 64 65 6c 25 2c 66  63 6f 6c 25 2c 62 63 6f  |%,del%,fcol%,bco|
00000d10  6c 25 2c 66 6f 6e 74 25  29 0d 03 20 0b ea 20 66  |l%,font%).. .. f|
00000d20  6c 61 67 25 0d 03 2a c7  66 6c 61 67 25 3d 74 65  |lag%..*.flag%=te|
00000d30  78 74 25 2b 28 73 70 25  3c 3c 31 29 2b 28 62 6f  |xt%+(sp%<<1)+(bo|
00000d40  72 25 3c 3c 32 29 2b 28  63 68 6f 72 25 3c 3c 33  |r%<<2)+(chor%<<3|
00000d50  29 2b 28 63 76 65 72 25  3c 3c 34 29 2b 28 66 69  |)+(cver%<<4)+(fi|
00000d60  6c 6c 25 3c 3c 35 29 2b  28 61 6e 74 69 25 3c 3c  |ll%<<5)+(anti%<<|
00000d70  36 29 2b 28 72 65 64 72  61 77 25 3c 3c 37 29 2b  |6)+(redraw%<<7)+|
00000d80  28 69 6e 64 25 3c 3c 38  29 2b 28 72 6a 75 73 74  |(ind%<<8)+(rjust|
00000d90  25 3c 3c 39 29 2b 28 61  64 6a 25 3c 3c 31 30 29  |%<<9)+(adj%<<10)|
00000da0  2b 28 68 61 6c 66 25 3c  3c 31 31 29 2b 28 62 75  |+(half%<<11)+(bu|
00000db0  74 74 6f 6e 25 3c 3c 31  32 29 2b 28 65 73 67 25  |tton%<<12)+(esg%|
00000dc0  3c 3c 31 36 29 2b 28 69  6e 76 65 72 74 25 3c 3c  |<<16)+(invert%<<|
00000dd0  32 31 29 2b 28 73 68 61  64 65 25 3c 3c 32 32 29  |21)+(shade%<<22)|
00000de0  2b 28 64 65 6c 25 3c 3c  32 33 29 0d 03 34 0f e7  |+(del%<<23)..4..|
00000df0  20 61 6e 74 69 25 3d 30  20 8c 0d 03 3e 23 20 66  | anti%=0 ...># f|
00000e00  6c 61 67 25 2b 3d 28 66  63 6f 6c 25 3c 3c 32 34  |lag%+=(fcol%<<24|
00000e10  29 2b 28 62 63 6f 6c 25  3c 3c 32 38 29 0d 03 48  |)+(bcol%<<28)..H|
00000e20  05 cc 0d 03 52 17 20 66  6c 61 67 25 2b 3d 28 66  |....R. flag%+=(f|
00000e30  6f 6e 74 25 3c 3c 32 34  29 0d 03 5c 05 cd 0d 03  |ont%<<24)..\....|
00000e40  66 0a 3d 66 6c 61 67 25  0d 03 70 05 3a 0d 03 7a  |f.=flag%..p.:..z|
00000e50  1a dd 20 a4 6c 6f 61 64  5f 73 70 72 69 74 65 73  |.. .load_sprites|
00000e60  28 66 69 6c 65 24 29 0d  03 84 19 ea 20 66 69 6c  |(file$)..... fil|
00000e70  65 25 2c 73 69 7a 65 25  2c 73 70 72 69 74 65 25  |e%,size%,sprite%|
00000e80  0d 03 8e 11 66 69 6c 65  25 3d 8e 20 66 69 6c 65  |....file%=. file|
00000e90  24 0d 03 98 1c 73 69 7a  65 25 3d a2 23 66 69 6c  |$....size%=.#fil|
00000ea0  65 25 2b 31 36 3a d9 23  66 69 6c 65 25 0d 03 a2  |e%+16:.#file%...|
00000eb0  13 de 20 73 70 72 69 74  65 25 20 73 69 7a 65 25  |.. sprite% size%|
00000ec0  0d 03 ac 1f 21 73 70 72  69 74 65 25 3d 73 69 7a  |....!sprite%=siz|
00000ed0  65 25 3a 73 70 72 69 74  65 25 21 38 3d 31 36 0d  |e%:sprite%!8=16.|
00000ee0  03 b6 21 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..!.. "OS_Sprite|
00000ef0  4f 70 22 2c 26 31 30 39  2c 73 70 72 69 74 65 25  |Op",&109,sprite%|
00000f00  0d 03 c0 27 c8 99 20 22  4f 53 5f 53 70 72 69 74  |...'.. "OS_Sprit|
00000f10  65 4f 70 22 2c 26 31 30  41 2c 73 70 72 69 74 65  |eOp",&10A,sprite|
00000f20  25 2c 66 69 6c 65 24 0d  03 ca 0c 3d 73 70 72 69  |%,file$....=spri|
00000f30  74 65 25 0d 03 d4 05 3a  0d 03 de 2a dd 20 a4 69  |te%....:...*. .i|
00000f40  63 6f 6e 5f 62 61 72 5f  69 63 6f 6e 28 62 6c 6f  |con_bar_icon(blo|
00000f50  63 6b 25 2c 73 70 6e 61  6d 65 24 2c 73 69 64 65  |ck%,spname$,side|
00000f60  25 29 0d 03 e8 0b ea 20  66 6c 61 67 25 0d 03 f2  |%)..... flag%...|
00000f70  3e 66 6c 61 67 25 3d a4  69 63 6f 6e 5f 66 6c 61  |>flag%=.icon_fla|
00000f80  67 73 28 30 2c 31 2c 30  2c 30 2c 30 2c 30 2c 30  |gs(0,1,0,0,0,0,0|
00000f90  2c 30 2c 30 2c 30 2c 30  2c 30 2c 33 2c 30 2c 30  |,0,0,0,0,0,3,0,0|
00000fa0  2c 30 2c 30 2c 30 2c 30  2c 30 29 0d 03 fc 3f 3d  |,0,0,0,0,0)...?=|
00000fb0  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 62 6c 6f  |.create_icon(blo|
00000fc0  63 6b 25 2c 73 69 64 65  25 2c 30 2c 2d 36 38 2c  |ck%,side%,0,-68,|
00000fd0  36 38 2c 36 38 2c 66 6c  61 67 25 2c 73 70 6e 61  |68,68,flag%,spna|
00000fe0  6d 65 24 2c 30 2c 30 2c  30 29 0d 04 06 05 3a 0d  |me$,0,0,0)....:.|
00000ff0  04 10 40 dd 20 a4 63 68  61 6e 67 65 61 62 6c 65  |..@. .changeable|
00001000  5f 62 61 72 5f 69 63 6f  6e 28 62 6c 6f 63 6b 25  |_bar_icon(block%|
00001010  2c 73 70 6e 61 6d 65 24  2c 73 69 64 65 25 2c 73  |,spname$,side%,s|
00001020  70 6e 61 6d 65 25 2c 73  70 72 69 74 65 25 29 0d  |pname%,sprite%).|
00001030  04 1a 0b ea 20 66 6c 61  67 25 0d 04 24 3e 66 6c  |.... flag%..$>fl|
00001040  61 67 25 3d a4 69 63 6f  6e 5f 66 6c 61 67 73 28  |ag%=.icon_flags(|
00001050  30 2c 31 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,1,0,0,0,0,0,0,|
00001060  31 2c 30 2c 30 2c 30 2c  33 2c 30 2c 30 2c 30 2c  |1,0,0,0,3,0,0,0,|
00001070  30 2c 30 2c 30 2c 30 29  0d 04 2e 57 3d a4 63 72  |0,0,0,0)...W=.cr|
00001080  65 61 74 65 5f 69 63 6f  6e 28 62 6c 6f 63 6b 25  |eate_icon(block%|
00001090  2c 73 69 64 65 25 2c 30  2c 2d 36 38 2c 36 38 2c  |,side%,0,-68,68,|
000010a0  36 38 2c 66 6c 61 67 25  2c 73 70 6e 61 6d 65 24  |68,flag%,spname$|
000010b0  2c 73 70 6e 61 6d 65 25  2c 73 70 72 69 74 65 25  |,spname%,sprite%|
000010c0  2c a9 28 24 73 70 6e 61  6d 65 25 29 2b 31 29 0d  |,.($spname%)+1).|
000010d0  04 38 05 3a 0d 04 42 31  dd 20 f2 63 68 61 6e 67  |.8.:..B1. .chang|
000010e0  65 5f 69 63 6f 6e 28 62  6c 6f 63 6b 25 2c 77 68  |e_icon(block%,wh|
000010f0  61 6e 64 6c 65 25 2c 69  68 61 6e 64 6c 65 25 2c  |andle%,ihandle%,|
00001100  6e 65 77 24 29 0d 04 4c  26 21 62 6c 6f 63 6b 25  |new$)..L&!block%|
00001110  3d 77 68 61 6e 64 6c 65  25 3a 62 6c 6f 63 6b 25  |=whandle%:block%|
00001120  21 34 3d 69 68 61 6e 64  6c 65 25 0d 04 56 22 c8  |!4=ihandle%..V".|
00001130  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00001140  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 04 60  |tate",,block%..`|
00001150  15 24 28 62 6c 6f 63 6b  25 21 32 38 29 3d 6e 65  |.$(block%!28)=ne|
00001160  77 24 0d 04 6a 26 21 62  6c 6f 63 6b 25 3d 77 68  |w$..j&!block%=wh|
00001170  61 6e 64 6c 65 25 3a 62  6c 6f 63 6b 25 21 34 3d  |andle%:block%!4=|
00001180  69 68 61 6e 64 6c 65 25  0d 04 74 1a 62 6c 6f 63  |ihandle%..t.bloc|
00001190  6b 25 21 38 3d 30 3a 62  6c 6f 63 6b 25 21 31 32  |k%!8=0:block%!12|
000011a0  3d 30 0d 04 7e 22 c8 99  20 22 57 69 6d 70 5f 53  |=0..~".. "Wimp_S|
000011b0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
000011c0  6f 63 6b 25 0d 04 88 05  e1 0d 04 92 05 3a 0d 04  |ock%.........:..|
000011d0  9c 2e dd 20 f2 69 6e 69  74 5f 6d 65 6e 75 28 6d  |... .init_menu(m|
000011e0  65 6e 75 25 2c f8 20 77  69 64 74 68 25 2c f8 20  |enu%,. width%,. |
000011f0  65 6e 64 25 2c 74 69 74  6c 65 24 29 0d 04 a6 14  |end%,title$)....|
00001200  77 69 64 74 68 25 3d a9  28 74 69 74 6c 65 24 29  |width%=.(title$)|
00001210  0d 04 b0 1c 24 6d 65 6e  75 25 3d 74 69 74 6c 65  |....$menu%=title|
00001220  24 3a 6d 65 6e 75 25 3f  31 32 3d 37 0d 04 ba 24  |$:menu%?12=7...$|
00001230  6d 65 6e 75 25 3f 31 33  3d 32 3a 6d 65 6e 75 25  |menu%?13=2:menu%|
00001240  3f 31 34 3d 37 3a 6d 65  6e 75 25 3f 31 35 3d 30  |?14=7:menu%?15=0|
00001250  0d 04 c4 26 6d 65 6e 75  25 21 31 36 3d 28 77 69  |...&menu%!16=(wi|
00001260  64 74 68 25 2b 31 29 2a  31 36 3a 6d 65 6e 75 25  |dth%+1)*16:menu%|
00001270  21 32 30 3d 34 34 0d 04  ce 1c 6d 65 6e 75 25 21  |!20=44....menu%!|
00001280  32 34 3d 30 3a 65 6e 64  25 3d 6d 65 6e 75 25 2b  |24=0:end%=menu%+|
00001290  32 38 0d 04 d8 05 e1 0d  04 e2 05 3a 0d 04 ec 4e  |28.........:...N|
000012a0  dd 20 f2 73 74 5f 6d 65  6e 75 5f 69 74 65 6d 28  |. .st_menu_item(|
000012b0  6d 65 6e 75 25 2c f8 20  77 69 64 74 68 25 2c f8  |menu%,. width%,.|
000012c0  20 65 6e 64 25 2c 74 65  78 74 24 2c 74 69 63 6b  | end%,text$,tick|
000012d0  25 2c 64 6f 74 25 2c 73  68 61 64 65 25 2c 6c 61  |%,dot%,shade%,la|
000012e0  73 74 25 2c 6c 69 6e 6b  25 29 0d 04 f6 08 ea 20  |st%,link%)..... |
000012f0  66 25 0d 05 00 1d 66 25  3d a4 73 74 5f 6d 65 6e  |f%....f%=.st_men|
00001300  75 5f 66 6c 61 67 73 28  73 68 61 64 65 25 29 0d  |u_flags(shade%).|
00001310  05 0a 5b f2 6d 65 6e 75  5f 69 74 65 6d 28 6d 65  |..[.menu_item(me|
00001320  6e 75 25 2c 77 69 64 74  68 25 2c 65 6e 64 25 2c  |nu%,width%,end%,|
00001330  74 65 78 74 24 2c 74 69  63 6b 25 2c 64 6f 74 25  |text$,tick%,dot%|
00001340  2c 73 68 61 64 65 25 2c  6c 61 73 74 25 2c 6c 69  |,shade%,last%,li|
00001350  6e 6b 25 2c 77 72 69 74  65 25 2c 6d 65 73 73 25  |nk%,write%,mess%|
00001360  2c 66 25 2c 30 2c 30 2c  30 29 0d 05 14 05 e1 0d  |,f%,0,0,0)......|
00001370  05 1e 05 3a 0d 05 28 73  dd 20 f2 6d 65 6e 75 5f  |...:..(s. .menu_|
00001380  69 74 65 6d 28 6d 65 6e  75 25 2c f8 20 77 69 64  |item(menu%,. wid|
00001390  74 68 25 2c f8 20 65 6e  64 25 2c 74 65 78 74 24  |th%,. end%,text$|
000013a0  2c 74 69 63 6b 25 2c 64  6f 74 25 2c 73 68 61 64  |,tick%,dot%,shad|
000013b0  65 25 2c 6c 61 73 74 25  2c 6c 69 6e 6b 25 2c 77  |e%,last%,link%,w|
000013c0  72 69 74 65 25 2c 6d 65  73 73 25 2c 66 6c 61 67  |rite%,mess%,flag|
000013d0  25 2c 69 63 6f 6e 31 25  2c 69 63 6f 6e 32 25 2c  |%,icon1%,icon2%,|
000013e0  69 63 6f 6e 33 25 29 0d  05 32 0d ea 20 66 25 2c  |icon3%)..2.. f%,|
000013f0  69 73 74 25 0d 05 3c 38  66 25 3d 74 69 63 6b 25  |ist%..<8f%=tick%|
00001400  2b 28 64 6f 74 25 3c 3c  31 29 2b 28 77 72 69 74  |+(dot%<<1)+(writ|
00001410  65 25 3c 3c 32 29 2b 28  6d 65 73 73 25 3c 3c 33  |e%<<2)+(mess%<<3|
00001420  29 2b 28 6c 61 73 74 25  3c 3c 37 29 0d 05 46 26  |)+(last%<<7)..F&|
00001430  21 65 6e 64 25 3d 66 25  3a 65 6e 64 25 21 34 3d  |!end%=f%:end%!4=|
00001440  6c 69 6e 6b 25 3a 65 6e  64 25 21 38 3d 66 6c 61  |link%:end%!8=fla|
00001450  67 25 0d 05 50 21 69 73  74 25 3d 28 28 66 6c 61  |g%..P!ist%=((fla|
00001460  67 25 3e 3e 36 29 80 34  29 2b 28 66 6c 61 67 25  |g%>>6).4)+(flag%|
00001470  80 33 29 0d 05 5a 0d c8  8e 20 69 73 74 25 20 ca  |.3)..Z... ist% .|
00001480  0d 05 64 1d 20 c9 20 31  2c 32 2c 33 3a 24 28 65  |..d. . 1,2,3:$(e|
00001490  6e 64 25 2b 31 32 29 3d  74 65 78 74 24 0d 05 6e  |nd%+12)=text$..n|
000014a0  39 20 c9 20 35 2c 36 2c  37 3a 65 6e 64 25 21 31  |9 . 5,6,7:end%!1|
000014b0  32 3d 69 63 6f 6e 31 25  3a 65 6e 64 25 21 31 36  |2=icon1%:end%!16|
000014c0  3d 69 63 6f 6e 32 25 3a  65 6e 64 25 21 32 30 3d  |=icon2%:end%!20=|
000014d0  69 63 6f 6e 33 25 0d 05  78 05 cb 0d 05 82 0c 65  |icon3%..x......e|
000014e0  6e 64 25 2b 3d 32 34 0d  05 8c 27 e7 20 a9 28 74  |nd%+=24...'. .(t|
000014f0  65 78 74 24 29 3e 77 69  64 74 68 25 20 8c 20 77  |ext$)>width% . w|
00001500  69 64 74 68 25 3d a9 28  74 65 78 74 24 29 0d 05  |idth%=.(text$)..|
00001510  96 1a 6d 65 6e 75 25 21  31 36 3d 28 77 69 64 74  |..menu%!16=(widt|
00001520  68 25 2b 31 29 2a 31 36  0d 05 a0 05 e1 0d 05 aa  |h%+1)*16........|
00001530  05 3a 0d 05 b4 58 dd 20  a4 6d 65 6e 75 5f 66 6c  |.:...X. .menu_fl|
00001540  61 67 73 28 74 65 78 74  25 2c 73 70 25 2c 62 6f  |ags(text%,sp%,bo|
00001550  72 25 2c 63 68 6f 72 25  2c 61 6e 74 69 25 2c 69  |r%,chor%,anti%,i|
00001560  6e 64 25 2c 72 6a 75 73  74 25 2c 68 61 6c 66 25  |nd%,rjust%,half%|
00001570  2c 73 68 61 64 65 25 2c  66 63 6f 6c 25 2c 62 63  |,shade%,fcol%,bc|
00001580  6f 6c 25 2c 66 6f 6e 74  25 29 0d 05 be 0b ea 20  |ol%,font%)..... |
00001590  66 6c 61 67 25 0d 05 c8  6e 66 6c 61 67 25 3d 74  |flag%...nflag%=t|
000015a0  65 78 74 25 2b 28 73 70  25 3c 3c 31 29 2b 28 62  |ext%+(sp%<<1)+(b|
000015b0  6f 72 25 3c 3c 32 29 2b  28 63 68 6f 72 25 3c 3c  |or%<<2)+(chor%<<|
000015c0  33 29 2b 28 31 3c 3c 35  29 2b 28 61 6e 74 69 25  |3)+(1<<5)+(anti%|
000015d0  3c 3c 36 29 2b 28 69 6e  64 25 3c 3c 38 29 2b 28  |<<6)+(ind%<<8)+(|
000015e0  72 6a 75 73 74 25 3c 3c  39 29 2b 28 68 61 6c 66  |rjust%<<9)+(half|
000015f0  25 3c 3c 31 31 29 2b 28  73 68 61 64 65 25 3c 3c  |%<<11)+(shade%<<|
00001600  32 32 29 0d 05 d2 0f e7  20 61 6e 74 69 25 3d 30  |22)..... anti%=0|
00001610  20 8c 0d 05 dc 23 20 66  6c 61 67 25 2b 3d 28 66  | ....# flag%+=(f|
00001620  63 6f 6c 25 3c 3c 32 34  29 2b 28 62 63 6f 6c 25  |col%<<24)+(bcol%|
00001630  3c 3c 32 38 29 0d 05 e6  05 cc 0d 05 f0 17 20 66  |<<28)......... f|
00001640  6c 61 67 25 2b 3d 28 66  6f 6e 74 25 3c 3c 32 34  |lag%+=(font%<<24|
00001650  29 0d 05 fa 05 cd 0d 06  04 0a 3d 66 6c 61 67 25  |).........=flag%|
00001660  0d 06 0e 05 3a 0d 06 18  1c dd 20 a4 73 74 5f 6d  |....:..... .st_m|
00001670  65 6e 75 5f 66 6c 61 67  73 28 73 68 61 64 65 25  |enu_flags(shade%|
00001680  29 0d 06 22 2e 3d a4 6d  65 6e 75 5f 66 6c 61 67  |)..".=.menu_flag|
00001690  73 28 31 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |s(1,0,0,0,0,0,0,|
000016a0  30 2c 73 68 61 64 65 25  2c 37 2c 30 2c 30 29 0d  |0,shade%,7,0,0).|
000016b0  06 2c 05 3a 0d 06 36 2e  dd 20 f2 64 69 73 70 6c  |.,.:..6.. .displ|
000016c0  61 79 5f 62 61 72 5f 6d  65 6e 75 28 6d 65 6e 75  |ay_bar_menu(menu|
000016d0  25 2c 69 74 65 6d 73 25  2c 64 6f 74 73 25 2c 78  |%,items%,dots%,x|
000016e0  25 29 0d 06 40 3f c8 99  20 22 57 69 6d 70 5f 43  |%)..@?.. "Wimp_C|
000016f0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00001700  25 2c 78 25 2d 36 34 2c  39 36 2b 28 69 74 65 6d  |%,x%-64,96+(item|
00001710  73 25 2a 34 34 29 2b 28  64 6f 74 73 25 2a 32 34  |s%*44)+(dots%*24|
00001720  29 0d 06 4a 05 e1 0d 06  54 05 3a 0d 06 5e 20 dd  |)..J....T.:..^ .|
00001730  20 f2 64 69 73 70 6c 61  79 5f 6d 65 6e 75 28 6d  | .display_menu(m|
00001740  65 6e 75 25 2c 78 25 2c  79 25 29 0d 06 68 28 c8  |enu%,x%,y%)..h(.|
00001750  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001760  6e 75 22 2c 2c 6d 65 6e  75 25 2c 78 25 2d 36 34  |nu",,menu%,x%-64|
00001770  2c 79 25 0d 06 72 05 e1  0d 06 7c 05 3a 0d 06 86  |,y%..r....|.:...|
00001780  23 dd 20 f2 64 69 73 70  6c 61 79 5f 73 75 62 6d  |#. .display_subm|
00001790  65 6e 75 28 6d 65 6e 75  25 2c 78 25 2c 79 25 29  |enu(menu%,x%,y%)|
000017a0  0d 06 90 28 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...(.. "Wimp_Cre|
000017b0  61 74 65 53 75 62 4d 65  6e 75 22 2c 2c 6d 65 6e  |ateSubMenu",,men|
000017c0  75 25 2c 78 25 2c 79 25  0d 06 9a 05 e1 0d 06 a4  |u%,x%,y%........|
000017d0  05 3a 0d 06 ae 13 dd 20  a4 66 69 72 73 74 28 6d  |.:..... .first(m|
000017e0  65 6e 75 24 29 0d 06 b8  09 ea 20 63 68 24 0d 06  |enu$)..... ch$..|
000017f0  c2 3b e7 20 a7 6d 65 6e  75 24 2c 22 2e 22 29 3d  |.;. .menu$,".")=|
00001800  30 20 8c 20 63 68 24 3d  6d 65 6e 75 24 20 8b 20  |0 . ch$=menu$ . |
00001810  63 68 24 3d c0 6d 65 6e  75 24 2c a7 6d 65 6e 75  |ch$=.menu$,.menu|
00001820  24 2c 22 2e 22 29 2d 31  29 0d 06 cc 08 3d 63 68  |$,".")-1)....=ch|
00001830  24 0d 06 d6 05 3a 0d 06  e0 12 dd 20 a4 72 65 73  |$....:..... .res|
00001840  74 28 6d 65 6e 75 24 29  0d 06 ea 09 ea 20 63 68  |t(menu$)..... ch|
00001850  24 0d 06 f4 3f e7 20 a7  6d 65 6e 75 24 2c 22 2e  |$...?. .menu$,".|
00001860  22 29 3d 30 20 8c 20 63  68 24 3d 22 22 20 8b 20  |")=0 . ch$="" . |
00001870  63 68 24 3d c2 6d 65 6e  75 24 2c a9 28 6d 65 6e  |ch$=.menu$,.(men|
00001880  75 24 29 2d a7 6d 65 6e  75 24 2c 22 2e 22 29 29  |u$)-.menu$,"."))|
00001890  0d 06 fe 08 3d 63 68 24  0d 07 08 05 3a 0d 07 12  |....=ch$....:...|
000018a0  12 dd 20 a4 6c 65 61 66  28 66 69 6c 65 24 29 0d  |.. .leaf(file$).|
000018b0  07 1c 10 ea 20 70 6f 73  25 2c 74 65 6d 70 25 0d  |.... pos%,temp%.|
000018c0  07 26 0b 74 65 6d 70 25  3d 30 0d 07 30 05 f5 0d  |.&.temp%=0..0...|
000018d0  07 3a 10 70 6f 73 25 3d  74 65 6d 70 25 2b 31 0d  |.:.pos%=temp%+1.|
000018e0  07 44 1a 74 65 6d 70 25  3d a7 66 69 6c 65 24 2c  |.D.temp%=.file$,|
000018f0  22 2e 22 2c 70 6f 73 25  29 0d 07 4e 0d fd 20 74  |".",pos%)..N.. t|
00001900  65 6d 70 25 3d 30 0d 07  58 11 3d c1 66 69 6c 65  |emp%=0..X.=.file|
00001910  24 2c 70 6f 73 25 29 0d  07 62 05 3a 0d 07 6c 14  |$,pos%)..b.:..l.|
00001920  dd 20 a4 62 72 61 6e 63  68 28 66 69 6c 65 24 29  |. .branch(file$)|
00001930  0d 07 76 14 ea 20 70 6f  73 25 2c 62 72 24 2c 74  |..v.. pos%,br$,t|
00001940  65 6d 70 25 0d 07 80 15  e7 20 a7 66 69 6c 65 24  |emp%..... .file$|
00001950  2c 22 2e 22 29 3d 30 20  8c 0d 07 8a 0b 20 62 72  |,".")=0 ..... br|
00001960  24 3d 22 22 0d 07 94 05  cc 0d 07 9e 0c 20 74 65  |$=""......... te|
00001970  6d 70 25 3d 30 0d 07 a8  06 20 f5 0d 07 b2 11 20  |mp%=0.... ..... |
00001980  70 6f 73 25 3d 74 65 6d  70 25 2b 31 0d 07 bc 1b  |pos%=temp%+1....|
00001990  20 74 65 6d 70 25 3d a7  66 69 6c 65 24 2c 22 2e  | temp%=.file$,".|
000019a0  22 2c 70 6f 73 25 29 0d  07 c6 0e 20 fd 20 74 65  |",pos%).... . te|
000019b0  6d 70 25 3d 30 0d 07 d0  17 20 62 72 24 3d c0 66  |mp%=0.... br$=.f|
000019c0  69 6c 65 24 2c 70 6f 73  25 2d 32 29 0d 07 da 05  |ile$,pos%-2)....|
000019d0  cd 0d 07 e4 08 3d 62 72  24 0d 07 ee 05 3a 0d 07  |.....=br$....:..|
000019e0  f8 1a dd 20 a4 7a 65 72  6f 5f 73 74 72 69 6e 67  |... .zero_string|
000019f0  28 70 6f 69 6e 74 25 29  0d 08 02 0d ea 20 73 74  |(point%)..... st|
00001a00  72 69 6e 67 24 0d 08 0c  0e 73 74 72 69 6e 67 24  |ring$....string$|
00001a10  3d 22 22 0d 08 16 0e c8  95 20 3f 70 6f 69 6e 74  |=""...... ?point|
00001a20  25 0d 08 20 16 20 73 74  72 69 6e 67 24 2b 3d bd  |%.. . string$+=.|
00001a30  3f 70 6f 69 6e 74 25 0d  08 2a 0e 20 70 6f 69 6e  |?point%..*. poin|
00001a40  74 25 2b 3d 31 0d 08 34  05 ce 0d 08 3e 0c 3d 73  |t%+=1..4....>.=s|
00001a50  74 72 69 6e 67 24 0d 08  48 05 3a 0d 08 52 16 dd  |tring$..H.:..R..|
00001a60  20 a4 6c 69 62 72 61 72  79 5f 76 65 72 73 69 6f  | .library_versio|
00001a70  6e 0d 08 5c 07 3d 35 30  0d 08 66 05 3a 0d 08 70  |n..\.=50..f.:..p|
00001a80  2e dd 20 f2 71 75 69 63  6b 73 61 76 65 28 62 6c  |.. .quicksave(bl|
00001a90  6f 63 6b 25 2c 73 61 76  65 62 6f 78 25 2c 69 6e  |ock%,savebox%,in|
00001aa0  61 6d 65 25 2c 74 61 73  6b 24 29 0d 08 7a 11 ea  |ame%,task$)..z..|
00001ab0  20 74 65 6d 70 25 2c 66  69 6c 65 24 0d 08 84 24  | temp%,file$...$|
00001ac0  21 62 6c 6f 63 6b 25 3d  73 61 76 65 62 6f 78 25  |!block%=savebox%|
00001ad0  3a 62 6c 6f 63 6b 25 21  34 3d 69 6e 61 6d 65 25  |:block%!4=iname%|
00001ae0  0d 08 8e 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...".. "Wimp_Get|
00001af0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00001b00  6b 25 0d 08 98 16 66 69  6c 65 24 3d 24 28 62 6c  |k%....file$=$(bl|
00001b10  6f 63 6b 25 21 32 38 29  0d 08 a2 13 e7 20 a7 66  |ock%!28)..... .f|
00001b20  69 6c 65 24 2c 22 2e 22  29 20 8c 0d 08 ac 11 20  |ile$,".") ..... |
00001b30  f2 73 61 76 65 28 66 69  6c 65 24 29 0d 08 b6 05  |.save(file$)....|
00001b40  cc 0d 08 c0 5a 20 74 65  6d 70 25 3d a4 77 69 6d  |....Z temp%=.wim|
00001b50  70 65 72 72 6f 72 28 62  6c 6f 63 6b 25 2c 32 35  |perror(block%,25|
00001b60  35 2c 22 54 6f 20 73 61  76 65 2c 20 64 72 61 67  |5,"To save, drag|
00001b70  20 74 68 65 20 69 63 6f  6e 20 74 6f 20 61 20 64  | the icon to a d|
00001b80  69 72 65 63 74 6f 72 79  20 76 69 65 77 65 72 22  |irectory viewer"|
00001b90  2c 74 61 73 6b 24 2c 31  2c 30 29 0d 08 ca 05 cd  |,task$,1,0).....|
00001ba0  0d 08 d4 05 e1 0d 08 de  05 3a 0d 08 e8 2d dd 20  |.........:...-. |
00001bb0  f2 73 74 61 72 74 5f 64  72 61 67 73 61 76 65 28  |.start_dragsave(|
00001bc0  62 6c 6f 63 6b 25 2c 73  61 76 65 62 6f 78 25 2c  |block%,savebox%,|
00001bd0  69 69 63 6f 6e 25 29 0d  08 f2 0d ea 20 6f 78 25  |iicon%)..... ox%|
00001be0  2c 6f 79 25 0d 08 fc 14  21 62 6c 6f 63 6b 25 3d  |,oy%....!block%=|
00001bf0  73 61 76 65 62 6f 78 25  0d 09 06 24 c8 99 20 22  |savebox%...$.. "|
00001c00  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00001c10  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 09 10 1a  |ate",,block%....|
00001c20  6f 78 25 3d 62 6c 6f 63  6b 25 21 34 2d 62 6c 6f  |ox%=block%!4-blo|
00001c30  63 6b 25 21 32 30 0d 09  1a 1b 6f 79 25 3d 62 6c  |ck%!20....oy%=bl|
00001c40  6f 63 6b 25 21 31 36 2d  62 6c 6f 63 6b 25 21 32  |ock%!16-block%!2|
00001c50  34 0d 09 24 13 62 6c 6f  63 6b 25 21 34 3d 69 69  |4..$.block%!4=ii|
00001c60  63 6f 6e 25 0d 09 2e 22  c8 99 20 22 57 69 6d 70  |con%...".. "Wimp|
00001c70  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00001c80  62 6c 6f 63 6b 25 0d 09  38 1f 21 62 6c 6f 63 6b  |block%..8.!block|
00001c90  25 3d 73 61 76 65 62 6f  78 25 3a 62 6c 6f 63 6b  |%=savebox%:block|
00001ca0  25 21 34 3d 35 0d 09 42  19 62 6c 6f 63 6b 25 21  |%!4=5..B.block%!|
00001cb0  38 3d 6f 78 25 2b 62 6c  6f 63 6b 25 21 38 0d 09  |8=ox%+block%!8..|
00001cc0  4c 1b 62 6c 6f 63 6b 25  21 31 32 3d 6f 79 25 2b  |L.block%!12=oy%+|
00001cd0  62 6c 6f 63 6b 25 21 31  32 0d 09 56 1b 62 6c 6f  |block%!12..V.blo|
00001ce0  63 6b 25 21 31 36 3d 6f  78 25 2b 62 6c 6f 63 6b  |ck%!16=ox%+block|
00001cf0  25 21 31 36 0d 09 60 1b  62 6c 6f 63 6b 25 21 32  |%!16..`.block%!2|
00001d00  30 3d 6f 79 25 2b 62 6c  6f 63 6b 25 21 32 30 0d  |0=oy%+block%!20.|
00001d10  09 6a 1b 62 6c 6f 63 6b  25 21 32 34 3d 30 3a 62  |.j.block%!24=0:b|
00001d20  6c 6f 63 6b 25 21 32 38  3d 30 0d 09 74 17 62 6c  |lock%!28=0..t.bl|
00001d30  6f 63 6b 25 21 33 32 3d  26 37 46 46 46 46 46 46  |ock%!32=&7FFFFFF|
00001d40  46 0d 09 7e 17 62 6c 6f  63 6b 25 21 33 36 3d 26  |F..~.block%!36=&|
00001d50  37 46 46 46 46 46 46 46  0d 09 88 1d c8 99 20 22  |7FFFFFFF...... "|
00001d60  57 69 6d 70 5f 44 72 61  67 42 6f 78 22 2c 2c 62  |Wimp_DragBox",,b|
00001d70  6c 6f 63 6b 25 0d 09 92  05 e1 0d 09 9c 05 3a 0d  |lock%.........:.|
00001d80  09 a6 3f dd 20 f2 65 6e  64 5f 64 72 61 67 73 61  |..?. .end_dragsa|
00001d90  76 65 28 62 6c 6f 63 6b  25 2c 73 61 76 65 62 6f  |ve(block%,savebo|
00001da0  78 25 2c 69 6e 61 6d 65  25 2c 66 69 6c 65 74 79  |x%,iname%,filety|
00001db0  70 65 25 2c 66 69 6c 65  73 69 7a 65 25 29 0d 09  |pe%,filesize%)..|
00001dc0  b0 0b ea 20 66 69 6c 65  24 0d 09 ba 24 21 62 6c  |... file$...$!bl|
00001dd0  6f 63 6b 25 3d 73 61 76  65 62 6f 78 25 3a 62 6c  |ock%=savebox%:bl|
00001de0  6f 63 6b 25 21 34 3d 69  6e 61 6d 65 25 0d 09 c4  |ock%!4=iname%...|
00001df0  22 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |".. "Wimp_GetIco|
00001e00  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00001e10  09 ce 16 66 69 6c 65 24  3d 24 28 62 6c 6f 63 6b  |...file$=$(block|
00001e20  25 21 32 38 29 0d 09 d8  24 c8 99 20 22 57 69 6d  |%!28)...$.. "Wim|
00001e30  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00001e40  22 2c 2c 62 6c 6f 63 6b  25 0d 09 e2 17 62 6c 6f  |",,block%....blo|
00001e50  63 6b 25 21 32 30 3d 62  6c 6f 63 6b 25 21 31 32  |ck%!20=block%!12|
00001e60  0d 09 ec 17 62 6c 6f 63  6b 25 21 32 34 3d 62 6c  |....block%!24=bl|
00001e70  6f 63 6b 25 21 31 36 0d  09 f6 16 62 6c 6f 63 6b  |ock%!16....block|
00001e80  25 21 32 38 3d 62 6c 6f  63 6b 25 21 30 0d 0a 00  |%!28=block%!0...|
00001e90  16 62 6c 6f 63 6b 25 21  33 32 3d 62 6c 6f 63 6b  |.block%!32=block|
00001ea0  25 21 34 0d 0a 0a 17 62  6c 6f 63 6b 25 21 33 36  |%!4....block%!36|
00001eb0  3d 66 69 6c 65 73 69 7a  65 25 0d 0a 14 1b 62 6c  |=filesize%....bl|
00001ec0  6f 63 6b 25 21 30 3d 36  34 3a 62 6c 6f 63 6b 25  |ock%!0=64:block%|
00001ed0  21 31 32 3d 30 0d 0a 1e  23 62 6c 6f 63 6b 25 21  |!12=0...#block%!|
00001ee0  31 36 3d 31 3a 62 6c 6f  63 6b 25 21 34 30 3d 66  |16=1:block%!40=f|
00001ef0  69 6c 65 74 79 70 65 25  0d 0a 28 1d 24 28 62 6c  |iletype%..(.$(bl|
00001f00  6f 63 6b 25 2b 34 34 29  3d a4 6c 65 61 66 28 66  |ock%+44)=.leaf(f|
00001f10  69 6c 65 24 29 0d 0a 32  37 c8 99 20 22 57 69 6d  |ile$)..27.. "Wim|
00001f20  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00001f30  37 2c 62 6c 6f 63 6b 25  2c 62 6c 6f 63 6b 25 21  |7,block%,block%!|
00001f40  32 30 2c 62 6c 6f 63 6b  25 21 32 34 0d 0a 3c 05  |20,block%!24..<.|
00001f50  e1 0d 0a 46 05 3a 0d 0a  50 1f dd 20 a4 6d 65 73  |...F.:..P.. .mes|
00001f60  73 61 67 65 5f 64 61 74  61 73 61 76 65 28 62 6c  |sage_datasave(bl|
00001f70  6f 63 6b 25 29 0d 0a 5a  0f ea 20 6f 6b 25 2c 66  |ock%)..Z.. ok%,f|
00001f80  69 6c 65 24 0d 0a 64 21  66 69 6c 65 24 3d a4 7a  |ile$..d!file$=.z|
00001f90  65 72 6f 5f 73 74 72 69  6e 67 28 62 6c 6f 63 6b  |ero_string(block|
00001fa0  25 2b 34 34 29 0d 0a 6e  10 f2 73 61 76 65 28 66  |%+44)..n..save(f|
00001fb0  69 6c 65 24 29 0d 0a 78  22 e7 20 62 6c 6f 63 6b  |ile$)..x". block|
00001fc0  25 21 33 36 3e 2d 31 20  8c 20 6f 6b 25 3d b9 20  |%!36>-1 . ok%=. |
00001fd0  8b 20 6f 6b 25 3d a3 0d  0a 82 16 62 6c 6f 63 6b  |. ok%=.....block|
00001fe0  25 21 31 32 3d 62 6c 6f  63 6b 25 21 38 0d 0a 8c  |%!12=block%!8...|
00001ff0  1b 21 62 6c 6f 63 6b 25  3d 32 35 36 3a 62 6c 6f  |.!block%=256:blo|
00002000  63 6b 25 21 31 36 3d 33  0d 0a 96 37 c8 99 20 22  |ck%!16=3...7.. "|
00002010  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00002020  22 2c 31 38 2c 62 6c 6f  63 6b 25 2c 62 6c 6f 63  |",18,block%,bloc|
00002030  6b 25 21 32 30 2c 62 6c  6f 63 6b 25 21 32 34 0d  |k%!20,block%!24.|
00002040  0a a0 18 e7 20 6f 6b 25  20 8c 20 3d 66 69 6c 65  |.... ok% . =file|
00002050  24 20 8b 20 3d 22 22 0d  0a aa 05 3a 0d 0a b4 38  |$ . =""....:...8|
00002060  dd 20 a4 6d 65 73 73 61  67 65 5f 72 61 6d 73 61  |. .message_ramsa|
00002070  76 65 28 62 6c 6f 63 6b  25 2c 74 61 73 6b 25 2c  |ve(block%,task%,|
00002080  f8 20 73 72 63 62 75 66  66 25 2c f8 20 62 79 74  |. srcbuff%,. byt|
00002090  65 73 25 29 0d 0a be 27  ea 20 62 74 72 61 6e 73  |es%)...'. btrans|
000020a0  25 2c 63 6f 64 65 25 2c  64 62 75 66 66 25 2c 64  |%,code%,dbuff%,d|
000020b0  74 61 73 6b 25 2c 6c 61  73 74 25 0d 0a c8 24 64  |task%,last%...$d|
000020c0  74 61 73 6b 25 3d 62 6c  6f 63 6b 25 21 34 3a 64  |task%=block%!4:d|
000020d0  62 75 66 66 25 3d 62 6c  6f 63 6b 25 21 32 30 0d  |buff%=block%!20.|
000020e0  0a d2 19 e7 20 62 79 74  65 73 25 3e 3d 62 6c 6f  |.... bytes%>=blo|
000020f0  63 6b 25 21 32 34 20 8c  0d 0a dc 16 20 62 74 72  |ck%!24 ..... btr|
00002100  61 6e 73 25 3d 62 6c 6f  63 6b 25 21 32 34 0d 0a  |ans%=block%!24..|
00002110  e6 15 20 63 6f 64 65 25  3d 31 38 3a 6c 61 73 74  |.. code%=18:last|
00002120  25 3d a3 0d 0a f0 05 cc  0d 0a fa 13 20 62 74 72  |%=.......... btr|
00002130  61 6e 73 25 3d 62 79 74  65 73 25 0d 0b 04 15 20  |ans%=bytes%.... |
00002140  63 6f 64 65 25 3d 31 37  3a 6c 61 73 74 25 3d b9  |code%=17:last%=.|
00002150  0d 0b 0e 05 cd 0d 0b 18  40 c8 99 20 22 57 69 6d  |........@.. "Wim|
00002160  70 5f 54 72 61 6e 73 66  65 72 42 6c 6f 63 6b 22  |p_TransferBlock"|
00002170  2c 74 61 73 6b 25 2c 73  72 63 62 75 66 66 25 2c  |,task%,srcbuff%,|
00002180  64 74 61 73 6b 25 2c 64  62 75 66 66 25 2c 62 74  |dtask%,dbuff%,bt|
00002190  72 61 6e 73 25 0d 0b 22  25 73 72 63 62 75 66 66  |rans%.."%srcbuff|
000021a0  25 2b 3d 62 74 72 61 6e  73 25 3a 62 79 74 65 73  |%+=btrans%:bytes|
000021b0  25 2d 3d 62 74 72 61 6e  73 25 0d 0b 2c 22 62 6c  |%-=btrans%..,"bl|
000021c0  6f 63 6b 25 21 31 32 3d  62 6c 6f 63 6b 25 21 38  |ock%!12=block%!8|
000021d0  3a 62 6c 6f 63 6b 25 21  31 36 3d 37 0d 0b 36 26  |:block%!16=7..6&|
000021e0  62 6c 6f 63 6b 25 21 32  30 3d 64 62 75 66 66 25  |block%!20=dbuff%|
000021f0  3a 62 6c 6f 63 6b 25 21  32 34 3d 62 74 72 61 6e  |:block%!24=btran|
00002200  73 25 0d 0b 40 2d c8 99  20 22 57 69 6d 70 5f 53  |s%..@-.. "Wimp_S|
00002210  65 6e 64 4d 65 73 73 61  67 65 22 2c 63 6f 64 65  |endMessage",code|
00002220  25 2c 62 6c 6f 63 6b 25  2c 64 74 61 73 6b 25 0d  |%,block%,dtask%.|
00002230  0b 4a 0a 3d 6c 61 73 74  25 0d 0b 54 05 3a 0d 0b  |.J.=last%..T.:..|
00002240  5e 42 dd 20 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |^B. .open_window|
00002250  5f 77 69 74 68 5f 70 61  6e 65 28 62 6c 6f 63 6b  |_with_pane(block|
00002260  25 2c 6d 61 69 6e 25 2c  70 61 6e 65 25 2c 6f 66  |%,main%,pane%,of|
00002270  66 78 25 2c 6f 66 66 79  25 2c 6f 70 65 6e 25 29  |fx%,offy%,open%)|
00002280  0d 0b 68 2f ea 20 6d 78  30 25 2c 6d 79 30 25 2c  |..h/. mx0%,my0%,|
00002290  6d 78 31 25 2c 6d 79 31  25 2c 62 65 68 69 6e 64  |mx1%,my1%,behind|
000022a0  25 2c 78 73 69 7a 65 25  2c 79 73 69 7a 65 25 0d  |%,xsize%,ysize%.|
000022b0  0b 72 10 c8 8e 20 21 62  6c 6f 63 6b 25 20 ca 0d  |.r... !block% ..|
000022c0  0b 7c 0c 20 c9 20 70 61  6e 65 25 0d 0b 86 22 20  |.|. . pane%..." |
000022d0  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
000022e0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 0b 90  |ndow",,block%...|
000022f0  0c 20 c9 20 6d 61 69 6e  25 0d 0b 9a 13 20 20 6d  |. . main%....  m|
00002300  78 30 25 3d 62 6c 6f 63  6b 25 21 34 0d 0b a4 13  |x0%=block%!4....|
00002310  20 20 6d 79 30 25 3d 62  6c 6f 63 6b 25 21 38 0d  |  my0%=block%!8.|
00002320  0b ae 14 20 20 6d 78 31  25 3d 62 6c 6f 63 6b 25  |...  mx1%=block%|
00002330  21 31 32 0d 0b b8 14 20  20 6d 79 31 25 3d 62 6c  |!12....  my1%=bl|
00002340  6f 63 6b 25 21 31 36 0d  0b c2 4b 20 20 e7 20 6f  |ock%!16...K  . o|
00002350  70 65 6e 25 20 8c 20 62  65 68 69 6e 64 25 3d 62  |pen% . behind%=b|
00002360  6c 6f 63 6b 25 21 32 38  3a 62 6c 6f 63 6b 25 21  |lock%!28:block%!|
00002370  32 38 3d 70 61 6e 65 25  20 8b 20 62 65 68 69 6e  |28=pane% . behin|
00002380  64 25 3d 2d 31 3a 62 6c  6f 63 6b 25 21 32 38 3d  |d%=-1:block%!28=|
00002390  2d 31 0d 0b cc 13 20 20  21 62 6c 6f 63 6b 25 3d  |-1....  !block%=|
000023a0  70 61 6e 65 25 0d 0b d6  25 20 20 c8 99 20 22 57  |pane%...%  .. "W|
000023b0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
000023c0  6f 22 2c 2c 62 6c 6f 63  6b 25 0d 0b e0 1f 20 20  |o",,block%....  |
000023d0  78 73 69 7a 65 25 3d 62  6c 6f 63 6b 25 21 31 32  |xsize%=block%!12|
000023e0  2d 62 6c 6f 63 6b 25 21  34 0d 0b ea 1f 20 20 79  |-block%!4....  y|
000023f0  73 69 7a 65 25 3d 62 6c  6f 63 6b 25 21 31 36 2d  |size%=block%!16-|
00002400  62 6c 6f 63 6b 25 21 38  0d 0b f4 13 20 20 21 62  |block%!8....  !b|
00002410  6c 6f 63 6b 25 3d 70 61  6e 65 25 0d 0b fe 19 20  |lock%=pane%.... |
00002420  20 62 6c 6f 63 6b 25 21  34 3d 6d 78 30 25 2b 6f  | block%!4=mx0%+o|
00002430  66 66 78 25 0d 0c 08 19  20 20 62 6c 6f 63 6b 25  |ffx%....  block%|
00002440  21 38 3d 6d 79 30 25 2b  6f 66 66 79 25 0d 0c 12  |!8=my0%+offy%...|
00002450  21 20 20 62 6c 6f 63 6b  25 21 31 32 3d 6d 78 30  |!  block%!12=mx0|
00002460  25 2b 6f 66 66 78 25 2b  78 73 69 7a 65 25 0d 0c  |%+offx%+xsize%..|
00002470  1c 21 20 20 62 6c 6f 63  6b 25 21 31 36 3d 6d 79  |.!  block%!16=my|
00002480  30 25 2b 6f 66 66 79 25  2b 79 73 69 7a 65 25 0d  |0%+offy%+ysize%.|
00002490  0c 26 17 20 20 62 6c 6f  63 6b 25 21 32 38 3d 62  |.&.  block%!28=b|
000024a0  65 68 69 6e 64 25 0d 0c  30 22 20 20 c8 99 20 22  |ehind%..0"  .. "|
000024b0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000024c0  2c 2c 62 6c 6f 63 6b 25  0d 0c 3a 13 20 20 21 62  |,,block%..:.  !b|
000024d0  6c 6f 63 6b 25 3d 6d 61  69 6e 25 0d 0c 44 25 20  |lock%=main%..D% |
000024e0  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  | .. "Wimp_GetWin|
000024f0  64 6f 77 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 25  |dowInfo",,block%|
00002500  0d 0c 4e 13 20 20 62 6c  6f 63 6b 25 21 34 3d 6d  |..N.  block%!4=m|
00002510  78 30 25 0d 0c 58 13 20  20 62 6c 6f 63 6b 25 21  |x0%..X.  block%!|
00002520  38 3d 6d 79 30 25 0d 0c  62 14 20 20 62 6c 6f 63  |8=my0%..b.  bloc|
00002530  6b 25 21 31 32 3d 6d 78  31 25 0d 0c 6c 14 20 20  |k%!12=mx1%..l.  |
00002540  62 6c 6f 63 6b 25 21 31  36 3d 6d 79 31 25 0d 0c  |block%!16=my1%..|
00002550  76 15 20 20 62 6c 6f 63  6b 25 21 32 38 3d 70 61  |v.  block%!28=pa|
00002560  6e 65 25 0d 0c 80 22 20  20 c8 99 20 22 57 69 6d  |ne%..."  .. "Wim|
00002570  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00002580  6c 6f 63 6b 25 0d 0c 8a  05 cb 0d 0c 94 05 e1 0d  |lock%...........|
00002590  0c 9e 05 3a 0d 0c a8 31  dd 20 f2 63 6c 6f 73 65  |...:...1. .close|
000025a0  5f 77 69 6e 64 6f 77 5f  77 69 74 68 5f 70 61 6e  |_window_with_pan|
000025b0  65 28 62 6c 6f 63 6b 25  2c 6d 61 69 6e 25 2c 70  |e(block%,main%,p|
000025c0  61 6e 65 25 29 0d 0c b2  2f 21 62 6c 6f 63 6b 25  |ane%).../!block%|
000025d0  3d 6d 61 69 6e 25 3a c8  99 20 22 57 69 6d 70 5f  |=main%:.. "Wimp_|
000025e0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
000025f0  6f 63 6b 25 0d 0c bc 2f  21 62 6c 6f 63 6b 25 3d  |ock%.../!block%=|
00002600  70 61 6e 65 25 3a c8 99  20 22 57 69 6d 70 5f 43  |pane%:.. "Wimp_C|
00002610  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
00002620  63 6b 25 0d 0c c6 05 e1  0d ff                    |ck%.......|
0000262a