� >!RunImage
:
/� block 150,sprites 1500,menu 100,heap 2100
()� name$(49),type(49),obj(49),icon(49)
2$block="TASK"
<8ș "Wimp_Initialise",200,!block,"Dustbin" � ,ourtask
F� � �error
P5ș "Wimp_OpenTemplate",,"<Rubbish$Dir>.Templates"
ZAș "Wimp_LoadTemplate",,block,0,0,-1,"Rubbish",0 � ,,,,,,next
d3block!64=1:ș "Wimp_CreateWindow",,block � dust
nș "Wimp_CloseTemplate"
x!sprites=2000:sprites!4=0
�sprites!8=16:sprites!12=16
�9ș "OS_SpriteOp",&10A,sprites,"<Rubbish$Dir>.Sprites"
�!block=-2:block!20=&3102
�block!4=0:block!12=68
�block!8=0:block!16=68
�� isp 10:$isp="empty"
�2block!24=isp:block!28=sprites:block!32=�$isp+1
�$ș "Wimp_CreateIcon",,block � ib
�quit=�:open=�
�items=0:icon()=-1
��readfiles
�
�empty
��

#ș "Wimp_Poll",1,block � reason

Ȏ reason �

:� 2:ș "Wimp_OpenWindow",,block:� !block=dust � open=�

";� 3:ș "Wimp_CloseWindow",,block:� !block=dust � open=�

,� 6:�buttons(block)

6
� 7:�save

@� 9:�menuselect(block)

J� 17,18:�receive(block)

T�

^
� quit

hș "Wimp_CloseDown"

r�

|:

�� �receive(b)

�
Ȏ b!16 �

�� 0:quit=�

�� 1:�datasave(b)

�� 2:�datasaveack(b)

�� 3:�dataload(b)

�� 8:�empty

�1� &400C2:� �dup(b+28) � b!4<>ourtask � quit=�

��

��

�:

�� �error

�ș "Wimp_DragBox",,-1
!block=�
4$(block+4)=�$+" (Internal error code "+Þ+")"+�0
+ș "Wimp_ReportError",block,1,"Dustbin"
&	�dz@
0:
:� �buttons(b)
D� b!8 � 2 �
N�menu(b)
X�
b
Ȏ b!12 �
l� -2:�readfiles:�open(dust)
v� dust:�startdrag(b)
��
��
��
�:
�� �open(handle)
�!block=handle
�#ș "Wimp_GetWindowState",,block
�ș "Wimp_OpenWindow",,block
�� handle=dust � open=�
��
�:
�� �menu(b)
�
Ȏ b!12 �
*� -2:�drawmenu(1,"Dustbin,Empty,Quit")
*ș "Wimp_CreateMenu",,menu+4,!b-64,136
'� dust:�drawmenu(2,"Dustbin,Empty")
 -ș "Wimp_CreateMenu",,menu+4,!b-32,b!4+16
*�
4�
>:
H� �drawmenu(handle,menu$)
R!menu=handle:menu?16=7
\!menu?17=2:menu?18=7:menu?19=0
fmenu!20=140:menu!24=40
pmenu!28=0:ptr=menu+32
z#$(menu+4)=�menu$,�menu$,",")-1)
�menu$=menu$+","
�ȕ menu$<>""
�menu$=�menu$,�menu$,",")+1)
�� menu$<>"" �
�!ptr=0:ptr!4=-1
�ptr!8=&7000021
�#$(ptr+12)=�menu$,�menu$,",")-1)
�ptr+=24
��
��
�ptr!-24=ptr!-24 � &80
��
�:
� �menuselect(b)
Ȏ !menu �
� 1
$� !b=1 � quit=�
.� !b=0 � �empty
8� 2
B� !b=0 � �empty
L�
V�
`:
j� �dup(ptr)
t	t$=""
~�
�t$=t$+�?ptr:ptr+=1
�� ?ptr=0
�� t$="Dustbin" � =� � =�
�:
�� �empty
�
� items �
�(*WIPE <Rubbish$Dir>.Rubbish.* ~CFR~V
�items=0:�redo
��
��
�:
�� �readfiles
items=0:off=0

�
Mș "OS_GBPB",10,"<Rubbish$Dir>.Rubbish",block,1,off,100,"*" � ,,,read,off
� read �
(name$="":nameptr=block+20
2ȕ ?nameptr<>0
<$name$=name$+�?nameptr:nameptr+=1
F�
Ptype=!block
Z&� (type � &FFF00000) = &FFF00000 �
dtype=(type � &FFF00) >> 8
n�
xtype=-1
��
�obj=block!16
��insert(name$,type,obj)
��
�� read=0
�	�redo
��
�:
�� �insert(n$,t,o)
�	up=-1
��
�	up+=1
�� n$<name$(up) � up=items
� up<>items �
� move=items � up � -1
name$(move)=name$(move-1)
"type(move)=type(move-1)
,obj(move)=obj(move-1)
6�
@�
J%name$(up)=n$:type(up)=t:obj(up)=o
Titems+=1
^�
h:
r� �redo
|*� items=0 � $isp="empty" � $isp="full"
�-!block=-2:block!4=ib:block!8=0:block!12=0
�!ș "Wimp_SetIconState",,block
�� count=0 � 49
�� icon(count)<>-1 �
�!block=dust
�block!4=icon(count)
�ș "Wimp_DeleteIcon",,block
�icon(count)=-1
��
��
�
icon()=-1
�� items<4 �
�x=items:y=1
�
x=4:y=�(items/4+0.75)
�
&� x=0 � x=1
0!block=0:block!12=0
:(block!8=192*x+12:block!4=-(128*y+24)
D"ș "Wimp_SetExtent",dust,block
N� items<>0 �
Xpiece=0:hptr=heap
b
y1=0:x1=0
l�
v
Ȏ � �
�<� obj(piece)=2 � �name$(piece),1)<>"!":type$="directory"
�)� obj(piece)=2 � �name$(piece),1)="!"
�type$=name$(piece)
�*ș "XWimp_SpriteOp",24,,type$ � ;flags
�'� (flags � 1) � type$="application"
�$� obj(piece)=1 � type(piece)<>-1
�(type$="file_"+�"00"+�~type(piece),3)
�*ș "XWimp_SpriteOp",24,,type$ � ;flags
�$� (flags � 1) � type$="file_xxx"
�4� obj(piece)=1 � type(piece)=-1:type$="file_xxx"
��
�type$="S"+type$
�!block=dust
(block!4=192*x1+6:block!12=192*x1+186
/block!8=-(128*y1+128):block!16=-(128*y1+12)
block!20=&1701910B
 $block!24=hptr:$hptr=name$(piece)
*+block!32=�name$(piece)+1:hptr+=block!32
4.block!28=hptr:$hptr=type$:hptr+=(�type$+1)
>-ș "Wimp_CreateIcon",,block � icon(piece)
Hpiece+=1:x1+=1
R� x1=x � x1=0:y1+=1
\� piece=items
f�
p/ș "Wimp_ForceRedraw",dust,0,-10000,10000,0
z�
�:
�� �dataload(b)
�� b!12=0 �
�path$=�getname(b+44)
�leaf$=�leaf(path$)
��trash(path$,leaf$)
�b!12=b!8:b!16=4:!b=64
�"ș "Wimp_SendMessage",17,b,b!4
��
��readfiles
��
�:
�� �getname(ptr)
		p$=""
	ȕ ?ptr<>0
	p$+=�?ptr:ptr+=1
	$�
	.=p$
	8:
	B� �leaf(f$)
	Lȕ �f$,".")
	Vf$=�f$,�f$,".")+1)
	`�
	j=f$
	t:
	~� �trash(from$,to$)
	� � ("ACCESS "+from$+" WR/WR")
	�Gș "XOS_CLI","RENAME "+from$+" <Rubbish$Dir>.Rubbish."+to$ � ;flags
	�[� (flags � 1) � � ("COPY "+from$+" <Rubbish$Dir>.Rubbish."+to$+" A~CDF~L~N~P~QR~S~T~V")
	��
	�:
	�� �datasave(b)
	�leaf$=�getname(b+44)
	�-$(b+44)="<Rubbish$Dir>.Rubbish."+leaf$+�0
	�b!12=b!8:b!16=2:!b=80
	�"ș "Wimp_SendMessage",17,b,b!4
	��
	�:
� �startdrag(b)

ic=b!16:index=-1
� count=0 � items
"� icon(count)=ic � index=count
(�
2!b=b!12:b!4=b!16
<ș "Wimp_GetIconState",,b
Fb!32=!b
P"ș "Wimp_GetWindowState",,b+32
Zx0=b!36+b!8-b!52
dx1=b!36+b!16-b!52
ny0=b!48+b!12-b!56
xy1=b!48+b!20-b!56
�!b=dust:b!4=5
�b!8=x0:b!12=y1
�b!16=x1:b!20=y0
�b!24=0:b!28=0
�b!32=&7FFFFFF:b!36=&7FFFFFF
�ș "Wimp_DragBox",,b
��
�:
�� �save
�#ș "Wimp_GetPointerInfo",,block
�%block!20=64:block!32=0:block!36=1
�'block!40=block!12:block!44=block!16
�$block!48=!block:block!52=block!4
block!56=0
block!60=type(index)
$(block+64)=name$(index)+�0
"7ș "Wimp_SendMessage",17,block+20,block!12,block!16
,�
6:
@� �datasaveack(b)
Jpath$=�getname(b+44)
Tleaf$=�leaf(path$)
^Iș "XOS_CLI","RENAME <Rubbish$Dir>.Rubbish."+leaf$+" "+path$ � ;flags
h]� (flags � 1) � � ("COPY <Rubbish$Dir>.Rubbish."+leaf$+" "+path$+" A~CDF~L~N~P~QR~S~T~V")
rb!12=b!8:b!16=3:!b=64
|(ș "Wimp_SendMessage",17,b,b!20,b!24
��readfiles
��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 05 3a 0d 00 1e  2f de 20 62 6c 6f 63 6b  |....:.../. block|
00000020  20 31 35 30 2c 73 70 72  69 74 65 73 20 31 35 30  | 150,sprites 150|
00000030  30 2c 6d 65 6e 75 20 31  30 30 2c 68 65 61 70 20  |0,menu 100,heap |
00000040  32 31 30 30 0d 00 28 29  de 20 6e 61 6d 65 24 28  |2100..(). name$(|
00000050  34 39 29 2c 74 79 70 65  28 34 39 29 2c 6f 62 6a  |49),type(49),obj|
00000060  28 34 39 29 2c 69 63 6f  6e 28 34 39 29 0d 00 32  |(49),icon(49)..2|
00000070  11 24 62 6c 6f 63 6b 3d  22 54 41 53 4b 22 0d 00  |.$block="TASK"..|
00000080  3c 38 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |<8.. "Wimp_Initi|
00000090  61 6c 69 73 65 22 2c 32  30 30 2c 21 62 6c 6f 63  |alise",200,!bloc|
000000a0  6b 2c 22 44 75 73 74 62  69 6e 22 20 b8 20 2c 6f  |k,"Dustbin" . ,o|
000000b0  75 72 74 61 73 6b 0d 00  46 0e ee 20 85 20 f2 65  |urtask..F.. . .e|
000000c0  72 72 6f 72 0d 00 50 35  c8 99 20 22 57 69 6d 70  |rror..P5.. "Wimp|
000000d0  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
000000e0  22 3c 52 75 62 62 69 73  68 24 44 69 72 3e 2e 54  |"<Rubbish$Dir>.T|
000000f0  65 6d 70 6c 61 74 65 73  22 0d 00 5a 41 c8 99 20  |emplates"..ZA.. |
00000100  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000110  74 65 22 2c 2c 62 6c 6f  63 6b 2c 30 2c 30 2c 2d  |te",,block,0,0,-|
00000120  31 2c 22 52 75 62 62 69  73 68 22 2c 30 20 b8 20  |1,"Rubbish",0 . |
00000130  2c 2c 2c 2c 2c 2c 6e 65  78 74 0d 00 64 33 62 6c  |,,,,,,next..d3bl|
00000140  6f 63 6b 21 36 34 3d 31  3a c8 99 20 22 57 69 6d  |ock!64=1:.. "Wim|
00000150  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000160  2c 62 6c 6f 63 6b 20 b8  20 64 75 73 74 0d 00 6e  |,block . dust..n|
00000170  1b c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
00000180  65 6d 70 6c 61 74 65 22  0d 00 78 1d 21 73 70 72  |emplate"..x.!spr|
00000190  69 74 65 73 3d 32 30 30  30 3a 73 70 72 69 74 65  |ites=2000:sprite|
000001a0  73 21 34 3d 30 0d 00 82  1e 73 70 72 69 74 65 73  |s!4=0....sprites|
000001b0  21 38 3d 31 36 3a 73 70  72 69 74 65 73 21 31 32  |!8=16:sprites!12|
000001c0  3d 31 36 0d 00 8c 39 c8  99 20 22 4f 53 5f 53 70  |=16...9.. "OS_Sp|
000001d0  72 69 74 65 4f 70 22 2c  26 31 30 41 2c 73 70 72  |riteOp",&10A,spr|
000001e0  69 74 65 73 2c 22 3c 52  75 62 62 69 73 68 24 44  |ites,"<Rubbish$D|
000001f0  69 72 3e 2e 53 70 72 69  74 65 73 22 0d 00 96 1c  |ir>.Sprites"....|
00000200  21 62 6c 6f 63 6b 3d 2d  32 3a 62 6c 6f 63 6b 21  |!block=-2:block!|
00000210  32 30 3d 26 33 31 30 32  0d 00 a0 19 62 6c 6f 63  |20=&3102....bloc|
00000220  6b 21 34 3d 30 3a 62 6c  6f 63 6b 21 31 32 3d 36  |k!4=0:block!12=6|
00000230  38 0d 00 aa 19 62 6c 6f  63 6b 21 38 3d 30 3a 62  |8....block!8=0:b|
00000240  6c 6f 63 6b 21 31 36 3d  36 38 0d 00 b4 19 de 20  |lock!16=68..... |
00000250  69 73 70 20 31 30 3a 24  69 73 70 3d 22 65 6d 70  |isp 10:$isp="emp|
00000260  74 79 22 0d 00 be 32 62  6c 6f 63 6b 21 32 34 3d  |ty"...2block!24=|
00000270  69 73 70 3a 62 6c 6f 63  6b 21 32 38 3d 73 70 72  |isp:block!28=spr|
00000280  69 74 65 73 3a 62 6c 6f  63 6b 21 33 32 3d a9 24  |ites:block!32=.$|
00000290  69 73 70 2b 31 0d 00 c8  24 c8 99 20 22 57 69 6d  |isp+1...$.. "Wim|
000002a0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
000002b0  6c 6f 63 6b 20 b8 20 69  62 0d 00 d2 11 71 75 69  |lock . ib....qui|
000002c0  74 3d a3 3a 6f 70 65 6e  3d a3 0d 00 dc 15 69 74  |t=.:open=.....it|
000002d0  65 6d 73 3d 30 3a 69 63  6f 6e 28 29 3d 2d 31 0d  |ems=0:icon()=-1.|
000002e0  00 e6 0e f2 72 65 61 64  66 69 6c 65 73 0d 00 f0  |....readfiles...|
000002f0  0a f2 65 6d 70 74 79 0d  00 fa 05 f5 0d 01 04 23  |..empty........#|
00000300  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 31  |.. "Wimp_Poll",1|
00000310  2c 62 6c 6f 63 6b 20 b8  20 72 65 61 73 6f 6e 0d  |,block . reason.|
00000320  01 0e 0f c8 8e 20 72 65  61 73 6f 6e 20 ca 0d 01  |..... reason ...|
00000330  18 3a c9 20 32 3a c8 99  20 22 57 69 6d 70 5f 4f  |.:. 2:.. "Wimp_O|
00000340  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
00000350  6b 3a e7 20 21 62 6c 6f  63 6b 3d 64 75 73 74 20  |k:. !block=dust |
00000360  8c 20 6f 70 65 6e 3d b9  0d 01 22 3b c9 20 33 3a  |. open=...";. 3:|
00000370  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00000380  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 3a e7 20 21  |ndow",,block:. !|
00000390  62 6c 6f 63 6b 3d 64 75  73 74 20 8c 20 6f 70 65  |block=dust . ope|
000003a0  6e 3d a3 0d 01 2c 17 c9  20 36 3a f2 62 75 74 74  |n=...,.. 6:.butt|
000003b0  6f 6e 73 28 62 6c 6f 63  6b 29 0d 01 36 0d c9 20  |ons(block)..6.. |
000003c0  37 3a f2 73 61 76 65 0d  01 40 1a c9 20 39 3a f2  |7:.save..@.. 9:.|
000003d0  6d 65 6e 75 73 65 6c 65  63 74 28 62 6c 6f 63 6b  |menuselect(block|
000003e0  29 0d 01 4a 1b c9 20 31  37 2c 31 38 3a f2 72 65  |)..J.. 17,18:.re|
000003f0  63 65 69 76 65 28 62 6c  6f 63 6b 29 0d 01 54 05  |ceive(block)..T.|
00000400  cb 0d 01 5e 0a fd 20 71  75 69 74 0d 01 68 17 c8  |...^.. quit..h..|
00000410  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000420  6e 22 0d 01 72 05 e0 0d  01 7c 05 3a 0d 01 86 11  |n"..r....|.:....|
00000430  dd 20 f2 72 65 63 65 69  76 65 28 62 29 0d 01 90  |. .receive(b)...|
00000440  0d c8 8e 20 62 21 31 36  20 ca 0d 01 9a 0e c9 20  |... b!16 ...... |
00000450  30 3a 71 75 69 74 3d b9  0d 01 a4 14 c9 20 31 3a  |0:quit=...... 1:|
00000460  f2 64 61 74 61 73 61 76  65 28 62 29 0d 01 ae 17  |.datasave(b)....|
00000470  c9 20 32 3a f2 64 61 74  61 73 61 76 65 61 63 6b  |. 2:.datasaveack|
00000480  28 62 29 0d 01 b8 14 c9  20 33 3a f2 64 61 74 61  |(b)..... 3:.data|
00000490  6c 6f 61 64 28 62 29 0d  01 c2 0e c9 20 38 3a f2  |load(b)..... 8:.|
000004a0  65 6d 70 74 79 0d 01 cc  31 c9 20 26 34 30 30 43  |empty...1. &400C|
000004b0  32 3a e7 20 a4 64 75 70  28 62 2b 32 38 29 20 80  |2:. .dup(b+28) .|
000004c0  20 62 21 34 3c 3e 6f 75  72 74 61 73 6b 20 8c 20  | b!4<>ourtask . |
000004d0  71 75 69 74 3d b9 0d 01  d6 05 cb 0d 01 e0 05 e1  |quit=...........|
000004e0  0d 01 ea 05 3a 0d 01 f4  0c dd 20 f2 65 72 72 6f  |....:..... .erro|
000004f0  72 0d 01 fe 19 c8 99 20  22 57 69 6d 70 5f 44 72  |r...... "Wimp_Dr|
00000500  61 67 42 6f 78 22 2c 2c  2d 31 0d 02 08 0c 21 62  |agBox",,-1....!b|
00000510  6c 6f 63 6b 3d 9f 0d 02  12 34 24 28 62 6c 6f 63  |lock=....4$(bloc|
00000520  6b 2b 34 29 3d f6 24 2b  22 20 28 49 6e 74 65 72  |k+4)=.$+" (Inter|
00000530  6e 61 6c 20 65 72 72 6f  72 20 63 6f 64 65 20 22  |nal error code "|
00000540  2b c3 9e 2b 22 29 22 2b  bd 30 0d 02 1c 2b c8 99  |+..+")"+.0...+..|
00000550  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00000560  6f 72 22 2c 62 6c 6f 63  6b 2c 31 2c 22 44 75 73  |or",block,1,"Dus|
00000570  74 62 69 6e 22 0d 02 26  09 e5 8d 64 7a 40 0d 02  |tbin"..&...dz@..|
00000580  30 05 3a 0d 02 3a 11 dd  20 f2 62 75 74 74 6f 6e  |0.:..:.. .button|
00000590  73 28 62 29 0d 02 44 0f  e7 20 62 21 38 20 80 20  |s(b)..D.. b!8 . |
000005a0  32 20 8c 0d 02 4e 0c f2  6d 65 6e 75 28 62 29 0d  |2 ...N..menu(b).|
000005b0  02 58 05 cc 0d 02 62 0d  c8 8e 20 62 21 31 32 20  |.X....b... b!12 |
000005c0  ca 0d 02 6c 1f c9 20 2d  32 3a f2 72 65 61 64 66  |...l.. -2:.readf|
000005d0  69 6c 65 73 3a f2 6f 70  65 6e 28 64 75 73 74 29  |iles:.open(dust)|
000005e0  0d 02 76 18 c9 20 64 75  73 74 3a f2 73 74 61 72  |..v.. dust:.star|
000005f0  74 64 72 61 67 28 62 29  0d 02 80 05 cb 0d 02 8a  |tdrag(b)........|
00000600  05 cd 0d 02 94 05 e1 0d  02 9e 05 3a 0d 02 a8 13  |...........:....|
00000610  dd 20 f2 6f 70 65 6e 28  68 61 6e 64 6c 65 29 0d  |. .open(handle).|
00000620  02 b2 11 21 62 6c 6f 63  6b 3d 68 61 6e 64 6c 65  |...!block=handle|
00000630  0d 02 bc 23 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...#.. "Wimp_Get|
00000640  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00000650  6f 63 6b 0d 02 c6 1f c8  99 20 22 57 69 6d 70 5f  |ock...... "Wimp_|
00000660  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00000670  63 6b 0d 02 d0 1a e7 20  68 61 6e 64 6c 65 3d 64  |ck..... handle=d|
00000680  75 73 74 20 8c 20 6f 70  65 6e 3d b9 0d 02 da 05  |ust . open=.....|
00000690  e1 0d 02 e4 05 3a 0d 02  ee 0e dd 20 f2 6d 65 6e  |.....:..... .men|
000006a0  75 28 62 29 0d 02 f8 0d  c8 8e 20 62 21 31 32 20  |u(b)...... b!12 |
000006b0  ca 0d 03 02 2a c9 20 2d  32 3a f2 64 72 61 77 6d  |....*. -2:.drawm|
000006c0  65 6e 75 28 31 2c 22 44  75 73 74 62 69 6e 2c 45  |enu(1,"Dustbin,E|
000006d0  6d 70 74 79 2c 51 75 69  74 22 29 0d 03 0c 2a c8  |mpty,Quit")...*.|
000006e0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
000006f0  6e 75 22 2c 2c 6d 65 6e  75 2b 34 2c 21 62 2d 36  |nu",,menu+4,!b-6|
00000700  34 2c 31 33 36 0d 03 16  27 c9 20 64 75 73 74 3a  |4,136...'. dust:|
00000710  f2 64 72 61 77 6d 65 6e  75 28 32 2c 22 44 75 73  |.drawmenu(2,"Dus|
00000720  74 62 69 6e 2c 45 6d 70  74 79 22 29 0d 03 20 2d  |tbin,Empty").. -|
00000730  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00000740  65 6e 75 22 2c 2c 6d 65  6e 75 2b 34 2c 21 62 2d  |enu",,menu+4,!b-|
00000750  33 32 2c 62 21 34 2b 31  36 0d 03 2a 05 cb 0d 03  |32,b!4+16..*....|
00000760  34 05 e1 0d 03 3e 05 3a  0d 03 48 1d dd 20 f2 64  |4....>.:..H.. .d|
00000770  72 61 77 6d 65 6e 75 28  68 61 6e 64 6c 65 2c 6d  |rawmenu(handle,m|
00000780  65 6e 75 24 29 0d 03 52  1a 21 6d 65 6e 75 3d 68  |enu$)..R.!menu=h|
00000790  61 6e 64 6c 65 3a 6d 65  6e 75 3f 31 36 3d 37 0d  |andle:menu?16=7.|
000007a0  03 5c 21 6d 65 6e 75 3f  31 37 3d 32 3a 6d 65 6e  |.\!menu?17=2:men|
000007b0  75 3f 31 38 3d 37 3a 6d  65 6e 75 3f 31 39 3d 30  |u?18=7:menu?19=0|
000007c0  0d 03 66 1a 6d 65 6e 75  21 32 30 3d 31 34 30 3a  |..f.menu!20=140:|
000007d0  6d 65 6e 75 21 32 34 3d  34 30 0d 03 70 19 6d 65  |menu!24=40..p.me|
000007e0  6e 75 21 32 38 3d 30 3a  70 74 72 3d 6d 65 6e 75  |nu!28=0:ptr=menu|
000007f0  2b 33 32 0d 03 7a 23 24  28 6d 65 6e 75 2b 34 29  |+32..z#$(menu+4)|
00000800  3d c0 6d 65 6e 75 24 2c  a7 6d 65 6e 75 24 2c 22  |=.menu$,.menu$,"|
00000810  2c 22 29 2d 31 29 0d 03  84 13 6d 65 6e 75 24 3d  |,")-1)....menu$=|
00000820  6d 65 6e 75 24 2b 22 2c  22 0d 03 8e 10 c8 95 20  |menu$+","...... |
00000830  6d 65 6e 75 24 3c 3e 22  22 0d 03 98 1f 6d 65 6e  |menu$<>""....men|
00000840  75 24 3d c1 6d 65 6e 75  24 2c a7 6d 65 6e 75 24  |u$=.menu$,.menu$|
00000850  2c 22 2c 22 29 2b 31 29  0d 03 a2 11 e7 20 6d 65  |,",")+1)..... me|
00000860  6e 75 24 3c 3e 22 22 20  8c 0d 03 ac 13 21 70 74  |nu$<>"" .....!pt|
00000870  72 3d 30 3a 70 74 72 21  34 3d 2d 31 0d 03 b6 12  |r=0:ptr!4=-1....|
00000880  70 74 72 21 38 3d 26 37  30 30 30 30 32 31 0d 03  |ptr!8=&7000021..|
00000890  c0 23 24 28 70 74 72 2b  31 32 29 3d c0 6d 65 6e  |.#$(ptr+12)=.men|
000008a0  75 24 2c a7 6d 65 6e 75  24 2c 22 2c 22 29 2d 31  |u$,.menu$,",")-1|
000008b0  29 0d 03 ca 0b 70 74 72  2b 3d 32 34 0d 03 d4 05  |)....ptr+=24....|
000008c0  cd 0d 03 de 05 ce 0d 03  e8 19 70 74 72 21 2d 32  |..........ptr!-2|
000008d0  34 3d 70 74 72 21 2d 32  34 20 84 20 26 38 30 0d  |4=ptr!-24 . &80.|
000008e0  03 f2 05 e1 0d 03 fc 05  3a 0d 04 06 14 dd 20 f2  |........:..... .|
000008f0  6d 65 6e 75 73 65 6c 65  63 74 28 62 29 0d 04 10  |menuselect(b)...|
00000900  0e c8 8e 20 21 6d 65 6e  75 20 ca 0d 04 1a 07 c9  |... !menu ......|
00000910  20 31 0d 04 24 13 e7 20  21 62 3d 31 20 8c 20 71  | 1..$.. !b=1 . q|
00000920  75 69 74 3d b9 0d 04 2e  13 e7 20 21 62 3d 30 20  |uit=...... !b=0 |
00000930  8c 20 f2 65 6d 70 74 79  0d 04 38 07 c9 20 32 0d  |. .empty..8.. 2.|
00000940  04 42 13 e7 20 21 62 3d  30 20 8c 20 f2 65 6d 70  |.B.. !b=0 . .emp|
00000950  74 79 0d 04 4c 05 cb 0d  04 56 05 e1 0d 04 60 05  |ty..L....V....`.|
00000960  3a 0d 04 6a 0f dd 20 a4  64 75 70 28 70 74 72 29  |:..j.. .dup(ptr)|
00000970  0d 04 74 09 74 24 3d 22  22 0d 04 7e 05 f5 0d 04  |..t.t$=""..~....|
00000980  88 16 74 24 3d 74 24 2b  bd 3f 70 74 72 3a 70 74  |..t$=t$+.?ptr:pt|
00000990  72 2b 3d 31 0d 04 92 0c  fd 20 3f 70 74 72 3d 30  |r+=1..... ?ptr=0|
000009a0  0d 04 9c 1c e7 20 74 24  3d 22 44 75 73 74 62 69  |..... t$="Dustbi|
000009b0  6e 22 20 8c 20 3d b9 20  8b 20 3d a3 0d 04 a6 05  |n" . =. . =.....|
000009c0  3a 0d 04 b0 0c dd 20 f2  65 6d 70 74 79 0d 04 ba  |:..... .empty...|
000009d0  0d e7 20 69 74 65 6d 73  20 8c 0d 04 c4 28 2a 57  |.. items ....(*W|
000009e0  49 50 45 20 3c 52 75 62  62 69 73 68 24 44 69 72  |IPE <Rubbish$Dir|
000009f0  3e 2e 52 75 62 62 69 73  68 2e 2a 20 7e 43 46 52  |>.Rubbish.* ~CFR|
00000a00  7e 56 0d 04 ce 11 69 74  65 6d 73 3d 30 3a f2 72  |~V....items=0:.r|
00000a10  65 64 6f 0d 04 d8 05 cd  0d 04 e2 05 e1 0d 04 ec  |edo.............|
00000a20  05 3a 0d 04 f6 10 dd 20  f2 72 65 61 64 66 69 6c  |.:..... .readfil|
00000a30  65 73 0d 05 00 11 69 74  65 6d 73 3d 30 3a 6f 66  |es....items=0:of|
00000a40  66 3d 30 0d 05 0a 05 f5  0d 05 14 4d c8 99 20 22  |f=0........M.. "|
00000a50  4f 53 5f 47 42 50 42 22  2c 31 30 2c 22 3c 52 75  |OS_GBPB",10,"<Ru|
00000a60  62 62 69 73 68 24 44 69  72 3e 2e 52 75 62 62 69  |bbish$Dir>.Rubbi|
00000a70  73 68 22 2c 62 6c 6f 63  6b 2c 31 2c 6f 66 66 2c  |sh",block,1,off,|
00000a80  31 30 30 2c 22 2a 22 20  b8 20 2c 2c 2c 72 65 61  |100,"*" . ,,,rea|
00000a90  64 2c 6f 66 66 0d 05 1e  0c e7 20 72 65 61 64 20  |d,off..... read |
00000aa0  8c 0d 05 28 1d 6e 61 6d  65 24 3d 22 22 3a 6e 61  |...(.name$="":na|
00000ab0  6d 65 70 74 72 3d 62 6c  6f 63 6b 2b 32 30 0d 05  |meptr=block+20..|
00000ac0  32 12 c8 95 20 3f 6e 61  6d 65 70 74 72 3c 3e 30  |2... ?nameptr<>0|
00000ad0  0d 05 3c 24 6e 61 6d 65  24 3d 6e 61 6d 65 24 2b  |..<$name$=name$+|
00000ae0  bd 3f 6e 61 6d 65 70 74  72 3a 6e 61 6d 65 70 74  |.?nameptr:namept|
00000af0  72 2b 3d 31 0d 05 46 05  ce 0d 05 50 0f 74 79 70  |r+=1..F....P.typ|
00000b00  65 3d 21 62 6c 6f 63 6b  0d 05 5a 26 e7 20 28 74  |e=!block..Z&. (t|
00000b10  79 70 65 20 80 20 26 46  46 46 30 30 30 30 30 29  |ype . &FFF00000)|
00000b20  20 3d 20 26 46 46 46 30  30 30 30 30 20 8c 0d 05  | = &FFF00000 ...|
00000b30  64 1d 74 79 70 65 3d 28  74 79 70 65 20 80 20 26  |d.type=(type . &|
00000b40  46 46 46 30 30 29 20 3e  3e 20 38 0d 05 6e 05 cc  |FFF00) >> 8..n..|
00000b50  0d 05 78 0b 74 79 70 65  3d 2d 31 0d 05 82 05 cd  |..x.type=-1.....|
00000b60  0d 05 8c 10 6f 62 6a 3d  62 6c 6f 63 6b 21 31 36  |....obj=block!16|
00000b70  0d 05 96 1b f2 69 6e 73  65 72 74 28 6e 61 6d 65  |.....insert(name|
00000b80  24 2c 74 79 70 65 2c 6f  62 6a 29 0d 05 a0 05 cd  |$,type,obj).....|
00000b90  0d 05 aa 0c fd 20 72 65  61 64 3d 30 0d 05 b4 09  |..... read=0....|
00000ba0  f2 72 65 64 6f 0d 05 be  05 e1 0d 05 c8 05 3a 0d  |.redo.........:.|
00000bb0  05 d2 15 dd 20 f2 69 6e  73 65 72 74 28 6e 24 2c  |.... .insert(n$,|
00000bc0  74 2c 6f 29 0d 05 dc 09  75 70 3d 2d 31 0d 05 e6  |t,o)....up=-1...|
00000bd0  05 f5 0d 05 f0 09 75 70  2b 3d 31 0d 05 fa 1d fd  |......up+=1.....|
00000be0  20 6e 24 3c 6e 61 6d 65  24 28 75 70 29 20 84 20  | n$<name$(up) . |
00000bf0  75 70 3d 69 74 65 6d 73  0d 06 04 11 e7 20 75 70  |up=items..... up|
00000c00  3c 3e 69 74 65 6d 73 20  8c 0d 06 0e 1a e3 20 6d  |<>items ...... m|
00000c10  6f 76 65 3d 69 74 65 6d  73 20 b8 20 75 70 20 88  |ove=items . up .|
00000c20  20 2d 31 0d 06 18 1d 6e  61 6d 65 24 28 6d 6f 76  | -1....name$(mov|
00000c30  65 29 3d 6e 61 6d 65 24  28 6d 6f 76 65 2d 31 29  |e)=name$(move-1)|
00000c40  0d 06 22 1b 74 79 70 65  28 6d 6f 76 65 29 3d 74  |..".type(move)=t|
00000c50  79 70 65 28 6d 6f 76 65  2d 31 29 0d 06 2c 19 6f  |ype(move-1)..,.o|
00000c60  62 6a 28 6d 6f 76 65 29  3d 6f 62 6a 28 6d 6f 76  |bj(move)=obj(mov|
00000c70  65 2d 31 29 0d 06 36 05  ed 0d 06 40 05 cd 0d 06  |e-1)..6....@....|
00000c80  4a 25 6e 61 6d 65 24 28  75 70 29 3d 6e 24 3a 74  |J%name$(up)=n$:t|
00000c90  79 70 65 28 75 70 29 3d  74 3a 6f 62 6a 28 75 70  |ype(up)=t:obj(up|
00000ca0  29 3d 6f 0d 06 54 0c 69  74 65 6d 73 2b 3d 31 0d  |)=o..T.items+=1.|
00000cb0  06 5e 05 e1 0d 06 68 05  3a 0d 06 72 0b dd 20 f2  |.^....h.:..r.. .|
00000cc0  72 65 64 6f 0d 06 7c 2a  e7 20 69 74 65 6d 73 3d  |redo..|*. items=|
00000cd0  30 20 8c 20 24 69 73 70  3d 22 65 6d 70 74 79 22  |0 . $isp="empty"|
00000ce0  20 8b 20 24 69 73 70 3d  22 66 75 6c 6c 22 0d 06  | . $isp="full"..|
00000cf0  86 2d 21 62 6c 6f 63 6b  3d 2d 32 3a 62 6c 6f 63  |.-!block=-2:bloc|
00000d00  6b 21 34 3d 69 62 3a 62  6c 6f 63 6b 21 38 3d 30  |k!4=ib:block!8=0|
00000d10  3a 62 6c 6f 63 6b 21 31  32 3d 30 0d 06 90 21 c8  |:block!12=0...!.|
00000d20  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00000d30  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 0d 06 9a 12  |tate",,block....|
00000d40  e3 20 63 6f 75 6e 74 3d  30 20 b8 20 34 39 0d 06  |. count=0 . 49..|
00000d50  a4 17 e7 20 69 63 6f 6e  28 63 6f 75 6e 74 29 3c  |... icon(count)<|
00000d60  3e 2d 31 20 8c 0d 06 ae  0f 21 62 6c 6f 63 6b 3d  |>-1 .....!block=|
00000d70  64 75 73 74 0d 06 b8 17  62 6c 6f 63 6b 21 34 3d  |dust....block!4=|
00000d80  69 63 6f 6e 28 63 6f 75  6e 74 29 0d 06 c2 1f c8  |icon(count).....|
00000d90  99 20 22 57 69 6d 70 5f  44 65 6c 65 74 65 49 63  |. "Wimp_DeleteIc|
00000da0  6f 6e 22 2c 2c 62 6c 6f  63 6b 0d 06 cc 12 69 63  |on",,block....ic|
00000db0  6f 6e 28 63 6f 75 6e 74  29 3d 2d 31 0d 06 d6 05  |on(count)=-1....|
00000dc0  cd 0d 06 e0 05 ed 0d 06  ea 0d 69 63 6f 6e 28 29  |..........icon()|
00000dd0  3d 2d 31 0d 06 f4 0f e7  20 69 74 65 6d 73 3c 34  |=-1..... items<4|
00000de0  20 8c 0d 06 fe 0f 78 3d  69 74 65 6d 73 3a 79 3d  | .....x=items:y=|
00000df0  31 0d 07 08 05 cc 0d 07  12 19 78 3d 34 3a 79 3d  |1.........x=4:y=|
00000e00  a8 28 69 74 65 6d 73 2f  34 2b 30 2e 37 35 29 0d  |.(items/4+0.75).|
00000e10  07 1c 05 cd 0d 07 26 0f  e7 20 78 3d 30 20 8c 20  |......&.. x=0 . |
00000e20  78 3d 31 0d 07 30 17 21  62 6c 6f 63 6b 3d 30 3a  |x=1..0.!block=0:|
00000e30  62 6c 6f 63 6b 21 31 32  3d 30 0d 07 3a 28 62 6c  |block!12=0..:(bl|
00000e40  6f 63 6b 21 38 3d 31 39  32 2a 78 2b 31 32 3a 62  |ock!8=192*x+12:b|
00000e50  6c 6f 63 6b 21 34 3d 2d  28 31 32 38 2a 79 2b 32  |lock!4=-(128*y+2|
00000e60  34 29 0d 07 44 22 c8 99  20 22 57 69 6d 70 5f 53  |4)..D".. "Wimp_S|
00000e70  65 74 45 78 74 65 6e 74  22 2c 64 75 73 74 2c 62  |etExtent",dust,b|
00000e80  6c 6f 63 6b 0d 07 4e 10  e7 20 69 74 65 6d 73 3c  |lock..N.. items<|
00000e90  3e 30 20 8c 0d 07 58 15  70 69 65 63 65 3d 30 3a  |>0 ...X.piece=0:|
00000ea0  68 70 74 72 3d 68 65 61  70 0d 07 62 0d 79 31 3d  |hptr=heap..b.y1=|
00000eb0  30 3a 78 31 3d 30 0d 07  6c 05 f5 0d 07 76 0a c8  |0:x1=0..l....v..|
00000ec0  8e 20 b9 20 ca 0d 07 80  3c c9 20 6f 62 6a 28 70  |. . ....<. obj(p|
00000ed0  69 65 63 65 29 3d 32 20  80 20 c0 6e 61 6d 65 24  |iece)=2 . .name$|
00000ee0  28 70 69 65 63 65 29 2c  31 29 3c 3e 22 21 22 3a  |(piece),1)<>"!":|
00000ef0  74 79 70 65 24 3d 22 64  69 72 65 63 74 6f 72 79  |type$="directory|
00000f00  22 0d 07 8a 29 c9 20 6f  62 6a 28 70 69 65 63 65  |"...). obj(piece|
00000f10  29 3d 32 20 80 20 c0 6e  61 6d 65 24 28 70 69 65  |)=2 . .name$(pie|
00000f20  63 65 29 2c 31 29 3d 22  21 22 0d 07 94 16 74 79  |ce),1)="!"....ty|
00000f30  70 65 24 3d 6e 61 6d 65  24 28 70 69 65 63 65 29  |pe$=name$(piece)|
00000f40  0d 07 9e 2a c8 99 20 22  58 57 69 6d 70 5f 53 70  |...*.. "XWimp_Sp|
00000f50  72 69 74 65 4f 70 22 2c  32 34 2c 2c 74 79 70 65  |riteOp",24,,type|
00000f60  24 20 b8 20 3b 66 6c 61  67 73 0d 07 a8 27 e7 20  |$ . ;flags...'. |
00000f70  28 66 6c 61 67 73 20 80  20 31 29 20 8c 20 74 79  |(flags . 1) . ty|
00000f80  70 65 24 3d 22 61 70 70  6c 69 63 61 74 69 6f 6e  |pe$="application|
00000f90  22 0d 07 b2 24 c9 20 6f  62 6a 28 70 69 65 63 65  |"...$. obj(piece|
00000fa0  29 3d 31 20 80 20 74 79  70 65 28 70 69 65 63 65  |)=1 . type(piece|
00000fb0  29 3c 3e 2d 31 0d 07 bc  28 74 79 70 65 24 3d 22  |)<>-1...(type$="|
00000fc0  66 69 6c 65 5f 22 2b c2  22 30 30 22 2b c3 7e 74  |file_"+."00"+.~t|
00000fd0  79 70 65 28 70 69 65 63  65 29 2c 33 29 0d 07 c6  |ype(piece),3)...|
00000fe0  2a c8 99 20 22 58 57 69  6d 70 5f 53 70 72 69 74  |*.. "XWimp_Sprit|
00000ff0  65 4f 70 22 2c 32 34 2c  2c 74 79 70 65 24 20 b8  |eOp",24,,type$ .|
00001000  20 3b 66 6c 61 67 73 0d  07 d0 24 e7 20 28 66 6c  | ;flags...$. (fl|
00001010  61 67 73 20 80 20 31 29  20 8c 20 74 79 70 65 24  |ags . 1) . type$|
00001020  3d 22 66 69 6c 65 5f 78  78 78 22 0d 07 da 34 c9  |="file_xxx"...4.|
00001030  20 6f 62 6a 28 70 69 65  63 65 29 3d 31 20 80 20  | obj(piece)=1 . |
00001040  74 79 70 65 28 70 69 65  63 65 29 3d 2d 31 3a 74  |type(piece)=-1:t|
00001050  79 70 65 24 3d 22 66 69  6c 65 5f 78 78 78 22 0d  |ype$="file_xxx".|
00001060  07 e4 05 cb 0d 07 ee 13  74 79 70 65 24 3d 22 53  |........type$="S|
00001070  22 2b 74 79 70 65 24 0d  07 f8 0f 21 62 6c 6f 63  |"+type$....!bloc|
00001080  6b 3d 64 75 73 74 0d 08  02 28 62 6c 6f 63 6b 21  |k=dust...(block!|
00001090  34 3d 31 39 32 2a 78 31  2b 36 3a 62 6c 6f 63 6b  |4=192*x1+6:block|
000010a0  21 31 32 3d 31 39 32 2a  78 31 2b 31 38 36 0d 08  |!12=192*x1+186..|
000010b0  0c 2f 62 6c 6f 63 6b 21  38 3d 2d 28 31 32 38 2a  |./block!8=-(128*|
000010c0  79 31 2b 31 32 38 29 3a  62 6c 6f 63 6b 21 31 36  |y1+128):block!16|
000010d0  3d 2d 28 31 32 38 2a 79  31 2b 31 32 29 0d 08 16  |=-(128*y1+12)...|
000010e0  16 62 6c 6f 63 6b 21 32  30 3d 26 31 37 30 31 39  |.block!20=&17019|
000010f0  31 30 42 0d 08 20 24 62  6c 6f 63 6b 21 32 34 3d  |10B.. $block!24=|
00001100  68 70 74 72 3a 24 68 70  74 72 3d 6e 61 6d 65 24  |hptr:$hptr=name$|
00001110  28 70 69 65 63 65 29 0d  08 2a 2b 62 6c 6f 63 6b  |(piece)..*+block|
00001120  21 33 32 3d a9 6e 61 6d  65 24 28 70 69 65 63 65  |!32=.name$(piece|
00001130  29 2b 31 3a 68 70 74 72  2b 3d 62 6c 6f 63 6b 21  |)+1:hptr+=block!|
00001140  33 32 0d 08 34 2e 62 6c  6f 63 6b 21 32 38 3d 68  |32..4.block!28=h|
00001150  70 74 72 3a 24 68 70 74  72 3d 74 79 70 65 24 3a  |ptr:$hptr=type$:|
00001160  68 70 74 72 2b 3d 28 a9  74 79 70 65 24 2b 31 29  |hptr+=(.type$+1)|
00001170  0d 08 3e 2d c8 99 20 22  57 69 6d 70 5f 43 72 65  |..>-.. "Wimp_Cre|
00001180  61 74 65 49 63 6f 6e 22  2c 2c 62 6c 6f 63 6b 20  |ateIcon",,block |
00001190  b8 20 69 63 6f 6e 28 70  69 65 63 65 29 0d 08 48  |. icon(piece)..H|
000011a0  12 70 69 65 63 65 2b 3d  31 3a 78 31 2b 3d 31 0d  |.piece+=1:x1+=1.|
000011b0  08 52 17 e7 20 78 31 3d  78 20 8c 20 78 31 3d 30  |.R.. x1=x . x1=0|
000011c0  3a 79 31 2b 3d 31 0d 08  5c 11 fd 20 70 69 65 63  |:y1+=1..\.. piec|
000011d0  65 3d 69 74 65 6d 73 0d  08 66 05 cd 0d 08 70 2f  |e=items..f....p/|
000011e0  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
000011f0  64 72 61 77 22 2c 64 75  73 74 2c 30 2c 2d 31 30  |draw",dust,0,-10|
00001200  30 30 30 2c 31 30 30 30  30 2c 30 0d 08 7a 05 e1  |000,10000,0..z..|
00001210  0d 08 84 05 3a 0d 08 8e  12 dd 20 f2 64 61 74 61  |....:..... .data|
00001220  6c 6f 61 64 28 62 29 0d  08 98 0e e7 20 62 21 31  |load(b)..... b!1|
00001230  32 3d 30 20 8c 0d 08 a2  18 70 61 74 68 24 3d a4  |2=0 .....path$=.|
00001240  67 65 74 6e 61 6d 65 28  62 2b 34 34 29 0d 08 ac  |getname(b+44)...|
00001250  16 6c 65 61 66 24 3d a4  6c 65 61 66 28 70 61 74  |.leaf$=.leaf(pat|
00001260  68 24 29 0d 08 b6 17 f2  74 72 61 73 68 28 70 61  |h$).....trash(pa|
00001270  74 68 24 2c 6c 65 61 66  24 29 0d 08 c0 19 62 21  |th$,leaf$)....b!|
00001280  31 32 3d 62 21 38 3a 62  21 31 36 3d 34 3a 21 62  |12=b!8:b!16=4:!b|
00001290  3d 36 34 0d 08 ca 22 c8  99 20 22 57 69 6d 70 5f  |=64...".. "Wimp_|
000012a0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
000012b0  62 2c 62 21 34 0d 08 d4  05 cd 0d 08 de 0e f2 72  |b,b!4..........r|
000012c0  65 61 64 66 69 6c 65 73  0d 08 e8 05 e1 0d 08 f2  |eadfiles........|
000012d0  05 3a 0d 08 fc 13 dd 20  a4 67 65 74 6e 61 6d 65  |.:..... .getname|
000012e0  28 70 74 72 29 0d 09 06  09 70 24 3d 22 22 0d 09  |(ptr)....p$=""..|
000012f0  10 0e c8 95 20 3f 70 74  72 3c 3e 30 0d 09 1a 14  |.... ?ptr<>0....|
00001300  70 24 2b 3d bd 3f 70 74  72 3a 70 74 72 2b 3d 31  |p$+=.?ptr:ptr+=1|
00001310  0d 09 24 05 ce 0d 09 2e  07 3d 70 24 0d 09 38 05  |..$......=p$..8.|
00001320  3a 0d 09 42 0f dd 20 a4  6c 65 61 66 28 66 24 29  |:..B.. .leaf(f$)|
00001330  0d 09 4c 0f c8 95 20 a7  66 24 2c 22 2e 22 29 0d  |..L... .f$,".").|
00001340  09 56 16 66 24 3d c1 66  24 2c a7 66 24 2c 22 2e  |.V.f$=.f$,.f$,".|
00001350  22 29 2b 31 29 0d 09 60  05 ce 0d 09 6a 07 3d 66  |")+1)..`....j.=f|
00001360  24 0d 09 74 05 3a 0d 09  7e 17 dd 20 f2 74 72 61  |$..t.:..~.. .tra|
00001370  73 68 28 66 72 6f 6d 24  2c 74 6f 24 29 0d 09 88  |sh(from$,to$)...|
00001380  20 ff 20 28 22 41 43 43  45 53 53 20 22 2b 66 72  | . ("ACCESS "+fr|
00001390  6f 6d 24 2b 22 20 57 52  2f 57 52 22 29 0d 09 92  |om$+" WR/WR")...|
000013a0  47 c8 99 20 22 58 4f 53  5f 43 4c 49 22 2c 22 52  |G.. "XOS_CLI","R|
000013b0  45 4e 41 4d 45 20 22 2b  66 72 6f 6d 24 2b 22 20  |ENAME "+from$+" |
000013c0  3c 52 75 62 62 69 73 68  24 44 69 72 3e 2e 52 75  |<Rubbish$Dir>.Ru|
000013d0  62 62 69 73 68 2e 22 2b  74 6f 24 20 b8 20 3b 66  |bbish."+to$ . ;f|
000013e0  6c 61 67 73 0d 09 9c 5b  e7 20 28 66 6c 61 67 73  |lags...[. (flags|
000013f0  20 80 20 31 29 20 8c 20  ff 20 28 22 43 4f 50 59  | . 1) . . ("COPY|
00001400  20 22 2b 66 72 6f 6d 24  2b 22 20 3c 52 75 62 62  | "+from$+" <Rubb|
00001410  69 73 68 24 44 69 72 3e  2e 52 75 62 62 69 73 68  |ish$Dir>.Rubbish|
00001420  2e 22 2b 74 6f 24 2b 22  20 41 7e 43 44 46 7e 4c  |."+to$+" A~CDF~L|
00001430  7e 4e 7e 50 7e 51 52 7e  53 7e 54 7e 56 22 29 0d  |~N~P~QR~S~T~V").|
00001440  09 a6 05 e1 0d 09 b0 05  3a 0d 09 ba 12 dd 20 f2  |........:..... .|
00001450  64 61 74 61 73 61 76 65  28 62 29 0d 09 c4 18 6c  |datasave(b)....l|
00001460  65 61 66 24 3d a4 67 65  74 6e 61 6d 65 28 62 2b  |eaf$=.getname(b+|
00001470  34 34 29 0d 09 ce 2d 24  28 62 2b 34 34 29 3d 22  |44)...-$(b+44)="|
00001480  3c 52 75 62 62 69 73 68  24 44 69 72 3e 2e 52 75  |<Rubbish$Dir>.Ru|
00001490  62 62 69 73 68 2e 22 2b  6c 65 61 66 24 2b bd 30  |bbish."+leaf$+.0|
000014a0  0d 09 d8 19 62 21 31 32  3d 62 21 38 3a 62 21 31  |....b!12=b!8:b!1|
000014b0  36 3d 32 3a 21 62 3d 38  30 0d 09 e2 22 c8 99 20  |6=2:!b=80...".. |
000014c0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000014d0  65 22 2c 31 37 2c 62 2c  62 21 34 0d 09 ec 05 e1  |e",17,b,b!4.....|
000014e0  0d 09 f6 05 3a 0d 0a 00  13 dd 20 f2 73 74 61 72  |....:..... .star|
000014f0  74 64 72 61 67 28 62 29  0d 0a 0a 14 69 63 3d 62  |tdrag(b)....ic=b|
00001500  21 31 36 3a 69 6e 64 65  78 3d 2d 31 0d 0a 14 15  |!16:index=-1....|
00001510  e3 20 63 6f 75 6e 74 3d  30 20 b8 20 69 74 65 6d  |. count=0 . item|
00001520  73 0d 0a 1e 22 e7 20 69  63 6f 6e 28 63 6f 75 6e  |s...". icon(coun|
00001530  74 29 3d 69 63 20 8c 20  69 6e 64 65 78 3d 63 6f  |t)=ic . index=co|
00001540  75 6e 74 0d 0a 28 05 ed  0d 0a 32 14 21 62 3d 62  |unt..(....2.!b=b|
00001550  21 31 32 3a 62 21 34 3d  62 21 31 36 0d 0a 3c 1d  |!12:b!4=b!16..<.|
00001560  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00001570  53 74 61 74 65 22 2c 2c  62 0d 0a 46 0b 62 21 33  |State",,b..F.b!3|
00001580  32 3d 21 62 0d 0a 50 22  c8 99 20 22 57 69 6d 70  |2=!b..P".. "Wimp|
00001590  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000015a0  2c 2c 62 2b 33 32 0d 0a  5a 14 78 30 3d 62 21 33  |,,b+32..Z.x0=b!3|
000015b0  36 2b 62 21 38 2d 62 21  35 32 0d 0a 64 15 78 31  |6+b!8-b!52..d.x1|
000015c0  3d 62 21 33 36 2b 62 21  31 36 2d 62 21 35 32 0d  |=b!36+b!16-b!52.|
000015d0  0a 6e 15 79 30 3d 62 21  34 38 2b 62 21 31 32 2d  |.n.y0=b!48+b!12-|
000015e0  62 21 35 36 0d 0a 78 15  79 31 3d 62 21 34 38 2b  |b!56..x.y1=b!48+|
000015f0  62 21 32 30 2d 62 21 35  36 0d 0a 82 11 21 62 3d  |b!20-b!56....!b=|
00001600  64 75 73 74 3a 62 21 34  3d 35 0d 0a 8c 12 62 21  |dust:b!4=5....b!|
00001610  38 3d 78 30 3a 62 21 31  32 3d 79 31 0d 0a 96 13  |8=x0:b!12=y1....|
00001620  62 21 31 36 3d 78 31 3a  62 21 32 30 3d 79 30 0d  |b!16=x1:b!20=y0.|
00001630  0a a0 11 62 21 32 34 3d  30 3a 62 21 32 38 3d 30  |...b!24=0:b!28=0|
00001640  0d 0a aa 1f 62 21 33 32  3d 26 37 46 46 46 46 46  |....b!32=&7FFFFF|
00001650  46 3a 62 21 33 36 3d 26  37 46 46 46 46 46 46 0d  |F:b!36=&7FFFFFF.|
00001660  0a b4 18 c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |..... "Wimp_Drag|
00001670  42 6f 78 22 2c 2c 62 0d  0a be 05 e1 0d 0a c8 05  |Box",,b.........|
00001680  3a 0d 0a d2 0b dd 20 f2  73 61 76 65 0d 0a dc 23  |:..... .save...#|
00001690  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
000016a0  74 65 72 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 0d  |terInfo",,block.|
000016b0  0a e6 25 62 6c 6f 63 6b  21 32 30 3d 36 34 3a 62  |..%block!20=64:b|
000016c0  6c 6f 63 6b 21 33 32 3d  30 3a 62 6c 6f 63 6b 21  |lock!32=0:block!|
000016d0  33 36 3d 31 0d 0a f0 27  62 6c 6f 63 6b 21 34 30  |36=1...'block!40|
000016e0  3d 62 6c 6f 63 6b 21 31  32 3a 62 6c 6f 63 6b 21  |=block!12:block!|
000016f0  34 34 3d 62 6c 6f 63 6b  21 31 36 0d 0a fa 24 62  |44=block!16...$b|
00001700  6c 6f 63 6b 21 34 38 3d  21 62 6c 6f 63 6b 3a 62  |lock!48=!block:b|
00001710  6c 6f 63 6b 21 35 32 3d  62 6c 6f 63 6b 21 34 0d  |lock!52=block!4.|
00001720  0b 04 0e 62 6c 6f 63 6b  21 35 36 3d 30 0d 0b 0e  |...block!56=0...|
00001730  18 62 6c 6f 63 6b 21 36  30 3d 74 79 70 65 28 69  |.block!60=type(i|
00001740  6e 64 65 78 29 0d 0b 18  1f 24 28 62 6c 6f 63 6b  |ndex)....$(block|
00001750  2b 36 34 29 3d 6e 61 6d  65 24 28 69 6e 64 65 78  |+64)=name$(index|
00001760  29 2b bd 30 0d 0b 22 37  c8 99 20 22 57 69 6d 70  |)+.0.."7.. "Wimp|
00001770  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00001780  2c 62 6c 6f 63 6b 2b 32  30 2c 62 6c 6f 63 6b 21  |,block+20,block!|
00001790  31 32 2c 62 6c 6f 63 6b  21 31 36 0d 0b 2c 05 e1  |12,block!16..,..|
000017a0  0d 0b 36 05 3a 0d 0b 40  15 dd 20 f2 64 61 74 61  |..6.:..@.. .data|
000017b0  73 61 76 65 61 63 6b 28  62 29 0d 0b 4a 18 70 61  |saveack(b)..J.pa|
000017c0  74 68 24 3d a4 67 65 74  6e 61 6d 65 28 62 2b 34  |th$=.getname(b+4|
000017d0  34 29 0d 0b 54 16 6c 65  61 66 24 3d a4 6c 65 61  |4)..T.leaf$=.lea|
000017e0  66 28 70 61 74 68 24 29  0d 0b 5e 49 c8 99 20 22  |f(path$)..^I.. "|
000017f0  58 4f 53 5f 43 4c 49 22  2c 22 52 45 4e 41 4d 45  |XOS_CLI","RENAME|
00001800  20 3c 52 75 62 62 69 73  68 24 44 69 72 3e 2e 52  | <Rubbish$Dir>.R|
00001810  75 62 62 69 73 68 2e 22  2b 6c 65 61 66 24 2b 22  |ubbish."+leaf$+"|
00001820  20 22 2b 70 61 74 68 24  20 b8 20 3b 66 6c 61 67  | "+path$ . ;flag|
00001830  73 0d 0b 68 5d e7 20 28  66 6c 61 67 73 20 80 20  |s..h]. (flags . |
00001840  31 29 20 8c 20 ff 20 28  22 43 4f 50 59 20 3c 52  |1) . . ("COPY <R|
00001850  75 62 62 69 73 68 24 44  69 72 3e 2e 52 75 62 62  |ubbish$Dir>.Rubb|
00001860  69 73 68 2e 22 2b 6c 65  61 66 24 2b 22 20 22 2b  |ish."+leaf$+" "+|
00001870  70 61 74 68 24 2b 22 20  41 7e 43 44 46 7e 4c 7e  |path$+" A~CDF~L~|
00001880  4e 7e 50 7e 51 52 7e 53  7e 54 7e 56 22 29 0d 0b  |N~P~QR~S~T~V")..|
00001890  72 19 62 21 31 32 3d 62  21 38 3a 62 21 31 36 3d  |r.b!12=b!8:b!16=|
000018a0  33 3a 21 62 3d 36 34 0d  0b 7c 28 c8 99 20 22 57  |3:!b=64..|(.. "W|
000018b0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000018c0  2c 31 37 2c 62 2c 62 21  32 30 2c 62 21 32 34 0d  |,17,b,b!20,b!24.|
000018d0  0b 86 0e f2 72 65 61 64  66 69 6c 65 73 0d 0b 90  |....readfiles...|
000018e0  05 e1 0d ff                                       |....|
000018e4