� >!Larger.Overlay3
Q��k_:xo%=(!fastscrollleft%)*(!xmax%+1):yo%=(!fastscrolldown%)*(!ymax%+1):�L:�
3��py:xo%=0:yo%=0:ȗmx%,my%,but%:�mx%<0�xo%=-mx%
(�mx%>!xmax%�xo%=!xmax%-mx%
2�my%<0�yo%=-my%
<�my%>!ymax%�yo%=!ymax%-my%
F!�scroll%�(�(-1)��withshift%)�
P�xo%<>0�yo%<>0��L
Z�:ȗ�mx%+xo%,my%+yo%:�
dm��L:next%=�M(backg%):ȕnext%<>-1�next%<>-2�next%<>-3:�dy(next%):next%=�M(next%):�:offx%+=xo%:offy%+=yo%:�
nA��XJ:scroll%=�scroll%:șlargersuppwsh%,-scroll%,-withshift%:�
x,��q_:�xo%,yo%:xo%=-offx%:yo%=-offy%:�L:�
�U��iy:next%=�M(backg%):ȕnext%<>-1:�i(next%,�):next%=�M(next%):�:offx%=0:offy%=0:�
���ky:�!noapps%>-1�
�!�l%=!noapps%�0�-1:Ȏtype%?l%�
��5:�d(l%):�C(l%):l%-=1
��6:�Y(l%):�C(l%):l%-=1
��:�
�R�:next%=�M(backg%):ȕnext%<>-1:�i(next%,�):next%=�M(next%):�:offx%=0:offy%=0:�
�#��dy(next%):�next%<>mapwindow%�
�:block%!0=next%:șwimpgws%,,block%:�(block%!32�32)<>32�
�Vblock%!4+=xo%:block%!8+=yo%:block%!12+=xo%:block%!16+=yo%:șwimpsm%,2,block%,next%
��
��:�
�S��i(next%,flag%):�ymax2%:block%!0=next%:șwimpgws%,,block%:�(block%!32�32)<>32�

Kxo%=0:yo%=0:șwimpgwo%,,block%:�block%!12>!xmax%�xo%=!xmax%-block%!12+1

#�(block%!4+xo%)<0�xo%=-block%!4

,�block%!16>!ymax%�yo%=!ymax%-block%!16+1

"#�(block%!8+yo%)<0�yo%=-block%!8

,ișwimpgws%,,block%:block%!4+=xo%:block%!8+=yo%:block%!12+=xo%:block%!16+=yo%:șwimpsm%,2,block%,next%

6�:�

@d��a_:�A$,Z$,flag%,l%:block%!12=block%!8:block%!16=4:șwimpsm%,17,block%,block%!4:�savingonto%=��

JSA$=�A(block%+44):Z$=A$:ȕ�Z$,".")>0:Z$=�Z$,�Z$,".")+1):�:flag%=-1:�!noapps%>-1�

T&�l%=0�!noapps%:�A$(l%)=A$�flag%=l%

^�

h�:�flag%<>-1��C(flag%)

r�D(block%!40,A$,Z$,�)

|�:savingonto%=�:�

�O��P_:�A$,Z$,W$,x%,y%,filetype%,flag%,l%,onto%,movecopy%,count%:Ȏblock%!20�

�!�backg%:count%=0:�!noapps%>0�

�-�l%=0�!noapps%:�backdrop%?l%=!A�count%+=1

��

�)�:�!noapps%<255�count%<!xwid%*!ywid%�

�+A$=�A(block%+44):onto%=-1:�!noapps%>-1�

���l%=0�!noapps%:gx%=block%!28:gy%=block%!32:gx%=(gx%-!xpix%)*!xdiv%�!xmult%�!xpix%�80:gy%=(gy%-!ypix%-!barheight%)*!ydiv%�!ymult%�!ypix%�32:�l%=0�!noapps%:�xy0%?l%=gx%�xy1%?l%=gy%�backdrop%?l%=!A�onto%=l%

��:�

��:�onto%<>-1�

� �dragonto%?onto%<>1�onto%=-1

��:�onto%<>-1�

��type%?onto%=2�

�sZ$=�A(block%+44):S$=�F(Z$):ș&400de,"Filer_Action"�taskh%:ș&40f80,taskh%,S$:ș&40f81,taskh%,�Z$,�S$+2):�(-1)�
movecopy%=6
�:movecopy%=0
t�:ș&40f82,taskh%,movecopy%,fileroptions%,A$(onto%),�A$(onto%)+1:block%!12=block%!8:șwimpsm%,17,block%,block%!4
&�:�T(onto%,A$)
0�
:D�:Z$=A$:ȕ�Z$,".")>0:Z$=�Z$,�Z$,".")+1):�:flag%=-1:�!noapps%>-1�
D6�l%=0�!noapps%:�A$(l%)=A$�backdrop%?l%=!A�flag%=l%
N�
X�:�flag%<>-1��C(flag%)
b�D(block%!40,A$,Z$,�)
l�
v�
�+�config2%:�block%!24=52�block%!40=4089�
�S$=�A(block%+44):�g(S$)
��
��:�
����Uy(but%):�l%,hx%,hy%,minx%,maxx%,miny%,maxy%,mx%,my%,onicon%,multiple%,found%:mx%=!block%:my%=block%!4:drag%=-1:hx%=mx%�(!xpix%*80*!xmult%/!xdiv%):hy%=(my%-!barheight%)�(!ypix%*32*!ymult%/!ydiv%):�!noapps%>-1�
�D�l%=0�!noapps%:�xy0%?l%=hx%�xy1%?l%=hy%�backdrop%?l%=!A�drag%=l%
��
�-�:onicon%=�O(mx%,my%):�onicon%�drag%=-1�
�
�but%=64�
��!noapps%<>0�
�+�l%=0�!noapps%:�l%<>drag%�select%?l%=1�
�$select%?l%=0:�S(xy0%?l%,xy1%?l%)
��:�
�
��:block%!8=mx%:block%!12=my%:block%!16=mx%:block%!20=my%:block%!24=0:block%!28=!barheight%+4:block%!32=!xmax%:block%!36=!ymax%:block%!0=backg%:block%!4=6:șwimpdragbox%,,block%:�but%=64�
dragtype%=1
 �:dragtype%=0:�drag%<>-1�
*;select%?drag%=1-select%?drag%:�S(xy0%?drag%,xy1%?drag%)
4�
>�
H.�:multiple%=�:found%=�:�drag%<>-1�onicon%�
R[minx%=xy0%?drag%:maxx%=minx%:miny%=xy1%?drag%:maxy%=miny%:�l%=0�!noapps%:�select%?l%=1�
\�found%=��multiple%=�
flfound%=�:minx%=�Q(minx%,xy0%?l%):maxx%=�B(maxx%,xy0%?l%):miny%=�Q(miny%,xy1%?l%):maxy%=�B(maxy%,xy1%?l%)
p�:�:�dragasprite%�
z�block%!8=mx%-17*!xpix%*!xmult%/!xdiv%:block%!12=my%-17*!ypix%*!ymult%/!ydiv%:block%!16=mx%+17*!xpix%*!xmult%/!xdiv%:block%!20=my%+17*!ypix%*!ymult%/!ydiv%:�multiple%�
�&ș&42400,197,1,"Multiple",block%+8
� �:�P(�A(sprite%+12*drag%))�
�0ș&42400,197,1,�A(sprite%+12*drag%),block%+8
��:�type%?drag%=1�
�&ș&42400,197,1,"file_xxx",block%+8
�+�:ș&42400,197,1,"application",block%+8
��
��
��
���:block%!8=minx%*80*!xpix%*!xmult%/!xdiv%:block%!12=((miny%*32)+1)*!ypix%*!ymult%/!ydiv%+!barheight%:block%!16=(maxx%+1)*80*!xpix%*!xmult%/!xdiv%:block%!20=((maxy%+1)*32+1)*!ypix%*!ymult%/!ydiv%+!barheight%:block%!24=-mx%:block%!28=-my%
�_block%!32=!xmax%+mx%:block%!36=!ymax%+my%:block%!0=backg%:block%!4=5:șwimpdragbox%,,block%
��:dragtype%=5
��
�:�
���p_:�Z$,X$,B$,x%,y%,filetype%,nx%,ny%,found%,l%,mx%,my%,whandle%,ihandle%,type2%,load%,exec%,len%,attr%,dragon%,helptemp%,u$,b$,difftype%,nograv%:șwimpgetpointerinfo%,,block%+20:mx%=block%!20:my%=block%!24:whandle%=block%!32:ihandle%=block%!36
�dragasprite%�ș&42401
$Ȏdragtype%�
.�5:Ȏ��
8��whandle%=backg%:nx%=mx%�(!xpix%*80*!xmult%/!xdiv%):ny%=(my%-!barheight%)�(!ypix%*32*!ymult%/!ydiv%):found%=-1:�l%=0�!noapps%:�xy0%?l%=nx%�xy1%?l%=ny%�backdrop%?l%=!A�found%=l%
B�:�found%=-1�
L�Z$=�A(leaf%+12*drag%):X$=�A(sprite%+12*drag%):B$=A$(drag%):filetype%=type%?drag%:dragon%=dragonto%?drag%:key%=hotkeys%!(drag%*4):helptemp%=A%(drag%):backdroptemp%=backdrop%?drag%:b$=M$(drag%):u$=Z$(drag%):A$(drag%)="":type%?drag%=1:�C(drag%)
V�!noapps%+=1:�Z(Z$,leaf%+12*!noapps%):�Z(X$,sprite%+12*!noapps%):Z$(!noapps%)=u$:M$(!noapps%)=b$:A$(!noapps%)=B$:xy0%?(!noapps%)=nx%:xy1%?(!noapps%)=ny%:ixy0%?(!noapps%)=nx%:ixy1%?(!noapps%)=ny%:dragonto%?!noapps%=dragon%:type%?!noapps%=filetype%
`qhotkeys%!((!noapps%)*4)=key%:A%(!noapps%)=helptemp%:backdrop%?(!noapps%)=backdroptemp%:ș&446c6,F:�S(nx%,ny%)
j�:�drag%<>found%�
t�!organise%=0�
~�b(found%,drag%)
�-�:�f(drag%,found%,diffgrav%):�diffgrav%�
�"previous%=drag%:�found%>drag%�
��current%=drag%:�:current%=current%+1:�backdrop%?current%=backdrop%?drag%:ȕcurrent%<=found%:�f(current%,previous%,diffgrav%):�diffgrav%�(backdrop%?current%=backdrop%?previous%)�
�-�b(previous%,current%):previous%=current%
��:current%+=1:�
���:current%=drag%:�:current%=current%-1:�backdrop%?current%=backdrop%?drag%:ȕcurrent%>=found%:�f(current%,previous%,diffgrav%):�diffgrav%�(backdrop%?current%=backdrop%?previous%)�
�-�b(previous%,current%):previous%=current%
��:current%-=1:�
��
��
��
��
�

:�whandle%=-2�ihandle%=-1:�l%=0�!noapps%:�select%?l%=1�
.�T(l%,""):�S(xy0%?l%,xy1%?l%):select%?l%=0
�:�
(�whandle%=config%
2�whandle%=config2%
<:�l(A$(drag%))
F�
P��0,1:nx%=!block%�(!xpix%*80*!xmult%/!xdiv%):ny%=((block%!4)-!barheight%)�(!ypix%*32*!ymult%/!ydiv%):mx%=(block%!8)�(!xpix%*80*!xmult%/!xdiv%):my%=((block%!12)-!barheight%)�(!ypix%*32*!ymult%/!ydiv%):�nx%>mx%�Ȕnx%,mx%
Z�ny%>my%�Ȕny%,my%
d�!noapps%>-1�
nX�l%=0�!noapps%:�xy0%?l%>=nx%�xy0%?l%<=mx%�xy1%?l%>=ny%�xy1%?l%<=my%�backdrop%?l%=!A�
x�dragtype%=1�
�%�select%?l%=0��S(xy0%?l%,xy1%?l%)
�select%?l%=1
�1�:select%?l%=1-select%?l%:�S(xy0%?l%,xy1%?l%)
��
��:�
��
��2:Ȏwhandle%�
�U�backg%,-1,-2,config%,config2%,info%,fileinfo%,savewindow%,fileaccess%,mapwindow%
�l:!block%=savewindow%:block%!4=1:șwimpgis%,,block%:S$=�A(block%!28):�S$,".")=0�S$=�F(A$(drag%))+"."+S$
�
�l(S$)
��
��3,4:px%=!block%:py%=block%!4:!block%=mapwindow%:șwimpgws%,,block%:px%-=block%!4:py%-=block%!8:�x:px%=((px%-xoff%)/M)+minx%:py%=((py%-yoff%)/Z)+miny%:�draggingwhandle%<>-1�
��!block%=draggingwhandle%:șwimpgws%,,block%:block%!12+=px%-block%!4:block%!16+=py%-block%!8:block%!4=px%:block%!8=py%:�dragtype%=3�block%!28=-1
'șwimpsm%,2,block%,draggingwhandle%
�:xo%=-px%:yo%=-py%:�L
�
"�:�
,6��f(drag%,found%,�diffgrav%):�a%,b%:Ȏtype%?drag%�
6�3,1:a%=!appsgrav%
@�5,6:a%=!windgrav%
J�2:a%=!dirsgrav%
T�7:a%=!backgrav%
^�:Ȏtype%?found%�
h�3,1:b%=!appsgrav%
r�5,6:b%=!windgrav%
|�2:b%=!dirsgrav%
��7:b%=!backgrav%
�0�:diffgrav%=(a%<>b%):�a%=b%�a%=0�diffgrav%=�
��
����l(B$):�n$,l%:!block%=20:block%!12=0:block%!16=0:șwimpsm%,19,block%,whandle%,ihandle%�,,desttask%:ș39,B$,block%,256:B$=�A(block%):ș8,13,�A(leaf%+12*drag%),,,�B$,�B$-��A(leaf%+12*drag%))�type2%,,load%,exec%,len%,attr%
�0�type2%=2�type2%=4096�type2%=(load%>>8)�4095
�7�type2%=4096���A(leaf%+12*drag%),1)="!"�type2%=8192
”ș&42680,desttask%�n$:block%!12=0:block%!20=whandle%:block%!24=ihandle%:block%!28=mx%:block%!32=my%:block%!36=len%:block%!40=type2%:�n$="Filer"�
�Z$=B$:l%=�Z$,"."):�l%>0�
�(ȕ�Z$,".",l%+1)>0:l%=�Z$,".",l%+1):�
��:Z$=�Z$,l%+1):block%!0=((48+�Z$)�4)*4:�Z(Z$,block%+44):block%!16=1:șwimpsm%,18,block%,whandle%,ihandle%:filersave%=�:dragwhandle%=whandle%:dragihandle%=ihandle%
�#�:�l%=0�!noapps%:�select%?l%=1�
�block%!0=((48+�A$(l%))�4)*4:�Z(A$(l%),block%+44):block%!16=3:șwimpsm%,17,block%,whandle%,ihandle%:loadinprogress%=�:select%?l%=0:�S(xy0%?l%,xy1%?l%)
��:�
�:�
M��f_:�xpos%,ypos%:șwimpgetcaretpos%,,block%:�block%!0<>-1�block%!16<>-1�
�block%!20=block%!0:șwimpgws%,,block%+20:xpos%=block%!8+block%!24-block%!40:ypos%=block%!12+block%!36-block%!44:cheight%=(block%!16�65535):�cheight%<>-1�
&8�xpos%<0�xpos%>!xmax%�ypos%<0�ypos%>!ymax%-cheight%�
0E�xpos%>block%!24�xpos%<block%!32�ypos%>block%!28�ypos%<block%!36�
:#xo%=0:yo%=0:�xpos%<0�xo%=-xpos%
D"�xpos%>!xmax%�xo%=!xmax%-xpos%
N�ypos%<0�yo%=-ypos%
X4�ypos%>!ymax%-cheight%�yo%=!ymax%-ypos%-cheight%
b�L
l�
v�
��
��:�
����u_:�Z$,onto%,l%,gx%,gy%,S$,flag%:flag%=�:onto%=-1:gx%=block%!28:gy%=block%!32:gx%=(gx%-!xpix%)*!xdiv%�!xmult%�!xpix%�80:gy%=(gy%-!ypix%-!barheight%)*!ydiv%�!ymult%�!ypix%�32:scrapsize%=block%!36:scraptype%=block%!40:�!noapps%>-1�
�[�l%=0�!noapps%:�xy0%?l%=gx%�xy1%?l%=gy%�type%?l%<>1�type%?l%<4�backdrop%?l%=!A�onto%=l%
��
�0�:Z$=�A(block%+44):savingonto%=�:�onto%<>-1�
��dragonto%?onto%=1�
��type%?onto%=2�
�S$=A$(onto%)+"."+Z$
�]�:ș39,"<Wimp$Scrap>",block2%,256:S$=�A(block2%):runscrapwhensaved%=�:runscraponto%=onto%
��:savingonto%=�
��:onto%=-1:S$=G$+Z$
��
�:S$=G$+Z$
��:block%!12=block%!8:block%!16=2:block%!0=((49+�(S$))�4)*4:�Z(S$,block%+44):șwimpsm%,17,block%,block%!4:loadinprogress%=�:�
?��M(menu%,item%,if%):�ptr%:ptr%=menublock%!(menu%<<2):�if%�
 /ptr%!(36+item%*24)=ptr%!(36+item%*24)�1<<22
*4�:ptr%!(36+item%*24)=ptr%!(36+item%*24)��(1<<22)
4�:�
>@��a(menu%,i$):�ptr%:ptr%=menublock%!(menu%<<2):�Z(i$,ptr%):�
H]��V(menu%,entry%,i$):�ptr%:ptr%=menublock%!(menu%<<2):ptr%+=24*entry%:�(ptr%!36�256)=256�
Rptr%=ptr%!40
\�:ptr%=ptr%+40
f�:�Z(i$,ptr%):�
p?��G(menu%,item%,if%):�ptr%:ptr%=menublock%!(menu%<<2):�if%�
z+ptr%!(28+item%*24)=ptr%!(28+item%*24)�1
�.�:ptr%!(28+item%*24)=ptr%!(28+item%*24)��1
��:�
����H(newmenucoords%,menunum%,selectunder%):�menu%,l%,found%,selection%,whandle%,backdropflag%,oddtype%:whandle%=block%!12:menuopen%=menunum%:șwimpgetpointerinfo%,,block%:�newmenucoords%�
�fmenux%=!block%�(!xpix%*80*!xmult%/!xdiv%):menuy%=(block%!4-!barheight%)�(!ypix%*32*!ymult%/!ydiv%)
�}�:found%=�:selection%=�:oddtype%=�:�l%=0�9:�M(8,l%,0):�:�l%=0�4:�M(10,l%,0):�:remove%=0:�whandle%=backg%��newmenucoords%�
��!noapps%>-1�
�!�l%=0�!noapps%:�select%?l%=1�
��type%?l%<4�type%?l%=7�
��found%�selection%=�
�found%=�:remove%=l%
��:oddtype%=�
��
�1�:�:�(�found%�temporaryselect%)�selectunder%�
	B�l%=0�!noapps%:�xy0%?l%=menux%�xy1%?l%=menuy%�backdrop%?l%=!A�
	�type%?l%<4�type%?l%=7�
	found%=�:remove%=l%
	$�:oddtype%=�
	.�
	8�:�:�found%�
	B�temporaryselect%�
	L!�l%=0�!noapps%:�select%?l%=1�
	V$select%?l%=0:�S(xy0%?l%,xy1%?l%)
	`�:�
	jH�:select%?remove%=1:temporaryselect%=�:�S(xy0%?remove%,xy1%?remove%)
	t�
	~�
	��
	���:�M(7,6,!A=0):�M(8,10,type%?remove%>=4):�M(8,11,type%?remove%>=4):�M(8,12,type%?remove%>4):�M(8,13,(type%?remove%=2�type%?remove%>=4)�type%?l%<7):�M(8,14,(type%?remove%=2�type%?remove%>=4)�type%?l%<7)
	���M(8,15,(type%?remove%=2�type%?remove%>=4)�type%?l%<7):�M(8,5,1):�qy:�G(8,10,dragonto%?remove%=1):�G(13,0,(fileroptions%�2)�2):�G(13,1,(fileroptions%�1)):�G(13,2,(fileroptions%�4)�4):�G(13,3,(fileroptions%�8)�8):?newdirbuf%=0:�found%�
	�$�M(7,1,0):�M(7,3,0):�selection%�
	�Q�a(8,"Selection"):�V(7,1,"Selection"):�M(8,0,1):�M(8,1,1):�M(8,6,1):�M(7,3,0)
	��:�A%(remove%)��M(8,5,0)
	ķ�Z(�A(leaf%+12*remove%),renamebuf%):!block%=savewindow%:block%!4=1:șwimpgis%,,block%:�Z(�A(leaf%+12*remove%),block%!28):block%!4=2:șwimpgis%,,block%:�P(�A(sprite%+12*remove%))�
	�,�Z("S"+�A(sprite%+12*remove%),block%!32)
	��:�type%?remove%=3�
	� �Z("Sapplication",block%!32)
	��:�Z("Sfile_xxx",block%!32)
	��
D�:�M(8,0,0):�M(8,1,0):�M(8,6,0):backdropflag%=�:Ȏtype%?remove%�

=�1:�a(8,"File"):�V(7,1,"File '"+�A(leaf%+remove%*12)+"'")
Q�7:backdropflag%=�:�a(8,"Backdrop"):�V(7,1,"Bdp. '"+�A(leaf%+remove%*12)+"'")
B�2:�a(8,"Directory"):�V(7,1,"Dir. '"+�A(leaf%+remove%*12)+"'")
(D�3:�a(8,"Application"):�V(7,1,"App. '"+�A(leaf%+remove%*12)+"'")
2�
<�:�backdropflag%�
F-�l%=0�15:�M(8,l%,�):�:�M(8,1,�):�M(8,2,�)
P|�:hotbuffer%?0=(hotkeys%!(remove%*4))+13:hotbuffer%?1=0:�Z(Z$(remove%),prebuffer%):�Z(M$(remove%),postbuffer%):�M(7,3,�)
Z�
dA�:�M(7,3,�):�V(7,1,"File ''"):�M(7,1,�):�l%=0�15:�M(8,l%,�):�
n�:�oddtype%�
x�l%=0�4:�M(10,l%,�):�
�"�:�mousey%<128�mousey%=96+44*8
�Hșwimpcreatemenu%,0,!(menublock%+(menunum%<<2)),mousex%-64,mousey%:�
����t:�oxwid%,oywid%:oxwid%=!xwid%:oywid%=!ywid%:!block%=11:block%!4=12:block%!8=4:block%!12=5:block%!16=-1:ș49,block%,block2%:xeig%=block2%!8:yeig%=block2%!12:!xmax%=(((!block2%)+1)<<xeig%)-1:!ymax%=(((block2%!4)+1)<<yeig%)-1:!xpix%=1<<xeig%
��!ypix%=1<<yeig%:!block%=backg%:șwimpclosewindow%,,block%:block%!0=0:block%!4=!ypix%:block%!8=!xmax%+!xpix%*2:block%!12=!ymax%:șwimpsetextent%,backg%,block%:!block%=backg%:block%!4=-!xpix%:block%!8=133+!ypix%:block%!12=!xmax%+!xpix%
��block%!16=!ymax%+!ypix%:block%!20=0:block%!24=0:block%!28=-2:șwimpopenwindow%,,block%:șwimpreadpixtrans%,290,1,"largeplint",,,,sprblock%,sprblock%+16:!xmult%=!sprblock%:!ymult%=sprblock%!4*2:!xdiv%=sprblock%!8:!ydiv%=sprblock%!12
��!barheight%=32*!ypix%*!ymult%/!ydiv%:!xwid%=(!xmax%+1)*!xdiv%/!xmult%/80/!xpix%:!ywid%=(!ymax%+1-!barheight%)*!ydiv%/!ymult%/32/!ypix%:!xmax2%=((!xmax%+1)�(!xwid%*80))*(!xwid%*80):!ymax2%=((!ymax%+1)�(!ywid%*32))*(!ywid%*32)
�%�!xwid%<>oxwid%�!ywid%<>oywid%��Q
��v:�
Ҟ��O_:�whandle%,thandle%,chandle%,l%,found%,h$:ș&400d3,,block%:chandle%=!block%:șwimpgetpointerinfo%,,block%:whandle%=block%!12:�whandle%=-1�whandle%=-2�
�hidinghandle%=-1
�I�:block%!0=0:block%!12=0:șwimpsm%,19,block%,whandle%�,,hidinghandle%
�@�:�hidinghandle%<>task%�hidinghandle%<>-1�hidinghandle%<>-2�
�whandle%=�M(backg%):ȕwhandle%<>-1:block%!0=20:block%!12=0:șwimpsm%,19,block%,whandle%�,,thandle%:�thandle%=hidinghandle%�
/�whandle%=chandle%�ș&400d2,-1,-1,0,0,-1,-1
nblock%!0=whandle%:șwimpgws%,,block%:whandle%=block%!28:block%!28=dummywindow%:șwimpsm%,2,block%,thandle%
�:whandle%=�M(whandle%)
"�:�:found%=�:�!noapps%>-1�
,A�l%=0�!noapps%:�(type%?l%)=5�A$(l%)=�(hidinghandle%)�found%=�
6�
@�:�found%�
J?ș&42680,hidinghandle%�h$:�D(-2,�(hidinghandle%),�h$,10),�)
T�:hiding%=�
^�:�
h���d(app%):�l%,number%,whandle%,thandle%:apptask%=�(A$(app%)):whandle%=�M(dummywindow2%):ȕwhandle%<>dummywindow%�whandle%<>-1�whandle%<>backg%:block%!0=20:block%!12=0:șwimpsm%,19,block%,whandle%�,,thandle%:�thandle%=apptask%�
rdblock%!0=whandle%:șwimpgws%,,block%:whandle%=block%!28:block%!28=-1:șwimpsm%,2,block%,thandle%
|�:whandle%=�M(whandle%)
�	�:�:�
����s_:�taskh%,pos%,l%,n%,W$,C$,e$,My$:q$=�A(block%+44):pos%=0:ȕ�q$,".",pos%+1)>0:pos%=�q$,".",pos%+1):�:q$=�q$,pos%-1):�l%=0�!noapps%:�select%?l%=1�type%?l%<4�
��pos%=0:ȕ�A$(l%),".",pos%+1)>0:pos%=�A$(l%),".",pos%+1):�:C$=�A$(l%),pos%-1):W$="":�n%=l%�!noapps%:e$=�A$(n%),�C$+2):�A$(n%),�C$+1)=C$+"."��e$,".")=0��W$+�e$<250�select%?n%=1�
�/W$+=" "+e$:select%?n%=0:�S(xy0%?n%,xy1%?n%)
�y�:�:ș&400de,"Filer_Action"�taskh%:ș&40f80,taskh%,C$:ș&40f81,taskh%,�W$,2):ș&40f82,taskh%,0,fileroptions%,q$,�q$+1
�V�:�:block%!12=block%!8:block%!16=3:șwimpsm%,17,block%,dragwhandle%,dragihandle%:�
‚��d_(ptr%):�O$,l%,n%,N$,addr%,Y$:O$="":ȕ!ptr%<>-1:O$+=�(!ptr%)+",":ptr%+=4:�:n%=-1:�l%=1�ucomms%:�n%=-1��S$(l%),�O$)=O$�n%=l%
�'�:N$=�S$(n%),�O$+1):�B(N$):�N$<>""�
��N$,",")>0�
�eaddr%=�(�N$,�N$,",")+1)):N$=�N$,�N$,",")-1):Y$=�A(addr%):ș67,Y$,block%,2048,N$,�N$:N$=�A(block%)
�[�:�("Set Alias$TempCommand "+N$):�("WimpTask TempCommand"):�("Unset Alias$TempCommand")
��:�
����Fy(but%):�gx%,gy%,l%,n%,x%,y%:gx%=block%!0+!xpix%:gy%=block%!4+!ypix%:x%=(gx%-!xpix%)*!xdiv%�!xmult%�!xpix%�80:y%=(gy%-!ypix%-!barheight%)*!ydiv%�!ymult%�!ypix%�32:n%=-1:�!noapps%>-1�
:�l%=0�!noapps%:�xy0%?l%=x%�xy1%?l%=y%�backdrop%?l%=!A�
	n%=l%
�:�
&
�:�n%>-1�
0�FJ(but%,x%,y%,n%)
:�:�(but%�4)=4�
D	�e(0)
N�
X�:�
bk��ty:�taskh%,A$,pos%:ichandle%=block%!20:block%!64=ichandle%:șwimpgws%,,block%+64:�(block%!96�4096)=0�
l�block%!12=block%!8:ș&400e7,19,block%,block%!4:d$=�A(block%+28):ictaskh%=block%!24:block%!16=&400cc:block%!24=0:ș&400e7,18,block%,block%!20:icresponse%=�
v�:�!noapps%>-1�
�"�l%=!noapps%�0�-1:�type%?l%=6�
�2pos%=�A$(l%)," "):�A$(l%),pos%-1)=ichandle%�
��Y(l%):�C(l%):l%-=1
��
��:�
��:�
���M_:�l%,y$:�icresponse%�
��block%!4=task%�
�2ș&42680,ictaskh%�y$:�sy(d$,"ic_"+y$,ictaskh%)
�/�:�sy(�A(block%+28),�A(block%+36),ictaskh%)
��
��:�block%!4<>task%�
�$currenticoniser%=�:�!noapps%>-1�

"�l%=!noapps%�0�-1:�type%?l%=6�

�Y(l%):�C(l%)

�:�

 �

*�

4�:icresponse%=�:�

>t��sy(d$,l$,ictaskh%):�l%:!block%=ichandle%:șwimpgws%,,block%:block%!28=-3:șwimpsm%,2,block%,ichandle%:�P(l$)�

H3�D(-3,l$+" "+�(ichandle%)+" "+�(ictaskh%),d$,�)

R9�:�D(-3,"ic_?"+" "+�(ichandle%)+" "+�(ictaskh%),d$,�)

\�:�

f~��Y(app%):�l%,pos%,flags%:pos%=�A$(app%)," "):!block%=��A$(app%),pos%-1):șwimpgws%+(1<<17),,block%�;flags%:�(flags%�1)=0�

p+block%!28=-1:șwimpsm%,2,block%,!block%

z�:�

���yy:�l%,A$:�!noapps%>-1�

��l%=0�!noapps%:�type%?l%=6�

�.A$=�A$(l%),�A$(l%)," ")-1):�A$=block%!20�

�
�C(l%)

��

��:�

��:�

�#��FJ(but%,x%,y%,n%):�l%:Ȏbut%�

�*�1:select%?n%=1-(select%?n%):�S(x%,y%)

��4:�select%?n%=0�

�!�l%=0�!noapps%:�select%?l%=1�

�$�S(xy0%?l%,xy1%?l%):select%?l%=0

�+�:�:select%?n%=1-(select%?n%):�S(x%,y%)
�
�:temporaryselect%=�:�
-��g_:�l%,S$,Z$,flags%,file%:�!noapps%>-1�
$!�l%=0�!noapps%:�select%?l%=1�
.�type%?l%=7�
8AZ$=�A(renamebuf%):�Z(�Z$,10),leaf%+l%*12):�S(xy0%?l%,xy1%?l%)
BY�:S$=�F(A$(l%)):Z$=�A(renamebuf%):ș&20029,25,A$(l%),S$+"."+Z$�;flags%:�(flags%�1)=1�
L�!block%=0:Q$="Rename Failed (Not found, Access Violation, Object not found, or destination object already exists)":�Z(Q$,block%+4):șwimperr%,block%,9,"Larger"
VB�:A$(l%)=S$+"."+Z$:�Z(�Z$,10),leaf%+l%*12):�S(xy0%?l%,xy1%?l%)
`�
j�
t�:�
~�:�
�+��CJ:�l%,S$,taskh%,dummy%:�!noapps%>-1�
�$�l%=!noapps%�0�-1:�select%?l%=1�
�Ȏ��
��type%?l%=7:�C(l%)
���A$(l%),�G$)=G$�type%?l%=4:!block%=0:Q$="Removing '"+�A(leaf%+12*l%)+"' deletes it. - Are you sure? (OK to continue, CANCEL to keep)":�Z(Q$,block%+4):șwimperr%,block%,31,"Larger"�,click%:�click%=1�
��S$=�F(A$(l%)):ș&400de,"Filer_Action"�taskh%:ș&40f80,taskh%,S$:ș&40f81,taskh%,�A$(l%),�S$+2):ș&40f82,taskh%,2,fileroptions%:�C(l%)
��
�:�C(l%)
��
��:�
��:�
�)��Py(flag%):�access%,recurse%:�flag%�
Ȏt�

�0:access%=-786423
�1:access%=-786429
�2:access%=-1114096
(�3:access%=-3211264
2�
<X�:access%=-3932160:ș&400d6,fileaccess%,block%,&3f0000,&210000:�!block%=1�access%+=8
FEș&400d6,fileaccess%,block%,&3f0000,&220000:�!block%=2�access%+=1
PEș&400d6,fileaccess%,block%,&3f0000,&230000:�!block%=3�access%+=2
ZFș&400d6,fileaccess%,block%,&3f0000,&240000:�!block%=4�access%+=16
dFș&400d6,fileaccess%,block%,&3f0000,&250000:�!block%=5�access%+=32
n\�:!block%=fileaccess%:block%!4=6:șwimpgis%,,block%:recurse%=((block%!24)>>21)�1:�_(0):�
xQݤ_:!block%=access%:ș&40f82,taskh%,3,fileroptions%+(recurse%<<4),block%,4:=0
�N��U_:�settype%,A$,l%,flag%,len%,a$,more%:A$=�A(settypebuf%):�B(A$):�A$>0�
�%settype%=-1:�A$,1)="&"�A$=�A$,2)
�Eflag%=�:�l%=1��A$:�"0123456789ABCDEFabcdef",�A$,l%,1))<1�flag%=�
�
�:�flag%�
�settype%=�("&"+A$)
���:more%=0:�:ș&20023,"File$Type_*",block%,18,more%,3�,,len%,more%:block%?len%=0:a$=�A(block%):�B(a$):�more%<=0�A$=a$:�more%>0�
�$settype%=�("&"+��A(more%),11,3))
��
��:�settype%>-1�
�'�_(1):�l%=0�!noapps%:�select%?l%=1�
��type%?l%=2�type%?l%=3�
�@�:�Z("file_"+�~(settype%),sprite%+l%*12):�S(xy0%?l%,xy1%?l%)
��
�:�
b�:!block%=0:Q$="Bad file type":�Z(Q$,block%+4):?(block%+4+�Q$)=0:șwimperr%,block%,25,"Larger"
�
"�:�
,DݤT:!block%=settype%:ș&40f82,taskh%,4,fileroptions%,block%,4:=0
6��AJ:�_(2):�
@,ݤK:ș&40f82,taskh%,5,fileroptions%,1:=0
J��J_:�_(3):�
TGݤY:ș&40f82,taskh%,9,fileroptions%,�A(findbuf%),��A(findbuf%)+1:=0
^��MJ:�_(4):�
h,ݤq:ș&40f82,taskh%,8,fileroptions%,0:=0
r/��_(op%):�l%,S$,taskh%,dummy%:�!noapps%>-1�
|!�l%=0�!noapps%:�select%?l%=1�
��type%?l%<>7�
�iS$=�F(A$(l%)):ș&400de,"Filer_Action"�taskh%:ș&40f80,taskh%,S$:ș&40f81,taskh%,�A$(l%),�S$+2):Ȏop%�
��0:dummy%=�_
��1:dummy%=�T
��2:dummy%=�K
��3:dummy%=�Y
��4:dummy%=�q
��
��
��:�
��:�
�
��hy:Ȏ��
� �block%!32=1�block%!36=3:�ZJ
 �block%!32=1�block%!36=6:�R_
/�:ș&400e8,,block%!20,block%!24,block%!28:�
p��My:�l%:�l%=1�5:�A(fileaccess%,l%,0):�A(fileaccess%,l%+6,0):�:�G(10,0,0):�G(10,1,0):�G(10,2,0):�G(10,3,0):�
&��__:�l%:�!noapps%>-1�
0J�l%=0�!noapps%:�select%?l%=1��O("WimpTask Filer_Run "+A$(l%)+".!Help")
:�
D�:�
NL��ZJ:�selection%,l%,found%,S$,attr%:selection%=�:found%=-1:�!noapps%>-1�
X!�l%=0�!noapps%:�select%?l%=1�
b�found%<>-1�selection%=�
l
found%=l%
v�:�
��:�found%=-1�
��l%=0�4:�M(10,l%,�):�
��:�selection%�
��My
�%�:�type%?found%=2�type%?found%=3�
��My:�W(fileaccess%,6,0)
���:�W(fileaccess%,6,1):S$=�F(A$(found%)):ș8,13,�A$(found%),�S$+2),,,S$+"."�,,,,,attr%:!block%=fileaccess%:�A(fileaccess%,1,(attr%�4)�4):�A(fileaccess%,7,1-((attr%�4)�4)):�A(fileaccess%,2,(attr%�1)�1):�A(fileaccess%,8,1-((attr%�1)�1))
��A(fileaccess%,3,(attr%�2)�2):�A(fileaccess%,9,1-((attr%�2)�2)):�A(fileaccess%,4,(attr%�16)�16):�A(fileaccess%,10,1-((attr%�16)�16)):�A(fileaccess%,5,(attr%�32)�32):�A(fileaccess%,11,1-((attr%�32)�32)):�G(10,0,(attr%�8)�8):�G(10,1,1-((attr%�8)�8))
�G�G(10,2,(attr%�16)�16):�G(10,3,1-(((attr%�16)�16)�((attr%�32)�32)))
��
��
��:�
�O��R_:�l%,S$,objtype%,load%,exec%,len%,attr%,L$,ft%,X$,length%:�!noapps%>-1�
!�l%=0�!noapps%:�select%?l%=1�
jS$=�F(A$(l%)):ș&20008,13,�A$(l%),�S$+2),,,S$+"."�objtype%,,load%,exec%,len%,attr%:L$="":�objtype%<>0�
�objtype%=2�
 �leaf%?(l%*12)<>�"!"�
*!X$="directory":T$="Directory"
4-�:T$="Application":X$=�A(sprite%+(l%*12))
>U�:block%!40=fileinfo%:block%!44=10:block%!48=0:block%!52=63:șwimpsis%,,block%+40
H!�:�(load%�-1048576)=-1048576�
R�ft%=(load%�&fff00)>>8:block%!40=fileinfo%:block%!44=10:block%!48=0:block%!52=63:șwimpsis%,,block%+40:ș&20023,"File$Type_"+�~(ft%),block%+40,18,0,3�,,length%,more%:block%?(length%+40)=0:T$=�A(block%+40):�B(T$):T$=�T$+"         ",9)+"("+�~(ft%)+")"
\X$="file_"+�~(ft%)
fn�:T$="File":X$="File_xxx":block%!40=fileinfo%:block%!44=10:block%!48=63:block%!52=63:șwimpsis%,,block%+40
p�
z��:block%!40=exec%:block%!44=load%:ș193,block%+40,block%+48,30,"%24:%mi:%se %dy %m3 %ce%yr":g$=�A(block%+48):�(attr%�8)=8�L$="L"
��(attr%�2)=2�L$+="W"
��(attr%�1)=1�L$+="R"
�"L$+="/":�(attr%�32)=32�L$+="w"
��(attr%�16)=16�L$+="r"
�Vblock%!40=fileinfo%:block%!44=5:șwimpgis%,,block%+40:�Z(�A$(l%),�S$+2),block%!68)
���:g$="":X$="":L$="":T$="":len%=0:load%=0:exec%=0:block%!40=fileinfo%:block%!44=10:block%!48=0:block%!52=63:șwimpsis%,,block%+40:block%!44=5:șwimpgis%,,block%+40:�Z("Not Found!",block%!68)
���:block%!44=7:șwimpgis%,,block%+40:�Z(g$,block%!68):block%!44=8:șwimpgis%,,block%+40:�Z(L$,block%!68):L$=�"00000000"+�~(load%),8)+"   "+�"00000000"+�~(exec%),8):block%!44=10:șwimpgis%,,block%+40:�Z(L$,block%!68):block%!44=4:șwimpgis%,,block%+40
ʃ�Z(�(len%),block%!68):block%!44=2:șwimpgis%,,block%+40:�Z(T$,block%!68):block%!44=0:șwimpgis%,,block%+40:�Z("S"+X$,block%!72)
��:�
��:�
����Ny:�taskh%,next%:next%=�M(backg%):!block%=20:block%!12=0:block%!16=0:șwimpsm%,19,block%,next%�,,taskh%:ȕnext%<>-1:!block%=20:block%!12=0:block%!16=0:șwimpsm%,19,block%,next%�,,taskh2%:�taskh2%=taskh%�
�:block%!0=next%:șwimpgws%,,block%:�(block%!32�32)<>32�
�)block%!28=-1:șwimpsm%,2,block%,next%
�
�:next%=�M(next%):�:�
`��Ly:�mx%,my%:mx%=!block%:my%=block%!4:!block%=savewindow%:șwimpgws%,,block%:�dragasprite%�
$yblock%!8=block%!4+78:block%!12=block%!16-90:block%!16=block%!8+68:block%!20=block%!12+68:�P(�A(sprite%+12*remove%))�
.2ș&42400,197,1,�A(sprite%+12*remove%),block%+8
8�:�type%?remove%=3�
B)ș&42400,197,1,"application",block%+8
L(�:ș&42400,197,1,"file_xxx",block%+8
V�
`�
j��:block%!12=block%!8+74:block%!8=block%!4+74:block%!20=block%!12+76:block%!16=block%!8+76:block%!24=-mx%:block%!28=-my%:block%!32=!xmax%+mx%:block%!36=!ymax%+my%:block%!0=savewindow%:block%!4=5:șwimpdragbox%,,block%
t!�:dragtype%=2:drag%=remove%:�
~-��n(but%,icon%):�taskh%,l%,S$,f$:Ȏicon%�
��0:�!noapps%>-1�
�d!block%=savewindow%:block%!4=1:șwimpgis%,,block%:f$=�A(block%!28):�l%=0�!noapps%:�select%?l%=1�
��S$=�F(A$(l%)):ș&400de,"Filer_Action"�taskh%:ș&40f80,taskh%,S$:ș&40f81,taskh%,�A$(l%),�S$+2):ș&40f82,taskh%,7,fileroptions%,f$,�f$+1
��:�
��
��:�
�K��Hy:�maxx%,maxy%,minx%,miny%,M,Z,px%,py%,xoff%,yoff%:�draggingwindow%�
�draggingwindow%=�
�.�:�Ay:xo%=!xmax%/2-px%:yo%=!ymax%/2-py%:�L
��:�
���Ay:px%=!block%:py%=block%!4:!block%=mapwindow%:șwimpgws%,,block%:px%-=block%!4:py%-=block%!8:�x:px%=((px%-xoff%)/M)+minx%:py%=((py%-yoff%)/Z)+miny%:�
����Oy:�maxx%,maxy%,minx%,miny%,M,Z,px%,py%,xoff%,yoff%,next%,whandle%,mx%,my%,butt%:butt%=block%!8:mx%=!block%:my%=block%!4:�Ay:whandle%=-1:next%=�M(backg%):ȕnext%<>-1:!block%=next%:șwimpgws%,,block%
^�block%!4<=px%�block%!12>=px%�block%!8<=py%�block%!16>=py%�(block%!32�32)=0�whandle%=next%

$next%=�M(next%):�:�whandle%<>-1�
?draggingwindow%=�:draggingwhandle%=whandle%:�(butt%�16)=16�
dragtype%=4
(�:dragtype%=3
2��:!block%=whandle%:șwimpgws%,,block%:block%!20=mapwindow%:șwimpgws%,,block%+20:block%!20=(block%!16-miny%)*Z+yoff%+block%!28:block%!16=(block%!12-minx%)*M+xoff%+block%!24:block%!12=(block%!8-miny%)*Z+yoff%+block%!28
<Qblock%!8=(block%!4-minx%)*M+xoff%+block%!24:block%!4=5:șwimpdragbox%,,block%
F��:draggingwindow%=�:draggingwhandle%=-1:dragtype%=4:block%!20=mapwindow%:șwimpgws%,,block%+20:block%!4=5:block%!20=(!ymax%-miny%)*Z+yoff%+block%!28:block%!16=(!xmax%-minx%)*M+xoff%+block%!24:block%!12=(-miny%)*Z+yoff%+block%!28
P>block%!8=(-minx%)*M+xoff%+block%!24:șwimpdragbox%,,block%
Z�:�
d���GJ:�l%,menux%,menuy%,remove%,found%:menux%=!block%�(!xpix%*80*!xmult%/!xdiv%):menuy%=(block%!4-!barheight%)�(!ypix%*32*!ymult%/!ydiv%):found%=�:remove%=0:�!noapps%>-1�
nM�l%=0�!noapps%:�xy0%?l%=menux%�xy1%?l%=menuy%�backdrop%?l%=!A�type%?l%=6�
xfound%=�:remove%=l%
��:�
� �:�found%=��type%?remove%=6�
�xwhandle%=�(�A$(remove%),�" ",A$(remove%))-1)):block%!8=2:block%!12=whandle%:block%!16=-1:șwimpsm%,6,block%,whandle%
��:�
�v��r_:�x0%,y0%,x1%,y1%,maxx%,maxy%,minx%,miny%,gx1%,gx2%,gy1%,gy2%:ș&446c4�,x0%,y0%,x1%,y1%:�i_(x0%,y0%,x1%,y1%):�
�r��i_(x0%,y0%,x1%,y1%):�x:�minx%+(!xmax%)/2>x0%�(miny%+!ymax%/2)>y0%�(maxx%-!xmax%/2)<x1%�(maxy%-!ymax%/2)<y1%�
��m(0,-214,476,0)
Ȣ�:gx1%=�U((x0%-minx%)*M+xoff%):gy1%=�N((y0%-miny%)*Z+yoff%-214-2*!ypix%):gx2%=�U((x1%-minx%)*M+xoff%):gy2%=�N((y1%-miny%)*Z+yoff%-214):�m(gx1%,gy1%,gx2%,gy2%)
��:�
�3��my:șwimpgetpointerinfo%,,block%:Ȏblock%!12�
��backg%
��-1
��-2
H:block%!40=block%!12:șwimpgws%,,block%+40:�(block%!72�(1<<17))<>0�
/block%!68=�M(backg%):�block%!68<>block%!40�
#șwimpsm%,2,block%+40,block%!40
"�
,2�:block%!68=-1:șwimpsm%,2,block%+40,block%!40
6�
@�:�
J���b(drag%,found%):r$=�A(leaf%+12*found%):�Z(�A(leaf%+12*drag%),leaf%+12*found%):�Z(r$,leaf%+12*drag%):r$=�A(sprite%+12*drag%):�Z(�A(sprite%+12*found%),sprite%+12*drag%):�Z(r$,sprite%+12*found%):ȔA$(drag%),A$(found%):Ȕtype%?drag%,type%?found%
T�Ȕdragonto%?drag%,dragonto%?found%:Ȕbackdrop%?drag%,backdrop%?found%:Ȕhotkeys%!(drag%*4),hotkeys%!(found%*4):ȔZ$(drag%),Z$(found%):ȔM$(drag%),M$(found%):ȔA%(drag%),A%(found%):ixy0%?drag%=xy0%?drag%:ixy1%?drag%=xy1%?drag%
^�ixy0%?found%=xy0%?found%:ixy1%?found%=xy1%?found%:select%?drag%=0:select%?found%=0:�S(xy0%?drag%,xy1%?drag%):�S(xy0%?found%,xy1%?found%):�
h���Z_:�B$,flag%,l%,count%:B$=�A(newdirbuf%):?newdirbuf%=0:ș&400d3,,block%+40:ș&400d2,block%!40,block%!44,,,-1,0:�B(B$):�B$<>""�
rcount%=0:�!noapps%>-1�
|-�l%=0�!noapps%:�backdrop%?l%=!A�count%+=1
��
��:flag%=�:�!noapps%>-1�
�$�l%=0�!noapps%:�backdrop%?l%=!A�
�*�A(leaf%+12*l%)=B$�type%?l%=7�flag%=�
��:�
�3�:�flag%=��!noapps%<255�count%<(!xwid%*!ywid%)�
�9�D(-4,�(nextfreebackdrop%),B$,�):nextfreebackdrop%+=1
��
��:�
���Zy:�l%,c%:c%=!A:�c%<>0�
��!noapps%>-1�
��l%=0�!noapps%:�type%?l%=7�
��(A$(l%))=c%�
�r(backdrop%?l%)
�
�:�
&�
0�:�
:L��`y(�A$):�l%,a$,_$:a$="":_$="":�l%=1��A$:_$=�A$,l%,1):�_$>="a"�_$<="z"�
Da$+=�(�(_$)�223)
N�:a$+=_$
X�:�:A$=a$:�
b���o_:�P$,type%,file%,click%:ș&446cd�P$:�B(P$):�`y(P$):type%=0:ȕ�P$,5)="-TILE"��P$,7)="-CENTRE"��P$,6)="-SCALE":�P$,5)="-TILE"�
lP$=�P$,6):type%=2
v�:�P$,7)="-CENTRE"�
�P$=�P$,8):type%=1
��:�P$,6)="-SCALE"�
�P$=�P$,7):type%=3
�#�:�B(P$):�:�type%<>0��Xy(type%)
��P$<>""�
��R(P$)�
�
�g(P$)
�]�:!block%=0:�Z("Not a valid spritefile: "+P$,block%+4):ș&400df,block%,6,"Larger"�,click%
��
��:�
�3ݤR(W$):�flag%,ft%,flags%:flag%=�:�W$," ")<=0�
�Dș&20008,23,W$�type%,,,,,,ft%;flags%:ft%=ft%�4095:�(flags%�1)=0�
��ft%=4089�flag%=�
�
�:=flag%
ݤw:=123456
�

00000000  0d 00 0a 17 f4 20 3e 21  4c 61 72 67 65 72 2e 4f  |..... >!Larger.O|
00000010  76 65 72 6c 61 79 33 0d  00 14 51 dd f2 6b 5f 3a  |verlay3...Q..k_:|
00000020  78 6f 25 3d 28 21 66 61  73 74 73 63 72 6f 6c 6c  |xo%=(!fastscroll|
00000030  6c 65 66 74 25 29 2a 28  21 78 6d 61 78 25 2b 31  |left%)*(!xmax%+1|
00000040  29 3a 79 6f 25 3d 28 21  66 61 73 74 73 63 72 6f  |):yo%=(!fastscro|
00000050  6c 6c 64 6f 77 6e 25 29  2a 28 21 79 6d 61 78 25  |lldown%)*(!ymax%|
00000060  2b 31 29 3a f2 4c 3a e1  0d 00 1e 33 dd f2 70 79  |+1):.L:....3..py|
00000070  3a 78 6f 25 3d 30 3a 79  6f 25 3d 30 3a c8 97 6d  |:xo%=0:yo%=0:..m|
00000080  78 25 2c 6d 79 25 2c 62  75 74 25 3a e7 6d 78 25  |x%,my%,but%:.mx%|
00000090  3c 30 8c 78 6f 25 3d 2d  6d 78 25 0d 00 28 1e e7  |<0.xo%=-mx%..(..|
000000a0  6d 78 25 3e 21 78 6d 61  78 25 8c 78 6f 25 3d 21  |mx%>!xmax%.xo%=!|
000000b0  78 6d 61 78 25 2d 6d 78  25 0d 00 32 13 e7 6d 79  |xmax%-mx%..2..my|
000000c0  25 3c 30 8c 79 6f 25 3d  2d 6d 79 25 0d 00 3c 1e  |%<0.yo%=-my%..<.|
000000d0  e7 6d 79 25 3e 21 79 6d  61 78 25 8c 79 6f 25 3d  |.my%>!ymax%.yo%=|
000000e0  21 79 6d 61 78 25 2d 6d  79 25 0d 00 46 21 e7 73  |!ymax%-my%..F!.s|
000000f0  63 72 6f 6c 6c 25 80 28  a6 28 2d 31 29 84 ac 77  |croll%.(.(-1)..w|
00000100  69 74 68 73 68 69 66 74  25 29 8c 0d 00 50 15 e7  |ithshift%)...P..|
00000110  78 6f 25 3c 3e 30 84 79  6f 25 3c 3e 30 8c f2 4c  |xo%<>0.yo%<>0..L|
00000120  0d 00 5a 1a cd 3a c8 97  b8 6d 78 25 2b 78 6f 25  |..Z..:...mx%+xo%|
00000130  2c 6d 79 25 2b 79 6f 25  3a e1 0d 00 64 6d dd f2  |,my%+yo%:...dm..|
00000140  4c 3a 6e 65 78 74 25 3d  a4 4d 28 62 61 63 6b 67  |L:next%=.M(backg|
00000150  25 29 3a c8 95 6e 65 78  74 25 3c 3e 2d 31 80 6e  |%):..next%<>-1.n|
00000160  65 78 74 25 3c 3e 2d 32  80 6e 65 78 74 25 3c 3e  |ext%<>-2.next%<>|
00000170  2d 33 3a f2 64 79 28 6e  65 78 74 25 29 3a 6e 65  |-3:.dy(next%):ne|
00000180  78 74 25 3d a4 4d 28 6e  65 78 74 25 29 3a ce 3a  |xt%=.M(next%):.:|
00000190  6f 66 66 78 25 2b 3d 78  6f 25 3a 6f 66 66 79 25  |offx%+=xo%:offy%|
000001a0  2b 3d 79 6f 25 3a e1 0d  00 6e 41 dd f2 58 4a 3a  |+=yo%:...nA..XJ:|
000001b0  73 63 72 6f 6c 6c 25 3d  ac 73 63 72 6f 6c 6c 25  |scroll%=.scroll%|
000001c0  3a c8 99 6c 61 72 67 65  72 73 75 70 70 77 73 68  |:..largersuppwsh|
000001d0  25 2c 2d 73 63 72 6f 6c  6c 25 2c 2d 77 69 74 68  |%,-scroll%,-with|
000001e0  73 68 69 66 74 25 3a e1  0d 00 78 2c dd f2 71 5f  |shift%:...x,..q_|
000001f0  3a ea 78 6f 25 2c 79 6f  25 3a 78 6f 25 3d 2d 6f  |:.xo%,yo%:xo%=-o|
00000200  66 66 78 25 3a 79 6f 25  3d 2d 6f 66 66 79 25 3a  |ffx%:yo%=-offy%:|
00000210  f2 4c 3a e1 0d 00 82 55  dd f2 69 79 3a 6e 65 78  |.L:....U..iy:nex|
00000220  74 25 3d a4 4d 28 62 61  63 6b 67 25 29 3a c8 95  |t%=.M(backg%):..|
00000230  6e 65 78 74 25 3c 3e 2d  31 3a f2 69 28 6e 65 78  |next%<>-1:.i(nex|
00000240  74 25 2c a3 29 3a 6e 65  78 74 25 3d a4 4d 28 6e  |t%,.):next%=.M(n|
00000250  65 78 74 25 29 3a ce 3a  6f 66 66 78 25 3d 30 3a  |ext%):.:offx%=0:|
00000260  6f 66 66 79 25 3d 30 3a  e1 0d 00 8c 16 dd f2 6b  |offy%=0:.......k|
00000270  79 3a e7 21 6e 6f 61 70  70 73 25 3e 2d 31 8c 0d  |y:.!noapps%>-1..|
00000280  00 96 21 e3 6c 25 3d 21  6e 6f 61 70 70 73 25 b8  |..!.l%=!noapps%.|
00000290  30 88 2d 31 3a c8 8e 74  79 70 65 25 3f 6c 25 ca  |0.-1:..type%?l%.|
000002a0  0d 00 a0 1a c9 35 3a f2  64 28 6c 25 29 3a f2 43  |.....5:.d(l%):.C|
000002b0  28 6c 25 29 3a 6c 25 2d  3d 31 0d 00 aa 1a c9 36  |(l%):l%-=1.....6|
000002c0  3a f2 59 28 6c 25 29 3a  f2 43 28 6c 25 29 3a 6c  |:.Y(l%):.C(l%):l|
000002d0  25 2d 3d 31 0d 00 b4 07  cb 3a ed 0d 00 be 52 cd  |%-=1.....:....R.|
000002e0  3a 6e 65 78 74 25 3d a4  4d 28 62 61 63 6b 67 25  |:next%=.M(backg%|
000002f0  29 3a c8 95 6e 65 78 74  25 3c 3e 2d 31 3a f2 69  |):..next%<>-1:.i|
00000300  28 6e 65 78 74 25 2c b9  29 3a 6e 65 78 74 25 3d  |(next%,.):next%=|
00000310  a4 4d 28 6e 65 78 74 25  29 3a ce 3a 6f 66 66 78  |.M(next%):.:offx|
00000320  25 3d 30 3a 6f 66 66 79  25 3d 30 3a e1 0d 00 c8  |%=0:offy%=0:....|
00000330  23 dd f2 64 79 28 6e 65  78 74 25 29 3a e7 6e 65  |#..dy(next%):.ne|
00000340  78 74 25 3c 3e 6d 61 70  77 69 6e 64 6f 77 25 8c  |xt%<>mapwindow%.|
00000350  0d 00 d2 3a 62 6c 6f 63  6b 25 21 30 3d 6e 65 78  |...:block%!0=nex|
00000360  74 25 3a c8 99 77 69 6d  70 67 77 73 25 2c 2c 62  |t%:..wimpgws%,,b|
00000370  6c 6f 63 6b 25 3a e7 28  62 6c 6f 63 6b 25 21 33  |lock%:.(block%!3|
00000380  32 80 33 32 29 3c 3e 33  32 8c 0d 00 dc 56 62 6c  |2.32)<>32....Vbl|
00000390  6f 63 6b 25 21 34 2b 3d  78 6f 25 3a 62 6c 6f 63  |ock%!4+=xo%:bloc|
000003a0  6b 25 21 38 2b 3d 79 6f  25 3a 62 6c 6f 63 6b 25  |k%!8+=yo%:block%|
000003b0  21 31 32 2b 3d 78 6f 25  3a 62 6c 6f 63 6b 25 21  |!12+=xo%:block%!|
000003c0  31 36 2b 3d 79 6f 25 3a  c8 99 77 69 6d 70 73 6d  |16+=yo%:..wimpsm|
000003d0  25 2c 32 2c 62 6c 6f 63  6b 25 2c 6e 65 78 74 25  |%,2,block%,next%|
000003e0  0d 00 e6 05 cd 0d 00 f0  07 cd 3a e1 0d 00 fa 53  |..........:....S|
000003f0  dd f2 69 28 6e 65 78 74  25 2c 66 6c 61 67 25 29  |..i(next%,flag%)|
00000400  3a ea 79 6d 61 78 32 25  3a 62 6c 6f 63 6b 25 21  |:.ymax2%:block%!|
00000410  30 3d 6e 65 78 74 25 3a  c8 99 77 69 6d 70 67 77  |0=next%:..wimpgw|
00000420  73 25 2c 2c 62 6c 6f 63  6b 25 3a e7 28 62 6c 6f  |s%,,block%:.(blo|
00000430  63 6b 25 21 33 32 80 33  32 29 3c 3e 33 32 8c 0d  |ck%!32.32)<>32..|
00000440  01 04 4b 78 6f 25 3d 30  3a 79 6f 25 3d 30 3a c8  |..Kxo%=0:yo%=0:.|
00000450  99 77 69 6d 70 67 77 6f  25 2c 2c 62 6c 6f 63 6b  |.wimpgwo%,,block|
00000460  25 3a e7 62 6c 6f 63 6b  25 21 31 32 3e 21 78 6d  |%:.block%!12>!xm|
00000470  61 78 25 8c 78 6f 25 3d  21 78 6d 61 78 25 2d 62  |ax%.xo%=!xmax%-b|
00000480  6c 6f 63 6b 25 21 31 32  2b 31 0d 01 0e 23 e7 28  |lock%!12+1...#.(|
00000490  62 6c 6f 63 6b 25 21 34  2b 78 6f 25 29 3c 30 8c  |block%!4+xo%)<0.|
000004a0  78 6f 25 3d 2d 62 6c 6f  63 6b 25 21 34 0d 01 18  |xo%=-block%!4...|
000004b0  2c e7 62 6c 6f 63 6b 25  21 31 36 3e 21 79 6d 61  |,.block%!16>!yma|
000004c0  78 25 8c 79 6f 25 3d 21  79 6d 61 78 25 2d 62 6c  |x%.yo%=!ymax%-bl|
000004d0  6f 63 6b 25 21 31 36 2b  31 0d 01 22 23 e7 28 62  |ock%!16+1.."#.(b|
000004e0  6c 6f 63 6b 25 21 38 2b  79 6f 25 29 3c 30 8c 79  |lock%!8+yo%)<0.y|
000004f0  6f 25 3d 2d 62 6c 6f 63  6b 25 21 38 0d 01 2c 69  |o%=-block%!8..,i|
00000500  c8 99 77 69 6d 70 67 77  73 25 2c 2c 62 6c 6f 63  |..wimpgws%,,bloc|
00000510  6b 25 3a 62 6c 6f 63 6b  25 21 34 2b 3d 78 6f 25  |k%:block%!4+=xo%|
00000520  3a 62 6c 6f 63 6b 25 21  38 2b 3d 79 6f 25 3a 62  |:block%!8+=yo%:b|
00000530  6c 6f 63 6b 25 21 31 32  2b 3d 78 6f 25 3a 62 6c  |lock%!12+=xo%:bl|
00000540  6f 63 6b 25 21 31 36 2b  3d 79 6f 25 3a c8 99 77  |ock%!16+=yo%:..w|
00000550  69 6d 70 73 6d 25 2c 32  2c 62 6c 6f 63 6b 25 2c  |impsm%,2,block%,|
00000560  6e 65 78 74 25 0d 01 36  07 cd 3a e1 0d 01 40 64  |next%..6..:...@d|
00000570  dd f2 61 5f 3a ea 41 24  2c 5a 24 2c 66 6c 61 67  |..a_:.A$,Z$,flag|
00000580  25 2c 6c 25 3a 62 6c 6f  63 6b 25 21 31 32 3d 62  |%,l%:block%!12=b|
00000590  6c 6f 63 6b 25 21 38 3a  62 6c 6f 63 6b 25 21 31  |lock%!8:block%!1|
000005a0  36 3d 34 3a c8 99 77 69  6d 70 73 6d 25 2c 31 37  |6=4:..wimpsm%,17|
000005b0  2c 62 6c 6f 63 6b 25 2c  62 6c 6f 63 6b 25 21 34  |,block%,block%!4|
000005c0  3a e7 73 61 76 69 6e 67  6f 6e 74 6f 25 3d a3 8c  |:.savingonto%=..|
000005d0  0d 01 4a 53 41 24 3d a4  41 28 62 6c 6f 63 6b 25  |..JSA$=.A(block%|
000005e0  2b 34 34 29 3a 5a 24 3d  41 24 3a c8 95 a7 5a 24  |+44):Z$=A$:...Z$|
000005f0  2c 22 2e 22 29 3e 30 3a  5a 24 3d c1 5a 24 2c a7  |,".")>0:Z$=.Z$,.|
00000600  5a 24 2c 22 2e 22 29 2b  31 29 3a ce 3a 66 6c 61  |Z$,".")+1):.:fla|
00000610  67 25 3d 2d 31 3a e7 21  6e 6f 61 70 70 73 25 3e  |g%=-1:.!noapps%>|
00000620  2d 31 8c 0d 01 54 26 e3  6c 25 3d 30 b8 21 6e 6f  |-1...T&.l%=0.!no|
00000630  61 70 70 73 25 3a e7 41  24 28 6c 25 29 3d 41 24  |apps%:.A$(l%)=A$|
00000640  8c 66 6c 61 67 25 3d 6c  25 0d 01 5e 05 ed 0d 01  |.flag%=l%..^....|
00000650  68 1a cd 3a e7 66 6c 61  67 25 3c 3e 2d 31 8c f2  |h..:.flag%<>-1..|
00000660  43 28 66 6c 61 67 25 29  0d 01 72 19 f2 44 28 62  |C(flag%)..r..D(b|
00000670  6c 6f 63 6b 25 21 34 30  2c 41 24 2c 5a 24 2c b9  |lock%!40,A$,Z$,.|
00000680  29 0d 01 7c 15 cd 3a 73  61 76 69 6e 67 6f 6e 74  |)..|..:savingont|
00000690  6f 25 3d a3 3a e1 0d 01  86 4f dd f2 50 5f 3a ea  |o%=.:....O..P_:.|
000006a0  41 24 2c 5a 24 2c 57 24  2c 78 25 2c 79 25 2c 66  |A$,Z$,W$,x%,y%,f|
000006b0  69 6c 65 74 79 70 65 25  2c 66 6c 61 67 25 2c 6c  |iletype%,flag%,l|
000006c0  25 2c 6f 6e 74 6f 25 2c  6d 6f 76 65 63 6f 70 79  |%,onto%,movecopy|
000006d0  25 2c 63 6f 75 6e 74 25  3a c8 8e 62 6c 6f 63 6b  |%,count%:..block|
000006e0  25 21 32 30 ca 0d 01 90  21 c9 62 61 63 6b 67 25  |%!20....!.backg%|
000006f0  3a 63 6f 75 6e 74 25 3d  30 3a e7 21 6e 6f 61 70  |:count%=0:.!noap|
00000700  70 73 25 3e 30 8c 0d 01  9a 2d e3 6c 25 3d 30 b8  |ps%>0....-.l%=0.|
00000710  21 6e 6f 61 70 70 73 25  3a e7 62 61 63 6b 64 72  |!noapps%:.backdr|
00000720  6f 70 25 3f 6c 25 3d 21  41 8c 63 6f 75 6e 74 25  |op%?l%=!A.count%|
00000730  2b 3d 31 0d 01 a4 05 ed  0d 01 ae 29 cd 3a e7 21  |+=1........).:.!|
00000740  6e 6f 61 70 70 73 25 3c  32 35 35 80 63 6f 75 6e  |noapps%<255.coun|
00000750  74 25 3c 21 78 77 69 64  25 2a 21 79 77 69 64 25  |t%<!xwid%*!ywid%|
00000760  8c 0d 01 b8 2b 41 24 3d  a4 41 28 62 6c 6f 63 6b  |....+A$=.A(block|
00000770  25 2b 34 34 29 3a 6f 6e  74 6f 25 3d 2d 31 3a e7  |%+44):onto%=-1:.|
00000780  21 6e 6f 61 70 70 73 25  3e 2d 31 8c 0d 01 c2 cf  |!noapps%>-1.....|
00000790  e3 6c 25 3d 30 b8 21 6e  6f 61 70 70 73 25 3a 67  |.l%=0.!noapps%:g|
000007a0  78 25 3d 62 6c 6f 63 6b  25 21 32 38 3a 67 79 25  |x%=block%!28:gy%|
000007b0  3d 62 6c 6f 63 6b 25 21  33 32 3a 67 78 25 3d 28  |=block%!32:gx%=(|
000007c0  67 78 25 2d 21 78 70 69  78 25 29 2a 21 78 64 69  |gx%-!xpix%)*!xdi|
000007d0  76 25 81 21 78 6d 75 6c  74 25 81 21 78 70 69 78  |v%.!xmult%.!xpix|
000007e0  25 81 38 30 3a 67 79 25  3d 28 67 79 25 2d 21 79  |%.80:gy%=(gy%-!y|
000007f0  70 69 78 25 2d 21 62 61  72 68 65 69 67 68 74 25  |pix%-!barheight%|
00000800  29 2a 21 79 64 69 76 25  81 21 79 6d 75 6c 74 25  |)*!ydiv%.!ymult%|
00000810  81 21 79 70 69 78 25 81  33 32 3a e3 6c 25 3d 30  |.!ypix%.32:.l%=0|
00000820  b8 21 6e 6f 61 70 70 73  25 3a e7 78 79 30 25 3f  |.!noapps%:.xy0%?|
00000830  6c 25 3d 67 78 25 80 78  79 31 25 3f 6c 25 3d 67  |l%=gx%.xy1%?l%=g|
00000840  79 25 80 62 61 63 6b 64  72 6f 70 25 3f 6c 25 3d  |y%.backdrop%?l%=|
00000850  21 41 8c 6f 6e 74 6f 25  3d 6c 25 0d 01 cc 07 ed  |!A.onto%=l%.....|
00000860  3a ed 0d 01 d6 11 cd 3a  e7 6f 6e 74 6f 25 3c 3e  |:......:.onto%<>|
00000870  2d 31 8c 0d 01 e0 20 e7  64 72 61 67 6f 6e 74 6f  |-1.... .dragonto|
00000880  25 3f 6f 6e 74 6f 25 3c  3e 31 8c 6f 6e 74 6f 25  |%?onto%<>1.onto%|
00000890  3d 2d 31 0d 01 ea 11 cd  3a e7 6f 6e 74 6f 25 3c  |=-1.....:.onto%<|
000008a0  3e 2d 31 8c 0d 01 f4 13  e7 74 79 70 65 25 3f 6f  |>-1......type%?o|
000008b0  6e 74 6f 25 3d 32 8c 0d  01 fe 73 5a 24 3d a4 41  |nto%=2....sZ$=.A|
000008c0  28 62 6c 6f 63 6b 25 2b  34 34 29 3a 53 24 3d a4  |(block%+44):S$=.|
000008d0  46 28 5a 24 29 3a c8 99  26 34 30 30 64 65 2c 22  |F(Z$):..&400de,"|
000008e0  46 69 6c 65 72 5f 41 63  74 69 6f 6e 22 b8 74 61  |Filer_Action".ta|
000008f0  73 6b 68 25 3a c8 99 26  34 30 66 38 30 2c 74 61  |skh%:..&40f80,ta|
00000900  73 6b 68 25 2c 53 24 3a  c8 99 26 34 30 66 38 31  |skh%,S$:..&40f81|
00000910  2c 74 61 73 6b 68 25 2c  c1 5a 24 2c a9 53 24 2b  |,taskh%,.Z$,.S$+|
00000920  32 29 3a e7 a6 28 2d 31  29 8c 0d 02 08 0f 6d 6f  |2):..(-1).....mo|
00000930  76 65 63 6f 70 79 25 3d  36 0d 02 12 11 cc 3a 6d  |vecopy%=6.....:m|
00000940  6f 76 65 63 6f 70 79 25  3d 30 0d 02 1c 74 cd 3a  |ovecopy%=0...t.:|
00000950  c8 99 26 34 30 66 38 32  2c 74 61 73 6b 68 25 2c  |..&40f82,taskh%,|
00000960  6d 6f 76 65 63 6f 70 79  25 2c 66 69 6c 65 72 6f  |movecopy%,filero|
00000970  70 74 69 6f 6e 73 25 2c  41 24 28 6f 6e 74 6f 25  |ptions%,A$(onto%|
00000980  29 2c a9 41 24 28 6f 6e  74 6f 25 29 2b 31 3a 62  |),.A$(onto%)+1:b|
00000990  6c 6f 63 6b 25 21 31 32  3d 62 6c 6f 63 6b 25 21  |lock%!12=block%!|
000009a0  38 3a c8 99 77 69 6d 70  73 6d 25 2c 31 37 2c 62  |8:..wimpsm%,17,b|
000009b0  6c 6f 63 6b 25 2c 62 6c  6f 63 6b 25 21 34 0d 02  |lock%,block%!4..|
000009c0  26 12 cc 3a f2 54 28 6f  6e 74 6f 25 2c 41 24 29  |&..:.T(onto%,A$)|
000009d0  0d 02 30 05 cd 0d 02 3a  44 cc 3a 5a 24 3d 41 24  |..0....:D.:Z$=A$|
000009e0  3a c8 95 a7 5a 24 2c 22  2e 22 29 3e 30 3a 5a 24  |:...Z$,".")>0:Z$|
000009f0  3d c1 5a 24 2c a7 5a 24  2c 22 2e 22 29 2b 31 29  |=.Z$,.Z$,".")+1)|
00000a00  3a ce 3a 66 6c 61 67 25  3d 2d 31 3a e7 21 6e 6f  |:.:flag%=-1:.!no|
00000a10  61 70 70 73 25 3e 2d 31  8c 0d 02 44 36 e3 6c 25  |apps%>-1...D6.l%|
00000a20  3d 30 b8 21 6e 6f 61 70  70 73 25 3a e7 41 24 28  |=0.!noapps%:.A$(|
00000a30  6c 25 29 3d 41 24 80 62  61 63 6b 64 72 6f 70 25  |l%)=A$.backdrop%|
00000a40  3f 6c 25 3d 21 41 8c 66  6c 61 67 25 3d 6c 25 0d  |?l%=!A.flag%=l%.|
00000a50  02 4e 05 ed 0d 02 58 1a  cd 3a e7 66 6c 61 67 25  |.N....X..:.flag%|
00000a60  3c 3e 2d 31 8c f2 43 28  66 6c 61 67 25 29 0d 02  |<>-1..C(flag%)..|
00000a70  62 19 f2 44 28 62 6c 6f  63 6b 25 21 34 30 2c 41  |b..D(block%!40,A|
00000a80  24 2c 5a 24 2c b9 29 0d  02 6c 05 cd 0d 02 76 05  |$,Z$,.)..l....v.|
00000a90  cd 0d 02 80 2b c9 63 6f  6e 66 69 67 32 25 3a e7  |....+.config2%:.|
00000aa0  62 6c 6f 63 6b 25 21 32  34 3d 35 32 80 62 6c 6f  |block%!24=52.blo|
00000ab0  63 6b 25 21 34 30 3d 34  30 38 39 8c 0d 02 8a 1b  |ck%!40=4089.....|
00000ac0  53 24 3d a4 41 28 62 6c  6f 63 6b 25 2b 34 34 29  |S$=.A(block%+44)|
00000ad0  3a f2 67 28 53 24 29 0d  02 94 05 cd 0d 02 9e 07  |:.g(S$).........|
00000ae0  cb 3a e1 0d 02 a8 d7 dd  f2 55 79 28 62 75 74 25  |.:.......Uy(but%|
00000af0  29 3a ea 6c 25 2c 68 78  25 2c 68 79 25 2c 6d 69  |):.l%,hx%,hy%,mi|
00000b00  6e 78 25 2c 6d 61 78 78  25 2c 6d 69 6e 79 25 2c  |nx%,maxx%,miny%,|
00000b10  6d 61 78 79 25 2c 6d 78  25 2c 6d 79 25 2c 6f 6e  |maxy%,mx%,my%,on|
00000b20  69 63 6f 6e 25 2c 6d 75  6c 74 69 70 6c 65 25 2c  |icon%,multiple%,|
00000b30  66 6f 75 6e 64 25 3a 6d  78 25 3d 21 62 6c 6f 63  |found%:mx%=!bloc|
00000b40  6b 25 3a 6d 79 25 3d 62  6c 6f 63 6b 25 21 34 3a  |k%:my%=block%!4:|
00000b50  64 72 61 67 25 3d 2d 31  3a 68 78 25 3d 6d 78 25  |drag%=-1:hx%=mx%|
00000b60  81 28 21 78 70 69 78 25  2a 38 30 2a 21 78 6d 75  |.(!xpix%*80*!xmu|
00000b70  6c 74 25 2f 21 78 64 69  76 25 29 3a 68 79 25 3d  |lt%/!xdiv%):hy%=|
00000b80  28 6d 79 25 2d 21 62 61  72 68 65 69 67 68 74 25  |(my%-!barheight%|
00000b90  29 81 28 21 79 70 69 78  25 2a 33 32 2a 21 79 6d  |).(!ypix%*32*!ym|
00000ba0  75 6c 74 25 2f 21 79 64  69 76 25 29 3a e7 21 6e  |ult%/!ydiv%):.!n|
00000bb0  6f 61 70 70 73 25 3e 2d  31 8c 0d 02 b2 44 e3 6c  |oapps%>-1....D.l|
00000bc0  25 3d 30 b8 21 6e 6f 61  70 70 73 25 3a e7 78 79  |%=0.!noapps%:.xy|
00000bd0  30 25 3f 6c 25 3d 68 78  25 80 78 79 31 25 3f 6c  |0%?l%=hx%.xy1%?l|
00000be0  25 3d 68 79 25 80 62 61  63 6b 64 72 6f 70 25 3f  |%=hy%.backdrop%?|
00000bf0  6c 25 3d 21 41 8c 64 72  61 67 25 3d 6c 25 0d 02  |l%=!A.drag%=l%..|
00000c00  bc 05 ed 0d 02 c6 2d cd  3a 6f 6e 69 63 6f 6e 25  |......-.:onicon%|
00000c10  3d a4 4f 28 6d 78 25 2c  6d 79 25 29 3a e7 ac 6f  |=.O(mx%,my%):..o|
00000c20  6e 69 63 6f 6e 25 84 64  72 61 67 25 3d 2d 31 8c  |nicon%.drag%=-1.|
00000c30  0d 02 d0 0d e7 62 75 74  25 3d 36 34 8c 0d 02 da  |.....but%=64....|
00000c40  11 e7 21 6e 6f 61 70 70  73 25 3c 3e 30 8c 0d 02  |..!noapps%<>0...|
00000c50  e4 2b e3 6c 25 3d 30 b8  21 6e 6f 61 70 70 73 25  |.+.l%=0.!noapps%|
00000c60  3a e7 6c 25 3c 3e 64 72  61 67 25 80 73 65 6c 65  |:.l%<>drag%.sele|
00000c70  63 74 25 3f 6c 25 3d 31  8c 0d 02 ee 24 73 65 6c  |ct%?l%=1....$sel|
00000c80  65 63 74 25 3f 6c 25 3d  30 3a f2 53 28 78 79 30  |ect%?l%=0:.S(xy0|
00000c90  25 3f 6c 25 2c 78 79 31  25 3f 6c 25 29 0d 02 f8  |%?l%,xy1%?l%)...|
00000ca0  07 cd 3a ed 0d 03 02 05  cd 0d 03 0c be cd 3a 62  |..:...........:b|
00000cb0  6c 6f 63 6b 25 21 38 3d  6d 78 25 3a 62 6c 6f 63  |lock%!8=mx%:bloc|
00000cc0  6b 25 21 31 32 3d 6d 79  25 3a 62 6c 6f 63 6b 25  |k%!12=my%:block%|
00000cd0  21 31 36 3d 6d 78 25 3a  62 6c 6f 63 6b 25 21 32  |!16=mx%:block%!2|
00000ce0  30 3d 6d 79 25 3a 62 6c  6f 63 6b 25 21 32 34 3d  |0=my%:block%!24=|
00000cf0  30 3a 62 6c 6f 63 6b 25  21 32 38 3d 21 62 61 72  |0:block%!28=!bar|
00000d00  68 65 69 67 68 74 25 2b  34 3a 62 6c 6f 63 6b 25  |height%+4:block%|
00000d10  21 33 32 3d 21 78 6d 61  78 25 3a 62 6c 6f 63 6b  |!32=!xmax%:block|
00000d20  25 21 33 36 3d 21 79 6d  61 78 25 3a 62 6c 6f 63  |%!36=!ymax%:bloc|
00000d30  6b 25 21 30 3d 62 61 63  6b 67 25 3a 62 6c 6f 63  |k%!0=backg%:bloc|
00000d40  6b 25 21 34 3d 36 3a c8  99 77 69 6d 70 64 72 61  |k%!4=6:..wimpdra|
00000d50  67 62 6f 78 25 2c 2c 62  6c 6f 63 6b 25 3a e7 62  |gbox%,,block%:.b|
00000d60  75 74 25 3d 36 34 8c 0d  03 16 0f 64 72 61 67 74  |ut%=64.....dragt|
00000d70  79 70 65 25 3d 31 0d 03  20 1d cc 3a 64 72 61 67  |ype%=1.. ..:drag|
00000d80  74 79 70 65 25 3d 30 3a  e7 64 72 61 67 25 3c 3e  |type%=0:.drag%<>|
00000d90  2d 31 8c 0d 03 2a 3b 73  65 6c 65 63 74 25 3f 64  |-1...*;select%?d|
00000da0  72 61 67 25 3d 31 2d 73  65 6c 65 63 74 25 3f 64  |rag%=1-select%?d|
00000db0  72 61 67 25 3a f2 53 28  78 79 30 25 3f 64 72 61  |rag%:.S(xy0%?dra|
00000dc0  67 25 2c 78 79 31 25 3f  64 72 61 67 25 29 0d 03  |g%,xy1%?drag%)..|
00000dd0  34 05 cd 0d 03 3e 05 cd  0d 03 48 2e cc 3a 6d 75  |4....>....H..:mu|
00000de0  6c 74 69 70 6c 65 25 3d  a3 3a 66 6f 75 6e 64 25  |ltiple%=.:found%|
00000df0  3d a3 3a e7 64 72 61 67  25 3c 3e 2d 31 80 6f 6e  |=.:.drag%<>-1.on|
00000e00  69 63 6f 6e 25 8c 0d 03  52 5b 6d 69 6e 78 25 3d  |icon%...R[minx%=|
00000e10  78 79 30 25 3f 64 72 61  67 25 3a 6d 61 78 78 25  |xy0%?drag%:maxx%|
00000e20  3d 6d 69 6e 78 25 3a 6d  69 6e 79 25 3d 78 79 31  |=minx%:miny%=xy1|
00000e30  25 3f 64 72 61 67 25 3a  6d 61 78 79 25 3d 6d 69  |%?drag%:maxy%=mi|
00000e40  6e 79 25 3a e3 6c 25 3d  30 b8 21 6e 6f 61 70 70  |ny%:.l%=0.!noapp|
00000e50  73 25 3a e7 73 65 6c 65  63 74 25 3f 6c 25 3d 31  |s%:.select%?l%=1|
00000e60  8c 0d 03 5c 19 e7 66 6f  75 6e 64 25 3d b9 8c 6d  |...\..found%=..m|
00000e70  75 6c 74 69 70 6c 65 25  3d b9 0d 03 66 6c 66 6f  |ultiple%=...flfo|
00000e80  75 6e 64 25 3d b9 3a 6d  69 6e 78 25 3d a4 51 28  |und%=.:minx%=.Q(|
00000e90  6d 69 6e 78 25 2c 78 79  30 25 3f 6c 25 29 3a 6d  |minx%,xy0%?l%):m|
00000ea0  61 78 78 25 3d a4 42 28  6d 61 78 78 25 2c 78 79  |axx%=.B(maxx%,xy|
00000eb0  30 25 3f 6c 25 29 3a 6d  69 6e 79 25 3d a4 51 28  |0%?l%):miny%=.Q(|
00000ec0  6d 69 6e 79 25 2c 78 79  31 25 3f 6c 25 29 3a 6d  |miny%,xy1%?l%):m|
00000ed0  61 78 79 25 3d a4 42 28  6d 61 78 79 25 2c 78 79  |axy%=.B(maxy%,xy|
00000ee0  31 25 3f 6c 25 29 0d 03  70 16 cd 3a ed 3a e7 64  |1%?l%)..p..:.:.d|
00000ef0  72 61 67 61 73 70 72 69  74 65 25 8c 0d 03 7a aa  |ragasprite%...z.|
00000f00  62 6c 6f 63 6b 25 21 38  3d 6d 78 25 2d 31 37 2a  |block%!8=mx%-17*|
00000f10  21 78 70 69 78 25 2a 21  78 6d 75 6c 74 25 2f 21  |!xpix%*!xmult%/!|
00000f20  78 64 69 76 25 3a 62 6c  6f 63 6b 25 21 31 32 3d  |xdiv%:block%!12=|
00000f30  6d 79 25 2d 31 37 2a 21  79 70 69 78 25 2a 21 79  |my%-17*!ypix%*!y|
00000f40  6d 75 6c 74 25 2f 21 79  64 69 76 25 3a 62 6c 6f  |mult%/!ydiv%:blo|
00000f50  63 6b 25 21 31 36 3d 6d  78 25 2b 31 37 2a 21 78  |ck%!16=mx%+17*!x|
00000f60  70 69 78 25 2a 21 78 6d  75 6c 74 25 2f 21 78 64  |pix%*!xmult%/!xd|
00000f70  69 76 25 3a 62 6c 6f 63  6b 25 21 32 30 3d 6d 79  |iv%:block%!20=my|
00000f80  25 2b 31 37 2a 21 79 70  69 78 25 2a 21 79 6d 75  |%+17*!ypix%*!ymu|
00000f90  6c 74 25 2f 21 79 64 69  76 25 3a e7 6d 75 6c 74  |lt%/!ydiv%:.mult|
00000fa0  69 70 6c 65 25 8c 0d 03  84 26 c8 99 26 34 32 34  |iple%....&..&424|
00000fb0  30 30 2c 31 39 37 2c 31  2c 22 4d 75 6c 74 69 70  |00,197,1,"Multip|
00000fc0  6c 65 22 2c 62 6c 6f 63  6b 25 2b 38 0d 03 8e 20  |le",block%+8... |
00000fd0  cc 3a e7 a4 50 28 a4 41  28 73 70 72 69 74 65 25  |.:..P(.A(sprite%|
00000fe0  2b 31 32 2a 64 72 61 67  25 29 29 8c 0d 03 98 30  |+12*drag%))....0|
00000ff0  c8 99 26 34 32 34 30 30  2c 31 39 37 2c 31 2c a4  |..&42400,197,1,.|
00001000  41 28 73 70 72 69 74 65  25 2b 31 32 2a 64 72 61  |A(sprite%+12*dra|
00001010  67 25 29 2c 62 6c 6f 63  6b 25 2b 38 0d 03 a2 15  |g%),block%+8....|
00001020  cc 3a e7 74 79 70 65 25  3f 64 72 61 67 25 3d 31  |.:.type%?drag%=1|
00001030  8c 0d 03 ac 26 c8 99 26  34 32 34 30 30 2c 31 39  |....&..&42400,19|
00001040  37 2c 31 2c 22 66 69 6c  65 5f 78 78 78 22 2c 62  |7,1,"file_xxx",b|
00001050  6c 6f 63 6b 25 2b 38 0d  03 b6 2b cc 3a c8 99 26  |lock%+8...+.:..&|
00001060  34 32 34 30 30 2c 31 39  37 2c 31 2c 22 61 70 70  |42400,197,1,"app|
00001070  6c 69 63 61 74 69 6f 6e  22 2c 62 6c 6f 63 6b 25  |lication",block%|
00001080  2b 38 0d 03 c0 05 cd 0d  03 ca 05 cd 0d 03 d4 05  |+8..............|
00001090  cd 0d 03 de f0 cc 3a 62  6c 6f 63 6b 25 21 38 3d  |......:block%!8=|
000010a0  6d 69 6e 78 25 2a 38 30  2a 21 78 70 69 78 25 2a  |minx%*80*!xpix%*|
000010b0  21 78 6d 75 6c 74 25 2f  21 78 64 69 76 25 3a 62  |!xmult%/!xdiv%:b|
000010c0  6c 6f 63 6b 25 21 31 32  3d 28 28 6d 69 6e 79 25  |lock%!12=((miny%|
000010d0  2a 33 32 29 2b 31 29 2a  21 79 70 69 78 25 2a 21  |*32)+1)*!ypix%*!|
000010e0  79 6d 75 6c 74 25 2f 21  79 64 69 76 25 2b 21 62  |ymult%/!ydiv%+!b|
000010f0  61 72 68 65 69 67 68 74  25 3a 62 6c 6f 63 6b 25  |arheight%:block%|
00001100  21 31 36 3d 28 6d 61 78  78 25 2b 31 29 2a 38 30  |!16=(maxx%+1)*80|
00001110  2a 21 78 70 69 78 25 2a  21 78 6d 75 6c 74 25 2f  |*!xpix%*!xmult%/|
00001120  21 78 64 69 76 25 3a 62  6c 6f 63 6b 25 21 32 30  |!xdiv%:block%!20|
00001130  3d 28 28 6d 61 78 79 25  2b 31 29 2a 33 32 2b 31  |=((maxy%+1)*32+1|
00001140  29 2a 21 79 70 69 78 25  2a 21 79 6d 75 6c 74 25  |)*!ypix%*!ymult%|
00001150  2f 21 79 64 69 76 25 2b  21 62 61 72 68 65 69 67  |/!ydiv%+!barheig|
00001160  68 74 25 3a 62 6c 6f 63  6b 25 21 32 34 3d 2d 6d  |ht%:block%!24=-m|
00001170  78 25 3a 62 6c 6f 63 6b  25 21 32 38 3d 2d 6d 79  |x%:block%!28=-my|
00001180  25 0d 03 e8 5f 62 6c 6f  63 6b 25 21 33 32 3d 21  |%..._block%!32=!|
00001190  78 6d 61 78 25 2b 6d 78  25 3a 62 6c 6f 63 6b 25  |xmax%+mx%:block%|
000011a0  21 33 36 3d 21 79 6d 61  78 25 2b 6d 79 25 3a 62  |!36=!ymax%+my%:b|
000011b0  6c 6f 63 6b 25 21 30 3d  62 61 63 6b 67 25 3a 62  |lock%!0=backg%:b|
000011c0  6c 6f 63 6b 25 21 34 3d  35 3a c8 99 77 69 6d 70  |lock%!4=5:..wimp|
000011d0  64 72 61 67 62 6f 78 25  2c 2c 62 6c 6f 63 6b 25  |dragbox%,,block%|
000011e0  0d 03 f2 11 cd 3a 64 72  61 67 74 79 70 65 25 3d  |.....:dragtype%=|
000011f0  35 0d 03 fc 05 cd 0d 04  06 07 cd 3a e1 0d 04 10  |5..........:....|
00001200  f9 dd f2 70 5f 3a ea 5a  24 2c 58 24 2c 42 24 2c  |...p_:.Z$,X$,B$,|
00001210  78 25 2c 79 25 2c 66 69  6c 65 74 79 70 65 25 2c  |x%,y%,filetype%,|
00001220  6e 78 25 2c 6e 79 25 2c  66 6f 75 6e 64 25 2c 6c  |nx%,ny%,found%,l|
00001230  25 2c 6d 78 25 2c 6d 79  25 2c 77 68 61 6e 64 6c  |%,mx%,my%,whandl|
00001240  65 25 2c 69 68 61 6e 64  6c 65 25 2c 74 79 70 65  |e%,ihandle%,type|
00001250  32 25 2c 6c 6f 61 64 25  2c 65 78 65 63 25 2c 6c  |2%,load%,exec%,l|
00001260  65 6e 25 2c 61 74 74 72  25 2c 64 72 61 67 6f 6e  |en%,attr%,dragon|
00001270  25 2c 68 65 6c 70 74 65  6d 70 25 2c 75 24 2c 62  |%,helptemp%,u$,b|
00001280  24 2c 64 69 66 66 74 79  70 65 25 2c 6e 6f 67 72  |$,difftype%,nogr|
00001290  61 76 25 3a c8 99 77 69  6d 70 67 65 74 70 6f 69  |av%:..wimpgetpoi|
000012a0  6e 74 65 72 69 6e 66 6f  25 2c 2c 62 6c 6f 63 6b  |nterinfo%,,block|
000012b0  25 2b 32 30 3a 6d 78 25  3d 62 6c 6f 63 6b 25 21  |%+20:mx%=block%!|
000012c0  32 30 3a 6d 79 25 3d 62  6c 6f 63 6b 25 21 32 34  |20:my%=block%!24|
000012d0  3a 77 68 61 6e 64 6c 65  25 3d 62 6c 6f 63 6b 25  |:whandle%=block%|
000012e0  21 33 32 3a 69 68 61 6e  64 6c 65 25 3d 62 6c 6f  |!32:ihandle%=blo|
000012f0  63 6b 25 21 33 36 0d 04  1a 1a e7 64 72 61 67 61  |ck%!36.....draga|
00001300  73 70 72 69 74 65 25 8c  c8 99 26 34 32 34 30 31  |sprite%...&42401|
00001310  0d 04 24 10 c8 8e 64 72  61 67 74 79 70 65 25 ca  |..$...dragtype%.|
00001320  0d 04 2e 0b c9 35 3a c8  8e b9 ca 0d 04 38 b4 c9  |.....5:......8..|
00001330  77 68 61 6e 64 6c 65 25  3d 62 61 63 6b 67 25 3a  |whandle%=backg%:|
00001340  6e 78 25 3d 6d 78 25 81  28 21 78 70 69 78 25 2a  |nx%=mx%.(!xpix%*|
00001350  38 30 2a 21 78 6d 75 6c  74 25 2f 21 78 64 69 76  |80*!xmult%/!xdiv|
00001360  25 29 3a 6e 79 25 3d 28  6d 79 25 2d 21 62 61 72  |%):ny%=(my%-!bar|
00001370  68 65 69 67 68 74 25 29  81 28 21 79 70 69 78 25  |height%).(!ypix%|
00001380  2a 33 32 2a 21 79 6d 75  6c 74 25 2f 21 79 64 69  |*32*!ymult%/!ydi|
00001390  76 25 29 3a 66 6f 75 6e  64 25 3d 2d 31 3a e3 6c  |v%):found%=-1:.l|
000013a0  25 3d 30 b8 21 6e 6f 61  70 70 73 25 3a e7 78 79  |%=0.!noapps%:.xy|
000013b0  30 25 3f 6c 25 3d 6e 78  25 80 78 79 31 25 3f 6c  |0%?l%=nx%.xy1%?l|
000013c0  25 3d 6e 79 25 80 62 61  63 6b 64 72 6f 70 25 3f  |%=ny%.backdrop%?|
000013d0  6c 25 3d 21 41 8c 66 6f  75 6e 64 25 3d 6c 25 0d  |l%=!A.found%=l%.|
000013e0  04 42 11 ed 3a e7 66 6f  75 6e 64 25 3d 2d 31 8c  |.B..:.found%=-1.|
000013f0  0d 04 4c f5 5a 24 3d a4  41 28 6c 65 61 66 25 2b  |..L.Z$=.A(leaf%+|
00001400  31 32 2a 64 72 61 67 25  29 3a 58 24 3d a4 41 28  |12*drag%):X$=.A(|
00001410  73 70 72 69 74 65 25 2b  31 32 2a 64 72 61 67 25  |sprite%+12*drag%|
00001420  29 3a 42 24 3d 41 24 28  64 72 61 67 25 29 3a 66  |):B$=A$(drag%):f|
00001430  69 6c 65 74 79 70 65 25  3d 74 79 70 65 25 3f 64  |iletype%=type%?d|
00001440  72 61 67 25 3a 64 72 61  67 6f 6e 25 3d 64 72 61  |rag%:dragon%=dra|
00001450  67 6f 6e 74 6f 25 3f 64  72 61 67 25 3a 6b 65 79  |gonto%?drag%:key|
00001460  25 3d 68 6f 74 6b 65 79  73 25 21 28 64 72 61 67  |%=hotkeys%!(drag|
00001470  25 2a 34 29 3a 68 65 6c  70 74 65 6d 70 25 3d 41  |%*4):helptemp%=A|
00001480  25 28 64 72 61 67 25 29  3a 62 61 63 6b 64 72 6f  |%(drag%):backdro|
00001490  70 74 65 6d 70 25 3d 62  61 63 6b 64 72 6f 70 25  |ptemp%=backdrop%|
000014a0  3f 64 72 61 67 25 3a 62  24 3d 4d 24 28 64 72 61  |?drag%:b$=M$(dra|
000014b0  67 25 29 3a 75 24 3d 5a  24 28 64 72 61 67 25 29  |g%):u$=Z$(drag%)|
000014c0  3a 41 24 28 64 72 61 67  25 29 3d 22 22 3a 74 79  |:A$(drag%)="":ty|
000014d0  70 65 25 3f 64 72 61 67  25 3d 31 3a f2 43 28 64  |pe%?drag%=1:.C(d|
000014e0  72 61 67 25 29 0d 04 56  f9 21 6e 6f 61 70 70 73  |rag%)..V.!noapps|
000014f0  25 2b 3d 31 3a f2 5a 28  5a 24 2c 6c 65 61 66 25  |%+=1:.Z(Z$,leaf%|
00001500  2b 31 32 2a 21 6e 6f 61  70 70 73 25 29 3a f2 5a  |+12*!noapps%):.Z|
00001510  28 58 24 2c 73 70 72 69  74 65 25 2b 31 32 2a 21  |(X$,sprite%+12*!|
00001520  6e 6f 61 70 70 73 25 29  3a 5a 24 28 21 6e 6f 61  |noapps%):Z$(!noa|
00001530  70 70 73 25 29 3d 75 24  3a 4d 24 28 21 6e 6f 61  |pps%)=u$:M$(!noa|
00001540  70 70 73 25 29 3d 62 24  3a 41 24 28 21 6e 6f 61  |pps%)=b$:A$(!noa|
00001550  70 70 73 25 29 3d 42 24  3a 78 79 30 25 3f 28 21  |pps%)=B$:xy0%?(!|
00001560  6e 6f 61 70 70 73 25 29  3d 6e 78 25 3a 78 79 31  |noapps%)=nx%:xy1|
00001570  25 3f 28 21 6e 6f 61 70  70 73 25 29 3d 6e 79 25  |%?(!noapps%)=ny%|
00001580  3a 69 78 79 30 25 3f 28  21 6e 6f 61 70 70 73 25  |:ixy0%?(!noapps%|
00001590  29 3d 6e 78 25 3a 69 78  79 31 25 3f 28 21 6e 6f  |)=nx%:ixy1%?(!no|
000015a0  61 70 70 73 25 29 3d 6e  79 25 3a 64 72 61 67 6f  |apps%)=ny%:drago|
000015b0  6e 74 6f 25 3f 21 6e 6f  61 70 70 73 25 3d 64 72  |nto%?!noapps%=dr|
000015c0  61 67 6f 6e 25 3a 74 79  70 65 25 3f 21 6e 6f 61  |agon%:type%?!noa|
000015d0  70 70 73 25 3d 66 69 6c  65 74 79 70 65 25 0d 04  |pps%=filetype%..|
000015e0  60 71 68 6f 74 6b 65 79  73 25 21 28 28 21 6e 6f  |`qhotkeys%!((!no|
000015f0  61 70 70 73 25 29 2a 34  29 3d 6b 65 79 25 3a 41  |apps%)*4)=key%:A|
00001600  25 28 21 6e 6f 61 70 70  73 25 29 3d 68 65 6c 70  |%(!noapps%)=help|
00001610  74 65 6d 70 25 3a 62 61  63 6b 64 72 6f 70 25 3f  |temp%:backdrop%?|
00001620  28 21 6e 6f 61 70 70 73  25 29 3d 62 61 63 6b 64  |(!noapps%)=backd|
00001630  72 6f 70 74 65 6d 70 25  3a c8 99 26 34 34 36 63  |roptemp%:..&446c|
00001640  36 2c 46 3a f2 53 28 6e  78 25 2c 6e 79 25 29 0d  |6,F:.S(nx%,ny%).|
00001650  04 6a 15 cc 3a e7 64 72  61 67 25 3c 3e 66 6f 75  |.j..:.drag%<>fou|
00001660  6e 64 25 8c 0d 04 74 12  e7 21 6f 72 67 61 6e 69  |nd%...t..!organi|
00001670  73 65 25 3d 30 8c 0d 04  7e 14 f2 62 28 66 6f 75  |se%=0...~..b(fou|
00001680  6e 64 25 2c 64 72 61 67  25 29 0d 04 88 2d cc 3a  |nd%,drag%)...-.:|
00001690  f2 66 28 64 72 61 67 25  2c 66 6f 75 6e 64 25 2c  |.f(drag%,found%,|
000016a0  64 69 66 66 67 72 61 76  25 29 3a e7 ac 64 69 66  |diffgrav%):..dif|
000016b0  66 67 72 61 76 25 8c 0d  04 92 22 70 72 65 76 69  |fgrav%...."previ|
000016c0  6f 75 73 25 3d 64 72 61  67 25 3a e7 66 6f 75 6e  |ous%=drag%:.foun|
000016d0  64 25 3e 64 72 61 67 25  8c 0d 04 9c b6 63 75 72  |d%>drag%.....cur|
000016e0  72 65 6e 74 25 3d 64 72  61 67 25 3a f5 3a 63 75  |rent%=drag%:.:cu|
000016f0  72 72 65 6e 74 25 3d 63  75 72 72 65 6e 74 25 2b  |rrent%=current%+|
00001700  31 3a fd 62 61 63 6b 64  72 6f 70 25 3f 63 75 72  |1:.backdrop%?cur|
00001710  72 65 6e 74 25 3d 62 61  63 6b 64 72 6f 70 25 3f  |rent%=backdrop%?|
00001720  64 72 61 67 25 3a c8 95  63 75 72 72 65 6e 74 25  |drag%:..current%|
00001730  3c 3d 66 6f 75 6e 64 25  3a f2 66 28 63 75 72 72  |<=found%:.f(curr|
00001740  65 6e 74 25 2c 70 72 65  76 69 6f 75 73 25 2c 64  |ent%,previous%,d|
00001750  69 66 66 67 72 61 76 25  29 3a e7 ac 64 69 66 66  |iffgrav%):..diff|
00001760  67 72 61 76 25 80 28 62  61 63 6b 64 72 6f 70 25  |grav%.(backdrop%|
00001770  3f 63 75 72 72 65 6e 74  25 3d 62 61 63 6b 64 72  |?current%=backdr|
00001780  6f 70 25 3f 70 72 65 76  69 6f 75 73 25 29 8c 0d  |op%?previous%)..|
00001790  04 a6 2d f2 62 28 70 72  65 76 69 6f 75 73 25 2c  |..-.b(previous%,|
000017a0  63 75 72 72 65 6e 74 25  29 3a 70 72 65 76 69 6f  |current%):previo|
000017b0  75 73 25 3d 63 75 72 72  65 6e 74 25 0d 04 b0 13  |us%=current%....|
000017c0  cd 3a 63 75 72 72 65 6e  74 25 2b 3d 31 3a ce 0d  |.:current%+=1:..|
000017d0  04 ba b8 cc 3a 63 75 72  72 65 6e 74 25 3d 64 72  |....:current%=dr|
000017e0  61 67 25 3a f5 3a 63 75  72 72 65 6e 74 25 3d 63  |ag%:.:current%=c|
000017f0  75 72 72 65 6e 74 25 2d  31 3a fd 62 61 63 6b 64  |urrent%-1:.backd|
00001800  72 6f 70 25 3f 63 75 72  72 65 6e 74 25 3d 62 61  |rop%?current%=ba|
00001810  63 6b 64 72 6f 70 25 3f  64 72 61 67 25 3a c8 95  |ckdrop%?drag%:..|
00001820  63 75 72 72 65 6e 74 25  3e 3d 66 6f 75 6e 64 25  |current%>=found%|
00001830  3a f2 66 28 63 75 72 72  65 6e 74 25 2c 70 72 65  |:.f(current%,pre|
00001840  76 69 6f 75 73 25 2c 64  69 66 66 67 72 61 76 25  |vious%,diffgrav%|
00001850  29 3a e7 ac 64 69 66 66  67 72 61 76 25 80 28 62  |):..diffgrav%.(b|
00001860  61 63 6b 64 72 6f 70 25  3f 63 75 72 72 65 6e 74  |ackdrop%?current|
00001870  25 3d 62 61 63 6b 64 72  6f 70 25 3f 70 72 65 76  |%=backdrop%?prev|
00001880  69 6f 75 73 25 29 8c 0d  04 c4 2d f2 62 28 70 72  |ious%)....-.b(pr|
00001890  65 76 69 6f 75 73 25 2c  63 75 72 72 65 6e 74 25  |evious%,current%|
000018a0  29 3a 70 72 65 76 69 6f  75 73 25 3d 63 75 72 72  |):previous%=curr|
000018b0  65 6e 74 25 0d 04 ce 13  cd 3a 63 75 72 72 65 6e  |ent%.....:curren|
000018c0  74 25 2d 3d 31 3a ce 0d  04 d8 05 cd 0d 04 e2 05  |t%-=1:..........|
000018d0  cd 0d 04 ec 05 cd 0d 04  f6 05 cd 0d 05 00 05 cd  |................|
000018e0  0d 05 0a 3a c9 77 68 61  6e 64 6c 65 25 3d 2d 32  |...:.whandle%=-2|
000018f0  80 69 68 61 6e 64 6c 65  25 3d 2d 31 3a e3 6c 25  |.ihandle%=-1:.l%|
00001900  3d 30 b8 21 6e 6f 61 70  70 73 25 3a e7 73 65 6c  |=0.!noapps%:.sel|
00001910  65 63 74 25 3f 6c 25 3d  31 8c 0d 05 14 2e f2 54  |ect%?l%=1......T|
00001920  28 6c 25 2c 22 22 29 3a  f2 53 28 78 79 30 25 3f  |(l%,""):.S(xy0%?|
00001930  6c 25 2c 78 79 31 25 3f  6c 25 29 3a 73 65 6c 65  |l%,xy1%?l%):sele|
00001940  63 74 25 3f 6c 25 3d 30  0d 05 1e 07 cd 3a ed 0d  |ct%?l%=0.....:..|
00001950  05 28 15 c9 77 68 61 6e  64 6c 65 25 3d 63 6f 6e  |.(..whandle%=con|
00001960  66 69 67 25 0d 05 32 16  c9 77 68 61 6e 64 6c 65  |fig%..2..whandle|
00001970  25 3d 63 6f 6e 66 69 67  32 25 0d 05 3c 13 7f 3a  |%=config2%..<..:|
00001980  f2 6c 28 41 24 28 64 72  61 67 25 29 29 0d 05 46  |.l(A$(drag%))..F|
00001990  05 cb 0d 05 50 dd c9 30  2c 31 3a 6e 78 25 3d 21  |....P..0,1:nx%=!|
000019a0  62 6c 6f 63 6b 25 81 28  21 78 70 69 78 25 2a 38  |block%.(!xpix%*8|
000019b0  30 2a 21 78 6d 75 6c 74  25 2f 21 78 64 69 76 25  |0*!xmult%/!xdiv%|
000019c0  29 3a 6e 79 25 3d 28 28  62 6c 6f 63 6b 25 21 34  |):ny%=((block%!4|
000019d0  29 2d 21 62 61 72 68 65  69 67 68 74 25 29 81 28  |)-!barheight%).(|
000019e0  21 79 70 69 78 25 2a 33  32 2a 21 79 6d 75 6c 74  |!ypix%*32*!ymult|
000019f0  25 2f 21 79 64 69 76 25  29 3a 6d 78 25 3d 28 62  |%/!ydiv%):mx%=(b|
00001a00  6c 6f 63 6b 25 21 38 29  81 28 21 78 70 69 78 25  |lock%!8).(!xpix%|
00001a10  2a 38 30 2a 21 78 6d 75  6c 74 25 2f 21 78 64 69  |*80*!xmult%/!xdi|
00001a20  76 25 29 3a 6d 79 25 3d  28 28 62 6c 6f 63 6b 25  |v%):my%=((block%|
00001a30  21 31 32 29 2d 21 62 61  72 68 65 69 67 68 74 25  |!12)-!barheight%|
00001a40  29 81 28 21 79 70 69 78  25 2a 33 32 2a 21 79 6d  |).(!ypix%*32*!ym|
00001a50  75 6c 74 25 2f 21 79 64  69 76 25 29 3a e7 6e 78  |ult%/!ydiv%):.nx|
00001a60  25 3e 6d 78 25 8c c8 94  6e 78 25 2c 6d 78 25 0d  |%>mx%...nx%,mx%.|
00001a70  05 5a 16 e7 6e 79 25 3e  6d 79 25 8c c8 94 6e 79  |.Z..ny%>my%...ny|
00001a80  25 2c 6d 79 25 0d 05 64  11 e7 21 6e 6f 61 70 70  |%,my%..d..!noapp|
00001a90  73 25 3e 2d 31 8c 0d 05  6e 58 e3 6c 25 3d 30 b8  |s%>-1...nX.l%=0.|
00001aa0  21 6e 6f 61 70 70 73 25  3a e7 78 79 30 25 3f 6c  |!noapps%:.xy0%?l|
00001ab0  25 3e 3d 6e 78 25 80 78  79 30 25 3f 6c 25 3c 3d  |%>=nx%.xy0%?l%<=|
00001ac0  6d 78 25 80 78 79 31 25  3f 6c 25 3e 3d 6e 79 25  |mx%.xy1%?l%>=ny%|
00001ad0  80 78 79 31 25 3f 6c 25  3c 3d 6d 79 25 80 62 61  |.xy1%?l%<=my%.ba|
00001ae0  63 6b 64 72 6f 70 25 3f  6c 25 3d 21 41 8c 0d 05  |ckdrop%?l%=!A...|
00001af0  78 11 e7 64 72 61 67 74  79 70 65 25 3d 31 8c 0d  |x..dragtype%=1..|
00001b00  05 82 25 e7 73 65 6c 65  63 74 25 3f 6c 25 3d 30  |..%.select%?l%=0|
00001b10  8c f2 53 28 78 79 30 25  3f 6c 25 2c 78 79 31 25  |..S(xy0%?l%,xy1%|
00001b20  3f 6c 25 29 0d 05 8c 10  73 65 6c 65 63 74 25 3f  |?l%)....select%?|
00001b30  6c 25 3d 31 0d 05 96 31  cc 3a 73 65 6c 65 63 74  |l%=1...1.:select|
00001b40  25 3f 6c 25 3d 31 2d 73  65 6c 65 63 74 25 3f 6c  |%?l%=1-select%?l|
00001b50  25 3a f2 53 28 78 79 30  25 3f 6c 25 2c 78 79 31  |%:.S(xy0%?l%,xy1|
00001b60  25 3f 6c 25 29 0d 05 a0  05 cd 0d 05 aa 07 cd 3a  |%?l%)..........:|
00001b70  ed 0d 05 b4 05 cd 0d 05  be 12 c9 32 3a c8 8e 77  |...........2:..w|
00001b80  68 61 6e 64 6c 65 25 ca  0d 05 c8 55 c9 62 61 63  |handle%....U.bac|
00001b90  6b 67 25 2c 2d 31 2c 2d  32 2c 63 6f 6e 66 69 67  |kg%,-1,-2,config|
00001ba0  25 2c 63 6f 6e 66 69 67  32 25 2c 69 6e 66 6f 25  |%,config2%,info%|
00001bb0  2c 66 69 6c 65 69 6e 66  6f 25 2c 73 61 76 65 77  |,fileinfo%,savew|
00001bc0  69 6e 64 6f 77 25 2c 66  69 6c 65 61 63 63 65 73  |indow%,fileacces|
00001bd0  73 25 2c 6d 61 70 77 69  6e 64 6f 77 25 0d 05 d2  |s%,mapwindow%...|
00001be0  6c 7f 3a 21 62 6c 6f 63  6b 25 3d 73 61 76 65 77  |l.:!block%=savew|
00001bf0  69 6e 64 6f 77 25 3a 62  6c 6f 63 6b 25 21 34 3d  |indow%:block%!4=|
00001c00  31 3a c8 99 77 69 6d 70  67 69 73 25 2c 2c 62 6c  |1:..wimpgis%,,bl|
00001c10  6f 63 6b 25 3a 53 24 3d  a4 41 28 62 6c 6f 63 6b  |ock%:S$=.A(block|
00001c20  25 21 32 38 29 3a e7 a7  53 24 2c 22 2e 22 29 3d  |%!28):..S$,".")=|
00001c30  30 8c 53 24 3d a4 46 28  41 24 28 64 72 61 67 25  |0.S$=.F(A$(drag%|
00001c40  29 29 2b 22 2e 22 2b 53  24 0d 05 dc 0a f2 6c 28  |))+"."+S$.....l(|
00001c50  53 24 29 0d 05 e6 05 cb  0d 05 f0 b1 c9 33 2c 34  |S$)..........3,4|
00001c60  3a 70 78 25 3d 21 62 6c  6f 63 6b 25 3a 70 79 25  |:px%=!block%:py%|
00001c70  3d 62 6c 6f 63 6b 25 21  34 3a 21 62 6c 6f 63 6b  |=block%!4:!block|
00001c80  25 3d 6d 61 70 77 69 6e  64 6f 77 25 3a c8 99 77  |%=mapwindow%:..w|
00001c90  69 6d 70 67 77 73 25 2c  2c 62 6c 6f 63 6b 25 3a  |impgws%,,block%:|
00001ca0  70 78 25 2d 3d 62 6c 6f  63 6b 25 21 34 3a 70 79  |px%-=block%!4:py|
00001cb0  25 2d 3d 62 6c 6f 63 6b  25 21 38 3a f2 78 3a 70  |%-=block%!8:.x:p|
00001cc0  78 25 3d 28 28 70 78 25  2d 78 6f 66 66 25 29 2f  |x%=((px%-xoff%)/|
00001cd0  4d 29 2b 6d 69 6e 78 25  3a 70 79 25 3d 28 28 70  |M)+minx%:py%=((p|
00001ce0  79 25 2d 79 6f 66 66 25  29 2f 5a 29 2b 6d 69 6e  |y%-yoff%)/Z)+min|
00001cf0  79 25 3a e7 64 72 61 67  67 69 6e 67 77 68 61 6e  |y%:.draggingwhan|
00001d00  64 6c 65 25 3c 3e 2d 31  8c 0d 05 fa 93 21 62 6c  |dle%<>-1.....!bl|
00001d10  6f 63 6b 25 3d 64 72 61  67 67 69 6e 67 77 68 61  |ock%=draggingwha|
00001d20  6e 64 6c 65 25 3a c8 99  77 69 6d 70 67 77 73 25  |ndle%:..wimpgws%|
00001d30  2c 2c 62 6c 6f 63 6b 25  3a 62 6c 6f 63 6b 25 21  |,,block%:block%!|
00001d40  31 32 2b 3d 70 78 25 2d  62 6c 6f 63 6b 25 21 34  |12+=px%-block%!4|
00001d50  3a 62 6c 6f 63 6b 25 21  31 36 2b 3d 70 79 25 2d  |:block%!16+=py%-|
00001d60  62 6c 6f 63 6b 25 21 38  3a 62 6c 6f 63 6b 25 21  |block%!8:block%!|
00001d70  34 3d 70 78 25 3a 62 6c  6f 63 6b 25 21 38 3d 70  |4=px%:block%!8=p|
00001d80  79 25 3a e7 64 72 61 67  74 79 70 65 25 3d 33 8c  |y%:.dragtype%=3.|
00001d90  62 6c 6f 63 6b 25 21 32  38 3d 2d 31 0d 06 04 27  |block%!28=-1...'|
00001da0  c8 99 77 69 6d 70 73 6d  25 2c 32 2c 62 6c 6f 63  |..wimpsm%,2,bloc|
00001db0  6b 25 2c 64 72 61 67 67  69 6e 67 77 68 61 6e 64  |k%,draggingwhand|
00001dc0  6c 65 25 0d 06 0e 1a cc  3a 78 6f 25 3d 2d 70 78  |le%.....:xo%=-px|
00001dd0  25 3a 79 6f 25 3d 2d 70  79 25 3a f2 4c 0d 06 18  |%:yo%=-py%:.L...|
00001de0  05 cd 0d 06 22 07 cb 3a  e1 0d 06 2c 36 dd f2 66  |...."..:...,6..f|
00001df0  28 64 72 61 67 25 2c 66  6f 75 6e 64 25 2c f8 64  |(drag%,found%,.d|
00001e00  69 66 66 67 72 61 76 25  29 3a ea 61 25 2c 62 25  |iffgrav%):.a%,b%|
00001e10  3a c8 8e 74 79 70 65 25  3f 64 72 61 67 25 ca 0d  |:..type%?drag%..|
00001e20  06 36 16 c9 33 2c 31 3a  61 25 3d 21 61 70 70 73  |.6..3,1:a%=!apps|
00001e30  67 72 61 76 25 0d 06 40  16 c9 35 2c 36 3a 61 25  |grav%..@..5,6:a%|
00001e40  3d 21 77 69 6e 64 67 72  61 76 25 0d 06 4a 14 c9  |=!windgrav%..J..|
00001e50  32 3a 61 25 3d 21 64 69  72 73 67 72 61 76 25 0d  |2:a%=!dirsgrav%.|
00001e60  06 54 14 c9 37 3a 61 25  3d 21 62 61 63 6b 67 72  |.T..7:a%=!backgr|
00001e70  61 76 25 0d 06 5e 15 cb  3a c8 8e 74 79 70 65 25  |av%..^..:..type%|
00001e80  3f 66 6f 75 6e 64 25 ca  0d 06 68 16 c9 33 2c 31  |?found%...h..3,1|
00001e90  3a 62 25 3d 21 61 70 70  73 67 72 61 76 25 0d 06  |:b%=!appsgrav%..|
00001ea0  72 16 c9 35 2c 36 3a 62  25 3d 21 77 69 6e 64 67  |r..5,6:b%=!windg|
00001eb0  72 61 76 25 0d 06 7c 14  c9 32 3a 62 25 3d 21 64  |rav%..|..2:b%=!d|
00001ec0  69 72 73 67 72 61 76 25  0d 06 86 14 c9 37 3a 62  |irsgrav%.....7:b|
00001ed0  25 3d 21 62 61 63 6b 67  72 61 76 25 0d 06 90 30  |%=!backgrav%...0|
00001ee0  cb 3a 64 69 66 66 67 72  61 76 25 3d 28 61 25 3c  |.:diffgrav%=(a%<|
00001ef0  3e 62 25 29 3a e7 61 25  3d 62 25 80 61 25 3d 30  |>b%):.a%=b%.a%=0|
00001f00  8c 64 69 66 66 67 72 61  76 25 3d b9 0d 06 9a 05  |.diffgrav%=.....|
00001f10  e1 0d 06 a4 e0 dd f2 6c  28 42 24 29 3a ea 6e 24  |.......l(B$):.n$|
00001f20  2c 6c 25 3a 21 62 6c 6f  63 6b 25 3d 32 30 3a 62  |,l%:!block%=20:b|
00001f30  6c 6f 63 6b 25 21 31 32  3d 30 3a 62 6c 6f 63 6b  |lock%!12=0:block|
00001f40  25 21 31 36 3d 30 3a c8  99 77 69 6d 70 73 6d 25  |%!16=0:..wimpsm%|
00001f50  2c 31 39 2c 62 6c 6f 63  6b 25 2c 77 68 61 6e 64  |,19,block%,whand|
00001f60  6c 65 25 2c 69 68 61 6e  64 6c 65 25 b8 2c 2c 64  |le%,ihandle%.,,d|
00001f70  65 73 74 74 61 73 6b 25  3a c8 99 33 39 2c 42 24  |esttask%:..39,B$|
00001f80  2c 62 6c 6f 63 6b 25 2c  32 35 36 3a 42 24 3d a4  |,block%,256:B$=.|
00001f90  41 28 62 6c 6f 63 6b 25  29 3a c8 99 38 2c 31 33  |A(block%):..8,13|
00001fa0  2c a4 41 28 6c 65 61 66  25 2b 31 32 2a 64 72 61  |,.A(leaf%+12*dra|
00001fb0  67 25 29 2c 2c 2c c0 42  24 2c a9 42 24 2d a9 a4  |g%),,,.B$,.B$-..|
00001fc0  41 28 6c 65 61 66 25 2b  31 32 2a 64 72 61 67 25  |A(leaf%+12*drag%|
00001fd0  29 29 b8 74 79 70 65 32  25 2c 2c 6c 6f 61 64 25  |)).type2%,,load%|
00001fe0  2c 65 78 65 63 25 2c 6c  65 6e 25 2c 61 74 74 72  |,exec%,len%,attr|
00001ff0  25 0d 06 ae 30 e7 74 79  70 65 32 25 3d 32 8c 74  |%...0.type2%=2.t|
00002000  79 70 65 32 25 3d 34 30  39 36 8b 74 79 70 65 32  |ype2%=4096.type2|
00002010  25 3d 28 6c 6f 61 64 25  3e 3e 38 29 80 34 30 39  |%=(load%>>8).409|
00002020  35 0d 06 b8 37 e7 74 79  70 65 32 25 3d 34 30 39  |5...7.type2%=409|
00002030  36 80 c0 a4 41 28 6c 65  61 66 25 2b 31 32 2a 64  |6...A(leaf%+12*d|
00002040  72 61 67 25 29 2c 31 29  3d 22 21 22 8c 74 79 70  |rag%),1)="!".typ|
00002050  65 32 25 3d 38 31 39 32  0d 06 c2 94 c8 99 26 34  |e2%=8192......&4|
00002060  32 36 38 30 2c 64 65 73  74 74 61 73 6b 25 b8 6e  |2680,desttask%.n|
00002070  24 3a 62 6c 6f 63 6b 25  21 31 32 3d 30 3a 62 6c  |$:block%!12=0:bl|
00002080  6f 63 6b 25 21 32 30 3d  77 68 61 6e 64 6c 65 25  |ock%!20=whandle%|
00002090  3a 62 6c 6f 63 6b 25 21  32 34 3d 69 68 61 6e 64  |:block%!24=ihand|
000020a0  6c 65 25 3a 62 6c 6f 63  6b 25 21 32 38 3d 6d 78  |le%:block%!28=mx|
000020b0  25 3a 62 6c 6f 63 6b 25  21 33 32 3d 6d 79 25 3a  |%:block%!32=my%:|
000020c0  62 6c 6f 63 6b 25 21 33  36 3d 6c 65 6e 25 3a 62  |block%!36=len%:b|
000020d0  6c 6f 63 6b 25 21 34 30  3d 74 79 70 65 32 25 3a  |lock%!40=type2%:|
000020e0  e7 6e 24 3d 22 46 69 6c  65 72 22 8c 0d 06 cc 1c  |.n$="Filer".....|
000020f0  5a 24 3d 42 24 3a 6c 25  3d a7 5a 24 2c 22 2e 22  |Z$=B$:l%=.Z$,"."|
00002100  29 3a e7 6c 25 3e 30 8c  0d 06 d6 28 c8 95 a7 5a  |):.l%>0....(...Z|
00002110  24 2c 22 2e 22 2c 6c 25  2b 31 29 3e 30 3a 6c 25  |$,".",l%+1)>0:l%|
00002120  3d a7 5a 24 2c 22 2e 22  2c 6c 25 2b 31 29 3a ce  |=.Z$,".",l%+1):.|
00002130  0d 06 e0 a6 cd 3a 5a 24  3d c1 5a 24 2c 6c 25 2b  |.....:Z$=.Z$,l%+|
00002140  31 29 3a 62 6c 6f 63 6b  25 21 30 3d 28 28 34 38  |1):block%!0=((48|
00002150  2b a9 5a 24 29 81 34 29  2a 34 3a f2 5a 28 5a 24  |+.Z$).4)*4:.Z(Z$|
00002160  2c 62 6c 6f 63 6b 25 2b  34 34 29 3a 62 6c 6f 63  |,block%+44):bloc|
00002170  6b 25 21 31 36 3d 31 3a  c8 99 77 69 6d 70 73 6d  |k%!16=1:..wimpsm|
00002180  25 2c 31 38 2c 62 6c 6f  63 6b 25 2c 77 68 61 6e  |%,18,block%,whan|
00002190  64 6c 65 25 2c 69 68 61  6e 64 6c 65 25 3a 66 69  |dle%,ihandle%:fi|
000021a0  6c 65 72 73 61 76 65 25  3d b9 3a 64 72 61 67 77  |lersave%=.:dragw|
000021b0  68 61 6e 64 6c 65 25 3d  77 68 61 6e 64 6c 65 25  |handle%=whandle%|
000021c0  3a 64 72 61 67 69 68 61  6e 64 6c 65 25 3d 69 68  |:dragihandle%=ih|
000021d0  61 6e 64 6c 65 25 0d 06  ea 23 cc 3a e3 6c 25 3d  |andle%...#.:.l%=|
000021e0  30 b8 21 6e 6f 61 70 70  73 25 3a e7 73 65 6c 65  |0.!noapps%:.sele|
000021f0  63 74 25 3f 6c 25 3d 31  8c 0d 06 f4 99 62 6c 6f  |ct%?l%=1.....blo|
00002200  63 6b 25 21 30 3d 28 28  34 38 2b a9 41 24 28 6c  |ck%!0=((48+.A$(l|
00002210  25 29 29 81 34 29 2a 34  3a f2 5a 28 41 24 28 6c  |%)).4)*4:.Z(A$(l|
00002220  25 29 2c 62 6c 6f 63 6b  25 2b 34 34 29 3a 62 6c  |%),block%+44):bl|
00002230  6f 63 6b 25 21 31 36 3d  33 3a c8 99 77 69 6d 70  |ock%!16=3:..wimp|
00002240  73 6d 25 2c 31 37 2c 62  6c 6f 63 6b 25 2c 77 68  |sm%,17,block%,wh|
00002250  61 6e 64 6c 65 25 2c 69  68 61 6e 64 6c 65 25 3a  |andle%,ihandle%:|
00002260  6c 6f 61 64 69 6e 70 72  6f 67 72 65 73 73 25 3d  |loadinprogress%=|
00002270  b9 3a 73 65 6c 65 63 74  25 3f 6c 25 3d 30 3a f2  |.:select%?l%=0:.|
00002280  53 28 78 79 30 25 3f 6c  25 2c 78 79 31 25 3f 6c  |S(xy0%?l%,xy1%?l|
00002290  25 29 0d 06 fe 07 cd 3a  ed 0d 07 08 07 cd 3a e1  |%).....:......:.|
000022a0  0d 07 12 4d dd f2 66 5f  3a ea 78 70 6f 73 25 2c  |...M..f_:.xpos%,|
000022b0  79 70 6f 73 25 3a c8 99  77 69 6d 70 67 65 74 63  |ypos%:..wimpgetc|
000022c0  61 72 65 74 70 6f 73 25  2c 2c 62 6c 6f 63 6b 25  |aretpos%,,block%|
000022d0  3a e7 62 6c 6f 63 6b 25  21 30 3c 3e 2d 31 80 62  |:.block%!0<>-1.b|
000022e0  6c 6f 63 6b 25 21 31 36  3c 3e 2d 31 8c 0d 07 1c  |lock%!16<>-1....|
000022f0  9d 62 6c 6f 63 6b 25 21  32 30 3d 62 6c 6f 63 6b  |.block%!20=block|
00002300  25 21 30 3a c8 99 77 69  6d 70 67 77 73 25 2c 2c  |%!0:..wimpgws%,,|
00002310  62 6c 6f 63 6b 25 2b 32  30 3a 78 70 6f 73 25 3d  |block%+20:xpos%=|
00002320  62 6c 6f 63 6b 25 21 38  2b 62 6c 6f 63 6b 25 21  |block%!8+block%!|
00002330  32 34 2d 62 6c 6f 63 6b  25 21 34 30 3a 79 70 6f  |24-block%!40:ypo|
00002340  73 25 3d 62 6c 6f 63 6b  25 21 31 32 2b 62 6c 6f  |s%=block%!12+blo|
00002350  63 6b 25 21 33 36 2d 62  6c 6f 63 6b 25 21 34 34  |ck%!36-block%!44|
00002360  3a 63 68 65 69 67 68 74  25 3d 28 62 6c 6f 63 6b  |:cheight%=(block|
00002370  25 21 31 36 80 36 35 35  33 35 29 3a e7 63 68 65  |%!16.65535):.che|
00002380  69 67 68 74 25 3c 3e 2d  31 8c 0d 07 26 38 e7 78  |ight%<>-1...&8.x|
00002390  70 6f 73 25 3c 30 84 78  70 6f 73 25 3e 21 78 6d  |pos%<0.xpos%>!xm|
000023a0  61 78 25 84 79 70 6f 73  25 3c 30 84 79 70 6f 73  |ax%.ypos%<0.ypos|
000023b0  25 3e 21 79 6d 61 78 25  2d 63 68 65 69 67 68 74  |%>!ymax%-cheight|
000023c0  25 8c 0d 07 30 45 e7 78  70 6f 73 25 3e 62 6c 6f  |%...0E.xpos%>blo|
000023d0  63 6b 25 21 32 34 80 78  70 6f 73 25 3c 62 6c 6f  |ck%!24.xpos%<blo|
000023e0  63 6b 25 21 33 32 80 79  70 6f 73 25 3e 62 6c 6f  |ck%!32.ypos%>blo|
000023f0  63 6b 25 21 32 38 80 79  70 6f 73 25 3c 62 6c 6f  |ck%!28.ypos%<blo|
00002400  63 6b 25 21 33 36 8c 0d  07 3a 23 78 6f 25 3d 30  |ck%!36...:#xo%=0|
00002410  3a 79 6f 25 3d 30 3a e7  78 70 6f 73 25 3c 30 8c  |:yo%=0:.xpos%<0.|
00002420  78 6f 25 3d 2d 78 70 6f  73 25 0d 07 44 22 e7 78  |xo%=-xpos%..D".x|
00002430  70 6f 73 25 3e 21 78 6d  61 78 25 8c 78 6f 25 3d  |pos%>!xmax%.xo%=|
00002440  21 78 6d 61 78 25 2d 78  70 6f 73 25 0d 07 4e 17  |!xmax%-xpos%..N.|
00002450  e7 79 70 6f 73 25 3c 30  8c 79 6f 25 3d 2d 79 70  |.ypos%<0.yo%=-yp|
00002460  6f 73 25 0d 07 58 34 e7  79 70 6f 73 25 3e 21 79  |os%..X4.ypos%>!y|
00002470  6d 61 78 25 2d 63 68 65  69 67 68 74 25 8c 79 6f  |max%-cheight%.yo|
00002480  25 3d 21 79 6d 61 78 25  2d 79 70 6f 73 25 2d 63  |%=!ymax%-ypos%-c|
00002490  68 65 69 67 68 74 25 0d  07 62 06 f2 4c 0d 07 6c  |height%..b..L..l|
000024a0  05 cd 0d 07 76 05 cd 0d  07 80 05 cd 0d 07 8a 07  |....v...........|
000024b0  cd 3a e1 0d 07 94 eb dd  f2 75 5f 3a ea 5a 24 2c  |.:.......u_:.Z$,|
000024c0  6f 6e 74 6f 25 2c 6c 25  2c 67 78 25 2c 67 79 25  |onto%,l%,gx%,gy%|
000024d0  2c 53 24 2c 66 6c 61 67  25 3a 66 6c 61 67 25 3d  |,S$,flag%:flag%=|
000024e0  a3 3a 6f 6e 74 6f 25 3d  2d 31 3a 67 78 25 3d 62  |.:onto%=-1:gx%=b|
000024f0  6c 6f 63 6b 25 21 32 38  3a 67 79 25 3d 62 6c 6f  |lock%!28:gy%=blo|
00002500  63 6b 25 21 33 32 3a 67  78 25 3d 28 67 78 25 2d  |ck%!32:gx%=(gx%-|
00002510  21 78 70 69 78 25 29 2a  21 78 64 69 76 25 81 21  |!xpix%)*!xdiv%.!|
00002520  78 6d 75 6c 74 25 81 21  78 70 69 78 25 81 38 30  |xmult%.!xpix%.80|
00002530  3a 67 79 25 3d 28 67 79  25 2d 21 79 70 69 78 25  |:gy%=(gy%-!ypix%|
00002540  2d 21 62 61 72 68 65 69  67 68 74 25 29 2a 21 79  |-!barheight%)*!y|
00002550  64 69 76 25 81 21 79 6d  75 6c 74 25 81 21 79 70  |div%.!ymult%.!yp|
00002560  69 78 25 81 33 32 3a 73  63 72 61 70 73 69 7a 65  |ix%.32:scrapsize|
00002570  25 3d 62 6c 6f 63 6b 25  21 33 36 3a 73 63 72 61  |%=block%!36:scra|
00002580  70 74 79 70 65 25 3d 62  6c 6f 63 6b 25 21 34 30  |ptype%=block%!40|
00002590  3a e7 21 6e 6f 61 70 70  73 25 3e 2d 31 8c 0d 07  |:.!noapps%>-1...|
000025a0  9e 5b e3 6c 25 3d 30 b8  21 6e 6f 61 70 70 73 25  |.[.l%=0.!noapps%|
000025b0  3a e7 78 79 30 25 3f 6c  25 3d 67 78 25 80 78 79  |:.xy0%?l%=gx%.xy|
000025c0  31 25 3f 6c 25 3d 67 79  25 80 74 79 70 65 25 3f  |1%?l%=gy%.type%?|
000025d0  6c 25 3c 3e 31 80 74 79  70 65 25 3f 6c 25 3c 34  |l%<>1.type%?l%<4|
000025e0  80 62 61 63 6b 64 72 6f  70 25 3f 6c 25 3d 21 41  |.backdrop%?l%=!A|
000025f0  8c 6f 6e 74 6f 25 3d 6c  25 0d 07 a8 05 ed 0d 07  |.onto%=l%.......|
00002600  b2 30 cd 3a 5a 24 3d a4  41 28 62 6c 6f 63 6b 25  |.0.:Z$=.A(block%|
00002610  2b 34 34 29 3a 73 61 76  69 6e 67 6f 6e 74 6f 25  |+44):savingonto%|
00002620  3d a3 3a e7 6f 6e 74 6f  25 3c 3e 2d 31 8c 0d 07  |=.:.onto%<>-1...|
00002630  bc 17 e7 64 72 61 67 6f  6e 74 6f 25 3f 6f 6e 74  |...dragonto%?ont|
00002640  6f 25 3d 31 8c 0d 07 c6  13 e7 74 79 70 65 25 3f  |o%=1......type%?|
00002650  6f 6e 74 6f 25 3d 32 8c  0d 07 d0 17 53 24 3d 41  |onto%=2.....S$=A|
00002660  24 28 6f 6e 74 6f 25 29  2b 22 2e 22 2b 5a 24 0d  |$(onto%)+"."+Z$.|
00002670  07 da 5d cc 3a c8 99 33  39 2c 22 3c 57 69 6d 70  |..].:..39,"<Wimp|
00002680  24 53 63 72 61 70 3e 22  2c 62 6c 6f 63 6b 32 25  |$Scrap>",block2%|
00002690  2c 32 35 36 3a 53 24 3d  a4 41 28 62 6c 6f 63 6b  |,256:S$=.A(block|
000026a0  32 25 29 3a 72 75 6e 73  63 72 61 70 77 68 65 6e  |2%):runscrapwhen|
000026b0  73 61 76 65 64 25 3d b9  3a 72 75 6e 73 63 72 61  |saved%=.:runscra|
000026c0  70 6f 6e 74 6f 25 3d 6f  6e 74 6f 25 0d 07 e4 13  |ponto%=onto%....|
000026d0  cd 3a 73 61 76 69 6e 67  6f 6e 74 6f 25 3d b9 0d  |.:savingonto%=..|
000026e0  07 ee 17 cc 3a 6f 6e 74  6f 25 3d 2d 31 3a 53 24  |....:onto%=-1:S$|
000026f0  3d 47 24 2b 5a 24 0d 07  f8 05 cd 0d 08 02 0e cc  |=G$+Z$..........|
00002700  3a 53 24 3d 47 24 2b 5a  24 0d 08 0c 80 cd 3a 62  |:S$=G$+Z$.....:b|
00002710  6c 6f 63 6b 25 21 31 32  3d 62 6c 6f 63 6b 25 21  |lock%!12=block%!|
00002720  38 3a 62 6c 6f 63 6b 25  21 31 36 3d 32 3a 62 6c  |8:block%!16=2:bl|
00002730  6f 63 6b 25 21 30 3d 28  28 34 39 2b a9 28 53 24  |ock%!0=((49+.(S$|
00002740  29 29 81 34 29 2a 34 3a  f2 5a 28 53 24 2c 62 6c  |)).4)*4:.Z(S$,bl|
00002750  6f 63 6b 25 2b 34 34 29  3a c8 99 77 69 6d 70 73  |ock%+44):..wimps|
00002760  6d 25 2c 31 37 2c 62 6c  6f 63 6b 25 2c 62 6c 6f  |m%,17,block%,blo|
00002770  63 6b 25 21 34 3a 6c 6f  61 64 69 6e 70 72 6f 67  |ck%!4:loadinprog|
00002780  72 65 73 73 25 3d b9 3a  e1 0d 08 16 3f dd f2 4d  |ress%=.:....?..M|
00002790  28 6d 65 6e 75 25 2c 69  74 65 6d 25 2c 69 66 25  |(menu%,item%,if%|
000027a0  29 3a ea 70 74 72 25 3a  70 74 72 25 3d 6d 65 6e  |):.ptr%:ptr%=men|
000027b0  75 62 6c 6f 63 6b 25 21  28 6d 65 6e 75 25 3c 3c  |ublock%!(menu%<<|
000027c0  32 29 3a e7 69 66 25 8c  0d 08 20 2f 70 74 72 25  |2):.if%... /ptr%|
000027d0  21 28 33 36 2b 69 74 65  6d 25 2a 32 34 29 3d 70  |!(36+item%*24)=p|
000027e0  74 72 25 21 28 33 36 2b  69 74 65 6d 25 2a 32 34  |tr%!(36+item%*24|
000027f0  29 84 31 3c 3c 32 32 0d  08 2a 34 cc 3a 70 74 72  |).1<<22..*4.:ptr|
00002800  25 21 28 33 36 2b 69 74  65 6d 25 2a 32 34 29 3d  |%!(36+item%*24)=|
00002810  70 74 72 25 21 28 33 36  2b 69 74 65 6d 25 2a 32  |ptr%!(36+item%*2|
00002820  34 29 80 ac 28 31 3c 3c  32 32 29 0d 08 34 07 cd  |4)..(1<<22)..4..|
00002830  3a e1 0d 08 3e 40 dd f2  61 28 6d 65 6e 75 25 2c  |:...>@..a(menu%,|
00002840  69 24 29 3a ea 70 74 72  25 3a 70 74 72 25 3d 6d  |i$):.ptr%:ptr%=m|
00002850  65 6e 75 62 6c 6f 63 6b  25 21 28 6d 65 6e 75 25  |enublock%!(menu%|
00002860  3c 3c 32 29 3a f2 5a 28  69 24 2c 70 74 72 25 29  |<<2):.Z(i$,ptr%)|
00002870  3a e1 0d 08 48 5d dd f2  56 28 6d 65 6e 75 25 2c  |:...H]..V(menu%,|
00002880  65 6e 74 72 79 25 2c 69  24 29 3a ea 70 74 72 25  |entry%,i$):.ptr%|
00002890  3a 70 74 72 25 3d 6d 65  6e 75 62 6c 6f 63 6b 25  |:ptr%=menublock%|
000028a0  21 28 6d 65 6e 75 25 3c  3c 32 29 3a 70 74 72 25  |!(menu%<<2):ptr%|
000028b0  2b 3d 32 34 2a 65 6e 74  72 79 25 3a e7 28 70 74  |+=24*entry%:.(pt|
000028c0  72 25 21 33 36 80 32 35  36 29 3d 32 35 36 8c 0d  |r%!36.256)=256..|
000028d0  08 52 10 70 74 72 25 3d  70 74 72 25 21 34 30 0d  |.R.ptr%=ptr%!40.|
000028e0  08 5c 12 cc 3a 70 74 72  25 3d 70 74 72 25 2b 34  |.\..:ptr%=ptr%+4|
000028f0  30 0d 08 66 13 cd 3a f2  5a 28 69 24 2c 70 74 72  |0..f..:.Z(i$,ptr|
00002900  25 29 3a e1 0d 08 70 3f  dd f2 47 28 6d 65 6e 75  |%):...p?..G(menu|
00002910  25 2c 69 74 65 6d 25 2c  69 66 25 29 3a ea 70 74  |%,item%,if%):.pt|
00002920  72 25 3a 70 74 72 25 3d  6d 65 6e 75 62 6c 6f 63  |r%:ptr%=menubloc|
00002930  6b 25 21 28 6d 65 6e 75  25 3c 3c 32 29 3a e7 69  |k%!(menu%<<2):.i|
00002940  66 25 8c 0d 08 7a 2b 70  74 72 25 21 28 32 38 2b  |f%...z+ptr%!(28+|
00002950  69 74 65 6d 25 2a 32 34  29 3d 70 74 72 25 21 28  |item%*24)=ptr%!(|
00002960  32 38 2b 69 74 65 6d 25  2a 32 34 29 84 31 0d 08  |28+item%*24).1..|
00002970  84 2e cc 3a 70 74 72 25  21 28 32 38 2b 69 74 65  |...:ptr%!(28+ite|
00002980  6d 25 2a 32 34 29 3d 70  74 72 25 21 28 32 38 2b  |m%*24)=ptr%!(28+|
00002990  69 74 65 6d 25 2a 32 34  29 80 ac 31 0d 08 8e 07  |item%*24)..1....|
000029a0  cd 3a e1 0d 08 98 be dd  f2 48 28 6e 65 77 6d 65  |.:.......H(newme|
000029b0  6e 75 63 6f 6f 72 64 73  25 2c 6d 65 6e 75 6e 75  |nucoords%,menunu|
000029c0  6d 25 2c 73 65 6c 65 63  74 75 6e 64 65 72 25 29  |m%,selectunder%)|
000029d0  3a ea 6d 65 6e 75 25 2c  6c 25 2c 66 6f 75 6e 64  |:.menu%,l%,found|
000029e0  25 2c 73 65 6c 65 63 74  69 6f 6e 25 2c 77 68 61  |%,selection%,wha|
000029f0  6e 64 6c 65 25 2c 62 61  63 6b 64 72 6f 70 66 6c  |ndle%,backdropfl|
00002a00  61 67 25 2c 6f 64 64 74  79 70 65 25 3a 77 68 61  |ag%,oddtype%:wha|
00002a10  6e 64 6c 65 25 3d 62 6c  6f 63 6b 25 21 31 32 3a  |ndle%=block%!12:|
00002a20  6d 65 6e 75 6f 70 65 6e  25 3d 6d 65 6e 75 6e 75  |menuopen%=menunu|
00002a30  6d 25 3a c8 99 77 69 6d  70 67 65 74 70 6f 69 6e  |m%:..wimpgetpoin|
00002a40  74 65 72 69 6e 66 6f 25  2c 2c 62 6c 6f 63 6b 25  |terinfo%,,block%|
00002a50  3a e7 6e 65 77 6d 65 6e  75 63 6f 6f 72 64 73 25  |:.newmenucoords%|
00002a60  8c 0d 08 a2 66 6d 65 6e  75 78 25 3d 21 62 6c 6f  |....fmenux%=!blo|
00002a70  63 6b 25 81 28 21 78 70  69 78 25 2a 38 30 2a 21  |ck%.(!xpix%*80*!|
00002a80  78 6d 75 6c 74 25 2f 21  78 64 69 76 25 29 3a 6d  |xmult%/!xdiv%):m|
00002a90  65 6e 75 79 25 3d 28 62  6c 6f 63 6b 25 21 34 2d  |enuy%=(block%!4-|
00002aa0  21 62 61 72 68 65 69 67  68 74 25 29 81 28 21 79  |!barheight%).(!y|
00002ab0  70 69 78 25 2a 33 32 2a  21 79 6d 75 6c 74 25 2f  |pix%*32*!ymult%/|
00002ac0  21 79 64 69 76 25 29 0d  08 ac 7d cd 3a 66 6f 75  |!ydiv%)...}.:fou|
00002ad0  6e 64 25 3d a3 3a 73 65  6c 65 63 74 69 6f 6e 25  |nd%=.:selection%|
00002ae0  3d a3 3a 6f 64 64 74 79  70 65 25 3d a3 3a e3 6c  |=.:oddtype%=.:.l|
00002af0  25 3d 30 b8 39 3a f2 4d  28 38 2c 6c 25 2c 30 29  |%=0.9:.M(8,l%,0)|
00002b00  3a ed 3a e3 6c 25 3d 30  b8 34 3a f2 4d 28 31 30  |:.:.l%=0.4:.M(10|
00002b10  2c 6c 25 2c 30 29 3a ed  3a 72 65 6d 6f 76 65 25  |,l%,0):.:remove%|
00002b20  3d 30 3a e7 77 68 61 6e  64 6c 65 25 3d 62 61 63  |=0:.whandle%=bac|
00002b30  6b 67 25 84 ac 6e 65 77  6d 65 6e 75 63 6f 6f 72  |kg%..newmenucoor|
00002b40  64 73 25 8c 0d 08 b6 11  e7 21 6e 6f 61 70 70 73  |ds%......!noapps|
00002b50  25 3e 2d 31 8c 0d 08 c0  21 e3 6c 25 3d 30 b8 21  |%>-1....!.l%=0.!|
00002b60  6e 6f 61 70 70 73 25 3a  e7 73 65 6c 65 63 74 25  |noapps%:.select%|
00002b70  3f 6c 25 3d 31 8c 0d 08  ca 1b e7 74 79 70 65 25  |?l%=1......type%|
00002b80  3f 6c 25 3c 34 84 74 79  70 65 25 3f 6c 25 3d 37  |?l%<4.type%?l%=7|
00002b90  8c 0d 08 d4 18 e7 66 6f  75 6e 64 25 8c 73 65 6c  |......found%.sel|
00002ba0  65 63 74 69 6f 6e 25 3d  b9 0d 08 de 17 66 6f 75  |ection%=.....fou|
00002bb0  6e 64 25 3d b9 3a 72 65  6d 6f 76 65 25 3d 6c 25  |nd%=.:remove%=l%|
00002bc0  0d 08 e8 10 cc 3a 6f 64  64 74 79 70 65 25 3d b9  |.....:oddtype%=.|
00002bd0  0d 08 f2 05 cd 0d 08 fc  31 cd 3a ed 3a e7 28 ac  |........1.:.:.(.|
00002be0  66 6f 75 6e 64 25 84 74  65 6d 70 6f 72 61 72 79  |found%.temporary|
00002bf0  73 65 6c 65 63 74 25 29  80 73 65 6c 65 63 74 75  |select%).selectu|
00002c00  6e 64 65 72 25 8c 0d 09  06 42 e3 6c 25 3d 30 b8  |nder%....B.l%=0.|
00002c10  21 6e 6f 61 70 70 73 25  3a e7 78 79 30 25 3f 6c  |!noapps%:.xy0%?l|
00002c20  25 3d 6d 65 6e 75 78 25  80 78 79 31 25 3f 6c 25  |%=menux%.xy1%?l%|
00002c30  3d 6d 65 6e 75 79 25 80  62 61 63 6b 64 72 6f 70  |=menuy%.backdrop|
00002c40  25 3f 6c 25 3d 21 41 8c  0d 09 10 1b e7 74 79 70  |%?l%=!A......typ|
00002c50  65 25 3f 6c 25 3c 34 84  74 79 70 65 25 3f 6c 25  |e%?l%<4.type%?l%|
00002c60  3d 37 8c 0d 09 1a 17 66  6f 75 6e 64 25 3d b9 3a  |=7.....found%=.:|
00002c70  72 65 6d 6f 76 65 25 3d  6c 25 0d 09 24 10 cc 3a  |remove%=l%..$..:|
00002c80  6f 64 64 74 79 70 65 25  3d b9 0d 09 2e 05 cd 0d  |oddtype%=.......|
00002c90  09 38 10 cd 3a ed 3a e7  66 6f 75 6e 64 25 8c 0d  |.8..:.:.found%..|
00002ca0  09 42 16 e7 74 65 6d 70  6f 72 61 72 79 73 65 6c  |.B..temporarysel|
00002cb0  65 63 74 25 8c 0d 09 4c  21 e3 6c 25 3d 30 b8 21  |ect%...L!.l%=0.!|
00002cc0  6e 6f 61 70 70 73 25 3a  e7 73 65 6c 65 63 74 25  |noapps%:.select%|
00002cd0  3f 6c 25 3d 31 8c 0d 09  56 24 73 65 6c 65 63 74  |?l%=1...V$select|
00002ce0  25 3f 6c 25 3d 30 3a f2  53 28 78 79 30 25 3f 6c  |%?l%=0:.S(xy0%?l|
00002cf0  25 2c 78 79 31 25 3f 6c  25 29 0d 09 60 07 cd 3a  |%,xy1%?l%)..`..:|
00002d00  ed 0d 09 6a 48 cd 3a 73  65 6c 65 63 74 25 3f 72  |...jH.:select%?r|
00002d10  65 6d 6f 76 65 25 3d 31  3a 74 65 6d 70 6f 72 61  |emove%=1:tempora|
00002d20  72 79 73 65 6c 65 63 74  25 3d b9 3a f2 53 28 78  |ryselect%=.:.S(x|
00002d30  79 30 25 3f 72 65 6d 6f  76 65 25 2c 78 79 31 25  |y0%?remove%,xy1%|
00002d40  3f 72 65 6d 6f 76 65 25  29 0d 09 74 05 cd 0d 09  |?remove%)..t....|
00002d50  7e 05 cd 0d 09 88 05 cd  0d 09 92 cd cd 3a f2 4d  |~............:.M|
00002d60  28 37 2c 36 2c 21 41 3d  30 29 3a f2 4d 28 38 2c  |(7,6,!A=0):.M(8,|
00002d70  31 30 2c 74 79 70 65 25  3f 72 65 6d 6f 76 65 25  |10,type%?remove%|
00002d80  3e 3d 34 29 3a f2 4d 28  38 2c 31 31 2c 74 79 70  |>=4):.M(8,11,typ|
00002d90  65 25 3f 72 65 6d 6f 76  65 25 3e 3d 34 29 3a f2  |e%?remove%>=4):.|
00002da0  4d 28 38 2c 31 32 2c 74  79 70 65 25 3f 72 65 6d  |M(8,12,type%?rem|
00002db0  6f 76 65 25 3e 34 29 3a  f2 4d 28 38 2c 31 33 2c  |ove%>4):.M(8,13,|
00002dc0  28 74 79 70 65 25 3f 72  65 6d 6f 76 65 25 3d 32  |(type%?remove%=2|
00002dd0  84 74 79 70 65 25 3f 72  65 6d 6f 76 65 25 3e 3d  |.type%?remove%>=|
00002de0  34 29 80 74 79 70 65 25  3f 6c 25 3c 37 29 3a f2  |4).type%?l%<7):.|
00002df0  4d 28 38 2c 31 34 2c 28  74 79 70 65 25 3f 72 65  |M(8,14,(type%?re|
00002e00  6d 6f 76 65 25 3d 32 84  74 79 70 65 25 3f 72 65  |move%=2.type%?re|
00002e10  6d 6f 76 65 25 3e 3d 34  29 80 74 79 70 65 25 3f  |move%>=4).type%?|
00002e20  6c 25 3c 37 29 0d 09 9c  ee f2 4d 28 38 2c 31 35  |l%<7).....M(8,15|
00002e30  2c 28 74 79 70 65 25 3f  72 65 6d 6f 76 65 25 3d  |,(type%?remove%=|
00002e40  32 84 74 79 70 65 25 3f  72 65 6d 6f 76 65 25 3e  |2.type%?remove%>|
00002e50  3d 34 29 80 74 79 70 65  25 3f 6c 25 3c 37 29 3a  |=4).type%?l%<7):|
00002e60  f2 4d 28 38 2c 35 2c 31  29 3a f2 71 79 3a f2 47  |.M(8,5,1):.qy:.G|
00002e70  28 38 2c 31 30 2c 64 72  61 67 6f 6e 74 6f 25 3f  |(8,10,dragonto%?|
00002e80  72 65 6d 6f 76 65 25 3d  31 29 3a f2 47 28 31 33  |remove%=1):.G(13|
00002e90  2c 30 2c 28 66 69 6c 65  72 6f 70 74 69 6f 6e 73  |,0,(fileroptions|
00002ea0  25 80 32 29 81 32 29 3a  f2 47 28 31 33 2c 31 2c  |%.2).2):.G(13,1,|
00002eb0  28 66 69 6c 65 72 6f 70  74 69 6f 6e 73 25 80 31  |(fileroptions%.1|
00002ec0  29 29 3a f2 47 28 31 33  2c 32 2c 28 66 69 6c 65  |)):.G(13,2,(file|
00002ed0  72 6f 70 74 69 6f 6e 73  25 80 34 29 81 34 29 3a  |roptions%.4).4):|
00002ee0  f2 47 28 31 33 2c 33 2c  28 66 69 6c 65 72 6f 70  |.G(13,3,(filerop|
00002ef0  74 69 6f 6e 73 25 80 38  29 81 38 29 3a 3f 6e 65  |tions%.8).8):?ne|
00002f00  77 64 69 72 62 75 66 25  3d 30 3a e7 66 6f 75 6e  |wdirbuf%=0:.foun|
00002f10  64 25 8c 0d 09 a6 24 f2  4d 28 37 2c 31 2c 30 29  |d%....$.M(7,1,0)|
00002f20  3a f2 4d 28 37 2c 33 2c  30 29 3a e7 73 65 6c 65  |:.M(7,3,0):.sele|
00002f30  63 74 69 6f 6e 25 8c 0d  09 b0 51 f2 61 28 38 2c  |ction%....Q.a(8,|
00002f40  22 53 65 6c 65 63 74 69  6f 6e 22 29 3a f2 56 28  |"Selection"):.V(|
00002f50  37 2c 31 2c 22 53 65 6c  65 63 74 69 6f 6e 22 29  |7,1,"Selection")|
00002f60  3a f2 4d 28 38 2c 30 2c  31 29 3a f2 4d 28 38 2c  |:.M(8,0,1):.M(8,|
00002f70  31 2c 31 29 3a f2 4d 28  38 2c 36 2c 31 29 3a f2  |1,1):.M(8,6,1):.|
00002f80  4d 28 37 2c 33 2c 30 29  0d 09 ba 1c cc 3a e7 41  |M(7,3,0).....:.A|
00002f90  25 28 72 65 6d 6f 76 65  25 29 8c f2 4d 28 38 2c  |%(remove%)..M(8,|
00002fa0  35 2c 30 29 0d 09 c4 b7  f2 5a 28 a4 41 28 6c 65  |5,0).....Z(.A(le|
00002fb0  61 66 25 2b 31 32 2a 72  65 6d 6f 76 65 25 29 2c  |af%+12*remove%),|
00002fc0  72 65 6e 61 6d 65 62 75  66 25 29 3a 21 62 6c 6f  |renamebuf%):!blo|
00002fd0  63 6b 25 3d 73 61 76 65  77 69 6e 64 6f 77 25 3a  |ck%=savewindow%:|
00002fe0  62 6c 6f 63 6b 25 21 34  3d 31 3a c8 99 77 69 6d  |block%!4=1:..wim|
00002ff0  70 67 69 73 25 2c 2c 62  6c 6f 63 6b 25 3a f2 5a  |pgis%,,block%:.Z|
00003000  28 a4 41 28 6c 65 61 66  25 2b 31 32 2a 72 65 6d  |(.A(leaf%+12*rem|
00003010  6f 76 65 25 29 2c 62 6c  6f 63 6b 25 21 32 38 29  |ove%),block%!28)|
00003020  3a 62 6c 6f 63 6b 25 21  34 3d 32 3a c8 99 77 69  |:block%!4=2:..wi|
00003030  6d 70 67 69 73 25 2c 2c  62 6c 6f 63 6b 25 3a e7  |mpgis%,,block%:.|
00003040  a4 50 28 a4 41 28 73 70  72 69 74 65 25 2b 31 32  |.P(.A(sprite%+12|
00003050  2a 72 65 6d 6f 76 65 25  29 29 8c 0d 09 ce 2c f2  |*remove%))....,.|
00003060  5a 28 22 53 22 2b a4 41  28 73 70 72 69 74 65 25  |Z("S"+.A(sprite%|
00003070  2b 31 32 2a 72 65 6d 6f  76 65 25 29 2c 62 6c 6f  |+12*remove%),blo|
00003080  63 6b 25 21 33 32 29 0d  09 d8 17 cc 3a e7 74 79  |ck%!32).....:.ty|
00003090  70 65 25 3f 72 65 6d 6f  76 65 25 3d 33 8c 0d 09  |pe%?remove%=3...|
000030a0  e2 20 f2 5a 28 22 53 61  70 70 6c 69 63 61 74 69  |. .Z("Sapplicati|
000030b0  6f 6e 22 2c 62 6c 6f 63  6b 25 21 33 32 29 0d 09  |on",block%!32)..|
000030c0  ec 1f cc 3a f2 5a 28 22  53 66 69 6c 65 5f 78 78  |...:.Z("Sfile_xx|
000030d0  78 22 2c 62 6c 6f 63 6b  25 21 33 32 29 0d 09 f6  |x",block%!32)...|
000030e0  05 cd 0d 0a 00 44 cd 3a  f2 4d 28 38 2c 30 2c 30  |.....D.:.M(8,0,0|
000030f0  29 3a f2 4d 28 38 2c 31  2c 30 29 3a f2 4d 28 38  |):.M(8,1,0):.M(8|
00003100  2c 36 2c 30 29 3a 62 61  63 6b 64 72 6f 70 66 6c  |,6,0):backdropfl|
00003110  61 67 25 3d a3 3a c8 8e  74 79 70 65 25 3f 72 65  |ag%=.:..type%?re|
00003120  6d 6f 76 65 25 ca 0d 0a  0a 3d c9 31 3a f2 61 28  |move%....=.1:.a(|
00003130  38 2c 22 46 69 6c 65 22  29 3a f2 56 28 37 2c 31  |8,"File"):.V(7,1|
00003140  2c 22 46 69 6c 65 20 27  22 2b a4 41 28 6c 65 61  |,"File '"+.A(lea|
00003150  66 25 2b 72 65 6d 6f 76  65 25 2a 31 32 29 2b 22  |f%+remove%*12)+"|
00003160  27 22 29 0d 0a 14 51 c9  37 3a 62 61 63 6b 64 72  |'")...Q.7:backdr|
00003170  6f 70 66 6c 61 67 25 3d  b9 3a f2 61 28 38 2c 22  |opflag%=.:.a(8,"|
00003180  42 61 63 6b 64 72 6f 70  22 29 3a f2 56 28 37 2c  |Backdrop"):.V(7,|
00003190  31 2c 22 42 64 70 2e 20  27 22 2b a4 41 28 6c 65  |1,"Bdp. '"+.A(le|
000031a0  61 66 25 2b 72 65 6d 6f  76 65 25 2a 31 32 29 2b  |af%+remove%*12)+|
000031b0  22 27 22 29 0d 0a 1e 42  c9 32 3a f2 61 28 38 2c  |"'")...B.2:.a(8,|
000031c0  22 44 69 72 65 63 74 6f  72 79 22 29 3a f2 56 28  |"Directory"):.V(|
000031d0  37 2c 31 2c 22 44 69 72  2e 20 27 22 2b a4 41 28  |7,1,"Dir. '"+.A(|
000031e0  6c 65 61 66 25 2b 72 65  6d 6f 76 65 25 2a 31 32  |leaf%+remove%*12|
000031f0  29 2b 22 27 22 29 0d 0a  28 44 c9 33 3a f2 61 28  |)+"'")..(D.3:.a(|
00003200  38 2c 22 41 70 70 6c 69  63 61 74 69 6f 6e 22 29  |8,"Application")|
00003210  3a f2 56 28 37 2c 31 2c  22 41 70 70 2e 20 27 22  |:.V(7,1,"App. '"|
00003220  2b a4 41 28 6c 65 61 66  25 2b 72 65 6d 6f 76 65  |+.A(leaf%+remove|
00003230  25 2a 31 32 29 2b 22 27  22 29 0d 0a 32 05 cb 0d  |%*12)+"'")..2...|
00003240  0a 3c 15 cd 3a e7 62 61  63 6b 64 72 6f 70 66 6c  |.<..:.backdropfl|
00003250  61 67 25 8c 0d 0a 46 2d  e3 6c 25 3d 30 b8 31 35  |ag%...F-.l%=0.15|
00003260  3a f2 4d 28 38 2c 6c 25  2c b9 29 3a ed 3a f2 4d  |:.M(8,l%,.):.:.M|
00003270  28 38 2c 31 2c a3 29 3a  f2 4d 28 38 2c 32 2c a3  |(8,1,.):.M(8,2,.|
00003280  29 0d 0a 50 7c cc 3a 68  6f 74 62 75 66 66 65 72  |)..P|.:hotbuffer|
00003290  25 3f 30 3d 28 68 6f 74  6b 65 79 73 25 21 28 72  |%?0=(hotkeys%!(r|
000032a0  65 6d 6f 76 65 25 2a 34  29 29 2b 31 33 3a 68 6f  |emove%*4))+13:ho|
000032b0  74 62 75 66 66 65 72 25  3f 31 3d 30 3a f2 5a 28  |tbuffer%?1=0:.Z(|
000032c0  5a 24 28 72 65 6d 6f 76  65 25 29 2c 70 72 65 62  |Z$(remove%),preb|
000032d0  75 66 66 65 72 25 29 3a  f2 5a 28 4d 24 28 72 65  |uffer%):.Z(M$(re|
000032e0  6d 6f 76 65 25 29 2c 70  6f 73 74 62 75 66 66 65  |move%),postbuffe|
000032f0  72 25 29 3a f2 4d 28 37  2c 33 2c a3 29 0d 0a 5a  |r%):.M(7,3,.)..Z|
00003300  05 cd 0d 0a 64 41 cc 3a  f2 4d 28 37 2c 33 2c b9  |....dA.:.M(7,3,.|
00003310  29 3a f2 56 28 37 2c 31  2c 22 46 69 6c 65 20 27  |):.V(7,1,"File '|
00003320  27 22 29 3a f2 4d 28 37  2c 31 2c b9 29 3a e3 6c  |'"):.M(7,1,.):.l|
00003330  25 3d 30 b8 31 35 3a f2  4d 28 38 2c 6c 25 2c b9  |%=0.15:.M(8,l%,.|
00003340  29 3a ed 0d 0a 6e 10 cd  3a e7 6f 64 64 74 79 70  |):...n..:.oddtyp|
00003350  65 25 8c 0d 0a 78 19 e3  6c 25 3d 30 b8 34 3a f2  |e%...x..l%=0.4:.|
00003360  4d 28 31 30 2c 6c 25 2c  b9 29 3a ed 0d 0a 82 22  |M(10,l%,.):...."|
00003370  cd 3a e7 6d 6f 75 73 65  79 25 3c 31 32 38 8c 6d  |.:.mousey%<128.m|
00003380  6f 75 73 65 79 25 3d 39  36 2b 34 34 2a 38 0d 0a  |ousey%=96+44*8..|
00003390  8c 48 c8 99 77 69 6d 70  63 72 65 61 74 65 6d 65  |.H..wimpcreateme|
000033a0  6e 75 25 2c 30 2c 21 28  6d 65 6e 75 62 6c 6f 63  |nu%,0,!(menubloc|
000033b0  6b 25 2b 28 6d 65 6e 75  6e 75 6d 25 3c 3c 32 29  |k%+(menunum%<<2)|
000033c0  29 2c 6d 6f 75 73 65 78  25 2d 36 34 2c 6d 6f 75  |),mousex%-64,mou|
000033d0  73 65 79 25 3a e1 0d 0a  96 f5 dd f2 74 3a ea 6f  |sey%:.......t:.o|
000033e0  78 77 69 64 25 2c 6f 79  77 69 64 25 3a 6f 78 77  |xwid%,oywid%:oxw|
000033f0  69 64 25 3d 21 78 77 69  64 25 3a 6f 79 77 69 64  |id%=!xwid%:oywid|
00003400  25 3d 21 79 77 69 64 25  3a 21 62 6c 6f 63 6b 25  |%=!ywid%:!block%|
00003410  3d 31 31 3a 62 6c 6f 63  6b 25 21 34 3d 31 32 3a  |=11:block%!4=12:|
00003420  62 6c 6f 63 6b 25 21 38  3d 34 3a 62 6c 6f 63 6b  |block%!8=4:block|
00003430  25 21 31 32 3d 35 3a 62  6c 6f 63 6b 25 21 31 36  |%!12=5:block%!16|
00003440  3d 2d 31 3a c8 99 34 39  2c 62 6c 6f 63 6b 25 2c  |=-1:..49,block%,|
00003450  62 6c 6f 63 6b 32 25 3a  78 65 69 67 25 3d 62 6c  |block2%:xeig%=bl|
00003460  6f 63 6b 32 25 21 38 3a  79 65 69 67 25 3d 62 6c  |ock2%!8:yeig%=bl|
00003470  6f 63 6b 32 25 21 31 32  3a 21 78 6d 61 78 25 3d  |ock2%!12:!xmax%=|
00003480  28 28 28 21 62 6c 6f 63  6b 32 25 29 2b 31 29 3c  |(((!block2%)+1)<|
00003490  3c 78 65 69 67 25 29 2d  31 3a 21 79 6d 61 78 25  |<xeig%)-1:!ymax%|
000034a0  3d 28 28 28 62 6c 6f 63  6b 32 25 21 34 29 2b 31  |=(((block2%!4)+1|
000034b0  29 3c 3c 79 65 69 67 25  29 2d 31 3a 21 78 70 69  |)<<yeig%)-1:!xpi|
000034c0  78 25 3d 31 3c 3c 78 65  69 67 25 0d 0a a0 ed 21  |x%=1<<xeig%....!|
000034d0  79 70 69 78 25 3d 31 3c  3c 79 65 69 67 25 3a 21  |ypix%=1<<yeig%:!|
000034e0  62 6c 6f 63 6b 25 3d 62  61 63 6b 67 25 3a c8 99  |block%=backg%:..|
000034f0  77 69 6d 70 63 6c 6f 73  65 77 69 6e 64 6f 77 25  |wimpclosewindow%|
00003500  2c 2c 62 6c 6f 63 6b 25  3a 62 6c 6f 63 6b 25 21  |,,block%:block%!|
00003510  30 3d 30 3a 62 6c 6f 63  6b 25 21 34 3d 21 79 70  |0=0:block%!4=!yp|
00003520  69 78 25 3a 62 6c 6f 63  6b 25 21 38 3d 21 78 6d  |ix%:block%!8=!xm|
00003530  61 78 25 2b 21 78 70 69  78 25 2a 32 3a 62 6c 6f  |ax%+!xpix%*2:blo|
00003540  63 6b 25 21 31 32 3d 21  79 6d 61 78 25 3a c8 99  |ck%!12=!ymax%:..|
00003550  77 69 6d 70 73 65 74 65  78 74 65 6e 74 25 2c 62  |wimpsetextent%,b|
00003560  61 63 6b 67 25 2c 62 6c  6f 63 6b 25 3a 21 62 6c  |ackg%,block%:!bl|
00003570  6f 63 6b 25 3d 62 61 63  6b 67 25 3a 62 6c 6f 63  |ock%=backg%:bloc|
00003580  6b 25 21 34 3d 2d 21 78  70 69 78 25 3a 62 6c 6f  |k%!4=-!xpix%:blo|
00003590  63 6b 25 21 38 3d 31 33  33 2b 21 79 70 69 78 25  |ck%!8=133+!ypix%|
000035a0  3a 62 6c 6f 63 6b 25 21  31 32 3d 21 78 6d 61 78  |:block%!12=!xmax|
000035b0  25 2b 21 78 70 69 78 25  0d 0a aa eb 62 6c 6f 63  |%+!xpix%....bloc|
000035c0  6b 25 21 31 36 3d 21 79  6d 61 78 25 2b 21 79 70  |k%!16=!ymax%+!yp|
000035d0  69 78 25 3a 62 6c 6f 63  6b 25 21 32 30 3d 30 3a  |ix%:block%!20=0:|
000035e0  62 6c 6f 63 6b 25 21 32  34 3d 30 3a 62 6c 6f 63  |block%!24=0:bloc|
000035f0  6b 25 21 32 38 3d 2d 32  3a c8 99 77 69 6d 70 6f  |k%!28=-2:..wimpo|
00003600  70 65 6e 77 69 6e 64 6f  77 25 2c 2c 62 6c 6f 63  |penwindow%,,bloc|
00003610  6b 25 3a c8 99 77 69 6d  70 72 65 61 64 70 69 78  |k%:..wimpreadpix|
00003620  74 72 61 6e 73 25 2c 32  39 30 2c 31 2c 22 6c 61  |trans%,290,1,"la|
00003630  72 67 65 70 6c 69 6e 74  22 2c 2c 2c 2c 73 70 72  |rgeplint",,,,spr|
00003640  62 6c 6f 63 6b 25 2c 73  70 72 62 6c 6f 63 6b 25  |block%,sprblock%|
00003650  2b 31 36 3a 21 78 6d 75  6c 74 25 3d 21 73 70 72  |+16:!xmult%=!spr|
00003660  62 6c 6f 63 6b 25 3a 21  79 6d 75 6c 74 25 3d 73  |block%:!ymult%=s|
00003670  70 72 62 6c 6f 63 6b 25  21 34 2a 32 3a 21 78 64  |prblock%!4*2:!xd|
00003680  69 76 25 3d 73 70 72 62  6c 6f 63 6b 25 21 38 3a  |iv%=sprblock%!8:|
00003690  21 79 64 69 76 25 3d 73  70 72 62 6c 6f 63 6b 25  |!ydiv%=sprblock%|
000036a0  21 31 32 0d 0a b4 e4 21  62 61 72 68 65 69 67 68  |!12....!barheigh|
000036b0  74 25 3d 33 32 2a 21 79  70 69 78 25 2a 21 79 6d  |t%=32*!ypix%*!ym|
000036c0  75 6c 74 25 2f 21 79 64  69 76 25 3a 21 78 77 69  |ult%/!ydiv%:!xwi|
000036d0  64 25 3d 28 21 78 6d 61  78 25 2b 31 29 2a 21 78  |d%=(!xmax%+1)*!x|
000036e0  64 69 76 25 2f 21 78 6d  75 6c 74 25 2f 38 30 2f  |div%/!xmult%/80/|
000036f0  21 78 70 69 78 25 3a 21  79 77 69 64 25 3d 28 21  |!xpix%:!ywid%=(!|
00003700  79 6d 61 78 25 2b 31 2d  21 62 61 72 68 65 69 67  |ymax%+1-!barheig|
00003710  68 74 25 29 2a 21 79 64  69 76 25 2f 21 79 6d 75  |ht%)*!ydiv%/!ymu|
00003720  6c 74 25 2f 33 32 2f 21  79 70 69 78 25 3a 21 78  |lt%/32/!ypix%:!x|
00003730  6d 61 78 32 25 3d 28 28  21 78 6d 61 78 25 2b 31  |max2%=((!xmax%+1|
00003740  29 81 28 21 78 77 69 64  25 2a 38 30 29 29 2a 28  |).(!xwid%*80))*(|
00003750  21 78 77 69 64 25 2a 38  30 29 3a 21 79 6d 61 78  |!xwid%*80):!ymax|
00003760  32 25 3d 28 28 21 79 6d  61 78 25 2b 31 29 81 28  |2%=((!ymax%+1).(|
00003770  21 79 77 69 64 25 2a 33  32 29 29 2a 28 21 79 77  |!ywid%*32))*(!yw|
00003780  69 64 25 2a 33 32 29 0d  0a be 25 e7 21 78 77 69  |id%*32)...%.!xwi|
00003790  64 25 3c 3e 6f 78 77 69  64 25 84 21 79 77 69 64  |d%<>oxwid%.!ywid|
000037a0  25 3c 3e 6f 79 77 69 64  25 8c f2 51 0d 0a c8 08  |%<>oywid%..Q....|
000037b0  f2 76 3a e1 0d 0a d2 9e  dd f2 4f 5f 3a ea 77 68  |.v:.......O_:.wh|
000037c0  61 6e 64 6c 65 25 2c 74  68 61 6e 64 6c 65 25 2c  |andle%,thandle%,|
000037d0  63 68 61 6e 64 6c 65 25  2c 6c 25 2c 66 6f 75 6e  |chandle%,l%,foun|
000037e0  64 25 2c 68 24 3a c8 99  26 34 30 30 64 33 2c 2c  |d%,h$:..&400d3,,|
000037f0  62 6c 6f 63 6b 25 3a 63  68 61 6e 64 6c 65 25 3d  |block%:chandle%=|
00003800  21 62 6c 6f 63 6b 25 3a  c8 99 77 69 6d 70 67 65  |!block%:..wimpge|
00003810  74 70 6f 69 6e 74 65 72  69 6e 66 6f 25 2c 2c 62  |tpointerinfo%,,b|
00003820  6c 6f 63 6b 25 3a 77 68  61 6e 64 6c 65 25 3d 62  |lock%:whandle%=b|
00003830  6c 6f 63 6b 25 21 31 32  3a e7 77 68 61 6e 64 6c  |lock%!12:.whandl|
00003840  65 25 3d 2d 31 84 77 68  61 6e 64 6c 65 25 3d 2d  |e%=-1.whandle%=-|
00003850  32 8c 0d 0a dc 14 68 69  64 69 6e 67 68 61 6e 64  |2.....hidinghand|
00003860  6c 65 25 3d 2d 31 0d 0a  e6 49 cc 3a 62 6c 6f 63  |le%=-1...I.:bloc|
00003870  6b 25 21 30 3d 30 3a 62  6c 6f 63 6b 25 21 31 32  |k%!0=0:block%!12|
00003880  3d 30 3a c8 99 77 69 6d  70 73 6d 25 2c 31 39 2c  |=0:..wimpsm%,19,|
00003890  62 6c 6f 63 6b 25 2c 77  68 61 6e 64 6c 65 25 b8  |block%,whandle%.|
000038a0  2c 2c 68 69 64 69 6e 67  68 61 6e 64 6c 65 25 0d  |,,hidinghandle%.|
000038b0  0a f0 40 cd 3a e7 68 69  64 69 6e 67 68 61 6e 64  |..@.:.hidinghand|
000038c0  6c 65 25 3c 3e 74 61 73  6b 25 80 68 69 64 69 6e  |le%<>task%.hidin|
000038d0  67 68 61 6e 64 6c 65 25  3c 3e 2d 31 80 68 69 64  |ghandle%<>-1.hid|
000038e0  69 6e 67 68 61 6e 64 6c  65 25 3c 3e 2d 32 8c 0d  |inghandle%<>-2..|
000038f0  0a fa 7f 77 68 61 6e 64  6c 65 25 3d a4 4d 28 62  |...whandle%=.M(b|
00003900  61 63 6b 67 25 29 3a c8  95 77 68 61 6e 64 6c 65  |ackg%):..whandle|
00003910  25 3c 3e 2d 31 3a 62 6c  6f 63 6b 25 21 30 3d 32  |%<>-1:block%!0=2|
00003920  30 3a 62 6c 6f 63 6b 25  21 31 32 3d 30 3a c8 99  |0:block%!12=0:..|
00003930  77 69 6d 70 73 6d 25 2c  31 39 2c 62 6c 6f 63 6b  |wimpsm%,19,block|
00003940  25 2c 77 68 61 6e 64 6c  65 25 b8 2c 2c 74 68 61  |%,whandle%.,,tha|
00003950  6e 64 6c 65 25 3a e7 74  68 61 6e 64 6c 65 25 3d  |ndle%:.thandle%=|
00003960  68 69 64 69 6e 67 68 61  6e 64 6c 65 25 8c 0d 0b  |hidinghandle%...|
00003970  04 2f e7 77 68 61 6e 64  6c 65 25 3d 63 68 61 6e  |./.whandle%=chan|
00003980  64 6c 65 25 8c c8 99 26  34 30 30 64 32 2c 2d 31  |dle%...&400d2,-1|
00003990  2c 2d 31 2c 30 2c 30 2c  2d 31 2c 2d 31 0d 0b 0e  |,-1,0,0,-1,-1...|
000039a0  6e 62 6c 6f 63 6b 25 21  30 3d 77 68 61 6e 64 6c  |nblock%!0=whandl|
000039b0  65 25 3a c8 99 77 69 6d  70 67 77 73 25 2c 2c 62  |e%:..wimpgws%,,b|
000039c0  6c 6f 63 6b 25 3a 77 68  61 6e 64 6c 65 25 3d 62  |lock%:whandle%=b|
000039d0  6c 6f 63 6b 25 21 32 38  3a 62 6c 6f 63 6b 25 21  |lock%!28:block%!|
000039e0  32 38 3d 64 75 6d 6d 79  77 69 6e 64 6f 77 25 3a  |28=dummywindow%:|
000039f0  c8 99 77 69 6d 70 73 6d  25 2c 32 2c 62 6c 6f 63  |..wimpsm%,2,bloc|
00003a00  6b 25 2c 74 68 61 6e 64  6c 65 25 0d 0b 18 1b cc  |k%,thandle%.....|
00003a10  3a 77 68 61 6e 64 6c 65  25 3d a4 4d 28 77 68 61  |:whandle%=.M(wha|
00003a20  6e 64 6c 65 25 29 0d 0b  22 1e cd 3a ce 3a 66 6f  |ndle%).."..:.:fo|
00003a30  75 6e 64 25 3d a3 3a e7  21 6e 6f 61 70 70 73 25  |und%=.:.!noapps%|
00003a40  3e 2d 31 8c 0d 0b 2c 41  e3 6c 25 3d 30 b8 21 6e  |>-1...,A.l%=0.!n|
00003a50  6f 61 70 70 73 25 3a e7  28 74 79 70 65 25 3f 6c  |oapps%:.(type%?l|
00003a60  25 29 3d 35 80 41 24 28  6c 25 29 3d c3 28 68 69  |%)=5.A$(l%)=.(hi|
00003a70  64 69 6e 67 68 61 6e 64  6c 65 25 29 8c 66 6f 75  |dinghandle%).fou|
00003a80  6e 64 25 3d b9 0d 0b 36  05 ed 0d 0b 40 0f cd 3a  |nd%=...6....@..:|
00003a90  e7 ac 66 6f 75 6e 64 25  8c 0d 0b 4a 3f c8 99 26  |..found%...J?..&|
00003aa0  34 32 36 38 30 2c 68 69  64 69 6e 67 68 61 6e 64  |42680,hidinghand|
00003ab0  6c 65 25 b8 68 24 3a f2  44 28 2d 32 2c c3 28 68  |le%.h$:.D(-2,.(h|
00003ac0  69 64 69 6e 67 68 61 6e  64 6c 65 25 29 2c c0 68  |idinghandle%),.h|
00003ad0  24 2c 31 30 29 2c a3 29  0d 0b 54 0f cd 3a 68 69  |$,10),.)..T..:hi|
00003ae0  64 69 6e 67 25 3d a3 0d  0b 5e 07 cd 3a e1 0d 0b  |ding%=...^..:...|
00003af0  68 e6 dd f2 64 28 61 70  70 25 29 3a ea 6c 25 2c  |h...d(app%):.l%,|
00003b00  6e 75 6d 62 65 72 25 2c  77 68 61 6e 64 6c 65 25  |number%,whandle%|
00003b10  2c 74 68 61 6e 64 6c 65  25 3a 61 70 70 74 61 73  |,thandle%:apptas|
00003b20  6b 25 3d a0 28 41 24 28  61 70 70 25 29 29 3a 77  |k%=.(A$(app%)):w|
00003b30  68 61 6e 64 6c 65 25 3d  a4 4d 28 64 75 6d 6d 79  |handle%=.M(dummy|
00003b40  77 69 6e 64 6f 77 32 25  29 3a c8 95 77 68 61 6e  |window2%):..whan|
00003b50  64 6c 65 25 3c 3e 64 75  6d 6d 79 77 69 6e 64 6f  |dle%<>dummywindo|
00003b60  77 25 80 77 68 61 6e 64  6c 65 25 3c 3e 2d 31 80  |w%.whandle%<>-1.|
00003b70  77 68 61 6e 64 6c 65 25  3c 3e 62 61 63 6b 67 25  |whandle%<>backg%|
00003b80  3a 62 6c 6f 63 6b 25 21  30 3d 32 30 3a 62 6c 6f  |:block%!0=20:blo|
00003b90  63 6b 25 21 31 32 3d 30  3a c8 99 77 69 6d 70 73  |ck%!12=0:..wimps|
00003ba0  6d 25 2c 31 39 2c 62 6c  6f 63 6b 25 2c 77 68 61  |m%,19,block%,wha|
00003bb0  6e 64 6c 65 25 b8 2c 2c  74 68 61 6e 64 6c 65 25  |ndle%.,,thandle%|
00003bc0  3a e7 74 68 61 6e 64 6c  65 25 3d 61 70 70 74 61  |:.thandle%=appta|
00003bd0  73 6b 25 8c 0d 0b 72 64  62 6c 6f 63 6b 25 21 30  |sk%...rdblock%!0|
00003be0  3d 77 68 61 6e 64 6c 65  25 3a c8 99 77 69 6d 70  |=whandle%:..wimp|
00003bf0  67 77 73 25 2c 2c 62 6c  6f 63 6b 25 3a 77 68 61  |gws%,,block%:wha|
00003c00  6e 64 6c 65 25 3d 62 6c  6f 63 6b 25 21 32 38 3a  |ndle%=block%!28:|
00003c10  62 6c 6f 63 6b 25 21 32  38 3d 2d 31 3a c8 99 77  |block%!28=-1:..w|
00003c20  69 6d 70 73 6d 25 2c 32  2c 62 6c 6f 63 6b 25 2c  |impsm%,2,block%,|
00003c30  74 68 61 6e 64 6c 65 25  0d 0b 7c 1b cc 3a 77 68  |thandle%..|..:wh|
00003c40  61 6e 64 6c 65 25 3d a4  4d 28 77 68 61 6e 64 6c  |andle%=.M(whandl|
00003c50  65 25 29 0d 0b 86 09 cd  3a ce 3a e1 0d 0b 90 a3  |e%).....:.:.....|
00003c60  dd f2 73 5f 3a ea 74 61  73 6b 68 25 2c 70 6f 73  |..s_:.taskh%,pos|
00003c70  25 2c 6c 25 2c 6e 25 2c  57 24 2c 43 24 2c 65 24  |%,l%,n%,W$,C$,e$|
00003c80  2c 4d 79 24 3a 71 24 3d  a4 41 28 62 6c 6f 63 6b  |,My$:q$=.A(block|
00003c90  25 2b 34 34 29 3a 70 6f  73 25 3d 30 3a c8 95 a7  |%+44):pos%=0:...|
00003ca0  71 24 2c 22 2e 22 2c 70  6f 73 25 2b 31 29 3e 30  |q$,".",pos%+1)>0|
00003cb0  3a 70 6f 73 25 3d a7 71  24 2c 22 2e 22 2c 70 6f  |:pos%=.q$,".",po|
00003cc0  73 25 2b 31 29 3a ce 3a  71 24 3d c0 71 24 2c 70  |s%+1):.:q$=.q$,p|
00003cd0  6f 73 25 2d 31 29 3a e3  6c 25 3d 30 b8 21 6e 6f  |os%-1):.l%=0.!no|
00003ce0  61 70 70 73 25 3a e7 73  65 6c 65 63 74 25 3f 6c  |apps%:.select%?l|
00003cf0  25 3d 31 80 74 79 70 65  25 3f 6c 25 3c 34 8c 0d  |%=1.type%?l%<4..|
00003d00  0b 9a b4 70 6f 73 25 3d  30 3a c8 95 a7 41 24 28  |...pos%=0:...A$(|
00003d10  6c 25 29 2c 22 2e 22 2c  70 6f 73 25 2b 31 29 3e  |l%),".",pos%+1)>|
00003d20  30 3a 70 6f 73 25 3d a7  41 24 28 6c 25 29 2c 22  |0:pos%=.A$(l%),"|
00003d30  2e 22 2c 70 6f 73 25 2b  31 29 3a ce 3a 43 24 3d  |.",pos%+1):.:C$=|
00003d40  c0 41 24 28 6c 25 29 2c  70 6f 73 25 2d 31 29 3a  |.A$(l%),pos%-1):|
00003d50  57 24 3d 22 22 3a e3 6e  25 3d 6c 25 b8 21 6e 6f  |W$="":.n%=l%.!no|
00003d60  61 70 70 73 25 3a 65 24  3d c1 41 24 28 6e 25 29  |apps%:e$=.A$(n%)|
00003d70  2c a9 43 24 2b 32 29 3a  e7 c0 41 24 28 6e 25 29  |,.C$+2):..A$(n%)|
00003d80  2c a9 43 24 2b 31 29 3d  43 24 2b 22 2e 22 80 a7  |,.C$+1)=C$+"."..|
00003d90  65 24 2c 22 2e 22 29 3d  30 80 a9 57 24 2b a9 65  |e$,".")=0..W$+.e|
00003da0  24 3c 32 35 30 80 73 65  6c 65 63 74 25 3f 6e 25  |$<250.select%?n%|
00003db0  3d 31 8c 0d 0b a4 2f 57  24 2b 3d 22 20 22 2b 65  |=1..../W$+=" "+e|
00003dc0  24 3a 73 65 6c 65 63 74  25 3f 6e 25 3d 30 3a f2  |$:select%?n%=0:.|
00003dd0  53 28 78 79 30 25 3f 6e  25 2c 78 79 31 25 3f 6e  |S(xy0%?n%,xy1%?n|
00003de0  25 29 0d 0b ae 79 cd 3a  ed 3a c8 99 26 34 30 30  |%)...y.:.:..&400|
00003df0  64 65 2c 22 46 69 6c 65  72 5f 41 63 74 69 6f 6e  |de,"Filer_Action|
00003e00  22 b8 74 61 73 6b 68 25  3a c8 99 26 34 30 66 38  |".taskh%:..&40f8|
00003e10  30 2c 74 61 73 6b 68 25  2c 43 24 3a c8 99 26 34  |0,taskh%,C$:..&4|
00003e20  30 66 38 31 2c 74 61 73  6b 68 25 2c c1 57 24 2c  |0f81,taskh%,.W$,|
00003e30  32 29 3a c8 99 26 34 30  66 38 32 2c 74 61 73 6b  |2):..&40f82,task|
00003e40  68 25 2c 30 2c 66 69 6c  65 72 6f 70 74 69 6f 6e  |h%,0,fileroption|
00003e50  73 25 2c 71 24 2c a9 71  24 2b 31 0d 0b b8 56 cd  |s%,q$,.q$+1...V.|
00003e60  3a ed 3a 62 6c 6f 63 6b  25 21 31 32 3d 62 6c 6f  |:.:block%!12=blo|
00003e70  63 6b 25 21 38 3a 62 6c  6f 63 6b 25 21 31 36 3d  |ck%!8:block%!16=|
00003e80  33 3a c8 99 77 69 6d 70  73 6d 25 2c 31 37 2c 62  |3:..wimpsm%,17,b|
00003e90  6c 6f 63 6b 25 2c 64 72  61 67 77 68 61 6e 64 6c  |lock%,dragwhandl|
00003ea0  65 25 2c 64 72 61 67 69  68 61 6e 64 6c 65 25 3a  |e%,dragihandle%:|
00003eb0  e1 0d 0b c2 82 dd f2 64  5f 28 70 74 72 25 29 3a  |.......d_(ptr%):|
00003ec0  ea 4f 24 2c 6c 25 2c 6e  25 2c 4e 24 2c 61 64 64  |.O$,l%,n%,N$,add|
00003ed0  72 25 2c 59 24 3a 4f 24  3d 22 22 3a c8 95 21 70  |r%,Y$:O$="":..!p|
00003ee0  74 72 25 3c 3e 2d 31 3a  4f 24 2b 3d c3 28 21 70  |tr%<>-1:O$+=.(!p|
00003ef0  74 72 25 29 2b 22 2c 22  3a 70 74 72 25 2b 3d 34  |tr%)+",":ptr%+=4|
00003f00  3a ce 3a 6e 25 3d 2d 31  3a e3 6c 25 3d 31 b8 75  |:.:n%=-1:.l%=1.u|
00003f10  63 6f 6d 6d 73 25 3a e7  6e 25 3d 2d 31 80 c0 53  |comms%:.n%=-1..S|
00003f20  24 28 6c 25 29 2c a9 4f  24 29 3d 4f 24 8c 6e 25  |$(l%),.O$)=O$.n%|
00003f30  3d 6c 25 0d 0b cc 27 ed  3a 4e 24 3d c1 53 24 28  |=l%...'.:N$=.S$(|
00003f40  6e 25 29 2c a9 4f 24 2b  31 29 3a f2 42 28 4e 24  |n%),.O$+1):.B(N$|
00003f50  29 3a e7 4e 24 3c 3e 22  22 8c 0d 0b d6 10 e7 a7  |):.N$<>"".......|
00003f60  4e 24 2c 22 2c 22 29 3e  30 8c 0d 0b e0 65 61 64  |N$,",")>0....ead|
00003f70  64 72 25 3d a0 28 c1 4e  24 2c a7 4e 24 2c 22 2c  |dr%=.(.N$,.N$,",|
00003f80  22 29 2b 31 29 29 3a 4e  24 3d c0 4e 24 2c a7 4e  |")+1)):N$=.N$,.N|
00003f90  24 2c 22 2c 22 29 2d 31  29 3a 59 24 3d a4 41 28  |$,",")-1):Y$=.A(|
00003fa0  61 64 64 72 25 29 3a c8  99 36 37 2c 59 24 2c 62  |addr%):..67,Y$,b|
00003fb0  6c 6f 63 6b 25 2c 32 30  34 38 2c 4e 24 2c a9 4e  |lock%,2048,N$,.N|
00003fc0  24 3a 4e 24 3d a4 41 28  62 6c 6f 63 6b 25 29 0d  |$:N$=.A(block%).|
00003fd0  0b ea 5b cd 3a ff 28 22  53 65 74 20 41 6c 69 61  |..[.:.("Set Alia|
00003fe0  73 24 54 65 6d 70 43 6f  6d 6d 61 6e 64 20 22 2b  |s$TempCommand "+|
00003ff0  4e 24 29 3a ff 28 22 57  69 6d 70 54 61 73 6b 20  |N$):.("WimpTask |
00004000  54 65 6d 70 43 6f 6d 6d  61 6e 64 22 29 3a ff 28  |TempCommand"):.(|
00004010  22 55 6e 73 65 74 20 41  6c 69 61 73 24 54 65 6d  |"Unset Alias$Tem|
00004020  70 43 6f 6d 6d 61 6e 64  22 29 0d 0b f4 07 cd 3a  |pCommand").....:|
00004030  e1 0d 0b fe bd dd f2 46  79 28 62 75 74 25 29 3a  |.......Fy(but%):|
00004040  ea 67 78 25 2c 67 79 25  2c 6c 25 2c 6e 25 2c 78  |.gx%,gy%,l%,n%,x|
00004050  25 2c 79 25 3a 67 78 25  3d 62 6c 6f 63 6b 25 21  |%,y%:gx%=block%!|
00004060  30 2b 21 78 70 69 78 25  3a 67 79 25 3d 62 6c 6f  |0+!xpix%:gy%=blo|
00004070  63 6b 25 21 34 2b 21 79  70 69 78 25 3a 78 25 3d  |ck%!4+!ypix%:x%=|
00004080  28 67 78 25 2d 21 78 70  69 78 25 29 2a 21 78 64  |(gx%-!xpix%)*!xd|
00004090  69 76 25 81 21 78 6d 75  6c 74 25 81 21 78 70 69  |iv%.!xmult%.!xpi|
000040a0  78 25 81 38 30 3a 79 25  3d 28 67 79 25 2d 21 79  |x%.80:y%=(gy%-!y|
000040b0  70 69 78 25 2d 21 62 61  72 68 65 69 67 68 74 25  |pix%-!barheight%|
000040c0  29 2a 21 79 64 69 76 25  81 21 79 6d 75 6c 74 25  |)*!ydiv%.!ymult%|
000040d0  81 21 79 70 69 78 25 81  33 32 3a 6e 25 3d 2d 31  |.!ypix%.32:n%=-1|
000040e0  3a e7 21 6e 6f 61 70 70  73 25 3e 2d 31 8c 0d 0c  |:.!noapps%>-1...|
000040f0  08 3a e3 6c 25 3d 30 b8  21 6e 6f 61 70 70 73 25  |.:.l%=0.!noapps%|
00004100  3a e7 78 79 30 25 3f 6c  25 3d 78 25 80 78 79 31  |:.xy0%?l%=x%.xy1|
00004110  25 3f 6c 25 3d 79 25 80  62 61 63 6b 64 72 6f 70  |%?l%=y%.backdrop|
00004120  25 3f 6c 25 3d 21 41 8c  0d 0c 12 09 6e 25 3d 6c  |%?l%=!A.....n%=l|
00004130  25 0d 0c 1c 07 cd 3a ed  0d 0c 26 0d cd 3a e7 6e  |%.....:...&..:.n|
00004140  25 3e 2d 31 8c 0d 0c 30  16 f2 46 4a 28 62 75 74  |%>-1...0..FJ(but|
00004150  25 2c 78 25 2c 79 25 2c  6e 25 29 0d 0c 3a 12 cc  |%,x%,y%,n%)..:..|
00004160  3a e7 28 62 75 74 25 80  34 29 3d 34 8c 0d 0c 44  |:.(but%.4)=4...D|
00004170  09 f2 65 28 30 29 0d 0c  4e 05 cd 0d 0c 58 07 cd  |..e(0)..N....X..|
00004180  3a e1 0d 0c 62 6b dd f2  74 79 3a ea 74 61 73 6b  |:...bk..ty:.task|
00004190  68 25 2c 41 24 2c 70 6f  73 25 3a 69 63 68 61 6e  |h%,A$,pos%:ichan|
000041a0  64 6c 65 25 3d 62 6c 6f  63 6b 25 21 32 30 3a 62  |dle%=block%!20:b|
000041b0  6c 6f 63 6b 25 21 36 34  3d 69 63 68 61 6e 64 6c  |lock%!64=ichandl|
000041c0  65 25 3a c8 99 77 69 6d  70 67 77 73 25 2c 2c 62  |e%:..wimpgws%,,b|
000041d0  6c 6f 63 6b 25 2b 36 34  3a e7 28 62 6c 6f 63 6b  |lock%+64:.(block|
000041e0  25 21 39 36 80 34 30 39  36 29 3d 30 8c 0d 0c 6c  |%!96.4096)=0...l|
000041f0  9e 62 6c 6f 63 6b 25 21  31 32 3d 62 6c 6f 63 6b  |.block%!12=block|
00004200  25 21 38 3a c8 99 26 34  30 30 65 37 2c 31 39 2c  |%!8:..&400e7,19,|
00004210  62 6c 6f 63 6b 25 2c 62  6c 6f 63 6b 25 21 34 3a  |block%,block%!4:|
00004220  64 24 3d a4 41 28 62 6c  6f 63 6b 25 2b 32 38 29  |d$=.A(block%+28)|
00004230  3a 69 63 74 61 73 6b 68  25 3d 62 6c 6f 63 6b 25  |:ictaskh%=block%|
00004240  21 32 34 3a 62 6c 6f 63  6b 25 21 31 36 3d 26 34  |!24:block%!16=&4|
00004250  30 30 63 63 3a 62 6c 6f  63 6b 25 21 32 34 3d 30  |00cc:block%!24=0|
00004260  3a c8 99 26 34 30 30 65  37 2c 31 38 2c 62 6c 6f  |:..&400e7,18,blo|
00004270  63 6b 25 2c 62 6c 6f 63  6b 25 21 32 30 3a 69 63  |ck%,block%!20:ic|
00004280  72 65 73 70 6f 6e 73 65  25 3d b9 0d 0c 76 13 cd  |response%=...v..|
00004290  3a e7 21 6e 6f 61 70 70  73 25 3e 2d 31 8c 0d 0c  |:.!noapps%>-1...|
000042a0  80 22 e3 6c 25 3d 21 6e  6f 61 70 70 73 25 b8 30  |.".l%=!noapps%.0|
000042b0  88 2d 31 3a e7 74 79 70  65 25 3f 6c 25 3d 36 8c  |.-1:.type%?l%=6.|
000042c0  0d 0c 8a 32 70 6f 73 25  3d a7 41 24 28 6c 25 29  |...2pos%=.A$(l%)|
000042d0  2c 22 20 22 29 3a e7 a0  c0 41 24 28 6c 25 29 2c  |," "):...A$(l%),|
000042e0  70 6f 73 25 2d 31 29 3d  69 63 68 61 6e 64 6c 65  |pos%-1)=ichandle|
000042f0  25 8c 0d 0c 94 17 f2 59  28 6c 25 29 3a f2 43 28  |%......Y(l%):.C(|
00004300  6c 25 29 3a 6c 25 2d 3d  31 0d 0c 9e 05 cd 0d 0c  |l%):l%-=1.......|
00004310  a8 07 cd 3a ed 0d 0c b2  07 cd 3a e1 0d 0c bc 1d  |...:......:.....|
00004320  dd f2 4d 5f 3a ea 6c 25  2c 79 24 3a e7 69 63 72  |..M_:.l%,y$:.icr|
00004330  65 73 70 6f 6e 73 65 25  8c 0d 0c c6 14 e7 62 6c  |esponse%......bl|
00004340  6f 63 6b 25 21 34 3d 74  61 73 6b 25 8c 0d 0c d0  |ock%!4=task%....|
00004350  32 c8 99 26 34 32 36 38  30 2c 69 63 74 61 73 6b  |2..&42680,ictask|
00004360  68 25 b8 79 24 3a f2 73  79 28 64 24 2c 22 69 63  |h%.y$:.sy(d$,"ic|
00004370  5f 22 2b 79 24 2c 69 63  74 61 73 6b 68 25 29 0d  |_"+y$,ictaskh%).|
00004380  0c da 2f cc 3a f2 73 79  28 a4 41 28 62 6c 6f 63  |../.:.sy(.A(bloc|
00004390  6b 25 2b 32 38 29 2c a4  41 28 62 6c 6f 63 6b 25  |k%+28),.A(block%|
000043a0  2b 33 36 29 2c 69 63 74  61 73 6b 68 25 29 0d 0c  |+36),ictaskh%)..|
000043b0  e4 05 cd 0d 0c ee 17 cc  3a e7 62 6c 6f 63 6b 25  |........:.block%|
000043c0  21 34 3c 3e 74 61 73 6b  25 8c 0d 0c f8 24 63 75  |!4<>task%....$cu|
000043d0  72 72 65 6e 74 69 63 6f  6e 69 73 65 72 25 3d a3  |rrenticoniser%=.|
000043e0  3a e7 21 6e 6f 61 70 70  73 25 3e 2d 31 8c 0d 0d  |:.!noapps%>-1...|
000043f0  02 22 e3 6c 25 3d 21 6e  6f 61 70 70 73 25 b8 30  |.".l%=!noapps%.0|
00004400  88 2d 31 3a e7 74 79 70  65 25 3f 6c 25 3d 36 8c  |.-1:.type%?l%=6.|
00004410  0d 0d 0c 11 f2 59 28 6c  25 29 3a f2 43 28 6c 25  |.....Y(l%):.C(l%|
00004420  29 0d 0d 16 07 cd 3a ed  0d 0d 20 05 cd 0d 0d 2a  |).....:... ....*|
00004430  05 cd 0d 0d 34 15 cd 3a  69 63 72 65 73 70 6f 6e  |....4..:icrespon|
00004440  73 65 25 3d a3 3a e1 0d  0d 3e 74 dd f2 73 79 28  |se%=.:...>t..sy(|
00004450  64 24 2c 6c 24 2c 69 63  74 61 73 6b 68 25 29 3a  |d$,l$,ictaskh%):|
00004460  ea 6c 25 3a 21 62 6c 6f  63 6b 25 3d 69 63 68 61  |.l%:!block%=icha|
00004470  6e 64 6c 65 25 3a c8 99  77 69 6d 70 67 77 73 25  |ndle%:..wimpgws%|
00004480  2c 2c 62 6c 6f 63 6b 25  3a 62 6c 6f 63 6b 25 21  |,,block%:block%!|
00004490  32 38 3d 2d 33 3a c8 99  77 69 6d 70 73 6d 25 2c  |28=-3:..wimpsm%,|
000044a0  32 2c 62 6c 6f 63 6b 25  2c 69 63 68 61 6e 64 6c  |2,block%,ichandl|
000044b0  65 25 3a e7 a4 50 28 6c  24 29 8c 0d 0d 48 33 f2  |e%:..P(l$)...H3.|
000044c0  44 28 2d 33 2c 6c 24 2b  22 20 22 2b c3 28 69 63  |D(-3,l$+" "+.(ic|
000044d0  68 61 6e 64 6c 65 25 29  2b 22 20 22 2b c3 28 69  |handle%)+" "+.(i|
000044e0  63 74 61 73 6b 68 25 29  2c 64 24 2c a3 29 0d 0d  |ctaskh%),d$,.)..|
000044f0  52 39 cc 3a f2 44 28 2d  33 2c 22 69 63 5f 3f 22  |R9.:.D(-3,"ic_?"|
00004500  2b 22 20 22 2b c3 28 69  63 68 61 6e 64 6c 65 25  |+" "+.(ichandle%|
00004510  29 2b 22 20 22 2b c3 28  69 63 74 61 73 6b 68 25  |)+" "+.(ictaskh%|
00004520  29 2c 64 24 2c a3 29 0d  0d 5c 07 cd 3a e1 0d 0d  |),d$,.)..\..:...|
00004530  66 7e dd f2 59 28 61 70  70 25 29 3a ea 6c 25 2c  |f~..Y(app%):.l%,|
00004540  70 6f 73 25 2c 66 6c 61  67 73 25 3a 70 6f 73 25  |pos%,flags%:pos%|
00004550  3d a7 41 24 28 61 70 70  25 29 2c 22 20 22 29 3a  |=.A$(app%)," "):|
00004560  21 62 6c 6f 63 6b 25 3d  a0 c0 41 24 28 61 70 70  |!block%=..A$(app|
00004570  25 29 2c 70 6f 73 25 2d  31 29 3a c8 99 77 69 6d  |%),pos%-1):..wim|
00004580  70 67 77 73 25 2b 28 31  3c 3c 31 37 29 2c 2c 62  |pgws%+(1<<17),,b|
00004590  6c 6f 63 6b 25 b8 3b 66  6c 61 67 73 25 3a e7 28  |lock%.;flags%:.(|
000045a0  66 6c 61 67 73 25 80 31  29 3d 30 8c 0d 0d 70 2b  |flags%.1)=0...p+|
000045b0  62 6c 6f 63 6b 25 21 32  38 3d 2d 31 3a c8 99 77  |block%!28=-1:..w|
000045c0  69 6d 70 73 6d 25 2c 32  2c 62 6c 6f 63 6b 25 2c  |impsm%,2,block%,|
000045d0  21 62 6c 6f 63 6b 25 0d  0d 7a 07 cd 3a e1 0d 0d  |!block%..z..:...|
000045e0  84 1d dd f2 79 79 3a ea  6c 25 2c 41 24 3a e7 21  |....yy:.l%,A$:.!|
000045f0  6e 6f 61 70 70 73 25 3e  2d 31 8c 0d 0d 8e 1f e3  |noapps%>-1......|
00004600  6c 25 3d 30 b8 21 6e 6f  61 70 70 73 25 3a e7 74  |l%=0.!noapps%:.t|
00004610  79 70 65 25 3f 6c 25 3d  36 8c 0d 0d 98 2e 41 24  |ype%?l%=6.....A$|
00004620  3d c0 41 24 28 6c 25 29  2c a7 41 24 28 6c 25 29  |=.A$(l%),.A$(l%)|
00004630  2c 22 20 22 29 2d 31 29  3a e7 a0 41 24 3d 62 6c  |," ")-1):..A$=bl|
00004640  6f 63 6b 25 21 32 30 8c  0d 0d a2 0a f2 43 28 6c  |ock%!20......C(l|
00004650  25 29 0d 0d ac 05 cd 0d  0d b6 07 cd 3a ed 0d 0d  |%)..........:...|
00004660  c0 07 cd 3a e1 0d 0d ca  23 dd f2 46 4a 28 62 75  |...:....#..FJ(bu|
00004670  74 25 2c 78 25 2c 79 25  2c 6e 25 29 3a ea 6c 25  |t%,x%,y%,n%):.l%|
00004680  3a c8 8e 62 75 74 25 ca  0d 0d d4 2a c9 31 3a 73  |:..but%....*.1:s|
00004690  65 6c 65 63 74 25 3f 6e  25 3d 31 2d 28 73 65 6c  |elect%?n%=1-(sel|
000046a0  65 63 74 25 3f 6e 25 29  3a f2 53 28 78 25 2c 79  |ect%?n%):.S(x%,y|
000046b0  25 29 0d 0d de 15 c9 34  3a e7 73 65 6c 65 63 74  |%).....4:.select|
000046c0  25 3f 6e 25 3d 30 8c 0d  0d e8 21 e3 6c 25 3d 30  |%?n%=0....!.l%=0|
000046d0  b8 21 6e 6f 61 70 70 73  25 3a e7 73 65 6c 65 63  |.!noapps%:.selec|
000046e0  74 25 3f 6c 25 3d 31 8c  0d 0d f2 24 f2 53 28 78  |t%?l%=1....$.S(x|
000046f0  79 30 25 3f 6c 25 2c 78  79 31 25 3f 6c 25 29 3a  |y0%?l%,xy1%?l%):|
00004700  73 65 6c 65 63 74 25 3f  6c 25 3d 30 0d 0d fc 2b  |select%?l%=0...+|
00004710  cd 3a ed 3a 73 65 6c 65  63 74 25 3f 6e 25 3d 31  |.:.:select%?n%=1|
00004720  2d 28 73 65 6c 65 63 74  25 3f 6e 25 29 3a f2 53  |-(select%?n%):.S|
00004730  28 78 25 2c 79 25 29 0d  0e 06 05 cd 0d 0e 10 1a  |(x%,y%).........|
00004740  cb 3a 74 65 6d 70 6f 72  61 72 79 73 65 6c 65 63  |.:temporaryselec|
00004750  74 25 3d a3 3a e1 0d 0e  1a 2d dd f2 67 5f 3a ea  |t%=.:....-..g_:.|
00004760  6c 25 2c 53 24 2c 5a 24  2c 66 6c 61 67 73 25 2c  |l%,S$,Z$,flags%,|
00004770  66 69 6c 65 25 3a e7 21  6e 6f 61 70 70 73 25 3e  |file%:.!noapps%>|
00004780  2d 31 8c 0d 0e 24 21 e3  6c 25 3d 30 b8 21 6e 6f  |-1...$!.l%=0.!no|
00004790  61 70 70 73 25 3a e7 73  65 6c 65 63 74 25 3f 6c  |apps%:.select%?l|
000047a0  25 3d 31 8c 0d 0e 2e 10  e7 74 79 70 65 25 3f 6c  |%=1......type%?l|
000047b0  25 3d 37 8c 0d 0e 38 41  5a 24 3d a4 41 28 72 65  |%=7...8AZ$=.A(re|
000047c0  6e 61 6d 65 62 75 66 25  29 3a f2 5a 28 c0 5a 24  |namebuf%):.Z(.Z$|
000047d0  2c 31 30 29 2c 6c 65 61  66 25 2b 6c 25 2a 31 32  |,10),leaf%+l%*12|
000047e0  29 3a f2 53 28 78 79 30  25 3f 6c 25 2c 78 79 31  |):.S(xy0%?l%,xy1|
000047f0  25 3f 6c 25 29 0d 0e 42  59 cc 3a 53 24 3d a4 46  |%?l%)..BY.:S$=.F|
00004800  28 41 24 28 6c 25 29 29  3a 5a 24 3d a4 41 28 72  |(A$(l%)):Z$=.A(r|
00004810  65 6e 61 6d 65 62 75 66  25 29 3a c8 99 26 32 30  |enamebuf%):..&20|
00004820  30 32 39 2c 32 35 2c 41  24 28 6c 25 29 2c 53 24  |029,25,A$(l%),S$|
00004830  2b 22 2e 22 2b 5a 24 b8  3b 66 6c 61 67 73 25 3a  |+"."+Z$.;flags%:|
00004840  e7 28 66 6c 61 67 73 25  80 31 29 3d 31 8c 0d 0e  |.(flags%.1)=1...|
00004850  4c a3 21 62 6c 6f 63 6b  25 3d 30 3a 51 24 3d 22  |L.!block%=0:Q$="|
00004860  52 65 6e 61 6d 65 20 46  61 69 6c 65 64 20 28 4e  |Rename Failed (N|
00004870  6f 74 20 66 6f 75 6e 64  2c 20 41 63 63 65 73 73  |ot found, Access|
00004880  20 56 69 6f 6c 61 74 69  6f 6e 2c 20 4f 62 6a 65  | Violation, Obje|
00004890  63 74 20 6e 6f 74 20 66  6f 75 6e 64 2c 20 6f 72  |ct not found, or|
000048a0  20 64 65 73 74 69 6e 61  74 69 6f 6e 20 6f 62 6a  | destination obj|
000048b0  65 63 74 20 61 6c 72 65  61 64 79 20 65 78 69 73  |ect already exis|
000048c0  74 73 29 22 3a f2 5a 28  51 24 2c 62 6c 6f 63 6b  |ts)":.Z(Q$,block|
000048d0  25 2b 34 29 3a c8 99 77  69 6d 70 65 72 72 25 2c  |%+4):..wimperr%,|
000048e0  62 6c 6f 63 6b 25 2c 39  2c 22 4c 61 72 67 65 72  |block%,9,"Larger|
000048f0  22 0d 0e 56 42 cc 3a 41  24 28 6c 25 29 3d 53 24  |"..VB.:A$(l%)=S$|
00004900  2b 22 2e 22 2b 5a 24 3a  f2 5a 28 c0 5a 24 2c 31  |+"."+Z$:.Z(.Z$,1|
00004910  30 29 2c 6c 65 61 66 25  2b 6c 25 2a 31 32 29 3a  |0),leaf%+l%*12):|
00004920  f2 53 28 78 79 30 25 3f  6c 25 2c 78 79 31 25 3f  |.S(xy0%?l%,xy1%?|
00004930  6c 25 29 0d 0e 60 05 cd  0d 0e 6a 05 cd 0d 0e 74  |l%)..`....j....t|
00004940  07 cd 3a ed 0d 0e 7e 07  cd 3a e1 0d 0e 88 2b dd  |..:...~..:....+.|
00004950  f2 43 4a 3a ea 6c 25 2c  53 24 2c 74 61 73 6b 68  |.CJ:.l%,S$,taskh|
00004960  25 2c 64 75 6d 6d 79 25  3a e7 21 6e 6f 61 70 70  |%,dummy%:.!noapp|
00004970  73 25 3e 2d 31 8c 0d 0e  92 24 e3 6c 25 3d 21 6e  |s%>-1....$.l%=!n|
00004980  6f 61 70 70 73 25 b8 30  88 2d 31 3a e7 73 65 6c  |oapps%.0.-1:.sel|
00004990  65 63 74 25 3f 6c 25 3d  31 8c 0d 0e 9c 08 c8 8e  |ect%?l%=1.......|
000049a0  b9 ca 0d 0e a6 16 c9 74  79 70 65 25 3f 6c 25 3d  |.......type%?l%=|
000049b0  37 3a f2 43 28 6c 25 29  0d 0e b0 cb c9 c0 41 24  |7:.C(l%)......A$|
000049c0  28 6c 25 29 2c a9 47 24  29 3d 47 24 84 74 79 70  |(l%),.G$)=G$.typ|
000049d0  65 25 3f 6c 25 3d 34 3a  21 62 6c 6f 63 6b 25 3d  |e%?l%=4:!block%=|
000049e0  30 3a 51 24 3d 22 52 65  6d 6f 76 69 6e 67 20 27  |0:Q$="Removing '|
000049f0  22 2b a4 41 28 6c 65 61  66 25 2b 31 32 2a 6c 25  |"+.A(leaf%+12*l%|
00004a00  29 2b 22 27 20 64 65 6c  65 74 65 73 20 69 74 2e  |)+"' deletes it.|
00004a10  20 2d 20 41 72 65 20 79  6f 75 20 73 75 72 65 3f  | - Are you sure?|
00004a20  20 28 4f 4b 20 74 6f 20  63 6f 6e 74 69 6e 75 65  | (OK to continue|
00004a30  2c 20 43 41 4e 43 45 4c  20 74 6f 20 6b 65 65 70  |, CANCEL to keep|
00004a40  29 22 3a f2 5a 28 51 24  2c 62 6c 6f 63 6b 25 2b  |)":.Z(Q$,block%+|
00004a50  34 29 3a c8 99 77 69 6d  70 65 72 72 25 2c 62 6c  |4):..wimperr%,bl|
00004a60  6f 63 6b 25 2c 33 31 2c  22 4c 61 72 67 65 72 22  |ock%,31,"Larger"|
00004a70  b8 2c 63 6c 69 63 6b 25  3a e7 63 6c 69 63 6b 25  |.,click%:.click%|
00004a80  3d 31 8c 0d 0e ba 89 53  24 3d a4 46 28 41 24 28  |=1.....S$=.F(A$(|
00004a90  6c 25 29 29 3a c8 99 26  34 30 30 64 65 2c 22 46  |l%)):..&400de,"F|
00004aa0  69 6c 65 72 5f 41 63 74  69 6f 6e 22 b8 74 61 73  |iler_Action".tas|
00004ab0  6b 68 25 3a c8 99 26 34  30 66 38 30 2c 74 61 73  |kh%:..&40f80,tas|
00004ac0  6b 68 25 2c 53 24 3a c8  99 26 34 30 66 38 31 2c  |kh%,S$:..&40f81,|
00004ad0  74 61 73 6b 68 25 2c c1  41 24 28 6c 25 29 2c a9  |taskh%,.A$(l%),.|
00004ae0  53 24 2b 32 29 3a c8 99  26 34 30 66 38 32 2c 74  |S$+2):..&40f82,t|
00004af0  61 73 6b 68 25 2c 32 2c  66 69 6c 65 72 6f 70 74  |askh%,2,fileropt|
00004b00  69 6f 6e 73 25 3a f2 43  28 6c 25 29 0d 0e c4 05  |ions%:.C(l%)....|
00004b10  cd 0d 0e ce 0c 7f 3a f2  43 28 6c 25 29 0d 0e d8  |......:.C(l%)...|
00004b20  05 cb 0d 0e e2 07 cd 3a  ed 0d 0e ec 07 cd 3a e1  |.......:......:.|
00004b30  0d 0e f6 29 dd f2 50 79  28 66 6c 61 67 25 29 3a  |...)..Py(flag%):|
00004b40  ea 61 63 63 65 73 73 25  2c 72 65 63 75 72 73 65  |.access%,recurse|
00004b50  25 3a e7 66 6c 61 67 25  8c 0d 0f 00 08 c8 8e 74  |%:.flag%.......t|
00004b60  ca 0d 0f 0a 16 c9 30 3a  61 63 63 65 73 73 25 3d  |......0:access%=|
00004b70  2d 37 38 36 34 32 33 0d  0f 14 16 c9 31 3a 61 63  |-786423.....1:ac|
00004b80  63 65 73 73 25 3d 2d 37  38 36 34 32 39 0d 0f 1e  |cess%=-786429...|
00004b90  17 c9 32 3a 61 63 63 65  73 73 25 3d 2d 31 31 31  |..2:access%=-111|
00004ba0  34 30 39 36 0d 0f 28 17  c9 33 3a 61 63 63 65 73  |4096..(..3:acces|
00004bb0  73 25 3d 2d 33 32 31 31  32 36 34 0d 0f 32 05 cb  |s%=-3211264..2..|
00004bc0  0d 0f 3c 58 cc 3a 61 63  63 65 73 73 25 3d 2d 33  |..<X.:access%=-3|
00004bd0  39 33 32 31 36 30 3a c8  99 26 34 30 30 64 36 2c  |932160:..&400d6,|
00004be0  66 69 6c 65 61 63 63 65  73 73 25 2c 62 6c 6f 63  |fileaccess%,bloc|
00004bf0  6b 25 2c 26 33 66 30 30  30 30 2c 26 32 31 30 30  |k%,&3f0000,&2100|
00004c00  30 30 3a e7 21 62 6c 6f  63 6b 25 3d 31 8c 61 63  |00:.!block%=1.ac|
00004c10  63 65 73 73 25 2b 3d 38  0d 0f 46 45 c8 99 26 34  |cess%+=8..FE..&4|
00004c20  30 30 64 36 2c 66 69 6c  65 61 63 63 65 73 73 25  |00d6,fileaccess%|
00004c30  2c 62 6c 6f 63 6b 25 2c  26 33 66 30 30 30 30 2c  |,block%,&3f0000,|
00004c40  26 32 32 30 30 30 30 3a  e7 21 62 6c 6f 63 6b 25  |&220000:.!block%|
00004c50  3d 32 8c 61 63 63 65 73  73 25 2b 3d 31 0d 0f 50  |=2.access%+=1..P|
00004c60  45 c8 99 26 34 30 30 64  36 2c 66 69 6c 65 61 63  |E..&400d6,fileac|
00004c70  63 65 73 73 25 2c 62 6c  6f 63 6b 25 2c 26 33 66  |cess%,block%,&3f|
00004c80  30 30 30 30 2c 26 32 33  30 30 30 30 3a e7 21 62  |0000,&230000:.!b|
00004c90  6c 6f 63 6b 25 3d 33 8c  61 63 63 65 73 73 25 2b  |lock%=3.access%+|
00004ca0  3d 32 0d 0f 5a 46 c8 99  26 34 30 30 64 36 2c 66  |=2..ZF..&400d6,f|
00004cb0  69 6c 65 61 63 63 65 73  73 25 2c 62 6c 6f 63 6b  |ileaccess%,block|
00004cc0  25 2c 26 33 66 30 30 30  30 2c 26 32 34 30 30 30  |%,&3f0000,&24000|
00004cd0  30 3a e7 21 62 6c 6f 63  6b 25 3d 34 8c 61 63 63  |0:.!block%=4.acc|
00004ce0  65 73 73 25 2b 3d 31 36  0d 0f 64 46 c8 99 26 34  |ess%+=16..dF..&4|
00004cf0  30 30 64 36 2c 66 69 6c  65 61 63 63 65 73 73 25  |00d6,fileaccess%|
00004d00  2c 62 6c 6f 63 6b 25 2c  26 33 66 30 30 30 30 2c  |,block%,&3f0000,|
00004d10  26 32 35 30 30 30 30 3a  e7 21 62 6c 6f 63 6b 25  |&250000:.!block%|
00004d20  3d 35 8c 61 63 63 65 73  73 25 2b 3d 33 32 0d 0f  |=5.access%+=32..|
00004d30  6e 5c cd 3a 21 62 6c 6f  63 6b 25 3d 66 69 6c 65  |n\.:!block%=file|
00004d40  61 63 63 65 73 73 25 3a  62 6c 6f 63 6b 25 21 34  |access%:block%!4|
00004d50  3d 36 3a c8 99 77 69 6d  70 67 69 73 25 2c 2c 62  |=6:..wimpgis%,,b|
00004d60  6c 6f 63 6b 25 3a 72 65  63 75 72 73 65 25 3d 28  |lock%:recurse%=(|
00004d70  28 62 6c 6f 63 6b 25 21  32 34 29 3e 3e 32 31 29  |(block%!24)>>21)|
00004d80  80 31 3a f2 5f 28 30 29  3a e1 0d 0f 78 51 dd a4  |.1:._(0):...xQ..|
00004d90  5f 3a 21 62 6c 6f 63 6b  25 3d 61 63 63 65 73 73  |_:!block%=access|
00004da0  25 3a c8 99 26 34 30 66  38 32 2c 74 61 73 6b 68  |%:..&40f82,taskh|
00004db0  25 2c 33 2c 66 69 6c 65  72 6f 70 74 69 6f 6e 73  |%,3,fileroptions|
00004dc0  25 2b 28 72 65 63 75 72  73 65 25 3c 3c 34 29 2c  |%+(recurse%<<4),|
00004dd0  62 6c 6f 63 6b 25 2c 34  3a 3d 30 0d 0f 82 4e dd  |block%,4:=0...N.|
00004de0  f2 55 5f 3a ea 73 65 74  74 79 70 65 25 2c 41 24  |.U_:.settype%,A$|
00004df0  2c 6c 25 2c 66 6c 61 67  25 2c 6c 65 6e 25 2c 61  |,l%,flag%,len%,a|
00004e00  24 2c 6d 6f 72 65 25 3a  41 24 3d a4 41 28 73 65  |$,more%:A$=.A(se|
00004e10  74 74 79 70 65 62 75 66  25 29 3a f2 42 28 41 24  |ttypebuf%):.B(A$|
00004e20  29 3a e7 a9 41 24 3e 30  8c 0d 0f 8c 25 73 65 74  |):..A$>0....%set|
00004e30  74 79 70 65 25 3d 2d 31  3a e7 c0 41 24 2c 31 29  |type%=-1:..A$,1)|
00004e40  3d 22 26 22 8c 41 24 3d  c1 41 24 2c 32 29 0d 0f  |="&".A$=.A$,2)..|
00004e50  96 45 66 6c 61 67 25 3d  b9 3a e3 6c 25 3d 31 b8  |.Eflag%=.:.l%=1.|
00004e60  a9 41 24 3a e7 a7 22 30  31 32 33 34 35 36 37 38  |.A$:.."012345678|
00004e70  39 41 42 43 44 45 46 61  62 63 64 65 66 22 2c c1  |9ABCDEFabcdef",.|
00004e80  41 24 2c 6c 25 2c 31 29  29 3c 31 8c 66 6c 61 67  |A$,l%,1))<1.flag|
00004e90  25 3d a3 0d 0f a0 0d ed  3a e7 66 6c 61 67 25 8c  |%=......:.flag%.|
00004ea0  0d 0f aa 16 73 65 74 74  79 70 65 25 3d a0 28 22  |....settype%=.("|
00004eb0  26 22 2b 41 24 29 0d 0f  b4 82 cc 3a 6d 6f 72 65  |&"+A$).....:more|
00004ec0  25 3d 30 3a f5 3a c8 99  26 32 30 30 32 33 2c 22  |%=0:.:..&20023,"|
00004ed0  46 69 6c 65 24 54 79 70  65 5f 2a 22 2c 62 6c 6f  |File$Type_*",blo|
00004ee0  63 6b 25 2c 31 38 2c 6d  6f 72 65 25 2c 33 b8 2c  |ck%,18,more%,3.,|
00004ef0  2c 6c 65 6e 25 2c 6d 6f  72 65 25 3a 62 6c 6f 63  |,len%,more%:bloc|
00004f00  6b 25 3f 6c 65 6e 25 3d  30 3a 61 24 3d a4 41 28  |k%?len%=0:a$=.A(|
00004f10  62 6c 6f 63 6b 25 29 3a  f2 42 28 61 24 29 3a fd  |block%):.B(a$):.|
00004f20  6d 6f 72 65 25 3c 3d 30  84 41 24 3d 61 24 3a e7  |more%<=0.A$=a$:.|
00004f30  6d 6f 72 65 25 3e 30 8c  0d 0f be 24 73 65 74 74  |more%>0....$sett|
00004f40  79 70 65 25 3d a0 28 22  26 22 2b c1 a4 41 28 6d  |ype%=.("&"+..A(m|
00004f50  6f 72 65 25 29 2c 31 31  2c 33 29 29 0d 0f c8 05  |ore%),11,3))....|
00004f60  cd 0d 0f d2 13 cd 3a e7  73 65 74 74 79 70 65 25  |......:.settype%|
00004f70  3e 2d 31 8c 0d 0f dc 27  f2 5f 28 31 29 3a e3 6c  |>-1....'._(1):.l|
00004f80  25 3d 30 b8 21 6e 6f 61  70 70 73 25 3a e7 73 65  |%=0.!noapps%:.se|
00004f90  6c 65 63 74 25 3f 6c 25  3d 31 8c 0d 0f e6 1b e7  |lect%?l%=1......|
00004fa0  74 79 70 65 25 3f 6c 25  3d 32 84 74 79 70 65 25  |type%?l%=2.type%|
00004fb0  3f 6c 25 3d 33 8c 0d 0f  f0 40 cc 3a f2 5a 28 22  |?l%=3....@.:.Z("|
00004fc0  66 69 6c 65 5f 22 2b c3  7e 28 73 65 74 74 79 70  |file_"+.~(settyp|
00004fd0  65 25 29 2c 73 70 72 69  74 65 25 2b 6c 25 2a 31  |e%),sprite%+l%*1|
00004fe0  32 29 3a f2 53 28 78 79  30 25 3f 6c 25 2c 78 79  |2):.S(xy0%?l%,xy|
00004ff0  31 25 3f 6c 25 29 0d 0f  fa 05 cd 0d 10 04 07 cd  |1%?l%)..........|
00005000  3a ed 0d 10 0e 62 cc 3a  21 62 6c 6f 63 6b 25 3d  |:....b.:!block%=|
00005010  30 3a 51 24 3d 22 42 61  64 20 66 69 6c 65 20 74  |0:Q$="Bad file t|
00005020  79 70 65 22 3a f2 5a 28  51 24 2c 62 6c 6f 63 6b  |ype":.Z(Q$,block|
00005030  25 2b 34 29 3a 3f 28 62  6c 6f 63 6b 25 2b 34 2b  |%+4):?(block%+4+|
00005040  a9 51 24 29 3d 30 3a c8  99 77 69 6d 70 65 72 72  |.Q$)=0:..wimperr|
00005050  25 2c 62 6c 6f 63 6b 25  2c 32 35 2c 22 4c 61 72  |%,block%,25,"Lar|
00005060  67 65 72 22 0d 10 18 05  cd 0d 10 22 07 cd 3a e1  |ger"......."..:.|
00005070  0d 10 2c 44 dd a4 54 3a  21 62 6c 6f 63 6b 25 3d  |..,D..T:!block%=|
00005080  73 65 74 74 79 70 65 25  3a c8 99 26 34 30 66 38  |settype%:..&40f8|
00005090  32 2c 74 61 73 6b 68 25  2c 34 2c 66 69 6c 65 72  |2,taskh%,4,filer|
000050a0  6f 70 74 69 6f 6e 73 25  2c 62 6c 6f 63 6b 25 2c  |options%,block%,|
000050b0  34 3a 3d 30 0d 10 36 10  dd f2 41 4a 3a f2 5f 28  |4:=0..6...AJ:._(|
000050c0  32 29 3a e1 0d 10 40 2c  dd a4 4b 3a c8 99 26 34  |2):...@,..K:..&4|
000050d0  30 66 38 32 2c 74 61 73  6b 68 25 2c 35 2c 66 69  |0f82,taskh%,5,fi|
000050e0  6c 65 72 6f 70 74 69 6f  6e 73 25 2c 31 3a 3d 30  |leroptions%,1:=0|
000050f0  0d 10 4a 10 dd f2 4a 5f  3a f2 5f 28 33 29 3a e1  |..J...J_:._(3):.|
00005100  0d 10 54 47 dd a4 59 3a  c8 99 26 34 30 66 38 32  |..TG..Y:..&40f82|
00005110  2c 74 61 73 6b 68 25 2c  39 2c 66 69 6c 65 72 6f  |,taskh%,9,filero|
00005120  70 74 69 6f 6e 73 25 2c  a4 41 28 66 69 6e 64 62  |ptions%,.A(findb|
00005130  75 66 25 29 2c a9 a4 41  28 66 69 6e 64 62 75 66  |uf%),..A(findbuf|
00005140  25 29 2b 31 3a 3d 30 0d  10 5e 10 dd f2 4d 4a 3a  |%)+1:=0..^...MJ:|
00005150  f2 5f 28 34 29 3a e1 0d  10 68 2c dd a4 71 3a c8  |._(4):...h,..q:.|
00005160  99 26 34 30 66 38 32 2c  74 61 73 6b 68 25 2c 38  |.&40f82,taskh%,8|
00005170  2c 66 69 6c 65 72 6f 70  74 69 6f 6e 73 25 2c 30  |,fileroptions%,0|
00005180  3a 3d 30 0d 10 72 2f dd  f2 5f 28 6f 70 25 29 3a  |:=0..r/.._(op%):|
00005190  ea 6c 25 2c 53 24 2c 74  61 73 6b 68 25 2c 64 75  |.l%,S$,taskh%,du|
000051a0  6d 6d 79 25 3a e7 21 6e  6f 61 70 70 73 25 3e 2d  |mmy%:.!noapps%>-|
000051b0  31 8c 0d 10 7c 21 e3 6c  25 3d 30 b8 21 6e 6f 61  |1...|!.l%=0.!noa|
000051c0  70 70 73 25 3a e7 73 65  6c 65 63 74 25 3f 6c 25  |pps%:.select%?l%|
000051d0  3d 31 8c 0d 10 86 11 e7  74 79 70 65 25 3f 6c 25  |=1......type%?l%|
000051e0  3c 3e 37 8c 0d 10 90 69  53 24 3d a4 46 28 41 24  |<>7....iS$=.F(A$|
000051f0  28 6c 25 29 29 3a c8 99  26 34 30 30 64 65 2c 22  |(l%)):..&400de,"|
00005200  46 69 6c 65 72 5f 41 63  74 69 6f 6e 22 b8 74 61  |Filer_Action".ta|
00005210  73 6b 68 25 3a c8 99 26  34 30 66 38 30 2c 74 61  |skh%:..&40f80,ta|
00005220  73 6b 68 25 2c 53 24 3a  c8 99 26 34 30 66 38 31  |skh%,S$:..&40f81|
00005230  2c 74 61 73 6b 68 25 2c  c1 41 24 28 6c 25 29 2c  |,taskh%,.A$(l%),|
00005240  a9 53 24 2b 32 29 3a c8  8e 6f 70 25 ca 0d 10 9a  |.S$+2):..op%....|
00005250  10 c9 30 3a 64 75 6d 6d  79 25 3d a4 5f 0d 10 a4  |..0:dummy%=._...|
00005260  10 c9 31 3a 64 75 6d 6d  79 25 3d a4 54 0d 10 ae  |..1:dummy%=.T...|
00005270  10 c9 32 3a 64 75 6d 6d  79 25 3d a4 4b 0d 10 b8  |..2:dummy%=.K...|
00005280  10 c9 33 3a 64 75 6d 6d  79 25 3d a4 59 0d 10 c2  |..3:dummy%=.Y...|
00005290  10 c9 34 3a 64 75 6d 6d  79 25 3d a4 71 0d 10 cc  |..4:dummy%=.q...|
000052a0  05 cb 0d 10 d6 05 cd 0d  10 e0 07 cd 3a ed 0d 10  |............:...|
000052b0  ea 07 cd 3a e1 0d 10 f4  0d dd f2 68 79 3a c8 8e  |...:.......hy:..|
000052c0  b9 ca 0d 10 fe 20 c9 62  6c 6f 63 6b 25 21 33 32  |..... .block%!32|
000052d0  3d 31 80 62 6c 6f 63 6b  25 21 33 36 3d 33 3a f2  |=1.block%!36=3:.|
000052e0  5a 4a 0d 11 08 20 c9 62  6c 6f 63 6b 25 21 33 32  |ZJ... .block%!32|
000052f0  3d 31 80 62 6c 6f 63 6b  25 21 33 36 3d 36 3a f2  |=1.block%!36=6:.|
00005300  52 5f 0d 11 12 2f cb 3a  c8 99 26 34 30 30 65 38  |R_.../.:..&400e8|
00005310  2c 2c 62 6c 6f 63 6b 25  21 32 30 2c 62 6c 6f 63  |,,block%!20,bloc|
00005320  6b 25 21 32 34 2c 62 6c  6f 63 6b 25 21 32 38 3a  |k%!24,block%!28:|
00005330  e1 0d 11 1c 70 dd f2 4d  79 3a ea 6c 25 3a e3 6c  |....p..My:.l%:.l|
00005340  25 3d 31 b8 35 3a f2 41  28 66 69 6c 65 61 63 63  |%=1.5:.A(fileacc|
00005350  65 73 73 25 2c 6c 25 2c  30 29 3a f2 41 28 66 69  |ess%,l%,0):.A(fi|
00005360  6c 65 61 63 63 65 73 73  25 2c 6c 25 2b 36 2c 30  |leaccess%,l%+6,0|
00005370  29 3a ed 3a f2 47 28 31  30 2c 30 2c 30 29 3a f2  |):.:.G(10,0,0):.|
00005380  47 28 31 30 2c 31 2c 30  29 3a f2 47 28 31 30 2c  |G(10,1,0):.G(10,|
00005390  32 2c 30 29 3a f2 47 28  31 30 2c 33 2c 30 29 3a  |2,0):.G(10,3,0):|
000053a0  e1 0d 11 26 1a dd f2 5f  5f 3a ea 6c 25 3a e7 21  |...&...__:.l%:.!|
000053b0  6e 6f 61 70 70 73 25 3e  2d 31 8c 0d 11 30 4a e3  |noapps%>-1...0J.|
000053c0  6c 25 3d 30 b8 21 6e 6f  61 70 70 73 25 3a e7 73  |l%=0.!noapps%:.s|
000053d0  65 6c 65 63 74 25 3f 6c  25 3d 31 8c f2 4f 28 22  |elect%?l%=1..O("|
000053e0  57 69 6d 70 54 61 73 6b  20 46 69 6c 65 72 5f 52  |WimpTask Filer_R|
000053f0  75 6e 20 22 2b 41 24 28  6c 25 29 2b 22 2e 21 48  |un "+A$(l%)+".!H|
00005400  65 6c 70 22 29 0d 11 3a  05 ed 0d 11 44 07 cd 3a  |elp")..:....D..:|
00005410  e1 0d 11 4e 4c dd f2 5a  4a 3a ea 73 65 6c 65 63  |...NL..ZJ:.selec|
00005420  74 69 6f 6e 25 2c 6c 25  2c 66 6f 75 6e 64 25 2c  |tion%,l%,found%,|
00005430  53 24 2c 61 74 74 72 25  3a 73 65 6c 65 63 74 69  |S$,attr%:selecti|
00005440  6f 6e 25 3d a3 3a 66 6f  75 6e 64 25 3d 2d 31 3a  |on%=.:found%=-1:|
00005450  e7 21 6e 6f 61 70 70 73  25 3e 2d 31 8c 0d 11 58  |.!noapps%>-1...X|
00005460  21 e3 6c 25 3d 30 b8 21  6e 6f 61 70 70 73 25 3a  |!.l%=0.!noapps%:|
00005470  e7 73 65 6c 65 63 74 25  3f 6c 25 3d 31 8c 0d 11  |.select%?l%=1...|
00005480  62 1c e7 66 6f 75 6e 64  25 3c 3e 2d 31 8c 73 65  |b..found%<>-1.se|
00005490  6c 65 63 74 69 6f 6e 25  3d b9 0d 11 6c 0d 66 6f  |lection%=...l.fo|
000054a0  75 6e 64 25 3d 6c 25 0d  11 76 07 cd 3a ed 0d 11  |und%=l%..v..:...|
000054b0  80 11 cd 3a e7 66 6f 75  6e 64 25 3d 2d 31 8c 0d  |...:.found%=-1..|
000054c0  11 8a 19 e3 6c 25 3d 30  b8 34 3a f2 4d 28 31 30  |....l%=0.4:.M(10|
000054d0  2c 6c 25 2c b9 29 3a ed  0d 11 94 12 cc 3a e7 73  |,l%,.):......:.s|
000054e0  65 6c 65 63 74 69 6f 6e  25 8c 0d 11 9e 07 f2 4d  |election%......M|
000054f0  79 0d 11 a8 25 cc 3a e7  74 79 70 65 25 3f 66 6f  |y...%.:.type%?fo|
00005500  75 6e 64 25 3d 32 84 74  79 70 65 25 3f 66 6f 75  |und%=2.type%?fou|
00005510  6e 64 25 3d 33 8c 0d 11  b2 1b f2 4d 79 3a f2 57  |nd%=3......My:.W|
00005520  28 66 69 6c 65 61 63 63  65 73 73 25 2c 36 2c 30  |(fileaccess%,6,0|
00005530  29 0d 11 bc ed cc 3a f2  57 28 66 69 6c 65 61 63  |).....:.W(fileac|
00005540  63 65 73 73 25 2c 36 2c  31 29 3a 53 24 3d a4 46  |cess%,6,1):S$=.F|
00005550  28 41 24 28 66 6f 75 6e  64 25 29 29 3a c8 99 38  |(A$(found%)):..8|
00005560  2c 31 33 2c c1 41 24 28  66 6f 75 6e 64 25 29 2c  |,13,.A$(found%),|
00005570  a9 53 24 2b 32 29 2c 2c  2c 53 24 2b 22 2e 22 b8  |.S$+2),,,S$+".".|
00005580  2c 2c 2c 2c 2c 61 74 74  72 25 3a 21 62 6c 6f 63  |,,,,,attr%:!bloc|
00005590  6b 25 3d 66 69 6c 65 61  63 63 65 73 73 25 3a f2  |k%=fileaccess%:.|
000055a0  41 28 66 69 6c 65 61 63  63 65 73 73 25 2c 31 2c  |A(fileaccess%,1,|
000055b0  28 61 74 74 72 25 80 34  29 81 34 29 3a f2 41 28  |(attr%.4).4):.A(|
000055c0  66 69 6c 65 61 63 63 65  73 73 25 2c 37 2c 31 2d  |fileaccess%,7,1-|
000055d0  28 28 61 74 74 72 25 80  34 29 81 34 29 29 3a f2  |((attr%.4).4)):.|
000055e0  41 28 66 69 6c 65 61 63  63 65 73 73 25 2c 32 2c  |A(fileaccess%,2,|
000055f0  28 61 74 74 72 25 80 31  29 81 31 29 3a f2 41 28  |(attr%.1).1):.A(|
00005600  66 69 6c 65 61 63 63 65  73 73 25 2c 38 2c 31 2d  |fileaccess%,8,1-|
00005610  28 28 61 74 74 72 25 80  31 29 81 31 29 29 0d 11  |((attr%.1).1))..|
00005620  c6 fb f2 41 28 66 69 6c  65 61 63 63 65 73 73 25  |...A(fileaccess%|
00005630  2c 33 2c 28 61 74 74 72  25 80 32 29 81 32 29 3a  |,3,(attr%.2).2):|
00005640  f2 41 28 66 69 6c 65 61  63 63 65 73 73 25 2c 39  |.A(fileaccess%,9|
00005650  2c 31 2d 28 28 61 74 74  72 25 80 32 29 81 32 29  |,1-((attr%.2).2)|
00005660  29 3a f2 41 28 66 69 6c  65 61 63 63 65 73 73 25  |):.A(fileaccess%|
00005670  2c 34 2c 28 61 74 74 72  25 80 31 36 29 81 31 36  |,4,(attr%.16).16|
00005680  29 3a f2 41 28 66 69 6c  65 61 63 63 65 73 73 25  |):.A(fileaccess%|
00005690  2c 31 30 2c 31 2d 28 28  61 74 74 72 25 80 31 36  |,10,1-((attr%.16|
000056a0  29 81 31 36 29 29 3a f2  41 28 66 69 6c 65 61 63  |).16)):.A(fileac|
000056b0  63 65 73 73 25 2c 35 2c  28 61 74 74 72 25 80 33  |cess%,5,(attr%.3|
000056c0  32 29 81 33 32 29 3a f2  41 28 66 69 6c 65 61 63  |2).32):.A(fileac|
000056d0  63 65 73 73 25 2c 31 31  2c 31 2d 28 28 61 74 74  |cess%,11,1-((att|
000056e0  72 25 80 33 32 29 81 33  32 29 29 3a f2 47 28 31  |r%.32).32)):.G(1|
000056f0  30 2c 30 2c 28 61 74 74  72 25 80 38 29 81 38 29  |0,0,(attr%.8).8)|
00005700  3a f2 47 28 31 30 2c 31  2c 31 2d 28 28 61 74 74  |:.G(10,1,1-((att|
00005710  72 25 80 38 29 81 38 29  29 0d 11 d0 47 f2 47 28  |r%.8).8))...G.G(|
00005720  31 30 2c 32 2c 28 61 74  74 72 25 80 31 36 29 81  |10,2,(attr%.16).|
00005730  31 36 29 3a f2 47 28 31  30 2c 33 2c 31 2d 28 28  |16):.G(10,3,1-((|
00005740  28 61 74 74 72 25 80 31  36 29 81 31 36 29 84 28  |(attr%.16).16).(|
00005750  28 61 74 74 72 25 80 33  32 29 81 33 32 29 29 29  |(attr%.32).32)))|
00005760  0d 11 da 05 cd 0d 11 e4  05 cd 0d 11 ee 07 cd 3a  |...............:|
00005770  e1 0d 11 f8 4f dd f2 52  5f 3a ea 6c 25 2c 53 24  |....O..R_:.l%,S$|
00005780  2c 6f 62 6a 74 79 70 65  25 2c 6c 6f 61 64 25 2c  |,objtype%,load%,|
00005790  65 78 65 63 25 2c 6c 65  6e 25 2c 61 74 74 72 25  |exec%,len%,attr%|
000057a0  2c 4c 24 2c 66 74 25 2c  58 24 2c 6c 65 6e 67 74  |,L$,ft%,X$,lengt|
000057b0  68 25 3a e7 21 6e 6f 61  70 70 73 25 3e 2d 31 8c  |h%:.!noapps%>-1.|
000057c0  0d 12 02 21 e3 6c 25 3d  30 b8 21 6e 6f 61 70 70  |...!.l%=0.!noapp|
000057d0  73 25 3a e7 73 65 6c 65  63 74 25 3f 6c 25 3d 31  |s%:.select%?l%=1|
000057e0  8c 0d 12 0c 6a 53 24 3d  a4 46 28 41 24 28 6c 25  |....jS$=.F(A$(l%|
000057f0  29 29 3a c8 99 26 32 30  30 30 38 2c 31 33 2c c1  |)):..&20008,13,.|
00005800  41 24 28 6c 25 29 2c a9  53 24 2b 32 29 2c 2c 2c  |A$(l%),.S$+2),,,|
00005810  53 24 2b 22 2e 22 b8 6f  62 6a 74 79 70 65 25 2c  |S$+".".objtype%,|
00005820  2c 6c 6f 61 64 25 2c 65  78 65 63 25 2c 6c 65 6e  |,load%,exec%,len|
00005830  25 2c 61 74 74 72 25 3a  4c 24 3d 22 22 3a e7 6f  |%,attr%:L$="":.o|
00005840  62 6a 74 79 70 65 25 3c  3e 30 8c 0d 12 16 10 e7  |bjtype%<>0......|
00005850  6f 62 6a 74 79 70 65 25  3d 32 8c 0d 12 20 19 e7  |objtype%=2... ..|
00005860  6c 65 61 66 25 3f 28 6c  25 2a 31 32 29 3c 3e 97  |leaf%?(l%*12)<>.|
00005870  22 21 22 8c 0d 12 2a 21  58 24 3d 22 64 69 72 65  |"!"...*!X$="dire|
00005880  63 74 6f 72 79 22 3a 54  24 3d 22 44 69 72 65 63  |ctory":T$="Direc|
00005890  74 6f 72 79 22 0d 12 34  2d cc 3a 54 24 3d 22 41  |tory"..4-.:T$="A|
000058a0  70 70 6c 69 63 61 74 69  6f 6e 22 3a 58 24 3d a4  |pplication":X$=.|
000058b0  41 28 73 70 72 69 74 65  25 2b 28 6c 25 2a 31 32  |A(sprite%+(l%*12|
000058c0  29 29 0d 12 3e 55 cd 3a  62 6c 6f 63 6b 25 21 34  |))..>U.:block%!4|
000058d0  30 3d 66 69 6c 65 69 6e  66 6f 25 3a 62 6c 6f 63  |0=fileinfo%:bloc|
000058e0  6b 25 21 34 34 3d 31 30  3a 62 6c 6f 63 6b 25 21  |k%!44=10:block%!|
000058f0  34 38 3d 30 3a 62 6c 6f  63 6b 25 21 35 32 3d 36  |48=0:block%!52=6|
00005900  33 3a c8 99 77 69 6d 70  73 69 73 25 2c 2c 62 6c  |3:..wimpsis%,,bl|
00005910  6f 63 6b 25 2b 34 30 0d  12 48 21 cc 3a e7 28 6c  |ock%+40..H!.:.(l|
00005920  6f 61 64 25 80 2d 31 30  34 38 35 37 36 29 3d 2d  |oad%.-1048576)=-|
00005930  31 30 34 38 35 37 36 8c  0d 12 52 fc 66 74 25 3d  |1048576...R.ft%=|
00005940  28 6c 6f 61 64 25 80 26  66 66 66 30 30 29 3e 3e  |(load%.&fff00)>>|
00005950  38 3a 62 6c 6f 63 6b 25  21 34 30 3d 66 69 6c 65  |8:block%!40=file|
00005960  69 6e 66 6f 25 3a 62 6c  6f 63 6b 25 21 34 34 3d  |info%:block%!44=|
00005970  31 30 3a 62 6c 6f 63 6b  25 21 34 38 3d 30 3a 62  |10:block%!48=0:b|
00005980  6c 6f 63 6b 25 21 35 32  3d 36 33 3a c8 99 77 69  |lock%!52=63:..wi|
00005990  6d 70 73 69 73 25 2c 2c  62 6c 6f 63 6b 25 2b 34  |mpsis%,,block%+4|
000059a0  30 3a c8 99 26 32 30 30  32 33 2c 22 46 69 6c 65  |0:..&20023,"File|
000059b0  24 54 79 70 65 5f 22 2b  c3 7e 28 66 74 25 29 2c  |$Type_"+.~(ft%),|
000059c0  62 6c 6f 63 6b 25 2b 34  30 2c 31 38 2c 30 2c 33  |block%+40,18,0,3|
000059d0  b8 2c 2c 6c 65 6e 67 74  68 25 2c 6d 6f 72 65 25  |.,,length%,more%|
000059e0  3a 62 6c 6f 63 6b 25 3f  28 6c 65 6e 67 74 68 25  |:block%?(length%|
000059f0  2b 34 30 29 3d 30 3a 54  24 3d a4 41 28 62 6c 6f  |+40)=0:T$=.A(blo|
00005a00  63 6b 25 2b 34 30 29 3a  f2 42 28 54 24 29 3a 54  |ck%+40):.B(T$):T|
00005a10  24 3d c0 54 24 2b 22 20  20 20 20 20 20 20 20 20  |$=.T$+"         |
00005a20  22 2c 39 29 2b 22 28 22  2b c3 7e 28 66 74 25 29  |",9)+"("+.~(ft%)|
00005a30  2b 22 29 22 0d 12 5c 16  58 24 3d 22 66 69 6c 65  |+")"..\.X$="file|
00005a40  5f 22 2b c3 7e 28 66 74  25 29 0d 12 66 6e cc 3a  |_"+.~(ft%)..fn.:|
00005a50  54 24 3d 22 46 69 6c 65  22 3a 58 24 3d 22 46 69  |T$="File":X$="Fi|
00005a60  6c 65 5f 78 78 78 22 3a  62 6c 6f 63 6b 25 21 34  |le_xxx":block%!4|
00005a70  30 3d 66 69 6c 65 69 6e  66 6f 25 3a 62 6c 6f 63  |0=fileinfo%:bloc|
00005a80  6b 25 21 34 34 3d 31 30  3a 62 6c 6f 63 6b 25 21  |k%!44=10:block%!|
00005a90  34 38 3d 36 33 3a 62 6c  6f 63 6b 25 21 35 32 3d  |48=63:block%!52=|
00005aa0  36 33 3a c8 99 77 69 6d  70 73 69 73 25 2c 2c 62  |63:..wimpsis%,,b|
00005ab0  6c 6f 63 6b 25 2b 34 30  0d 12 70 05 cd 0d 12 7a  |lock%+40..p....z|
00005ac0  84 cd 3a 62 6c 6f 63 6b  25 21 34 30 3d 65 78 65  |..:block%!40=exe|
00005ad0  63 25 3a 62 6c 6f 63 6b  25 21 34 34 3d 6c 6f 61  |c%:block%!44=loa|
00005ae0  64 25 3a c8 99 31 39 33  2c 62 6c 6f 63 6b 25 2b  |d%:..193,block%+|
00005af0  34 30 2c 62 6c 6f 63 6b  25 2b 34 38 2c 33 30 2c  |40,block%+48,30,|
00005b00  22 25 32 34 3a 25 6d 69  3a 25 73 65 20 25 64 79  |"%24:%mi:%se %dy|
00005b10  20 25 6d 33 20 25 63 65  25 79 72 22 3a 67 24 3d  | %m3 %ce%yr":g$=|
00005b20  a4 41 28 62 6c 6f 63 6b  25 2b 34 38 29 3a e7 28  |.A(block%+48):.(|
00005b30  61 74 74 72 25 80 38 29  3d 38 8c 4c 24 3d 22 4c  |attr%.8)=8.L$="L|
00005b40  22 0d 12 84 18 e7 28 61  74 74 72 25 80 32 29 3d  |".....(attr%.2)=|
00005b50  32 8c 4c 24 2b 3d 22 57  22 0d 12 8e 18 e7 28 61  |2.L$+="W".....(a|
00005b60  74 74 72 25 80 31 29 3d  31 8c 4c 24 2b 3d 22 52  |ttr%.1)=1.L$+="R|
00005b70  22 0d 12 98 22 4c 24 2b  3d 22 2f 22 3a e7 28 61  |"..."L$+="/":.(a|
00005b80  74 74 72 25 80 33 32 29  3d 33 32 8c 4c 24 2b 3d  |ttr%.32)=32.L$+=|
00005b90  22 77 22 0d 12 a2 1a e7  28 61 74 74 72 25 80 31  |"w".....(attr%.1|
00005ba0  36 29 3d 31 36 8c 4c 24  2b 3d 22 72 22 0d 12 ac  |6)=16.L$+="r"...|
00005bb0  56 62 6c 6f 63 6b 25 21  34 30 3d 66 69 6c 65 69  |Vblock%!40=filei|
00005bc0  6e 66 6f 25 3a 62 6c 6f  63 6b 25 21 34 34 3d 35  |nfo%:block%!44=5|
00005bd0  3a c8 99 77 69 6d 70 67  69 73 25 2c 2c 62 6c 6f  |:..wimpgis%,,blo|
00005be0  63 6b 25 2b 34 30 3a f2  5a 28 c1 41 24 28 6c 25  |ck%+40:.Z(.A$(l%|
00005bf0  29 2c a9 53 24 2b 32 29  2c 62 6c 6f 63 6b 25 21  |),.S$+2),block%!|
00005c00  36 38 29 0d 12 b6 c1 cc  3a 67 24 3d 22 22 3a 58  |68).....:g$="":X|
00005c10  24 3d 22 22 3a 4c 24 3d  22 22 3a 54 24 3d 22 22  |$="":L$="":T$=""|
00005c20  3a 6c 65 6e 25 3d 30 3a  6c 6f 61 64 25 3d 30 3a  |:len%=0:load%=0:|
00005c30  65 78 65 63 25 3d 30 3a  62 6c 6f 63 6b 25 21 34  |exec%=0:block%!4|
00005c40  30 3d 66 69 6c 65 69 6e  66 6f 25 3a 62 6c 6f 63  |0=fileinfo%:bloc|
00005c50  6b 25 21 34 34 3d 31 30  3a 62 6c 6f 63 6b 25 21  |k%!44=10:block%!|
00005c60  34 38 3d 30 3a 62 6c 6f  63 6b 25 21 35 32 3d 36  |48=0:block%!52=6|
00005c70  33 3a c8 99 77 69 6d 70  73 69 73 25 2c 2c 62 6c  |3:..wimpsis%,,bl|
00005c80  6f 63 6b 25 2b 34 30 3a  62 6c 6f 63 6b 25 21 34  |ock%+40:block%!4|
00005c90  34 3d 35 3a c8 99 77 69  6d 70 67 69 73 25 2c 2c  |4=5:..wimpgis%,,|
00005ca0  62 6c 6f 63 6b 25 2b 34  30 3a f2 5a 28 22 4e 6f  |block%+40:.Z("No|
00005cb0  74 20 46 6f 75 6e 64 21  22 2c 62 6c 6f 63 6b 25  |t Found!",block%|
00005cc0  21 36 38 29 0d 12 c0 fc  cd 3a 62 6c 6f 63 6b 25  |!68).....:block%|
00005cd0  21 34 34 3d 37 3a c8 99  77 69 6d 70 67 69 73 25  |!44=7:..wimpgis%|
00005ce0  2c 2c 62 6c 6f 63 6b 25  2b 34 30 3a f2 5a 28 67  |,,block%+40:.Z(g|
00005cf0  24 2c 62 6c 6f 63 6b 25  21 36 38 29 3a 62 6c 6f  |$,block%!68):blo|
00005d00  63 6b 25 21 34 34 3d 38  3a c8 99 77 69 6d 70 67  |ck%!44=8:..wimpg|
00005d10  69 73 25 2c 2c 62 6c 6f  63 6b 25 2b 34 30 3a f2  |is%,,block%+40:.|
00005d20  5a 28 4c 24 2c 62 6c 6f  63 6b 25 21 36 38 29 3a  |Z(L$,block%!68):|
00005d30  4c 24 3d c2 22 30 30 30  30 30 30 30 30 22 2b c3  |L$=."00000000"+.|
00005d40  7e 28 6c 6f 61 64 25 29  2c 38 29 2b 22 20 20 20  |~(load%),8)+"   |
00005d50  22 2b c2 22 30 30 30 30  30 30 30 30 22 2b c3 7e  |"+."00000000"+.~|
00005d60  28 65 78 65 63 25 29 2c  38 29 3a 62 6c 6f 63 6b  |(exec%),8):block|
00005d70  25 21 34 34 3d 31 30 3a  c8 99 77 69 6d 70 67 69  |%!44=10:..wimpgi|
00005d80  73 25 2c 2c 62 6c 6f 63  6b 25 2b 34 30 3a f2 5a  |s%,,block%+40:.Z|
00005d90  28 4c 24 2c 62 6c 6f 63  6b 25 21 36 38 29 3a 62  |(L$,block%!68):b|
00005da0  6c 6f 63 6b 25 21 34 34  3d 34 3a c8 99 77 69 6d  |lock%!44=4:..wim|
00005db0  70 67 69 73 25 2c 2c 62  6c 6f 63 6b 25 2b 34 30  |pgis%,,block%+40|
00005dc0  0d 12 ca 83 f2 5a 28 c3  28 6c 65 6e 25 29 2c 62  |.....Z(.(len%),b|
00005dd0  6c 6f 63 6b 25 21 36 38  29 3a 62 6c 6f 63 6b 25  |lock%!68):block%|
00005de0  21 34 34 3d 32 3a c8 99  77 69 6d 70 67 69 73 25  |!44=2:..wimpgis%|
00005df0  2c 2c 62 6c 6f 63 6b 25  2b 34 30 3a f2 5a 28 54  |,,block%+40:.Z(T|
00005e00  24 2c 62 6c 6f 63 6b 25  21 36 38 29 3a 62 6c 6f  |$,block%!68):blo|
00005e10  63 6b 25 21 34 34 3d 30  3a c8 99 77 69 6d 70 67  |ck%!44=0:..wimpg|
00005e20  69 73 25 2c 2c 62 6c 6f  63 6b 25 2b 34 30 3a f2  |is%,,block%+40:.|
00005e30  5a 28 22 53 22 2b 58 24  2c 62 6c 6f 63 6b 25 21  |Z("S"+X$,block%!|
00005e40  37 32 29 0d 12 d4 07 cd  3a ed 0d 12 de 07 cd 3a  |72).....:......:|
00005e50  e1 0d 12 e8 d1 dd f2 4e  79 3a ea 74 61 73 6b 68  |.......Ny:.taskh|
00005e60  25 2c 6e 65 78 74 25 3a  6e 65 78 74 25 3d a4 4d  |%,next%:next%=.M|
00005e70  28 62 61 63 6b 67 25 29  3a 21 62 6c 6f 63 6b 25  |(backg%):!block%|
00005e80  3d 32 30 3a 62 6c 6f 63  6b 25 21 31 32 3d 30 3a  |=20:block%!12=0:|
00005e90  62 6c 6f 63 6b 25 21 31  36 3d 30 3a c8 99 77 69  |block%!16=0:..wi|
00005ea0  6d 70 73 6d 25 2c 31 39  2c 62 6c 6f 63 6b 25 2c  |mpsm%,19,block%,|
00005eb0  6e 65 78 74 25 b8 2c 2c  74 61 73 6b 68 25 3a c8  |next%.,,taskh%:.|
00005ec0  95 6e 65 78 74 25 3c 3e  2d 31 3a 21 62 6c 6f 63  |.next%<>-1:!bloc|
00005ed0  6b 25 3d 32 30 3a 62 6c  6f 63 6b 25 21 31 32 3d  |k%=20:block%!12=|
00005ee0  30 3a 62 6c 6f 63 6b 25  21 31 36 3d 30 3a c8 99  |0:block%!16=0:..|
00005ef0  77 69 6d 70 73 6d 25 2c  31 39 2c 62 6c 6f 63 6b  |wimpsm%,19,block|
00005f00  25 2c 6e 65 78 74 25 b8  2c 2c 74 61 73 6b 68 32  |%,next%.,,taskh2|
00005f10  25 3a e7 74 61 73 6b 68  32 25 3d 74 61 73 6b 68  |%:.taskh2%=taskh|
00005f20  25 8c 0d 12 f2 3a 62 6c  6f 63 6b 25 21 30 3d 6e  |%....:block%!0=n|
00005f30  65 78 74 25 3a c8 99 77  69 6d 70 67 77 73 25 2c  |ext%:..wimpgws%,|
00005f40  2c 62 6c 6f 63 6b 25 3a  e7 28 62 6c 6f 63 6b 25  |,block%:.(block%|
00005f50  21 33 32 80 33 32 29 3c  3e 33 32 8c 0d 12 fc 29  |!32.32)<>32....)|
00005f60  62 6c 6f 63 6b 25 21 32  38 3d 2d 31 3a c8 99 77  |block%!28=-1:..w|
00005f70  69 6d 70 73 6d 25 2c 32  2c 62 6c 6f 63 6b 25 2c  |impsm%,2,block%,|
00005f80  6e 65 78 74 25 0d 13 06  05 cd 0d 13 10 19 cd 3a  |next%..........:|
00005f90  6e 65 78 74 25 3d a4 4d  28 6e 65 78 74 25 29 3a  |next%=.M(next%):|
00005fa0  ce 3a e1 0d 13 1a 60 dd  f2 4c 79 3a ea 6d 78 25  |.:....`..Ly:.mx%|
00005fb0  2c 6d 79 25 3a 6d 78 25  3d 21 62 6c 6f 63 6b 25  |,my%:mx%=!block%|
00005fc0  3a 6d 79 25 3d 62 6c 6f  63 6b 25 21 34 3a 21 62  |:my%=block%!4:!b|
00005fd0  6c 6f 63 6b 25 3d 73 61  76 65 77 69 6e 64 6f 77  |lock%=savewindow|
00005fe0  25 3a c8 99 77 69 6d 70  67 77 73 25 2c 2c 62 6c  |%:..wimpgws%,,bl|
00005ff0  6f 63 6b 25 3a e7 64 72  61 67 61 73 70 72 69 74  |ock%:.dragasprit|
00006000  65 25 8c 0d 13 24 79 62  6c 6f 63 6b 25 21 38 3d  |e%...$yblock%!8=|
00006010  62 6c 6f 63 6b 25 21 34  2b 37 38 3a 62 6c 6f 63  |block%!4+78:bloc|
00006020  6b 25 21 31 32 3d 62 6c  6f 63 6b 25 21 31 36 2d  |k%!12=block%!16-|
00006030  39 30 3a 62 6c 6f 63 6b  25 21 31 36 3d 62 6c 6f  |90:block%!16=blo|
00006040  63 6b 25 21 38 2b 36 38  3a 62 6c 6f 63 6b 25 21  |ck%!8+68:block%!|
00006050  32 30 3d 62 6c 6f 63 6b  25 21 31 32 2b 36 38 3a  |20=block%!12+68:|
00006060  e7 a4 50 28 a4 41 28 73  70 72 69 74 65 25 2b 31  |..P(.A(sprite%+1|
00006070  32 2a 72 65 6d 6f 76 65  25 29 29 8c 0d 13 2e 32  |2*remove%))....2|
00006080  c8 99 26 34 32 34 30 30  2c 31 39 37 2c 31 2c a4  |..&42400,197,1,.|
00006090  41 28 73 70 72 69 74 65  25 2b 31 32 2a 72 65 6d  |A(sprite%+12*rem|
000060a0  6f 76 65 25 29 2c 62 6c  6f 63 6b 25 2b 38 0d 13  |ove%),block%+8..|
000060b0  38 17 cc 3a e7 74 79 70  65 25 3f 72 65 6d 6f 76  |8..:.type%?remov|
000060c0  65 25 3d 33 8c 0d 13 42  29 c8 99 26 34 32 34 30  |e%=3...B)..&4240|
000060d0  30 2c 31 39 37 2c 31 2c  22 61 70 70 6c 69 63 61  |0,197,1,"applica|
000060e0  74 69 6f 6e 22 2c 62 6c  6f 63 6b 25 2b 38 0d 13  |tion",block%+8..|
000060f0  4c 28 cc 3a c8 99 26 34  32 34 30 30 2c 31 39 37  |L(.:..&42400,197|
00006100  2c 31 2c 22 66 69 6c 65  5f 78 78 78 22 2c 62 6c  |,1,"file_xxx",bl|
00006110  6f 63 6b 25 2b 38 0d 13  56 05 cd 0d 13 60 05 cd  |ock%+8..V....`..|
00006120  0d 13 6a dc cc 3a 62 6c  6f 63 6b 25 21 31 32 3d  |..j..:block%!12=|
00006130  62 6c 6f 63 6b 25 21 38  2b 37 34 3a 62 6c 6f 63  |block%!8+74:bloc|
00006140  6b 25 21 38 3d 62 6c 6f  63 6b 25 21 34 2b 37 34  |k%!8=block%!4+74|
00006150  3a 62 6c 6f 63 6b 25 21  32 30 3d 62 6c 6f 63 6b  |:block%!20=block|
00006160  25 21 31 32 2b 37 36 3a  62 6c 6f 63 6b 25 21 31  |%!12+76:block%!1|
00006170  36 3d 62 6c 6f 63 6b 25  21 38 2b 37 36 3a 62 6c  |6=block%!8+76:bl|
00006180  6f 63 6b 25 21 32 34 3d  2d 6d 78 25 3a 62 6c 6f  |ock%!24=-mx%:blo|
00006190  63 6b 25 21 32 38 3d 2d  6d 79 25 3a 62 6c 6f 63  |ck%!28=-my%:bloc|
000061a0  6b 25 21 33 32 3d 21 78  6d 61 78 25 2b 6d 78 25  |k%!32=!xmax%+mx%|
000061b0  3a 62 6c 6f 63 6b 25 21  33 36 3d 21 79 6d 61 78  |:block%!36=!ymax|
000061c0  25 2b 6d 79 25 3a 62 6c  6f 63 6b 25 21 30 3d 73  |%+my%:block%!0=s|
000061d0  61 76 65 77 69 6e 64 6f  77 25 3a 62 6c 6f 63 6b  |avewindow%:block|
000061e0  25 21 34 3d 35 3a c8 99  77 69 6d 70 64 72 61 67  |%!4=5:..wimpdrag|
000061f0  62 6f 78 25 2c 2c 62 6c  6f 63 6b 25 0d 13 74 21  |box%,,block%..t!|
00006200  cd 3a 64 72 61 67 74 79  70 65 25 3d 32 3a 64 72  |.:dragtype%=2:dr|
00006210  61 67 25 3d 72 65 6d 6f  76 65 25 3a e1 0d 13 7e  |ag%=remove%:...~|
00006220  2d dd f2 6e 28 62 75 74  25 2c 69 63 6f 6e 25 29  |-..n(but%,icon%)|
00006230  3a ea 74 61 73 6b 68 25  2c 6c 25 2c 53 24 2c 66  |:.taskh%,l%,S$,f|
00006240  24 3a c8 8e 69 63 6f 6e  25 ca 0d 13 88 14 c9 30  |$:..icon%......0|
00006250  3a e7 21 6e 6f 61 70 70  73 25 3e 2d 31 8c 0d 13  |:.!noapps%>-1...|
00006260  92 64 21 62 6c 6f 63 6b  25 3d 73 61 76 65 77 69  |.d!block%=savewi|
00006270  6e 64 6f 77 25 3a 62 6c  6f 63 6b 25 21 34 3d 31  |ndow%:block%!4=1|
00006280  3a c8 99 77 69 6d 70 67  69 73 25 2c 2c 62 6c 6f  |:..wimpgis%,,blo|
00006290  63 6b 25 3a 66 24 3d a4  41 28 62 6c 6f 63 6b 25  |ck%:f$=.A(block%|
000062a0  21 32 38 29 3a e3 6c 25  3d 30 b8 21 6e 6f 61 70  |!28):.l%=0.!noap|
000062b0  70 73 25 3a e7 73 65 6c  65 63 74 25 3f 6c 25 3d  |ps%:.select%?l%=|
000062c0  31 8c 0d 13 9c 8b 53 24  3d a4 46 28 41 24 28 6c  |1.....S$=.F(A$(l|
000062d0  25 29 29 3a c8 99 26 34  30 30 64 65 2c 22 46 69  |%)):..&400de,"Fi|
000062e0  6c 65 72 5f 41 63 74 69  6f 6e 22 b8 74 61 73 6b  |ler_Action".task|
000062f0  68 25 3a c8 99 26 34 30  66 38 30 2c 74 61 73 6b  |h%:..&40f80,task|
00006300  68 25 2c 53 24 3a c8 99  26 34 30 66 38 31 2c 74  |h%,S$:..&40f81,t|
00006310  61 73 6b 68 25 2c c1 41  24 28 6c 25 29 2c a9 53  |askh%,.A$(l%),.S|
00006320  24 2b 32 29 3a c8 99 26  34 30 66 38 32 2c 74 61  |$+2):..&40f82,ta|
00006330  73 6b 68 25 2c 37 2c 66  69 6c 65 72 6f 70 74 69  |skh%,7,fileropti|
00006340  6f 6e 73 25 2c 66 24 2c  a9 66 24 2b 31 0d 13 a6  |ons%,f$,.f$+1...|
00006350  07 cd 3a ed 0d 13 b0 05  cd 0d 13 ba 07 cb 3a e1  |..:...........:.|
00006360  0d 13 c4 4b dd f2 48 79  3a ea 6d 61 78 78 25 2c  |...K..Hy:.maxx%,|
00006370  6d 61 78 79 25 2c 6d 69  6e 78 25 2c 6d 69 6e 79  |maxy%,minx%,miny|
00006380  25 2c 4d 2c 5a 2c 70 78  25 2c 70 79 25 2c 78 6f  |%,M,Z,px%,py%,xo|
00006390  66 66 25 2c 79 6f 66 66  25 3a e7 64 72 61 67 67  |ff%,yoff%:.dragg|
000063a0  69 6e 67 77 69 6e 64 6f  77 25 8c 0d 13 ce 15 64  |ingwindow%.....d|
000063b0  72 61 67 67 69 6e 67 77  69 6e 64 6f 77 25 3d a3  |raggingwindow%=.|
000063c0  0d 13 d8 2e cc 3a f2 41  79 3a 78 6f 25 3d 21 78  |.....:.Ay:xo%=!x|
000063d0  6d 61 78 25 2f 32 2d 70  78 25 3a 79 6f 25 3d 21  |max%/2-px%:yo%=!|
000063e0  79 6d 61 78 25 2f 32 2d  70 79 25 3a f2 4c 0d 13  |ymax%/2-py%:.L..|
000063f0  e2 07 cd 3a e1 0d 13 ec  9c dd f2 41 79 3a 70 78  |...:.......Ay:px|
00006400  25 3d 21 62 6c 6f 63 6b  25 3a 70 79 25 3d 62 6c  |%=!block%:py%=bl|
00006410  6f 63 6b 25 21 34 3a 21  62 6c 6f 63 6b 25 3d 6d  |ock%!4:!block%=m|
00006420  61 70 77 69 6e 64 6f 77  25 3a c8 99 77 69 6d 70  |apwindow%:..wimp|
00006430  67 77 73 25 2c 2c 62 6c  6f 63 6b 25 3a 70 78 25  |gws%,,block%:px%|
00006440  2d 3d 62 6c 6f 63 6b 25  21 34 3a 70 79 25 2d 3d  |-=block%!4:py%-=|
00006450  62 6c 6f 63 6b 25 21 38  3a f2 78 3a 70 78 25 3d  |block%!8:.x:px%=|
00006460  28 28 70 78 25 2d 78 6f  66 66 25 29 2f 4d 29 2b  |((px%-xoff%)/M)+|
00006470  6d 69 6e 78 25 3a 70 79  25 3d 28 28 70 79 25 2d  |minx%:py%=((py%-|
00006480  79 6f 66 66 25 29 2f 5a  29 2b 6d 69 6e 79 25 3a  |yoff%)/Z)+miny%:|
00006490  e1 0d 13 f6 cc dd f2 4f  79 3a ea 6d 61 78 78 25  |.......Oy:.maxx%|
000064a0  2c 6d 61 78 79 25 2c 6d  69 6e 78 25 2c 6d 69 6e  |,maxy%,minx%,min|
000064b0  79 25 2c 4d 2c 5a 2c 70  78 25 2c 70 79 25 2c 78  |y%,M,Z,px%,py%,x|
000064c0  6f 66 66 25 2c 79 6f 66  66 25 2c 6e 65 78 74 25  |off%,yoff%,next%|
000064d0  2c 77 68 61 6e 64 6c 65  25 2c 6d 78 25 2c 6d 79  |,whandle%,mx%,my|
000064e0  25 2c 62 75 74 74 25 3a  62 75 74 74 25 3d 62 6c  |%,butt%:butt%=bl|
000064f0  6f 63 6b 25 21 38 3a 6d  78 25 3d 21 62 6c 6f 63  |ock%!8:mx%=!bloc|
00006500  6b 25 3a 6d 79 25 3d 62  6c 6f 63 6b 25 21 34 3a  |k%:my%=block%!4:|
00006510  f2 41 79 3a 77 68 61 6e  64 6c 65 25 3d 2d 31 3a  |.Ay:whandle%=-1:|
00006520  6e 65 78 74 25 3d a4 4d  28 62 61 63 6b 67 25 29  |next%=.M(backg%)|
00006530  3a c8 95 6e 65 78 74 25  3c 3e 2d 31 3a 21 62 6c  |:..next%<>-1:!bl|
00006540  6f 63 6b 25 3d 6e 65 78  74 25 3a c8 99 77 69 6d  |ock%=next%:..wim|
00006550  70 67 77 73 25 2c 2c 62  6c 6f 63 6b 25 0d 14 00  |pgws%,,block%...|
00006560  5e e7 62 6c 6f 63 6b 25  21 34 3c 3d 70 78 25 80  |^.block%!4<=px%.|
00006570  62 6c 6f 63 6b 25 21 31  32 3e 3d 70 78 25 80 62  |block%!12>=px%.b|
00006580  6c 6f 63 6b 25 21 38 3c  3d 70 79 25 80 62 6c 6f  |lock%!8<=py%.blo|
00006590  63 6b 25 21 31 36 3e 3d  70 79 25 80 28 62 6c 6f  |ck%!16>=py%.(blo|
000065a0  63 6b 25 21 33 32 80 33  32 29 3d 30 8c 77 68 61  |ck%!32.32)=0.wha|
000065b0  6e 64 6c 65 25 3d 6e 65  78 74 25 0d 14 0a 24 6e  |ndle%=next%...$n|
000065c0  65 78 74 25 3d a4 4d 28  6e 65 78 74 25 29 3a ce  |ext%=.M(next%):.|
000065d0  3a e7 77 68 61 6e 64 6c  65 25 3c 3e 2d 31 8c 0d  |:.whandle%<>-1..|
000065e0  14 14 3f 64 72 61 67 67  69 6e 67 77 69 6e 64 6f  |..?draggingwindo|
000065f0  77 25 3d b9 3a 64 72 61  67 67 69 6e 67 77 68 61  |w%=.:draggingwha|
00006600  6e 64 6c 65 25 3d 77 68  61 6e 64 6c 65 25 3a e7  |ndle%=whandle%:.|
00006610  28 62 75 74 74 25 80 31  36 29 3d 31 36 8c 0d 14  |(butt%.16)=16...|
00006620  1e 0f 64 72 61 67 74 79  70 65 25 3d 34 0d 14 28  |..dragtype%=4..(|
00006630  11 cc 3a 64 72 61 67 74  79 70 65 25 3d 33 0d 14  |..:dragtype%=3..|
00006640  32 dd cd 3a 21 62 6c 6f  63 6b 25 3d 77 68 61 6e  |2..:!block%=whan|
00006650  64 6c 65 25 3a c8 99 77  69 6d 70 67 77 73 25 2c  |dle%:..wimpgws%,|
00006660  2c 62 6c 6f 63 6b 25 3a  62 6c 6f 63 6b 25 21 32  |,block%:block%!2|
00006670  30 3d 6d 61 70 77 69 6e  64 6f 77 25 3a c8 99 77  |0=mapwindow%:..w|
00006680  69 6d 70 67 77 73 25 2c  2c 62 6c 6f 63 6b 25 2b  |impgws%,,block%+|
00006690  32 30 3a 62 6c 6f 63 6b  25 21 32 30 3d 28 62 6c  |20:block%!20=(bl|
000066a0  6f 63 6b 25 21 31 36 2d  6d 69 6e 79 25 29 2a 5a  |ock%!16-miny%)*Z|
000066b0  2b 79 6f 66 66 25 2b 62  6c 6f 63 6b 25 21 32 38  |+yoff%+block%!28|
000066c0  3a 62 6c 6f 63 6b 25 21  31 36 3d 28 62 6c 6f 63  |:block%!16=(bloc|
000066d0  6b 25 21 31 32 2d 6d 69  6e 78 25 29 2a 4d 2b 78  |k%!12-minx%)*M+x|
000066e0  6f 66 66 25 2b 62 6c 6f  63 6b 25 21 32 34 3a 62  |off%+block%!24:b|
000066f0  6c 6f 63 6b 25 21 31 32  3d 28 62 6c 6f 63 6b 25  |lock%!12=(block%|
00006700  21 38 2d 6d 69 6e 79 25  29 2a 5a 2b 79 6f 66 66  |!8-miny%)*Z+yoff|
00006710  25 2b 62 6c 6f 63 6b 25  21 32 38 0d 14 3c 51 62  |%+block%!28..<Qb|
00006720  6c 6f 63 6b 25 21 38 3d  28 62 6c 6f 63 6b 25 21  |lock%!8=(block%!|
00006730  34 2d 6d 69 6e 78 25 29  2a 4d 2b 78 6f 66 66 25  |4-minx%)*M+xoff%|
00006740  2b 62 6c 6f 63 6b 25 21  32 34 3a 62 6c 6f 63 6b  |+block%!24:block|
00006750  25 21 34 3d 35 3a c8 99  77 69 6d 70 64 72 61 67  |%!4=5:..wimpdrag|
00006760  62 6f 78 25 2c 2c 62 6c  6f 63 6b 25 0d 14 46 e8  |box%,,block%..F.|
00006770  cc 3a 64 72 61 67 67 69  6e 67 77 69 6e 64 6f 77  |.:draggingwindow|
00006780  25 3d b9 3a 64 72 61 67  67 69 6e 67 77 68 61 6e  |%=.:draggingwhan|
00006790  64 6c 65 25 3d 2d 31 3a  64 72 61 67 74 79 70 65  |dle%=-1:dragtype|
000067a0  25 3d 34 3a 62 6c 6f 63  6b 25 21 32 30 3d 6d 61  |%=4:block%!20=ma|
000067b0  70 77 69 6e 64 6f 77 25  3a c8 99 77 69 6d 70 67  |pwindow%:..wimpg|
000067c0  77 73 25 2c 2c 62 6c 6f  63 6b 25 2b 32 30 3a 62  |ws%,,block%+20:b|
000067d0  6c 6f 63 6b 25 21 34 3d  35 3a 62 6c 6f 63 6b 25  |lock%!4=5:block%|
000067e0  21 32 30 3d 28 21 79 6d  61 78 25 2d 6d 69 6e 79  |!20=(!ymax%-miny|
000067f0  25 29 2a 5a 2b 79 6f 66  66 25 2b 62 6c 6f 63 6b  |%)*Z+yoff%+block|
00006800  25 21 32 38 3a 62 6c 6f  63 6b 25 21 31 36 3d 28  |%!28:block%!16=(|
00006810  21 78 6d 61 78 25 2d 6d  69 6e 78 25 29 2a 4d 2b  |!xmax%-minx%)*M+|
00006820  78 6f 66 66 25 2b 62 6c  6f 63 6b 25 21 32 34 3a  |xoff%+block%!24:|
00006830  62 6c 6f 63 6b 25 21 31  32 3d 28 2d 6d 69 6e 79  |block%!12=(-miny|
00006840  25 29 2a 5a 2b 79 6f 66  66 25 2b 62 6c 6f 63 6b  |%)*Z+yoff%+block|
00006850  25 21 32 38 0d 14 50 3e  62 6c 6f 63 6b 25 21 38  |%!28..P>block%!8|
00006860  3d 28 2d 6d 69 6e 78 25  29 2a 4d 2b 78 6f 66 66  |=(-minx%)*M+xoff|
00006870  25 2b 62 6c 6f 63 6b 25  21 32 34 3a c8 99 77 69  |%+block%!24:..wi|
00006880  6d 70 64 72 61 67 62 6f  78 25 2c 2c 62 6c 6f 63  |mpdragbox%,,bloc|
00006890  6b 25 0d 14 5a 07 cd 3a  e1 0d 14 64 ad dd f2 47  |k%..Z..:...d...G|
000068a0  4a 3a ea 6c 25 2c 6d 65  6e 75 78 25 2c 6d 65 6e  |J:.l%,menux%,men|
000068b0  75 79 25 2c 72 65 6d 6f  76 65 25 2c 66 6f 75 6e  |uy%,remove%,foun|
000068c0  64 25 3a 6d 65 6e 75 78  25 3d 21 62 6c 6f 63 6b  |d%:menux%=!block|
000068d0  25 81 28 21 78 70 69 78  25 2a 38 30 2a 21 78 6d  |%.(!xpix%*80*!xm|
000068e0  75 6c 74 25 2f 21 78 64  69 76 25 29 3a 6d 65 6e  |ult%/!xdiv%):men|
000068f0  75 79 25 3d 28 62 6c 6f  63 6b 25 21 34 2d 21 62  |uy%=(block%!4-!b|
00006900  61 72 68 65 69 67 68 74  25 29 81 28 21 79 70 69  |arheight%).(!ypi|
00006910  78 25 2a 33 32 2a 21 79  6d 75 6c 74 25 2f 21 79  |x%*32*!ymult%/!y|
00006920  64 69 76 25 29 3a 66 6f  75 6e 64 25 3d a3 3a 72  |div%):found%=.:r|
00006930  65 6d 6f 76 65 25 3d 30  3a e7 21 6e 6f 61 70 70  |emove%=0:.!noapp|
00006940  73 25 3e 2d 31 8c 0d 14  6e 4d e3 6c 25 3d 30 b8  |s%>-1...nM.l%=0.|
00006950  21 6e 6f 61 70 70 73 25  3a e7 78 79 30 25 3f 6c  |!noapps%:.xy0%?l|
00006960  25 3d 6d 65 6e 75 78 25  80 78 79 31 25 3f 6c 25  |%=menux%.xy1%?l%|
00006970  3d 6d 65 6e 75 79 25 80  62 61 63 6b 64 72 6f 70  |=menuy%.backdrop|
00006980  25 3f 6c 25 3d 21 41 80  74 79 70 65 25 3f 6c 25  |%?l%=!A.type%?l%|
00006990  3d 36 8c 0d 14 78 17 66  6f 75 6e 64 25 3d b9 3a  |=6...x.found%=.:|
000069a0  72 65 6d 6f 76 65 25 3d  6c 25 0d 14 82 07 cd 3a  |remove%=l%.....:|
000069b0  ed 0d 14 8c 20 cd 3a e7  66 6f 75 6e 64 25 3d b9  |.... .:.found%=.|
000069c0  80 74 79 70 65 25 3f 72  65 6d 6f 76 65 25 3d 36  |.type%?remove%=6|
000069d0  8c 0d 14 96 78 77 68 61  6e 64 6c 65 25 3d a0 28  |....xwhandle%=.(|
000069e0  c0 41 24 28 72 65 6d 6f  76 65 25 29 2c a7 22 20  |.A$(remove%),." |
000069f0  22 2c 41 24 28 72 65 6d  6f 76 65 25 29 29 2d 31  |",A$(remove%))-1|
00006a00  29 29 3a 62 6c 6f 63 6b  25 21 38 3d 32 3a 62 6c  |)):block%!8=2:bl|
00006a10  6f 63 6b 25 21 31 32 3d  77 68 61 6e 64 6c 65 25  |ock%!12=whandle%|
00006a20  3a 62 6c 6f 63 6b 25 21  31 36 3d 2d 31 3a c8 99  |:block%!16=-1:..|
00006a30  77 69 6d 70 73 6d 25 2c  36 2c 62 6c 6f 63 6b 25  |wimpsm%,6,block%|
00006a40  2c 77 68 61 6e 64 6c 65  25 0d 14 a0 07 cd 3a e1  |,whandle%.....:.|
00006a50  0d 14 aa 76 dd f2 72 5f  3a ea 78 30 25 2c 79 30  |...v..r_:.x0%,y0|
00006a60  25 2c 78 31 25 2c 79 31  25 2c 6d 61 78 78 25 2c  |%,x1%,y1%,maxx%,|
00006a70  6d 61 78 79 25 2c 6d 69  6e 78 25 2c 6d 69 6e 79  |maxy%,minx%,miny|
00006a80  25 2c 67 78 31 25 2c 67  78 32 25 2c 67 79 31 25  |%,gx1%,gx2%,gy1%|
00006a90  2c 67 79 32 25 3a c8 99  26 34 34 36 63 34 b8 2c  |,gy2%:..&446c4.,|
00006aa0  78 30 25 2c 79 30 25 2c  78 31 25 2c 79 31 25 3a  |x0%,y0%,x1%,y1%:|
00006ab0  f2 69 5f 28 78 30 25 2c  79 30 25 2c 78 31 25 2c  |.i_(x0%,y0%,x1%,|
00006ac0  79 31 25 29 3a e1 0d 14  b4 72 dd f2 69 5f 28 78  |y1%):....r..i_(x|
00006ad0  30 25 2c 79 30 25 2c 78  31 25 2c 79 31 25 29 3a  |0%,y0%,x1%,y1%):|
00006ae0  f2 78 3a e7 6d 69 6e 78  25 2b 28 21 78 6d 61 78  |.x:.minx%+(!xmax|
00006af0  25 29 2f 32 3e 78 30 25  84 28 6d 69 6e 79 25 2b  |%)/2>x0%.(miny%+|
00006b00  21 79 6d 61 78 25 2f 32  29 3e 79 30 25 84 28 6d  |!ymax%/2)>y0%.(m|
00006b10  61 78 78 25 2d 21 78 6d  61 78 25 2f 32 29 3c 78  |axx%-!xmax%/2)<x|
00006b20  31 25 84 28 6d 61 78 79  25 2d 21 79 6d 61 78 25  |1%.(maxy%-!ymax%|
00006b30  2f 32 29 3c 79 31 25 8c  0d 14 be 14 f2 6d 28 30  |/2)<y1%......m(0|
00006b40  2c 2d 32 31 34 2c 34 37  36 2c 30 29 0d 14 c8 a2  |,-214,476,0)....|
00006b50  cc 3a 67 78 31 25 3d a4  55 28 28 78 30 25 2d 6d  |.:gx1%=.U((x0%-m|
00006b60  69 6e 78 25 29 2a 4d 2b  78 6f 66 66 25 29 3a 67  |inx%)*M+xoff%):g|
00006b70  79 31 25 3d a4 4e 28 28  79 30 25 2d 6d 69 6e 79  |y1%=.N((y0%-miny|
00006b80  25 29 2a 5a 2b 79 6f 66  66 25 2d 32 31 34 2d 32  |%)*Z+yoff%-214-2|
00006b90  2a 21 79 70 69 78 25 29  3a 67 78 32 25 3d a4 55  |*!ypix%):gx2%=.U|
00006ba0  28 28 78 31 25 2d 6d 69  6e 78 25 29 2a 4d 2b 78  |((x1%-minx%)*M+x|
00006bb0  6f 66 66 25 29 3a 67 79  32 25 3d a4 4e 28 28 79  |off%):gy2%=.N((y|
00006bc0  31 25 2d 6d 69 6e 79 25  29 2a 5a 2b 79 6f 66 66  |1%-miny%)*Z+yoff|
00006bd0  25 2d 32 31 34 29 3a f2  6d 28 67 78 31 25 2c 67  |%-214):.m(gx1%,g|
00006be0  79 31 25 2c 67 78 32 25  2c 67 79 32 25 29 0d 14  |y1%,gx2%,gy2%)..|
00006bf0  d2 07 cd 3a e1 0d 14 dc  33 dd f2 6d 79 3a c8 99  |...:....3..my:..|
00006c00  77 69 6d 70 67 65 74 70  6f 69 6e 74 65 72 69 6e  |wimpgetpointerin|
00006c10  66 6f 25 2c 2c 62 6c 6f  63 6b 25 3a c8 8e 62 6c  |fo%,,block%:..bl|
00006c20  6f 63 6b 25 21 31 32 ca  0d 14 e6 0b c9 62 61 63  |ock%!12......bac|
00006c30  6b 67 25 0d 14 f0 07 c9  2d 31 0d 14 fa 07 c9 2d  |kg%.....-1.....-|
00006c40  32 0d 15 04 48 7f 3a 62  6c 6f 63 6b 25 21 34 30  |2...H.:block%!40|
00006c50  3d 62 6c 6f 63 6b 25 21  31 32 3a c8 99 77 69 6d  |=block%!12:..wim|
00006c60  70 67 77 73 25 2c 2c 62  6c 6f 63 6b 25 2b 34 30  |pgws%,,block%+40|
00006c70  3a e7 28 62 6c 6f 63 6b  25 21 37 32 80 28 31 3c  |:.(block%!72.(1<|
00006c80  3c 31 37 29 29 3c 3e 30  8c 0d 15 0e 2f 62 6c 6f  |<17))<>0..../blo|
00006c90  63 6b 25 21 36 38 3d a4  4d 28 62 61 63 6b 67 25  |ck%!68=.M(backg%|
00006ca0  29 3a e7 62 6c 6f 63 6b  25 21 36 38 3c 3e 62 6c  |):.block%!68<>bl|
00006cb0  6f 63 6b 25 21 34 30 8c  0d 15 18 23 c8 99 77 69  |ock%!40....#..wi|
00006cc0  6d 70 73 6d 25 2c 32 2c  62 6c 6f 63 6b 25 2b 34  |mpsm%,2,block%+4|
00006cd0  30 2c 62 6c 6f 63 6b 25  21 34 30 0d 15 22 05 cd  |0,block%!40.."..|
00006ce0  0d 15 2c 32 cc 3a 62 6c  6f 63 6b 25 21 36 38 3d  |..,2.:block%!68=|
00006cf0  2d 31 3a c8 99 77 69 6d  70 73 6d 25 2c 32 2c 62  |-1:..wimpsm%,2,b|
00006d00  6c 6f 63 6b 25 2b 34 30  2c 62 6c 6f 63 6b 25 21  |lock%+40,block%!|
00006d10  34 30 0d 15 36 05 cd 0d  15 40 07 cb 3a e1 0d 15  |40..6....@..:...|
00006d20  4a f7 dd f2 62 28 64 72  61 67 25 2c 66 6f 75 6e  |J...b(drag%,foun|
00006d30  64 25 29 3a 72 24 3d a4  41 28 6c 65 61 66 25 2b  |d%):r$=.A(leaf%+|
00006d40  31 32 2a 66 6f 75 6e 64  25 29 3a f2 5a 28 a4 41  |12*found%):.Z(.A|
00006d50  28 6c 65 61 66 25 2b 31  32 2a 64 72 61 67 25 29  |(leaf%+12*drag%)|
00006d60  2c 6c 65 61 66 25 2b 31  32 2a 66 6f 75 6e 64 25  |,leaf%+12*found%|
00006d70  29 3a f2 5a 28 72 24 2c  6c 65 61 66 25 2b 31 32  |):.Z(r$,leaf%+12|
00006d80  2a 64 72 61 67 25 29 3a  72 24 3d a4 41 28 73 70  |*drag%):r$=.A(sp|
00006d90  72 69 74 65 25 2b 31 32  2a 64 72 61 67 25 29 3a  |rite%+12*drag%):|
00006da0  f2 5a 28 a4 41 28 73 70  72 69 74 65 25 2b 31 32  |.Z(.A(sprite%+12|
00006db0  2a 66 6f 75 6e 64 25 29  2c 73 70 72 69 74 65 25  |*found%),sprite%|
00006dc0  2b 31 32 2a 64 72 61 67  25 29 3a f2 5a 28 72 24  |+12*drag%):.Z(r$|
00006dd0  2c 73 70 72 69 74 65 25  2b 31 32 2a 66 6f 75 6e  |,sprite%+12*foun|
00006de0  64 25 29 3a c8 94 41 24  28 64 72 61 67 25 29 2c  |d%):..A$(drag%),|
00006df0  41 24 28 66 6f 75 6e 64  25 29 3a c8 94 74 79 70  |A$(found%):..typ|
00006e00  65 25 3f 64 72 61 67 25  2c 74 79 70 65 25 3f 66  |e%?drag%,type%?f|
00006e10  6f 75 6e 64 25 0d 15 54  e5 c8 94 64 72 61 67 6f  |ound%..T...drago|
00006e20  6e 74 6f 25 3f 64 72 61  67 25 2c 64 72 61 67 6f  |nto%?drag%,drago|
00006e30  6e 74 6f 25 3f 66 6f 75  6e 64 25 3a c8 94 62 61  |nto%?found%:..ba|
00006e40  63 6b 64 72 6f 70 25 3f  64 72 61 67 25 2c 62 61  |ckdrop%?drag%,ba|
00006e50  63 6b 64 72 6f 70 25 3f  66 6f 75 6e 64 25 3a c8  |ckdrop%?found%:.|
00006e60  94 68 6f 74 6b 65 79 73  25 21 28 64 72 61 67 25  |.hotkeys%!(drag%|
00006e70  2a 34 29 2c 68 6f 74 6b  65 79 73 25 21 28 66 6f  |*4),hotkeys%!(fo|
00006e80  75 6e 64 25 2a 34 29 3a  c8 94 5a 24 28 64 72 61  |und%*4):..Z$(dra|
00006e90  67 25 29 2c 5a 24 28 66  6f 75 6e 64 25 29 3a c8  |g%),Z$(found%):.|
00006ea0  94 4d 24 28 64 72 61 67  25 29 2c 4d 24 28 66 6f  |.M$(drag%),M$(fo|
00006eb0  75 6e 64 25 29 3a c8 94  41 25 28 64 72 61 67 25  |und%):..A%(drag%|
00006ec0  29 2c 41 25 28 66 6f 75  6e 64 25 29 3a 69 78 79  |),A%(found%):ixy|
00006ed0  30 25 3f 64 72 61 67 25  3d 78 79 30 25 3f 64 72  |0%?drag%=xy0%?dr|
00006ee0  61 67 25 3a 69 78 79 31  25 3f 64 72 61 67 25 3d  |ag%:ixy1%?drag%=|
00006ef0  78 79 31 25 3f 64 72 61  67 25 0d 15 5e 8e 69 78  |xy1%?drag%..^.ix|
00006f00  79 30 25 3f 66 6f 75 6e  64 25 3d 78 79 30 25 3f  |y0%?found%=xy0%?|
00006f10  66 6f 75 6e 64 25 3a 69  78 79 31 25 3f 66 6f 75  |found%:ixy1%?fou|
00006f20  6e 64 25 3d 78 79 31 25  3f 66 6f 75 6e 64 25 3a  |nd%=xy1%?found%:|
00006f30  73 65 6c 65 63 74 25 3f  64 72 61 67 25 3d 30 3a  |select%?drag%=0:|
00006f40  73 65 6c 65 63 74 25 3f  66 6f 75 6e 64 25 3d 30  |select%?found%=0|
00006f50  3a f2 53 28 78 79 30 25  3f 64 72 61 67 25 2c 78  |:.S(xy0%?drag%,x|
00006f60  79 31 25 3f 64 72 61 67  25 29 3a f2 53 28 78 79  |y1%?drag%):.S(xy|
00006f70  30 25 3f 66 6f 75 6e 64  25 2c 78 79 31 25 3f 66  |0%?found%,xy1%?f|
00006f80  6f 75 6e 64 25 29 3a e1  0d 15 68 84 dd f2 5a 5f  |ound%):...h...Z_|
00006f90  3a ea 42 24 2c 66 6c 61  67 25 2c 6c 25 2c 63 6f  |:.B$,flag%,l%,co|
00006fa0  75 6e 74 25 3a 42 24 3d  a4 41 28 6e 65 77 64 69  |unt%:B$=.A(newdi|
00006fb0  72 62 75 66 25 29 3a 3f  6e 65 77 64 69 72 62 75  |rbuf%):?newdirbu|
00006fc0  66 25 3d 30 3a c8 99 26  34 30 30 64 33 2c 2c 62  |f%=0:..&400d3,,b|
00006fd0  6c 6f 63 6b 25 2b 34 30  3a c8 99 26 34 30 30 64  |lock%+40:..&400d|
00006fe0  32 2c 62 6c 6f 63 6b 25  21 34 30 2c 62 6c 6f 63  |2,block%!40,bloc|
00006ff0  6b 25 21 34 34 2c 2c 2c  2d 31 2c 30 3a f2 42 28  |k%!44,,,-1,0:.B(|
00007000  42 24 29 3a e7 42 24 3c  3e 22 22 8c 0d 15 72 1a  |B$):.B$<>""...r.|
00007010  63 6f 75 6e 74 25 3d 30  3a e7 21 6e 6f 61 70 70  |count%=0:.!noapp|
00007020  73 25 3e 2d 31 8c 0d 15  7c 2d e3 6c 25 3d 30 b8  |s%>-1...|-.l%=0.|
00007030  21 6e 6f 61 70 70 73 25  3a e7 62 61 63 6b 64 72  |!noapps%:.backdr|
00007040  6f 70 25 3f 6c 25 3d 21  41 8c 63 6f 75 6e 74 25  |op%?l%=!A.count%|
00007050  2b 3d 31 0d 15 86 05 ed  0d 15 90 1b cd 3a 66 6c  |+=1..........:fl|
00007060  61 67 25 3d a3 3a e7 21  6e 6f 61 70 70 73 25 3e  |ag%=.:.!noapps%>|
00007070  2d 31 8c 0d 15 9a 24 e3  6c 25 3d 30 b8 21 6e 6f  |-1....$.l%=0.!no|
00007080  61 70 70 73 25 3a e7 62  61 63 6b 64 72 6f 70 25  |apps%:.backdrop%|
00007090  3f 6c 25 3d 21 41 8c 0d  15 a4 2a e7 a4 41 28 6c  |?l%=!A....*..A(l|
000070a0  65 61 66 25 2b 31 32 2a  6c 25 29 3d 42 24 80 74  |eaf%+12*l%)=B$.t|
000070b0  79 70 65 25 3f 6c 25 3d  37 8c 66 6c 61 67 25 3d  |ype%?l%=7.flag%=|
000070c0  b9 0d 15 ae 07 cd 3a ed  0d 15 b8 33 cd 3a e7 66  |......:....3.:.f|
000070d0  6c 61 67 25 3d a3 80 21  6e 6f 61 70 70 73 25 3c  |lag%=..!noapps%<|
000070e0  32 35 35 80 63 6f 75 6e  74 25 3c 28 21 78 77 69  |255.count%<(!xwi|
000070f0  64 25 2a 21 79 77 69 64  25 29 8c 0d 15 c2 39 f2  |d%*!ywid%)....9.|
00007100  44 28 2d 34 2c c3 28 6e  65 78 74 66 72 65 65 62  |D(-4,.(nextfreeb|
00007110  61 63 6b 64 72 6f 70 25  29 2c 42 24 2c a3 29 3a  |ackdrop%),B$,.):|
00007120  6e 65 78 74 66 72 65 65  62 61 63 6b 64 72 6f 70  |nextfreebackdrop|
00007130  25 2b 3d 31 0d 15 cc 05  cd 0d 15 d6 07 cd 3a e1  |%+=1..........:.|
00007140  0d 15 e0 1d dd f2 5a 79  3a ea 6c 25 2c 63 25 3a  |......Zy:.l%,c%:|
00007150  63 25 3d 21 41 3a e7 63  25 3c 3e 30 8c 0d 15 ea  |c%=!A:.c%<>0....|
00007160  11 e7 21 6e 6f 61 70 70  73 25 3e 2d 31 8c 0d 15  |..!noapps%>-1...|
00007170  f4 1f e3 6c 25 3d 30 b8  21 6e 6f 61 70 70 73 25  |...l%=0.!noapps%|
00007180  3a e7 74 79 70 65 25 3f  6c 25 3d 37 8c 0d 15 fe  |:.type%?l%=7....|
00007190  12 e7 a0 28 41 24 28 6c  25 29 29 3d 63 25 8c 0d  |...(A$(l%))=c%..|
000071a0  16 08 14 f2 72 28 62 61  63 6b 64 72 6f 70 25 3f  |....r(backdrop%?|
000071b0  6c 25 29 0d 16 12 05 cd  0d 16 1c 07 cd 3a ed 0d  |l%)..........:..|
000071c0  16 26 05 cd 0d 16 30 07  cd 3a e1 0d 16 3a 4c dd  |.&....0..:...:L.|
000071d0  f2 60 79 28 f8 41 24 29  3a ea 6c 25 2c 61 24 2c  |.`y(.A$):.l%,a$,|
000071e0  5f 24 3a 61 24 3d 22 22  3a 5f 24 3d 22 22 3a e3  |_$:a$="":_$="":.|
000071f0  6c 25 3d 31 b8 a9 41 24  3a 5f 24 3d c1 41 24 2c  |l%=1..A$:_$=.A$,|
00007200  6c 25 2c 31 29 3a e7 5f  24 3e 3d 22 61 22 80 5f  |l%,1):._$>="a"._|
00007210  24 3c 3d 22 7a 22 8c 0d  16 44 14 61 24 2b 3d bd  |$<="z"...D.a$+=.|
00007220  28 97 28 5f 24 29 80 32  32 33 29 0d 16 4e 0c cc  |(.(_$).223)..N..|
00007230  3a 61 24 2b 3d 5f 24 0d  16 58 0f cd 3a ed 3a 41  |:a$+=_$..X..:.:A|
00007240  24 3d 61 24 3a e1 0d 16  62 85 dd f2 6f 5f 3a ea  |$=a$:...b...o_:.|
00007250  50 24 2c 74 79 70 65 25  2c 66 69 6c 65 25 2c 63  |P$,type%,file%,c|
00007260  6c 69 63 6b 25 3a c8 99  26 34 34 36 63 64 b8 50  |lick%:..&446cd.P|
00007270  24 3a f2 42 28 50 24 29  3a f2 60 79 28 50 24 29  |$:.B(P$):.`y(P$)|
00007280  3a 74 79 70 65 25 3d 30  3a c8 95 c0 50 24 2c 35  |:type%=0:...P$,5|
00007290  29 3d 22 2d 54 49 4c 45  22 84 c0 50 24 2c 37 29  |)="-TILE"..P$,7)|
000072a0  3d 22 2d 43 45 4e 54 52  45 22 84 c0 50 24 2c 36  |="-CENTRE"..P$,6|
000072b0  29 3d 22 2d 53 43 41 4c  45 22 3a e7 c0 50 24 2c  |)="-SCALE":..P$,|
000072c0  35 29 3d 22 2d 54 49 4c  45 22 8c 0d 16 6c 15 50  |5)="-TILE"...l.P|
000072d0  24 3d c1 50 24 2c 36 29  3a 74 79 70 65 25 3d 32  |$=.P$,6):type%=2|
000072e0  0d 16 76 18 cd 3a e7 c0  50 24 2c 37 29 3d 22 2d  |..v..:..P$,7)="-|
000072f0  43 45 4e 54 52 45 22 8c  0d 16 80 15 50 24 3d c1  |CENTRE".....P$=.|
00007300  50 24 2c 38 29 3a 74 79  70 65 25 3d 31 0d 16 8a  |P$,8):type%=1...|
00007310  17 cd 3a e7 c0 50 24 2c  36 29 3d 22 2d 53 43 41  |..:..P$,6)="-SCA|
00007320  4c 45 22 8c 0d 16 94 15  50 24 3d c1 50 24 2c 37  |LE".....P$=.P$,7|
00007330  29 3a 74 79 70 65 25 3d  33 0d 16 9e 23 cd 3a f2  |):type%=3...#.:.|
00007340  42 28 50 24 29 3a ce 3a  e7 74 79 70 65 25 3c 3e  |B(P$):.:.type%<>|
00007350  30 8c f2 58 79 28 74 79  70 65 25 29 0d 16 a8 0c  |0..Xy(type%)....|
00007360  e7 50 24 3c 3e 22 22 8c  0d 16 b2 0c e7 a4 52 28  |.P$<>"".......R(|
00007370  50 24 29 8c 0d 16 bc 0a  f2 67 28 50 24 29 0d 16  |P$)......g(P$)..|
00007380  c6 5d cc 3a 21 62 6c 6f  63 6b 25 3d 30 3a f2 5a  |.].:!block%=0:.Z|
00007390  28 22 4e 6f 74 20 61 20  76 61 6c 69 64 20 73 70  |("Not a valid sp|
000073a0  72 69 74 65 66 69 6c 65  3a 20 22 2b 50 24 2c 62  |ritefile: "+P$,b|
000073b0  6c 6f 63 6b 25 2b 34 29  3a c8 99 26 34 30 30 64  |lock%+4):..&400d|
000073c0  66 2c 62 6c 6f 63 6b 25  2c 36 2c 22 4c 61 72 67  |f,block%,6,"Larg|
000073d0  65 72 22 b8 2c 63 6c 69  63 6b 25 0d 16 d0 05 cd  |er".,click%.....|
000073e0  0d 16 da 07 cd 3a e1 0d  16 e4 33 dd a4 52 28 57  |.....:....3..R(W|
000073f0  24 29 3a ea 66 6c 61 67  25 2c 66 74 25 2c 66 6c  |$):.flag%,ft%,fl|
00007400  61 67 73 25 3a 66 6c 61  67 25 3d a3 3a e7 a7 57  |ags%:flag%=.:..W|
00007410  24 2c 22 20 22 29 3c 3d  30 8c 0d 16 ee 44 c8 99  |$," ")<=0....D..|
00007420  26 32 30 30 30 38 2c 32  33 2c 57 24 b8 74 79 70  |&20008,23,W$.typ|
00007430  65 25 2c 2c 2c 2c 2c 2c  66 74 25 3b 66 6c 61 67  |e%,,,,,,ft%;flag|
00007440  73 25 3a 66 74 25 3d 66  74 25 80 34 30 39 35 3a  |s%:ft%=ft%.4095:|
00007450  e7 28 66 6c 61 67 73 25  80 31 29 3d 30 8c 0d 16  |.(flags%.1)=0...|
00007460  f8 15 e7 66 74 25 3d 34  30 38 39 8c 66 6c 61 67  |...ft%=4089.flag|
00007470  25 3d b9 0d 17 02 05 cd  0d 17 0c 0c cd 3a 3d 66  |%=...........:=f|
00007480  6c 61 67 25 0d 17 16 0f  dd a4 77 3a 3d 31 32 33  |lag%......w:=123|
00007490  34 35 36 0d ff                                    |456..|
00007495