��respsave(icon%)
-f$=$(�lust(Auto%,1)):p$=$(�lust(Auto%,5))
Ȏ icon% �
(� 6
2c%=currpath%
<@ȕ c%<p%:Ftp$(c%)=Ftp$(c%+1):Svpth$(c%)=Svpth$(c%+1):c%+=1:�
F2Ftp$(p%)="":Svpth$(p%)="":� currpath%<p% p%-=1
P
�edure
Z� 7
d� f$<>"" � p$<>"" �
n3Ftp$(currpath%)=�ftype(f$):Svpth$(currpath%)=p$
x � currpath%=p% � p%<19 p%+=1
�� currpath%<19 currpath%+=1
��:�edure
�� 8
�� f$<>"" � p$<>"" �
�3Ftp$(currpath%)=�ftype(f$):Svpth$(currpath%)=p$
� � currpath%=p% � p%<19 p%+=1
��
�� currpath%>0 currpath%-=1
�
�edure
�� 12
�5� �p$>0 �ess(p$) ��lamation(�msg("np","",""),0,0)
�� 13
�� f$<>"" � p$<>"" �

PFtp$(currpath%)=�ftype(f$):Svpth$(currpath%)=p$:� currpath%=p% � p%<19 p%+=1

�

Jy=�(home$+".SaveOpts"):� l%=0 � p%-1:�#y,Ftp$(l%):�#y,Svpth$(l%):�:�#y

"�

,K�ps(Auto%,9,"Current : "+�(currpath%+1)):�ps(Auto%,10,"Total : "+�(p%))

6�

@��find(icon%)

J0� wip%>0 �lamation(�msg("busy","",""),0,0):�

T#� head$,pos%,x$,ohj%,pop$,mmmm%

^ș&42 � searchtime%

hNspath$=$(�lust(Mavis%,3)):sname$=$(�lust(Mavis%,6)):� sname$="" sname$="*"

r:pop$=�ftype($(�lust(Mavis%,13))):� wrinkledforeskin% �

|)� pop$<>"" stype=�("&"+pop$) �stype=0

�5$ffs%="sfile_"+pop$+�0:�selic(Mavis%,fficon%,0,0)

�3� � spath$=0 �lamation(�msg("nsp","",""),0,1):�

�� �

�$� � � �lamation(�$,0,1):wip%=0:�

�wip%=0:head$=spath$

�ȕ �head$,"\")>0

�8wip%+=1:pos%=�head$,"\"):msg$(wip%)=�head$,(pos%-1))

�?x$=�head$,(�head$-pos%)):head$=x$:ohj%=�objtype(msg$(wip%))

�G� ohj%<>2 � ohj%<>3 �lamation(�msg("sp",msg$(wip%),""),0,1):wip%-=1

��

�6wip%+=1:msg$(wip%)=head$:ohj%=�objtype(msg$(wip%))

�G� ohj%<>2 � ohj%<>3 �lamation(�msg("sp",msg$(wip%),""),0,1):wip%-=1

�� �
Bcomparing$=$(�lust(Mavis%,29)):� comparing$="" comparing$=">0"
mmmm%=�(�comparing$,1))
3� mmmm%<58 � mmmm%>48 comparing$="="+comparing$
&�ps(Mavis%,29,comparing$)
0� wip%=0 �
:wot%=0:head$=sname$
Dȕ �head$,"\")>0 � wot%<10
N8wot%+=1:pos%=�head$,"\"):wot$(wot%)=�head$,(pos%-1))
X%x$=�head$,(�head$-pos%)):head$=x$
b�
lH� wot%=10 �lamation(�msg("tmn","",""),0,1) �wot%+=1:wot$(wot%)=head$
vȎ ffact% �
�� 1:file%=�
�� 2
�� � tdim% text%=�dim(10000)
�� text%=0 �:�
�Htdim%=�:entrywidth%=44:$text%=�msg("fl","","")+�13:list%=entrywidth%
�4file%=�:� foundopen% �close(Found%):foundopen%=0
�� 3
�file%=�
�<� �objtype(bin$+"."+today$)=0 �("CDir "+bin$+"."+today$)
�&�lamation(�msg("ydw","",""),-1,6) 
��
�"scrap%=�dim(3000):� scrap%=0 �
�7�ibar("Searching"):zappa%=1:pollmask%=&1830:!bye%=1
Ȏ usearcfs% �
� 1
=� arcfsflag%=2 � �("WimpTask Filer_Run <ArcFS$Dir>.!Run")
 � 2
*� sparkfsflag%=2 �
4.�("WimpTask Filer_Run <SparkFS$Dir>.!Run")
>;�selic(Mavis%,24,grey,grey):�selic(Mavis%,25,grey,grey)
H�
R�
\=totalsize%=0:tot%=0:found%=1:pieceof$="Searching ":urm%=1
f� fffast% �
g9�ps(Mavis%,19,""):�ps(Mavis%,18,""):�ps(Mavis%,21,"")
p�
�A�ps(Mavis%,19,"0 files found"):�ps(Mavis%,18,"0 bytes total")
��
�T�changemavis("Abort","Current Search:"):ș&400D2,-1,-1,,,-1,0:�gmavis(grey,grey)
��
���replytohelp(w%,i%)
�� m$
�	m$=""
�Ȏ w% �
�� -2
�Ȏ i% �
�!� hole%:m$=�msg("ibar","","")
�$� clicon%:m$=�msg("ibarc",�$,"")
��
� Pane%
Ȏ i% �
� -1:m$=�msg("O","","")
$:m$=�msg("O"+�(i%),"","")
.�
8
� Config%
BȎ i% �
L� -1:m$=�msg("O","","")
V:m$=�msg("C"+�(i%),"","")
`�
j� Auto%
tȎ i% �
~� 1,5,6,7,8,9,10,11,12,13
�m$=�msg("A"+�(i%),"","")
�)� fileicon%:m$=�msg("Fileicon","","")
�:m$=�msg("A","","")
��
�� Info%
�m$=�msg("I","","")
�Ȏ i% �
�	� 0,2
�m$=�msg("I"+�(i%),"","")
�*� 1:m$=�msg("I"+�(100+!spinon%),"","")
��
�� Mavis%
Ȏ i% �

2� 3,4,6,7,8,9,10,13,18,19,21,22,24,25,26,27,29
m$=�msg("FF"+�i%,"","")
:m$=�msg("FF","","")
(�
2!� Found%:m$=�msg("FFW","","")
<<� Query%:m$=�msg("QW","","")+"|M"+�msg("QW"+�(i%),"","")
F
PȎ wmen% �
Z� 1:m$=�msg("spm","","")
d� 3:m$=�msg("tmen","","")
n� 0,2:m$=�menhelp(w%,i%)
x� 4:m$=�fmenhelp(w%,i%)
��
��
�Rm$+=�(0):bl%!0=256:bl%!12=bl%!8:bl%!16=&503:$(bl%+20)=m$:ș&400E7,17,bl%,bl%!4
��
�ݤmenhelp(w%,i%)
�� m$
�ș&400F4,1,Menus%,w%,i%
�Ȏ !Menus% �
�,�0:m$=�msg("MM"+�(!Menus%)+�wmen%,"","")
�� -1,1,4,5,7
� m$=�msg("MM"+�!Menus%,"","")
�� 6
�Ȏ Menus%!4 �
�*� -1,0,1:m$=�msg("KM"+�Menus%!4,"","")
�5:m$=�msg("KMx",$((modmem%+40)+(24*Menus%!4)),"")
��
� 2
Ȏ Menus%!4 �
� -1:m$=�msg("MM2","","")
"� 0,1,2,3,4
,%m$=�conmenhelp(Menus%!4,Menus%!8)
6�
@� 3
JȎ Menus%!4 �
T� -1:m$=�msg("MM3","","")
^-� ramdisc%:m$=�msg("MM31","RAM Disc.","")
h/� memfs%:m$=�msg("MM31","Memphis Disc.","")
r
|Ȏ Menus%!8 �
�5� -1:m$=�msg("MM31",�msg("MM32",�Menus%!4,""),"")
�$:m$=�msg("MM33",�(Menus%!4),"")
��
��
��
�=m$
�ݤconmenhelp(sub1%,sub2%)
�� m$
�$m$=�msg("MM21",men$(7+sub1%),"")
�Ȏ sub2% �
�
� -1,0
�6m$+=�msg("MM22",bin$,"")+�msg("MM22"+�sub2%,"","")
�
%m$+=�msg("MM23",�which(sub2%),"")
�
=m$
&ݤfmenhelp(w%,i%)
0ș&400F4,1,Menus%,w%,i%
:=�msg("FM"+�!Menus%,"","")
D
��ess(p$)
N� �
X� � � �lamation(�$,0,0):�
bQ� �objtype(p$)>1 � �("Filer_OpenDir "+p$) � �lamation(�msg("ndir","",""),0,0)
l�
v'��think(thought%,type%,full$,name$)
�Ȏ thought% �
�� 0
�8� type%=&DDC � usearcfs%=1 �openarchive(full$,name$)
�� 1
�F� type%<>&FCA � �("Access "+full$+" RW"):ș&400DE,"*Squash "+full$
��
��
���getfiles(temp$)
�N� otot%,g%,no%,n%,count%,addr%,pos%,line$,mid%,break%,bum%,size%,pbd%,sfg%
�otot%=tot%
�
� file% �
�
mid%=1
��
pos%=0:break%=�
�
#pos%+=1:line$=�temp$,mid%,pos%)
 8� (�line$,1)="." � �line$>(entrywidth%-13)) break%=�
*&bum%=�(�temp$,�temp$-mid%-pos%))+3
4-� ((�line$)+bum%)<=entrywidth%-2 break%=�
>� mid%+pos%>�temp$ break%=�
H� break%
RL$(text%+list%)="["+line$+"]"+�13:found%+=1:list%+=entrywidth%:mid%+=pos%
\� mid%>=�temp$
f�
p� g%=1 � wot%
zcount%=0:addr%=scrap%
�4ș&C,10,temp$,scrap%,77,0,3000,wot$(g%) � ,,,no%
�
� no%>0 �
��
�&filetype%=(((addr%!0)>>>8) � &FFF)
�-size%=addr%!8:objtype%=addr%!16:addr%+=20
�Houtput$=�bum(addr%):n%=�:� casesens% n%=�gorblimey(output$,wot$(g%))
�0� stype>0 � n% n%=�luvaduck(stype,filetype%)
�W� n% ș"XOS_EvaluateExpression",(�size%)+comparing$,bl3%,256 � ,pbd%,sfg% � pbd%=-1
�� pbd%=0 �
�� sfg%=-1 n%=� � n%=�
��
�n%=�
��
	
� n% �
	� file% bum%=2 �bum%=ffact%
	
Ȏ bum% �
	$� 1
	.7�("Filer_OpenDir "+temp$):tot%+=1:totalsize%+=size%
	8� 2
	B>$(text%+list%)=�text(output$,filetype%,objtype%,size%)+�13
	L:found%+=1:list%+=entrywidth%:tot%+=1:totalsize%+=size%
	V� 3
	`� objtype%=1 �
	jtot%+=1:totalsize%+=size%
	tX�("Copy "+temp$+"."+output$+" "+bin$+"."+today$+"."+output$+" A~CDF~L~N~P~Q~RS~T~V")
	~�
	��
	��
	�
count%+=1
	�ȕ (addr% � 4)>0:addr%+=1:�
	�� count%=no% � found%>220
	�'� found%>220 wip%=0:toomanyfiles%=�
	��
	��
	�� otot%=tot% � file% �
	�)ȕ �$(text%+list%-entrywidth%),1)="["
	� found%-=1:list%-=entrywidth%
	��
�

�
��ldoverlay:�
�

00000000  0d 00 0a 15 dd f2 72 65  73 70 73 61 76 65 28 69  |......respsave(i|
00000010  63 6f 6e 25 29 0d 00 14  2d 66 24 3d 24 28 a4 6c  |con%)...-f$=$(.l|
00000020  75 73 74 28 41 75 74 6f  25 2c 31 29 29 3a 70 24  |ust(Auto%,1)):p$|
00000030  3d 24 28 a4 6c 75 73 74  28 41 75 74 6f 25 2c 35  |=$(.lust(Auto%,5|
00000040  29 29 0d 00 1e 0e c8 8e  20 69 63 6f 6e 25 20 ca  |))...... icon% .|
00000050  0d 00 28 07 c9 20 36 0d  00 32 10 63 25 3d 63 75  |..(.. 6..2.c%=cu|
00000060  72 72 70 61 74 68 25 0d  00 3c 40 c8 95 20 63 25  |rrpath%..<@.. c%|
00000070  3c 70 25 3a 46 74 70 24  28 63 25 29 3d 46 74 70  |<p%:Ftp$(c%)=Ftp|
00000080  24 28 63 25 2b 31 29 3a  53 76 70 74 68 24 28 63  |$(c%+1):Svpth$(c|
00000090  25 29 3d 53 76 70 74 68  24 28 63 25 2b 31 29 3a  |%)=Svpth$(c%+1):|
000000a0  63 25 2b 3d 31 3a ce 0d  00 46 32 46 74 70 24 28  |c%+=1:...F2Ftp$(|
000000b0  70 25 29 3d 22 22 3a 53  76 70 74 68 24 28 70 25  |p%)="":Svpth$(p%|
000000c0  29 3d 22 22 3a e7 20 63  75 72 72 70 61 74 68 25  |)="":. currpath%|
000000d0  3c 70 25 20 70 25 2d 3d  31 0d 00 50 0a f2 65 64  |<p% p%-=1..P..ed|
000000e0  75 72 65 0d 00 5a 07 c9  20 37 0d 00 64 17 e7 20  |ure..Z.. 7..d.. |
000000f0  66 24 3c 3e 22 22 20 80  20 70 24 3c 3e 22 22 20  |f$<>"" . p$<>"" |
00000100  8c 0d 00 6e 33 46 74 70  24 28 63 75 72 72 70 61  |...n3Ftp$(currpa|
00000110  74 68 25 29 3d a4 66 74  79 70 65 28 66 24 29 3a  |th%)=.ftype(f$):|
00000120  53 76 70 74 68 24 28 63  75 72 72 70 61 74 68 25  |Svpth$(currpath%|
00000130  29 3d 70 24 0d 00 78 20  e7 20 63 75 72 72 70 61  |)=p$..x . currpa|
00000140  74 68 25 3d 70 25 20 80  20 70 25 3c 31 39 20 70  |th%=p% . p%<19 p|
00000150  25 2b 3d 31 0d 00 82 1f  e7 20 63 75 72 72 70 61  |%+=1..... currpa|
00000160  74 68 25 3c 31 39 20 63  75 72 72 70 61 74 68 25  |th%<19 currpath%|
00000170  2b 3d 31 0d 00 8c 0c cd  3a f2 65 64 75 72 65 0d  |+=1.....:.edure.|
00000180  00 96 07 c9 20 38 0d 00  a0 17 e7 20 66 24 3c 3e  |.... 8..... f$<>|
00000190  22 22 20 80 20 70 24 3c  3e 22 22 20 8c 0d 00 aa  |"" . p$<>"" ....|
000001a0  33 46 74 70 24 28 63 75  72 72 70 61 74 68 25 29  |3Ftp$(currpath%)|
000001b0  3d a4 66 74 79 70 65 28  66 24 29 3a 53 76 70 74  |=.ftype(f$):Svpt|
000001c0  68 24 28 63 75 72 72 70  61 74 68 25 29 3d 70 24  |h$(currpath%)=p$|
000001d0  0d 00 b4 20 e7 20 63 75  72 72 70 61 74 68 25 3d  |... . currpath%=|
000001e0  70 25 20 80 20 70 25 3c  31 39 20 70 25 2b 3d 31  |p% . p%<19 p%+=1|
000001f0  0d 00 be 05 cd 0d 00 c8  1e e7 20 63 75 72 72 70  |.......... currp|
00000200  61 74 68 25 3e 30 20 63  75 72 72 70 61 74 68 25  |ath%>0 currpath%|
00000210  2d 3d 31 0d 00 d2 0a f2  65 64 75 72 65 0d 00 dc  |-=1.....edure...|
00000220  08 c9 20 31 32 0d 00 e6  35 e7 20 a9 70 24 3e 30  |.. 12...5. .p$>0|
00000230  20 f2 65 73 73 28 70 24  29 20 8b f2 6c 61 6d 61  | .ess(p$) ..lama|
00000240  74 69 6f 6e 28 a4 6d 73  67 28 22 6e 70 22 2c 22  |tion(.msg("np","|
00000250  22 2c 22 22 29 2c 30 2c  30 29 0d 00 f0 08 c9 20  |",""),0,0)..... |
00000260  31 33 0d 00 fa 17 e7 20  66 24 3c 3e 22 22 20 80  |13..... f$<>"" .|
00000270  20 70 24 3c 3e 22 22 20  8c 0d 01 04 50 46 74 70  | p$<>"" ....PFtp|
00000280  24 28 63 75 72 72 70 61  74 68 25 29 3d a4 66 74  |$(currpath%)=.ft|
00000290  79 70 65 28 66 24 29 3a  53 76 70 74 68 24 28 63  |ype(f$):Svpth$(c|
000002a0  75 72 72 70 61 74 68 25  29 3d 70 24 3a e7 20 63  |urrpath%)=p$:. c|
000002b0  75 72 72 70 61 74 68 25  3d 70 25 20 80 20 70 25  |urrpath%=p% . p%|
000002c0  3c 31 39 20 70 25 2b 3d  31 0d 01 0e 05 cd 0d 01  |<19 p%+=1.......|
000002d0  18 4a 79 3d ae 28 68 6f  6d 65 24 2b 22 2e 53 61  |.Jy=.(home$+".Sa|
000002e0  76 65 4f 70 74 73 22 29  3a e3 20 6c 25 3d 30 20  |veOpts"):. l%=0 |
000002f0  b8 20 70 25 2d 31 3a d5  23 79 2c 46 74 70 24 28  |. p%-1:.#y,Ftp$(|
00000300  6c 25 29 3a d5 23 79 2c  53 76 70 74 68 24 28 6c  |l%):.#y,Svpth$(l|
00000310  25 29 3a ed 3a d9 23 79  0d 01 22 05 cb 0d 01 2c  |%):.:.#y.."....,|
00000320  4b f2 70 73 28 41 75 74  6f 25 2c 39 2c 22 43 75  |K.ps(Auto%,9,"Cu|
00000330  72 72 65 6e 74 20 3a 20  22 2b c3 28 63 75 72 72  |rrent : "+.(curr|
00000340  70 61 74 68 25 2b 31 29  29 3a f2 70 73 28 41 75  |path%+1)):.ps(Au|
00000350  74 6f 25 2c 31 30 2c 22  54 6f 74 61 6c 20 3a 20  |to%,10,"Total : |
00000360  22 2b c3 28 70 25 29 29  0d 01 36 05 e1 0d 01 40  |"+.(p%))..6....@|
00000370  11 dd f2 66 69 6e 64 28  69 63 6f 6e 25 29 0d 01  |...find(icon%)..|
00000380  4a 30 e7 20 77 69 70 25  3e 30 20 f2 6c 61 6d 61  |J0. wip%>0 .lama|
00000390  74 69 6f 6e 28 a4 6d 73  67 28 22 62 75 73 79 22  |tion(.msg("busy"|
000003a0  2c 22 22 2c 22 22 29 2c  30 2c 30 29 3a e1 0d 01  |,"",""),0,0):...|
000003b0  54 23 ea 20 68 65 61 64  24 2c 70 6f 73 25 2c 78  |T#. head$,pos%,x|
000003c0  24 2c 6f 68 6a 25 2c 70  6f 70 24 2c 6d 6d 6d 6d  |$,ohj%,pop$,mmmm|
000003d0  25 0d 01 5e 17 c8 99 26  34 32 20 b8 20 73 65 61  |%..^...&42 . sea|
000003e0  72 63 68 74 69 6d 65 25  0d 01 68 4e 73 70 61 74  |rchtime%..hNspat|
000003f0  68 24 3d 24 28 a4 6c 75  73 74 28 4d 61 76 69 73  |h$=$(.lust(Mavis|
00000400  25 2c 33 29 29 3a 73 6e  61 6d 65 24 3d 24 28 a4  |%,3)):sname$=$(.|
00000410  6c 75 73 74 28 4d 61 76  69 73 25 2c 36 29 29 3a  |lust(Mavis%,6)):|
00000420  e7 20 73 6e 61 6d 65 24  3d 22 22 20 73 6e 61 6d  |. sname$="" snam|
00000430  65 24 3d 22 2a 22 0d 01  72 3a 70 6f 70 24 3d a4  |e$="*"..r:pop$=.|
00000440  66 74 79 70 65 28 24 28  a4 6c 75 73 74 28 4d 61  |ftype($(.lust(Ma|
00000450  76 69 73 25 2c 31 33 29  29 29 3a e7 20 77 72 69  |vis%,13))):. wri|
00000460  6e 6b 6c 65 64 66 6f 72  65 73 6b 69 6e 25 20 e1  |nkledforeskin% .|
00000470  0d 01 7c 29 e7 20 70 6f  70 24 3c 3e 22 22 20 73  |..|). pop$<>"" s|
00000480  74 79 70 65 3d a0 28 22  26 22 2b 70 6f 70 24 29  |type=.("&"+pop$)|
00000490  20 8b 73 74 79 70 65 3d  30 0d 01 86 35 24 66 66  | .stype=0...5$ff|
000004a0  73 25 3d 22 73 66 69 6c  65 5f 22 2b 70 6f 70 24  |s%="sfile_"+pop$|
000004b0  2b bd 30 3a f2 73 65 6c  69 63 28 4d 61 76 69 73  |+.0:.selic(Mavis|
000004c0  25 2c 66 66 69 63 6f 6e  25 2c 30 2c 30 29 0d 01  |%,fficon%,0,0)..|
000004d0  90 33 e7 20 a9 20 73 70  61 74 68 24 3d 30 20 f2  |.3. . spath$=0 .|
000004e0  6c 61 6d 61 74 69 6f 6e  28 a4 6d 73 67 28 22 6e  |lamation(.msg("n|
000004f0  73 70 22 2c 22 22 2c 22  22 29 2c 30 2c 31 29 3a  |sp","",""),0,1):|
00000500  e1 0d 01 9a 07 ea 20 85  0d 01 a4 24 ee 20 85 20  |...... ....$. . |
00000510  ea 20 f2 6c 61 6d 61 74  69 6f 6e 28 f6 24 2c 30  |. .lamation(.$,0|
00000520  2c 31 29 3a 77 69 70 25  3d 30 3a e1 0d 01 ae 17  |,1):wip%=0:.....|
00000530  77 69 70 25 3d 30 3a 68  65 61 64 24 3d 73 70 61  |wip%=0:head$=spa|
00000540  74 68 24 0d 01 b8 14 c8  95 20 a7 68 65 61 64 24  |th$...... .head$|
00000550  2c 22 5c 22 29 3e 30 0d  01 c2 38 77 69 70 25 2b  |,"\")>0...8wip%+|
00000560  3d 31 3a 70 6f 73 25 3d  a7 68 65 61 64 24 2c 22  |=1:pos%=.head$,"|
00000570  5c 22 29 3a 6d 73 67 24  28 77 69 70 25 29 3d c0  |\"):msg$(wip%)=.|
00000580  68 65 61 64 24 2c 28 70  6f 73 25 2d 31 29 29 0d  |head$,(pos%-1)).|
00000590  01 cc 3f 78 24 3d c2 68  65 61 64 24 2c 28 a9 68  |..?x$=.head$,(.h|
000005a0  65 61 64 24 2d 70 6f 73  25 29 29 3a 68 65 61 64  |ead$-pos%)):head|
000005b0  24 3d 78 24 3a 6f 68 6a  25 3d a4 6f 62 6a 74 79  |$=x$:ohj%=.objty|
000005c0  70 65 28 6d 73 67 24 28  77 69 70 25 29 29 0d 01  |pe(msg$(wip%))..|
000005d0  d6 47 e7 20 6f 68 6a 25  3c 3e 32 20 80 20 6f 68  |.G. ohj%<>2 . oh|
000005e0  6a 25 3c 3e 33 20 f2 6c  61 6d 61 74 69 6f 6e 28  |j%<>3 .lamation(|
000005f0  a4 6d 73 67 28 22 73 70  22 2c 6d 73 67 24 28 77  |.msg("sp",msg$(w|
00000600  69 70 25 29 2c 22 22 29  2c 30 2c 31 29 3a 77 69  |ip%),""),0,1):wi|
00000610  70 25 2d 3d 31 0d 01 e0  05 ce 0d 01 ea 36 77 69  |p%-=1........6wi|
00000620  70 25 2b 3d 31 3a 6d 73  67 24 28 77 69 70 25 29  |p%+=1:msg$(wip%)|
00000630  3d 68 65 61 64 24 3a 6f  68 6a 25 3d a4 6f 62 6a  |=head$:ohj%=.obj|
00000640  74 79 70 65 28 6d 73 67  24 28 77 69 70 25 29 29  |type(msg$(wip%))|
00000650  0d 01 f4 47 e7 20 6f 68  6a 25 3c 3e 32 20 80 20  |...G. ohj%<>2 . |
00000660  6f 68 6a 25 3c 3e 33 20  f2 6c 61 6d 61 74 69 6f  |ohj%<>3 .lamatio|
00000670  6e 28 a4 6d 73 67 28 22  73 70 22 2c 6d 73 67 24  |n(.msg("sp",msg$|
00000680  28 77 69 70 25 29 2c 22  22 29 2c 30 2c 31 29 3a  |(wip%),""),0,1):|
00000690  77 69 70 25 2d 3d 31 0d  01 fe 07 f7 20 85 0d 02  |wip%-=1..... ...|
000006a0  08 42 63 6f 6d 70 61 72  69 6e 67 24 3d 24 28 a4  |.Bcomparing$=$(.|
000006b0  6c 75 73 74 28 4d 61 76  69 73 25 2c 32 39 29 29  |lust(Mavis%,29))|
000006c0  3a e7 20 63 6f 6d 70 61  72 69 6e 67 24 3d 22 22  |:. comparing$=""|
000006d0  20 63 6f 6d 70 61 72 69  6e 67 24 3d 22 3e 30 22  | comparing$=">0"|
000006e0  0d 02 12 1b 6d 6d 6d 6d  25 3d 97 28 c0 63 6f 6d  |....mmmm%=.(.com|
000006f0  70 61 72 69 6e 67 24 2c  31 29 29 0d 02 1c 33 e7  |paring$,1))...3.|
00000700  20 6d 6d 6d 6d 25 3c 35  38 20 80 20 6d 6d 6d 6d  | mmmm%<58 . mmmm|
00000710  25 3e 34 38 20 63 6f 6d  70 61 72 69 6e 67 24 3d  |%>48 comparing$=|
00000720  22 3d 22 2b 63 6f 6d 70  61 72 69 6e 67 24 0d 02  |"="+comparing$..|
00000730  26 1d f2 70 73 28 4d 61  76 69 73 25 2c 32 39 2c  |&..ps(Mavis%,29,|
00000740  63 6f 6d 70 61 72 69 6e  67 24 29 0d 02 30 0e e7  |comparing$)..0..|
00000750  20 77 69 70 25 3d 30 20  e1 0d 02 3a 17 77 6f 74  | wip%=0 ...:.wot|
00000760  25 3d 30 3a 68 65 61 64  24 3d 73 6e 61 6d 65 24  |%=0:head$=sname$|
00000770  0d 02 44 1e c8 95 20 a7  68 65 61 64 24 2c 22 5c  |..D... .head$,"\|
00000780  22 29 3e 30 20 80 20 77  6f 74 25 3c 31 30 0d 02  |")>0 . wot%<10..|
00000790  4e 38 77 6f 74 25 2b 3d  31 3a 70 6f 73 25 3d a7  |N8wot%+=1:pos%=.|
000007a0  68 65 61 64 24 2c 22 5c  22 29 3a 77 6f 74 24 28  |head$,"\"):wot$(|
000007b0  77 6f 74 25 29 3d c0 68  65 61 64 24 2c 28 70 6f  |wot%)=.head$,(po|
000007c0  73 25 2d 31 29 29 0d 02  58 25 78 24 3d c2 68 65  |s%-1))..X%x$=.he|
000007d0  61 64 24 2c 28 a9 68 65  61 64 24 2d 70 6f 73 25  |ad$,(.head$-pos%|
000007e0  29 29 3a 68 65 61 64 24  3d 78 24 0d 02 62 05 ce  |)):head$=x$..b..|
000007f0  0d 02 6c 48 e7 20 77 6f  74 25 3d 31 30 20 f2 6c  |..lH. wot%=10 .l|
00000800  61 6d 61 74 69 6f 6e 28  a4 6d 73 67 28 22 74 6d  |amation(.msg("tm|
00000810  6e 22 2c 22 22 2c 22 22  29 2c 30 2c 31 29 20 8b  |n","",""),0,1) .|
00000820  77 6f 74 25 2b 3d 31 3a  77 6f 74 24 28 77 6f 74  |wot%+=1:wot$(wot|
00000830  25 29 3d 68 65 61 64 24  0d 02 76 0f c8 8e 20 66  |%)=head$..v... f|
00000840  66 61 63 74 25 20 ca 0d  02 80 0f c9 20 31 3a 66  |fact% ...... 1:f|
00000850  69 6c 65 25 3d a3 0d 02  8a 07 c9 20 32 0d 02 94  |ile%=...... 2...|
00000860  1f e7 20 ac 20 74 64 69  6d 25 20 74 65 78 74 25  |.. . tdim% text%|
00000870  3d a4 64 69 6d 28 31 30  30 30 30 29 0d 02 9e 11  |=.dim(10000)....|
00000880  e7 20 74 65 78 74 25 3d  30 20 cd 3a e1 0d 02 a8  |. text%=0 .:....|
00000890  48 74 64 69 6d 25 3d b9  3a 65 6e 74 72 79 77 69  |Htdim%=.:entrywi|
000008a0  64 74 68 25 3d 34 34 3a  24 74 65 78 74 25 3d a4  |dth%=44:$text%=.|
000008b0  6d 73 67 28 22 66 6c 22  2c 22 22 2c 22 22 29 2b  |msg("fl","","")+|
000008c0  bd 31 33 3a 6c 69 73 74  25 3d 65 6e 74 72 79 77  |.13:list%=entryw|
000008d0  69 64 74 68 25 0d 02 b2  34 66 69 6c 65 25 3d b9  |idth%...4file%=.|
000008e0  3a e7 20 66 6f 75 6e 64  6f 70 65 6e 25 20 f2 63  |:. foundopen% .c|
000008f0  6c 6f 73 65 28 46 6f 75  6e 64 25 29 3a 66 6f 75  |lose(Found%):fou|
00000900  6e 64 6f 70 65 6e 25 3d  30 0d 02 bc 07 c9 20 33  |ndopen%=0..... 3|
00000910  0d 02 c6 0b 66 69 6c 65  25 3d a3 0d 02 d0 3c e7  |....file%=....<.|
00000920  20 a4 6f 62 6a 74 79 70  65 28 62 69 6e 24 2b 22  | .objtype(bin$+"|
00000930  2e 22 2b 74 6f 64 61 79  24 29 3d 30 20 ff 28 22  |."+today$)=0 .("|
00000940  43 44 69 72 20 22 2b 62  69 6e 24 2b 22 2e 22 2b  |CDir "+bin$+"."+|
00000950  74 6f 64 61 79 24 29 0d  02 da 26 f2 6c 61 6d 61  |today$)...&.lama|
00000960  74 69 6f 6e 28 a4 6d 73  67 28 22 79 64 77 22 2c  |tion(.msg("ydw",|
00000970  22 22 2c 22 22 29 2c 2d  31 2c 36 29 20 0d 02 e4  |"",""),-1,6) ...|
00000980  05 cb 0d 02 ee 22 73 63  72 61 70 25 3d a4 64 69  |....."scrap%=.di|
00000990  6d 28 33 30 30 30 29 3a  e7 20 73 63 72 61 70 25  |m(3000):. scrap%|
000009a0  3d 30 20 e1 0d 02 f8 37  f2 69 62 61 72 28 22 53  |=0 ....7.ibar("S|
000009b0  65 61 72 63 68 69 6e 67  22 29 3a 7a 61 70 70 61  |earching"):zappa|
000009c0  25 3d 31 3a 70 6f 6c 6c  6d 61 73 6b 25 3d 26 31  |%=1:pollmask%=&1|
000009d0  38 33 30 3a 21 62 79 65  25 3d 31 0d 03 02 12 c8  |830:!bye%=1.....|
000009e0  8e 20 75 73 65 61 72 63  66 73 25 20 ca 0d 03 0c  |. usearcfs% ....|
000009f0  07 c9 20 31 0d 03 16 3d  e7 20 61 72 63 66 73 66  |.. 1...=. arcfsf|
00000a00  6c 61 67 25 3d 32 20 8c  20 ff 28 22 57 69 6d 70  |lag%=2 . .("Wimp|
00000a10  54 61 73 6b 20 46 69 6c  65 72 5f 52 75 6e 20 3c  |Task Filer_Run <|
00000a20  41 72 63 46 53 24 44 69  72 3e 2e 21 52 75 6e 22  |ArcFS$Dir>.!Run"|
00000a30  29 0d 03 20 07 c9 20 32  0d 03 2a 16 e7 20 73 70  |).. .. 2..*.. sp|
00000a40  61 72 6b 66 73 66 6c 61  67 25 3d 32 20 8c 0d 03  |arkfsflag%=2 ...|
00000a50  34 2e ff 28 22 57 69 6d  70 54 61 73 6b 20 46 69  |4..("WimpTask Fi|
00000a60  6c 65 72 5f 52 75 6e 20  3c 53 70 61 72 6b 46 53  |ler_Run <SparkFS|
00000a70  24 44 69 72 3e 2e 21 52  75 6e 22 29 0d 03 3e 3b  |$Dir>.!Run")..>;|
00000a80  f2 73 65 6c 69 63 28 4d  61 76 69 73 25 2c 32 34  |.selic(Mavis%,24|
00000a90  2c 67 72 65 79 2c 67 72  65 79 29 3a f2 73 65 6c  |,grey,grey):.sel|
00000aa0  69 63 28 4d 61 76 69 73  25 2c 32 35 2c 67 72 65  |ic(Mavis%,25,gre|
00000ab0  79 2c 67 72 65 79 29 0d  03 48 05 cd 0d 03 52 05  |y,grey)..H....R.|
00000ac0  cb 0d 03 5c 3d 74 6f 74  61 6c 73 69 7a 65 25 3d  |...\=totalsize%=|
00000ad0  30 3a 74 6f 74 25 3d 30  3a 66 6f 75 6e 64 25 3d  |0:tot%=0:found%=|
00000ae0  31 3a 70 69 65 63 65 6f  66 24 3d 22 53 65 61 72  |1:pieceof$="Sear|
00000af0  63 68 69 6e 67 20 22 3a  75 72 6d 25 3d 31 0d 03  |ching ":urm%=1..|
00000b00  66 0f e7 20 66 66 66 61  73 74 25 20 8c 0d 03 67  |f.. fffast% ...g|
00000b10  39 f2 70 73 28 4d 61 76  69 73 25 2c 31 39 2c 22  |9.ps(Mavis%,19,"|
00000b20  22 29 3a f2 70 73 28 4d  61 76 69 73 25 2c 31 38  |"):.ps(Mavis%,18|
00000b30  2c 22 22 29 3a f2 70 73  28 4d 61 76 69 73 25 2c  |,""):.ps(Mavis%,|
00000b40  32 31 2c 22 22 29 0d 03  70 05 cc 0d 03 84 41 f2  |21,"")..p.....A.|
00000b50  70 73 28 4d 61 76 69 73  25 2c 31 39 2c 22 30 20  |ps(Mavis%,19,"0 |
00000b60  66 69 6c 65 73 20 66 6f  75 6e 64 22 29 3a f2 70  |files found"):.p|
00000b70  73 28 4d 61 76 69 73 25  2c 31 38 2c 22 30 20 62  |s(Mavis%,18,"0 b|
00000b80  79 74 65 73 20 74 6f 74  61 6c 22 29 0d 03 8e 05  |ytes total")....|
00000b90  cd 0d 03 98 54 f2 63 68  61 6e 67 65 6d 61 76 69  |....T.changemavi|
00000ba0  73 28 22 41 62 6f 72 74  22 2c 22 43 75 72 72 65  |s("Abort","Curre|
00000bb0  6e 74 20 53 65 61 72 63  68 3a 22 29 3a c8 99 26  |nt Search:"):..&|
00000bc0  34 30 30 44 32 2c 2d 31  2c 2d 31 2c 2c 2c 2d 31  |400D2,-1,-1,,,-1|
00000bd0  2c 30 3a f2 67 6d 61 76  69 73 28 67 72 65 79 2c  |,0:.gmavis(grey,|
00000be0  67 72 65 79 29 0d 03 a2  05 e1 0d 03 ac 18 dd f2  |grey)...........|
00000bf0  72 65 70 6c 79 74 6f 68  65 6c 70 28 77 25 2c 69  |replytohelp(w%,i|
00000c00  25 29 0d 03 b6 08 ea 20  6d 24 0d 03 c0 09 6d 24  |%)..... m$....m$|
00000c10  3d 22 22 0d 03 ca 0b c8  8e 20 77 25 20 ca 0d 03  |=""...... w% ...|
00000c20  d4 08 c9 20 2d 32 0d 03  de 0b c8 8e 20 69 25 20  |... -2...... i% |
00000c30  ca 0d 03 e8 21 c9 20 68  6f 6c 65 25 3a 6d 24 3d  |....!. hole%:m$=|
00000c40  a4 6d 73 67 28 22 69 62  61 72 22 2c 22 22 2c 22  |.msg("ibar","","|
00000c50  22 29 0d 03 f2 24 c9 20  63 6c 69 63 6f 6e 25 3a  |")...$. clicon%:|
00000c60  6d 24 3d a4 6d 73 67 28  22 69 62 61 72 63 22 2c  |m$=.msg("ibarc",|
00000c70  91 24 2c 22 22 29 0d 03  fc 05 cb 0d 04 06 0b c9  |.$,"")..........|
00000c80  20 50 61 6e 65 25 0d 04  10 0b c8 8e 20 69 25 20  | Pane%...... i% |
00000c90  ca 0d 04 1a 1b c9 20 2d  31 3a 6d 24 3d a4 6d 73  |...... -1:m$=.ms|
00000ca0  67 28 22 4f 22 2c 22 22  2c 22 22 29 0d 04 24 1e  |g("O","","")..$.|
00000cb0  7f 3a 6d 24 3d a4 6d 73  67 28 22 4f 22 2b c3 28  |.:m$=.msg("O"+.(|
00000cc0  69 25 29 2c 22 22 2c 22  22 29 0d 04 2e 05 cb 0d  |i%),"","")......|
00000cd0  04 38 0d c9 20 43 6f 6e  66 69 67 25 0d 04 42 0b  |.8.. Config%..B.|
00000ce0  c8 8e 20 69 25 20 ca 0d  04 4c 1b c9 20 2d 31 3a  |.. i% ...L.. -1:|
00000cf0  6d 24 3d a4 6d 73 67 28  22 4f 22 2c 22 22 2c 22  |m$=.msg("O","","|
00000d00  22 29 0d 04 56 1e 7f 3a  6d 24 3d a4 6d 73 67 28  |")..V..:m$=.msg(|
00000d10  22 43 22 2b c3 28 69 25  29 2c 22 22 2c 22 22 29  |"C"+.(i%),"","")|
00000d20  0d 04 60 05 cb 0d 04 6a  0b c9 20 41 75 74 6f 25  |..`....j.. Auto%|
00000d30  0d 04 74 0b c8 8e 20 69  25 20 ca 0d 04 7e 1d c9  |..t... i% ...~..|
00000d40  20 31 2c 35 2c 36 2c 37  2c 38 2c 39 2c 31 30 2c  | 1,5,6,7,8,9,10,|
00000d50  31 31 2c 31 32 2c 31 33  0d 04 88 1c 6d 24 3d a4  |11,12,13....m$=.|
00000d60  6d 73 67 28 22 41 22 2b  c3 28 69 25 29 2c 22 22  |msg("A"+.(i%),""|
00000d70  2c 22 22 29 0d 04 92 29  c9 20 66 69 6c 65 69 63  |,"")...). fileic|
00000d80  6f 6e 25 3a 6d 24 3d a4  6d 73 67 28 22 46 69 6c  |on%:m$=.msg("Fil|
00000d90  65 69 63 6f 6e 22 2c 22  22 2c 22 22 29 0d 04 9c  |eicon","","")...|
00000da0  18 7f 3a 6d 24 3d a4 6d  73 67 28 22 41 22 2c 22  |..:m$=.msg("A","|
00000db0  22 2c 22 22 29 0d 04 a6  05 cb 0d 04 b0 0b c9 20  |","").......... |
00000dc0  49 6e 66 6f 25 0d 04 ba  16 6d 24 3d a4 6d 73 67  |Info%....m$=.msg|
00000dd0  28 22 49 22 2c 22 22 2c  22 22 29 0d 04 c4 0b c8  |("I","","").....|
00000de0  8e 20 69 25 20 ca 0d 04  ce 09 c9 20 30 2c 32 0d  |. i% ...... 0,2.|
00000df0  04 d8 1c 6d 24 3d a4 6d  73 67 28 22 49 22 2b c3  |...m$=.msg("I"+.|
00000e00  28 69 25 29 2c 22 22 2c  22 22 29 0d 04 e2 2a c9  |(i%),"","")...*.|
00000e10  20 31 3a 6d 24 3d a4 6d  73 67 28 22 49 22 2b c3  | 1:m$=.msg("I"+.|
00000e20  28 31 30 30 2b 21 73 70  69 6e 6f 6e 25 29 2c 22  |(100+!spinon%),"|
00000e30  22 2c 22 22 29 0d 04 ec  05 cb 0d 04 f6 0c c9 20  |","").......... |
00000e40  4d 61 76 69 73 25 0d 05  00 0b c8 8e 20 69 25 20  |Mavis%...... i% |
00000e50  ca 0d 05 0a 32 c9 20 33  2c 34 2c 36 2c 37 2c 38  |....2. 3,4,6,7,8|
00000e60  2c 39 2c 31 30 2c 31 33  2c 31 38 2c 31 39 2c 32  |,9,10,13,18,19,2|
00000e70  31 2c 32 32 2c 32 34 2c  32 35 2c 32 36 2c 32 37  |1,22,24,25,26,27|
00000e80  2c 32 39 0d 05 14 1b 6d  24 3d a4 6d 73 67 28 22  |,29....m$=.msg("|
00000e90  46 46 22 2b c3 69 25 2c  22 22 2c 22 22 29 0d 05  |FF"+.i%,"","")..|
00000ea0  1e 19 7f 3a 6d 24 3d a4  6d 73 67 28 22 46 46 22  |...:m$=.msg("FF"|
00000eb0  2c 22 22 2c 22 22 29 0d  05 28 05 cb 0d 05 32 21  |,"","")..(....2!|
00000ec0  c9 20 46 6f 75 6e 64 25  3a 6d 24 3d a4 6d 73 67  |. Found%:m$=.msg|
00000ed0  28 22 46 46 57 22 2c 22  22 2c 22 22 29 0d 05 3c  |("FFW","","")..<|
00000ee0  3c c9 20 51 75 65 72 79  25 3a 6d 24 3d a4 6d 73  |<. Query%:m$=.ms|
00000ef0  67 28 22 51 57 22 2c 22  22 2c 22 22 29 2b 22 7c  |g("QW","","")+"||
00000f00  4d 22 2b a4 6d 73 67 28  22 51 57 22 2b c3 28 69  |M"+.msg("QW"+.(i|
00000f10  25 29 2c 22 22 2c 22 22  29 0d 05 46 05 7f 0d 05  |%),"","")..F....|
00000f20  50 0e c8 8e 20 77 6d 65  6e 25 20 ca 0d 05 5a 1c  |P... wmen% ...Z.|
00000f30  c9 20 31 3a 6d 24 3d a4  6d 73 67 28 22 73 70 6d  |. 1:m$=.msg("spm|
00000f40  22 2c 22 22 2c 22 22 29  0d 05 64 1d c9 20 33 3a  |","","")..d.. 3:|
00000f50  6d 24 3d a4 6d 73 67 28  22 74 6d 65 6e 22 2c 22  |m$=.msg("tmen","|
00000f60  22 2c 22 22 29 0d 05 6e  1c c9 20 30 2c 32 3a 6d  |","")..n.. 0,2:m|
00000f70  24 3d a4 6d 65 6e 68 65  6c 70 28 77 25 2c 69 25  |$=.menhelp(w%,i%|
00000f80  29 0d 05 78 1b c9 20 34  3a 6d 24 3d a4 66 6d 65  |)..x.. 4:m$=.fme|
00000f90  6e 68 65 6c 70 28 77 25  2c 69 25 29 0d 05 82 05  |nhelp(w%,i%)....|
00000fa0  cb 0d 05 8c 05 cb 0d 05  96 52 6d 24 2b 3d bd 28  |.........Rm$+=.(|
00000fb0  30 29 3a 62 6c 25 21 30  3d 32 35 36 3a 62 6c 25  |0):bl%!0=256:bl%|
00000fc0  21 31 32 3d 62 6c 25 21  38 3a 62 6c 25 21 31 36  |!12=bl%!8:bl%!16|
00000fd0  3d 26 35 30 33 3a 24 28  62 6c 25 2b 32 30 29 3d  |=&503:$(bl%+20)=|
00000fe0  6d 24 3a c8 99 26 34 30  30 45 37 2c 31 37 2c 62  |m$:..&400E7,17,b|
00000ff0  6c 25 2c 62 6c 25 21 34  0d 05 a0 05 e1 0d 05 aa  |l%,bl%!4........|
00001000  14 dd a4 6d 65 6e 68 65  6c 70 28 77 25 2c 69 25  |...menhelp(w%,i%|
00001010  29 0d 05 b4 08 ea 20 6d  24 0d 05 be 1b c8 99 26  |)..... m$......&|
00001020  34 30 30 46 34 2c 31 2c  4d 65 6e 75 73 25 2c 77  |400F4,1,Menus%,w|
00001030  25 2c 69 25 0d 05 c8 10  c8 8e 20 21 4d 65 6e 75  |%,i%...... !Menu|
00001040  73 25 20 ca 0d 05 d2 2c  c9 30 3a 6d 24 3d a4 6d  |s% ....,.0:m$=.m|
00001050  73 67 28 22 4d 4d 22 2b  c3 28 21 4d 65 6e 75 73  |sg("MM"+.(!Menus|
00001060  25 29 2b c3 77 6d 65 6e  25 2c 22 22 2c 22 22 29  |%)+.wmen%,"","")|
00001070  0d 05 dc 10 c9 20 2d 31  2c 31 2c 34 2c 35 2c 37  |..... -1,1,4,5,7|
00001080  0d 05 e6 20 6d 24 3d a4  6d 73 67 28 22 4d 4d 22  |... m$=.msg("MM"|
00001090  2b c3 21 4d 65 6e 75 73  25 2c 22 22 2c 22 22 29  |+.!Menus%,"","")|
000010a0  0d 05 f0 07 c9 20 36 0d  05 fa 11 c8 8e 20 4d 65  |..... 6...... Me|
000010b0  6e 75 73 25 21 34 20 ca  0d 05 fb 2a c9 20 2d 31  |nus%!4 ....*. -1|
000010c0  2c 30 2c 31 3a 6d 24 3d  a4 6d 73 67 28 22 4b 4d  |,0,1:m$=.msg("KM|
000010d0  22 2b c3 4d 65 6e 75 73  25 21 34 2c 22 22 2c 22  |"+.Menus%!4,"","|
000010e0  22 29 0d 05 fc 35 7f 3a  6d 24 3d a4 6d 73 67 28  |")...5.:m$=.msg(|
000010f0  22 4b 4d 78 22 2c 24 28  28 6d 6f 64 6d 65 6d 25  |"KMx",$((modmem%|
00001100  2b 34 30 29 2b 28 32 34  2a 4d 65 6e 75 73 25 21  |+40)+(24*Menus%!|
00001110  34 29 29 2c 22 22 29 0d  05 fd 05 cb 0d 06 04 07  |4)),"").........|
00001120  c9 20 32 0d 06 0e 11 c8  8e 20 4d 65 6e 75 73 25  |. 2...... Menus%|
00001130  21 34 20 ca 0d 06 18 1d  c9 20 2d 31 3a 6d 24 3d  |!4 ...... -1:m$=|
00001140  a4 6d 73 67 28 22 4d 4d  32 22 2c 22 22 2c 22 22  |.msg("MM2","",""|
00001150  29 0d 06 22 0f c9 20 30  2c 31 2c 32 2c 33 2c 34  |)..".. 0,1,2,3,4|
00001160  0d 06 2c 25 6d 24 3d a4  63 6f 6e 6d 65 6e 68 65  |..,%m$=.conmenhe|
00001170  6c 70 28 4d 65 6e 75 73  25 21 34 2c 4d 65 6e 75  |lp(Menus%!4,Menu|
00001180  73 25 21 38 29 0d 06 36  05 cb 0d 06 40 07 c9 20  |s%!8)..6....@.. |
00001190  33 0d 06 4a 11 c8 8e 20  4d 65 6e 75 73 25 21 34  |3..J... Menus%!4|
000011a0  20 ca 0d 06 54 1d c9 20  2d 31 3a 6d 24 3d a4 6d  | ...T.. -1:m$=.m|
000011b0  73 67 28 22 4d 4d 33 22  2c 22 22 2c 22 22 29 0d  |sg("MM3","","").|
000011c0  06 5e 2d c9 20 72 61 6d  64 69 73 63 25 3a 6d 24  |.^-. ramdisc%:m$|
000011d0  3d a4 6d 73 67 28 22 4d  4d 33 31 22 2c 22 52 41  |=.msg("MM31","RA|
000011e0  4d 20 44 69 73 63 2e 22  2c 22 22 29 0d 06 68 2f  |M Disc.","")..h/|
000011f0  c9 20 6d 65 6d 66 73 25  3a 6d 24 3d a4 6d 73 67  |. memfs%:m$=.msg|
00001200  28 22 4d 4d 33 31 22 2c  22 4d 65 6d 70 68 69 73  |("MM31","Memphis|
00001210  20 44 69 73 63 2e 22 2c  22 22 29 0d 06 72 05 7f  | Disc.","")..r..|
00001220  0d 06 7c 11 c8 8e 20 4d  65 6e 75 73 25 21 38 20  |..|... Menus%!8 |
00001230  ca 0d 06 86 35 c9 20 2d  31 3a 6d 24 3d a4 6d 73  |....5. -1:m$=.ms|
00001240  67 28 22 4d 4d 33 31 22  2c a4 6d 73 67 28 22 4d  |g("MM31",.msg("M|
00001250  4d 33 32 22 2c c3 4d 65  6e 75 73 25 21 34 2c 22  |M32",.Menus%!4,"|
00001260  22 29 2c 22 22 29 0d 06  90 24 7f 3a 6d 24 3d a4  |"),"")...$.:m$=.|
00001270  6d 73 67 28 22 4d 4d 33  33 22 2c c3 28 4d 65 6e  |msg("MM33",.(Men|
00001280  75 73 25 21 34 29 2c 22  22 29 0d 06 9a 05 cb 0d  |us%!4),"")......|
00001290  06 a4 05 cb 0d 06 ae 05  cb 0d 06 b8 07 3d 6d 24  |.............=m$|
000012a0  0d 06 c2 1d dd a4 63 6f  6e 6d 65 6e 68 65 6c 70  |......conmenhelp|
000012b0  28 73 75 62 31 25 2c 73  75 62 32 25 29 0d 06 cc  |(sub1%,sub2%)...|
000012c0  08 ea 20 6d 24 0d 06 d6  24 6d 24 3d a4 6d 73 67  |.. m$...$m$=.msg|
000012d0  28 22 4d 4d 32 31 22 2c  6d 65 6e 24 28 37 2b 73  |("MM21",men$(7+s|
000012e0  75 62 31 25 29 2c 22 22  29 0d 06 e0 0e c8 8e 20  |ub1%),"")...... |
000012f0  73 75 62 32 25 20 ca 0d  06 ea 0a c9 20 2d 31 2c  |sub2% ...... -1,|
00001300  30 0d 06 f4 36 6d 24 2b  3d a4 6d 73 67 28 22 4d  |0...6m$+=.msg("M|
00001310  4d 32 32 22 2c 62 69 6e  24 2c 22 22 29 2b a4 6d  |M22",bin$,"")+.m|
00001320  73 67 28 22 4d 4d 32 32  22 2b c3 73 75 62 32 25  |sg("MM22"+.sub2%|
00001330  2c 22 22 2c 22 22 29 0d  06 fe 05 7f 0d 07 08 25  |,"","")........%|
00001340  6d 24 2b 3d a4 6d 73 67  28 22 4d 4d 32 33 22 2c  |m$+=.msg("MM23",|
00001350  a4 77 68 69 63 68 28 73  75 62 32 25 29 2c 22 22  |.which(sub2%),""|
00001360  29 0d 07 12 05 cb 0d 07  1c 07 3d 6d 24 0d 07 26  |).........=m$..&|
00001370  15 dd a4 66 6d 65 6e 68  65 6c 70 28 77 25 2c 69  |...fmenhelp(w%,i|
00001380  25 29 0d 07 30 1b c8 99  26 34 30 30 46 34 2c 31  |%)..0...&400F4,1|
00001390  2c 4d 65 6e 75 73 25 2c  77 25 2c 69 25 0d 07 3a  |,Menus%,w%,i%..:|
000013a0  1e 3d a4 6d 73 67 28 22  46 4d 22 2b c3 21 4d 65  |.=.msg("FM"+.!Me|
000013b0  6e 75 73 25 2c 22 22 2c  22 22 29 0d 07 44 0d dd  |nus%,"","")..D..|
000013c0  f2 65 73 73 28 70 24 29  0d 07 4e 07 ea 20 85 0d  |.ess(p$)..N.. ..|
000013d0  07 58 1d ee 20 85 20 ea  20 f2 6c 61 6d 61 74 69  |.X.. . . .lamati|
000013e0  6f 6e 28 f6 24 2c 30 2c  30 29 3a e1 0d 07 62 51  |on(.$,0,0):...bQ|
000013f0  e7 20 a4 6f 62 6a 74 79  70 65 28 70 24 29 3e 31  |. .objtype(p$)>1|
00001400  20 8c 20 ff 28 22 46 69  6c 65 72 5f 4f 70 65 6e  | . .("Filer_Open|
00001410  44 69 72 20 22 2b 70 24  29 20 8b 20 f2 6c 61 6d  |Dir "+p$) . .lam|
00001420  61 74 69 6f 6e 28 a4 6d  73 67 28 22 6e 64 69 72  |ation(.msg("ndir|
00001430  22 2c 22 22 2c 22 22 29  2c 30 2c 30 29 0d 07 6c  |","",""),0,0)..l|
00001440  05 e1 0d 07 76 27 dd f2  74 68 69 6e 6b 28 74 68  |....v'..think(th|
00001450  6f 75 67 68 74 25 2c 74  79 70 65 25 2c 66 75 6c  |ought%,type%,ful|
00001460  6c 24 2c 6e 61 6d 65 24  29 0d 07 80 11 c8 8e 20  |l$,name$)...... |
00001470  74 68 6f 75 67 68 74 25  20 ca 0d 07 8a 07 c9 20  |thought% ...... |
00001480  30 0d 07 94 38 e7 20 74  79 70 65 25 3d 26 44 44  |0...8. type%=&DD|
00001490  43 20 80 20 75 73 65 61  72 63 66 73 25 3d 31 20  |C . usearcfs%=1 |
000014a0  f2 6f 70 65 6e 61 72 63  68 69 76 65 28 66 75 6c  |.openarchive(ful|
000014b0  6c 24 2c 6e 61 6d 65 24  29 0d 07 9e 07 c9 20 31  |l$,name$)..... 1|
000014c0  0d 07 a8 46 e7 20 74 79  70 65 25 3c 3e 26 46 43  |...F. type%<>&FC|
000014d0  41 20 8c 20 ff 28 22 41  63 63 65 73 73 20 22 2b  |A . .("Access "+|
000014e0  66 75 6c 6c 24 2b 22 20  52 57 22 29 3a c8 99 26  |full$+" RW"):..&|
000014f0  34 30 30 44 45 2c 22 2a  53 71 75 61 73 68 20 22  |400DE,"*Squash "|
00001500  2b 66 75 6c 6c 24 0d 07  b2 05 cb 0d 07 bc 05 e1  |+full$..........|
00001510  0d 07 c6 15 dd f2 67 65  74 66 69 6c 65 73 28 74  |......getfiles(t|
00001520  65 6d 70 24 29 0d 07 d0  4e ea 20 6f 74 6f 74 25  |emp$)...N. otot%|
00001530  2c 67 25 2c 6e 6f 25 2c  6e 25 2c 63 6f 75 6e 74  |,g%,no%,n%,count|
00001540  25 2c 61 64 64 72 25 2c  70 6f 73 25 2c 6c 69 6e  |%,addr%,pos%,lin|
00001550  65 24 2c 6d 69 64 25 2c  62 72 65 61 6b 25 2c 62  |e$,mid%,break%,b|
00001560  75 6d 25 2c 73 69 7a 65  25 2c 70 62 64 25 2c 73  |um%,size%,pbd%,s|
00001570  66 67 25 0d 07 da 0e 6f  74 6f 74 25 3d 74 6f 74  |fg%....otot%=tot|
00001580  25 0d 07 e4 0d e7 20 66  69 6c 65 25 20 8c 0d 07  |%..... file% ...|
00001590  ee 0a 6d 69 64 25 3d 31  0d 07 f8 05 f5 0d 08 02  |..mid%=1........|
000015a0  13 70 6f 73 25 3d 30 3a  62 72 65 61 6b 25 3d a3  |.pos%=0:break%=.|
000015b0  0d 08 0c 05 f5 0d 08 16  23 70 6f 73 25 2b 3d 31  |........#pos%+=1|
000015c0  3a 6c 69 6e 65 24 3d c1  74 65 6d 70 24 2c 6d 69  |:line$=.temp$,mi|
000015d0  64 25 2c 70 6f 73 25 29  0d 08 20 38 e7 20 28 c2  |d%,pos%).. 8. (.|
000015e0  6c 69 6e 65 24 2c 31 29  3d 22 2e 22 20 80 20 a9  |line$,1)="." . .|
000015f0  6c 69 6e 65 24 3e 28 65  6e 74 72 79 77 69 64 74  |line$>(entrywidt|
00001600  68 25 2d 31 33 29 29 20  62 72 65 61 6b 25 3d b9  |h%-13)) break%=.|
00001610  0d 08 2a 26 62 75 6d 25  3d a9 28 c2 74 65 6d 70  |..*&bum%=.(.temp|
00001620  24 2c a9 74 65 6d 70 24  2d 6d 69 64 25 2d 70 6f  |$,.temp$-mid%-po|
00001630  73 25 29 29 2b 33 0d 08  34 2d e7 20 28 28 a9 6c  |s%))+3..4-. ((.l|
00001640  69 6e 65 24 29 2b 62 75  6d 25 29 3c 3d 65 6e 74  |ine$)+bum%)<=ent|
00001650  72 79 77 69 64 74 68 25  2d 32 20 62 72 65 61 6b  |rywidth%-2 break|
00001660  25 3d a3 0d 08 3e 1f e7  20 6d 69 64 25 2b 70 6f  |%=...>.. mid%+po|
00001670  73 25 3e a9 74 65 6d 70  24 20 62 72 65 61 6b 25  |s%>.temp$ break%|
00001680  3d b9 0d 08 48 0c fd 20  62 72 65 61 6b 25 0d 08  |=...H.. break%..|
00001690  52 4c 24 28 74 65 78 74  25 2b 6c 69 73 74 25 29  |RL$(text%+list%)|
000016a0  3d 22 5b 22 2b 6c 69 6e  65 24 2b 22 5d 22 2b bd  |="["+line$+"]"+.|
000016b0  31 33 3a 66 6f 75 6e 64  25 2b 3d 31 3a 6c 69 73  |13:found%+=1:lis|
000016c0  74 25 2b 3d 65 6e 74 72  79 77 69 64 74 68 25 3a  |t%+=entrywidth%:|
000016d0  6d 69 64 25 2b 3d 70 6f  73 25 0d 08 5c 12 fd 20  |mid%+=pos%..\.. |
000016e0  6d 69 64 25 3e 3d a9 74  65 6d 70 24 0d 08 66 05  |mid%>=.temp$..f.|
000016f0  cd 0d 08 70 11 e3 20 67  25 3d 31 20 b8 20 77 6f  |...p.. g%=1 . wo|
00001700  74 25 0d 08 7a 19 63 6f  75 6e 74 25 3d 30 3a 61  |t%..z.count%=0:a|
00001710  64 64 72 25 3d 73 63 72  61 70 25 0d 08 84 34 c8  |ddr%=scrap%...4.|
00001720  99 26 43 2c 31 30 2c 74  65 6d 70 24 2c 73 63 72  |.&C,10,temp$,scr|
00001730  61 70 25 2c 37 37 2c 30  2c 33 30 30 30 2c 77 6f  |ap%,77,0,3000,wo|
00001740  74 24 28 67 25 29 20 b8  20 2c 2c 2c 6e 6f 25 0d  |t$(g%) . ,,,no%.|
00001750  08 8e 0d e7 20 6e 6f 25  3e 30 20 8c 0d 08 98 05  |.... no%>0 .....|
00001760  f5 0d 08 a2 26 66 69 6c  65 74 79 70 65 25 3d 28  |....&filetype%=(|
00001770  28 28 61 64 64 72 25 21  30 29 3e 3e 3e 38 29 20  |((addr%!0)>>>8) |
00001780  80 20 26 46 46 46 29 0d  08 ac 2d 73 69 7a 65 25  |. &FFF)...-size%|
00001790  3d 61 64 64 72 25 21 38  3a 6f 62 6a 74 79 70 65  |=addr%!8:objtype|
000017a0  25 3d 61 64 64 72 25 21  31 36 3a 61 64 64 72 25  |%=addr%!16:addr%|
000017b0  2b 3d 32 30 0d 08 b6 48  6f 75 74 70 75 74 24 3d  |+=20...Houtput$=|
000017c0  a4 62 75 6d 28 61 64 64  72 25 29 3a 6e 25 3d b9  |.bum(addr%):n%=.|
000017d0  3a e7 20 63 61 73 65 73  65 6e 73 25 20 6e 25 3d  |:. casesens% n%=|
000017e0  a4 67 6f 72 62 6c 69 6d  65 79 28 6f 75 74 70 75  |.gorblimey(outpu|
000017f0  74 24 2c 77 6f 74 24 28  67 25 29 29 0d 08 c0 30  |t$,wot$(g%))...0|
00001800  e7 20 73 74 79 70 65 3e  30 20 80 20 6e 25 20 6e  |. stype>0 . n% n|
00001810  25 3d a4 6c 75 76 61 64  75 63 6b 28 73 74 79 70  |%=.luvaduck(styp|
00001820  65 2c 66 69 6c 65 74 79  70 65 25 29 0d 08 ca 57  |e,filetype%)...W|
00001830  e7 20 6e 25 20 c8 99 22  58 4f 53 5f 45 76 61 6c  |. n% .."XOS_Eval|
00001840  75 61 74 65 45 78 70 72  65 73 73 69 6f 6e 22 2c  |uateExpression",|
00001850  28 c3 73 69 7a 65 25 29  2b 63 6f 6d 70 61 72 69  |(.size%)+compari|
00001860  6e 67 24 2c 62 6c 33 25  2c 32 35 36 20 b8 20 2c  |ng$,bl3%,256 . ,|
00001870  70 62 64 25 2c 73 66 67  25 20 8b 20 70 62 64 25  |pbd%,sfg% . pbd%|
00001880  3d 2d 31 0d 08 d4 0e e7  20 70 62 64 25 3d 30 20  |=-1..... pbd%=0 |
00001890  8c 0d 08 de 19 e7 20 73  66 67 25 3d 2d 31 20 6e  |...... sfg%=-1 n|
000018a0  25 3d b9 20 8b 20 6e 25  3d a3 0d 08 e8 05 cc 0d  |%=. . n%=.......|
000018b0  08 f2 08 6e 25 3d a3 0d  08 fc 05 cd 0d 09 06 0a  |...n%=..........|
000018c0  e7 20 6e 25 20 8c 0d 09  10 1f e7 20 66 69 6c 65  |. n% ...... file|
000018d0  25 20 62 75 6d 25 3d 32  20 8b 62 75 6d 25 3d 66  |% bum%=2 .bum%=f|
000018e0  66 61 63 74 25 0d 09 1a  0d c8 8e 20 62 75 6d 25  |fact%...... bum%|
000018f0  20 ca 0d 09 24 07 c9 20  31 0d 09 2e 37 ff 28 22  | ...$.. 1...7.("|
00001900  46 69 6c 65 72 5f 4f 70  65 6e 44 69 72 20 22 2b  |Filer_OpenDir "+|
00001910  74 65 6d 70 24 29 3a 74  6f 74 25 2b 3d 31 3a 74  |temp$):tot%+=1:t|
00001920  6f 74 61 6c 73 69 7a 65  25 2b 3d 73 69 7a 65 25  |otalsize%+=size%|
00001930  0d 09 38 07 c9 20 32 0d  09 42 3e 24 28 74 65 78  |..8.. 2..B>$(tex|
00001940  74 25 2b 6c 69 73 74 25  29 3d a4 74 65 78 74 28  |t%+list%)=.text(|
00001950  6f 75 74 70 75 74 24 2c  66 69 6c 65 74 79 70 65  |output$,filetype|
00001960  25 2c 6f 62 6a 74 79 70  65 25 2c 73 69 7a 65 25  |%,objtype%,size%|
00001970  29 2b bd 31 33 0d 09 4c  3a 66 6f 75 6e 64 25 2b  |)+.13..L:found%+|
00001980  3d 31 3a 6c 69 73 74 25  2b 3d 65 6e 74 72 79 77  |=1:list%+=entryw|
00001990  69 64 74 68 25 3a 74 6f  74 25 2b 3d 31 3a 74 6f  |idth%:tot%+=1:to|
000019a0  74 61 6c 73 69 7a 65 25  2b 3d 73 69 7a 65 25 0d  |talsize%+=size%.|
000019b0  09 56 07 c9 20 33 0d 09  60 12 e7 20 6f 62 6a 74  |.V.. 3..`.. objt|
000019c0  79 70 65 25 3d 31 20 8c  0d 09 6a 1d 74 6f 74 25  |ype%=1 ...j.tot%|
000019d0  2b 3d 31 3a 74 6f 74 61  6c 73 69 7a 65 25 2b 3d  |+=1:totalsize%+=|
000019e0  73 69 7a 65 25 0d 09 74  58 ff 28 22 43 6f 70 79  |size%..tX.("Copy|
000019f0  20 22 2b 74 65 6d 70 24  2b 22 2e 22 2b 6f 75 74  | "+temp$+"."+out|
00001a00  70 75 74 24 2b 22 20 22  2b 62 69 6e 24 2b 22 2e  |put$+" "+bin$+".|
00001a10  22 2b 74 6f 64 61 79 24  2b 22 2e 22 2b 6f 75 74  |"+today$+"."+out|
00001a20  70 75 74 24 2b 22 20 41  7e 43 44 46 7e 4c 7e 4e  |put$+" A~CDF~L~N|
00001a30  7e 50 7e 51 7e 52 53 7e  54 7e 56 22 29 0d 09 7e  |~P~Q~RS~T~V")..~|
00001a40  05 cd 0d 09 88 05 cb 0d  09 92 05 cd 0d 09 9c 0d  |................|
00001a50  63 6f 75 6e 74 25 2b 3d  31 0d 09 a6 1f c8 95 20  |count%+=1...... |
00001a60  28 61 64 64 72 25 20 83  20 34 29 3e 30 3a 61 64  |(addr% . 4)>0:ad|
00001a70  64 72 25 2b 3d 31 3a ce  0d 09 b0 1d fd 20 63 6f  |dr%+=1:...... co|
00001a80  75 6e 74 25 3d 6e 6f 25  20 84 20 66 6f 75 6e 64  |unt%=no% . found|
00001a90  25 3e 32 32 30 0d 09 ba  27 e7 20 66 6f 75 6e 64  |%>220...'. found|
00001aa0  25 3e 32 32 30 20 77 69  70 25 3d 30 3a 74 6f 6f  |%>220 wip%=0:too|
00001ab0  6d 61 6e 79 66 69 6c 65  73 25 3d b9 0d 09 c4 05  |manyfiles%=.....|
00001ac0  cd 0d 09 ce 05 ed 0d 09  d8 1a e7 20 6f 74 6f 74  |........... otot|
00001ad0  25 3d 74 6f 74 25 20 80  20 66 69 6c 65 25 20 8c  |%=tot% . file% .|
00001ae0  0d 09 e2 29 c8 95 20 c0  24 28 74 65 78 74 25 2b  |...).. .$(text%+|
00001af0  6c 69 73 74 25 2d 65 6e  74 72 79 77 69 64 74 68  |list%-entrywidth|
00001b00  25 29 2c 31 29 3d 22 5b  22 0d 09 ec 20 66 6f 75  |%),1)="["... fou|
00001b10  6e 64 25 2d 3d 31 3a 6c  69 73 74 25 2d 3d 65 6e  |nd%-=1:list%-=en|
00001b20  74 72 79 77 69 64 74 68  25 0d 09 f6 05 ce 0d 0a  |trywidth%.......|
00001b30  00 05 cd 0d 0a 0a 05 e1  0d 0a 14 11 dd f2 6c 64  |..............ld|
00001b40  6f 76 65 72 6c 61 79 3a  e1 0d ff                 |overlay:...|
00001b4b