?� Black Hole II Version 1.15 - This code has been CRUNCHed.
K� Ftp$(20),Svpth$(20),msg$(77),rootdir$(77),wipe$(77),wot$(10),men$(23)
@� bl% 2040,day(11),overlay$(3),Menus% 564,code% 460,var% 160
(O� ibs 12,ibt 12,sps% 12,spt% 12,ct 12,v 12,discname% 14,ffs% 12,fft% 2,cs 4
2UIndText%=�dim2(3240):string%=�dim2(1100):binmenu%=�dim2(1000):modmem%=�dim2(1000)
<Woverlay$()="<BlackHole$Dir>.Setup","<BlackHole$Dir>.Overlay","<BlackHole$Dir>.Init"
Fȣ overlay$()
P��initwimp:�todaysdate:�bicycle_repair_man:�assemble1:�ldopts:�watneys_red_barrel:�doradios:�penguin:�assemble:� !clock% !clock%=�:�clock
Z3�doobery:� autowipe% � � badbin% �parrot(0,0,0)
d:�ldoverlay:ș&42 � !time%:!time%+=!bye%:�scrnxy:bib%=0
n"� � �error:� !exit%=� �nudge:�
x�
�+ș&400E1,pollmask%,bl%,!time% � reason%
�Ȏ reason% �
�� 0
�F� resizeneeded% �resizeconfig1:resizeneeded%=�:pollmask%=�pollmask
�� query%=0 �
�� wip%>0 �fred(zappa%)
�$� (crnt%>0 � � wiping%) �doawipe
��
�!bl%=Query%:ș&400E0,,bl%
�3ȗ ȓ bl%!4,bl%!8,bl%!12-bl%!4-4,bl%!16-bl%!8-4
��
�� ptrcheck
�� 1:�redraw

� 2


Ȏ � �

� !bl%=Config%:�openconfig1

"� !bl%=Pane%:�resizeconfig

,:ș&400C5,,bl%

6�

@� 3

Jș&400C6,,bl%

T� bl%!0=Found% �

^%� tdim% ș&2001E,7,,text%:tdim%=�

h�

r0� 6:�button(bl%!0,bl%!4,bl%!8,bl%!12,bl%!16)

|� 8:�key(!bl%,bl%!4,bl%!24)

�� 9

�Ȏ wmen% �

�&� 0:�DecodeMenu(bl%!0,bl%!4,bl%!8)

�� 1:�spmenu(bl%!0)

�� 2:�clmenu(bl%!0)

�� 3:�tmenu(bl%!0)

�� 4:�blunderbuss(bl%!0)

��

�"� 17,18:�message(bl%!4,bl%!16)

��

�� !timeforbed%

�
�nudge

��
ݤdim(size%)
� block%,flags%
)ș&2001E,6,,,size% � ,,block% ;flags%
&@� (flags% � 1)=1 �lamation(�msg("norma","",""),0,0):block%=0
0=block%
:��error
D
� answer%
N
!bl%=�
X"$(bl%+4)=�msg("E1",�$,�(�))+�0
b*ș&400DF,bl%,3,"Black Hole" � ,answer%
l4� answer%=2 �!exit%=�:pollmask%=&1830 ��ibar("")
v�
�$��button(x%,y%,but%,hand%,icon%)
�
Ȏ but% �
�� 2
�Ȏ hand% �
�� -2
�� icon%=hole% �mkmen(x%,y%)
�#� icon%=clicon% �mkclmen(x%,y%)
�7� Pane%:� icon%=18 �clicked(x%,y%,but%,hand%,icon%)
�?� Auto%:� icon%=11 �typemenu(x%,y%):ș&400D2,Auto%,1,,,-1,0
�7� Mavis%:� icon%=8 �clicked(x%,y%,but%,hand%,icon%)
�!� Found%:�smoketoomuch(x%,y%)
��
�*� 1,4:�clicked(x%,y%,but%,hand%,icon%)
�
�
)��clicked(x%,y%,buttons%,hand%,icon%)
 � output$,x,y,b
*Ȏ hand% �
4� -2
>Ȏ icon% �
H� hole%
RȎ buttons% �
\� 4:�openbin
f"� 1:�openconfig:�resizeconfig1
p�
z�
�� Pane%
�Ȏ icon% �
�� 2:wipeopt%=wipeopt% � 2
�� 3:wipeopt%=wipeopt% � 1
�� 4:wipeopt%=wipeopt% � 4
�� 5:structure%=� structure%
�� 8:retain%=� retain%
�� 9:autowipe%=� autowipe%
�0� 15:!spinon%=� !spinon%:pollmask%=�pollmask
�� 18:�spritemenu(x%,y%)
�� 19:usefonts%=� usefonts%
�!� 21:!cltype%=�:� updateclock
�!� 22:!cltype%=�:� updateclock
� 23:�clock
� 27:sconf%=� sconf%
� 28:open%=� open%
$� 30:fchange%=� fchange%
.<� 31:clockfont%=� clockfont%:�clock:�clock:� updateclock
8"� 32:shutsquash%=� shutsquash%
9-� 33:�("Filer_OpenDir "+home$+".Sprites")
B�
L
� Config%
VȎ icon% �
`� 0:�savopt
j� 1
t�getbin(0):�ibar("")
~"� (� badbin%) � (buttons%=4) �
�E!bl%=Pane%:ș&400C6,,bl%:!bl%=Config%:ș&400C6,,bl%:configopen%=�
��
��
�=� Info%:� icon%=0 �("WimpTask Filer_Run "+home$+".!Help")
�� Auto%
�I� icon%=11 �typemenu(x%,y%):ș&400D2,Auto%,1,,,-1,0 ��respsave(icon%)
�� Mavis%
�Ȏ icon% �
�� 4
�9� $(�lust(Mavis%,4))="Abort" wip%=0:�finish ��find(4)
�� 7:casesens%=� casesens%
�2� 8:�typemenu(x%,y%):ș&400D2,Mavis%,13,,,-1,0
� 9:ffact%=1

� 10:ffact%=2
� 22:ffact%=3
� 24:usearcfs%=0
(� 25:usearcfs%=1
2� 26:usearcfs%=2
<� 27
Ffffast%=� fffast%
P� wip%>0 � fffast% �
ZL�ibar("Searching"):�ps(Mavis%,18,""):�ps(Mavis%,19,""):�ps(Mavis%,21,"")
d�
nU�ps(Mavis%,19,�(tot%)+" files found"):�ps(Mavis%,18,�(totalsize%)+" bytes total")
x�
��
�"� Query%:� icon%>0 �eed(icon%)
�� Found%:�fclicked(x%,y%)
��
��
�
��openbin
�� opening$
�� �
�1� � � �lamation("Internal Error : "+�$,0,0):�
��getbin(0):� badbin% �
�opening$=bin$
�:� �objtype(bin$+"."+today$)=2 opening$=bin$+"."+today$
�ș&400CF,,bl%
6�("Filer_OpenDir "+opening$+" "+�bl%!0+" "+�bl%!4)
�
*��DecodeMenu(item%,subitem%,subitem2%)
"Ȏ item% �
,� 7
6 � shutsquash% � usedtoday% �
@*shutsquash%=�:�squash(bin$+"."+today$)
J�:�fred(4):�wip%=0
T�
^�buggeroff
h� 6
rȎ subitem% �
|2� -1,0:�("Filer_OpenDir "+home$+".ModuleKill")
�-� 1:ș"XOS_ChangeDynamicArea",1,-16000000
�0:�modulekill($((modmem%+40)+(24*subitem%)))
��
�� 5:�openfilefind
�� 4:�open(Auto%)
�� 3
�Ȏ subitem% �
�5� memfs%:�lamation(�msg("ram","Memphis",""),-1,5)
�3� ramdisc%:�lamation(�msg("ram","RAM",""),-1,2)
�
�=� subitem%>-1 �lamation(�msg("disc",�(subitem%),""),-1,3)
�wipingdrive%=subitem%
��
� 2
Ȏ subitem% �
� 0
&Ȏ subitem2% �
0%� -1,0:�descon(bin$):usedtoday%=�
:Q:�descon(�which(subitem2%)):� �which(subitem2%)=bin$+"."+today$ usedtoday%=�
D�
N� 1
XȎ subitem2% �
b� -1,0:�countdir(bin$)
l":�countdir(�which(subitem2%))
v�
�� 2
�Ȏ subitem2% �
�� -1,0:�incon(bin$)
�:�incon(�which(subitem2%))
��
�� 3
�Ȏ subitem2% �
�� -1,0:�squash(bin$)
� :�squash(�which(subitem2%))
��
�� 4
�Ȏ subitem2% �
�%� -1,0:�parrot(1,200,scry%/2+200)

ș&400CF,,bl%
E�("Filer_OpenDir "+�which(subitem2%)+" "+�(bl%!0)+" "+�(scry%/2))
 �
*�
4"� 1:�openconfig:�resizeconfig1
>�
Hș &400CF,,bl%
R'� (bl%!8 � 1)=1 �mkmen(bl%!4,bl%!8)
\�
fݤwhich(item%)
p
� dir$
z$dir$=$((binmenu%+40)+(24*item%))
�=bin$+"."+dir$
���eed(ic%)
�Ȏ query% �
�-� 2:� ic%=1 �_Cardinal_Richelieu("RAM:$")
�A� 3:� ic%=1 �_Cardinal_Richelieu("adfs::"+�wipingdrive%+".$")
�� 4
�
� ic%=1 �
�� despath$=bin$ �
��_Cardinal_Richelieu(bin$)
��
��getleafname(despath$)
�($bl%=�leafname$,�leafname$-1)+�0+" "
�Edesconhandle%=�fileraction(2,%00100+(wipeopt% � 1),bin$,bl%,"",0)
	�
	�
	-� 5:� ic%=1 �_Cardinal_Richelieu("Mem:$")
	$� 6
	.
� ic%=2 �
	8:�ibar(""):!bye%=11:pollmask%=�pollmask:zappa%=0:wip%=0
	BO�changemavis("GO","Previous Search:"):�ps(Mavis%,19,�(tot%)+" files found")
	L?�ps(Mavis%,18,�(totalsize%)+" bytes total"):�gmavis(0,grey)
	V�
	`� 8:� ic%=1 �binconv
	j4� 9:� ic%=1 �startwipe(Ilchester$):undertaker%=�
	tF� 10:� ic%=1 �("Wipe "+Ilchester$+" ~CFR~V"):undertaker%=�:�burial
	~�
	��tf
	��
	� ��_Cardinal_Richelieu(path$)
	�� n%,addr%
	�mem%=�dim(3000):� mem%=0 �
	�� �
	�!� � � �tf:�lamation(�$,0,1):�
	�)ș&C,9,path$,mem%,77,0,3000,0 � ,,,n%
	�� n%>0 �
	�,ș&600DE,"*Filer_Action" � desconhandle%
	� ș&60F80,desconhandle%,path$
	�addr%=mem%
�l%=1 � n%

&ș&60F81,desconhandle%,�bum(addr%)
�
2ș&60F82,desconhandle%,2,%00100+(wipeopt% � 1)
(�
2�
<��tf
FO�close(Query%):query%=0:ȗ ȓ 0,0,scrx%,scry%:�ibar(""):pollmask%=�pollmask
P�
Z ��message(taskhand%,thingy%)
d� hand%,icon%
nȎ thingy% �
x� 0:�buggeroff
�� 1
�ș&400CF,,bl2%+28
�hand%=bl2%!40:icon%=bl2%!44
�8� hand%=-2 � icon%=hole% saving%=�:�savefile(bl%!40)
�� 3:�dragged
�� 8
� � shutsquash% � usedtoday% �
�*shutsquash%=�:�squash(bin$+"."+today$)
��:�fred(4):�wip%=0
�.bl%!12=bl%!8:ș"Wimp_SendMessage",19,bl%,0
�"ș"Wimp_GetCaretPosition",,bl%
�4bl%!24=&1FC:ș"Wimp_SendMessage",8,bl%,taskhand%
��buggeroff
�
*� 10:hand%=bl%!20:�#hand%,"Run "+home$
&� &502:�replytohelp(bl%!32,bl%!36)
"� &400C1
,� �<>mode% �
6�resizefonts:�clock:�clock
@+� updateclock:� fchange% �changesprites
J=mode%=�:� configopen% resizeneeded%=�:pollmask%=�pollmask
T�
^!� &400C3:�taskquitting(bl%!4)
h�
r�
|
��dragged
� � tt%,hand%,icon%,counter,x$
�� saving% �
�#saving%=�:bl%!16=4:bl%!12=bl%!8
�ș&400E7,18,bl%,bl%!4
��
�ș&400CF,,bl2%+28
�6hand%=bl2%!40:icon%=bl2%!44:pat$="":counter=bl%+44
�ȕ ?counter
�pat$+=�?counter:counter+=1
��
�#type%=�objtype(pat$):tt%=bl%!40
�Ȏ hand% �
�'� -2:� icon%=hole% �startwipe(pat$)
� Auto%
^� type%=2 � type%=3 Svpth$(currpath%)=pat$:�ps(Auto%,5,pat$) �Ftp$(currpath%)=�~tt%:�edure
� Pane%,Config%
&?� type%=2 � type%=3 �ps(Pane%,11,pat$):�getbin(0):�ibar("")
0� Mavis%
:� type%=2 � type%=3 �
Dx$=$(�lust(Mavis%,3))
N
� �x$>0 �
X(� �x$,1)<>"\" x$+="\"+pat$ �x$+=pat$
b�
lx$=pat$
v�
��ps(Mavis%,3,x$)
��
��ps(Mavis%,13,�~tt%)
�$ffs%="sfile_"+�~tt%+�0
��selic(Mavis%,fficon%,0,0)
��
��
��
��
���taskquitting(hand%)
�� ptr%,app$
�Ȏ hand% �
�� delhandle%

� getem% �

�urement

�

 wiping%=�:crnt%=0

*-� (structure% � rootdir%>0) �putstructure

4� undertaker% �burial

>�

H/pollmask%=�pollmask:delhandle%=-1:�ibar("")

R� wipehandle%

\wipehandle%=-1

f+� structure% � rootdir%>0 �putstructure

p)pollmask%=�pollmask:wiping%=�:crnt%=0

z� undertaker% �burial

�� desconhandle%

�� $discname%<>"" �

� �("Dismount "+�wipingdrive%)

�/�("NameDisc "+�wipingdrive%+" "+$discname%)

��("Mount "+�wipingdrive%)

�-�("Filer_OpenDir adfs::"+$discname%+".$")

��

�Cdesconhandle%=-1:�ibar(""):pollmask%=�pollmask:ș&2001E,7,,mem%

��

��

�
��urement

�� n%

�*ș&600DE,"*Filer_Action" � wipehandle%
!ș&60F80,wipehandle%,wipedir$
� n%=1 � crnt%
�getleafname(wipe$(n%))
$&leafname$=�leafname$,�leafname$-1)
."ș&60F81,wipehandle%,leafname$
8�
B#ș&60F82,wipehandle%,2,wipeopt%
Lgetem%=�
V�
`��lamation(text$,Cancel,a%)
j� title$
t!query%=a%:pollmask%=�pollmask
~� Cancel �
�J�selic(Query%,3,off,off):�selic(Query%,1,0,off):�selic(Query%,2,0,off)
�title$=�msg("qu","","")
��
�L�selic(Query%,3,0,off):�selic(Query%,1,off,off):�selic(Query%,2,off,off)
�title$=�msg("ms","","")
��
��ps(Query%,0,text$):�scrnxy
�1!bl4%=Query%:ș&400CC,,bl4%:$(bl4%!76)=title$
�+bl4%!4=(scrx%-768)/2:bl4%!12=bl4%!4+768
�+bl4%!8=(scry%-448)/2:bl4%!16=bl4%!8+444
�bl4%!28=-1:ș&400C5,,bl4%
��
��key(win%,ic%,key%)

� f$
� key%<>13 ș&400DC,key%:�

Ȏ win% �
(� Auto%
2Ȏ ic% �
<� 1
FRf$=$(�lust(Auto%,1)):Ftp$(currpath%)=�ftype(f$):�edure:ș&400D2,Auto%,5,,,-1,0
P� 5
Z?Svpth$(currpath%)=$(�lust(Auto%,5)):ș&400D2,Auto%,1,,,-1,0
d�
n� Pane%
xȎ ic% �
�� 11,12,35
�ș&400D2,-1,-1,,,-1,0
�R�selic(Config%,1,high,high):�clicked(0,0,4,Config%,1):�selic(Config%,1,0,high)
�:ș&400DC,13
��
�� Mavis%
�Ȏ ic% �
�� 3,6,13,29
��selic(Mavis%,4,high,high)
�9� $(�lust(Mavis%,4))="Abort" wip%=0:�finish ��find(4)
��selic(Mavis%,4,0,high)
�:ș&400DC,13
��
�
�
9��open(bl%!0):ș&400CC,,bl%:bl%!28=-1:ș&400C5,,bl%:�
"$��close(bl3%!0):ș&400C6,,bl3%:�
,��buildmenus
6"� ra%,rb%,m%,rd%,l%,d%,Drives%
@,ramdisc%=-2:memfs%=-2:rd%=0:menmask%=�mf
J�M%=modmem%:�Startamenu(men$(23)):�mad("Open Dir",0):�mad("Minimize",0):m%=�dirmenu(home$+".ModuleKill",2):� � m% �squidge(1,&80,-1)
TEM%=Menus%:�Startamenu("Black Hole"):� l%=0 � 5:�mad(men$(l%),0):�
^&�mad(men$(23),0):�mad(men$(6),&80)
h��squidge(0,2,Info%):�squidge(1,0,-1):�squidge(2,0,Menus%+224):�squidge(3,0,Menus%+388):�squidge(4,0,-1):�squidge(6,2,modmem%):�getbin(1)
r� badbin% �
|�nc("No Bin")
��
�%� �empty(bin$) �nc("No Contents")
�)M%=Menus%+224:�Startamenu("Contents")
�"� l%=7 � 11:�mad(men$(l%),0):�
�� � squashpres% �shade(3)
��squidge(4,&80,binmenu%)
�%�l%=0�3:�squidge(l%,0,binmenu%):�
�4M%=binmenu%:�Startamenu("Choose:"):�mad("All",0)
�m%=�dirmenu(bin$,0)
��
�+M%=Menus%+388:�Startamenu("Wipe Drive")
�"ș&40242 � ,Drives%:d%=Drives%
�Nȕ d%>0:�mad("adfs::"+�(d%-1),0):�squidge(Drives%-d%,0,Menus%+492):d%-=1:�
!rd%=Drives%-1:ș&4A � ra%,rb%
8� (ra%-rb%)<>0 �mad("RAMdisc",0):rd%+=1:ramdisc%=rd%
#*Set BlackHole$Wibble "MemDisc"
&3�("RMEnsure MemFS 0.00 UnSet BlackHole$Wibble")
01ș&20023,"BlackHole$Wibble",bl%,256,0 � ,,ra%
:
bl%?ra%=0
D<� �gaga(bl%)="MemDisc" �mad("MemFS",0):rd%+=1:memfs%=rd%
NK� rd%>Drives%-1 �squidge(rd%,&80,0) ��squidge(Drives%-1,&80,Menus%+492)
X*M%=Menus%+492:�Startamenu("Disc Name")
bDP%!0=132:P%!4=-1:P%!8=&7009129:P%!12=discname%:P%!16=-1:P%!20=13
l$discname%=""
v�
���Startamenu(Title$)
�menwidth%=�(Title$)
�_$M%=Title$:M%?12=7:M%?13=2:M%?14=7:M%?15=0:M%!16=(menwidth%+1)*16:M%!20=41:M%!24=0:P%=M%+28
��
���mad(Text$,Flags%)
�?P%!0=Flags%�255:P%!4=-1:P%!8=menmask%:$(P%+12)=Text$:P%+=24
�)� �Text$>menwidth% menwidth%=�Text$+1
�M%!16=(menwidth%+1)*16
��
���madt(Text$,Ftype$)
�:$bl2%="small_"+Ftype$:ș"XWimp_SpriteOp",40,,bl2% � e%
�� e%<36624 �
�3$(Z%+12)="ssmall_"+Ftype$:P%!8=menmask%-(1<<11)
�
*$(Z%+12)="sfile_"+Ftype$:P%!8=menmask%
�
 L$Z%=Text$:P%!0=0:P%!4=-1:P%!12=Z%:P%!16=Z%+12:P%!20=�Text$:P%+=24:Z%+=24
*)� �Text$>menwidth% menwidth%=�Text$+1
4M%!16=(menwidth%+1)*16
>�
HE��nc(entry$):$(�menmem(2)+12)=entry$:�shade(2):�squidge(2,0,-1):�
RL��shade(item%):!(�menmem(item%)+8)=!(�menmem(item%)+8) � � grey � grey:�
\ ��squidge(item%,flag%,link%)
f;!(�menmem(item%))=flag% � 255:!(�menmem(item%)+4)=link%
p�
zݤmenmem(i%):=M%+28+i%*24
���mkmen(x%,y%)
�%wmen%=0:�buildmenus:x%-=96:y%=472
�ș&400D4,,Menus%,x%,y%
�� !spinon%=� �
�#�ps(Info%,1,�msg("fwe0","",""))
��
�� !bye%<=1 �
�*�ps(Info%,1,�msg("few"+�(�(2)),"",""))
��
��ps(Info%,1,"")
��
��
��
��startwipe(p$)
:� crnt%>0 � wiping% �lamation(�msg("wnf","",""),0,0):�
.� retain% � crnt%=0 �getbin(0):� badbin% �
$� crnt%=0 �
.&rootdir%=0:ctrl%=0:pollmask%=&1830
8� �-5 � �-8 ctrl%=-1
B� (� ctrl%) � retain% �
L<� �objtype(bin$+"."+today$)=0 �("CDir "+bin$+"."+today$)
Vusedtoday%=�
`�
j�
t#� �objtype(p$)=2 � structure% �
~6�getleafname(p$):rootdir%+=1:rootdir$(rootdir%)=p$
�F�("Copy "+p$+" "+home$+".Temp"+leafname$+" ~A~C~D~F~L~N~P~QRST~V")
��
�crnt%+=1:wipe$(crnt%)=p$
�<� (retain% � � ctrl%) �ibar("Moving") ��ibar("Deleting")
��
���getleafname(path$)
�� pointer%:pointer%=0
�*�:pointer%+=1:� ��path$,pointer%),".")
�leafname$=�path$,pointer%)
��
�ݤobjtype(a$)
�� obj%:ș&8,5,a$ � obj%
	=obj%

��getbin(hmm%)

badbin%=0
� �
(9� � � �lamation(�msg("bde",bin$,""),0,1):badbin%=-1:�
2=bin$=$(�lust(Pane%,11)):� bin$="" bin$=home$+".BlackHole"
<(ș&27,bin$,bl3%,256:bin$=�gaga(bl3%)
Fz%=�objtype(bin$)
P� z%=0 �
Z
Ȏ hmm% �
d
� 0:Spam!
n� 1:badbin%=-1
x�
��
��ps(Pane%,11,bin$)
��
�ݤempty(thing$)
�1� wot%:ș&C,9,thing$,bl4%,1,0,13,0 � ,,,,wot%
�� wot%=-1 �=� �=�
���fred(zappa%)
�� otot%
�Ȏ zappa% �
�� 1
�#otot%=tot%:�searchandcompare(0)
�� � fffast% �
�b� otot%<tot% �ps(Mavis%,19,�(tot%)+" files found"):�ps(Mavis%,18,�(totalsize%)+" bytes total")
� !spinon% �ession
�
/� 2:�searchandcompare(0):� !spinon% �ession
"� 4:�searchandcompare(1)
,�
6� wip%=0 �
@Ȏ zappa% �
J� 1,2,4:�finish
T�
^�
h9� zappa%=1 � � fffast% �ps(Mavis%,21,�msg$(wip%),44))
r�
|�
���ession
�0pieceof$=�pieceof$,�pieceof$-1)+�pieceof$,1)
�:$ibt=pieceof$:� !spinon% � spin � �selic(-2,hole%,0,0)
��
���finish
�� endtime%,elapsed%,hippo$
�=�ibar(""):!bye%=11:pollmask%=�pollmask:ș&2001E,7,,scrap%
�
� file% �
�file%=�:� tot%>0 �fw
�D� toomanyfiles% �lamation(�msg("tmf","",""),0,0):toomanyfiles%=�
��
�� zappa%=1 �
�:ș&42 � endtime%:elapsed%=(endtime%-searchtime%) � 100
8hippo$=�msg("fft",�(elapsed% � 60),�(elapsed% � 60))
?�changemavis("GO","Previous Search:"):�ps(Mavis%,21,hippo$)
U�ps(Mavis%,19,�(tot%)+" files found"):�ps(Mavis%,18,�(totalsize%)+" bytes total")
&�gmavis(0,grey):�setupff
0�
:�
D
��doawipe
N� n%,temp2$,objtype%
X(wiping%=�:�getleafname(wipe$(crnt%))
b6wipedir$=�wipe$(crnt%),(�wipe$(crnt%)-�leafname$))
l)ș&600DE,"*Filer_Action" � delhandle%
v ș&60F80,delhandle%,wipedir$
�� n%=1 � crnt%
�>�getleafname(wipe$(n%)):leafname$=�leafname$,�leafname$-1)
�(ș&60F81,delhandle%,leafname$+�0+" "
��
�� (retain% � � ctrl%) �
�temp2$=bin$+"."+today$
�A� ((wipeopt% � 4)=4) objtype%=1:getem%=� �objtype%=0:getem%=�
��
�!objtype%=2:temp2$="":getem%=�
��
�:ș&60F82,delhandle%,objtype%,wipeopt%,temp2$,�temp2$+1
��
�3ݤfileraction(op%,opt%,dir$,mem%,data$,datlen%)
	� no%
"ș&600DE,"*Filer_Action" � no%
'ș&60F80,no%,dir$:ș&60F81,no%,mem%
 )ș&60F82,no%,op%,opt%,data$,datlen%+1
*=no%
4ݤgorblimey(match$,enter$)
> � count%,name$,char$,result%
Hresult%=�:count%=1
R�
\name$=""
f�
pBchar$=�enter$,count%,1):� char$<>"#" � char$<>"*" name$+=char$
z
count%+=1
�.� count%=�enter$+1 � char$="#" � char$="*"
�)� �match$,name$) result%=� �result%=�
�"� count%=�enter$+1 � result%=�
�=result%
�1ݤluvaduck(looking%,t%):� t%=looking% �=� �=�
�"ݤtext(name$,type%,obj%,size%)
�� text$,l%,a%,fred$
�text$=name$+�14-�name$," ")
�� obj%=1 � obj%=3 �
�(ș"OS_FSControl",18,,type% � ,,l%,a%
� bl2%!0=l%:bl2%!4=a%:bl2%?8=0
�'fred$=�gaga(bl2%):� �fred$,1)="&" �
�text$+="Unknown   (xxx)"
�
+text$+=�gaga(bl2%)+"  "+"("+�~type%+")"
�
$�
.text$+="Directory      "
8�
B*ș&EC,size%,bl2%,128:fred$=�gaga(bl2%)
L"text$+=�(14-�fred$)," ")+fred$
V
=text$
`��openarchive(path$,name$)
j� arctried%
tarctried%=0
~� �
�\� � � �arcerror(name$,arctried%):� arctried%=2 �lamation(�msg("arcopen",path$,�$),0,0):�
�B�("OpenArchive "+path$):wip%+=1:msg$(wip%)="arcfs#"+name$+":$"
��
�!��arcerror(name$,� arctried%)
�)�("CloseArchive "+name$):arctried%+=1
��
�ݤbum(� addr%)
�
�b$:b$=""
�'ȕ ?addr%<>0:b$+=�?addr%:addr%+=1:�
�addr%+=1
�=b$
�:��selic(bl4%!0,bl4%!4,bl4%!8,bl4%!12):ș&400CD,,bl4%:�
1ݤlust(bl5%!0,bl5%!4):ș&400CE,,bl5%:=bl5%!28

K��ps(window,icon,s$):$(�lust(window,icon))=s$:�selic(window,icon,0,0):�
��ibar(i$)
� badbin% �
(
� i$="" �
2,� �empty(bin$) i$="Empty" �i$="Occupied"
<�
F4$ibt=i$:� !spinon% � spin � �selic(-2,hole%,0,0)
P�
Z��edure
d
� l,t$
n?�ps(Auto%,1,Ftp$(currpath%)):�ps(Auto%,5,Svpth$(currpath%))
x#t$="File$Type_"+Ftp$(currpath%)
�!ș&20023,t$,bl3%,20,0,0 � ,,l
�D$sps%=�getmem(bl3%,�less(l,8)):$spt%="sfile_"+Ftp$(currpath%)+�0
��selic(Auto%,fileicon%,0,0)
��
���savefile(type%)
� � leaf$,path$,savedir$,l%,t%
�#savedir$="":leaf$=�gaga(bl%+44)
�� p%>1 �
�� l%=0 � p%-1
�/� �("&"+Ftp$(l%))=type% savedir$=Svpth$(l%)
��
��
�M� �("&"+$(�lust(Auto%,1))+"0")=type%*&10 p$=$(�lust(Auto%,5)):savedir$=p$
(� savedir$="" �getbin(0):� badbin% �
� savedir$="" �
Usavedir$=bin$+"."+today$:� �objtype(bin$+"."+today$)=0 �("CDir "+bin$+"."+today$)
"usedtoday%=�
,�
6path$=savedir$+"."+leaf$
@� �
J,� � � �lamation(�msg("usf",�$,""),0,0):�
Tș&8,5,savedir$ � t%
^=� t%=0 �lamation(�msg("usf",�msg("ndir","",""),""),0,0):�
h<�ibar("Saving"):� sconf% �confirm(path$) ��saveit(path$)
r(� open% �("Filer_OpenDir "+savedir$)
|
�ibar("")
��
���saveit(p$)
�1bl%!12=bl%!8:bl%!16=2:bl%!0=((49+�(p$))� 4)*4
�8$(bl%+44)=p$:?(bl%+44+�(p$))=0:ș&400E7,17,bl%,bl%!4
��
���confirm(p$)
�� bovine%,n$
�n$="Save File as "+p$+" ?"
�-� �objtype(p$)=1 n$+=�msg("exists","","")
�Ebl4%!0=0:$(bl4%+4)=n$+�0:ș&400DF,bl4%,19,"Black Hole" � ,bovine%
�� bovine%<>2 �saveit(p$)
��
�ݤgaga(add%)
� ans$:ans$=""
&ȕ ?add%>31:ans$+=�?add%:add%+=1:�
	=ans$
&ݤgetmem(p,l)
0� flatulence$,stop
:stop=p+l
D*ȕ ?p � p<stop:flatulence$+=�?p:p+=1:�
N=flatulence$
Xݤless(x,y):� x<y �=x �=y
bݤmsg(tag$,it$,it1$)
l� f%,l%
v9ș&61502,msptr%,tag$,message%,256,it$,it1$ � ,,,l%;f%
�� f% � 1 �l%=0
�message%?l%=13
�=$message%
�E��changemavis(fart$,me$):�ps(Mavis%,20,me$):�ps(Mavis%,4,fart$):�
���fw
�� width%,height%
��scrnxy
�2width%=32+16*entrywidth%:height%=36*(found%+1)
�� foundopen% �close(Found%)
�Dbl%!0=0:bl%!4=-height%:bl%!8=width%:bl%!12=0:ș&400D7,Found%,bl%
�� scrx%>1600 scrx%=1600
�bl%!0=Found%:ș&400CC,,bl%
�S� width%>scrx% bl%!4=0:bl%!12=scrx% �bl%!4=(scrx%-width%)/2:bl%!12=bl%!4+width%
V� height%>scry% bl%!8=0:bl%!16=scry% �bl%!8=(scry%-height%)/2:bl%!16=bl%!8+height%
(bl%!28=-1:ș&400C5,,bl%:foundopen%=�
�
 ��redraw
*!� more%,x0%,y0%,top%,base%,i%
4Cș&400C8,,bl% � more%:x0%=16+bl%!4-bl%!20:y0%=-16+bl%!16-bl%!24
>ȕ more%
Htop%=(y0%-bl%!40) � 36
R� top%<0 top%=0
\&base%=(47+y0%-bl%!32) � 36:i%=top%
fȕ i%<found% � i%<=base%
p� x0%,y0%-(36*i%)
z;� �$(text%+i%*entrywidth%),"[") ș&400E6,11 �ș&400E6,7
�� i%=0 ș&400E6,8
�"�$(text%+i%*entrywidth%):i%+=1
��
�ș&400CA,,bl% � more%
��
��
���spritemenu(x%,y%)
�1wmen%=1:M%=Menus%:�Startamenu("Sprite Files")
�<� �dirmenu(home$+".Sprites",1) ș&400D4,,Menus%,x%-48,y%
��
�ݤdirmenu(path$,act%)
�(�addr%,l%,n%,done%,mem%,name$,items%
� mem%=�dim(3000):� mem%=0 �=0
!done%=�:menmask%=�mf:items%=0
'ș&C,9,path$,mem%,77,0,3000 � ,,,n%
� n%>0 �
$addr%=mem%
.l%=1
8�
Bname$=�bum(addr%)
L
Ȏ act% �
V=� 0:� �objtype(path$+"."+name$)>1 �mad(name$,0):items%+=1
`� 1
jȎ �name$,2) �
t
� "22"
~
� "23"
�:�mad(name$,0):items%+=1
��
�� 2:�mad(name$,0):items%+=1
��
�	l%+=1
�� l%>n% � P%>M%+1000
�
Ȏ act% �
�� 0:�squidge(items%,&80,-1)
�!� 1:�squidge(items%-1,&80,-1)
�2� 2:�squidge(items%+1,&80,-1):�squidge(1,2,-1)
��
�done%=�
�

ș&2001E,7,,mem%

=done%
��spmenu(item%)
(/sprites$=�gaga((Menus%+28)+((item%)*24)+12)
23�changesprites:�ps(Pane%,17,sprites$):�ibar("")
<:ș&400CF,,bl%:� (bl%!8 � 1)=1 �spritemenu(bl%!4,bl%!8)
F�
Pݤpollmask
Z� mask%
d
Ȏ � �
n.� !exit%,!spinon%,query%,(!bye%=1),!clock%
xmask%=&1830
�:mask%=&1831
��
�
=mask%
�3ݤmf:� usefonts% �=&61+(mfont%<<24) �=&07000021
�5ݤcf:� clockfont% �=&315D+(ifont%<<24) �=&700311D
�5ݤtmf:� usefonts% �=&B7B+(mfont%<<24) �=&07000B3B
���clock
�� !clock% �
�(bl%!0=-1:bl%!4=clicon%:ș&400C4,,bl%
�%clicon%=99999999:�ooer(grey,grey)
��
�>clicon%=�cricon(-8,&10000000,-64,100,52,ct,cs,"","r1",�cf)
�3wsiblock2!4=clicon%:� updateclock:�ooer(0,grey)
�
!clock%=� !clock%
�
"��mkclmen(x%,y%)
,Bmenmask%=�mf:M%=Menus%:�Startamenu("Clock"):�mad("Remove",&80)
60x%-=80:y%=138:ș&400D4,,Menus%,x%,y%:wmen%=2
@�
J��clmenu(item%)
T9� item%=0 �clock:�selic(Pane%,23,high,high):clmenu%=�
^�
h��fclicked(x%,y%)
r� name$
|"name$=�zog(x%,y%):� name$="" �
�:� �objtype(name$)=0 �lamation(�msg("hug","",""),0,0):�
�Cname$=�name$,�name$-�batspiss(name$)):�("Filer_OpenDir "+name$)
��
���smoketoomuch(x%,y%)
�"� load%,exec%,len%,attr%,type%
�,Ilchester$=�zog(x%,y%):� Ilchester$="" �
�?� �objtype(Ilchester$)=0 �lamation(�msg("hug","",""),0,0):�
�7ș&8,5,Ilchester$ � Beaver%,,load%,exec%,len%,attr%
�Kș"OS_FSControl",38,Ilchester$,load%,exec%,len%,attr%,Beaver% � ,,type%
�M%=Menus%:menmask%=�mf
�5�Startamenu(�Ilchester$,�batspiss(Ilchester$)-1))
��mad(men$(12),0)
�Ȏ type% �
 H� &1000:�mad(men$(13),0):�mad(men$(14),0):�mad(men$(15),0):�shade(2)
 H� &2000:�mad(men$(17),0):�mad(men$(14),0):�mad(men$(18),0):�shade(2)
 
 &�mad(men$(19),0)
 0� squashpres% �
 :4� type%=&FCA �mad(men$(20),0) � �mad(men$(21),0)
 D�
 N�mad(men$(14),0):�shade(2)
 X�
 b�mad(men$(22),0)
 l�
 v)�mad(men$(16),&80):� urm%=0 �shade(3)
 �%ș&400D4,,Menus%,x%-48,y%:wmen%=4
 ��
 �ݤbatspiss(funk$)
 ��m%
 �0�:m%+=1:���funk$,m%),".") � ��funk$,m%),"[")
 �=m%
 �ݤzog(x%,y%)
 �%� top%,yoff%,name$,l$,file$,line%
 �=!bl4%=Found%:ș&400CB,,bl4%:top%=bl4%!16-16:yoff%=bl4%!24
 �>line%=(top%-yoff%-y%) � 36:� line%<2 � line%>=found% � =""
 �&file$=$(text%+(entrywidth%*line%))
 �)� �file$,1)="[" � �file$,1)="*" � =""
 �foundline%=line%
!file$=�file$,�file$," ")-1)
!�
!5�:line%-=1:� �$(text%+(entrywidth%*line%)),1)="["
! <l$=$(text%+(entrywidth%*line%)):name$=�l$,2,�l$-2)+name$
!*/� �$(text%+(entrywidth%*(line%-1))),1)<>"["
!4=name$+"."+file$
!>��burial
!H!� spade$,coffin$,ashes%,dust%
!R� �objtype(Ilchester$)>0 �
!\0coffin$=�Ilchester$,�batspiss(Ilchester$)-1)
!fY� undertaker% � retain% spade$=�msg("gon",coffin$,"") � spade$=�msg("gob",coffin$,"")
!pH$(text%+(entrywidth%*foundline%))=spade$+�entrywidth%-�spade$-1," ")
!z.!bl2%=Found%:ș"Wimp_GetWindowState",,bl2%
!�9ș"Wimp_ForceRedraw",-1,bl2%!4,bl2%!8,bl2%!12,bl2%!16
!�undertaker%=�
!��
!���blunderbuss(item%)
!�-� name$,obj%,load%,exec%,len%,attr%,type%
!�Ȏ item% �
!�V� 0:name$=�Ilchester$,�Ilchester$-�batspiss(Ilchester$)):�("Filer_OpenDir "+name$)
!�"� 1:�("Filer_Run "+Ilchester$)
!�� 2
!�$�("WimpTask Squash "+Ilchester$)
!�+name$=$(text%+(entrywidth%*foundline%))
!�4ș&8,5,Ilchester$ � obj%,,load%,exec%,len%,attr%
!�Hș"OS_FSControl",38,Ilchester$,load%,exec%,len%,attr%,obj% � ,,type%
"a$(text%+(entrywidth%*foundline%))=�text(�Ilchester$,�batspiss(Ilchester$)-1),type%,obj%,len%)
".!bl2%=Found%:ș"Wimp_GetWindowState",,bl2%
"9ș"Wimp_ForceRedraw",-1,bl2%!4,bl2%!8,bl2%!12,bl2%!16
"$1� 3:�lamation(�msg("bub",Ilchester$,""),-1,9)
".2� 4:�lamation(�msg("bob",Ilchester$,""),-1,10)
"8�
"BAș&400CF,,bl%:� (bl%!8 � 1)=1 ș&400D4,,Menus%,bl%!4-48,bl%!8
"L�
"V*��buggeroff:!exit%=�:pollmask%=&1830:�
"`��incon(path$)
"j0� wip%>0 �lamation(�msg("busy","",""),0,0):�
"t+� � tdim% text%=�dim(10000):� text%=0 �
"~"scrap%=�dim(3000):� scrap%=0 �
"�� text%=0 �
"�Ztdim%=�:wip%=1:msg$(1)=path$:stype=0:entrywidth%=44:wot%=1:wot$(1)="*":comparing%=">0"
"�N$text%=�msg("dt","","")+�13:list%=entrywidth%:zappa%=2:!bye%=1:usearcfs%=0
"�Dcasesens%=�:file%=�:totalsize%=0:tot%=0:found%=1:pollmask%=&1830
"�,� foundopen% �close(Found%):foundopen%=0
"�0�ibar("..Info.."):pieceof$="..Info..":urm%=0
"��
"���nudge
"�� tdim% ș&2001E,7,,text%
"�Aș&2001E,7,,IndText%:ș&2001E,7,,string%:ș&2001E,7,,binmenu%
"�Fș&61504,msptr%:ș&2001E,7,,msptr%:ș&40082,mfont%:ș&40082,ifont%
"�ș&400DD,taskid%,1263747412
#�
#
K��descon(path$):despath$=path$:�lamation(�msg("bw",despath$,""),-1,4):�
#��countdir(path$)
#� temp$
#(9�getleafname(path$):temp$=�path$,(�path$-�leafname$))
#2<leafname$=�leafname$,�leafname$-1):$bl%=leafname$+�0+" "
#<1counthandle%=�fileraction(5,1,temp$,bl%,"",0)
#F�
#P��resizefonts
#Z#ș&40082,mfont%:ș&40082,ifont%
#dhmfont%=�findfont(�msg("mf","",""),�(�msg("mfs","","")),�(�msg("mfh","","")),"homerton.medium",13,13)
#ngifont%=�findfont(�msg("if","",""),�(�msg("ifs","","")),�(�msg("ifh","","")),"trinity.medium",14,14)
#x�
#���scrnxy
#�H!bl4%=4:bl4%!4=5:bl4%!8=11:bl4%!12=12:bl4%!16=-1:ș &31,bl4%,bl4%+20
#�5scrx%=bl4%!28+1<<bl4%!20:scry%=bl4%!32+1<<bl4%!24
#��
#���openfilefind
#��setupff
#�*�open(Mavis%):ș&400D2,Mavis%,6,,,-1,0
#��
#�
��setupff
#�� r%
#�arcfsflag%=0:sparkfsflag%=0
#�)ș"OS_FSControl",13,"ArcFS#",0 � ,,r%
#�� r%>0 arcfsflag%=1
$*ș&20023,"ArcFS$Dir",bl2%,256,0 � ,,r%
$Nbl2%?r%=0:� �gaga(bl2%)<>"" � �objtype("<ArcFS$Dir>.!Run")=1 arcfsflag%+=2
$+ș"OS_FSControl",13,"SparkFS#",0 � ,,r%
$"� r%>0 sparkfsflag%=1
$,,ș&20023,"SparkFS$Dir",bl2%,256,0 � ,,r%
$6Rbl2%?r%=0:� �gaga(bl2%)<>"" � �objtype("<SparkFS$Dir>.!Run")=1 sparkfsflag%+=2
$@N�selic(Mavis%,24,0,grey):�selic(Mavis%,25,0,grey):�selic(Mavis%,25,0,grey)
$JQ�selic(Mavis%,24,high,high):�selic(Mavis%,25,0,high):�selic(Mavis%,26,0,high)
$Tusearcfs%=0
$^.� arcfsflag%=0 �selic(Mavis%,25,grey,grey)
$h0� sparkfsflag%=0 �selic(Mavis%,26,grey,grey)
$r� (sparkfsflag% � 1)=1 �
$|Q�selic(Mavis%,26,high,high):�selic(Mavis%,24,0,high):�selic(Mavis%,25,0,high)
$�G�selic(Mavis%,24,grey,grey):�selic(Mavis%,25,grey,grey):usearcfs%=2
$��
$��
$�4ݤfindfont(name$,size%,height%,default$,ds%,dh%)
$�� hand%
$�� �
$�2� � � name$=default$:size%=ds%:height%=dh%:� �
$�/ș&40081,,name$,size%*16,height%*16 � hand%
$�
=hand%
$�;��ooer(a,b):�selic(Pane%,21,a,b):�selic(Pane%,22,a,b):�
$���openconfig1
$�!bl%!32=Pane%:ș&400CB,,bl%+32
$�!bl%!44=bl%!4+bl%!44-bl%!36+16
%!bl%!48=bl%!8+bl%!48-bl%!40+16
%#bl%!36=bl%!4+16:bl%!40=bl%!8+16
%"bl%!60=bl%!28:ș&400C5,,bl%+32
%&bl%!28=Pane%:ș&400C5,,bl%
%0�
%:��openconfig
%D!bl%=Config%:ș&400CB,,bl%
%N�openconfig1:bl%!28=-1
%Xș&400C5,,bl%:!bl%=Pane%
%b)ș&400CB,,bl%:bl%!28=-1:ș&400C5,,bl%
%l*ș&400D2,Pane%,11,,,-1,0:configopen%=�
%v�
%���tmenu(item%)
%�� win%,n$,pop$
%�3ș&400D3,,bl4% � win%:n$=$(tmenind%+(item%*24))
%�
Ȏ win% �
%�-� Auto%:Ftp$(currpath%)=�ftype(n$):�edure
%�� Mavis%
%�pop$=�ftype(n$)
%��ps(Mavis%,13,n$)
%�$ffs%="sfile_"+pop$+�0
%��selic(Mavis%,fficon%,0,0)
%��
%�ș&400CF,,bl%
%�� (bl%!8 � 1)=1 �
&ș&400D4,,tmen%,bl%!4,bl%!8
&�
&ș&2001E,7,,tmen%:tmen%=0
& �
&*�
&48ݤcricon(hand%,x%,y%,w%,h%,tptr%,sptr%,t$,s$,flags%)
&>� icon%
&H<!bl%=hand%:bl%!4=x%:bl%!8=-y%-h%:bl%!12=x%+w%:bl%!16=-y%
&R5bl%!20=flags%:bl%!24=tptr%:bl%!28=sptr%:bl%!32=11
&\-$sptr%=s$:$tptr%=t$:ș&400C2,,bl% � icon%
&f
=icon%
&p��typemenu(x%,y%)
&z� length,point,n$,tot%
&�� tmen%=0 tmen%=�dim(6000)
&�� tmen%=0 �
&�ctmenind%=tmen%+3000:M%=tmen%:point=0:tot%=0:menmask%=�tmf:�Startamenu("File Types"):Z%=tmenind%
&�ș"Hourglass_On"
&��
&�;ș&20023,"File$Type_*",bl4%,20,point,0 � ,,length,point
&�� length<>0 �
&�Rn$=�getmem(bl4%,�less(length,8)):r$=¤getmem(point,13),3):�madt(n$,r$):tot%+=1
&��
&�� length=0 � tot%=123
&�7�squidge(tot%-1,&80,0):x%-=96:ș&400D4,,tmen%,x%,y%
&�wmen%=3:ș"Hourglass_Off"
&��
'��putstructure
'� loop%
'� loop%=1 � rootdir%
'$!�getleafname(rootdir$(loop%))
'.R�("Copy "+home$+".Temp"+leafname$+" "+rootdir$(loop%)+" ~A~CD~F~L~N~P~QRST~V")
'8�
'B�
'Lݤdim2(size%)
'V� block%,flags%
'`)ș&2001E,6,,,size% � ,,block% ;flags%
'jE� (flags% � 1)=1 �0,"No room in RMA - unable to start Black Hole"
't=block%
'~��gmavis(a,b)
'�� plop%
'�� plop%=3 � 14
'�Ȏ plop% �
'�� 3,6,7,8,9,10,13
'��selic(Mavis%,plop%,a,b)
'��
'��
'��selic(Mavis%,22,a,b)
'��selic(Mavis%,29,a,b)
'�� usearcfs%=2 �
'��selic(Mavis%,26,a,b)
'��
(�selic(Mavis%,24,a,b)
(
(� arcfsflag%>0 �selic(Mavis%,25,a,b)
(*� sparkfsflag%>0 �selic(Mavis%,26,a,b)
(�
((�
(2��squash(path$)
(<0� wip%>0 �lamation(�msg("busy","",""),0,0):�
(F"scrap%=�dim(3000):� scrap%=0 �
(PXwip%=1:msg$(1)=path$:zappa%=4:!bye%=1:pollmask%=&1830:usearcfs%=0:�ibar("Squashing")
(Z�
(dݤftype(boogie$)
(n� return$,ftype%
(x*wrinkledforeskin%=�:� boogie$="" � =""
(�+ș"XOS_FSControl",31,boogie$ � ,,ftype%
(�� ftype%=0 �
(�8wrinkledforeskin%=�:�lamation(�msg("not","",""),0,0)
(�return$=boogie$
(��
(�return$=�~ftype%
(��
(�=return$
(���changesprites
(�*Set BlackHole$Wibble "AEH"
(�8�("RMEnsure WimpSprite 1.00 UnSet BlackHole$Wibble")
(�1ș&20023,"BlackHole$Wibble",bl%,256,0 � ,,ra%
(�
bl%?ra%=0
)� �gaga(bl%)="AEH" �
)0�("WimpSprites "+home$+".Sprites."+sprites$)
)�
)"0�("IconSprites "+home$+".Sprites."+sprites$)
),�
)6�
)@��resizeconfig
)Jpaneheight%=bl%!16-bl%!8
)TL� paneheight%>scry%-72 bl%!8=16:bl%!16=scry%-56:paneheight%=bl%!16-bl%!8
)^� configopen% ș&400C5,,bl%
)h#� paneheight%<>oldpaneheight% �
)roldpaneheight%=paneheight%
)|#bl%!40=Config%:ș&400CB,,bl%+40
)�/bl%!48=bl%!8-16:bl%!56=bl%!16+8:bl%!64=-442
)�/bl%!68=Pane%:� configopen% ș&400C5,,bl%+40
)��
)��
)���resizeconfig1
)��scrnxy
)�!bl%=Pane%:ș&400CB,,bl%
)�� bl%!16>scry%-56 �
)�:bl%!16=scry%-56:bl%!8=bl%!16-paneheight%:�resizeconfig
)��
)�!bl%=Pane%:ș&400CB,,bl%
)�� paneheight%>scry%-72 �
)�*bl%!8=16:bl%!16=scry%-56:�resizeconfig
*�
*�
*��searchandcompare(action%)
*&@� count%,addr%,temp$,temp2$,filetype%,objtype%,otot%,output$
*02count%=0:addr%=scrap%:temp$=msg$(wip%):wip%-=1
*:-ș&C,10,temp$,scrap%,77,0,3000,0 � ,,,no%
*D
� no%>0 �
*N�
*XBfiletype%=(((addr%!0)>>>8) � &FFF):objtype%=addr%!16:addr%+=20
*b/temp2$=�bum(addr%):output$=temp$+"."+temp2$
*lȎ objtype% �
*v0� 1:�think(action%,filetype%,output$,temp2$)
*�$� 2,3:wip%+=1:msg$(wip%)=output$
*��
*�
count%+=1
*�ȕ (addr% � 4)>0:addr%+=1:�
*�� count%=no%
*� � action%=0 �getfiles(temp$)
*��
*��
*�
��doobery
*�.� �empty(bin$) te$="Empty" �te$="Occupied"
*�Lhole%=�cricon(-5,&10000000,-92,144,108,ibt,ibs,te$,"s!black0",&1700312B)
*�2!holehandle=hole%:wsiblock1!4=hole%:�ibar(te$)
*��
�

00000000  0d 00 0a 3f f4 20 42 6c  61 63 6b 20 48 6f 6c 65  |...?. Black Hole|
00000010  20 49 49 20 56 65 72 73  69 6f 6e 20 31 2e 31 35  | II Version 1.15|
00000020  20 2d 20 54 68 69 73 20  63 6f 64 65 20 68 61 73  | - This code has|
00000030  20 62 65 65 6e 20 43 52  55 4e 43 48 65 64 2e 0d  | been CRUNCHed..|
00000040  00 14 4b de 20 46 74 70  24 28 32 30 29 2c 53 76  |..K. Ftp$(20),Sv|
00000050  70 74 68 24 28 32 30 29  2c 6d 73 67 24 28 37 37  |pth$(20),msg$(77|
00000060  29 2c 72 6f 6f 74 64 69  72 24 28 37 37 29 2c 77  |),rootdir$(77),w|
00000070  69 70 65 24 28 37 37 29  2c 77 6f 74 24 28 31 30  |ipe$(77),wot$(10|
00000080  29 2c 6d 65 6e 24 28 32  33 29 0d 00 1e 40 de 20  |),men$(23)...@. |
00000090  62 6c 25 20 32 30 34 30  2c 64 61 79 28 31 31 29  |bl% 2040,day(11)|
000000a0  2c 6f 76 65 72 6c 61 79  24 28 33 29 2c 4d 65 6e  |,overlay$(3),Men|
000000b0  75 73 25 20 35 36 34 2c  63 6f 64 65 25 20 34 36  |us% 564,code% 46|
000000c0  30 2c 76 61 72 25 20 31  36 30 0d 00 28 4f de 20  |0,var% 160..(O. |
000000d0  69 62 73 20 31 32 2c 69  62 74 20 31 32 2c 73 70  |ibs 12,ibt 12,sp|
000000e0  73 25 20 31 32 2c 73 70  74 25 20 31 32 2c 63 74  |s% 12,spt% 12,ct|
000000f0  20 31 32 2c 76 20 31 32  2c 64 69 73 63 6e 61 6d  | 12,v 12,discnam|
00000100  65 25 20 31 34 2c 66 66  73 25 20 31 32 2c 66 66  |e% 14,ffs% 12,ff|
00000110  74 25 20 32 2c 63 73 20  34 0d 00 32 55 49 6e 64  |t% 2,cs 4..2UInd|
00000120  54 65 78 74 25 3d a4 64  69 6d 32 28 33 32 34 30  |Text%=.dim2(3240|
00000130  29 3a 73 74 72 69 6e 67  25 3d a4 64 69 6d 32 28  |):string%=.dim2(|
00000140  31 31 30 30 29 3a 62 69  6e 6d 65 6e 75 25 3d a4  |1100):binmenu%=.|
00000150  64 69 6d 32 28 31 30 30  30 29 3a 6d 6f 64 6d 65  |dim2(1000):modme|
00000160  6d 25 3d a4 64 69 6d 32  28 31 30 30 30 29 0d 00  |m%=.dim2(1000)..|
00000170  3c 57 6f 76 65 72 6c 61  79 24 28 29 3d 22 3c 42  |<Woverlay$()="<B|
00000180  6c 61 63 6b 48 6f 6c 65  24 44 69 72 3e 2e 53 65  |lackHole$Dir>.Se|
00000190  74 75 70 22 2c 22 3c 42  6c 61 63 6b 48 6f 6c 65  |tup","<BlackHole|
000001a0  24 44 69 72 3e 2e 4f 76  65 72 6c 61 79 22 2c 22  |$Dir>.Overlay","|
000001b0  3c 42 6c 61 63 6b 48 6f  6c 65 24 44 69 72 3e 2e  |<BlackHole$Dir>.|
000001c0  49 6e 69 74 22 0d 00 46  11 c8 a3 20 6f 76 65 72  |Init"..F... over|
000001d0  6c 61 79 24 28 29 0d 00  50 8c f2 69 6e 69 74 77  |lay$()..P..initw|
000001e0  69 6d 70 3a f2 74 6f 64  61 79 73 64 61 74 65 3a  |imp:.todaysdate:|
000001f0  f2 62 69 63 79 63 6c 65  5f 72 65 70 61 69 72 5f  |.bicycle_repair_|
00000200  6d 61 6e 3a f2 61 73 73  65 6d 62 6c 65 31 3a f2  |man:.assemble1:.|
00000210  6c 64 6f 70 74 73 3a f2  77 61 74 6e 65 79 73 5f  |ldopts:.watneys_|
00000220  72 65 64 5f 62 61 72 72  65 6c 3a f2 64 6f 72 61  |red_barrel:.dora|
00000230  64 69 6f 73 3a f2 70 65  6e 67 75 69 6e 3a f2 61  |dios:.penguin:.a|
00000240  73 73 65 6d 62 6c 65 3a  e7 20 21 63 6c 6f 63 6b  |ssemble:. !clock|
00000250  25 20 21 63 6c 6f 63 6b  25 3d a3 3a f2 63 6c 6f  |% !clock%=.:.clo|
00000260  63 6b 0d 00 5a 33 f2 64  6f 6f 62 65 72 79 3a e7  |ck..Z3.doobery:.|
00000270  20 61 75 74 6f 77 69 70  65 25 20 80 20 ac 20 62  | autowipe% . . b|
00000280  61 64 62 69 6e 25 20 f2  70 61 72 72 6f 74 28 30  |adbin% .parrot(0|
00000290  2c 30 2c 30 29 0d 00 64  3a f2 6c 64 6f 76 65 72  |,0,0)..d:.ldover|
000002a0  6c 61 79 3a c8 99 26 34  32 20 b8 20 21 74 69 6d  |lay:..&42 . !tim|
000002b0  65 25 3a 21 74 69 6d 65  25 2b 3d 21 62 79 65 25  |e%:!time%+=!bye%|
000002c0  3a f2 73 63 72 6e 78 79  3a 62 69 62 25 3d 30 0d  |:.scrnxy:bib%=0.|
000002d0  00 6e 22 ee 20 85 20 f2  65 72 72 6f 72 3a e7 20  |.n". . .error:. |
000002e0  21 65 78 69 74 25 3d b9  20 f2 6e 75 64 67 65 3a  |!exit%=. .nudge:|
000002f0  e0 0d 00 78 05 f5 0d 00  82 2b c8 99 26 34 30 30  |...x.....+..&400|
00000300  45 31 2c 70 6f 6c 6c 6d  61 73 6b 25 2c 62 6c 25  |E1,pollmask%,bl%|
00000310  2c 21 74 69 6d 65 25 20  b8 20 72 65 61 73 6f 6e  |,!time% . reason|
00000320  25 0d 00 8c 10 c8 8e 20  72 65 61 73 6f 6e 25 20  |%...... reason% |
00000330  ca 0d 00 96 07 c9 20 30  0d 00 a0 46 e7 20 72 65  |...... 0...F. re|
00000340  73 69 7a 65 6e 65 65 64  65 64 25 20 f2 72 65 73  |sizeneeded% .res|
00000350  69 7a 65 63 6f 6e 66 69  67 31 3a 72 65 73 69 7a  |izeconfig1:resiz|
00000360  65 6e 65 65 64 65 64 25  3d a3 3a 70 6f 6c 6c 6d  |eneeded%=.:pollm|
00000370  61 73 6b 25 3d a4 70 6f  6c 6c 6d 61 73 6b 0d 00  |ask%=.pollmask..|
00000380  aa 10 e7 20 71 75 65 72  79 25 3d 30 20 8c 0d 00  |... query%=0 ...|
00000390  b4 1a e7 20 77 69 70 25  3e 30 20 f2 66 72 65 64  |... wip%>0 .fred|
000003a0  28 7a 61 70 70 61 25 29  0d 00 be 24 e7 20 28 63  |(zappa%)...$. (c|
000003b0  72 6e 74 25 3e 30 20 80  20 ac 20 77 69 70 69 6e  |rnt%>0 . . wipin|
000003c0  67 25 29 20 f2 64 6f 61  77 69 70 65 0d 00 c8 05  |g%) .doawipe....|
000003d0  cc 0d 00 d2 1d 21 62 6c  25 3d 51 75 65 72 79 25  |.....!bl%=Query%|
000003e0  3a c8 99 26 34 30 30 45  30 2c 2c 62 6c 25 0d 00  |:..&400E0,,bl%..|
000003f0  dc 33 c8 97 20 c8 93 20  62 6c 25 21 34 2c 62 6c  |.3.. .. bl%!4,bl|
00000400  25 21 38 2c 62 6c 25 21  31 32 2d 62 6c 25 21 34  |%!8,bl%!12-bl%!4|
00000410  2d 34 2c 62 6c 25 21 31  36 2d 62 6c 25 21 38 2d  |-4,bl%!16-bl%!8-|
00000420  34 0d 00 e6 05 cd 0d 00  f0 0e d6 20 70 74 72 63  |4.......... ptrc|
00000430  68 65 63 6b 0d 00 fa 0f  c9 20 31 3a f2 72 65 64  |heck..... 1:.red|
00000440  72 61 77 0d 01 04 07 c9  20 32 0d 01 0e 0a c8 8e  |raw..... 2......|
00000450  20 b9 20 ca 0d 01 18 1f  c9 20 21 62 6c 25 3d 43  | . ...... !bl%=C|
00000460  6f 6e 66 69 67 25 3a f2  6f 70 65 6e 63 6f 6e 66  |onfig%:.openconf|
00000470  69 67 31 0d 01 22 1e c9  20 21 62 6c 25 3d 50 61  |ig1..".. !bl%=Pa|
00000480  6e 65 25 3a f2 72 65 73  69 7a 65 63 6f 6e 66 69  |ne%:.resizeconfi|
00000490  67 0d 01 2c 13 7f 3a c8  99 26 34 30 30 43 35 2c  |g..,..:..&400C5,|
000004a0  2c 62 6c 25 0d 01 36 05  cb 0d 01 40 07 c9 20 33  |,bl%..6....@.. 3|
000004b0  0d 01 4a 11 c8 99 26 34  30 30 43 36 2c 2c 62 6c  |..J...&400C6,,bl|
000004c0  25 0d 01 54 14 e7 20 62  6c 25 21 30 3d 46 6f 75  |%..T.. bl%!0=Fou|
000004d0  6e 64 25 20 8c 0d 01 5e  25 e7 20 74 64 69 6d 25  |nd% ...^%. tdim%|
000004e0  20 c8 99 26 32 30 30 31  45 2c 37 2c 2c 74 65 78  | ..&2001E,7,,tex|
000004f0  74 25 3a 74 64 69 6d 25  3d a3 0d 01 68 05 cd 0d  |t%:tdim%=...h...|
00000500  01 72 30 c9 20 36 3a f2  62 75 74 74 6f 6e 28 62  |.r0. 6:.button(b|
00000510  6c 25 21 30 2c 62 6c 25  21 34 2c 62 6c 25 21 38  |l%!0,bl%!4,bl%!8|
00000520  2c 62 6c 25 21 31 32 2c  62 6c 25 21 31 36 29 0d  |,bl%!12,bl%!16).|
00000530  01 7c 1f c9 20 38 3a f2  6b 65 79 28 21 62 6c 25  |.|.. 8:.key(!bl%|
00000540  2c 62 6c 25 21 34 2c 62  6c 25 21 32 34 29 0d 01  |,bl%!4,bl%!24)..|
00000550  86 07 c9 20 39 0d 01 90  0e c8 8e 20 77 6d 65 6e  |... 9...... wmen|
00000560  25 20 ca 0d 01 9a 26 c9  20 30 3a f2 44 65 63 6f  |% ....&. 0:.Deco|
00000570  64 65 4d 65 6e 75 28 62  6c 25 21 30 2c 62 6c 25  |deMenu(bl%!0,bl%|
00000580  21 34 2c 62 6c 25 21 38  29 0d 01 a4 16 c9 20 31  |!4,bl%!8)..... 1|
00000590  3a f2 73 70 6d 65 6e 75  28 62 6c 25 21 30 29 0d  |:.spmenu(bl%!0).|
000005a0  01 ae 16 c9 20 32 3a f2  63 6c 6d 65 6e 75 28 62  |.... 2:.clmenu(b|
000005b0  6c 25 21 30 29 0d 01 b8  15 c9 20 33 3a f2 74 6d  |l%!0)..... 3:.tm|
000005c0  65 6e 75 28 62 6c 25 21  30 29 0d 01 c2 1b c9 20  |enu(bl%!0)..... |
000005d0  34 3a f2 62 6c 75 6e 64  65 72 62 75 73 73 28 62  |4:.blunderbuss(b|
000005e0  6c 25 21 30 29 0d 01 cc  05 cb 0d 01 d6 22 c9 20  |l%!0)........". |
000005f0  31 37 2c 31 38 3a f2 6d  65 73 73 61 67 65 28 62  |17,18:.message(b|
00000600  6c 25 21 34 2c 62 6c 25  21 31 36 29 0d 01 e0 05  |l%!4,bl%!16)....|
00000610  cb 0d 01 ea 12 fd 20 21  74 69 6d 65 66 6f 72 62  |...... !timeforb|
00000620  65 64 25 0d 01 f4 0a f2  6e 75 64 67 65 0d 01 fe  |ed%.....nudge...|
00000630  05 e0 0d 02 08 10 dd a4  64 69 6d 28 73 69 7a 65  |........dim(size|
00000640  25 29 0d 02 12 13 ea 20  62 6c 6f 63 6b 25 2c 66  |%)..... block%,f|
00000650  6c 61 67 73 25 0d 02 1c  29 c8 99 26 32 30 30 31  |lags%...)..&2001|
00000660  45 2c 36 2c 2c 2c 73 69  7a 65 25 20 b8 20 2c 2c  |E,6,,,size% . ,,|
00000670  62 6c 6f 63 6b 25 20 3b  66 6c 61 67 73 25 0d 02  |block% ;flags%..|
00000680  26 40 e7 20 28 66 6c 61  67 73 25 20 80 20 31 29  |&@. (flags% . 1)|
00000690  3d 31 20 f2 6c 61 6d 61  74 69 6f 6e 28 a4 6d 73  |=1 .lamation(.ms|
000006a0  67 28 22 6e 6f 72 6d 61  22 2c 22 22 2c 22 22 29  |g("norma","","")|
000006b0  2c 30 2c 30 29 3a 62 6c  6f 63 6b 25 3d 30 0d 02  |,0,0):block%=0..|
000006c0  30 0b 3d 62 6c 6f 63 6b  25 0d 02 3a 0b dd f2 65  |0.=block%..:...e|
000006d0  72 72 6f 72 0d 02 44 0d  ea 20 61 6e 73 77 65 72  |rror..D.. answer|
000006e0  25 0d 02 4e 0a 21 62 6c  25 3d 9f 0d 02 58 22 24  |%..N.!bl%=...X"$|
000006f0  28 62 6c 25 2b 34 29 3d  a4 6d 73 67 28 22 45 31  |(bl%+4)=.msg("E1|
00000700  22 2c f6 24 2c c3 28 9e  29 29 2b bd 30 0d 02 62  |",.$,.(.))+.0..b|
00000710  2a c8 99 26 34 30 30 44  46 2c 62 6c 25 2c 33 2c  |*..&400DF,bl%,3,|
00000720  22 42 6c 61 63 6b 20 48  6f 6c 65 22 20 b8 20 2c  |"Black Hole" . ,|
00000730  61 6e 73 77 65 72 25 0d  02 6c 34 e7 20 61 6e 73  |answer%..l4. ans|
00000740  77 65 72 25 3d 32 20 8c  21 65 78 69 74 25 3d b9  |wer%=2 .!exit%=.|
00000750  3a 70 6f 6c 6c 6d 61 73  6b 25 3d 26 31 38 33 30  |:pollmask%=&1830|
00000760  20 8b f2 69 62 61 72 28  22 22 29 0d 02 76 05 e1  | ..ibar("")..v..|
00000770  0d 02 80 24 dd f2 62 75  74 74 6f 6e 28 78 25 2c  |...$..button(x%,|
00000780  79 25 2c 62 75 74 25 2c  68 61 6e 64 25 2c 69 63  |y%,but%,hand%,ic|
00000790  6f 6e 25 29 0d 02 8a 0d  c8 8e 20 62 75 74 25 20  |on%)...... but% |
000007a0  ca 0d 02 94 07 c9 20 32  0d 02 9e 0e c8 8e 20 68  |...... 2...... h|
000007b0  61 6e 64 25 20 ca 0d 02  a8 08 c9 20 2d 32 0d 02  |and% ...... -2..|
000007c0  b2 1f e7 20 69 63 6f 6e  25 3d 68 6f 6c 65 25 20  |... icon%=hole% |
000007d0  f2 6d 6b 6d 65 6e 28 78  25 2c 79 25 29 0d 02 bc  |.mkmen(x%,y%)...|
000007e0  23 e7 20 69 63 6f 6e 25  3d 63 6c 69 63 6f 6e 25  |#. icon%=clicon%|
000007f0  20 f2 6d 6b 63 6c 6d 65  6e 28 78 25 2c 79 25 29  | .mkclmen(x%,y%)|
00000800  0d 02 c6 37 c9 20 50 61  6e 65 25 3a e7 20 69 63  |...7. Pane%:. ic|
00000810  6f 6e 25 3d 31 38 20 f2  63 6c 69 63 6b 65 64 28  |on%=18 .clicked(|
00000820  78 25 2c 79 25 2c 62 75  74 25 2c 68 61 6e 64 25  |x%,y%,but%,hand%|
00000830  2c 69 63 6f 6e 25 29 0d  02 d0 3f c9 20 41 75 74  |,icon%)...?. Aut|
00000840  6f 25 3a e7 20 69 63 6f  6e 25 3d 31 31 20 f2 74  |o%:. icon%=11 .t|
00000850  79 70 65 6d 65 6e 75 28  78 25 2c 79 25 29 3a c8  |ypemenu(x%,y%):.|
00000860  99 26 34 30 30 44 32 2c  41 75 74 6f 25 2c 31 2c  |.&400D2,Auto%,1,|
00000870  2c 2c 2d 31 2c 30 0d 02  da 37 c9 20 4d 61 76 69  |,,-1,0...7. Mavi|
00000880  73 25 3a e7 20 69 63 6f  6e 25 3d 38 20 f2 63 6c  |s%:. icon%=8 .cl|
00000890  69 63 6b 65 64 28 78 25  2c 79 25 2c 62 75 74 25  |icked(x%,y%,but%|
000008a0  2c 68 61 6e 64 25 2c 69  63 6f 6e 25 29 0d 02 e4  |,hand%,icon%)...|
000008b0  21 c9 20 46 6f 75 6e 64  25 3a f2 73 6d 6f 6b 65  |!. Found%:.smoke|
000008c0  74 6f 6f 6d 75 63 68 28  78 25 2c 79 25 29 0d 02  |toomuch(x%,y%)..|
000008d0  ee 05 cb 0d 02 f8 2a c9  20 31 2c 34 3a f2 63 6c  |......*. 1,4:.cl|
000008e0  69 63 6b 65 64 28 78 25  2c 79 25 2c 62 75 74 25  |icked(x%,y%,but%|
000008f0  2c 68 61 6e 64 25 2c 69  63 6f 6e 25 29 0d 03 02  |,hand%,icon%)...|
00000900  05 cb 0d 03 0c 05 e1 0d  03 16 29 dd f2 63 6c 69  |..........)..cli|
00000910  63 6b 65 64 28 78 25 2c  79 25 2c 62 75 74 74 6f  |cked(x%,y%,butto|
00000920  6e 73 25 2c 68 61 6e 64  25 2c 69 63 6f 6e 25 29  |ns%,hand%,icon%)|
00000930  0d 03 20 13 ea 20 6f 75  74 70 75 74 24 2c 78 2c  |.. .. output$,x,|
00000940  79 2c 62 0d 03 2a 0e c8  8e 20 68 61 6e 64 25 20  |y,b..*... hand% |
00000950  ca 0d 03 34 08 c9 20 2d  32 0d 03 3e 0e c8 8e 20  |...4.. -2..>... |
00000960  69 63 6f 6e 25 20 ca 0d  03 48 0b c9 20 68 6f 6c  |icon% ...H.. hol|
00000970  65 25 0d 03 52 11 c8 8e  20 62 75 74 74 6f 6e 73  |e%..R... buttons|
00000980  25 20 ca 0d 03 5c 10 c9  20 34 3a f2 6f 70 65 6e  |% ...\.. 4:.open|
00000990  62 69 6e 0d 03 66 22 c9  20 31 3a f2 6f 70 65 6e  |bin..f". 1:.open|
000009a0  63 6f 6e 66 69 67 3a f2  72 65 73 69 7a 65 63 6f  |config:.resizeco|
000009b0  6e 66 69 67 31 0d 03 70  05 cb 0d 03 7a 05 cb 0d  |nfig1..p....z...|
000009c0  03 84 0b c9 20 50 61 6e  65 25 0d 03 8e 0e c8 8e  |.... Pane%......|
000009d0  20 69 63 6f 6e 25 20 ca  0d 03 98 1d c9 20 32 3a  | icon% ...... 2:|
000009e0  77 69 70 65 6f 70 74 25  3d 77 69 70 65 6f 70 74  |wipeopt%=wipeopt|
000009f0  25 20 82 20 32 0d 03 a2  1d c9 20 33 3a 77 69 70  |% . 2..... 3:wip|
00000a00  65 6f 70 74 25 3d 77 69  70 65 6f 70 74 25 20 82  |eopt%=wipeopt% .|
00000a10  20 31 0d 03 ac 1d c9 20  34 3a 77 69 70 65 6f 70  | 1..... 4:wipeop|
00000a20  74 25 3d 77 69 70 65 6f  70 74 25 20 82 20 34 0d  |t%=wipeopt% . 4.|
00000a30  03 b6 1f c9 20 35 3a 73  74 72 75 63 74 75 72 65  |.... 5:structure|
00000a40  25 3d ac 20 73 74 72 75  63 74 75 72 65 25 0d 03  |%=. structure%..|
00000a50  c0 19 c9 20 38 3a 72 65  74 61 69 6e 25 3d ac 20  |... 8:retain%=. |
00000a60  72 65 74 61 69 6e 25 0d  03 ca 1d c9 20 39 3a 61  |retain%..... 9:a|
00000a70  75 74 6f 77 69 70 65 25  3d ac 20 61 75 74 6f 77  |utowipe%=. autow|
00000a80  69 70 65 25 0d 03 d4 30  c9 20 31 35 3a 21 73 70  |ipe%...0. 15:!sp|
00000a90  69 6e 6f 6e 25 3d ac 20  21 73 70 69 6e 6f 6e 25  |inon%=. !spinon%|
00000aa0  3a 70 6f 6c 6c 6d 61 73  6b 25 3d a4 70 6f 6c 6c  |:pollmask%=.poll|
00000ab0  6d 61 73 6b 0d 03 de 1b  c9 20 31 38 3a f2 73 70  |mask..... 18:.sp|
00000ac0  72 69 74 65 6d 65 6e 75  28 78 25 2c 79 25 29 0d  |ritemenu(x%,y%).|
00000ad0  03 e8 1e c9 20 31 39 3a  75 73 65 66 6f 6e 74 73  |.... 19:usefonts|
00000ae0  25 3d ac 20 75 73 65 66  6f 6e 74 73 25 0d 03 f2  |%=. usefonts%...|
00000af0  21 c9 20 32 31 3a 21 63  6c 74 79 70 65 25 3d b9  |!. 21:!cltype%=.|
00000b00  3a d6 20 75 70 64 61 74  65 63 6c 6f 63 6b 0d 03  |:. updateclock..|
00000b10  fc 21 c9 20 32 32 3a 21  63 6c 74 79 70 65 25 3d  |.!. 22:!cltype%=|
00000b20  a3 3a d6 20 75 70 64 61  74 65 63 6c 6f 63 6b 0d  |.:. updateclock.|
00000b30  04 06 0f c9 20 32 33 3a  f2 63 6c 6f 63 6b 0d 04  |.... 23:.clock..|
00000b40  10 18 c9 20 32 37 3a 73  63 6f 6e 66 25 3d ac 20  |... 27:sconf%=. |
00000b50  73 63 6f 6e 66 25 0d 04  1a 16 c9 20 32 38 3a 6f  |sconf%..... 28:o|
00000b60  70 65 6e 25 3d ac 20 6f  70 65 6e 25 0d 04 24 1c  |pen%=. open%..$.|
00000b70  c9 20 33 30 3a 66 63 68  61 6e 67 65 25 3d ac 20  |. 30:fchange%=. |
00000b80  66 63 68 61 6e 67 65 25  0d 04 2e 3c c9 20 33 31  |fchange%...<. 31|
00000b90  3a 63 6c 6f 63 6b 66 6f  6e 74 25 3d ac 20 63 6c  |:clockfont%=. cl|
00000ba0  6f 63 6b 66 6f 6e 74 25  3a f2 63 6c 6f 63 6b 3a  |ockfont%:.clock:|
00000bb0  f2 63 6c 6f 63 6b 3a d6  20 75 70 64 61 74 65 63  |.clock:. updatec|
00000bc0  6c 6f 63 6b 0d 04 38 22  c9 20 33 32 3a 73 68 75  |lock..8". 32:shu|
00000bd0  74 73 71 75 61 73 68 25  3d ac 20 73 68 75 74 73  |tsquash%=. shuts|
00000be0  71 75 61 73 68 25 0d 04  39 2d c9 20 33 33 3a ff  |quash%..9-. 33:.|
00000bf0  28 22 46 69 6c 65 72 5f  4f 70 65 6e 44 69 72 20  |("Filer_OpenDir |
00000c00  22 2b 68 6f 6d 65 24 2b  22 2e 53 70 72 69 74 65  |"+home$+".Sprite|
00000c10  73 22 29 0d 04 42 05 cb  0d 04 4c 0d c9 20 43 6f  |s")..B....L.. Co|
00000c20  6e 66 69 67 25 0d 04 56  0e c8 8e 20 69 63 6f 6e  |nfig%..V... icon|
00000c30  25 20 ca 0d 04 60 0f c9  20 30 3a f2 73 61 76 6f  |% ...`.. 0:.savo|
00000c40  70 74 0d 04 6a 07 c9 20  31 0d 04 74 18 f2 67 65  |pt..j.. 1..t..ge|
00000c50  74 62 69 6e 28 30 29 3a  f2 69 62 61 72 28 22 22  |tbin(0):.ibar(""|
00000c60  29 0d 04 7e 22 e7 20 28  ac 20 62 61 64 62 69 6e  |)..~". (. badbin|
00000c70  25 29 20 80 20 28 62 75  74 74 6f 6e 73 25 3d 34  |%) . (buttons%=4|
00000c80  29 20 8c 0d 04 88 45 21  62 6c 25 3d 50 61 6e 65  |) ....E!bl%=Pane|
00000c90  25 3a c8 99 26 34 30 30  43 36 2c 2c 62 6c 25 3a  |%:..&400C6,,bl%:|
00000ca0  21 62 6c 25 3d 43 6f 6e  66 69 67 25 3a c8 99 26  |!bl%=Config%:..&|
00000cb0  34 30 30 43 36 2c 2c 62  6c 25 3a 63 6f 6e 66 69  |400C6,,bl%:confi|
00000cc0  67 6f 70 65 6e 25 3d a3  0d 04 92 05 cd 0d 04 9c  |gopen%=.........|
00000cd0  05 cb 0d 04 a6 3d c9 20  49 6e 66 6f 25 3a e7 20  |.....=. Info%:. |
00000ce0  69 63 6f 6e 25 3d 30 20  ff 28 22 57 69 6d 70 54  |icon%=0 .("WimpT|
00000cf0  61 73 6b 20 46 69 6c 65  72 5f 52 75 6e 20 22 2b  |ask Filer_Run "+|
00000d00  68 6f 6d 65 24 2b 22 2e  21 48 65 6c 70 22 29 0d  |home$+".!Help").|
00000d10  04 b0 0b c9 20 41 75 74  6f 25 0d 04 ba 49 e7 20  |.... Auto%...I. |
00000d20  69 63 6f 6e 25 3d 31 31  20 f2 74 79 70 65 6d 65  |icon%=11 .typeme|
00000d30  6e 75 28 78 25 2c 79 25  29 3a c8 99 26 34 30 30  |nu(x%,y%):..&400|
00000d40  44 32 2c 41 75 74 6f 25  2c 31 2c 2c 2c 2d 31 2c  |D2,Auto%,1,,,-1,|
00000d50  30 20 8b f2 72 65 73 70  73 61 76 65 28 69 63 6f  |0 ..respsave(ico|
00000d60  6e 25 29 0d 04 c4 0c c9  20 4d 61 76 69 73 25 0d  |n%)..... Mavis%.|
00000d70  04 ce 0e c8 8e 20 69 63  6f 6e 25 20 ca 0d 04 d8  |..... icon% ....|
00000d80  07 c9 20 34 0d 04 e2 39  e7 20 24 28 a4 6c 75 73  |.. 4...9. $(.lus|
00000d90  74 28 4d 61 76 69 73 25  2c 34 29 29 3d 22 41 62  |t(Mavis%,4))="Ab|
00000da0  6f 72 74 22 20 77 69 70  25 3d 30 3a f2 66 69 6e  |ort" wip%=0:.fin|
00000db0  69 73 68 20 8b f2 66 69  6e 64 28 34 29 0d 04 ec  |ish ..find(4)...|
00000dc0  1d c9 20 37 3a 63 61 73  65 73 65 6e 73 25 3d ac  |.. 7:casesens%=.|
00000dd0  20 63 61 73 65 73 65 6e  73 25 0d 04 f6 32 c9 20  | casesens%...2. |
00000de0  38 3a f2 74 79 70 65 6d  65 6e 75 28 78 25 2c 79  |8:.typemenu(x%,y|
00000df0  25 29 3a c8 99 26 34 30  30 44 32 2c 4d 61 76 69  |%):..&400D2,Mavi|
00000e00  73 25 2c 31 33 2c 2c 2c  2d 31 2c 30 0d 05 00 10  |s%,13,,,-1,0....|
00000e10  c9 20 39 3a 66 66 61 63  74 25 3d 31 0d 05 0a 11  |. 9:ffact%=1....|
00000e20  c9 20 31 30 3a 66 66 61  63 74 25 3d 32 0d 05 14  |. 10:ffact%=2...|
00000e30  11 c9 20 32 32 3a 66 66  61 63 74 25 3d 33 0d 05  |.. 22:ffact%=3..|
00000e40  1e 14 c9 20 32 34 3a 75  73 65 61 72 63 66 73 25  |... 24:usearcfs%|
00000e50  3d 30 0d 05 28 14 c9 20  32 35 3a 75 73 65 61 72  |=0..(.. 25:usear|
00000e60  63 66 73 25 3d 31 0d 05  32 14 c9 20 32 36 3a 75  |cfs%=1..2.. 26:u|
00000e70  73 65 61 72 63 66 73 25  3d 32 0d 05 3c 08 c9 20  |searcfs%=2..<.. |
00000e80  32 37 0d 05 46 15 66 66  66 61 73 74 25 3d ac 20  |27..F.fffast%=. |
00000e90  66 66 66 61 73 74 25 0d  05 50 18 e7 20 77 69 70  |fffast%..P.. wip|
00000ea0  25 3e 30 20 80 20 66 66  66 61 73 74 25 20 8c 0d  |%>0 . fffast% ..|
00000eb0  05 5a 4c f2 69 62 61 72  28 22 53 65 61 72 63 68  |.ZL.ibar("Search|
00000ec0  69 6e 67 22 29 3a f2 70  73 28 4d 61 76 69 73 25  |ing"):.ps(Mavis%|
00000ed0  2c 31 38 2c 22 22 29 3a  f2 70 73 28 4d 61 76 69  |,18,""):.ps(Mavi|
00000ee0  73 25 2c 31 39 2c 22 22  29 3a f2 70 73 28 4d 61  |s%,19,""):.ps(Ma|
00000ef0  76 69 73 25 2c 32 31 2c  22 22 29 0d 05 64 05 cc  |vis%,21,"")..d..|
00000f00  0d 05 6e 55 f2 70 73 28  4d 61 76 69 73 25 2c 31  |..nU.ps(Mavis%,1|
00000f10  39 2c c3 28 74 6f 74 25  29 2b 22 20 66 69 6c 65  |9,.(tot%)+" file|
00000f20  73 20 66 6f 75 6e 64 22  29 3a f2 70 73 28 4d 61  |s found"):.ps(Ma|
00000f30  76 69 73 25 2c 31 38 2c  c3 28 74 6f 74 61 6c 73  |vis%,18,.(totals|
00000f40  69 7a 65 25 29 2b 22 20  62 79 74 65 73 20 74 6f  |ize%)+" bytes to|
00000f50  74 61 6c 22 29 0d 05 78  05 cd 0d 05 82 05 cb 0d  |tal")..x........|
00000f60  05 8c 22 c9 20 51 75 65  72 79 25 3a e7 20 69 63  |..". Query%:. ic|
00000f70  6f 6e 25 3e 30 20 f2 65  65 64 28 69 63 6f 6e 25  |on%>0 .eed(icon%|
00000f80  29 0d 05 96 1d c9 20 46  6f 75 6e 64 25 3a f2 66  |)..... Found%:.f|
00000f90  63 6c 69 63 6b 65 64 28  78 25 2c 79 25 29 0d 05  |clicked(x%,y%)..|
00000fa0  a0 05 cb 0d 05 aa 05 e1  0d 05 b4 0d dd f2 6f 70  |..............op|
00000fb0  65 6e 62 69 6e 0d 05 be  0e ea 20 6f 70 65 6e 69  |enbin..... openi|
00000fc0  6e 67 24 0d 05 c8 07 ea  20 85 0d 05 d2 31 ee 20  |ng$..... ....1. |
00000fd0  85 20 ea 20 f2 6c 61 6d  61 74 69 6f 6e 28 22 49  |. . .lamation("I|
00000fe0  6e 74 65 72 6e 61 6c 20  45 72 72 6f 72 20 3a 20  |nternal Error : |
00000ff0  22 2b f6 24 2c 30 2c 30  29 3a e1 0d 05 dc 1a f2  |"+.$,0,0):......|
00001000  67 65 74 62 69 6e 28 30  29 3a e7 20 62 61 64 62  |getbin(0):. badb|
00001010  69 6e 25 20 e1 0d 05 e6  11 6f 70 65 6e 69 6e 67  |in% .....opening|
00001020  24 3d 62 69 6e 24 0d 05  f0 3a e7 20 a4 6f 62 6a  |$=bin$...:. .obj|
00001030  74 79 70 65 28 62 69 6e  24 2b 22 2e 22 2b 74 6f  |type(bin$+"."+to|
00001040  64 61 79 24 29 3d 32 20  6f 70 65 6e 69 6e 67 24  |day$)=2 opening$|
00001050  3d 62 69 6e 24 2b 22 2e  22 2b 74 6f 64 61 79 24  |=bin$+"."+today$|
00001060  0d 05 fa 11 c8 99 26 34  30 30 43 46 2c 2c 62 6c  |......&400CF,,bl|
00001070  25 0d 06 04 36 ff 28 22  46 69 6c 65 72 5f 4f 70  |%...6.("Filer_Op|
00001080  65 6e 44 69 72 20 22 2b  6f 70 65 6e 69 6e 67 24  |enDir "+opening$|
00001090  2b 22 20 22 2b c3 62 6c  25 21 30 2b 22 20 22 2b  |+" "+.bl%!0+" "+|
000010a0  c3 62 6c 25 21 34 29 0d  06 0e 05 e1 0d 06 18 2a  |.bl%!4)........*|
000010b0  dd f2 44 65 63 6f 64 65  4d 65 6e 75 28 69 74 65  |..DecodeMenu(ite|
000010c0  6d 25 2c 73 75 62 69 74  65 6d 25 2c 73 75 62 69  |m%,subitem%,subi|
000010d0  74 65 6d 32 25 29 0d 06  22 0e c8 8e 20 69 74 65  |tem2%).."... ite|
000010e0  6d 25 20 ca 0d 06 2c 07  c9 20 37 0d 06 36 20 e7  |m% ...,.. 7..6 .|
000010f0  20 73 68 75 74 73 71 75  61 73 68 25 20 80 20 75  | shutsquash% . u|
00001100  73 65 64 74 6f 64 61 79  25 20 8c 0d 06 40 2a 73  |sedtoday% ...@*s|
00001110  68 75 74 73 71 75 61 73  68 25 3d a3 3a f2 73 71  |hutsquash%=.:.sq|
00001120  75 61 73 68 28 62 69 6e  24 2b 22 2e 22 2b 74 6f  |uash(bin$+"."+to|
00001130  64 61 79 24 29 0d 06 4a  16 f5 3a f2 66 72 65 64  |day$)..J..:.fred|
00001140  28 34 29 3a fd 77 69 70  25 3d 30 0d 06 54 05 cd  |(4):.wip%=0..T..|
00001150  0d 06 5e 0e f2 62 75 67  67 65 72 6f 66 66 0d 06  |..^..buggeroff..|
00001160  68 07 c9 20 36 0d 06 72  11 c8 8e 20 73 75 62 69  |h.. 6..r... subi|
00001170  74 65 6d 25 20 ca 0d 06  7c 32 c9 20 2d 31 2c 30  |tem% ...|2. -1,0|
00001180  3a ff 28 22 46 69 6c 65  72 5f 4f 70 65 6e 44 69  |:.("Filer_OpenDi|
00001190  72 20 22 2b 68 6f 6d 65  24 2b 22 2e 4d 6f 64 75  |r "+home$+".Modu|
000011a0  6c 65 4b 69 6c 6c 22 29  0d 06 86 2d c9 20 31 3a  |leKill")...-. 1:|
000011b0  c8 99 22 58 4f 53 5f 43  68 61 6e 67 65 44 79 6e  |.."XOS_ChangeDyn|
000011c0  61 6d 69 63 41 72 65 61  22 2c 31 2c 2d 31 36 30  |amicArea",1,-160|
000011d0  30 30 30 30 30 0d 06 90  30 7f 3a f2 6d 6f 64 75  |00000...0.:.modu|
000011e0  6c 65 6b 69 6c 6c 28 24  28 28 6d 6f 64 6d 65 6d  |lekill($((modmem|
000011f0  25 2b 34 30 29 2b 28 32  34 2a 73 75 62 69 74 65  |%+40)+(24*subite|
00001200  6d 25 29 29 29 0d 06 9a  05 cb 0d 06 a4 15 c9 20  |m%))).......... |
00001210  35 3a f2 6f 70 65 6e 66  69 6c 65 66 69 6e 64 0d  |5:.openfilefind.|
00001220  06 ae 14 c9 20 34 3a f2  6f 70 65 6e 28 41 75 74  |.... 4:.open(Aut|
00001230  6f 25 29 0d 06 b8 07 c9  20 33 0d 06 c2 11 c8 8e  |o%)..... 3......|
00001240  20 73 75 62 69 74 65 6d  25 20 ca 0d 06 cc 35 c9  | subitem% ....5.|
00001250  20 6d 65 6d 66 73 25 3a  f2 6c 61 6d 61 74 69 6f  | memfs%:.lamatio|
00001260  6e 28 a4 6d 73 67 28 22  72 61 6d 22 2c 22 4d 65  |n(.msg("ram","Me|
00001270  6d 70 68 69 73 22 2c 22  22 29 2c 2d 31 2c 35 29  |mphis",""),-1,5)|
00001280  0d 06 d6 33 c9 20 72 61  6d 64 69 73 63 25 3a f2  |...3. ramdisc%:.|
00001290  6c 61 6d 61 74 69 6f 6e  28 a4 6d 73 67 28 22 72  |lamation(.msg("r|
000012a0  61 6d 22 2c 22 52 41 4d  22 2c 22 22 29 2c 2d 31  |am","RAM",""),-1|
000012b0  2c 32 29 0d 06 e0 05 7f  0d 06 ea 3d e7 20 73 75  |,2)........=. su|
000012c0  62 69 74 65 6d 25 3e 2d  31 20 f2 6c 61 6d 61 74  |bitem%>-1 .lamat|
000012d0  69 6f 6e 28 a4 6d 73 67  28 22 64 69 73 63 22 2c  |ion(.msg("disc",|
000012e0  c3 28 73 75 62 69 74 65  6d 25 29 2c 22 22 29 2c  |.(subitem%),""),|
000012f0  2d 31 2c 33 29 0d 06 f4  19 77 69 70 69 6e 67 64  |-1,3)....wipingd|
00001300  72 69 76 65 25 3d 73 75  62 69 74 65 6d 25 0d 06  |rive%=subitem%..|
00001310  fe 05 cb 0d 07 08 07 c9  20 32 0d 07 12 11 c8 8e  |........ 2......|
00001320  20 73 75 62 69 74 65 6d  25 20 ca 0d 07 1c 07 c9  | subitem% ......|
00001330  20 30 0d 07 26 12 c8 8e  20 73 75 62 69 74 65 6d  | 0..&... subitem|
00001340  32 25 20 ca 0d 07 30 25  c9 20 2d 31 2c 30 3a f2  |2% ...0%. -1,0:.|
00001350  64 65 73 63 6f 6e 28 62  69 6e 24 29 3a 75 73 65  |descon(bin$):use|
00001360  64 74 6f 64 61 79 25 3d  a3 0d 07 3a 51 7f 3a f2  |dtoday%=...:Q.:.|
00001370  64 65 73 63 6f 6e 28 a4  77 68 69 63 68 28 73 75  |descon(.which(su|
00001380  62 69 74 65 6d 32 25 29  29 3a e7 20 a4 77 68 69  |bitem2%)):. .whi|
00001390  63 68 28 73 75 62 69 74  65 6d 32 25 29 3d 62 69  |ch(subitem2%)=bi|
000013a0  6e 24 2b 22 2e 22 2b 74  6f 64 61 79 24 20 75 73  |n$+"."+today$ us|
000013b0  65 64 74 6f 64 61 79 25  3d a3 0d 07 44 05 cb 0d  |edtoday%=...D...|
000013c0  07 4e 07 c9 20 31 0d 07  58 12 c8 8e 20 73 75 62  |.N.. 1..X... sub|
000013d0  69 74 65 6d 32 25 20 ca  0d 07 62 1a c9 20 2d 31  |item2% ...b.. -1|
000013e0  2c 30 3a f2 63 6f 75 6e  74 64 69 72 28 62 69 6e  |,0:.countdir(bin|
000013f0  24 29 0d 07 6c 22 7f 3a  f2 63 6f 75 6e 74 64 69  |$)..l".:.countdi|
00001400  72 28 a4 77 68 69 63 68  28 73 75 62 69 74 65 6d  |r(.which(subitem|
00001410  32 25 29 29 0d 07 76 05  cb 0d 07 80 07 c9 20 32  |2%))..v....... 2|
00001420  0d 07 8a 12 c8 8e 20 73  75 62 69 74 65 6d 32 25  |...... subitem2%|
00001430  20 ca 0d 07 94 17 c9 20  2d 31 2c 30 3a f2 69 6e  | ...... -1,0:.in|
00001440  63 6f 6e 28 62 69 6e 24  29 0d 07 9e 1f 7f 3a f2  |con(bin$).....:.|
00001450  69 6e 63 6f 6e 28 a4 77  68 69 63 68 28 73 75 62  |incon(.which(sub|
00001460  69 74 65 6d 32 25 29 29  0d 07 a8 05 cb 0d 07 b2  |item2%))........|
00001470  07 c9 20 33 0d 07 bc 12  c8 8e 20 73 75 62 69 74  |.. 3...... subit|
00001480  65 6d 32 25 20 ca 0d 07  c6 18 c9 20 2d 31 2c 30  |em2% ...... -1,0|
00001490  3a f2 73 71 75 61 73 68  28 62 69 6e 24 29 0d 07  |:.squash(bin$)..|
000014a0  d0 20 7f 3a f2 73 71 75  61 73 68 28 a4 77 68 69  |. .:.squash(.whi|
000014b0  63 68 28 73 75 62 69 74  65 6d 32 25 29 29 0d 07  |ch(subitem2%))..|
000014c0  da 05 cb 0d 07 e4 07 c9  20 34 0d 07 ee 12 c8 8e  |........ 4......|
000014d0  20 73 75 62 69 74 65 6d  32 25 20 ca 0d 07 f8 25  | subitem2% ....%|
000014e0  c9 20 2d 31 2c 30 3a f2  70 61 72 72 6f 74 28 31  |. -1,0:.parrot(1|
000014f0  2c 32 30 30 2c 73 63 72  79 25 2f 32 2b 32 30 30  |,200,scry%/2+200|
00001500  29 0d 08 02 05 7f 0d 08  0c 11 c8 99 26 34 30 30  |)...........&400|
00001510  43 46 2c 2c 62 6c 25 0d  08 16 45 ff 28 22 46 69  |CF,,bl%...E.("Fi|
00001520  6c 65 72 5f 4f 70 65 6e  44 69 72 20 22 2b a4 77  |ler_OpenDir "+.w|
00001530  68 69 63 68 28 73 75 62  69 74 65 6d 32 25 29 2b  |hich(subitem2%)+|
00001540  22 20 22 2b c3 28 62 6c  25 21 30 29 2b 22 20 22  |" "+.(bl%!0)+" "|
00001550  2b c3 28 73 63 72 79 25  2f 32 29 29 0d 08 20 05  |+.(scry%/2)).. .|
00001560  cb 0d 08 2a 05 cb 0d 08  34 22 c9 20 31 3a f2 6f  |...*....4". 1:.o|
00001570  70 65 6e 63 6f 6e 66 69  67 3a f2 72 65 73 69 7a  |penconfig:.resiz|
00001580  65 63 6f 6e 66 69 67 31  0d 08 3e 05 cb 0d 08 48  |econfig1..>....H|
00001590  12 c8 99 20 26 34 30 30  43 46 2c 2c 62 6c 25 0d  |... &400CF,,bl%.|
000015a0  08 52 27 e7 20 28 62 6c  25 21 38 20 80 20 31 29  |.R'. (bl%!8 . 1)|
000015b0  3d 31 20 f2 6d 6b 6d 65  6e 28 62 6c 25 21 34 2c  |=1 .mkmen(bl%!4,|
000015c0  62 6c 25 21 38 29 0d 08  5c 05 e1 0d 08 66 12 dd  |bl%!8)..\....f..|
000015d0  a4 77 68 69 63 68 28 69  74 65 6d 25 29 0d 08 70  |.which(item%)..p|
000015e0  0a ea 20 64 69 72 24 0d  08 7a 24 64 69 72 24 3d  |.. dir$..z$dir$=|
000015f0  24 28 28 62 69 6e 6d 65  6e 75 25 2b 34 30 29 2b  |$((binmenu%+40)+|
00001600  28 32 34 2a 69 74 65 6d  25 29 29 0d 08 84 12 3d  |(24*item%))....=|
00001610  62 69 6e 24 2b 22 2e 22  2b 64 69 72 24 0d 08 8e  |bin$+"."+dir$...|
00001620  0e dd f2 65 65 64 28 69  63 25 29 0d 08 98 0f c8  |...eed(ic%).....|
00001630  8e 20 71 75 65 72 79 25  20 ca 0d 08 a2 2d c9 20  |. query% ....-. |
00001640  32 3a e7 20 69 63 25 3d  31 20 f2 5f 43 61 72 64  |2:. ic%=1 ._Card|
00001650  69 6e 61 6c 5f 52 69 63  68 65 6c 69 65 75 28 22  |inal_Richelieu("|
00001660  52 41 4d 3a 24 22 29 0d  08 ac 41 c9 20 33 3a e7  |RAM:$")...A. 3:.|
00001670  20 69 63 25 3d 31 20 f2  5f 43 61 72 64 69 6e 61  | ic%=1 ._Cardina|
00001680  6c 5f 52 69 63 68 65 6c  69 65 75 28 22 61 64 66  |l_Richelieu("adf|
00001690  73 3a 3a 22 2b c3 77 69  70 69 6e 67 64 72 69 76  |s::"+.wipingdriv|
000016a0  65 25 2b 22 2e 24 22 29  0d 08 b6 07 c9 20 34 0d  |e%+".$")..... 4.|
000016b0  08 c0 0d e7 20 69 63 25  3d 31 20 8c 0d 08 ca 15  |.... ic%=1 .....|
000016c0  e7 20 64 65 73 70 61 74  68 24 3d 62 69 6e 24 20  |. despath$=bin$ |
000016d0  8c 0d 08 d4 1e f2 5f 43  61 72 64 69 6e 61 6c 5f  |......_Cardinal_|
000016e0  52 69 63 68 65 6c 69 65  75 28 62 69 6e 24 29 0d  |Richelieu(bin$).|
000016f0  08 de 05 cc 0d 08 e8 1a  f2 67 65 74 6c 65 61 66  |.........getleaf|
00001700  6e 61 6d 65 28 64 65 73  70 61 74 68 24 29 0d 08  |name(despath$)..|
00001710  f2 28 24 62 6c 25 3d c2  6c 65 61 66 6e 61 6d 65  |.($bl%=.leafname|
00001720  24 2c a9 6c 65 61 66 6e  61 6d 65 24 2d 31 29 2b  |$,.leafname$-1)+|
00001730  bd 30 2b 22 20 22 0d 08  fc 45 64 65 73 63 6f 6e  |.0+" "...Edescon|
00001740  68 61 6e 64 6c 65 25 3d  a4 66 69 6c 65 72 61 63  |handle%=.filerac|
00001750  74 69 6f 6e 28 32 2c 25  30 30 31 30 30 2b 28 77  |tion(2,%00100+(w|
00001760  69 70 65 6f 70 74 25 20  80 20 31 29 2c 62 69 6e  |ipeopt% . 1),bin|
00001770  24 2c 62 6c 25 2c 22 22  2c 30 29 0d 09 06 05 cd  |$,bl%,"",0).....|
00001780  0d 09 10 05 cd 0d 09 1a  2d c9 20 35 3a e7 20 69  |........-. 5:. i|
00001790  63 25 3d 31 20 f2 5f 43  61 72 64 69 6e 61 6c 5f  |c%=1 ._Cardinal_|
000017a0  52 69 63 68 65 6c 69 65  75 28 22 4d 65 6d 3a 24  |Richelieu("Mem:$|
000017b0  22 29 0d 09 24 07 c9 20  36 0d 09 2e 0d e7 20 69  |")..$.. 6..... i|
000017c0  63 25 3d 32 20 8c 0d 09  38 3a f2 69 62 61 72 28  |c%=2 ...8:.ibar(|
000017d0  22 22 29 3a 21 62 79 65  25 3d 31 31 3a 70 6f 6c  |""):!bye%=11:pol|
000017e0  6c 6d 61 73 6b 25 3d a4  70 6f 6c 6c 6d 61 73 6b  |lmask%=.pollmask|
000017f0  3a 7a 61 70 70 61 25 3d  30 3a 77 69 70 25 3d 30  |:zappa%=0:wip%=0|
00001800  0d 09 42 4f f2 63 68 61  6e 67 65 6d 61 76 69 73  |..BO.changemavis|
00001810  28 22 47 4f 22 2c 22 50  72 65 76 69 6f 75 73 20  |("GO","Previous |
00001820  53 65 61 72 63 68 3a 22  29 3a f2 70 73 28 4d 61  |Search:"):.ps(Ma|
00001830  76 69 73 25 2c 31 39 2c  c3 28 74 6f 74 25 29 2b  |vis%,19,.(tot%)+|
00001840  22 20 66 69 6c 65 73 20  66 6f 75 6e 64 22 29 0d  |" files found").|
00001850  09 4c 3f f2 70 73 28 4d  61 76 69 73 25 2c 31 38  |.L?.ps(Mavis%,18|
00001860  2c c3 28 74 6f 74 61 6c  73 69 7a 65 25 29 2b 22  |,.(totalsize%)+"|
00001870  20 62 79 74 65 73 20 74  6f 74 61 6c 22 29 3a f2  | bytes total"):.|
00001880  67 6d 61 76 69 73 28 30  2c 67 72 65 79 29 0d 09  |gmavis(0,grey)..|
00001890  56 05 cd 0d 09 60 18 c9  20 38 3a e7 20 69 63 25  |V....`.. 8:. ic%|
000018a0  3d 31 20 f2 62 69 6e 63  6f 6e 76 0d 09 6a 34 c9  |=1 .binconv..j4.|
000018b0  20 39 3a e7 20 69 63 25  3d 31 20 f2 73 74 61 72  | 9:. ic%=1 .star|
000018c0  74 77 69 70 65 28 49 6c  63 68 65 73 74 65 72 24  |twipe(Ilchester$|
000018d0  29 3a 75 6e 64 65 72 74  61 6b 65 72 25 3d b9 0d  |):undertaker%=..|
000018e0  09 74 46 c9 20 31 30 3a  e7 20 69 63 25 3d 31 20  |.tF. 10:. ic%=1 |
000018f0  ff 28 22 57 69 70 65 20  22 2b 49 6c 63 68 65 73  |.("Wipe "+Ilches|
00001900  74 65 72 24 2b 22 20 7e  43 46 52 7e 56 22 29 3a  |ter$+" ~CFR~V"):|
00001910  75 6e 64 65 72 74 61 6b  65 72 25 3d a3 3a f2 62  |undertaker%=.:.b|
00001920  75 72 69 61 6c 0d 09 7e  05 cb 0d 09 88 07 f2 74  |urial..~.......t|
00001930  66 0d 09 92 05 e1 0d 09  9c 20 dd f2 5f 43 61 72  |f........ .._Car|
00001940  64 69 6e 61 6c 5f 52 69  63 68 65 6c 69 65 75 28  |dinal_Richelieu(|
00001950  70 61 74 68 24 29 0d 09  a6 0e ea 20 6e 25 2c 61  |path$)..... n%,a|
00001960  64 64 72 25 0d 09 b0 1e  6d 65 6d 25 3d a4 64 69  |ddr%....mem%=.di|
00001970  6d 28 33 30 30 30 29 3a  e7 20 6d 65 6d 25 3d 30  |m(3000):. mem%=0|
00001980  20 e1 0d 09 ba 07 ea 20  85 0d 09 c4 21 ee 20 85  | ...... ....!. .|
00001990  20 ea 20 f2 74 66 3a f2  6c 61 6d 61 74 69 6f 6e  | . .tf:.lamation|
000019a0  28 f6 24 2c 30 2c 31 29  3a e1 0d 09 ce 29 c8 99  |(.$,0,1):....)..|
000019b0  26 43 2c 39 2c 70 61 74  68 24 2c 6d 65 6d 25 2c  |&C,9,path$,mem%,|
000019c0  37 37 2c 30 2c 33 30 30  30 2c 30 20 b8 20 2c 2c  |77,0,3000,0 . ,,|
000019d0  2c 6e 25 0d 09 d8 0c e7  20 6e 25 3e 30 20 8c 0d  |,n%..... n%>0 ..|
000019e0  09 e2 2c c8 99 26 36 30  30 44 45 2c 22 2a 46 69  |..,..&600DE,"*Fi|
000019f0  6c 65 72 5f 41 63 74 69  6f 6e 22 20 b8 20 64 65  |ler_Action" . de|
00001a00  73 63 6f 6e 68 61 6e 64  6c 65 25 0d 09 ec 20 c8  |sconhandle%... .|
00001a10  99 26 36 30 46 38 30 2c  64 65 73 63 6f 6e 68 61  |.&60F80,desconha|
00001a20  6e 64 6c 65 25 2c 70 61  74 68 24 0d 09 f6 0e 61  |ndle%,path$....a|
00001a30  64 64 72 25 3d 6d 65 6d  25 0d 0a 00 0e e3 6c 25  |ddr%=mem%.....l%|
00001a40  3d 31 20 b8 20 6e 25 0d  0a 0a 26 c8 99 26 36 30  |=1 . n%...&..&60|
00001a50  46 38 31 2c 64 65 73 63  6f 6e 68 61 6e 64 6c 65  |F81,desconhandle|
00001a60  25 2c a4 62 75 6d 28 61  64 64 72 25 29 0d 0a 14  |%,.bum(addr%)...|
00001a70  05 ed 0d 0a 1e 32 c8 99  26 36 30 46 38 32 2c 64  |.....2..&60F82,d|
00001a80  65 73 63 6f 6e 68 61 6e  64 6c 65 25 2c 32 2c 25  |esconhandle%,2,%|
00001a90  30 30 31 30 30 2b 28 77  69 70 65 6f 70 74 25 20  |00100+(wipeopt% |
00001aa0  80 20 31 29 0d 0a 28 05  cd 0d 0a 32 05 e1 0d 0a  |. 1)..(....2....|
00001ab0  3c 08 dd f2 74 66 0d 0a  46 4f f2 63 6c 6f 73 65  |<...tf..FO.close|
00001ac0  28 51 75 65 72 79 25 29  3a 71 75 65 72 79 25 3d  |(Query%):query%=|
00001ad0  30 3a c8 97 20 c8 93 20  30 2c 30 2c 73 63 72 78  |0:.. .. 0,0,scrx|
00001ae0  25 2c 73 63 72 79 25 3a  f2 69 62 61 72 28 22 22  |%,scry%:.ibar(""|
00001af0  29 3a 70 6f 6c 6c 6d 61  73 6b 25 3d a4 70 6f 6c  |):pollmask%=.pol|
00001b00  6c 6d 61 73 6b 0d 0a 50  05 e1 0d 0a 5a 20 dd f2  |lmask..P....Z ..|
00001b10  6d 65 73 73 61 67 65 28  74 61 73 6b 68 61 6e 64  |message(taskhand|
00001b20  25 2c 74 68 69 6e 67 79  25 29 0d 0a 64 11 ea 20  |%,thingy%)..d.. |
00001b30  68 61 6e 64 25 2c 69 63  6f 6e 25 0d 0a 6e 10 c8  |hand%,icon%..n..|
00001b40  8e 20 74 68 69 6e 67 79  25 20 ca 0d 0a 78 12 c9  |. thingy% ...x..|
00001b50  20 30 3a f2 62 75 67 67  65 72 6f 66 66 0d 0a 82  | 0:.buggeroff...|
00001b60  07 c9 20 31 0d 0a 8c 15  c8 99 26 34 30 30 43 46  |.. 1......&400CF|
00001b70  2c 2c 62 6c 32 25 2b 32  38 0d 0a 96 1f 68 61 6e  |,,bl2%+28....han|
00001b80  64 25 3d 62 6c 32 25 21  34 30 3a 69 63 6f 6e 25  |d%=bl2%!40:icon%|
00001b90  3d 62 6c 32 25 21 34 34  0d 0a a0 38 e7 20 68 61  |=bl2%!44...8. ha|
00001ba0  6e 64 25 3d 2d 32 20 80  20 69 63 6f 6e 25 3d 68  |nd%=-2 . icon%=h|
00001bb0  6f 6c 65 25 20 73 61 76  69 6e 67 25 3d b9 3a f2  |ole% saving%=.:.|
00001bc0  73 61 76 65 66 69 6c 65  28 62 6c 25 21 34 30 29  |savefile(bl%!40)|
00001bd0  0d 0a aa 10 c9 20 33 3a  f2 64 72 61 67 67 65 64  |..... 3:.dragged|
00001be0  0d 0a b4 07 c9 20 38 0d  0a be 20 e7 20 73 68 75  |..... 8... . shu|
00001bf0  74 73 71 75 61 73 68 25  20 80 20 75 73 65 64 74  |tsquash% . usedt|
00001c00  6f 64 61 79 25 20 8c 0d  0a c8 2a 73 68 75 74 73  |oday% ....*shuts|
00001c10  71 75 61 73 68 25 3d a3  3a f2 73 71 75 61 73 68  |quash%=.:.squash|
00001c20  28 62 69 6e 24 2b 22 2e  22 2b 74 6f 64 61 79 24  |(bin$+"."+today$|
00001c30  29 0d 0a d2 16 f5 3a f2  66 72 65 64 28 34 29 3a  |).....:.fred(4):|
00001c40  fd 77 69 70 25 3d 30 0d  0a dc 2e 62 6c 25 21 31  |.wip%=0....bl%!1|
00001c50  32 3d 62 6c 25 21 38 3a  c8 99 22 57 69 6d 70 5f  |2=bl%!8:.."Wimp_|
00001c60  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 39 2c  |SendMessage",19,|
00001c70  62 6c 25 2c 30 0d 0a e6  22 c8 99 22 57 69 6d 70  |bl%,0...".."Wimp|
00001c80  5f 47 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_GetCaretPositio|
00001c90  6e 22 2c 2c 62 6c 25 0d  0a f0 34 62 6c 25 21 32  |n",,bl%...4bl%!2|
00001ca0  34 3d 26 31 46 43 3a c8  99 22 57 69 6d 70 5f 53  |4=&1FC:.."Wimp_S|
00001cb0  65 6e 64 4d 65 73 73 61  67 65 22 2c 38 2c 62 6c  |endMessage",8,bl|
00001cc0  25 2c 74 61 73 6b 68 61  6e 64 25 0d 0a fa 0e f2  |%,taskhand%.....|
00001cd0  62 75 67 67 65 72 6f 66  66 0d 0b 04 05 cd 0d 0b  |buggeroff.......|
00001ce0  0e 2a c9 20 31 30 3a 68  61 6e 64 25 3d 62 6c 25  |.*. 10:hand%=bl%|
00001cf0  21 32 30 3a d5 23 68 61  6e 64 25 2c 22 52 75 6e  |!20:.#hand%,"Run|
00001d00  20 22 2b 68 6f 6d 65 24  0d 0b 18 26 c9 20 26 35  | "+home$...&. &5|
00001d10  30 32 3a f2 72 65 70 6c  79 74 6f 68 65 6c 70 28  |02:.replytohelp(|
00001d20  62 6c 25 21 33 32 2c 62  6c 25 21 33 36 29 0d 0b  |bl%!32,bl%!36)..|
00001d30  22 0c c9 20 26 34 30 30  43 31 0d 0b 2c 10 e7 20  |".. &400C1..,.. |
00001d40  eb 3c 3e 6d 6f 64 65 25  20 8c 0d 0b 36 1e f2 72  |.<>mode% ...6..r|
00001d50  65 73 69 7a 65 66 6f 6e  74 73 3a f2 63 6c 6f 63  |esizefonts:.cloc|
00001d60  6b 3a f2 63 6c 6f 63 6b  0d 0b 40 2b d6 20 75 70  |k:.clock..@+. up|
00001d70  64 61 74 65 63 6c 6f 63  6b 3a e7 20 66 63 68 61  |dateclock:. fcha|
00001d80  6e 67 65 25 20 f2 63 68  61 6e 67 65 73 70 72 69  |nge% .changespri|
00001d90  74 65 73 0d 0b 4a 3d 6d  6f 64 65 25 3d eb 3a e7  |tes..J=mode%=.:.|
00001da0  20 63 6f 6e 66 69 67 6f  70 65 6e 25 20 72 65 73  | configopen% res|
00001db0  69 7a 65 6e 65 65 64 65  64 25 3d b9 3a 70 6f 6c  |izeneeded%=.:pol|
00001dc0  6c 6d 61 73 6b 25 3d a4  70 6f 6c 6c 6d 61 73 6b  |lmask%=.pollmask|
00001dd0  0d 0b 54 05 cd 0d 0b 5e  21 c9 20 26 34 30 30 43  |..T....^!. &400C|
00001de0  33 3a f2 74 61 73 6b 71  75 69 74 74 69 6e 67 28  |3:.taskquitting(|
00001df0  62 6c 25 21 34 29 0d 0b  68 05 cb 0d 0b 72 05 e1  |bl%!4)..h....r..|
00001e00  0d 0b 7c 0d dd f2 64 72  61 67 67 65 64 0d 0b 86  |..|...dragged...|
00001e10  20 ea 20 74 74 25 2c 68  61 6e 64 25 2c 69 63 6f  | . tt%,hand%,ico|
00001e20  6e 25 2c 63 6f 75 6e 74  65 72 2c 78 24 0d 0b 90  |n%,counter,x$...|
00001e30  0f e7 20 73 61 76 69 6e  67 25 20 8c 0d 0b 9a 23  |.. saving% ....#|
00001e40  73 61 76 69 6e 67 25 3d  a3 3a 62 6c 25 21 31 36  |saving%=.:bl%!16|
00001e50  3d 34 3a 62 6c 25 21 31  32 3d 62 6c 25 21 38 0d  |=4:bl%!12=bl%!8.|
00001e60  0b a4 19 c8 99 26 34 30  30 45 37 2c 31 38 2c 62  |.....&400E7,18,b|
00001e70  6c 25 2c 62 6c 25 21 34  0d 0b ae 05 cc 0d 0b b8  |l%,bl%!4........|
00001e80  15 c8 99 26 34 30 30 43  46 2c 2c 62 6c 32 25 2b  |...&400CF,,bl2%+|
00001e90  32 38 0d 0b c2 36 68 61  6e 64 25 3d 62 6c 32 25  |28...6hand%=bl2%|
00001ea0  21 34 30 3a 69 63 6f 6e  25 3d 62 6c 32 25 21 34  |!40:icon%=bl2%!4|
00001eb0  34 3a 70 61 74 24 3d 22  22 3a 63 6f 75 6e 74 65  |4:pat$="":counte|
00001ec0  72 3d 62 6c 25 2b 34 34  0d 0b cc 0f c8 95 20 3f  |r=bl%+44...... ?|
00001ed0  63 6f 75 6e 74 65 72 0d  0b d6 1e 70 61 74 24 2b  |counter....pat$+|
00001ee0  3d bd 3f 63 6f 75 6e 74  65 72 3a 63 6f 75 6e 74  |=.?counter:count|
00001ef0  65 72 2b 3d 31 0d 0b e0  05 ce 0d 0b ea 23 74 79  |er+=1........#ty|
00001f00  70 65 25 3d a4 6f 62 6a  74 79 70 65 28 70 61 74  |pe%=.objtype(pat|
00001f10  24 29 3a 74 74 25 3d 62  6c 25 21 34 30 0d 0b f4  |$):tt%=bl%!40...|
00001f20  0e c8 8e 20 68 61 6e 64  25 20 ca 0d 0b fe 27 c9  |... hand% ....'.|
00001f30  20 2d 32 3a e7 20 69 63  6f 6e 25 3d 68 6f 6c 65  | -2:. icon%=hole|
00001f40  25 20 f2 73 74 61 72 74  77 69 70 65 28 70 61 74  |% .startwipe(pat|
00001f50  24 29 0d 0c 08 0b c9 20  41 75 74 6f 25 0d 0c 12  |$)..... Auto%...|
00001f60  5e e7 20 74 79 70 65 25  3d 32 20 84 20 74 79 70  |^. type%=2 . typ|
00001f70  65 25 3d 33 20 53 76 70  74 68 24 28 63 75 72 72  |e%=3 Svpth$(curr|
00001f80  70 61 74 68 25 29 3d 70  61 74 24 3a f2 70 73 28  |path%)=pat$:.ps(|
00001f90  41 75 74 6f 25 2c 35 2c  70 61 74 24 29 20 8b 46  |Auto%,5,pat$) .F|
00001fa0  74 70 24 28 63 75 72 72  70 61 74 68 25 29 3d c3  |tp$(currpath%)=.|
00001fb0  7e 74 74 25 3a f2 65 64  75 72 65 0d 0c 1c 13 c9  |~tt%:.edure.....|
00001fc0  20 50 61 6e 65 25 2c 43  6f 6e 66 69 67 25 0d 0c  | Pane%,Config%..|
00001fd0  26 3f e7 20 74 79 70 65  25 3d 32 20 84 20 74 79  |&?. type%=2 . ty|
00001fe0  70 65 25 3d 33 20 f2 70  73 28 50 61 6e 65 25 2c  |pe%=3 .ps(Pane%,|
00001ff0  31 31 2c 70 61 74 24 29  3a f2 67 65 74 62 69 6e  |11,pat$):.getbin|
00002000  28 30 29 3a f2 69 62 61  72 28 22 22 29 0d 0c 30  |(0):.ibar("")..0|
00002010  0c c9 20 4d 61 76 69 73  25 0d 0c 3a 19 e7 20 74  |.. Mavis%..:.. t|
00002020  79 70 65 25 3d 32 20 84  20 74 79 70 65 25 3d 33  |ype%=2 . type%=3|
00002030  20 8c 0d 0c 44 19 78 24  3d 24 28 a4 6c 75 73 74  | ...D.x$=$(.lust|
00002040  28 4d 61 76 69 73 25 2c  33 29 29 0d 0c 4e 0d e7  |(Mavis%,3))..N..|
00002050  20 a9 78 24 3e 30 20 8c  0d 0c 58 28 e7 20 c2 78  | .x$>0 ...X(. .x|
00002060  24 2c 31 29 3c 3e 22 5c  22 20 78 24 2b 3d 22 5c  |$,1)<>"\" x$+="\|
00002070  22 2b 70 61 74 24 20 8b  78 24 2b 3d 70 61 74 24  |"+pat$ .x$+=pat$|
00002080  0d 0c 62 05 cc 0d 0c 6c  0b 78 24 3d 70 61 74 24  |..b....l.x$=pat$|
00002090  0d 0c 76 05 cd 0d 0c 80  14 f2 70 73 28 4d 61 76  |..v.......ps(Mav|
000020a0  69 73 25 2c 33 2c 78 24  29 0d 0c 8a 05 cc 0d 0c  |is%,3,x$).......|
000020b0  94 18 f2 70 73 28 4d 61  76 69 73 25 2c 31 33 2c  |...ps(Mavis%,13,|
000020c0  c3 7e 74 74 25 29 0d 0c  9e 1b 24 66 66 73 25 3d  |.~tt%)....$ffs%=|
000020d0  22 73 66 69 6c 65 5f 22  2b c3 7e 74 74 25 2b bd  |"sfile_"+.~tt%+.|
000020e0  30 0d 0c a8 1e f2 73 65  6c 69 63 28 4d 61 76 69  |0.....selic(Mavi|
000020f0  73 25 2c 66 66 69 63 6f  6e 25 2c 30 2c 30 29 0d  |s%,fficon%,0,0).|
00002100  0c b2 05 cd 0d 0c bc 05  cb 0d 0c c6 05 cd 0d 0c  |................|
00002110  d0 05 e1 0d 0c da 19 dd  f2 74 61 73 6b 71 75 69  |.........taskqui|
00002120  74 74 69 6e 67 28 68 61  6e 64 25 29 0d 0c e4 0f  |tting(hand%)....|
00002130  ea 20 70 74 72 25 2c 61  70 70 24 0d 0c ee 0e c8  |. ptr%,app$.....|
00002140  8e 20 68 61 6e 64 25 20  ca 0d 0c f8 10 c9 20 64  |. hand% ...... d|
00002150  65 6c 68 61 6e 64 6c 65  25 0d 0d 02 0e e7 20 67  |elhandle%..... g|
00002160  65 74 65 6d 25 20 8c 0d  0d 0c 0c f2 75 72 65 6d  |etem% ......urem|
00002170  65 6e 74 0d 0d 16 05 cc  0d 0d 20 15 77 69 70 69  |ent....... .wipi|
00002180  6e 67 25 3d a3 3a 63 72  6e 74 25 3d 30 0d 0d 2a  |ng%=.:crnt%=0..*|
00002190  2d e7 20 28 73 74 72 75  63 74 75 72 65 25 20 80  |-. (structure% .|
000021a0  20 72 6f 6f 74 64 69 72  25 3e 30 29 20 f2 70 75  | rootdir%>0) .pu|
000021b0  74 73 74 72 75 63 74 75  72 65 0d 0d 34 19 e7 20  |tstructure..4.. |
000021c0  75 6e 64 65 72 74 61 6b  65 72 25 20 f2 62 75 72  |undertaker% .bur|
000021d0  69 61 6c 0d 0d 3e 05 cd  0d 0d 48 2f 70 6f 6c 6c  |ial..>....H/poll|
000021e0  6d 61 73 6b 25 3d a4 70  6f 6c 6c 6d 61 73 6b 3a  |mask%=.pollmask:|
000021f0  64 65 6c 68 61 6e 64 6c  65 25 3d 2d 31 3a f2 69  |delhandle%=-1:.i|
00002200  62 61 72 28 22 22 29 0d  0d 52 11 c9 20 77 69 70  |bar("")..R.. wip|
00002210  65 68 61 6e 64 6c 65 25  0d 0d 5c 12 77 69 70 65  |ehandle%..\.wipe|
00002220  68 61 6e 64 6c 65 25 3d  2d 31 0d 0d 66 2b e7 20  |handle%=-1..f+. |
00002230  73 74 72 75 63 74 75 72  65 25 20 80 20 72 6f 6f  |structure% . roo|
00002240  74 64 69 72 25 3e 30 20  f2 70 75 74 73 74 72 75  |tdir%>0 .putstru|
00002250  63 74 75 72 65 0d 0d 70  29 70 6f 6c 6c 6d 61 73  |cture..p)pollmas|
00002260  6b 25 3d a4 70 6f 6c 6c  6d 61 73 6b 3a 77 69 70  |k%=.pollmask:wip|
00002270  69 6e 67 25 3d a3 3a 63  72 6e 74 25 3d 30 0d 0d  |ing%=.:crnt%=0..|
00002280  7a 19 e7 20 75 6e 64 65  72 74 61 6b 65 72 25 20  |z.. undertaker% |
00002290  f2 62 75 72 69 61 6c 0d  0d 84 13 c9 20 64 65 73  |.burial..... des|
000022a0  63 6f 6e 68 61 6e 64 6c  65 25 0d 0d 8e 16 e7 20  |conhandle%..... |
000022b0  24 64 69 73 63 6e 61 6d  65 25 3c 3e 22 22 20 8c  |$discname%<>"" .|
000022c0  0d 0d 98 20 ff 28 22 44  69 73 6d 6f 75 6e 74 20  |... .("Dismount |
000022d0  22 2b c3 77 69 70 69 6e  67 64 72 69 76 65 25 29  |"+.wipingdrive%)|
000022e0  0d 0d a2 2f ff 28 22 4e  61 6d 65 44 69 73 63 20  |.../.("NameDisc |
000022f0  22 2b c3 77 69 70 69 6e  67 64 72 69 76 65 25 2b  |"+.wipingdrive%+|
00002300  22 20 22 2b 24 64 69 73  63 6e 61 6d 65 25 29 0d  |" "+$discname%).|
00002310  0d ac 1d ff 28 22 4d 6f  75 6e 74 20 22 2b c3 77  |....("Mount "+.w|
00002320  69 70 69 6e 67 64 72 69  76 65 25 29 0d 0d b6 2d  |ipingdrive%)...-|
00002330  ff 28 22 46 69 6c 65 72  5f 4f 70 65 6e 44 69 72  |.("Filer_OpenDir|
00002340  20 61 64 66 73 3a 3a 22  2b 24 64 69 73 63 6e 61  | adfs::"+$discna|
00002350  6d 65 25 2b 22 2e 24 22  29 0d 0d c0 05 cd 0d 0d  |me%+".$").......|
00002360  ca 43 64 65 73 63 6f 6e  68 61 6e 64 6c 65 25 3d  |.Cdesconhandle%=|
00002370  2d 31 3a f2 69 62 61 72  28 22 22 29 3a 70 6f 6c  |-1:.ibar(""):pol|
00002380  6c 6d 61 73 6b 25 3d a4  70 6f 6c 6c 6d 61 73 6b  |lmask%=.pollmask|
00002390  3a c8 99 26 32 30 30 31  45 2c 37 2c 2c 6d 65 6d  |:..&2001E,7,,mem|
000023a0  25 0d 0d d4 05 cb 0d 0d  de 05 e1 0d 0d e8 0d dd  |%...............|
000023b0  f2 75 72 65 6d 65 6e 74  0d 0d f2 08 ea 20 6e 25  |.urement..... n%|
000023c0  0d 0d fc 2a c8 99 26 36  30 30 44 45 2c 22 2a 46  |...*..&600DE,"*F|
000023d0  69 6c 65 72 5f 41 63 74  69 6f 6e 22 20 b8 20 77  |iler_Action" . w|
000023e0  69 70 65 68 61 6e 64 6c  65 25 0d 0e 06 21 c8 99  |ipehandle%...!..|
000023f0  26 36 30 46 38 30 2c 77  69 70 65 68 61 6e 64 6c  |&60F80,wipehandl|
00002400  65 25 2c 77 69 70 65 64  69 72 24 0d 0e 10 12 e3  |e%,wipedir$.....|
00002410  20 6e 25 3d 31 20 b8 20  63 72 6e 74 25 0d 0e 1a  | n%=1 . crnt%...|
00002420  1b f2 67 65 74 6c 65 61  66 6e 61 6d 65 28 77 69  |..getleafname(wi|
00002430  70 65 24 28 6e 25 29 29  0d 0e 24 26 6c 65 61 66  |pe$(n%))..$&leaf|
00002440  6e 61 6d 65 24 3d c2 6c  65 61 66 6e 61 6d 65 24  |name$=.leafname$|
00002450  2c a9 6c 65 61 66 6e 61  6d 65 24 2d 31 29 0d 0e  |,.leafname$-1)..|
00002460  2e 22 c8 99 26 36 30 46  38 31 2c 77 69 70 65 68  |."..&60F81,wipeh|
00002470  61 6e 64 6c 65 25 2c 6c  65 61 66 6e 61 6d 65 24  |andle%,leafname$|
00002480  0d 0e 38 05 ed 0d 0e 42  23 c8 99 26 36 30 46 38  |..8....B#..&60F8|
00002490  32 2c 77 69 70 65 68 61  6e 64 6c 65 25 2c 32 2c  |2,wipehandle%,2,|
000024a0  77 69 70 65 6f 70 74 25  0d 0e 4c 0c 67 65 74 65  |wipeopt%..L.gete|
000024b0  6d 25 3d a3 0d 0e 56 05  e1 0d 0e 60 1f dd f2 6c  |m%=...V....`...l|
000024c0  61 6d 61 74 69 6f 6e 28  74 65 78 74 24 2c 43 61  |amation(text$,Ca|
000024d0  6e 63 65 6c 2c 61 25 29  0d 0e 6a 0c ea 20 74 69  |ncel,a%)..j.. ti|
000024e0  74 6c 65 24 0d 0e 74 21  71 75 65 72 79 25 3d 61  |tle$..t!query%=a|
000024f0  25 3a 70 6f 6c 6c 6d 61  73 6b 25 3d a4 70 6f 6c  |%:pollmask%=.pol|
00002500  6c 6d 61 73 6b 0d 0e 7e  0e e7 20 43 61 6e 63 65  |lmask..~.. Cance|
00002510  6c 20 8c 0d 0e 88 4a f2  73 65 6c 69 63 28 51 75  |l ....J.selic(Qu|
00002520  65 72 79 25 2c 33 2c 6f  66 66 2c 6f 66 66 29 3a  |ery%,3,off,off):|
00002530  f2 73 65 6c 69 63 28 51  75 65 72 79 25 2c 31 2c  |.selic(Query%,1,|
00002540  30 2c 6f 66 66 29 3a f2  73 65 6c 69 63 28 51 75  |0,off):.selic(Qu|
00002550  65 72 79 25 2c 32 2c 30  2c 6f 66 66 29 0d 0e 92  |ery%,2,0,off)...|
00002560  1b 74 69 74 6c 65 24 3d  a4 6d 73 67 28 22 71 75  |.title$=.msg("qu|
00002570  22 2c 22 22 2c 22 22 29  0d 0e 9c 05 cc 0d 0e a6  |","","")........|
00002580  4c f2 73 65 6c 69 63 28  51 75 65 72 79 25 2c 33  |L.selic(Query%,3|
00002590  2c 30 2c 6f 66 66 29 3a  f2 73 65 6c 69 63 28 51  |,0,off):.selic(Q|
000025a0  75 65 72 79 25 2c 31 2c  6f 66 66 2c 6f 66 66 29  |uery%,1,off,off)|
000025b0  3a f2 73 65 6c 69 63 28  51 75 65 72 79 25 2c 32  |:.selic(Query%,2|
000025c0  2c 6f 66 66 2c 6f 66 66  29 0d 0e b0 1b 74 69 74  |,off,off)....tit|
000025d0  6c 65 24 3d a4 6d 73 67  28 22 6d 73 22 2c 22 22  |le$=.msg("ms",""|
000025e0  2c 22 22 29 0d 0e ba 05  cd 0d 0e c4 1f f2 70 73  |,"")..........ps|
000025f0  28 51 75 65 72 79 25 2c  30 2c 74 65 78 74 24 29  |(Query%,0,text$)|
00002600  3a f2 73 63 72 6e 78 79  0d 0e ce 31 21 62 6c 34  |:.scrnxy...1!bl4|
00002610  25 3d 51 75 65 72 79 25  3a c8 99 26 34 30 30 43  |%=Query%:..&400C|
00002620  43 2c 2c 62 6c 34 25 3a  24 28 62 6c 34 25 21 37  |C,,bl4%:$(bl4%!7|
00002630  36 29 3d 74 69 74 6c 65  24 0d 0e d8 2b 62 6c 34  |6)=title$...+bl4|
00002640  25 21 34 3d 28 73 63 72  78 25 2d 37 36 38 29 2f  |%!4=(scrx%-768)/|
00002650  32 3a 62 6c 34 25 21 31  32 3d 62 6c 34 25 21 34  |2:bl4%!12=bl4%!4|
00002660  2b 37 36 38 0d 0e e2 2b  62 6c 34 25 21 38 3d 28  |+768...+bl4%!8=(|
00002670  73 63 72 79 25 2d 34 34  38 29 2f 32 3a 62 6c 34  |scry%-448)/2:bl4|
00002680  25 21 31 36 3d 62 6c 34  25 21 38 2b 34 34 34 0d  |%!16=bl4%!8+444.|
00002690  0e ec 1d 62 6c 34 25 21  32 38 3d 2d 31 3a c8 99  |...bl4%!28=-1:..|
000026a0  26 34 30 30 43 35 2c 2c  62 6c 34 25 0d 0e f6 05  |&400C5,,bl4%....|
000026b0  e1 0d 0f 00 18 dd f2 6b  65 79 28 77 69 6e 25 2c  |.......key(win%,|
000026c0  69 63 25 2c 6b 65 79 25  29 0d 0f 0a 08 ea 20 66  |ic%,key%)..... f|
000026d0  24 0d 0f 14 1e e7 20 6b  65 79 25 3c 3e 31 33 20  |$..... key%<>13 |
000026e0  c8 99 26 34 30 30 44 43  2c 6b 65 79 25 3a e1 0d  |..&400DC,key%:..|
000026f0  0f 1e 0d c8 8e 20 77 69  6e 25 20 ca 0d 0f 28 0b  |..... win% ...(.|
00002700  c9 20 41 75 74 6f 25 0d  0f 32 0c c8 8e 20 69 63  |. Auto%..2... ic|
00002710  25 20 ca 0d 0f 3c 07 c9  20 31 0d 0f 46 52 66 24  |% ...<.. 1..FRf$|
00002720  3d 24 28 a4 6c 75 73 74  28 41 75 74 6f 25 2c 31  |=$(.lust(Auto%,1|
00002730  29 29 3a 46 74 70 24 28  63 75 72 72 70 61 74 68  |)):Ftp$(currpath|
00002740  25 29 3d a4 66 74 79 70  65 28 66 24 29 3a f2 65  |%)=.ftype(f$):.e|
00002750  64 75 72 65 3a c8 99 26  34 30 30 44 32 2c 41 75  |dure:..&400D2,Au|
00002760  74 6f 25 2c 35 2c 2c 2c  2d 31 2c 30 0d 0f 50 07  |to%,5,,,-1,0..P.|
00002770  c9 20 35 0d 0f 5a 3f 53  76 70 74 68 24 28 63 75  |. 5..Z?Svpth$(cu|
00002780  72 72 70 61 74 68 25 29  3d 24 28 a4 6c 75 73 74  |rrpath%)=$(.lust|
00002790  28 41 75 74 6f 25 2c 35  29 29 3a c8 99 26 34 30  |(Auto%,5)):..&40|
000027a0  30 44 32 2c 41 75 74 6f  25 2c 31 2c 2c 2c 2d 31  |0D2,Auto%,1,,,-1|
000027b0  2c 30 0d 0f 64 05 cb 0d  0f 6e 0b c9 20 50 61 6e  |,0..d....n.. Pan|
000027c0  65 25 0d 0f 78 0c c8 8e  20 69 63 25 20 ca 0d 0f  |e%..x... ic% ...|
000027d0  82 0e c9 20 31 31 2c 31  32 2c 33 35 0d 0f 8c 19  |... 11,12,35....|
000027e0  c8 99 26 34 30 30 44 32  2c 2d 31 2c 2d 31 2c 2c  |..&400D2,-1,-1,,|
000027f0  2c 2d 31 2c 30 0d 0f 96  52 f2 73 65 6c 69 63 28  |,-1,0...R.selic(|
00002800  43 6f 6e 66 69 67 25 2c  31 2c 68 69 67 68 2c 68  |Config%,1,high,h|
00002810  69 67 68 29 3a f2 63 6c  69 63 6b 65 64 28 30 2c  |igh):.clicked(0,|
00002820  30 2c 34 2c 43 6f 6e 66  69 67 25 2c 31 29 3a f2  |0,4,Config%,1):.|
00002830  73 65 6c 69 63 28 43 6f  6e 66 69 67 25 2c 31 2c  |selic(Config%,1,|
00002840  30 2c 68 69 67 68 29 0d  0f a0 11 7f 3a c8 99 26  |0,high).....:..&|
00002850  34 30 30 44 43 2c 31 33  0d 0f aa 05 cb 0d 0f b4  |400DC,13........|
00002860  0c c9 20 4d 61 76 69 73  25 0d 0f be 0c c8 8e 20  |.. Mavis%...... |
00002870  69 63 25 20 ca 0d 0f c8  0f c9 20 33 2c 36 2c 31  |ic% ...... 3,6,1|
00002880  33 2c 32 39 0d 0f d2 1e  f2 73 65 6c 69 63 28 4d  |3,29.....selic(M|
00002890  61 76 69 73 25 2c 34 2c  68 69 67 68 2c 68 69 67  |avis%,4,high,hig|
000028a0  68 29 0d 0f dc 39 e7 20  24 28 a4 6c 75 73 74 28  |h)...9. $(.lust(|
000028b0  4d 61 76 69 73 25 2c 34  29 29 3d 22 41 62 6f 72  |Mavis%,4))="Abor|
000028c0  74 22 20 77 69 70 25 3d  30 3a f2 66 69 6e 69 73  |t" wip%=0:.finis|
000028d0  68 20 8b f2 66 69 6e 64  28 34 29 0d 0f e6 1b f2  |h ..find(4).....|
000028e0  73 65 6c 69 63 28 4d 61  76 69 73 25 2c 34 2c 30  |selic(Mavis%,4,0|
000028f0  2c 68 69 67 68 29 0d 0f  f0 11 7f 3a c8 99 26 34  |,high).....:..&4|
00002900  30 30 44 43 2c 31 33 0d  0f fa 05 cb 0d 10 04 05  |00DC,13.........|
00002910  cb 0d 10 0e 05 e1 0d 10  18 39 dd f2 6f 70 65 6e  |.........9..open|
00002920  28 62 6c 25 21 30 29 3a  c8 99 26 34 30 30 43 43  |(bl%!0):..&400CC|
00002930  2c 2c 62 6c 25 3a 62 6c  25 21 32 38 3d 2d 31 3a  |,,bl%:bl%!28=-1:|
00002940  c8 99 26 34 30 30 43 35  2c 2c 62 6c 25 3a e1 0d  |..&400C5,,bl%:..|
00002950  10 22 24 dd f2 63 6c 6f  73 65 28 62 6c 33 25 21  |."$..close(bl3%!|
00002960  30 29 3a c8 99 26 34 30  30 43 36 2c 2c 62 6c 33  |0):..&400C6,,bl3|
00002970  25 3a e1 0d 10 2c 10 dd  f2 62 75 69 6c 64 6d 65  |%:...,...buildme|
00002980  6e 75 73 0d 10 36 22 ea  20 72 61 25 2c 72 62 25  |nus..6". ra%,rb%|
00002990  2c 6d 25 2c 72 64 25 2c  6c 25 2c 64 25 2c 44 72  |,m%,rd%,l%,d%,Dr|
000029a0  69 76 65 73 25 0d 10 40  2c 72 61 6d 64 69 73 63  |ives%..@,ramdisc|
000029b0  25 3d 2d 32 3a 6d 65 6d  66 73 25 3d 2d 32 3a 72  |%=-2:memfs%=-2:r|
000029c0  64 25 3d 30 3a 6d 65 6e  6d 61 73 6b 25 3d a4 6d  |d%=0:menmask%=.m|
000029d0  66 0d 10 4a 87 4d 25 3d  6d 6f 64 6d 65 6d 25 3a  |f..J.M%=modmem%:|
000029e0  f2 53 74 61 72 74 61 6d  65 6e 75 28 6d 65 6e 24  |.Startamenu(men$|
000029f0  28 32 33 29 29 3a f2 6d  61 64 28 22 4f 70 65 6e  |(23)):.mad("Open|
00002a00  20 44 69 72 22 2c 30 29  3a f2 6d 61 64 28 22 4d  | Dir",0):.mad("M|
00002a10  69 6e 69 6d 69 7a 65 22  2c 30 29 3a 6d 25 3d a4  |inimize",0):m%=.|
00002a20  64 69 72 6d 65 6e 75 28  68 6f 6d 65 24 2b 22 2e  |dirmenu(home$+".|
00002a30  4d 6f 64 75 6c 65 4b 69  6c 6c 22 2c 32 29 3a e7  |ModuleKill",2):.|
00002a40  20 ac 20 6d 25 20 f2 73  71 75 69 64 67 65 28 31  | . m% .squidge(1|
00002a50  2c 26 38 30 2c 2d 31 29  0d 10 54 45 4d 25 3d 4d  |,&80,-1)..TEM%=M|
00002a60  65 6e 75 73 25 3a f2 53  74 61 72 74 61 6d 65 6e  |enus%:.Startamen|
00002a70  75 28 22 42 6c 61 63 6b  20 48 6f 6c 65 22 29 3a  |u("Black Hole"):|
00002a80  e3 20 6c 25 3d 30 20 b8  20 35 3a f2 6d 61 64 28  |. l%=0 . 5:.mad(|
00002a90  6d 65 6e 24 28 6c 25 29  2c 30 29 3a ed 0d 10 5e  |men$(l%),0):...^|
00002aa0  26 f2 6d 61 64 28 6d 65  6e 24 28 32 33 29 2c 30  |&.mad(men$(23),0|
00002ab0  29 3a f2 6d 61 64 28 6d  65 6e 24 28 36 29 2c 26  |):.mad(men$(6),&|
00002ac0  38 30 29 0d 10 68 8c f2  73 71 75 69 64 67 65 28  |80)..h..squidge(|
00002ad0  30 2c 32 2c 49 6e 66 6f  25 29 3a f2 73 71 75 69  |0,2,Info%):.squi|
00002ae0  64 67 65 28 31 2c 30 2c  2d 31 29 3a f2 73 71 75  |dge(1,0,-1):.squ|
00002af0  69 64 67 65 28 32 2c 30  2c 4d 65 6e 75 73 25 2b  |idge(2,0,Menus%+|
00002b00  32 32 34 29 3a f2 73 71  75 69 64 67 65 28 33 2c  |224):.squidge(3,|
00002b10  30 2c 4d 65 6e 75 73 25  2b 33 38 38 29 3a f2 73  |0,Menus%+388):.s|
00002b20  71 75 69 64 67 65 28 34  2c 30 2c 2d 31 29 3a f2  |quidge(4,0,-1):.|
00002b30  73 71 75 69 64 67 65 28  36 2c 32 2c 6d 6f 64 6d  |squidge(6,2,modm|
00002b40  65 6d 25 29 3a f2 67 65  74 62 69 6e 28 31 29 0d  |em%):.getbin(1).|
00002b50  10 72 0f e7 20 62 61 64  62 69 6e 25 20 8c 0d 10  |.r.. badbin% ...|
00002b60  7c 11 f2 6e 63 28 22 4e  6f 20 42 69 6e 22 29 0d  ||..nc("No Bin").|
00002b70  10 86 05 cc 0d 10 90 25  e7 20 a4 65 6d 70 74 79  |.......%. .empty|
00002b80  28 62 69 6e 24 29 20 f2  6e 63 28 22 4e 6f 20 43  |(bin$) .nc("No C|
00002b90  6f 6e 74 65 6e 74 73 22  29 0d 10 9a 29 4d 25 3d  |ontents")...)M%=|
00002ba0  4d 65 6e 75 73 25 2b 32  32 34 3a f2 53 74 61 72  |Menus%+224:.Star|
00002bb0  74 61 6d 65 6e 75 28 22  43 6f 6e 74 65 6e 74 73  |tamenu("Contents|
00002bc0  22 29 0d 10 a4 22 e3 20  6c 25 3d 37 20 b8 20 31  |")...". l%=7 . 1|
00002bd0  31 3a f2 6d 61 64 28 6d  65 6e 24 28 6c 25 29 2c  |1:.mad(men$(l%),|
00002be0  30 29 3a ed 0d 10 ae 1d  e7 20 ac 20 73 71 75 61  |0):...... . squa|
00002bf0  73 68 70 72 65 73 25 20  f2 73 68 61 64 65 28 33  |shpres% .shade(3|
00002c00  29 0d 10 b8 1c f2 73 71  75 69 64 67 65 28 34 2c  |).....squidge(4,|
00002c10  26 38 30 2c 62 69 6e 6d  65 6e 75 25 29 0d 10 c2  |&80,binmenu%)...|
00002c20  25 e3 6c 25 3d 30 b8 33  3a f2 73 71 75 69 64 67  |%.l%=0.3:.squidg|
00002c30  65 28 6c 25 2c 30 2c 62  69 6e 6d 65 6e 75 25 29  |e(l%,0,binmenu%)|
00002c40  3a ed 0d 10 cc 34 4d 25  3d 62 69 6e 6d 65 6e 75  |:....4M%=binmenu|
00002c50  25 3a f2 53 74 61 72 74  61 6d 65 6e 75 28 22 43  |%:.Startamenu("C|
00002c60  68 6f 6f 73 65 3a 22 29  3a f2 6d 61 64 28 22 41  |hoose:"):.mad("A|
00002c70  6c 6c 22 2c 30 29 0d 10  d6 17 6d 25 3d a4 64 69  |ll",0)....m%=.di|
00002c80  72 6d 65 6e 75 28 62 69  6e 24 2c 30 29 0d 10 e0  |rmenu(bin$,0)...|
00002c90  05 cd 0d 10 ea 2b 4d 25  3d 4d 65 6e 75 73 25 2b  |.....+M%=Menus%+|
00002ca0  33 38 38 3a f2 53 74 61  72 74 61 6d 65 6e 75 28  |388:.Startamenu(|
00002cb0  22 57 69 70 65 20 44 72  69 76 65 22 29 0d 10 f4  |"Wipe Drive")...|
00002cc0  22 c8 99 26 34 30 32 34  32 20 b8 20 2c 44 72 69  |"..&40242 . ,Dri|
00002cd0  76 65 73 25 3a 64 25 3d  44 72 69 76 65 73 25 0d  |ves%:d%=Drives%.|
00002ce0  10 fe 4e c8 95 20 64 25  3e 30 3a f2 6d 61 64 28  |..N.. d%>0:.mad(|
00002cf0  22 61 64 66 73 3a 3a 22  2b c3 28 64 25 2d 31 29  |"adfs::"+.(d%-1)|
00002d00  2c 30 29 3a f2 73 71 75  69 64 67 65 28 44 72 69  |,0):.squidge(Dri|
00002d10  76 65 73 25 2d 64 25 2c  30 2c 4d 65 6e 75 73 25  |ves%-d%,0,Menus%|
00002d20  2b 34 39 32 29 3a 64 25  2d 3d 31 3a ce 0d 11 08  |+492):d%-=1:....|
00002d30  21 72 64 25 3d 44 72 69  76 65 73 25 2d 31 3a c8  |!rd%=Drives%-1:.|
00002d40  99 26 34 41 20 b8 20 72  61 25 2c 72 62 25 0d 11  |.&4A . ra%,rb%..|
00002d50  12 38 e7 20 28 72 61 25  2d 72 62 25 29 3c 3e 30  |.8. (ra%-rb%)<>0|
00002d60  20 f2 6d 61 64 28 22 52  41 4d 64 69 73 63 22 2c  | .mad("RAMdisc",|
00002d70  30 29 3a 72 64 25 2b 3d  31 3a 72 61 6d 64 69 73  |0):rd%+=1:ramdis|
00002d80  63 25 3d 72 64 25 0d 11  1c 23 2a 53 65 74 20 42  |c%=rd%...#*Set B|
00002d90  6c 61 63 6b 48 6f 6c 65  24 57 69 62 62 6c 65 20  |lackHole$Wibble |
00002da0  22 4d 65 6d 44 69 73 63  22 0d 11 26 33 ff 28 22  |"MemDisc"..&3.("|
00002db0  52 4d 45 6e 73 75 72 65  20 4d 65 6d 46 53 20 30  |RMEnsure MemFS 0|
00002dc0  2e 30 30 20 55 6e 53 65  74 20 42 6c 61 63 6b 48  |.00 UnSet BlackH|
00002dd0  6f 6c 65 24 57 69 62 62  6c 65 22 29 0d 11 30 31  |ole$Wibble")..01|
00002de0  c8 99 26 32 30 30 32 33  2c 22 42 6c 61 63 6b 48  |..&20023,"BlackH|
00002df0  6f 6c 65 24 57 69 62 62  6c 65 22 2c 62 6c 25 2c  |ole$Wibble",bl%,|
00002e00  32 35 36 2c 30 20 b8 20  2c 2c 72 61 25 0d 11 3a  |256,0 . ,,ra%..:|
00002e10  0d 62 6c 25 3f 72 61 25  3d 30 0d 11 44 3c e7 20  |.bl%?ra%=0..D<. |
00002e20  a4 67 61 67 61 28 62 6c  25 29 3d 22 4d 65 6d 44  |.gaga(bl%)="MemD|
00002e30  69 73 63 22 20 f2 6d 61  64 28 22 4d 65 6d 46 53  |isc" .mad("MemFS|
00002e40  22 2c 30 29 3a 72 64 25  2b 3d 31 3a 6d 65 6d 66  |",0):rd%+=1:memf|
00002e50  73 25 3d 72 64 25 0d 11  4e 4b e7 20 72 64 25 3e  |s%=rd%..NK. rd%>|
00002e60  44 72 69 76 65 73 25 2d  31 20 f2 73 71 75 69 64  |Drives%-1 .squid|
00002e70  67 65 28 72 64 25 2c 26  38 30 2c 30 29 20 8b f2  |ge(rd%,&80,0) ..|
00002e80  73 71 75 69 64 67 65 28  44 72 69 76 65 73 25 2d  |squidge(Drives%-|
00002e90  31 2c 26 38 30 2c 4d 65  6e 75 73 25 2b 34 39 32  |1,&80,Menus%+492|
00002ea0  29 0d 11 58 2a 4d 25 3d  4d 65 6e 75 73 25 2b 34  |)..X*M%=Menus%+4|
00002eb0  39 32 3a f2 53 74 61 72  74 61 6d 65 6e 75 28 22  |92:.Startamenu("|
00002ec0  44 69 73 63 20 4e 61 6d  65 22 29 0d 11 62 44 50  |Disc Name")..bDP|
00002ed0  25 21 30 3d 31 33 32 3a  50 25 21 34 3d 2d 31 3a  |%!0=132:P%!4=-1:|
00002ee0  50 25 21 38 3d 26 37 30  30 39 31 32 39 3a 50 25  |P%!8=&7009129:P%|
00002ef0  21 31 32 3d 64 69 73 63  6e 61 6d 65 25 3a 50 25  |!12=discname%:P%|
00002f00  21 31 36 3d 2d 31 3a 50  25 21 32 30 3d 31 33 0d  |!16=-1:P%!20=13.|
00002f10  11 6c 11 24 64 69 73 63  6e 61 6d 65 25 3d 22 22  |.l.$discname%=""|
00002f20  0d 11 76 05 e1 0d 11 80  18 dd f2 53 74 61 72 74  |..v........Start|
00002f30  61 6d 65 6e 75 28 54 69  74 6c 65 24 29 0d 11 8a  |amenu(Title$)...|
00002f40  17 6d 65 6e 77 69 64 74  68 25 3d a9 28 54 69 74  |.menwidth%=.(Tit|
00002f50  6c 65 24 29 0d 11 94 5f  24 4d 25 3d 54 69 74 6c  |le$)..._$M%=Titl|
00002f60  65 24 3a 4d 25 3f 31 32  3d 37 3a 4d 25 3f 31 33  |e$:M%?12=7:M%?13|
00002f70  3d 32 3a 4d 25 3f 31 34  3d 37 3a 4d 25 3f 31 35  |=2:M%?14=7:M%?15|
00002f80  3d 30 3a 4d 25 21 31 36  3d 28 6d 65 6e 77 69 64  |=0:M%!16=(menwid|
00002f90  74 68 25 2b 31 29 2a 31  36 3a 4d 25 21 32 30 3d  |th%+1)*16:M%!20=|
00002fa0  34 31 3a 4d 25 21 32 34  3d 30 3a 50 25 3d 4d 25  |41:M%!24=0:P%=M%|
00002fb0  2b 32 38 0d 11 9e 05 e1  0d 11 a8 17 dd f2 6d 61  |+28...........ma|
00002fc0  64 28 54 65 78 74 24 2c  46 6c 61 67 73 25 29 0d  |d(Text$,Flags%).|
00002fd0  11 b2 3f 50 25 21 30 3d  46 6c 61 67 73 25 80 32  |..?P%!0=Flags%.2|
00002fe0  35 35 3a 50 25 21 34 3d  2d 31 3a 50 25 21 38 3d  |55:P%!4=-1:P%!8=|
00002ff0  6d 65 6e 6d 61 73 6b 25  3a 24 28 50 25 2b 31 32  |menmask%:$(P%+12|
00003000  29 3d 54 65 78 74 24 3a  50 25 2b 3d 32 34 0d 11  |)=Text$:P%+=24..|
00003010  bc 29 e7 20 a9 54 65 78  74 24 3e 6d 65 6e 77 69  |.). .Text$>menwi|
00003020  64 74 68 25 20 6d 65 6e  77 69 64 74 68 25 3d a9  |dth% menwidth%=.|
00003030  54 65 78 74 24 2b 31 0d  11 c6 1a 4d 25 21 31 36  |Text$+1....M%!16|
00003040  3d 28 6d 65 6e 77 69 64  74 68 25 2b 31 29 2a 31  |=(menwidth%+1)*1|
00003050  36 0d 11 d0 05 e1 0d 11  da 18 dd f2 6d 61 64 74  |6...........madt|
00003060  28 54 65 78 74 24 2c 46  74 79 70 65 24 29 0d 11  |(Text$,Ftype$)..|
00003070  e4 3a 24 62 6c 32 25 3d  22 73 6d 61 6c 6c 5f 22  |.:$bl2%="small_"|
00003080  2b 46 74 79 70 65 24 3a  c8 99 22 58 57 69 6d 70  |+Ftype$:.."XWimp|
00003090  5f 53 70 72 69 74 65 4f  70 22 2c 34 30 2c 2c 62  |_SpriteOp",40,,b|
000030a0  6c 32 25 20 b8 20 65 25  0d 11 ee 10 e7 20 65 25  |l2% . e%..... e%|
000030b0  3c 33 36 36 32 34 20 8c  0d 11 f8 33 24 28 5a 25  |<36624 ....3$(Z%|
000030c0  2b 31 32 29 3d 22 73 73  6d 61 6c 6c 5f 22 2b 46  |+12)="ssmall_"+F|
000030d0  74 79 70 65 24 3a 50 25  21 38 3d 6d 65 6e 6d 61  |type$:P%!8=menma|
000030e0  73 6b 25 2d 28 31 3c 3c  31 31 29 0d 12 02 05 cc  |sk%-(1<<11).....|
000030f0  0d 12 0c 2a 24 28 5a 25  2b 31 32 29 3d 22 73 66  |...*$(Z%+12)="sf|
00003100  69 6c 65 5f 22 2b 46 74  79 70 65 24 3a 50 25 21  |ile_"+Ftype$:P%!|
00003110  38 3d 6d 65 6e 6d 61 73  6b 25 0d 12 16 05 cd 0d  |8=menmask%......|
00003120  12 20 4c 24 5a 25 3d 54  65 78 74 24 3a 50 25 21  |. L$Z%=Text$:P%!|
00003130  30 3d 30 3a 50 25 21 34  3d 2d 31 3a 50 25 21 31  |0=0:P%!4=-1:P%!1|
00003140  32 3d 5a 25 3a 50 25 21  31 36 3d 5a 25 2b 31 32  |2=Z%:P%!16=Z%+12|
00003150  3a 50 25 21 32 30 3d a9  54 65 78 74 24 3a 50 25  |:P%!20=.Text$:P%|
00003160  2b 3d 32 34 3a 5a 25 2b  3d 32 34 0d 12 2a 29 e7  |+=24:Z%+=24..*).|
00003170  20 a9 54 65 78 74 24 3e  6d 65 6e 77 69 64 74 68  | .Text$>menwidth|
00003180  25 20 6d 65 6e 77 69 64  74 68 25 3d a9 54 65 78  |% menwidth%=.Tex|
00003190  74 24 2b 31 0d 12 34 1a  4d 25 21 31 36 3d 28 6d  |t$+1..4.M%!16=(m|
000031a0  65 6e 77 69 64 74 68 25  2b 31 29 2a 31 36 0d 12  |enwidth%+1)*16..|
000031b0  3e 05 e1 0d 12 48 45 dd  f2 6e 63 28 65 6e 74 72  |>....HE..nc(entr|
000031c0  79 24 29 3a 24 28 a4 6d  65 6e 6d 65 6d 28 32 29  |y$):$(.menmem(2)|
000031d0  2b 31 32 29 3d 65 6e 74  72 79 24 3a f2 73 68 61  |+12)=entry$:.sha|
000031e0  64 65 28 32 29 3a f2 73  71 75 69 64 67 65 28 32  |de(2):.squidge(2|
000031f0  2c 30 2c 2d 31 29 3a e1  0d 12 52 4c dd f2 73 68  |,0,-1):...RL..sh|
00003200  61 64 65 28 69 74 65 6d  25 29 3a 21 28 a4 6d 65  |ade(item%):!(.me|
00003210  6e 6d 65 6d 28 69 74 65  6d 25 29 2b 38 29 3d 21  |nmem(item%)+8)=!|
00003220  28 a4 6d 65 6e 6d 65 6d  28 69 74 65 6d 25 29 2b  |(.menmem(item%)+|
00003230  38 29 20 80 20 ac 20 67  72 65 79 20 84 20 67 72  |8) . . grey . gr|
00003240  65 79 3a e1 0d 12 5c 20  dd f2 73 71 75 69 64 67  |ey:...\ ..squidg|
00003250  65 28 69 74 65 6d 25 2c  66 6c 61 67 25 2c 6c 69  |e(item%,flag%,li|
00003260  6e 6b 25 29 0d 12 66 3b  21 28 a4 6d 65 6e 6d 65  |nk%)..f;!(.menme|
00003270  6d 28 69 74 65 6d 25 29  29 3d 66 6c 61 67 25 20  |m(item%))=flag% |
00003280  80 20 32 35 35 3a 21 28  a4 6d 65 6e 6d 65 6d 28  |. 255:!(.menmem(|
00003290  69 74 65 6d 25 29 2b 34  29 3d 6c 69 6e 6b 25 0d  |item%)+4)=link%.|
000032a0  12 70 05 e1 0d 12 7a 1d  dd a4 6d 65 6e 6d 65 6d  |.p....z...menmem|
000032b0  28 69 25 29 3a 3d 4d 25  2b 32 38 2b 69 25 2a 32  |(i%):=M%+28+i%*2|
000032c0  34 0d 12 84 12 dd f2 6d  6b 6d 65 6e 28 78 25 2c  |4......mkmen(x%,|
000032d0  79 25 29 0d 12 8e 25 77  6d 65 6e 25 3d 30 3a f2  |y%)...%wmen%=0:.|
000032e0  62 75 69 6c 64 6d 65 6e  75 73 3a 78 25 2d 3d 39  |buildmenus:x%-=9|
000032f0  36 3a 79 25 3d 34 37 32  0d 12 98 1a c8 99 26 34  |6:y%=472......&4|
00003300  30 30 44 34 2c 2c 4d 65  6e 75 73 25 2c 78 25 2c  |00D4,,Menus%,x%,|
00003310  79 25 0d 12 a2 12 e7 20  21 73 70 69 6e 6f 6e 25  |y%..... !spinon%|
00003320  3d a3 20 8c 0d 12 ac 23  f2 70 73 28 49 6e 66 6f  |=. ....#.ps(Info|
00003330  25 2c 31 2c a4 6d 73 67  28 22 66 77 65 30 22 2c  |%,1,.msg("fwe0",|
00003340  22 22 2c 22 22 29 29 0d  12 b6 05 cc 0d 12 c0 10  |"","")).........|
00003350  e7 20 21 62 79 65 25 3c  3d 31 20 8c 0d 12 ca 2a  |. !bye%<=1 ....*|
00003360  f2 70 73 28 49 6e 66 6f  25 2c 31 2c a4 6d 73 67  |.ps(Info%,1,.msg|
00003370  28 22 66 65 77 22 2b c3  28 b3 28 32 29 29 2c 22  |("few"+.(.(2)),"|
00003380  22 2c 22 22 29 29 0d 12  d4 05 cc 0d 12 de 13 f2  |",""))..........|
00003390  70 73 28 49 6e 66 6f 25  2c 31 2c 22 22 29 0d 12  |ps(Info%,1,"")..|
000033a0  e8 05 cd 0d 12 f2 05 cd  0d 12 fc 05 e1 0d 13 06  |................|
000033b0  13 dd f2 73 74 61 72 74  77 69 70 65 28 70 24 29  |...startwipe(p$)|
000033c0  0d 13 10 3a e7 20 63 72  6e 74 25 3e 30 20 80 20  |...:. crnt%>0 . |
000033d0  77 69 70 69 6e 67 25 20  f2 6c 61 6d 61 74 69 6f  |wiping% .lamatio|
000033e0  6e 28 a4 6d 73 67 28 22  77 6e 66 22 2c 22 22 2c  |n(.msg("wnf","",|
000033f0  22 22 29 2c 30 2c 30 29  3a e1 0d 13 1a 2e e7 20  |""),0,0):...... |
00003400  72 65 74 61 69 6e 25 20  80 20 63 72 6e 74 25 3d  |retain% . crnt%=|
00003410  30 20 f2 67 65 74 62 69  6e 28 30 29 3a e7 20 62  |0 .getbin(0):. b|
00003420  61 64 62 69 6e 25 20 e1  0d 13 24 0f e7 20 63 72  |adbin% ...$.. cr|
00003430  6e 74 25 3d 30 20 8c 0d  13 2e 26 72 6f 6f 74 64  |nt%=0 ....&rootd|
00003440  69 72 25 3d 30 3a 63 74  72 6c 25 3d 30 3a 70 6f  |ir%=0:ctrl%=0:po|
00003450  6c 6c 6d 61 73 6b 25 3d  26 31 38 33 30 0d 13 38  |llmask%=&1830..8|
00003460  18 e7 20 a6 2d 35 20 84  20 a6 2d 38 20 63 74 72  |.. .-5 . .-8 ctr|
00003470  6c 25 3d 2d 31 0d 13 42  1b e7 20 28 ac 20 63 74  |l%=-1..B.. (. ct|
00003480  72 6c 25 29 20 80 20 72  65 74 61 69 6e 25 20 8c  |rl%) . retain% .|
00003490  0d 13 4c 3c e7 20 a4 6f  62 6a 74 79 70 65 28 62  |..L<. .objtype(b|
000034a0  69 6e 24 2b 22 2e 22 2b  74 6f 64 61 79 24 29 3d  |in$+"."+today$)=|
000034b0  30 20 ff 28 22 43 44 69  72 20 22 2b 62 69 6e 24  |0 .("CDir "+bin$|
000034c0  2b 22 2e 22 2b 74 6f 64  61 79 24 29 0d 13 56 10  |+"."+today$)..V.|
000034d0  75 73 65 64 74 6f 64 61  79 25 3d b9 0d 13 60 05  |usedtoday%=...`.|
000034e0  cd 0d 13 6a 05 cd 0d 13  74 23 e7 20 a4 6f 62 6a  |...j....t#. .obj|
000034f0  74 79 70 65 28 70 24 29  3d 32 20 80 20 73 74 72  |type(p$)=2 . str|
00003500  75 63 74 75 72 65 25 20  8c 0d 13 7e 36 f2 67 65  |ucture% ...~6.ge|
00003510  74 6c 65 61 66 6e 61 6d  65 28 70 24 29 3a 72 6f  |tleafname(p$):ro|
00003520  6f 74 64 69 72 25 2b 3d  31 3a 72 6f 6f 74 64 69  |otdir%+=1:rootdi|
00003530  72 24 28 72 6f 6f 74 64  69 72 25 29 3d 70 24 0d  |r$(rootdir%)=p$.|
00003540  13 88 46 ff 28 22 43 6f  70 79 20 22 2b 70 24 2b  |..F.("Copy "+p$+|
00003550  22 20 22 2b 68 6f 6d 65  24 2b 22 2e 54 65 6d 70  |" "+home$+".Temp|
00003560  22 2b 6c 65 61 66 6e 61  6d 65 24 2b 22 20 7e 41  |"+leafname$+" ~A|
00003570  7e 43 7e 44 7e 46 7e 4c  7e 4e 7e 50 7e 51 52 53  |~C~D~F~L~N~P~QRS|
00003580  54 7e 56 22 29 0d 13 92  05 cd 0d 13 9c 1c 63 72  |T~V").........cr|
00003590  6e 74 25 2b 3d 31 3a 77  69 70 65 24 28 63 72 6e  |nt%+=1:wipe$(crn|
000035a0  74 25 29 3d 70 24 0d 13  a6 3c e7 20 28 72 65 74  |t%)=p$...<. (ret|
000035b0  61 69 6e 25 20 80 20 ac  20 63 74 72 6c 25 29 20  |ain% . . ctrl%) |
000035c0  f2 69 62 61 72 28 22 4d  6f 76 69 6e 67 22 29 20  |.ibar("Moving") |
000035d0  8b f2 69 62 61 72 28 22  44 65 6c 65 74 69 6e 67  |..ibar("Deleting|
000035e0  22 29 0d 13 b0 05 e1 0d  13 ba 18 dd f2 67 65 74  |")...........get|
000035f0  6c 65 61 66 6e 61 6d 65  28 70 61 74 68 24 29 0d  |leafname(path$).|
00003600  13 c4 19 ea 20 70 6f 69  6e 74 65 72 25 3a 70 6f  |.... pointer%:po|
00003610  69 6e 74 65 72 25 3d 30  0d 13 ce 2a f5 3a 70 6f  |inter%=0...*.:po|
00003620  69 6e 74 65 72 25 2b 3d  31 3a fd 20 a7 c2 70 61  |inter%+=1:. ..pa|
00003630  74 68 24 2c 70 6f 69 6e  74 65 72 25 29 2c 22 2e  |th$,pointer%),".|
00003640  22 29 0d 13 d8 1e 6c 65  61 66 6e 61 6d 65 24 3d  |")....leafname$=|
00003650  c2 70 61 74 68 24 2c 70  6f 69 6e 74 65 72 25 29  |.path$,pointer%)|
00003660  0d 13 e2 05 e1 0d 13 ec  11 dd a4 6f 62 6a 74 79  |...........objty|
00003670  70 65 28 61 24 29 0d 13  f6 1b ea 20 6f 62 6a 25  |pe(a$)..... obj%|
00003680  3a c8 99 26 38 2c 35 2c  61 24 20 b8 20 6f 62 6a  |:..&8,5,a$ . obj|
00003690  25 0d 14 00 09 3d 6f 62  6a 25 0d 14 0a 12 dd f2  |%....=obj%......|
000036a0  67 65 74 62 69 6e 28 68  6d 6d 25 29 0d 14 14 0d  |getbin(hmm%)....|
000036b0  62 61 64 62 69 6e 25 3d  30 0d 14 1e 07 ea 20 85  |badbin%=0..... .|
000036c0  0d 14 28 39 ee 20 85 20  ea 20 f2 6c 61 6d 61 74  |..(9. . . .lamat|
000036d0  69 6f 6e 28 a4 6d 73 67  28 22 62 64 65 22 2c 62  |ion(.msg("bde",b|
000036e0  69 6e 24 2c 22 22 29 2c  30 2c 31 29 3a 62 61 64  |in$,""),0,1):bad|
000036f0  62 69 6e 25 3d 2d 31 3a  e1 0d 14 32 3d 62 69 6e  |bin%=-1:...2=bin|
00003700  24 3d 24 28 a4 6c 75 73  74 28 50 61 6e 65 25 2c  |$=$(.lust(Pane%,|
00003710  31 31 29 29 3a e7 20 62  69 6e 24 3d 22 22 20 62  |11)):. bin$="" b|
00003720  69 6e 24 3d 68 6f 6d 65  24 2b 22 2e 42 6c 61 63  |in$=home$+".Blac|
00003730  6b 48 6f 6c 65 22 0d 14  3c 28 c8 99 26 32 37 2c  |kHole"..<(..&27,|
00003740  62 69 6e 24 2c 62 6c 33  25 2c 32 35 36 3a 62 69  |bin$,bl3%,256:bi|
00003750  6e 24 3d a4 67 61 67 61  28 62 6c 33 25 29 0d 14  |n$=.gaga(bl3%)..|
00003760  46 15 7a 25 3d a4 6f 62  6a 74 79 70 65 28 62 69  |F.z%=.objtype(bi|
00003770  6e 24 29 0d 14 50 0c e7  20 7a 25 3d 30 20 8c 0d  |n$)..P.. z%=0 ..|
00003780  14 5a 0d c8 8e 20 68 6d  6d 25 20 ca 0d 14 64 0d  |.Z... hmm% ...d.|
00003790  c9 20 30 3a 53 70 61 6d  21 0d 14 6e 12 c9 20 31  |. 0:Spam!..n.. 1|
000037a0  3a 62 61 64 62 69 6e 25  3d 2d 31 0d 14 78 05 cb  |:badbin%=-1..x..|
000037b0  0d 14 82 05 cd 0d 14 8c  16 f2 70 73 28 50 61 6e  |..........ps(Pan|
000037c0  65 25 2c 31 31 2c 62 69  6e 24 29 0d 14 96 05 e1  |e%,11,bin$).....|
000037d0  0d 14 a0 13 dd a4 65 6d  70 74 79 28 74 68 69 6e  |......empty(thin|
000037e0  67 24 29 0d 14 aa 31 ea  20 77 6f 74 25 3a c8 99  |g$)...1. wot%:..|
000037f0  26 43 2c 39 2c 74 68 69  6e 67 24 2c 62 6c 34 25  |&C,9,thing$,bl4%|
00003800  2c 31 2c 30 2c 31 33 2c  30 20 b8 20 2c 2c 2c 2c  |,1,0,13,0 . ,,,,|
00003810  77 6f 74 25 0d 14 b4 15  e7 20 77 6f 74 25 3d 2d  |wot%..... wot%=-|
00003820  31 20 8c 3d b9 20 8b 3d  a3 0d 14 be 12 dd f2 66  |1 .=. .=.......f|
00003830  72 65 64 28 7a 61 70 70  61 25 29 0d 14 c8 0b ea  |red(zappa%).....|
00003840  20 6f 74 6f 74 25 0d 14  d2 0f c8 8e 20 7a 61 70  | otot%...... zap|
00003850  70 61 25 20 ca 0d 14 dc  07 c9 20 31 0d 14 e6 23  |pa% ...... 1...#|
00003860  6f 74 6f 74 25 3d 74 6f  74 25 3a f2 73 65 61 72  |otot%=tot%:.sear|
00003870  63 68 61 6e 64 63 6f 6d  70 61 72 65 28 30 29 0d  |chandcompare(0).|
00003880  14 f0 11 e7 20 ac 20 66  66 66 61 73 74 25 20 8c  |.... . fffast% .|
00003890  0d 14 fa 62 e7 20 6f 74  6f 74 25 3c 74 6f 74 25  |...b. otot%<tot%|
000038a0  20 f2 70 73 28 4d 61 76  69 73 25 2c 31 39 2c c3  | .ps(Mavis%,19,.|
000038b0  28 74 6f 74 25 29 2b 22  20 66 69 6c 65 73 20 66  |(tot%)+" files f|
000038c0  6f 75 6e 64 22 29 3a f2  70 73 28 4d 61 76 69 73  |ound"):.ps(Mavis|
000038d0  25 2c 31 38 2c c3 28 74  6f 74 61 6c 73 69 7a 65  |%,18,.(totalsize|
000038e0  25 29 2b 22 20 62 79 74  65 73 20 74 6f 74 61 6c  |%)+" bytes total|
000038f0  22 29 0d 15 04 16 e7 20  21 73 70 69 6e 6f 6e 25  |")..... !spinon%|
00003900  20 f2 65 73 73 69 6f 6e  0d 15 0e 05 cd 0d 15 18  | .ession........|
00003910  2f c9 20 32 3a f2 73 65  61 72 63 68 61 6e 64 63  |/. 2:.searchandc|
00003920  6f 6d 70 61 72 65 28 30  29 3a e7 20 21 73 70 69  |ompare(0):. !spi|
00003930  6e 6f 6e 25 20 f2 65 73  73 69 6f 6e 0d 15 22 1c  |non% .ession..".|
00003940  c9 20 34 3a f2 73 65 61  72 63 68 61 6e 64 63 6f  |. 4:.searchandco|
00003950  6d 70 61 72 65 28 31 29  0d 15 2c 05 cb 0d 15 36  |mpare(1)..,....6|
00003960  0e e7 20 77 69 70 25 3d  30 20 8c 0d 15 40 0f c8  |.. wip%=0 ...@..|
00003970  8e 20 7a 61 70 70 61 25  20 ca 0d 15 4a 13 c9 20  |. zappa% ...J.. |
00003980  31 2c 32 2c 34 3a f2 66  69 6e 69 73 68 0d 15 54  |1,2,4:.finish..T|
00003990  05 cb 0d 15 5e 05 cc 0d  15 68 39 e7 20 7a 61 70  |....^....h9. zap|
000039a0  70 61 25 3d 31 20 80 20  ac 20 66 66 66 61 73 74  |pa%=1 . . fffast|
000039b0  25 20 f2 70 73 28 4d 61  76 69 73 25 2c 32 31 2c  |% .ps(Mavis%,21,|
000039c0  c2 6d 73 67 24 28 77 69  70 25 29 2c 34 34 29 29  |.msg$(wip%),44))|
000039d0  0d 15 72 05 cd 0d 15 7c  05 e1 0d 15 86 0c dd f2  |..r....|........|
000039e0  65 73 73 69 6f 6e 0d 15  90 30 70 69 65 63 65 6f  |ession...0pieceo|
000039f0  66 24 3d c2 70 69 65 63  65 6f 66 24 2c a9 70 69  |f$=.pieceof$,.pi|
00003a00  65 63 65 6f 66 24 2d 31  29 2b c0 70 69 65 63 65  |eceof$-1)+.piece|
00003a10  6f 66 24 2c 31 29 0d 15  9a 3a 24 69 62 74 3d 70  |of$,1)...:$ibt=p|
00003a20  69 65 63 65 6f 66 24 3a  e7 20 21 73 70 69 6e 6f  |ieceof$:. !spino|
00003a30  6e 25 20 d6 20 73 70 69  6e 20 8b 20 f2 73 65 6c  |n% . spin . .sel|
00003a40  69 63 28 2d 32 2c 68 6f  6c 65 25 2c 30 2c 30 29  |ic(-2,hole%,0,0)|
00003a50  0d 15 a4 05 e1 0d 15 ae  0c dd f2 66 69 6e 69 73  |...........finis|
00003a60  68 0d 15 b8 1e ea 20 65  6e 64 74 69 6d 65 25 2c  |h..... endtime%,|
00003a70  65 6c 61 70 73 65 64 25  2c 68 69 70 70 6f 24 0d  |elapsed%,hippo$.|
00003a80  15 c2 3d f2 69 62 61 72  28 22 22 29 3a 21 62 79  |..=.ibar(""):!by|
00003a90  65 25 3d 31 31 3a 70 6f  6c 6c 6d 61 73 6b 25 3d  |e%=11:pollmask%=|
00003aa0  a4 70 6f 6c 6c 6d 61 73  6b 3a c8 99 26 32 30 30  |.pollmask:..&200|
00003ab0  31 45 2c 37 2c 2c 73 63  72 61 70 25 0d 15 cc 0d  |1E,7,,scrap%....|
00003ac0  e7 20 66 69 6c 65 25 20  8c 0d 15 d6 18 66 69 6c  |. file% .....fil|
00003ad0  65 25 3d a3 3a e7 20 74  6f 74 25 3e 30 20 f2 66  |e%=.:. tot%>0 .f|
00003ae0  77 0d 15 e0 44 e7 20 74  6f 6f 6d 61 6e 79 66 69  |w...D. toomanyfi|
00003af0  6c 65 73 25 20 f2 6c 61  6d 61 74 69 6f 6e 28 a4  |les% .lamation(.|
00003b00  6d 73 67 28 22 74 6d 66  22 2c 22 22 2c 22 22 29  |msg("tmf","","")|
00003b10  2c 30 2c 30 29 3a 74 6f  6f 6d 61 6e 79 66 69 6c  |,0,0):toomanyfil|
00003b20  65 73 25 3d a3 0d 15 ea  05 cd 0d 15 f4 10 e7 20  |es%=........... |
00003b30  7a 61 70 70 61 25 3d 31  20 8c 0d 15 fe 3a c8 99  |zappa%=1 ....:..|
00003b40  26 34 32 20 b8 20 65 6e  64 74 69 6d 65 25 3a 65  |&42 . endtime%:e|
00003b50  6c 61 70 73 65 64 25 3d  28 65 6e 64 74 69 6d 65  |lapsed%=(endtime|
00003b60  25 2d 73 65 61 72 63 68  74 69 6d 65 25 29 20 81  |%-searchtime%) .|
00003b70  20 31 30 30 0d 16 08 38  68 69 70 70 6f 24 3d a4  | 100...8hippo$=.|
00003b80  6d 73 67 28 22 66 66 74  22 2c c3 28 65 6c 61 70  |msg("fft",.(elap|
00003b90  73 65 64 25 20 81 20 36  30 29 2c c3 28 65 6c 61  |sed% . 60),.(ela|
00003ba0  70 73 65 64 25 20 83 20  36 30 29 29 0d 16 12 3f  |psed% . 60))...?|
00003bb0  f2 63 68 61 6e 67 65 6d  61 76 69 73 28 22 47 4f  |.changemavis("GO|
00003bc0  22 2c 22 50 72 65 76 69  6f 75 73 20 53 65 61 72  |","Previous Sear|
00003bd0  63 68 3a 22 29 3a f2 70  73 28 4d 61 76 69 73 25  |ch:"):.ps(Mavis%|
00003be0  2c 32 31 2c 68 69 70 70  6f 24 29 0d 16 1c 55 f2  |,21,hippo$)...U.|
00003bf0  70 73 28 4d 61 76 69 73  25 2c 31 39 2c c3 28 74  |ps(Mavis%,19,.(t|
00003c00  6f 74 25 29 2b 22 20 66  69 6c 65 73 20 66 6f 75  |ot%)+" files fou|
00003c10  6e 64 22 29 3a f2 70 73  28 4d 61 76 69 73 25 2c  |nd"):.ps(Mavis%,|
00003c20  31 38 2c c3 28 74 6f 74  61 6c 73 69 7a 65 25 29  |18,.(totalsize%)|
00003c30  2b 22 20 62 79 74 65 73  20 74 6f 74 61 6c 22 29  |+" bytes total")|
00003c40  0d 16 26 1c f2 67 6d 61  76 69 73 28 30 2c 67 72  |..&..gmavis(0,gr|
00003c50  65 79 29 3a f2 73 65 74  75 70 66 66 0d 16 30 05  |ey):.setupff..0.|
00003c60  cd 0d 16 3a 05 e1 0d 16  44 0d dd f2 64 6f 61 77  |...:....D...doaw|
00003c70  69 70 65 0d 16 4e 18 ea  20 6e 25 2c 74 65 6d 70  |ipe..N.. n%,temp|
00003c80  32 24 2c 6f 62 6a 74 79  70 65 25 0d 16 58 28 77  |2$,objtype%..X(w|
00003c90  69 70 69 6e 67 25 3d b9  3a f2 67 65 74 6c 65 61  |iping%=.:.getlea|
00003ca0  66 6e 61 6d 65 28 77 69  70 65 24 28 63 72 6e 74  |fname(wipe$(crnt|
00003cb0  25 29 29 0d 16 62 36 77  69 70 65 64 69 72 24 3d  |%))..b6wipedir$=|
00003cc0  c0 77 69 70 65 24 28 63  72 6e 74 25 29 2c 28 a9  |.wipe$(crnt%),(.|
00003cd0  77 69 70 65 24 28 63 72  6e 74 25 29 2d a9 6c 65  |wipe$(crnt%)-.le|
00003ce0  61 66 6e 61 6d 65 24 29  29 0d 16 6c 29 c8 99 26  |afname$))..l)..&|
00003cf0  36 30 30 44 45 2c 22 2a  46 69 6c 65 72 5f 41 63  |600DE,"*Filer_Ac|
00003d00  74 69 6f 6e 22 20 b8 20  64 65 6c 68 61 6e 64 6c  |tion" . delhandl|
00003d10  65 25 0d 16 76 20 c8 99  26 36 30 46 38 30 2c 64  |e%..v ..&60F80,d|
00003d20  65 6c 68 61 6e 64 6c 65  25 2c 77 69 70 65 64 69  |elhandle%,wipedi|
00003d30  72 24 0d 16 80 12 e3 20  6e 25 3d 31 20 b8 20 63  |r$..... n%=1 . c|
00003d40  72 6e 74 25 0d 16 8a 3e  f2 67 65 74 6c 65 61 66  |rnt%...>.getleaf|
00003d50  6e 61 6d 65 28 77 69 70  65 24 28 6e 25 29 29 3a  |name(wipe$(n%)):|
00003d60  6c 65 61 66 6e 61 6d 65  24 3d c2 6c 65 61 66 6e  |leafname$=.leafn|
00003d70  61 6d 65 24 2c a9 6c 65  61 66 6e 61 6d 65 24 2d  |ame$,.leafname$-|
00003d80  31 29 0d 16 94 28 c8 99  26 36 30 46 38 31 2c 64  |1)...(..&60F81,d|
00003d90  65 6c 68 61 6e 64 6c 65  25 2c 6c 65 61 66 6e 61  |elhandle%,leafna|
00003da0  6d 65 24 2b bd 30 2b 22  20 22 0d 16 9e 05 ed 0d  |me$+.0+" "......|
00003db0  16 a8 1b e7 20 28 72 65  74 61 69 6e 25 20 80 20  |.... (retain% . |
00003dc0  ac 20 63 74 72 6c 25 29  20 8c 0d 16 b2 1a 74 65  |. ctrl%) .....te|
00003dd0  6d 70 32 24 3d 62 69 6e  24 2b 22 2e 22 2b 74 6f  |mp2$=bin$+"."+to|
00003de0  64 61 79 24 0d 16 bc 41  e7 20 28 28 77 69 70 65  |day$...A. ((wipe|
00003df0  6f 70 74 25 20 80 20 34  29 3d 34 29 20 6f 62 6a  |opt% . 4)=4) obj|
00003e00  74 79 70 65 25 3d 31 3a  67 65 74 65 6d 25 3d a3  |type%=1:getem%=.|
00003e10  20 8b 6f 62 6a 74 79 70  65 25 3d 30 3a 67 65 74  | .objtype%=0:get|
00003e20  65 6d 25 3d b9 0d 16 c6  05 cc 0d 16 d0 21 6f 62  |em%=.........!ob|
00003e30  6a 74 79 70 65 25 3d 32  3a 74 65 6d 70 32 24 3d  |jtype%=2:temp2$=|
00003e40  22 22 3a 67 65 74 65 6d  25 3d a3 0d 16 da 05 cd  |"":getem%=......|
00003e50  0d 16 e4 3a c8 99 26 36  30 46 38 32 2c 64 65 6c  |...:..&60F82,del|
00003e60  68 61 6e 64 6c 65 25 2c  6f 62 6a 74 79 70 65 25  |handle%,objtype%|
00003e70  2c 77 69 70 65 6f 70 74  25 2c 74 65 6d 70 32 24  |,wipeopt%,temp2$|
00003e80  2c a9 74 65 6d 70 32 24  2b 31 0d 16 ee 05 e1 0d  |,.temp2$+1......|
00003e90  16 f8 33 dd a4 66 69 6c  65 72 61 63 74 69 6f 6e  |..3..fileraction|
00003ea0  28 6f 70 25 2c 6f 70 74  25 2c 64 69 72 24 2c 6d  |(op%,opt%,dir$,m|
00003eb0  65 6d 25 2c 64 61 74 61  24 2c 64 61 74 6c 65 6e  |em%,data$,datlen|
00003ec0  25 29 0d 17 02 09 ea 20  6e 6f 25 0d 17 0c 22 c8  |%)..... no%...".|
00003ed0  99 26 36 30 30 44 45 2c  22 2a 46 69 6c 65 72 5f  |.&600DE,"*Filer_|
00003ee0  41 63 74 69 6f 6e 22 20  b8 20 6e 6f 25 0d 17 16  |Action" . no%...|
00003ef0  27 c8 99 26 36 30 46 38  30 2c 6e 6f 25 2c 64 69  |'..&60F80,no%,di|
00003f00  72 24 3a c8 99 26 36 30  46 38 31 2c 6e 6f 25 2c  |r$:..&60F81,no%,|
00003f10  6d 65 6d 25 0d 17 20 29  c8 99 26 36 30 46 38 32  |mem%.. )..&60F82|
00003f20  2c 6e 6f 25 2c 6f 70 25  2c 6f 70 74 25 2c 64 61  |,no%,op%,opt%,da|
00003f30  74 61 24 2c 64 61 74 6c  65 6e 25 2b 31 0d 17 2a  |ta$,datlen%+1..*|
00003f40  08 3d 6e 6f 25 0d 17 34  1e dd a4 67 6f 72 62 6c  |.=no%..4...gorbl|
00003f50  69 6d 65 79 28 6d 61 74  63 68 24 2c 65 6e 74 65  |imey(match$,ente|
00003f60  72 24 29 0d 17 3e 20 ea  20 63 6f 75 6e 74 25 2c  |r$)..> . count%,|
00003f70  6e 61 6d 65 24 2c 63 68  61 72 24 2c 72 65 73 75  |name$,char$,resu|
00003f80  6c 74 25 0d 17 48 16 72  65 73 75 6c 74 25 3d b9  |lt%..H.result%=.|
00003f90  3a 63 6f 75 6e 74 25 3d  31 0d 17 52 05 f5 0d 17  |:count%=1..R....|
00003fa0  5c 0c 6e 61 6d 65 24 3d  22 22 0d 17 66 05 f5 0d  |\.name$=""..f...|
00003fb0  17 70 42 63 68 61 72 24  3d c1 65 6e 74 65 72 24  |.pBchar$=.enter$|
00003fc0  2c 63 6f 75 6e 74 25 2c  31 29 3a e7 20 63 68 61  |,count%,1):. cha|
00003fd0  72 24 3c 3e 22 23 22 20  80 20 63 68 61 72 24 3c  |r$<>"#" . char$<|
00003fe0  3e 22 2a 22 20 6e 61 6d  65 24 2b 3d 63 68 61 72  |>"*" name$+=char|
00003ff0  24 0d 17 7a 0d 63 6f 75  6e 74 25 2b 3d 31 0d 17  |$..z.count%+=1..|
00004000  84 2e fd 20 63 6f 75 6e  74 25 3d a9 65 6e 74 65  |... count%=.ente|
00004010  72 24 2b 31 20 84 20 63  68 61 72 24 3d 22 23 22  |r$+1 . char$="#"|
00004020  20 84 20 63 68 61 72 24  3d 22 2a 22 0d 17 8e 29  | . char$="*"...)|
00004030  e7 20 a7 6d 61 74 63 68  24 2c 6e 61 6d 65 24 29  |. .match$,name$)|
00004040  20 72 65 73 75 6c 74 25  3d b9 20 8b 72 65 73 75  | result%=. .resu|
00004050  6c 74 25 3d a3 0d 17 98  22 fd 20 63 6f 75 6e 74  |lt%=....". count|
00004060  25 3d a9 65 6e 74 65 72  24 2b 31 20 84 20 72 65  |%=.enter$+1 . re|
00004070  73 75 6c 74 25 3d a3 0d  17 a2 0c 3d 72 65 73 75  |sult%=.....=resu|
00004080  6c 74 25 0d 17 ac 31 dd  a4 6c 75 76 61 64 75 63  |lt%...1..luvaduc|
00004090  6b 28 6c 6f 6f 6b 69 6e  67 25 2c 74 25 29 3a e7  |k(looking%,t%):.|
000040a0  20 74 25 3d 6c 6f 6f 6b  69 6e 67 25 20 8c 3d b9  | t%=looking% .=.|
000040b0  20 8b 3d a3 0d 17 b6 22  dd a4 74 65 78 74 28 6e  | .=...."..text(n|
000040c0  61 6d 65 24 2c 74 79 70  65 25 2c 6f 62 6a 25 2c  |ame$,type%,obj%,|
000040d0  73 69 7a 65 25 29 0d 17  c0 17 ea 20 74 65 78 74  |size%)..... text|
000040e0  24 2c 6c 25 2c 61 25 2c  66 72 65 64 24 0d 17 ca  |$,l%,a%,fred$...|
000040f0  1f 74 65 78 74 24 3d 6e  61 6d 65 24 2b c4 31 34  |.text$=name$+.14|
00004100  2d a9 6e 61 6d 65 24 2c  22 20 22 29 0d 17 d4 17  |-.name$," ")....|
00004110  e7 20 6f 62 6a 25 3d 31  20 84 20 6f 62 6a 25 3d  |. obj%=1 . obj%=|
00004120  33 20 8c 0d 17 de 28 c8  99 22 4f 53 5f 46 53 43  |3 ....(.."OS_FSC|
00004130  6f 6e 74 72 6f 6c 22 2c  31 38 2c 2c 74 79 70 65  |ontrol",18,,type|
00004140  25 20 b8 20 2c 2c 6c 25  2c 61 25 0d 17 e8 20 62  |% . ,,l%,a%... b|
00004150  6c 32 25 21 30 3d 6c 25  3a 62 6c 32 25 21 34 3d  |l2%!0=l%:bl2%!4=|
00004160  61 25 3a 62 6c 32 25 3f  38 3d 30 0d 17 f2 27 66  |a%:bl2%?8=0...'f|
00004170  72 65 64 24 3d a4 67 61  67 61 28 62 6c 32 25 29  |red$=.gaga(bl2%)|
00004180  3a e7 20 c0 66 72 65 64  24 2c 31 29 3d 22 26 22  |:. .fred$,1)="&"|
00004190  20 8c 0d 17 fc 1c 74 65  78 74 24 2b 3d 22 55 6e  | .....text$+="Un|
000041a0  6b 6e 6f 77 6e 20 20 20  28 78 78 78 29 22 0d 18  |known   (xxx)"..|
000041b0  06 05 cc 0d 18 10 2b 74  65 78 74 24 2b 3d a4 67  |......+text$+=.g|
000041c0  61 67 61 28 62 6c 32 25  29 2b 22 20 20 22 2b 22  |aga(bl2%)+"  "+"|
000041d0  28 22 2b c3 7e 74 79 70  65 25 2b 22 29 22 0d 18  |("+.~type%+")"..|
000041e0  1a 05 cd 0d 18 24 05 cc  0d 18 2e 1c 74 65 78 74  |.....$......text|
000041f0  24 2b 3d 22 44 69 72 65  63 74 6f 72 79 20 20 20  |$+="Directory   |
00004200  20 20 20 22 0d 18 38 05  cd 0d 18 42 2a c8 99 26  |   "..8....B*..&|
00004210  45 43 2c 73 69 7a 65 25  2c 62 6c 32 25 2c 31 32  |EC,size%,bl2%,12|
00004220  38 3a 66 72 65 64 24 3d  a4 67 61 67 61 28 62 6c  |8:fred$=.gaga(bl|
00004230  32 25 29 0d 18 4c 22 74  65 78 74 24 2b 3d c4 28  |2%)..L"text$+=.(|
00004240  31 34 2d a9 66 72 65 64  24 29 2c 22 20 22 29 2b  |14-.fred$)," ")+|
00004250  66 72 65 64 24 0d 18 56  0a 3d 74 65 78 74 24 0d  |fred$..V.=text$.|
00004260  18 60 1e dd f2 6f 70 65  6e 61 72 63 68 69 76 65  |.`...openarchive|
00004270  28 70 61 74 68 24 2c 6e  61 6d 65 24 29 0d 18 6a  |(path$,name$)..j|
00004280  0f ea 20 61 72 63 74 72  69 65 64 25 0d 18 74 0f  |.. arctried%..t.|
00004290  61 72 63 74 72 69 65 64  25 3d 30 0d 18 7e 07 ea  |arctried%=0..~..|
000042a0  20 85 0d 18 88 5c ee 20  85 20 ea 20 f2 61 72 63  | ....\. . . .arc|
000042b0  65 72 72 6f 72 28 6e 61  6d 65 24 2c 61 72 63 74  |error(name$,arct|
000042c0  72 69 65 64 25 29 3a e7  20 61 72 63 74 72 69 65  |ried%):. arctrie|
000042d0  64 25 3d 32 20 f2 6c 61  6d 61 74 69 6f 6e 28 a4  |d%=2 .lamation(.|
000042e0  6d 73 67 28 22 61 72 63  6f 70 65 6e 22 2c 70 61  |msg("arcopen",pa|
000042f0  74 68 24 2c f6 24 29 2c  30 2c 30 29 3a e1 0d 18  |th$,.$),0,0):...|
00004300  92 42 ff 28 22 4f 70 65  6e 41 72 63 68 69 76 65  |.B.("OpenArchive|
00004310  20 22 2b 70 61 74 68 24  29 3a 77 69 70 25 2b 3d  | "+path$):wip%+=|
00004320  31 3a 6d 73 67 24 28 77  69 70 25 29 3d 22 61 72  |1:msg$(wip%)="ar|
00004330  63 66 73 23 22 2b 6e 61  6d 65 24 2b 22 3a 24 22  |cfs#"+name$+":$"|
00004340  0d 18 9c 05 e1 0d 18 a6  21 dd f2 61 72 63 65 72  |........!..arcer|
00004350  72 6f 72 28 6e 61 6d 65  24 2c f8 20 61 72 63 74  |ror(name$,. arct|
00004360  72 69 65 64 25 29 0d 18  b0 29 ff 28 22 43 6c 6f  |ried%)...).("Clo|
00004370  73 65 41 72 63 68 69 76  65 20 22 2b 6e 61 6d 65  |seArchive "+name|
00004380  24 29 3a 61 72 63 74 72  69 65 64 25 2b 3d 31 0d  |$):arctried%+=1.|
00004390  18 ba 05 e1 0d 18 c4 12  dd a4 62 75 6d 28 f8 20  |..........bum(. |
000043a0  61 64 64 72 25 29 0d 18  ce 0d ea 62 24 3a 62 24  |addr%).....b$:b$|
000043b0  3d 22 22 0d 18 d8 27 c8  95 20 3f 61 64 64 72 25  |=""...'.. ?addr%|
000043c0  3c 3e 30 3a 62 24 2b 3d  bd 3f 61 64 64 72 25 3a  |<>0:b$+=.?addr%:|
000043d0  61 64 64 72 25 2b 3d 31  3a ce 0d 18 e2 0c 61 64  |addr%+=1:.....ad|
000043e0  64 72 25 2b 3d 31 0d 18  ec 07 3d 62 24 0d 18 f6  |dr%+=1....=b$...|
000043f0  3a dd f2 73 65 6c 69 63  28 62 6c 34 25 21 30 2c  |:..selic(bl4%!0,|
00004400  62 6c 34 25 21 34 2c 62  6c 34 25 21 38 2c 62 6c  |bl4%!4,bl4%!8,bl|
00004410  34 25 21 31 32 29 3a c8  99 26 34 30 30 43 44 2c  |4%!12):..&400CD,|
00004420  2c 62 6c 34 25 3a e1 0d  19 00 31 dd a4 6c 75 73  |,bl4%:....1..lus|
00004430  74 28 62 6c 35 25 21 30  2c 62 6c 35 25 21 34 29  |t(bl5%!0,bl5%!4)|
00004440  3a c8 99 26 34 30 30 43  45 2c 2c 62 6c 35 25 3a  |:..&400CE,,bl5%:|
00004450  3d 62 6c 35 25 21 32 38  0d 19 0a 4b dd f2 70 73  |=bl5%!28...K..ps|
00004460  28 77 69 6e 64 6f 77 2c  69 63 6f 6e 2c 73 24 29  |(window,icon,s$)|
00004470  3a 24 28 a4 6c 75 73 74  28 77 69 6e 64 6f 77 2c  |:$(.lust(window,|
00004480  69 63 6f 6e 29 29 3d 73  24 3a f2 73 65 6c 69 63  |icon))=s$:.selic|
00004490  28 77 69 6e 64 6f 77 2c  69 63 6f 6e 2c 30 2c 30  |(window,icon,0,0|
000044a0  29 3a e1 0d 19 14 0e dd  f2 69 62 61 72 28 69 24  |):.......ibar(i$|
000044b0  29 0d 19 1e 0f e7 20 62  61 64 62 69 6e 25 20 e1  |)..... badbin% .|
000044c0  0d 19 28 0d e7 20 69 24  3d 22 22 20 8c 0d 19 32  |..(.. i$="" ...2|
000044d0  2c e7 20 a4 65 6d 70 74  79 28 62 69 6e 24 29 20  |,. .empty(bin$) |
000044e0  69 24 3d 22 45 6d 70 74  79 22 20 8b 69 24 3d 22  |i$="Empty" .i$="|
000044f0  4f 63 63 75 70 69 65 64  22 0d 19 3c 05 cd 0d 19  |Occupied"..<....|
00004500  46 34 24 69 62 74 3d 69  24 3a e7 20 21 73 70 69  |F4$ibt=i$:. !spi|
00004510  6e 6f 6e 25 20 d6 20 73  70 69 6e 20 8b 20 f2 73  |non% . spin . .s|
00004520  65 6c 69 63 28 2d 32 2c  68 6f 6c 65 25 2c 30 2c  |elic(-2,hole%,0,|
00004530  30 29 0d 19 50 05 e1 0d  19 5a 0b dd f2 65 64 75  |0)..P....Z...edu|
00004540  72 65 0d 19 64 0a ea 20  6c 2c 74 24 0d 19 6e 3f  |re..d.. l,t$..n?|
00004550  f2 70 73 28 41 75 74 6f  25 2c 31 2c 46 74 70 24  |.ps(Auto%,1,Ftp$|
00004560  28 63 75 72 72 70 61 74  68 25 29 29 3a f2 70 73  |(currpath%)):.ps|
00004570  28 41 75 74 6f 25 2c 35  2c 53 76 70 74 68 24 28  |(Auto%,5,Svpth$(|
00004580  63 75 72 72 70 61 74 68  25 29 29 0d 19 78 23 74  |currpath%))..x#t|
00004590  24 3d 22 46 69 6c 65 24  54 79 70 65 5f 22 2b 46  |$="File$Type_"+F|
000045a0  74 70 24 28 63 75 72 72  70 61 74 68 25 29 0d 19  |tp$(currpath%)..|
000045b0  82 21 c8 99 26 32 30 30  32 33 2c 74 24 2c 62 6c  |.!..&20023,t$,bl|
000045c0  33 25 2c 32 30 2c 30 2c  30 20 b8 20 2c 2c 6c 0d  |3%,20,0,0 . ,,l.|
000045d0  19 8c 44 24 73 70 73 25  3d a4 67 65 74 6d 65 6d  |..D$sps%=.getmem|
000045e0  28 62 6c 33 25 2c a4 6c  65 73 73 28 6c 2c 38 29  |(bl3%,.less(l,8)|
000045f0  29 3a 24 73 70 74 25 3d  22 73 66 69 6c 65 5f 22  |):$spt%="sfile_"|
00004600  2b 46 74 70 24 28 63 75  72 72 70 61 74 68 25 29  |+Ftp$(currpath%)|
00004610  2b bd 30 0d 19 96 1f f2  73 65 6c 69 63 28 41 75  |+.0.....selic(Au|
00004620  74 6f 25 2c 66 69 6c 65  69 63 6f 6e 25 2c 30 2c  |to%,fileicon%,0,|
00004630  30 29 0d 19 a0 05 e1 0d  19 aa 15 dd f2 73 61 76  |0)...........sav|
00004640  65 66 69 6c 65 28 74 79  70 65 25 29 0d 19 b4 20  |efile(type%)... |
00004650  ea 20 6c 65 61 66 24 2c  70 61 74 68 24 2c 73 61  |. leaf$,path$,sa|
00004660  76 65 64 69 72 24 2c 6c  25 2c 74 25 0d 19 be 23  |vedir$,l%,t%...#|
00004670  73 61 76 65 64 69 72 24  3d 22 22 3a 6c 65 61 66  |savedir$="":leaf|
00004680  24 3d a4 67 61 67 61 28  62 6c 25 2b 34 34 29 0d  |$=.gaga(bl%+44).|
00004690  19 c8 0c e7 20 70 25 3e  31 20 8c 0d 19 d2 11 e3  |.... p%>1 ......|
000046a0  20 6c 25 3d 30 20 b8 20  70 25 2d 31 0d 19 dc 2f  | l%=0 . p%-1.../|
000046b0  e7 20 a0 28 22 26 22 2b  46 74 70 24 28 6c 25 29  |. .("&"+Ftp$(l%)|
000046c0  29 3d 74 79 70 65 25 20  73 61 76 65 64 69 72 24  |)=type% savedir$|
000046d0  3d 53 76 70 74 68 24 28  6c 25 29 0d 19 e6 05 ed  |=Svpth$(l%).....|
000046e0  0d 19 f0 05 cd 0d 19 fa  4d e7 20 a0 28 22 26 22  |........M. .("&"|
000046f0  2b 24 28 a4 6c 75 73 74  28 41 75 74 6f 25 2c 31  |+$(.lust(Auto%,1|
00004700  29 29 2b 22 30 22 29 3d  74 79 70 65 25 2a 26 31  |))+"0")=type%*&1|
00004710  30 20 70 24 3d 24 28 a4  6c 75 73 74 28 41 75 74  |0 p$=$(.lust(Aut|
00004720  6f 25 2c 35 29 29 3a 73  61 76 65 64 69 72 24 3d  |o%,5)):savedir$=|
00004730  70 24 0d 1a 04 28 e7 20  73 61 76 65 64 69 72 24  |p$...(. savedir$|
00004740  3d 22 22 20 f2 67 65 74  62 69 6e 28 30 29 3a e7  |="" .getbin(0):.|
00004750  20 62 61 64 62 69 6e 25  20 e1 0d 1a 0e 13 e7 20  | badbin% ...... |
00004760  73 61 76 65 64 69 72 24  3d 22 22 20 8c 0d 1a 18  |savedir$="" ....|
00004770  55 73 61 76 65 64 69 72  24 3d 62 69 6e 24 2b 22  |Usavedir$=bin$+"|
00004780  2e 22 2b 74 6f 64 61 79  24 3a e7 20 a4 6f 62 6a  |."+today$:. .obj|
00004790  74 79 70 65 28 62 69 6e  24 2b 22 2e 22 2b 74 6f  |type(bin$+"."+to|
000047a0  64 61 79 24 29 3d 30 20  ff 28 22 43 44 69 72 20  |day$)=0 .("CDir |
000047b0  22 2b 62 69 6e 24 2b 22  2e 22 2b 74 6f 64 61 79  |"+bin$+"."+today|
000047c0  24 29 0d 1a 22 10 75 73  65 64 74 6f 64 61 79 25  |$)..".usedtoday%|
000047d0  3d b9 0d 1a 2c 05 cd 0d  1a 36 1c 70 61 74 68 24  |=...,....6.path$|
000047e0  3d 73 61 76 65 64 69 72  24 2b 22 2e 22 2b 6c 65  |=savedir$+"."+le|
000047f0  61 66 24 0d 1a 40 07 ea  20 85 0d 1a 4a 2c ee 20  |af$..@.. ...J,. |
00004800  85 20 ea 20 f2 6c 61 6d  61 74 69 6f 6e 28 a4 6d  |. . .lamation(.m|
00004810  73 67 28 22 75 73 66 22  2c f6 24 2c 22 22 29 2c  |sg("usf",.$,""),|
00004820  30 2c 30 29 3a e1 0d 1a  54 18 c8 99 26 38 2c 35  |0,0):...T...&8,5|
00004830  2c 73 61 76 65 64 69 72  24 20 b8 20 74 25 0d 1a  |,savedir$ . t%..|
00004840  5e 3d e7 20 74 25 3d 30  20 f2 6c 61 6d 61 74 69  |^=. t%=0 .lamati|
00004850  6f 6e 28 a4 6d 73 67 28  22 75 73 66 22 2c a4 6d  |on(.msg("usf",.m|
00004860  73 67 28 22 6e 64 69 72  22 2c 22 22 2c 22 22 29  |sg("ndir","","")|
00004870  2c 22 22 29 2c 30 2c 30  29 3a e1 0d 1a 68 3c f2  |,""),0,0):...h<.|
00004880  69 62 61 72 28 22 53 61  76 69 6e 67 22 29 3a e7  |ibar("Saving"):.|
00004890  20 73 63 6f 6e 66 25 20  f2 63 6f 6e 66 69 72 6d  | sconf% .confirm|
000048a0  28 70 61 74 68 24 29 20  8b f2 73 61 76 65 69 74  |(path$) ..saveit|
000048b0  28 70 61 74 68 24 29 0d  1a 72 28 e7 20 6f 70 65  |(path$)..r(. ope|
000048c0  6e 25 20 ff 28 22 46 69  6c 65 72 5f 4f 70 65 6e  |n% .("Filer_Open|
000048d0  44 69 72 20 22 2b 73 61  76 65 64 69 72 24 29 0d  |Dir "+savedir$).|
000048e0  1a 7c 0d f2 69 62 61 72  28 22 22 29 0d 1a 86 05  |.|..ibar("")....|
000048f0  e1 0d 1a 90 10 dd f2 73  61 76 65 69 74 28 70 24  |.......saveit(p$|
00004900  29 0d 1a 9a 31 62 6c 25  21 31 32 3d 62 6c 25 21  |)...1bl%!12=bl%!|
00004910  38 3a 62 6c 25 21 31 36  3d 32 3a 62 6c 25 21 30  |8:bl%!16=2:bl%!0|
00004920  3d 28 28 34 39 2b a9 28  70 24 29 29 81 20 34 29  |=((49+.(p$)). 4)|
00004930  2a 34 0d 1a a4 38 24 28  62 6c 25 2b 34 34 29 3d  |*4...8$(bl%+44)=|
00004940  70 24 3a 3f 28 62 6c 25  2b 34 34 2b a9 28 70 24  |p$:?(bl%+44+.(p$|
00004950  29 29 3d 30 3a c8 99 26  34 30 30 45 37 2c 31 37  |))=0:..&400E7,17|
00004960  2c 62 6c 25 2c 62 6c 25  21 34 0d 1a ae 05 e1 0d  |,bl%,bl%!4......|
00004970  1a b8 11 dd f2 63 6f 6e  66 69 72 6d 28 70 24 29  |.....confirm(p$)|
00004980  0d 1a c2 10 ea 20 62 6f  76 69 6e 65 25 2c 6e 24  |..... bovine%,n$|
00004990  0d 1a cc 1e 6e 24 3d 22  53 61 76 65 20 46 69 6c  |....n$="Save Fil|
000049a0  65 20 61 73 20 22 2b 70  24 2b 22 20 3f 22 0d 1a  |e as "+p$+" ?"..|
000049b0  d6 2d e7 20 a4 6f 62 6a  74 79 70 65 28 70 24 29  |.-. .objtype(p$)|
000049c0  3d 31 20 6e 24 2b 3d a4  6d 73 67 28 22 65 78 69  |=1 n$+=.msg("exi|
000049d0  73 74 73 22 2c 22 22 2c  22 22 29 0d 1a e0 45 62  |sts","","")...Eb|
000049e0  6c 34 25 21 30 3d 30 3a  24 28 62 6c 34 25 2b 34  |l4%!0=0:$(bl4%+4|
000049f0  29 3d 6e 24 2b bd 30 3a  c8 99 26 34 30 30 44 46  |)=n$+.0:..&400DF|
00004a00  2c 62 6c 34 25 2c 31 39  2c 22 42 6c 61 63 6b 20  |,bl4%,19,"Black |
00004a10  48 6f 6c 65 22 20 b8 20  2c 62 6f 76 69 6e 65 25  |Hole" . ,bovine%|
00004a20  0d 1a ea 1c e7 20 62 6f  76 69 6e 65 25 3c 3e 32  |..... bovine%<>2|
00004a30  20 f2 73 61 76 65 69 74  28 70 24 29 0d 1a f4 05  | .saveit(p$)....|
00004a40  e1 0d 1a fe 10 dd a4 67  61 67 61 28 61 64 64 25  |.......gaga(add%|
00004a50  29 0d 1b 08 12 ea 20 61  6e 73 24 3a 61 6e 73 24  |)..... ans$:ans$|
00004a60  3d 22 22 0d 1b 12 26 c8  95 20 3f 61 64 64 25 3e  |=""...&.. ?add%>|
00004a70  33 31 3a 61 6e 73 24 2b  3d bd 3f 61 64 64 25 3a  |31:ans$+=.?add%:|
00004a80  61 64 64 25 2b 3d 31 3a  ce 0d 1b 1c 09 3d 61 6e  |add%+=1:.....=an|
00004a90  73 24 0d 1b 26 11 dd a4  67 65 74 6d 65 6d 28 70  |s$..&...getmem(p|
00004aa0  2c 6c 29 0d 1b 30 16 ea  20 66 6c 61 74 75 6c 65  |,l)..0.. flatule|
00004ab0  6e 63 65 24 2c 73 74 6f  70 0d 1b 3a 0c 73 74 6f  |nce$,stop..:.sto|
00004ac0  70 3d 70 2b 6c 0d 1b 44  2a c8 95 20 3f 70 20 80  |p=p+l..D*.. ?p .|
00004ad0  20 70 3c 73 74 6f 70 3a  66 6c 61 74 75 6c 65 6e  | p<stop:flatulen|
00004ae0  63 65 24 2b 3d bd 3f 70  3a 70 2b 3d 31 3a ce 0d  |ce$+=.?p:p+=1:..|
00004af0  1b 4e 10 3d 66 6c 61 74  75 6c 65 6e 63 65 24 0d  |.N.=flatulence$.|
00004b00  1b 58 1d dd a4 6c 65 73  73 28 78 2c 79 29 3a e7  |.X...less(x,y):.|
00004b10  20 78 3c 79 20 8c 3d 78  20 8b 3d 79 0d 1b 62 18  | x<y .=x .=y..b.|
00004b20  dd a4 6d 73 67 28 74 61  67 24 2c 69 74 24 2c 69  |..msg(tag$,it$,i|
00004b30  74 31 24 29 0d 1b 6c 0b  ea 20 66 25 2c 6c 25 0d  |t1$)..l.. f%,l%.|
00004b40  1b 76 39 c8 99 26 36 31  35 30 32 2c 6d 73 70 74  |.v9..&61502,mspt|
00004b50  72 25 2c 74 61 67 24 2c  6d 65 73 73 61 67 65 25  |r%,tag$,message%|
00004b60  2c 32 35 36 2c 69 74 24  2c 69 74 31 24 20 b8 20  |,256,it$,it1$ . |
00004b70  2c 2c 2c 6c 25 3b 66 25  0d 1b 80 12 e7 20 66 25  |,,,l%;f%..... f%|
00004b80  20 80 20 31 20 8c 6c 25  3d 30 0d 1b 8a 12 6d 65  | . 1 .l%=0....me|
00004b90  73 73 61 67 65 25 3f 6c  25 3d 31 33 0d 1b 94 0e  |ssage%?l%=13....|
00004ba0  3d 24 6d 65 73 73 61 67  65 25 0d 1b 9e 45 dd f2  |=$message%...E..|
00004bb0  63 68 61 6e 67 65 6d 61  76 69 73 28 66 61 72 74  |changemavis(fart|
00004bc0  24 2c 6d 65 24 29 3a f2  70 73 28 4d 61 76 69 73  |$,me$):.ps(Mavis|
00004bd0  25 2c 32 30 2c 6d 65 24  29 3a f2 70 73 28 4d 61  |%,20,me$):.ps(Ma|
00004be0  76 69 73 25 2c 34 2c 66  61 72 74 24 29 3a e1 0d  |vis%,4,fart$):..|
00004bf0  1b a8 08 dd f2 66 77 0d  1b b2 14 ea 20 77 69 64  |.....fw..... wid|
00004c00  74 68 25 2c 68 65 69 67  68 74 25 0d 1b bc 0b f2  |th%,height%.....|
00004c10  73 63 72 6e 78 79 0d 1b  c6 32 77 69 64 74 68 25  |scrnxy...2width%|
00004c20  3d 33 32 2b 31 36 2a 65  6e 74 72 79 77 69 64 74  |=32+16*entrywidt|
00004c30  68 25 3a 68 65 69 67 68  74 25 3d 33 36 2a 28 66  |h%:height%=36*(f|
00004c40  6f 75 6e 64 25 2b 31 29  0d 1b d0 1f e7 20 66 6f  |ound%+1)..... fo|
00004c50  75 6e 64 6f 70 65 6e 25  20 f2 63 6c 6f 73 65 28  |undopen% .close(|
00004c60  46 6f 75 6e 64 25 29 0d  1b da 44 62 6c 25 21 30  |Found%)...Dbl%!0|
00004c70  3d 30 3a 62 6c 25 21 34  3d 2d 68 65 69 67 68 74  |=0:bl%!4=-height|
00004c80  25 3a 62 6c 25 21 38 3d  77 69 64 74 68 25 3a 62  |%:bl%!8=width%:b|
00004c90  6c 25 21 31 32 3d 30 3a  c8 99 26 34 30 30 44 37  |l%!12=0:..&400D7|
00004ca0  2c 46 6f 75 6e 64 25 2c  62 6c 25 0d 1b e4 1b e7  |,Found%,bl%.....|
00004cb0  20 73 63 72 78 25 3e 31  36 30 30 20 73 63 72 78  | scrx%>1600 scrx|
00004cc0  25 3d 31 36 30 30 0d 1b  ee 1e 62 6c 25 21 30 3d  |%=1600....bl%!0=|
00004cd0  46 6f 75 6e 64 25 3a c8  99 26 34 30 30 43 43 2c  |Found%:..&400CC,|
00004ce0  2c 62 6c 25 0d 1b f8 53  e7 20 77 69 64 74 68 25  |,bl%...S. width%|
00004cf0  3e 73 63 72 78 25 20 62  6c 25 21 34 3d 30 3a 62  |>scrx% bl%!4=0:b|
00004d00  6c 25 21 31 32 3d 73 63  72 78 25 20 8b 62 6c 25  |l%!12=scrx% .bl%|
00004d10  21 34 3d 28 73 63 72 78  25 2d 77 69 64 74 68 25  |!4=(scrx%-width%|
00004d20  29 2f 32 3a 62 6c 25 21  31 32 3d 62 6c 25 21 34  |)/2:bl%!12=bl%!4|
00004d30  2b 77 69 64 74 68 25 0d  1c 02 56 e7 20 68 65 69  |+width%...V. hei|
00004d40  67 68 74 25 3e 73 63 72  79 25 20 62 6c 25 21 38  |ght%>scry% bl%!8|
00004d50  3d 30 3a 62 6c 25 21 31  36 3d 73 63 72 79 25 20  |=0:bl%!16=scry% |
00004d60  8b 62 6c 25 21 38 3d 28  73 63 72 79 25 2d 68 65  |.bl%!8=(scry%-he|
00004d70  69 67 68 74 25 29 2f 32  3a 62 6c 25 21 31 36 3d  |ight%)/2:bl%!16=|
00004d80  62 6c 25 21 38 2b 68 65  69 67 68 74 25 0d 1c 0c  |bl%!8+height%...|
00004d90  28 62 6c 25 21 32 38 3d  2d 31 3a c8 99 26 34 30  |(bl%!28=-1:..&40|
00004da0  30 43 35 2c 2c 62 6c 25  3a 66 6f 75 6e 64 6f 70  |0C5,,bl%:foundop|
00004db0  65 6e 25 3d b9 0d 1c 16  05 e1 0d 1c 20 0c dd f2  |en%=........ ...|
00004dc0  72 65 64 72 61 77 0d 1c  2a 21 ea 20 6d 6f 72 65  |redraw..*!. more|
00004dd0  25 2c 78 30 25 2c 79 30  25 2c 74 6f 70 25 2c 62  |%,x0%,y0%,top%,b|
00004de0  61 73 65 25 2c 69 25 0d  1c 34 43 c8 99 26 34 30  |ase%,i%..4C..&40|
00004df0  30 43 38 2c 2c 62 6c 25  20 b8 20 6d 6f 72 65 25  |0C8,,bl% . more%|
00004e00  3a 78 30 25 3d 31 36 2b  62 6c 25 21 34 2d 62 6c  |:x0%=16+bl%!4-bl|
00004e10  25 21 32 30 3a 79 30 25  3d 2d 31 36 2b 62 6c 25  |%!20:y0%=-16+bl%|
00004e20  21 31 36 2d 62 6c 25 21  32 34 0d 1c 3e 0c c8 95  |!16-bl%!24..>...|
00004e30  20 6d 6f 72 65 25 0d 1c  48 1a 74 6f 70 25 3d 28  | more%..H.top%=(|
00004e40  79 30 25 2d 62 6c 25 21  34 30 29 20 81 20 33 36  |y0%-bl%!40) . 36|
00004e50  0d 1c 52 13 e7 20 74 6f  70 25 3c 30 20 74 6f 70  |..R.. top%<0 top|
00004e60  25 3d 30 0d 1c 5c 26 62  61 73 65 25 3d 28 34 37  |%=0..\&base%=(47|
00004e70  2b 79 30 25 2d 62 6c 25  21 33 32 29 20 81 20 33  |+y0%-bl%!32) . 3|
00004e80  36 3a 69 25 3d 74 6f 70  25 0d 1c 66 1c c8 95 20  |6:i%=top%..f... |
00004e90  69 25 3c 66 6f 75 6e 64  25 20 80 20 69 25 3c 3d  |i%<found% . i%<=|
00004ea0  62 61 73 65 25 0d 1c 70  15 ec 20 78 30 25 2c 79  |base%..p.. x0%,y|
00004eb0  30 25 2d 28 33 36 2a 69  25 29 0d 1c 7a 3b e7 20  |0%-(36*i%)..z;. |
00004ec0  a7 24 28 74 65 78 74 25  2b 69 25 2a 65 6e 74 72  |.$(text%+i%*entr|
00004ed0  79 77 69 64 74 68 25 29  2c 22 5b 22 29 20 c8 99  |ywidth%),"[") ..|
00004ee0  26 34 30 30 45 36 2c 31  31 20 8b c8 99 26 34 30  |&400E6,11 ...&40|
00004ef0  30 45 36 2c 37 0d 1c 84  15 e7 20 69 25 3d 30 20  |0E6,7..... i%=0 |
00004f00  c8 99 26 34 30 30 45 36  2c 38 0d 1c 8e 22 f1 24  |..&400E6,8...".$|
00004f10  28 74 65 78 74 25 2b 69  25 2a 65 6e 74 72 79 77  |(text%+i%*entryw|
00004f20  69 64 74 68 25 29 3a 69  25 2b 3d 31 0d 1c 98 05  |idth%):i%+=1....|
00004f30  ce 0d 1c a2 19 c8 99 26  34 30 30 43 41 2c 2c 62  |.......&400CA,,b|
00004f40  6c 25 20 b8 20 6d 6f 72  65 25 0d 1c ac 05 ce 0d  |l% . more%......|
00004f50  1c b6 05 e1 0d 1c c0 17  dd f2 73 70 72 69 74 65  |..........sprite|
00004f60  6d 65 6e 75 28 78 25 2c  79 25 29 0d 1c ca 31 77  |menu(x%,y%)...1w|
00004f70  6d 65 6e 25 3d 31 3a 4d  25 3d 4d 65 6e 75 73 25  |men%=1:M%=Menus%|
00004f80  3a f2 53 74 61 72 74 61  6d 65 6e 75 28 22 53 70  |:.Startamenu("Sp|
00004f90  72 69 74 65 20 46 69 6c  65 73 22 29 0d 1c d4 3c  |rite Files")...<|
00004fa0  e7 20 a4 64 69 72 6d 65  6e 75 28 68 6f 6d 65 24  |. .dirmenu(home$|
00004fb0  2b 22 2e 53 70 72 69 74  65 73 22 2c 31 29 20 c8  |+".Sprites",1) .|
00004fc0  99 26 34 30 30 44 34 2c  2c 4d 65 6e 75 73 25 2c  |.&400D4,,Menus%,|
00004fd0  78 25 2d 34 38 2c 79 25  0d 1c de 05 e1 0d 1c e8  |x%-48,y%........|
00004fe0  19 dd a4 64 69 72 6d 65  6e 75 28 70 61 74 68 24  |...dirmenu(path$|
00004ff0  2c 61 63 74 25 29 0d 1c  f2 28 ea 61 64 64 72 25  |,act%)...(.addr%|
00005000  2c 6c 25 2c 6e 25 2c 64  6f 6e 65 25 2c 6d 65 6d  |,l%,n%,done%,mem|
00005010  25 2c 6e 61 6d 65 24 2c  69 74 65 6d 73 25 0d 1c  |%,name$,items%..|
00005020  fc 20 6d 65 6d 25 3d a4  64 69 6d 28 33 30 30 30  |. mem%=.dim(3000|
00005030  29 3a e7 20 6d 65 6d 25  3d 30 20 8c 3d 30 0d 1d  |):. mem%=0 .=0..|
00005040  06 21 64 6f 6e 65 25 3d  a3 3a 6d 65 6e 6d 61 73  |.!done%=.:menmas|
00005050  6b 25 3d a4 6d 66 3a 69  74 65 6d 73 25 3d 30 0d  |k%=.mf:items%=0.|
00005060  1d 10 27 c8 99 26 43 2c  39 2c 70 61 74 68 24 2c  |..'..&C,9,path$,|
00005070  6d 65 6d 25 2c 37 37 2c  30 2c 33 30 30 30 20 b8  |mem%,77,0,3000 .|
00005080  20 2c 2c 2c 6e 25 0d 1d  1a 0c e7 20 6e 25 3e 30  | ,,,n%..... n%>0|
00005090  20 8c 0d 1d 24 0e 61 64  64 72 25 3d 6d 65 6d 25  | ...$.addr%=mem%|
000050a0  0d 1d 2e 08 6c 25 3d 31  0d 1d 38 05 f5 0d 1d 42  |....l%=1..8....B|
000050b0  15 6e 61 6d 65 24 3d a4  62 75 6d 28 61 64 64 72  |.name$=.bum(addr|
000050c0  25 29 0d 1d 4c 0d c8 8e  20 61 63 74 25 20 ca 0d  |%)..L... act% ..|
000050d0  1d 56 3d c9 20 30 3a e7  20 a4 6f 62 6a 74 79 70  |.V=. 0:. .objtyp|
000050e0  65 28 70 61 74 68 24 2b  22 2e 22 2b 6e 61 6d 65  |e(path$+"."+name|
000050f0  24 29 3e 31 20 f2 6d 61  64 28 6e 61 6d 65 24 2c  |$)>1 .mad(name$,|
00005100  30 29 3a 69 74 65 6d 73  25 2b 3d 31 0d 1d 60 07  |0):items%+=1..`.|
00005110  c9 20 31 0d 1d 6a 12 c8  8e 20 c2 6e 61 6d 65 24  |. 1..j... .name$|
00005120  2c 32 29 20 ca 0d 1d 74  0a c9 20 22 32 32 22 0d  |,2) ...t.. "22".|
00005130  1d 7e 0a c9 20 22 32 33  22 0d 1d 88 1d 7f 3a f2  |.~.. "23".....:.|
00005140  6d 61 64 28 6e 61 6d 65  24 2c 30 29 3a 69 74 65  |mad(name$,0):ite|
00005150  6d 73 25 2b 3d 31 0d 1d  92 05 cb 0d 1d 9c 1f c9  |ms%+=1..........|
00005160  20 32 3a f2 6d 61 64 28  6e 61 6d 65 24 2c 30 29  | 2:.mad(name$,0)|
00005170  3a 69 74 65 6d 73 25 2b  3d 31 0d 1d a6 05 cb 0d  |:items%+=1......|
00005180  1d b0 09 6c 25 2b 3d 31  0d 1d ba 18 fd 20 6c 25  |...l%+=1..... l%|
00005190  3e 6e 25 20 84 20 50 25  3e 4d 25 2b 31 30 30 30  |>n% . P%>M%+1000|
000051a0  0d 1d c4 0d c8 8e 20 61  63 74 25 20 ca 0d 1d ce  |...... act% ....|
000051b0  1f c9 20 30 3a f2 73 71  75 69 64 67 65 28 69 74  |.. 0:.squidge(it|
000051c0  65 6d 73 25 2c 26 38 30  2c 2d 31 29 0d 1d d8 21  |ems%,&80,-1)...!|
000051d0  c9 20 31 3a f2 73 71 75  69 64 67 65 28 69 74 65  |. 1:.squidge(ite|
000051e0  6d 73 25 2d 31 2c 26 38  30 2c 2d 31 29 0d 1d e2  |ms%-1,&80,-1)...|
000051f0  32 c9 20 32 3a f2 73 71  75 69 64 67 65 28 69 74  |2. 2:.squidge(it|
00005200  65 6d 73 25 2b 31 2c 26  38 30 2c 2d 31 29 3a f2  |ems%+1,&80,-1):.|
00005210  73 71 75 69 64 67 65 28  31 2c 32 2c 2d 31 29 0d  |squidge(1,2,-1).|
00005220  1d ec 05 cb 0d 1d f6 0b  64 6f 6e 65 25 3d b9 0d  |........done%=..|
00005230  1e 00 05 cd 0d 1e 0a 14  c8 99 26 32 30 30 31 45  |..........&2001E|
00005240  2c 37 2c 2c 6d 65 6d 25  0d 1e 14 0a 3d 64 6f 6e  |,7,,mem%....=don|
00005250  65 25 0d 1e 1e 13 dd f2  73 70 6d 65 6e 75 28 69  |e%......spmenu(i|
00005260  74 65 6d 25 29 0d 1e 28  2f 73 70 72 69 74 65 73  |tem%)..(/sprites|
00005270  24 3d a4 67 61 67 61 28  28 4d 65 6e 75 73 25 2b  |$=.gaga((Menus%+|
00005280  32 38 29 2b 28 28 69 74  65 6d 25 29 2a 32 34 29  |28)+((item%)*24)|
00005290  2b 31 32 29 0d 1e 32 33  f2 63 68 61 6e 67 65 73  |+12)..23.changes|
000052a0  70 72 69 74 65 73 3a f2  70 73 28 50 61 6e 65 25  |prites:.ps(Pane%|
000052b0  2c 31 37 2c 73 70 72 69  74 65 73 24 29 3a f2 69  |,17,sprites$):.i|
000052c0  62 61 72 28 22 22 29 0d  1e 3c 3a c8 99 26 34 30  |bar("")..<:..&40|
000052d0  30 43 46 2c 2c 62 6c 25  3a e7 20 28 62 6c 25 21  |0CF,,bl%:. (bl%!|
000052e0  38 20 80 20 31 29 3d 31  20 f2 73 70 72 69 74 65  |8 . 1)=1 .sprite|
000052f0  6d 65 6e 75 28 62 6c 25  21 34 2c 62 6c 25 21 38  |menu(bl%!4,bl%!8|
00005300  29 0d 1e 46 05 e1 0d 1e  50 0e dd a4 70 6f 6c 6c  |)..F....P...poll|
00005310  6d 61 73 6b 0d 1e 5a 0b  ea 20 6d 61 73 6b 25 0d  |mask..Z.. mask%.|
00005320  1e 64 0a c8 8e 20 b9 20  ca 0d 1e 6e 2e c9 20 21  |.d... . ...n.. !|
00005330  65 78 69 74 25 2c 21 73  70 69 6e 6f 6e 25 2c 71  |exit%,!spinon%,q|
00005340  75 65 72 79 25 2c 28 21  62 79 65 25 3d 31 29 2c  |uery%,(!bye%=1),|
00005350  21 63 6c 6f 63 6b 25 0d  1e 78 0f 6d 61 73 6b 25  |!clock%..x.mask%|
00005360  3d 26 31 38 33 30 0d 1e  82 11 7f 3a 6d 61 73 6b  |=&1830.....:mask|
00005370  25 3d 26 31 38 33 31 0d  1e 8c 05 cb 0d 1e 96 0a  |%=&1831.........|
00005380  3d 6d 61 73 6b 25 0d 1e  a0 33 dd a4 6d 66 3a e7  |=mask%...3..mf:.|
00005390  20 75 73 65 66 6f 6e 74  73 25 20 8c 3d 26 36 31  | usefonts% .=&61|
000053a0  2b 28 6d 66 6f 6e 74 25  3c 3c 32 34 29 20 8b 3d  |+(mfont%<<24) .=|
000053b0  26 30 37 30 30 30 30 32  31 0d 1e aa 35 dd a4 63  |&07000021...5..c|
000053c0  66 3a e7 20 63 6c 6f 63  6b 66 6f 6e 74 25 20 8c  |f:. clockfont% .|
000053d0  3d 26 33 31 35 44 2b 28  69 66 6f 6e 74 25 3c 3c  |=&315D+(ifont%<<|
000053e0  32 34 29 20 8b 3d 26 37  30 30 33 31 31 44 0d 1e  |24) .=&700311D..|
000053f0  b4 35 dd a4 74 6d 66 3a  e7 20 75 73 65 66 6f 6e  |.5..tmf:. usefon|
00005400  74 73 25 20 8c 3d 26 42  37 42 2b 28 6d 66 6f 6e  |ts% .=&B7B+(mfon|
00005410  74 25 3c 3c 32 34 29 20  8b 3d 26 30 37 30 30 30  |t%<<24) .=&07000|
00005420  42 33 42 0d 1e be 0b dd  f2 63 6c 6f 63 6b 0d 1e  |B3B......clock..|
00005430  c8 0f e7 20 21 63 6c 6f  63 6b 25 20 8c 0d 1e d2  |... !clock% ....|
00005440  28 62 6c 25 21 30 3d 2d  31 3a 62 6c 25 21 34 3d  |(bl%!0=-1:bl%!4=|
00005450  63 6c 69 63 6f 6e 25 3a  c8 99 26 34 30 30 43 34  |clicon%:..&400C4|
00005460  2c 2c 62 6c 25 0d 1e dc  25 63 6c 69 63 6f 6e 25  |,,bl%...%clicon%|
00005470  3d 39 39 39 39 39 39 39  39 3a f2 6f 6f 65 72 28  |=99999999:.ooer(|
00005480  67 72 65 79 2c 67 72 65  79 29 0d 1e e6 05 cc 0d  |grey,grey)......|
00005490  1e f0 3e 63 6c 69 63 6f  6e 25 3d a4 63 72 69 63  |..>clicon%=.cric|
000054a0  6f 6e 28 2d 38 2c 26 31  30 30 30 30 30 30 30 2c  |on(-8,&10000000,|
000054b0  2d 36 34 2c 31 30 30 2c  35 32 2c 63 74 2c 63 73  |-64,100,52,ct,cs|
000054c0  2c 22 22 2c 22 72 31 22  2c a4 63 66 29 0d 1e fa  |,"","r1",.cf)...|
000054d0  33 77 73 69 62 6c 6f 63  6b 32 21 34 3d 63 6c 69  |3wsiblock2!4=cli|
000054e0  63 6f 6e 25 3a d6 20 75  70 64 61 74 65 63 6c 6f  |con%:. updateclo|
000054f0  63 6b 3a f2 6f 6f 65 72  28 30 2c 67 72 65 79 29  |ck:.ooer(0,grey)|
00005500  0d 1f 04 05 cd 0d 1f 0e  15 21 63 6c 6f 63 6b 25  |.........!clock%|
00005510  3d ac 20 21 63 6c 6f 63  6b 25 0d 1f 18 05 e1 0d  |=. !clock%......|
00005520  1f 22 14 dd f2 6d 6b 63  6c 6d 65 6e 28 78 25 2c  |."...mkclmen(x%,|
00005530  79 25 29 0d 1f 2c 42 6d  65 6e 6d 61 73 6b 25 3d  |y%)..,Bmenmask%=|
00005540  a4 6d 66 3a 4d 25 3d 4d  65 6e 75 73 25 3a f2 53  |.mf:M%=Menus%:.S|
00005550  74 61 72 74 61 6d 65 6e  75 28 22 43 6c 6f 63 6b  |tartamenu("Clock|
00005560  22 29 3a f2 6d 61 64 28  22 52 65 6d 6f 76 65 22  |"):.mad("Remove"|
00005570  2c 26 38 30 29 0d 1f 36  30 78 25 2d 3d 38 30 3a  |,&80)..60x%-=80:|
00005580  79 25 3d 31 33 38 3a c8  99 26 34 30 30 44 34 2c  |y%=138:..&400D4,|
00005590  2c 4d 65 6e 75 73 25 2c  78 25 2c 79 25 3a 77 6d  |,Menus%,x%,y%:wm|
000055a0  65 6e 25 3d 32 0d 1f 40  05 e1 0d 1f 4a 13 dd f2  |en%=2..@....J...|
000055b0  63 6c 6d 65 6e 75 28 69  74 65 6d 25 29 0d 1f 54  |clmenu(item%)..T|
000055c0  39 e7 20 69 74 65 6d 25  3d 30 20 f2 63 6c 6f 63  |9. item%=0 .cloc|
000055d0  6b 3a f2 73 65 6c 69 63  28 50 61 6e 65 25 2c 32  |k:.selic(Pane%,2|
000055e0  33 2c 68 69 67 68 2c 68  69 67 68 29 3a 63 6c 6d  |3,high,high):clm|
000055f0  65 6e 75 25 3d a3 0d 1f  5e 05 e1 0d 1f 68 15 dd  |enu%=...^....h..|
00005600  f2 66 63 6c 69 63 6b 65  64 28 78 25 2c 79 25 29  |.fclicked(x%,y%)|
00005610  0d 1f 72 0b ea 20 6e 61  6d 65 24 0d 1f 7c 22 6e  |..r.. name$..|"n|
00005620  61 6d 65 24 3d a4 7a 6f  67 28 78 25 2c 79 25 29  |ame$=.zog(x%,y%)|
00005630  3a e7 20 6e 61 6d 65 24  3d 22 22 20 e1 0d 1f 86  |:. name$="" ....|
00005640  3a e7 20 a4 6f 62 6a 74  79 70 65 28 6e 61 6d 65  |:. .objtype(name|
00005650  24 29 3d 30 20 f2 6c 61  6d 61 74 69 6f 6e 28 a4  |$)=0 .lamation(.|
00005660  6d 73 67 28 22 68 75 67  22 2c 22 22 2c 22 22 29  |msg("hug","","")|
00005670  2c 30 2c 30 29 3a e1 0d  1f 90 43 6e 61 6d 65 24  |,0,0):....Cname$|
00005680  3d c0 6e 61 6d 65 24 2c  a9 6e 61 6d 65 24 2d a4  |=.name$,.name$-.|
00005690  62 61 74 73 70 69 73 73  28 6e 61 6d 65 24 29 29  |batspiss(name$))|
000056a0  3a ff 28 22 46 69 6c 65  72 5f 4f 70 65 6e 44 69  |:.("Filer_OpenDi|
000056b0  72 20 22 2b 6e 61 6d 65  24 29 0d 1f 9a 05 e1 0d  |r "+name$)......|
000056c0  1f a4 19 dd f2 73 6d 6f  6b 65 74 6f 6f 6d 75 63  |.....smoketoomuc|
000056d0  68 28 78 25 2c 79 25 29  0d 1f ae 22 ea 20 6c 6f  |h(x%,y%)...". lo|
000056e0  61 64 25 2c 65 78 65 63  25 2c 6c 65 6e 25 2c 61  |ad%,exec%,len%,a|
000056f0  74 74 72 25 2c 74 79 70  65 25 0d 1f b8 2c 49 6c  |ttr%,type%...,Il|
00005700  63 68 65 73 74 65 72 24  3d a4 7a 6f 67 28 78 25  |chester$=.zog(x%|
00005710  2c 79 25 29 3a e7 20 49  6c 63 68 65 73 74 65 72  |,y%):. Ilchester|
00005720  24 3d 22 22 20 e1 0d 1f  c2 3f e7 20 a4 6f 62 6a  |$="" ....?. .obj|
00005730  74 79 70 65 28 49 6c 63  68 65 73 74 65 72 24 29  |type(Ilchester$)|
00005740  3d 30 20 f2 6c 61 6d 61  74 69 6f 6e 28 a4 6d 73  |=0 .lamation(.ms|
00005750  67 28 22 68 75 67 22 2c  22 22 2c 22 22 29 2c 30  |g("hug","",""),0|
00005760  2c 30 29 3a e1 0d 1f cc  37 c8 99 26 38 2c 35 2c  |,0):....7..&8,5,|
00005770  49 6c 63 68 65 73 74 65  72 24 20 b8 20 42 65 61  |Ilchester$ . Bea|
00005780  76 65 72 25 2c 2c 6c 6f  61 64 25 2c 65 78 65 63  |ver%,,load%,exec|
00005790  25 2c 6c 65 6e 25 2c 61  74 74 72 25 0d 1f d6 4b  |%,len%,attr%...K|
000057a0  c8 99 22 4f 53 5f 46 53  43 6f 6e 74 72 6f 6c 22  |.."OS_FSControl"|
000057b0  2c 33 38 2c 49 6c 63 68  65 73 74 65 72 24 2c 6c  |,38,Ilchester$,l|
000057c0  6f 61 64 25 2c 65 78 65  63 25 2c 6c 65 6e 25 2c  |oad%,exec%,len%,|
000057d0  61 74 74 72 25 2c 42 65  61 76 65 72 25 20 b8 20  |attr%,Beaver% . |
000057e0  2c 2c 74 79 70 65 25 0d  1f e0 1a 4d 25 3d 4d 65  |,,type%....M%=Me|
000057f0  6e 75 73 25 3a 6d 65 6e  6d 61 73 6b 25 3d a4 6d  |nus%:menmask%=.m|
00005800  66 0d 1f ea 35 f2 53 74  61 72 74 61 6d 65 6e 75  |f...5.Startamenu|
00005810  28 c2 49 6c 63 68 65 73  74 65 72 24 2c a4 62 61  |(.Ilchester$,.ba|
00005820  74 73 70 69 73 73 28 49  6c 63 68 65 73 74 65 72  |tspiss(Ilchester|
00005830  24 29 2d 31 29 29 0d 1f  f4 14 f2 6d 61 64 28 6d  |$)-1)).....mad(m|
00005840  65 6e 24 28 31 32 29 2c  30 29 0d 1f fe 0e c8 8e  |en$(12),0)......|
00005850  20 74 79 70 65 25 20 ca  0d 20 08 48 c9 20 26 31  | type% .. .H. &1|
00005860  30 30 30 3a f2 6d 61 64  28 6d 65 6e 24 28 31 33  |000:.mad(men$(13|
00005870  29 2c 30 29 3a f2 6d 61  64 28 6d 65 6e 24 28 31  |),0):.mad(men$(1|
00005880  34 29 2c 30 29 3a f2 6d  61 64 28 6d 65 6e 24 28  |4),0):.mad(men$(|
00005890  31 35 29 2c 30 29 3a f2  73 68 61 64 65 28 32 29  |15),0):.shade(2)|
000058a0  0d 20 12 48 c9 20 26 32  30 30 30 3a f2 6d 61 64  |. .H. &2000:.mad|
000058b0  28 6d 65 6e 24 28 31 37  29 2c 30 29 3a f2 6d 61  |(men$(17),0):.ma|
000058c0  64 28 6d 65 6e 24 28 31  34 29 2c 30 29 3a f2 6d  |d(men$(14),0):.m|
000058d0  61 64 28 6d 65 6e 24 28  31 38 29 2c 30 29 3a f2  |ad(men$(18),0):.|
000058e0  73 68 61 64 65 28 32 29  0d 20 1c 05 7f 0d 20 26  |shade(2). .... &|
000058f0  14 f2 6d 61 64 28 6d 65  6e 24 28 31 39 29 2c 30  |..mad(men$(19),0|
00005900  29 0d 20 30 13 e7 20 73  71 75 61 73 68 70 72 65  |). 0.. squashpre|
00005910  73 25 20 8c 0d 20 3a 34  e7 20 74 79 70 65 25 3d  |s% .. :4. type%=|
00005920  26 46 43 41 20 f2 6d 61  64 28 6d 65 6e 24 28 32  |&FCA .mad(men$(2|
00005930  30 29 2c 30 29 20 8b 20  f2 6d 61 64 28 6d 65 6e  |0),0) . .mad(men|
00005940  24 28 32 31 29 2c 30 29  0d 20 44 05 cc 0d 20 4e  |$(21),0). D... N|
00005950  1e f2 6d 61 64 28 6d 65  6e 24 28 31 34 29 2c 30  |..mad(men$(14),0|
00005960  29 3a f2 73 68 61 64 65  28 32 29 0d 20 58 05 cd  |):.shade(2). X..|
00005970  0d 20 62 14 f2 6d 61 64  28 6d 65 6e 24 28 32 32  |. b..mad(men$(22|
00005980  29 2c 30 29 0d 20 6c 05  cb 0d 20 76 29 f2 6d 61  |),0). l... v).ma|
00005990  64 28 6d 65 6e 24 28 31  36 29 2c 26 38 30 29 3a  |d(men$(16),&80):|
000059a0  e7 20 75 72 6d 25 3d 30  20 f2 73 68 61 64 65 28  |. urm%=0 .shade(|
000059b0  33 29 0d 20 80 25 c8 99  26 34 30 30 44 34 2c 2c  |3). .%..&400D4,,|
000059c0  4d 65 6e 75 73 25 2c 78  25 2d 34 38 2c 79 25 3a  |Menus%,x%-48,y%:|
000059d0  77 6d 65 6e 25 3d 34 0d  20 8a 05 e1 0d 20 94 15  |wmen%=4. .... ..|
000059e0  dd a4 62 61 74 73 70 69  73 73 28 66 75 6e 6b 24  |..batspiss(funk$|
000059f0  29 0d 20 9e 07 ea 6d 25  0d 20 a8 30 f5 3a 6d 25  |). ...m%. .0.:m%|
00005a00  2b 3d 31 3a fd a7 c2 66  75 6e 6b 24 2c 6d 25 29  |+=1:...funk$,m%)|
00005a10  2c 22 2e 22 29 20 84 20  a7 c2 66 75 6e 6b 24 2c  |,".") . ..funk$,|
00005a20  6d 25 29 2c 22 5b 22 29  0d 20 b2 07 3d 6d 25 0d  |m%),"["). ..=m%.|
00005a30  20 bc 10 dd a4 7a 6f 67  28 78 25 2c 79 25 29 0d  | ....zog(x%,y%).|
00005a40  20 c6 25 ea 20 74 6f 70  25 2c 79 6f 66 66 25 2c  | .%. top%,yoff%,|
00005a50  6e 61 6d 65 24 2c 6c 24  2c 66 69 6c 65 24 2c 6c  |name$,l$,file$,l|
00005a60  69 6e 65 25 0d 20 d0 3d  21 62 6c 34 25 3d 46 6f  |ine%. .=!bl4%=Fo|
00005a70  75 6e 64 25 3a c8 99 26  34 30 30 43 42 2c 2c 62  |und%:..&400CB,,b|
00005a80  6c 34 25 3a 74 6f 70 25  3d 62 6c 34 25 21 31 36  |l4%:top%=bl4%!16|
00005a90  2d 31 36 3a 79 6f 66 66  25 3d 62 6c 34 25 21 32  |-16:yoff%=bl4%!2|
00005aa0  34 0d 20 da 3e 6c 69 6e  65 25 3d 28 74 6f 70 25  |4. .>line%=(top%|
00005ab0  2d 79 6f 66 66 25 2d 79  25 29 20 81 20 33 36 3a  |-yoff%-y%) . 36:|
00005ac0  e7 20 6c 69 6e 65 25 3c  32 20 84 20 6c 69 6e 65  |. line%<2 . line|
00005ad0  25 3e 3d 66 6f 75 6e 64  25 20 8c 20 3d 22 22 0d  |%>=found% . ="".|
00005ae0  20 e4 26 66 69 6c 65 24  3d 24 28 74 65 78 74 25  | .&file$=$(text%|
00005af0  2b 28 65 6e 74 72 79 77  69 64 74 68 25 2a 6c 69  |+(entrywidth%*li|
00005b00  6e 65 25 29 29 0d 20 ee  29 e7 20 c0 66 69 6c 65  |ne%)). .). .file|
00005b10  24 2c 31 29 3d 22 5b 22  20 84 20 c0 66 69 6c 65  |$,1)="[" . .file|
00005b20  24 2c 31 29 3d 22 2a 22  20 8c 20 3d 22 22 0d 20  |$,1)="*" . ="". |
00005b30  f8 14 66 6f 75 6e 64 6c  69 6e 65 25 3d 6c 69 6e  |..foundline%=lin|
00005b40  65 25 0d 21 02 1f 66 69  6c 65 24 3d c0 66 69 6c  |e%.!..file$=.fil|
00005b50  65 24 2c a7 66 69 6c 65  24 2c 22 20 22 29 2d 31  |e$,.file$," ")-1|
00005b60  29 0d 21 0c 05 f5 0d 21  16 35 f5 3a 6c 69 6e 65  |).!....!.5.:line|
00005b70  25 2d 3d 31 3a fd 20 c0  24 28 74 65 78 74 25 2b  |%-=1:. .$(text%+|
00005b80  28 65 6e 74 72 79 77 69  64 74 68 25 2a 6c 69 6e  |(entrywidth%*lin|
00005b90  65 25 29 29 2c 31 29 3d  22 5b 22 0d 21 20 3c 6c  |e%)),1)="[".! <l|
00005ba0  24 3d 24 28 74 65 78 74  25 2b 28 65 6e 74 72 79  |$=$(text%+(entry|
00005bb0  77 69 64 74 68 25 2a 6c  69 6e 65 25 29 29 3a 6e  |width%*line%)):n|
00005bc0  61 6d 65 24 3d c1 6c 24  2c 32 2c a9 6c 24 2d 32  |ame$=.l$,2,.l$-2|
00005bd0  29 2b 6e 61 6d 65 24 0d  21 2a 2f fd 20 c0 24 28  |)+name$.!*/. .$(|
00005be0  74 65 78 74 25 2b 28 65  6e 74 72 79 77 69 64 74  |text%+(entrywidt|
00005bf0  68 25 2a 28 6c 69 6e 65  25 2d 31 29 29 29 2c 31  |h%*(line%-1))),1|
00005c00  29 3c 3e 22 5b 22 0d 21  34 14 3d 6e 61 6d 65 24  |)<>"[".!4.=name$|
00005c10  2b 22 2e 22 2b 66 69 6c  65 24 0d 21 3e 0c dd f2  |+"."+file$.!>...|
00005c20  62 75 72 69 61 6c 0d 21  48 21 ea 20 73 70 61 64  |burial.!H!. spad|
00005c30  65 24 2c 63 6f 66 66 69  6e 24 2c 61 73 68 65 73  |e$,coffin$,ashes|
00005c40  25 2c 64 75 73 74 25 0d  21 52 1e e7 20 a4 6f 62  |%,dust%.!R.. .ob|
00005c50  6a 74 79 70 65 28 49 6c  63 68 65 73 74 65 72 24  |jtype(Ilchester$|
00005c60  29 3e 30 20 e1 0d 21 5c  30 63 6f 66 66 69 6e 24  |)>0 ..!\0coffin$|
00005c70  3d c2 49 6c 63 68 65 73  74 65 72 24 2c a4 62 61  |=.Ilchester$,.ba|
00005c80  74 73 70 69 73 73 28 49  6c 63 68 65 73 74 65 72  |tspiss(Ilchester|
00005c90  24 29 2d 31 29 0d 21 66  59 e7 20 75 6e 64 65 72  |$)-1).!fY. under|
00005ca0  74 61 6b 65 72 25 20 80  20 72 65 74 61 69 6e 25  |taker% . retain%|
00005cb0  20 73 70 61 64 65 24 3d  a4 6d 73 67 28 22 67 6f  | spade$=.msg("go|
00005cc0  6e 22 2c 63 6f 66 66 69  6e 24 2c 22 22 29 20 8b  |n",coffin$,"") .|
00005cd0  20 73 70 61 64 65 24 3d  a4 6d 73 67 28 22 67 6f  | spade$=.msg("go|
00005ce0  62 22 2c 63 6f 66 66 69  6e 24 2c 22 22 29 0d 21  |b",coffin$,"").!|
00005cf0  70 48 24 28 74 65 78 74  25 2b 28 65 6e 74 72 79  |pH$(text%+(entry|
00005d00  77 69 64 74 68 25 2a 66  6f 75 6e 64 6c 69 6e 65  |width%*foundline|
00005d10  25 29 29 3d 73 70 61 64  65 24 2b c4 65 6e 74 72  |%))=spade$+.entr|
00005d20  79 77 69 64 74 68 25 2d  a9 73 70 61 64 65 24 2d  |ywidth%-.spade$-|
00005d30  31 2c 22 20 22 29 0d 21  7a 2e 21 62 6c 32 25 3d  |1," ").!z.!bl2%=|
00005d40  46 6f 75 6e 64 25 3a c8  99 22 57 69 6d 70 5f 47  |Found%:.."Wimp_G|
00005d50  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00005d60  62 6c 32 25 0d 21 84 39  c8 99 22 57 69 6d 70 5f  |bl2%.!.9.."Wimp_|
00005d70  46 6f 72 63 65 52 65 64  72 61 77 22 2c 2d 31 2c  |ForceRedraw",-1,|
00005d80  62 6c 32 25 21 34 2c 62  6c 32 25 21 38 2c 62 6c  |bl2%!4,bl2%!8,bl|
00005d90  32 25 21 31 32 2c 62 6c  32 25 21 31 36 0d 21 8e  |2%!12,bl2%!16.!.|
00005da0  11 75 6e 64 65 72 74 61  6b 65 72 25 3d a3 0d 21  |.undertaker%=..!|
00005db0  98 05 e1 0d 21 a2 18 dd  f2 62 6c 75 6e 64 65 72  |....!....blunder|
00005dc0  62 75 73 73 28 69 74 65  6d 25 29 0d 21 ac 2d ea  |buss(item%).!.-.|
00005dd0  20 6e 61 6d 65 24 2c 6f  62 6a 25 2c 6c 6f 61 64  | name$,obj%,load|
00005de0  25 2c 65 78 65 63 25 2c  6c 65 6e 25 2c 61 74 74  |%,exec%,len%,att|
00005df0  72 25 2c 74 79 70 65 25  0d 21 b6 0e c8 8e 20 69  |r%,type%.!.... i|
00005e00  74 65 6d 25 20 ca 0d 21  c0 56 c9 20 30 3a 6e 61  |tem% ..!.V. 0:na|
00005e10  6d 65 24 3d c0 49 6c 63  68 65 73 74 65 72 24 2c  |me$=.Ilchester$,|
00005e20  a9 49 6c 63 68 65 73 74  65 72 24 2d a4 62 61 74  |.Ilchester$-.bat|
00005e30  73 70 69 73 73 28 49 6c  63 68 65 73 74 65 72 24  |spiss(Ilchester$|
00005e40  29 29 3a ff 28 22 46 69  6c 65 72 5f 4f 70 65 6e  |)):.("Filer_Open|
00005e50  44 69 72 20 22 2b 6e 61  6d 65 24 29 0d 21 ca 22  |Dir "+name$).!."|
00005e60  c9 20 31 3a ff 28 22 46  69 6c 65 72 5f 52 75 6e  |. 1:.("Filer_Run|
00005e70  20 22 2b 49 6c 63 68 65  73 74 65 72 24 29 0d 21  | "+Ilchester$).!|
00005e80  d4 07 c9 20 32 0d 21 de  24 ff 28 22 57 69 6d 70  |... 2.!.$.("Wimp|
00005e90  54 61 73 6b 20 53 71 75  61 73 68 20 22 2b 49 6c  |Task Squash "+Il|
00005ea0  63 68 65 73 74 65 72 24  29 0d 21 e8 2b 6e 61 6d  |chester$).!.+nam|
00005eb0  65 24 3d 24 28 74 65 78  74 25 2b 28 65 6e 74 72  |e$=$(text%+(entr|
00005ec0  79 77 69 64 74 68 25 2a  66 6f 75 6e 64 6c 69 6e  |ywidth%*foundlin|
00005ed0  65 25 29 29 0d 21 f2 34  c8 99 26 38 2c 35 2c 49  |e%)).!.4..&8,5,I|
00005ee0  6c 63 68 65 73 74 65 72  24 20 b8 20 6f 62 6a 25  |lchester$ . obj%|
00005ef0  2c 2c 6c 6f 61 64 25 2c  65 78 65 63 25 2c 6c 65  |,,load%,exec%,le|
00005f00  6e 25 2c 61 74 74 72 25  0d 21 fc 48 c8 99 22 4f  |n%,attr%.!.H.."O|
00005f10  53 5f 46 53 43 6f 6e 74  72 6f 6c 22 2c 33 38 2c  |S_FSControl",38,|
00005f20  49 6c 63 68 65 73 74 65  72 24 2c 6c 6f 61 64 25  |Ilchester$,load%|
00005f30  2c 65 78 65 63 25 2c 6c  65 6e 25 2c 61 74 74 72  |,exec%,len%,attr|
00005f40  25 2c 6f 62 6a 25 20 b8  20 2c 2c 74 79 70 65 25  |%,obj% . ,,type%|
00005f50  0d 22 06 61 24 28 74 65  78 74 25 2b 28 65 6e 74  |.".a$(text%+(ent|
00005f60  72 79 77 69 64 74 68 25  2a 66 6f 75 6e 64 6c 69  |rywidth%*foundli|
00005f70  6e 65 25 29 29 3d a4 74  65 78 74 28 c2 49 6c 63  |ne%))=.text(.Ilc|
00005f80  68 65 73 74 65 72 24 2c  a4 62 61 74 73 70 69 73  |hester$,.batspis|
00005f90  73 28 49 6c 63 68 65 73  74 65 72 24 29 2d 31 29  |s(Ilchester$)-1)|
00005fa0  2c 74 79 70 65 25 2c 6f  62 6a 25 2c 6c 65 6e 25  |,type%,obj%,len%|
00005fb0  29 0d 22 10 2e 21 62 6c  32 25 3d 46 6f 75 6e 64  |)."..!bl2%=Found|
00005fc0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
00005fd0  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 32 25 0d  |dowState",,bl2%.|
00005fe0  22 1a 39 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |".9.."Wimp_Force|
00005ff0  52 65 64 72 61 77 22 2c  2d 31 2c 62 6c 32 25 21  |Redraw",-1,bl2%!|
00006000  34 2c 62 6c 32 25 21 38  2c 62 6c 32 25 21 31 32  |4,bl2%!8,bl2%!12|
00006010  2c 62 6c 32 25 21 31 36  0d 22 24 31 c9 20 33 3a  |,bl2%!16."$1. 3:|
00006020  f2 6c 61 6d 61 74 69 6f  6e 28 a4 6d 73 67 28 22  |.lamation(.msg("|
00006030  62 75 62 22 2c 49 6c 63  68 65 73 74 65 72 24 2c  |bub",Ilchester$,|
00006040  22 22 29 2c 2d 31 2c 39  29 0d 22 2e 32 c9 20 34  |""),-1,9).".2. 4|
00006050  3a f2 6c 61 6d 61 74 69  6f 6e 28 a4 6d 73 67 28  |:.lamation(.msg(|
00006060  22 62 6f 62 22 2c 49 6c  63 68 65 73 74 65 72 24  |"bob",Ilchester$|
00006070  2c 22 22 29 2c 2d 31 2c  31 30 29 0d 22 38 05 cb  |,""),-1,10)."8..|
00006080  0d 22 42 41 c8 99 26 34  30 30 43 46 2c 2c 62 6c  |."BA..&400CF,,bl|
00006090  25 3a e7 20 28 62 6c 25  21 38 20 80 20 31 29 3d  |%:. (bl%!8 . 1)=|
000060a0  31 20 c8 99 26 34 30 30  44 34 2c 2c 4d 65 6e 75  |1 ..&400D4,,Menu|
000060b0  73 25 2c 62 6c 25 21 34  2d 34 38 2c 62 6c 25 21  |s%,bl%!4-48,bl%!|
000060c0  38 0d 22 4c 05 e1 0d 22  56 2a dd f2 62 75 67 67  |8."L..."V*..bugg|
000060d0  65 72 6f 66 66 3a 21 65  78 69 74 25 3d b9 3a 70  |eroff:!exit%=.:p|
000060e0  6f 6c 6c 6d 61 73 6b 25  3d 26 31 38 33 30 3a e1  |ollmask%=&1830:.|
000060f0  0d 22 60 12 dd f2 69 6e  63 6f 6e 28 70 61 74 68  |."`...incon(path|
00006100  24 29 0d 22 6a 30 e7 20  77 69 70 25 3e 30 20 f2  |$)."j0. wip%>0 .|
00006110  6c 61 6d 61 74 69 6f 6e  28 a4 6d 73 67 28 22 62  |lamation(.msg("b|
00006120  75 73 79 22 2c 22 22 2c  22 22 29 2c 30 2c 30 29  |usy","",""),0,0)|
00006130  3a e1 0d 22 74 2b e7 20  ac 20 74 64 69 6d 25 20  |:.."t+. . tdim% |
00006140  74 65 78 74 25 3d a4 64  69 6d 28 31 30 30 30 30  |text%=.dim(10000|
00006150  29 3a e7 20 74 65 78 74  25 3d 30 20 e1 0d 22 7e  |):. text%=0 .."~|
00006160  22 73 63 72 61 70 25 3d  a4 64 69 6d 28 33 30 30  |"scrap%=.dim(300|
00006170  30 29 3a e7 20 73 63 72  61 70 25 3d 30 20 e1 0d  |0):. scrap%=0 ..|
00006180  22 88 0f e7 20 74 65 78  74 25 3d 30 20 e1 0d 22  |"... text%=0 .."|
00006190  92 5a 74 64 69 6d 25 3d  b9 3a 77 69 70 25 3d 31  |.Ztdim%=.:wip%=1|
000061a0  3a 6d 73 67 24 28 31 29  3d 70 61 74 68 24 3a 73  |:msg$(1)=path$:s|
000061b0  74 79 70 65 3d 30 3a 65  6e 74 72 79 77 69 64 74  |type=0:entrywidt|
000061c0  68 25 3d 34 34 3a 77 6f  74 25 3d 31 3a 77 6f 74  |h%=44:wot%=1:wot|
000061d0  24 28 31 29 3d 22 2a 22  3a 63 6f 6d 70 61 72 69  |$(1)="*":compari|
000061e0  6e 67 25 3d 22 3e 30 22  0d 22 9c 4e 24 74 65 78  |ng%=">0".".N$tex|
000061f0  74 25 3d a4 6d 73 67 28  22 64 74 22 2c 22 22 2c  |t%=.msg("dt","",|
00006200  22 22 29 2b bd 31 33 3a  6c 69 73 74 25 3d 65 6e  |"")+.13:list%=en|
00006210  74 72 79 77 69 64 74 68  25 3a 7a 61 70 70 61 25  |trywidth%:zappa%|
00006220  3d 32 3a 21 62 79 65 25  3d 31 3a 75 73 65 61 72  |=2:!bye%=1:usear|
00006230  63 66 73 25 3d 30 0d 22  a6 44 63 61 73 65 73 65  |cfs%=0.".Dcasese|
00006240  6e 73 25 3d a3 3a 66 69  6c 65 25 3d b9 3a 74 6f  |ns%=.:file%=.:to|
00006250  74 61 6c 73 69 7a 65 25  3d 30 3a 74 6f 74 25 3d  |talsize%=0:tot%=|
00006260  30 3a 66 6f 75 6e 64 25  3d 31 3a 70 6f 6c 6c 6d  |0:found%=1:pollm|
00006270  61 73 6b 25 3d 26 31 38  33 30 0d 22 b0 2c e7 20  |ask%=&1830.".,. |
00006280  66 6f 75 6e 64 6f 70 65  6e 25 20 f2 63 6c 6f 73  |foundopen% .clos|
00006290  65 28 46 6f 75 6e 64 25  29 3a 66 6f 75 6e 64 6f  |e(Found%):foundo|
000062a0  70 65 6e 25 3d 30 0d 22  ba 30 f2 69 62 61 72 28  |pen%=0.".0.ibar(|
000062b0  22 2e 2e 49 6e 66 6f 2e  2e 22 29 3a 70 69 65 63  |"..Info.."):piec|
000062c0  65 6f 66 24 3d 22 2e 2e  49 6e 66 6f 2e 2e 22 3a  |eof$="..Info..":|
000062d0  75 72 6d 25 3d 30 0d 22  c4 05 e1 0d 22 ce 0b dd  |urm%=0."...."...|
000062e0  f2 6e 75 64 67 65 0d 22  d8 1d e7 20 74 64 69 6d  |.nudge."... tdim|
000062f0  25 20 c8 99 26 32 30 30  31 45 2c 37 2c 2c 74 65  |% ..&2001E,7,,te|
00006300  78 74 25 0d 22 e2 41 c8  99 26 32 30 30 31 45 2c  |xt%.".A..&2001E,|
00006310  37 2c 2c 49 6e 64 54 65  78 74 25 3a c8 99 26 32  |7,,IndText%:..&2|
00006320  30 30 31 45 2c 37 2c 2c  73 74 72 69 6e 67 25 3a  |001E,7,,string%:|
00006330  c8 99 26 32 30 30 31 45  2c 37 2c 2c 62 69 6e 6d  |..&2001E,7,,binm|
00006340  65 6e 75 25 0d 22 ec 46  c8 99 26 36 31 35 30 34  |enu%.".F..&61504|
00006350  2c 6d 73 70 74 72 25 3a  c8 99 26 32 30 30 31 45  |,msptr%:..&2001E|
00006360  2c 37 2c 2c 6d 73 70 74  72 25 3a c8 99 26 34 30  |,7,,msptr%:..&40|
00006370  30 38 32 2c 6d 66 6f 6e  74 25 3a c8 99 26 34 30  |082,mfont%:..&40|
00006380  30 38 32 2c 69 66 6f 6e  74 25 0d 22 f6 1f c8 99  |082,ifont%."....|
00006390  26 34 30 30 44 44 2c 74  61 73 6b 69 64 25 2c 31  |&400DD,taskid%,1|
000063a0  32 36 33 37 34 37 34 31  32 0d 23 00 05 e1 0d 23  |263747412.#....#|
000063b0  0a 4b dd f2 64 65 73 63  6f 6e 28 70 61 74 68 24  |.K..descon(path$|
000063c0  29 3a 64 65 73 70 61 74  68 24 3d 70 61 74 68 24  |):despath$=path$|
000063d0  3a f2 6c 61 6d 61 74 69  6f 6e 28 a4 6d 73 67 28  |:.lamation(.msg(|
000063e0  22 62 77 22 2c 64 65 73  70 61 74 68 24 2c 22 22  |"bw",despath$,""|
000063f0  29 2c 2d 31 2c 34 29 3a  e1 0d 23 14 15 dd f2 63  |),-1,4):..#....c|
00006400  6f 75 6e 74 64 69 72 28  70 61 74 68 24 29 0d 23  |ountdir(path$).#|
00006410  1e 0b ea 20 74 65 6d 70  24 0d 23 28 39 f2 67 65  |... temp$.#(9.ge|
00006420  74 6c 65 61 66 6e 61 6d  65 28 70 61 74 68 24 29  |tleafname(path$)|
00006430  3a 74 65 6d 70 24 3d c0  70 61 74 68 24 2c 28 a9  |:temp$=.path$,(.|
00006440  70 61 74 68 24 2d a9 6c  65 61 66 6e 61 6d 65 24  |path$-.leafname$|
00006450  29 29 0d 23 32 3c 6c 65  61 66 6e 61 6d 65 24 3d  |)).#2<leafname$=|
00006460  c2 6c 65 61 66 6e 61 6d  65 24 2c a9 6c 65 61 66  |.leafname$,.leaf|
00006470  6e 61 6d 65 24 2d 31 29  3a 24 62 6c 25 3d 6c 65  |name$-1):$bl%=le|
00006480  61 66 6e 61 6d 65 24 2b  bd 30 2b 22 20 22 0d 23  |afname$+.0+" ".#|
00006490  3c 31 63 6f 75 6e 74 68  61 6e 64 6c 65 25 3d a4  |<1counthandle%=.|
000064a0  66 69 6c 65 72 61 63 74  69 6f 6e 28 35 2c 31 2c  |fileraction(5,1,|
000064b0  74 65 6d 70 24 2c 62 6c  25 2c 22 22 2c 30 29 0d  |temp$,bl%,"",0).|
000064c0  23 46 05 e1 0d 23 50 11  dd f2 72 65 73 69 7a 65  |#F...#P...resize|
000064d0  66 6f 6e 74 73 0d 23 5a  23 c8 99 26 34 30 30 38  |fonts.#Z#..&4008|
000064e0  32 2c 6d 66 6f 6e 74 25  3a c8 99 26 34 30 30 38  |2,mfont%:..&4008|
000064f0  32 2c 69 66 6f 6e 74 25  0d 23 64 68 6d 66 6f 6e  |2,ifont%.#dhmfon|
00006500  74 25 3d a4 66 69 6e 64  66 6f 6e 74 28 a4 6d 73  |t%=.findfont(.ms|
00006510  67 28 22 6d 66 22 2c 22  22 2c 22 22 29 2c bb 28  |g("mf","",""),.(|
00006520  a4 6d 73 67 28 22 6d 66  73 22 2c 22 22 2c 22 22  |.msg("mfs","",""|
00006530  29 29 2c bb 28 a4 6d 73  67 28 22 6d 66 68 22 2c  |)),.(.msg("mfh",|
00006540  22 22 2c 22 22 29 29 2c  22 68 6f 6d 65 72 74 6f  |"","")),"homerto|
00006550  6e 2e 6d 65 64 69 75 6d  22 2c 31 33 2c 31 33 29  |n.medium",13,13)|
00006560  0d 23 6e 67 69 66 6f 6e  74 25 3d a4 66 69 6e 64  |.#ngifont%=.find|
00006570  66 6f 6e 74 28 a4 6d 73  67 28 22 69 66 22 2c 22  |font(.msg("if","|
00006580  22 2c 22 22 29 2c bb 28  a4 6d 73 67 28 22 69 66  |",""),.(.msg("if|
00006590  73 22 2c 22 22 2c 22 22  29 29 2c bb 28 a4 6d 73  |s","","")),.(.ms|
000065a0  67 28 22 69 66 68 22 2c  22 22 2c 22 22 29 29 2c  |g("ifh","","")),|
000065b0  22 74 72 69 6e 69 74 79  2e 6d 65 64 69 75 6d 22  |"trinity.medium"|
000065c0  2c 31 34 2c 31 34 29 0d  23 78 05 e1 0d 23 82 0c  |,14,14).#x...#..|
000065d0  dd f2 73 63 72 6e 78 79  0d 23 8c 48 21 62 6c 34  |..scrnxy.#.H!bl4|
000065e0  25 3d 34 3a 62 6c 34 25  21 34 3d 35 3a 62 6c 34  |%=4:bl4%!4=5:bl4|
000065f0  25 21 38 3d 31 31 3a 62  6c 34 25 21 31 32 3d 31  |%!8=11:bl4%!12=1|
00006600  32 3a 62 6c 34 25 21 31  36 3d 2d 31 3a c8 99 20  |2:bl4%!16=-1:.. |
00006610  26 33 31 2c 62 6c 34 25  2c 62 6c 34 25 2b 32 30  |&31,bl4%,bl4%+20|
00006620  0d 23 96 35 73 63 72 78  25 3d 62 6c 34 25 21 32  |.#.5scrx%=bl4%!2|
00006630  38 2b 31 3c 3c 62 6c 34  25 21 32 30 3a 73 63 72  |8+1<<bl4%!20:scr|
00006640  79 25 3d 62 6c 34 25 21  33 32 2b 31 3c 3c 62 6c  |y%=bl4%!32+1<<bl|
00006650  34 25 21 32 34 0d 23 a0  05 e1 0d 23 aa 12 dd f2  |4%!24.#....#....|
00006660  6f 70 65 6e 66 69 6c 65  66 69 6e 64 0d 23 b4 0c  |openfilefind.#..|
00006670  f2 73 65 74 75 70 66 66  0d 23 be 2a f2 6f 70 65  |.setupff.#.*.ope|
00006680  6e 28 4d 61 76 69 73 25  29 3a c8 99 26 34 30 30  |n(Mavis%):..&400|
00006690  44 32 2c 4d 61 76 69 73  25 2c 36 2c 2c 2c 2d 31  |D2,Mavis%,6,,,-1|
000066a0  2c 30 0d 23 c8 05 e1 0d  23 d2 0d dd f2 73 65 74  |,0.#....#....set|
000066b0  75 70 66 66 0d 23 dc 08  ea 20 72 25 0d 23 e6 1f  |upff.#... r%.#..|
000066c0  61 72 63 66 73 66 6c 61  67 25 3d 30 3a 73 70 61  |arcfsflag%=0:spa|
000066d0  72 6b 66 73 66 6c 61 67  25 3d 30 0d 23 f0 29 c8  |rkfsflag%=0.#.).|
000066e0  99 22 4f 53 5f 46 53 43  6f 6e 74 72 6f 6c 22 2c  |."OS_FSControl",|
000066f0  31 33 2c 22 41 72 63 46  53 23 22 2c 30 20 b8 20  |13,"ArcFS#",0 . |
00006700  2c 2c 72 25 0d 23 fa 17  e7 20 72 25 3e 30 20 61  |,,r%.#... r%>0 a|
00006710  72 63 66 73 66 6c 61 67  25 3d 31 0d 24 04 2a c8  |rcfsflag%=1.$.*.|
00006720  99 26 32 30 30 32 33 2c  22 41 72 63 46 53 24 44  |.&20023,"ArcFS$D|
00006730  69 72 22 2c 62 6c 32 25  2c 32 35 36 2c 30 20 b8  |ir",bl2%,256,0 .|
00006740  20 2c 2c 72 25 0d 24 0e  4e 62 6c 32 25 3f 72 25  | ,,r%.$.Nbl2%?r%|
00006750  3d 30 3a e7 20 a4 67 61  67 61 28 62 6c 32 25 29  |=0:. .gaga(bl2%)|
00006760  3c 3e 22 22 20 e7 20 a4  6f 62 6a 74 79 70 65 28  |<>"" . .objtype(|
00006770  22 3c 41 72 63 46 53 24  44 69 72 3e 2e 21 52 75  |"<ArcFS$Dir>.!Ru|
00006780  6e 22 29 3d 31 20 61 72  63 66 73 66 6c 61 67 25  |n")=1 arcfsflag%|
00006790  2b 3d 32 0d 24 18 2b c8  99 22 4f 53 5f 46 53 43  |+=2.$.+.."OS_FSC|
000067a0  6f 6e 74 72 6f 6c 22 2c  31 33 2c 22 53 70 61 72  |ontrol",13,"Spar|
000067b0  6b 46 53 23 22 2c 30 20  b8 20 2c 2c 72 25 0d 24  |kFS#",0 . ,,r%.$|
000067c0  22 19 e7 20 72 25 3e 30  20 73 70 61 72 6b 66 73  |".. r%>0 sparkfs|
000067d0  66 6c 61 67 25 3d 31 0d  24 2c 2c c8 99 26 32 30  |flag%=1.$,,..&20|
000067e0  30 32 33 2c 22 53 70 61  72 6b 46 53 24 44 69 72  |023,"SparkFS$Dir|
000067f0  22 2c 62 6c 32 25 2c 32  35 36 2c 30 20 b8 20 2c  |",bl2%,256,0 . ,|
00006800  2c 72 25 0d 24 36 52 62  6c 32 25 3f 72 25 3d 30  |,r%.$6Rbl2%?r%=0|
00006810  3a e7 20 a4 67 61 67 61  28 62 6c 32 25 29 3c 3e  |:. .gaga(bl2%)<>|
00006820  22 22 20 e7 20 a4 6f 62  6a 74 79 70 65 28 22 3c  |"" . .objtype("<|
00006830  53 70 61 72 6b 46 53 24  44 69 72 3e 2e 21 52 75  |SparkFS$Dir>.!Ru|
00006840  6e 22 29 3d 31 20 73 70  61 72 6b 66 73 66 6c 61  |n")=1 sparkfsfla|
00006850  67 25 2b 3d 32 0d 24 40  4e f2 73 65 6c 69 63 28  |g%+=2.$@N.selic(|
00006860  4d 61 76 69 73 25 2c 32  34 2c 30 2c 67 72 65 79  |Mavis%,24,0,grey|
00006870  29 3a f2 73 65 6c 69 63  28 4d 61 76 69 73 25 2c  |):.selic(Mavis%,|
00006880  32 35 2c 30 2c 67 72 65  79 29 3a f2 73 65 6c 69  |25,0,grey):.seli|
00006890  63 28 4d 61 76 69 73 25  2c 32 35 2c 30 2c 67 72  |c(Mavis%,25,0,gr|
000068a0  65 79 29 0d 24 4a 51 f2  73 65 6c 69 63 28 4d 61  |ey).$JQ.selic(Ma|
000068b0  76 69 73 25 2c 32 34 2c  68 69 67 68 2c 68 69 67  |vis%,24,high,hig|
000068c0  68 29 3a f2 73 65 6c 69  63 28 4d 61 76 69 73 25  |h):.selic(Mavis%|
000068d0  2c 32 35 2c 30 2c 68 69  67 68 29 3a f2 73 65 6c  |,25,0,high):.sel|
000068e0  69 63 28 4d 61 76 69 73  25 2c 32 36 2c 30 2c 68  |ic(Mavis%,26,0,h|
000068f0  69 67 68 29 0d 24 54 0f  75 73 65 61 72 63 66 73  |igh).$T.usearcfs|
00006900  25 3d 30 0d 24 5e 2e e7  20 61 72 63 66 73 66 6c  |%=0.$^.. arcfsfl|
00006910  61 67 25 3d 30 20 f2 73  65 6c 69 63 28 4d 61 76  |ag%=0 .selic(Mav|
00006920  69 73 25 2c 32 35 2c 67  72 65 79 2c 67 72 65 79  |is%,25,grey,grey|
00006930  29 0d 24 68 30 e7 20 73  70 61 72 6b 66 73 66 6c  |).$h0. sparkfsfl|
00006940  61 67 25 3d 30 20 f2 73  65 6c 69 63 28 4d 61 76  |ag%=0 .selic(Mav|
00006950  69 73 25 2c 32 36 2c 67  72 65 79 2c 67 72 65 79  |is%,26,grey,grey|
00006960  29 0d 24 72 1c e7 20 28  73 70 61 72 6b 66 73 66  |).$r.. (sparkfsf|
00006970  6c 61 67 25 20 80 20 31  29 3d 31 20 8c 0d 24 7c  |lag% . 1)=1 ..$||
00006980  51 f2 73 65 6c 69 63 28  4d 61 76 69 73 25 2c 32  |Q.selic(Mavis%,2|
00006990  36 2c 68 69 67 68 2c 68  69 67 68 29 3a f2 73 65  |6,high,high):.se|
000069a0  6c 69 63 28 4d 61 76 69  73 25 2c 32 34 2c 30 2c  |lic(Mavis%,24,0,|
000069b0  68 69 67 68 29 3a f2 73  65 6c 69 63 28 4d 61 76  |high):.selic(Mav|
000069c0  69 73 25 2c 32 35 2c 30  2c 68 69 67 68 29 0d 24  |is%,25,0,high).$|
000069d0  86 47 f2 73 65 6c 69 63  28 4d 61 76 69 73 25 2c  |.G.selic(Mavis%,|
000069e0  32 34 2c 67 72 65 79 2c  67 72 65 79 29 3a f2 73  |24,grey,grey):.s|
000069f0  65 6c 69 63 28 4d 61 76  69 73 25 2c 32 35 2c 67  |elic(Mavis%,25,g|
00006a00  72 65 79 2c 67 72 65 79  29 3a 75 73 65 61 72 63  |rey,grey):usearc|
00006a10  66 73 25 3d 32 0d 24 90  05 cd 0d 24 9a 05 e1 0d  |fs%=2.$....$....|
00006a20  24 a4 34 dd a4 66 69 6e  64 66 6f 6e 74 28 6e 61  |$.4..findfont(na|
00006a30  6d 65 24 2c 73 69 7a 65  25 2c 68 65 69 67 68 74  |me$,size%,height|
00006a40  25 2c 64 65 66 61 75 6c  74 24 2c 64 73 25 2c 64  |%,default$,ds%,d|
00006a50  68 25 29 0d 24 ae 0b ea  20 68 61 6e 64 25 0d 24  |h%).$... hand%.$|
00006a60  b8 07 ea 20 85 0d 24 c2  32 ee 20 85 20 ea 20 6e  |... ..$.2. . . n|
00006a70  61 6d 65 24 3d 64 65 66  61 75 6c 74 24 3a 73 69  |ame$=default$:si|
00006a80  7a 65 25 3d 64 73 25 3a  68 65 69 67 68 74 25 3d  |ze%=ds%:height%=|
00006a90  64 68 25 3a f7 20 85 0d  24 cc 2f c8 99 26 34 30  |dh%:. ..$./..&40|
00006aa0  30 38 31 2c 2c 6e 61 6d  65 24 2c 73 69 7a 65 25  |081,,name$,size%|
00006ab0  2a 31 36 2c 68 65 69 67  68 74 25 2a 31 36 20 b8  |*16,height%*16 .|
00006ac0  20 68 61 6e 64 25 0d 24  d6 0a 3d 68 61 6e 64 25  | hand%.$..=hand%|
00006ad0  0d 24 e0 3b dd f2 6f 6f  65 72 28 61 2c 62 29 3a  |.$.;..ooer(a,b):|
00006ae0  f2 73 65 6c 69 63 28 50  61 6e 65 25 2c 32 31 2c  |.selic(Pane%,21,|
00006af0  61 2c 62 29 3a f2 73 65  6c 69 63 28 50 61 6e 65  |a,b):.selic(Pane|
00006b00  25 2c 32 32 2c 61 2c 62  29 3a e1 0d 24 ea 11 dd  |%,22,a,b):..$...|
00006b10  f2 6f 70 65 6e 63 6f 6e  66 69 67 31 0d 24 f4 21  |.openconfig1.$.!|
00006b20  62 6c 25 21 33 32 3d 50  61 6e 65 25 3a c8 99 26  |bl%!32=Pane%:..&|
00006b30  34 30 30 43 42 2c 2c 62  6c 25 2b 33 32 0d 24 fe  |400CB,,bl%+32.$.|
00006b40  21 62 6c 25 21 34 34 3d  62 6c 25 21 34 2b 62 6c  |!bl%!44=bl%!4+bl|
00006b50  25 21 34 34 2d 62 6c 25  21 33 36 2b 31 36 0d 25  |%!44-bl%!36+16.%|
00006b60  08 21 62 6c 25 21 34 38  3d 62 6c 25 21 38 2b 62  |.!bl%!48=bl%!8+b|
00006b70  6c 25 21 34 38 2d 62 6c  25 21 34 30 2b 31 36 0d  |l%!48-bl%!40+16.|
00006b80  25 12 23 62 6c 25 21 33  36 3d 62 6c 25 21 34 2b  |%.#bl%!36=bl%!4+|
00006b90  31 36 3a 62 6c 25 21 34  30 3d 62 6c 25 21 38 2b  |16:bl%!40=bl%!8+|
00006ba0  31 36 0d 25 1c 22 62 6c  25 21 36 30 3d 62 6c 25  |16.%."bl%!60=bl%|
00006bb0  21 32 38 3a c8 99 26 34  30 30 43 35 2c 2c 62 6c  |!28:..&400C5,,bl|
00006bc0  25 2b 33 32 0d 25 26 1e  62 6c 25 21 32 38 3d 50  |%+32.%&.bl%!28=P|
00006bd0  61 6e 65 25 3a c8 99 26  34 30 30 43 35 2c 2c 62  |ane%:..&400C5,,b|
00006be0  6c 25 0d 25 30 05 e1 0d  25 3a 10 dd f2 6f 70 65  |l%.%0...%:...ope|
00006bf0  6e 63 6f 6e 66 69 67 0d  25 44 1e 21 62 6c 25 3d  |nconfig.%D.!bl%=|
00006c00  43 6f 6e 66 69 67 25 3a  c8 99 26 34 30 30 43 42  |Config%:..&400CB|
00006c10  2c 2c 62 6c 25 0d 25 4e  1a f2 6f 70 65 6e 63 6f  |,,bl%.%N..openco|
00006c20  6e 66 69 67 31 3a 62 6c  25 21 32 38 3d 2d 31 0d  |nfig1:bl%!28=-1.|
00006c30  25 58 1c c8 99 26 34 30  30 43 35 2c 2c 62 6c 25  |%X...&400C5,,bl%|
00006c40  3a 21 62 6c 25 3d 50 61  6e 65 25 0d 25 62 29 c8  |:!bl%=Pane%.%b).|
00006c50  99 26 34 30 30 43 42 2c  2c 62 6c 25 3a 62 6c 25  |.&400CB,,bl%:bl%|
00006c60  21 32 38 3d 2d 31 3a c8  99 26 34 30 30 43 35 2c  |!28=-1:..&400C5,|
00006c70  2c 62 6c 25 0d 25 6c 2a  c8 99 26 34 30 30 44 32  |,bl%.%l*..&400D2|
00006c80  2c 50 61 6e 65 25 2c 31  31 2c 2c 2c 2d 31 2c 30  |,Pane%,11,,,-1,0|
00006c90  3a 63 6f 6e 66 69 67 6f  70 65 6e 25 3d b9 0d 25  |:configopen%=..%|
00006ca0  76 05 e1 0d 25 80 12 dd  f2 74 6d 65 6e 75 28 69  |v...%....tmenu(i|
00006cb0  74 65 6d 25 29 0d 25 8a  12 ea 20 77 69 6e 25 2c  |tem%).%... win%,|
00006cc0  6e 24 2c 70 6f 70 24 0d  25 94 33 c8 99 26 34 30  |n$,pop$.%.3..&40|
00006cd0  30 44 33 2c 2c 62 6c 34  25 20 b8 20 77 69 6e 25  |0D3,,bl4% . win%|
00006ce0  3a 6e 24 3d 24 28 74 6d  65 6e 69 6e 64 25 2b 28  |:n$=$(tmenind%+(|
00006cf0  69 74 65 6d 25 2a 32 34  29 29 0d 25 9e 0d c8 8e  |item%*24)).%....|
00006d00  20 77 69 6e 25 20 ca 0d  25 a8 2d c9 20 41 75 74  | win% ..%.-. Aut|
00006d10  6f 25 3a 46 74 70 24 28  63 75 72 72 70 61 74 68  |o%:Ftp$(currpath|
00006d20  25 29 3d a4 66 74 79 70  65 28 6e 24 29 3a f2 65  |%)=.ftype(n$):.e|
00006d30  64 75 72 65 0d 25 b2 0c  c9 20 4d 61 76 69 73 25  |dure.%... Mavis%|
00006d40  0d 25 bc 13 70 6f 70 24  3d a4 66 74 79 70 65 28  |.%..pop$=.ftype(|
00006d50  6e 24 29 0d 25 c6 15 f2  70 73 28 4d 61 76 69 73  |n$).%...ps(Mavis|
00006d60  25 2c 31 33 2c 6e 24 29  0d 25 d0 1a 24 66 66 73  |%,13,n$).%..$ffs|
00006d70  25 3d 22 73 66 69 6c 65  5f 22 2b 70 6f 70 24 2b  |%="sfile_"+pop$+|
00006d80  bd 30 0d 25 da 1e f2 73  65 6c 69 63 28 4d 61 76  |.0.%...selic(Mav|
00006d90  69 73 25 2c 66 66 69 63  6f 6e 25 2c 30 2c 30 29  |is%,fficon%,0,0)|
00006da0  0d 25 e4 05 cb 0d 25 ee  11 c8 99 26 34 30 30 43  |.%....%....&400C|
00006db0  46 2c 2c 62 6c 25 0d 25  f8 15 e7 20 28 62 6c 25  |F,,bl%.%... (bl%|
00006dc0  21 38 20 80 20 31 29 3d  31 20 8c 0d 26 02 1f c8  |!8 . 1)=1 ..&...|
00006dd0  99 26 34 30 30 44 34 2c  2c 74 6d 65 6e 25 2c 62  |.&400D4,,tmen%,b|
00006de0  6c 25 21 34 2c 62 6c 25  21 38 0d 26 0c 05 cc 0d  |l%!4,bl%!8.&....|
00006df0  26 16 1d c8 99 26 32 30  30 31 45 2c 37 2c 2c 74  |&....&2001E,7,,t|
00006e00  6d 65 6e 25 3a 74 6d 65  6e 25 3d 30 0d 26 20 05  |men%:tmen%=0.& .|
00006e10  cd 0d 26 2a 05 e1 0d 26  34 38 dd a4 63 72 69 63  |..&*...&48..cric|
00006e20  6f 6e 28 68 61 6e 64 25  2c 78 25 2c 79 25 2c 77  |on(hand%,x%,y%,w|
00006e30  25 2c 68 25 2c 74 70 74  72 25 2c 73 70 74 72 25  |%,h%,tptr%,sptr%|
00006e40  2c 74 24 2c 73 24 2c 66  6c 61 67 73 25 29 0d 26  |,t$,s$,flags%).&|
00006e50  3e 0b ea 20 69 63 6f 6e  25 0d 26 48 3c 21 62 6c  |>.. icon%.&H<!bl|
00006e60  25 3d 68 61 6e 64 25 3a  62 6c 25 21 34 3d 78 25  |%=hand%:bl%!4=x%|
00006e70  3a 62 6c 25 21 38 3d 2d  79 25 2d 68 25 3a 62 6c  |:bl%!8=-y%-h%:bl|
00006e80  25 21 31 32 3d 78 25 2b  77 25 3a 62 6c 25 21 31  |%!12=x%+w%:bl%!1|
00006e90  36 3d 2d 79 25 0d 26 52  35 62 6c 25 21 32 30 3d  |6=-y%.&R5bl%!20=|
00006ea0  66 6c 61 67 73 25 3a 62  6c 25 21 32 34 3d 74 70  |flags%:bl%!24=tp|
00006eb0  74 72 25 3a 62 6c 25 21  32 38 3d 73 70 74 72 25  |tr%:bl%!28=sptr%|
00006ec0  3a 62 6c 25 21 33 32 3d  31 31 0d 26 5c 2d 24 73  |:bl%!32=11.&\-$s|
00006ed0  70 74 72 25 3d 73 24 3a  24 74 70 74 72 25 3d 74  |ptr%=s$:$tptr%=t|
00006ee0  24 3a c8 99 26 34 30 30  43 32 2c 2c 62 6c 25 20  |$:..&400C2,,bl% |
00006ef0  b8 20 69 63 6f 6e 25 0d  26 66 0a 3d 69 63 6f 6e  |. icon%.&f.=icon|
00006f00  25 0d 26 70 15 dd f2 74  79 70 65 6d 65 6e 75 28  |%.&p...typemenu(|
00006f10  78 25 2c 79 25 29 0d 26  7a 1a ea 20 6c 65 6e 67  |x%,y%).&z.. leng|
00006f20  74 68 2c 70 6f 69 6e 74  2c 6e 24 2c 74 6f 74 25  |th,point,n$,tot%|
00006f30  0d 26 84 1e e7 20 74 6d  65 6e 25 3d 30 20 74 6d  |.&... tmen%=0 tm|
00006f40  65 6e 25 3d a4 64 69 6d  28 36 30 30 30 29 0d 26  |en%=.dim(6000).&|
00006f50  8e 0f e7 20 74 6d 65 6e  25 3d 30 20 e1 0d 26 98  |... tmen%=0 ..&.|
00006f60  63 74 6d 65 6e 69 6e 64  25 3d 74 6d 65 6e 25 2b  |ctmenind%=tmen%+|
00006f70  33 30 30 30 3a 4d 25 3d  74 6d 65 6e 25 3a 70 6f  |3000:M%=tmen%:po|
00006f80  69 6e 74 3d 30 3a 74 6f  74 25 3d 30 3a 6d 65 6e  |int=0:tot%=0:men|
00006f90  6d 61 73 6b 25 3d a4 74  6d 66 3a f2 53 74 61 72  |mask%=.tmf:.Star|
00006fa0  74 61 6d 65 6e 75 28 22  46 69 6c 65 20 54 79 70  |tamenu("File Typ|
00006fb0  65 73 22 29 3a 5a 25 3d  74 6d 65 6e 69 6e 64 25  |es"):Z%=tmenind%|
00006fc0  0d 26 a2 14 c8 99 22 48  6f 75 72 67 6c 61 73 73  |.&...."Hourglass|
00006fd0  5f 4f 6e 22 0d 26 ac 05  f5 0d 26 b6 3b c8 99 26  |_On".&....&.;..&|
00006fe0  32 30 30 32 33 2c 22 46  69 6c 65 24 54 79 70 65  |20023,"File$Type|
00006ff0  5f 2a 22 2c 62 6c 34 25  2c 32 30 2c 70 6f 69 6e  |_*",bl4%,20,poin|
00007000  74 2c 30 20 b8 20 2c 2c  6c 65 6e 67 74 68 2c 70  |t,0 . ,,length,p|
00007010  6f 69 6e 74 0d 26 c0 11  e7 20 6c 65 6e 67 74 68  |oint.&... length|
00007020  3c 3e 30 20 8c 0d 26 ca  52 6e 24 3d a4 67 65 74  |<>0 ..&.Rn$=.get|
00007030  6d 65 6d 28 62 6c 34 25  2c a4 6c 65 73 73 28 6c  |mem(bl4%,.less(l|
00007040  65 6e 67 74 68 2c 38 29  29 3a 72 24 3d c2 a4 67  |ength,8)):r$=..g|
00007050  65 74 6d 65 6d 28 70 6f  69 6e 74 2c 31 33 29 2c  |etmem(point,13),|
00007060  33 29 3a f2 6d 61 64 74  28 6e 24 2c 72 24 29 3a  |3):.madt(n$,r$):|
00007070  74 6f 74 25 2b 3d 31 0d  26 d4 05 cd 0d 26 de 19  |tot%+=1.&....&..|
00007080  fd 20 6c 65 6e 67 74 68  3d 30 20 84 20 74 6f 74  |. length=0 . tot|
00007090  25 3d 31 32 33 0d 26 e8  37 f2 73 71 75 69 64 67  |%=123.&.7.squidg|
000070a0  65 28 74 6f 74 25 2d 31  2c 26 38 30 2c 30 29 3a  |e(tot%-1,&80,0):|
000070b0  78 25 2d 3d 39 36 3a c8  99 26 34 30 30 44 34 2c  |x%-=96:..&400D4,|
000070c0  2c 74 6d 65 6e 25 2c 78  25 2c 79 25 0d 26 f2 1d  |,tmen%,x%,y%.&..|
000070d0  77 6d 65 6e 25 3d 33 3a  c8 99 22 48 6f 75 72 67  |wmen%=3:.."Hourg|
000070e0  6c 61 73 73 5f 4f 66 66  22 0d 26 fc 05 e1 0d 27  |lass_Off".&....'|
000070f0  06 12 dd f2 70 75 74 73  74 72 75 63 74 75 72 65  |....putstructure|
00007100  0d 27 10 0b ea 20 6c 6f  6f 70 25 0d 27 1a 18 e3  |.'... loop%.'...|
00007110  20 6c 6f 6f 70 25 3d 31  20 b8 20 72 6f 6f 74 64  | loop%=1 . rootd|
00007120  69 72 25 0d 27 24 21 f2  67 65 74 6c 65 61 66 6e  |ir%.'$!.getleafn|
00007130  61 6d 65 28 72 6f 6f 74  64 69 72 24 28 6c 6f 6f  |ame(rootdir$(loo|
00007140  70 25 29 29 0d 27 2e 52  ff 28 22 43 6f 70 79 20  |p%)).'.R.("Copy |
00007150  22 2b 68 6f 6d 65 24 2b  22 2e 54 65 6d 70 22 2b  |"+home$+".Temp"+|
00007160  6c 65 61 66 6e 61 6d 65  24 2b 22 20 22 2b 72 6f  |leafname$+" "+ro|
00007170  6f 74 64 69 72 24 28 6c  6f 6f 70 25 29 2b 22 20  |otdir$(loop%)+" |
00007180  7e 41 7e 43 44 7e 46 7e  4c 7e 4e 7e 50 7e 51 52  |~A~CD~F~L~N~P~QR|
00007190  53 54 7e 56 22 29 0d 27  38 05 ed 0d 27 42 05 e1  |ST~V").'8...'B..|
000071a0  0d 27 4c 11 dd a4 64 69  6d 32 28 73 69 7a 65 25  |.'L...dim2(size%|
000071b0  29 0d 27 56 13 ea 20 62  6c 6f 63 6b 25 2c 66 6c  |).'V.. block%,fl|
000071c0  61 67 73 25 0d 27 60 29  c8 99 26 32 30 30 31 45  |ags%.'`)..&2001E|
000071d0  2c 36 2c 2c 2c 73 69 7a  65 25 20 b8 20 2c 2c 62  |,6,,,size% . ,,b|
000071e0  6c 6f 63 6b 25 20 3b 66  6c 61 67 73 25 0d 27 6a  |lock% ;flags%.'j|
000071f0  45 e7 20 28 66 6c 61 67  73 25 20 80 20 31 29 3d  |E. (flags% . 1)=|
00007200  31 20 85 30 2c 22 4e 6f  20 72 6f 6f 6d 20 69 6e  |1 .0,"No room in|
00007210  20 52 4d 41 20 2d 20 75  6e 61 62 6c 65 20 74 6f  | RMA - unable to|
00007220  20 73 74 61 72 74 20 42  6c 61 63 6b 20 48 6f 6c  | start Black Hol|
00007230  65 22 0d 27 74 0b 3d 62  6c 6f 63 6b 25 0d 27 7e  |e".'t.=block%.'~|
00007240  11 dd f2 67 6d 61 76 69  73 28 61 2c 62 29 0d 27  |...gmavis(a,b).'|
00007250  88 0b ea 20 70 6c 6f 70  25 0d 27 92 12 e3 20 70  |... plop%.'... p|
00007260  6c 6f 70 25 3d 33 20 b8  20 31 34 0d 27 9c 0e c8  |lop%=3 . 14.'...|
00007270  8e 20 70 6c 6f 70 25 20  ca 0d 27 a6 15 c9 20 33  |. plop% ..'... 3|
00007280  2c 36 2c 37 2c 38 2c 39  2c 31 30 2c 31 33 0d 27  |,6,7,8,9,10,13.'|
00007290  b0 1c f2 73 65 6c 69 63  28 4d 61 76 69 73 25 2c  |...selic(Mavis%,|
000072a0  70 6c 6f 70 25 2c 61 2c  62 29 0d 27 ba 05 cb 0d  |plop%,a,b).'....|
000072b0  27 c4 05 ed 0d 27 ce 19  f2 73 65 6c 69 63 28 4d  |'....'...selic(M|
000072c0  61 76 69 73 25 2c 32 32  2c 61 2c 62 29 0d 27 d8  |avis%,22,a,b).'.|
000072d0  19 f2 73 65 6c 69 63 28  4d 61 76 69 73 25 2c 32  |..selic(Mavis%,2|
000072e0  39 2c 61 2c 62 29 0d 27  e2 13 e7 20 75 73 65 61  |9,a,b).'... usea|
000072f0  72 63 66 73 25 3d 32 20  8c 0d 27 ec 19 f2 73 65  |rcfs%=2 ..'...se|
00007300  6c 69 63 28 4d 61 76 69  73 25 2c 32 36 2c 61 2c  |lic(Mavis%,26,a,|
00007310  62 29 0d 27 f6 05 cc 0d  28 00 19 f2 73 65 6c 69  |b).'....(...seli|
00007320  63 28 4d 61 76 69 73 25  2c 32 34 2c 61 2c 62 29  |c(Mavis%,24,a,b)|
00007330  0d 28 0a 28 e7 20 61 72  63 66 73 66 6c 61 67 25  |.(.(. arcfsflag%|
00007340  3e 30 20 f2 73 65 6c 69  63 28 4d 61 76 69 73 25  |>0 .selic(Mavis%|
00007350  2c 32 35 2c 61 2c 62 29  0d 28 14 2a e7 20 73 70  |,25,a,b).(.*. sp|
00007360  61 72 6b 66 73 66 6c 61  67 25 3e 30 20 f2 73 65  |arkfsflag%>0 .se|
00007370  6c 69 63 28 4d 61 76 69  73 25 2c 32 36 2c 61 2c  |lic(Mavis%,26,a,|
00007380  62 29 0d 28 1e 05 cd 0d  28 28 05 e1 0d 28 32 13  |b).(....((...(2.|
00007390  dd f2 73 71 75 61 73 68  28 70 61 74 68 24 29 0d  |..squash(path$).|
000073a0  28 3c 30 e7 20 77 69 70  25 3e 30 20 f2 6c 61 6d  |(<0. wip%>0 .lam|
000073b0  61 74 69 6f 6e 28 a4 6d  73 67 28 22 62 75 73 79  |ation(.msg("busy|
000073c0  22 2c 22 22 2c 22 22 29  2c 30 2c 30 29 3a e1 0d  |","",""),0,0):..|
000073d0  28 46 22 73 63 72 61 70  25 3d a4 64 69 6d 28 33  |(F"scrap%=.dim(3|
000073e0  30 30 30 29 3a e7 20 73  63 72 61 70 25 3d 30 20  |000):. scrap%=0 |
000073f0  e1 0d 28 50 58 77 69 70  25 3d 31 3a 6d 73 67 24  |..(PXwip%=1:msg$|
00007400  28 31 29 3d 70 61 74 68  24 3a 7a 61 70 70 61 25  |(1)=path$:zappa%|
00007410  3d 34 3a 21 62 79 65 25  3d 31 3a 70 6f 6c 6c 6d  |=4:!bye%=1:pollm|
00007420  61 73 6b 25 3d 26 31 38  33 30 3a 75 73 65 61 72  |ask%=&1830:usear|
00007430  63 66 73 25 3d 30 3a f2  69 62 61 72 28 22 53 71  |cfs%=0:.ibar("Sq|
00007440  75 61 73 68 69 6e 67 22  29 0d 28 5a 05 e1 0d 28  |uashing").(Z...(|
00007450  64 14 dd a4 66 74 79 70  65 28 62 6f 6f 67 69 65  |d...ftype(boogie|
00007460  24 29 0d 28 6e 14 ea 20  72 65 74 75 72 6e 24 2c  |$).(n.. return$,|
00007470  66 74 79 70 65 25 0d 28  78 2a 77 72 69 6e 6b 6c  |ftype%.(x*wrinkl|
00007480  65 64 66 6f 72 65 73 6b  69 6e 25 3d a3 3a e7 20  |edforeskin%=.:. |
00007490  62 6f 6f 67 69 65 24 3d  22 22 20 8c 20 3d 22 22  |boogie$="" . =""|
000074a0  0d 28 82 2b c8 99 22 58  4f 53 5f 46 53 43 6f 6e  |.(.+.."XOS_FSCon|
000074b0  74 72 6f 6c 22 2c 33 31  2c 62 6f 6f 67 69 65 24  |trol",31,boogie$|
000074c0  20 b8 20 2c 2c 66 74 79  70 65 25 0d 28 8c 10 e7  | . ,,ftype%.(...|
000074d0  20 66 74 79 70 65 25 3d  30 20 8c 0d 28 96 38 77  | ftype%=0 ..(.8w|
000074e0  72 69 6e 6b 6c 65 64 66  6f 72 65 73 6b 69 6e 25  |rinkledforeskin%|
000074f0  3d b9 3a f2 6c 61 6d 61  74 69 6f 6e 28 a4 6d 73  |=.:.lamation(.ms|
00007500  67 28 22 6e 6f 74 22 2c  22 22 2c 22 22 29 2c 30  |g("not","",""),0|
00007510  2c 30 29 0d 28 a0 13 72  65 74 75 72 6e 24 3d 62  |,0).(..return$=b|
00007520  6f 6f 67 69 65 24 0d 28  aa 05 cc 0d 28 b4 14 72  |oogie$.(....(..r|
00007530  65 74 75 72 6e 24 3d c3  7e 66 74 79 70 65 25 0d  |eturn$=.~ftype%.|
00007540  28 be 05 cd 0d 28 c8 0c  3d 72 65 74 75 72 6e 24  |(....(..=return$|
00007550  0d 28 d2 13 dd f2 63 68  61 6e 67 65 73 70 72 69  |.(....changespri|
00007560  74 65 73 0d 28 dc 1f 2a  53 65 74 20 42 6c 61 63  |tes.(..*Set Blac|
00007570  6b 48 6f 6c 65 24 57 69  62 62 6c 65 20 22 41 45  |kHole$Wibble "AE|
00007580  48 22 0d 28 e6 38 ff 28  22 52 4d 45 6e 73 75 72  |H".(.8.("RMEnsur|
00007590  65 20 57 69 6d 70 53 70  72 69 74 65 20 31 2e 30  |e WimpSprite 1.0|
000075a0  30 20 55 6e 53 65 74 20  42 6c 61 63 6b 48 6f 6c  |0 UnSet BlackHol|
000075b0  65 24 57 69 62 62 6c 65  22 29 0d 28 f0 31 c8 99  |e$Wibble").(.1..|
000075c0  26 32 30 30 32 33 2c 22  42 6c 61 63 6b 48 6f 6c  |&20023,"BlackHol|
000075d0  65 24 57 69 62 62 6c 65  22 2c 62 6c 25 2c 32 35  |e$Wibble",bl%,25|
000075e0  36 2c 30 20 b8 20 2c 2c  72 61 25 0d 28 fa 0d 62  |6,0 . ,,ra%.(..b|
000075f0  6c 25 3f 72 61 25 3d 30  0d 29 04 18 e7 20 a4 67  |l%?ra%=0.)... .g|
00007600  61 67 61 28 62 6c 25 29  3d 22 41 45 48 22 20 8c  |aga(bl%)="AEH" .|
00007610  0d 29 0e 30 ff 28 22 57  69 6d 70 53 70 72 69 74  |.).0.("WimpSprit|
00007620  65 73 20 22 2b 68 6f 6d  65 24 2b 22 2e 53 70 72  |es "+home$+".Spr|
00007630  69 74 65 73 2e 22 2b 73  70 72 69 74 65 73 24 29  |ites."+sprites$)|
00007640  0d 29 18 05 cc 0d 29 22  30 ff 28 22 49 63 6f 6e  |.)....)"0.("Icon|
00007650  53 70 72 69 74 65 73 20  22 2b 68 6f 6d 65 24 2b  |Sprites "+home$+|
00007660  22 2e 53 70 72 69 74 65  73 2e 22 2b 73 70 72 69  |".Sprites."+spri|
00007670  74 65 73 24 29 0d 29 2c  05 cd 0d 29 36 05 e1 0d  |tes$).),...)6...|
00007680  29 40 12 dd f2 72 65 73  69 7a 65 63 6f 6e 66 69  |)@...resizeconfi|
00007690  67 0d 29 4a 1c 70 61 6e  65 68 65 69 67 68 74 25  |g.)J.paneheight%|
000076a0  3d 62 6c 25 21 31 36 2d  62 6c 25 21 38 0d 29 54  |=bl%!16-bl%!8.)T|
000076b0  4c e7 20 70 61 6e 65 68  65 69 67 68 74 25 3e 73  |L. paneheight%>s|
000076c0  63 72 79 25 2d 37 32 20  62 6c 25 21 38 3d 31 36  |cry%-72 bl%!8=16|
000076d0  3a 62 6c 25 21 31 36 3d  73 63 72 79 25 2d 35 36  |:bl%!16=scry%-56|
000076e0  3a 70 61 6e 65 68 65 69  67 68 74 25 3d 62 6c 25  |:paneheight%=bl%|
000076f0  21 31 36 2d 62 6c 25 21  38 0d 29 5e 1f e7 20 63  |!16-bl%!8.)^.. c|
00007700  6f 6e 66 69 67 6f 70 65  6e 25 20 c8 99 26 34 30  |onfigopen% ..&40|
00007710  30 43 35 2c 2c 62 6c 25  0d 29 68 23 e7 20 70 61  |0C5,,bl%.)h#. pa|
00007720  6e 65 68 65 69 67 68 74  25 3c 3e 6f 6c 64 70 61  |neheight%<>oldpa|
00007730  6e 65 68 65 69 67 68 74  25 20 8c 0d 29 72 1e 6f  |neheight% ..)r.o|
00007740  6c 64 70 61 6e 65 68 65  69 67 68 74 25 3d 70 61  |ldpaneheight%=pa|
00007750  6e 65 68 65 69 67 68 74  25 0d 29 7c 23 62 6c 25  |neheight%.)|#bl%|
00007760  21 34 30 3d 43 6f 6e 66  69 67 25 3a c8 99 26 34  |!40=Config%:..&4|
00007770  30 30 43 42 2c 2c 62 6c  25 2b 34 30 0d 29 86 2f  |00CB,,bl%+40.)./|
00007780  62 6c 25 21 34 38 3d 62  6c 25 21 38 2d 31 36 3a  |bl%!48=bl%!8-16:|
00007790  62 6c 25 21 35 36 3d 62  6c 25 21 31 36 2b 38 3a  |bl%!56=bl%!16+8:|
000077a0  62 6c 25 21 36 34 3d 2d  34 34 32 0d 29 90 2f 62  |bl%!64=-442.)./b|
000077b0  6c 25 21 36 38 3d 50 61  6e 65 25 3a e7 20 63 6f  |l%!68=Pane%:. co|
000077c0  6e 66 69 67 6f 70 65 6e  25 20 c8 99 26 34 30 30  |nfigopen% ..&400|
000077d0  43 35 2c 2c 62 6c 25 2b  34 30 0d 29 9a 05 cd 0d  |C5,,bl%+40.)....|
000077e0  29 a4 05 e1 0d 29 ae 13  dd f2 72 65 73 69 7a 65  |)....)....resize|
000077f0  63 6f 6e 66 69 67 31 0d  29 b8 0b f2 73 63 72 6e  |config1.)...scrn|
00007800  78 79 0d 29 c2 1c 21 62  6c 25 3d 50 61 6e 65 25  |xy.)..!bl%=Pane%|
00007810  3a c8 99 26 34 30 30 43  42 2c 2c 62 6c 25 0d 29  |:..&400CB,,bl%.)|
00007820  cc 17 e7 20 62 6c 25 21  31 36 3e 73 63 72 79 25  |... bl%!16>scry%|
00007830  2d 35 36 20 8c 0d 29 d6  3a 62 6c 25 21 31 36 3d  |-56 ..).:bl%!16=|
00007840  73 63 72 79 25 2d 35 36  3a 62 6c 25 21 38 3d 62  |scry%-56:bl%!8=b|
00007850  6c 25 21 31 36 2d 70 61  6e 65 68 65 69 67 68 74  |l%!16-paneheight|
00007860  25 3a f2 72 65 73 69 7a  65 63 6f 6e 66 69 67 0d  |%:.resizeconfig.|
00007870  29 e0 05 cd 0d 29 ea 1c  21 62 6c 25 3d 50 61 6e  |)....)..!bl%=Pan|
00007880  65 25 3a c8 99 26 34 30  30 43 42 2c 2c 62 6c 25  |e%:..&400CB,,bl%|
00007890  0d 29 f4 1c e7 20 70 61  6e 65 68 65 69 67 68 74  |.)... paneheight|
000078a0  25 3e 73 63 72 79 25 2d  37 32 20 8c 0d 29 fe 2a  |%>scry%-72 ..).*|
000078b0  62 6c 25 21 38 3d 31 36  3a 62 6c 25 21 31 36 3d  |bl%!8=16:bl%!16=|
000078c0  73 63 72 79 25 2d 35 36  3a f2 72 65 73 69 7a 65  |scry%-56:.resize|
000078d0  63 6f 6e 66 69 67 0d 2a  08 05 cd 0d 2a 12 05 e1  |config.*....*...|
000078e0  0d 2a 1c 1f dd f2 73 65  61 72 63 68 61 6e 64 63  |.*....searchandc|
000078f0  6f 6d 70 61 72 65 28 61  63 74 69 6f 6e 25 29 0d  |ompare(action%).|
00007900  2a 26 40 ea 20 63 6f 75  6e 74 25 2c 61 64 64 72  |*&@. count%,addr|
00007910  25 2c 74 65 6d 70 24 2c  74 65 6d 70 32 24 2c 66  |%,temp$,temp2$,f|
00007920  69 6c 65 74 79 70 65 25  2c 6f 62 6a 74 79 70 65  |iletype%,objtype|
00007930  25 2c 6f 74 6f 74 25 2c  6f 75 74 70 75 74 24 0d  |%,otot%,output$.|
00007940  2a 30 32 63 6f 75 6e 74  25 3d 30 3a 61 64 64 72  |*02count%=0:addr|
00007950  25 3d 73 63 72 61 70 25  3a 74 65 6d 70 24 3d 6d  |%=scrap%:temp$=m|
00007960  73 67 24 28 77 69 70 25  29 3a 77 69 70 25 2d 3d  |sg$(wip%):wip%-=|
00007970  31 0d 2a 3a 2d c8 99 26  43 2c 31 30 2c 74 65 6d  |1.*:-..&C,10,tem|
00007980  70 24 2c 73 63 72 61 70  25 2c 37 37 2c 30 2c 33  |p$,scrap%,77,0,3|
00007990  30 30 30 2c 30 20 b8 20  2c 2c 2c 6e 6f 25 0d 2a  |000,0 . ,,,no%.*|
000079a0  44 0d e7 20 6e 6f 25 3e  30 20 8c 0d 2a 4e 05 f5  |D.. no%>0 ..*N..|
000079b0  0d 2a 58 42 66 69 6c 65  74 79 70 65 25 3d 28 28  |.*XBfiletype%=((|
000079c0  28 61 64 64 72 25 21 30  29 3e 3e 3e 38 29 20 80  |(addr%!0)>>>8) .|
000079d0  20 26 46 46 46 29 3a 6f  62 6a 74 79 70 65 25 3d  | &FFF):objtype%=|
000079e0  61 64 64 72 25 21 31 36  3a 61 64 64 72 25 2b 3d  |addr%!16:addr%+=|
000079f0  32 30 0d 2a 62 2f 74 65  6d 70 32 24 3d a4 62 75  |20.*b/temp2$=.bu|
00007a00  6d 28 61 64 64 72 25 29  3a 6f 75 74 70 75 74 24  |m(addr%):output$|
00007a10  3d 74 65 6d 70 24 2b 22  2e 22 2b 74 65 6d 70 32  |=temp$+"."+temp2|
00007a20  24 0d 2a 6c 11 c8 8e 20  6f 62 6a 74 79 70 65 25  |$.*l... objtype%|
00007a30  20 ca 0d 2a 76 30 c9 20  31 3a f2 74 68 69 6e 6b  | ..*v0. 1:.think|
00007a40  28 61 63 74 69 6f 6e 25  2c 66 69 6c 65 74 79 70  |(action%,filetyp|
00007a50  65 25 2c 6f 75 74 70 75  74 24 2c 74 65 6d 70 32  |e%,output$,temp2|
00007a60  24 29 0d 2a 80 24 c9 20  32 2c 33 3a 77 69 70 25  |$).*.$. 2,3:wip%|
00007a70  2b 3d 31 3a 6d 73 67 24  28 77 69 70 25 29 3d 6f  |+=1:msg$(wip%)=o|
00007a80  75 74 70 75 74 24 0d 2a  8a 05 cb 0d 2a 94 0d 63  |utput$.*....*..c|
00007a90  6f 75 6e 74 25 2b 3d 31  0d 2a 9e 1f c8 95 20 28  |ount%+=1.*.... (|
00007aa0  61 64 64 72 25 20 83 20  34 29 3e 30 3a 61 64 64  |addr% . 4)>0:add|
00007ab0  72 25 2b 3d 31 3a ce 0d  2a a8 10 fd 20 63 6f 75  |r%+=1:..*... cou|
00007ac0  6e 74 25 3d 6e 6f 25 0d  2a b2 20 e7 20 61 63 74  |nt%=no%.*. . act|
00007ad0  69 6f 6e 25 3d 30 20 f2  67 65 74 66 69 6c 65 73  |ion%=0 .getfiles|
00007ae0  28 74 65 6d 70 24 29 0d  2a bc 05 cd 0d 2a c6 05  |(temp$).*....*..|
00007af0  e1 0d 2a d0 0d dd f2 64  6f 6f 62 65 72 79 0d 2a  |..*....doobery.*|
00007b00  da 2e e7 20 a4 65 6d 70  74 79 28 62 69 6e 24 29  |... .empty(bin$)|
00007b10  20 74 65 24 3d 22 45 6d  70 74 79 22 20 8b 74 65  | te$="Empty" .te|
00007b20  24 3d 22 4f 63 63 75 70  69 65 64 22 0d 2a e4 4c  |$="Occupied".*.L|
00007b30  68 6f 6c 65 25 3d a4 63  72 69 63 6f 6e 28 2d 35  |hole%=.cricon(-5|
00007b40  2c 26 31 30 30 30 30 30  30 30 2c 2d 39 32 2c 31  |,&10000000,-92,1|
00007b50  34 34 2c 31 30 38 2c 69  62 74 2c 69 62 73 2c 74  |44,108,ibt,ibs,t|
00007b60  65 24 2c 22 73 21 62 6c  61 63 6b 30 22 2c 26 31  |e$,"s!black0",&1|
00007b70  37 30 30 33 31 32 42 29  0d 2a ee 32 21 68 6f 6c  |700312B).*.2!hol|
00007b80  65 68 61 6e 64 6c 65 3d  68 6f 6c 65 25 3a 77 73  |ehandle=hole%:ws|
00007b90  69 62 6c 6f 63 6b 31 21  34 3d 68 6f 6c 65 25 3a  |iblock1!4=hole%:|
00007ba0  f2 69 62 61 72 28 74 65  24 29 0d 2a f8 05 e1 0d  |.ibar(te$).*....|
00007bb0  ff                                                |.|
00007bb1