PD/!BlakHole2/!RunImage

Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199310.adf » 93_10s » PD/!BlakHole2/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199310.adf » 93_10s
Filename:	PD/!BlakHole2/!RunImage
Read OK:	✔
File size:	6CDA bytes
Load address:	0000
Exec address:	0000

File contents

   10REM**************************************************************
   20REM**                      BLACK HOLE II                       **
   30REM**  Please do not attempt to understand this  code, it may  **
   40REM**     cause long term bewilderment like it did to me.      **
   50REM**************************************************************
   60DIM Ftp$(20),Svpth$(20),msg$(77),rootdir$(77),wipe$(77),wot$(10),men$(11),stext$(5)
   70DIM bl% 2000,IndText% 3024,day(11),overlay$(1),Menus% 1000
   80DIM ibs 12,ibt 12,sps% 12,spt% 12,ct 12,v 12,discname% 14,ffs% 12,fft% 2
   90overlay$()="<BlackHole$Dir>.Setup","<BlackHole$Dir>.Overlay"
  100OVERLAY overlay$()
  110PROCwatneys_red_barrel
  120ON ERROR PROCerror:IF exit%=TRUE PROCnudge:END
  130IF autowipe% AND NOT badbin% PROCparrot(0,0,0)
  140SYS&42 TO time%
  150time%+=bye%
  160REPEAT
  170SYS&400E1,pollmask%,bl%,time% TO reason%
  180spin%=FALSE
  190CASE reason% OF
  200  WHEN 0
  210    IF query%=0 THEN
  220      IF wip%>0 PROCfred(zappa%)
  230      IF (crnt%>0 AND NOT wiping%) PROCdoawipe
  240    ELSE
  250      !bl%=Query:SYS&400E0,,bl%
  260      x1%=bl%!4:y1%=bl%!8:x2%=bl%!12-x1%-4:y2%=bl%!16-y1%-4
  270      MOUSE RECTANGLE x1%,y1%,x2%,y2%
  280    ENDIF
  290    IF spinon% THEN
  300      SYS&400CF,,bl%:hdle%=bl%!12
  310      spin%=(bl%!16=hole% AND hdle%=-2)
  320      bl%!0=0:bl%!12=0:SYS&400E7,19,bl%,hdle% TO ,,phand%
  330      IF hdle%=Info bye%=7 ELSE bye%=11
  340      IF spin%=FALSE spin%=(phand%=taskid%)
  350      IF spin% PROCspin(hdle%)
  360    ENDIF
  370    IF clock% THEN
  380      t$=MID$(TIME$,17,5)
  390      IF t$<>Time$ PROCupdateclock(t$)
  400    ENDIF
  410    IF Mr_Creosote% OSCLI "Unset Alias$IconSprites":Mr_Creosote%=FALSE:pollmask%=FNpollmask
  420    timeforbed%=exit%
  430    SYS&42 TO newtime%
  440    time%=newtime%+bye%
  450  WHEN 1:PROCredraw
  460  WHEN 2:SYS&400C5,,bl%
  470  WHEN 3
  480    IF bl%!0=Found AND tdim% SYS&2001E,7,,text%:tdim%=FALSE
  490    SYS&400C6,,bl%
  500  WHEN 6:PROCbutton(bl%!0,bl%!4,bl%!8,bl%!12,bl%!16)
  510  WHEN 8:PROCkey(!bl%,bl%!4,bl%!24)
  520  WHEN 9
  530    CASE TRUE OF
  540      WHEN spritemenu%:PROCspmenu(bl%!0)
  550      WHEN clmenu%:PROCclmenu(bl%!0)
  560      OTHERWISE:PROCDecodeMenu(bl%!0,bl%!4,bl%!8)
  570    ENDCASE
  580  WHEN 17,18:PROCmessage(bl%!16)
  590ENDCASE
  600UNTIL timeforbed%
  610PROCnudge
  620END
  630DEFPROCspin(hdle%)
  640LOCAL r0,r1,r2,r3,iconsprite%
  650CASE hdle% OF
  660  WHEN Info
  670    $(FNlust(Info,1))=MID$(stext$(cst%),tpos%,27):tpos%+=1
  680    IF tpos%=LENstext$(cst%)-27 tpos%=0:cst%+=1:IF cst%=6 cst%=0
  690    !block3%=Info:block3%!4=1:block3%!8=0:block3%!12=0
  700    WAIT:SYS&400CD,,block3%
  710ENDCASE
  720spriteno%+=1
  730IF spriteno%=9 spriteno%=0
  740$ibs="s!black"+STR$(spriteno%)+CHR$0
  750block3%!0=-2:block3%!4=hole%:block3%!8=0:block3%!12=0
  760WAIT:SYS&400CD,,block3%
  770ENDPROC
  780DEFPROCStartamenu(Title$)
  790menwidth%=LEN(Title$)
  800$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
  810ENDPROC
  820DEFPROCmad(Text$,Flags%)
  830P%!0=Flags%AND255:P%!4=-1:P%!8=menmask%:$(P%+12)=Text$:P%+=24
  840IF LENText$>menwidth% THEN menwidth%=LENText$+1
  850M%!16=(menwidth%+1)*16
  860ENDPROC
  870DEFFNdim(size%)
  880LOCAL block%,flags%
  890SYS&2001E,6,,,size% TO ,,block% ;flags%
  900IF (flags% AND 1)=1 PROCtrap(FNmsg("norma","",""),0,0):block%=0
  910=block%
  920DEFFNdim2(size%)
  930LOCAL block%,flags%
  940SYS&2001E,6,,,size% TO ,,block% ;flags%
  950IF (flags% AND 1)=1 ERROR0,"No room in RMA - unable to start Black Hole"
  960=block%
  970DEFPROCerror
  980!bl%=ERR
  990$(bl%+4)=FNmsg("E1",REPORT$,STR$(ERL))+CHR$0
 1000SYS&400DF,bl%,3,"Black Hole" TO ,answer%
 1010IF answer%=2 THEN exit%=TRUE:pollmask%=&1800 ELSE PROCibar("")
 1020ENDPROC
 1030DEFPROCbutton(x%,y%,but%,hand%,icon%)
 1040CASE but% OF
 1050  WHEN 2
 1060    CASE hand% OF
 1070      WHEN -2
 1080        IF icon%=hole% PROCmkmen(x%,y%)
 1090        IF icon%=clicon% PROCmkclmen(x%,y%)
 1100      WHEN Opt:IF icon%=19 PROCclicked(x%,y%,but%,hand%,icon%)
 1110    ENDCASE
 1120  WHEN 1,4:PROCclicked(x%,y%,but%,hand%,icon%)
 1130ENDCASE
 1140ENDPROC
 1150DEFPROCclicked(x%,y%,buttons%,hand%,icon%)
 1160LOCAL output$
 1170CASE hand% OF
 1180  WHEN -2
 1190    IF icon%=hole% THEN
 1200      CASE buttons% OF
 1210        WHEN 4
 1220          PROCopenbin
 1230        WHEN 1
 1240          PROCopen(Opt)
 1250      ENDCASE
 1260    ENDIF
 1270  WHEN Opt
 1280    CASE icon% OF
 1290      WHEN 1:wipeopt%=wipeopt% EOR 4
 1300      WHEN 3:wipeopt%=wipeopt% EOR 1
 1310      WHEN 4:retain%=NOT retain%
 1320      WHEN 8:autowipe%=NOT autowipe%
 1330      WHEN 9:PROCclock
 1340      WHEN 13:PROCsavopt
 1350      WHEN 14:spinon%=NOT spinon%:spin%=spinon%:pollmask%=FNpollmask
 1360      WHEN 16:wipeopt%=wipeopt% EOR 2
 1370      WHEN 19:PROCspritemenu(x%,y%)
 1380      WHEN 20:structure%=NOT structure%
 1390      WHEN 21
 1400        usefonts%=NOT usefonts%
 1410        PROCclock:PROCclock
 1420        PROCupdateclock(MID$(TIME$,17,5))
 1430    ENDCASE
 1440  WHEN Info
 1450    CASE icon% OF
 1460      WHEN 0:OSCLI("WimpTask Filer_Run "+home$+".!Help")
 1470      OTHERWISE:flashcol%=NOT flashcol%
 1480    ENDCASE
 1490  WHEN AuSav
 1500    IF icon%=11 PROCaut(x%,y%) ELSE PROCrespsave(icon%)
 1510  WHEN Mavis
 1520    CASE icon% OF
 1530      WHEN 4
 1540        IF $(FNlust(Mavis,4))="Abort" THEN
 1550          wip%=0
 1560          PROCfinsrch
 1570        ELSE
 1580          PROCfind(4)
 1590        ENDIF
 1600    ENDCASE
 1610  WHEN Query
 1620    IF icon%>0 PROCtrapped(icon%)
 1630  WHEN Found
 1640    PROCfclicked(x%,y%)
 1650ENDCASE
 1660ENDPROC
 1670DEFPROCopenbin
 1680LOCAL opening$
 1690opening$=bin$
 1700OSCLI "Set Alias$IconSprites Set BlackHole$Temp <>"
 1710Mr_Creosote%=TRUE:pollmask%=&1800
 1720LOCAL ERROR
 1730ON ERROR LOCAL PROCtrap("Internal Error : "+REPORT$,0,0):ENDPROC
 1740PROCgetbin(0)
 1750IF FNobjtype(bin$+"."+today$)=2 opening$=bin$+"."+today$
 1760SYS&400CF,,bl%
 1770IF NOT badbin% THEN OSCLI("Filer_OpenDir "+opening$+" "+STR$bl%!0+" "+STR$bl%!4)
 1780ENDPROC
 1790DEFPROCDecodeMenu(item%,subitem%,subitem2%)
 1800LOCAL dir$
 1810CASE item% OF
 1820  WHEN 6:PROCbuggeroff
 1830  WHEN 5
 1840    PROCopenfilefind
 1850  WHEN 4:PROCopen(AuSav)
 1860  WHEN 3
 1870    CASE subitem% OF
 1880      WHEN memfs%
 1890        PROCtrap(FNmsg("mem","",""),-1,5)
 1900      WHEN ramdisc%
 1910        PROCtrap(FNmsg("ram","",""),-1,2)
 1920      OTHERWISE
 1930        IF subitem%>-1 PROCtrap(FNmsg("disc",STR$(subitem%),""),-1,3)
 1940        wipingdrive%=subitem%
 1950    ENDCASE
 1960  WHEN 2
 1970    CASE subitem% OF
 1980      WHEN 0
 1990        CASE subitem2% OF
 2000          WHEN -1,0:PROCdescon(bin$)
 2010          OTHERWISE:PROCdescon(FNwhich(subitem2%))
 2020        ENDCASE
 2030      WHEN 1
 2040        CASE subitem2% OF
 2050          WHEN -1,0:PROCcountdir(bin$)
 2060          OTHERWISE:PROCcountdir(FNwhich(subitem2%))
 2070        ENDCASE
 2080      WHEN 2
 2090        CASE subitem2% OF
 2100          WHEN -1,0:PROCincon(bin$)
 2110          OTHERWISE:PROCincon(FNwhich(subitem2%))
 2120        ENDCASE
 2130      WHEN 3
 2140        CASE subitem2% OF
 2150          WHEN -1,0:PROCsquash(bin$)
 2160          OTHERWISE:PROCsquash(FNwhich(subitem2%))
 2170        ENDCASE
 2180      WHEN 4
 2190        OSCLI "Set Alias$IconSprites Set BlackHole$Temp <>"
 2200        Mr_Creosote%=TRUE:pollmask%=&1800
 2210        CASE subitem2% OF
 2220          WHEN -1,0
 2230            PROCparrot(1,200,scry%/2+200)
 2240          OTHERWISE
 2250            SYS&400CF,,bl%
 2260            OSCLI("Filer_OpenDir "+FNwhich(subitem2%)+" "+STR$(bl%!0)+" "+STR$(scry%/2))
 2270        ENDCASE
 2280    ENDCASE
 2290  WHEN 1:PROCopen(Opt)
 2300ENDCASE
 2310SYS &400CF,,bl%
 2320IF (bl%!8 AND 1)=1 PROCmkmen(bl%!4,bl%!8)
 2330ENDPROC
 2340DEFFNwhich(item%)
 2350LOCAL dir$
 2360dir$=$((Menus%+580)+(24*item%))
 2370=bin$+"."+dir$
 2380DEFPROCtrapped(ic%)
 2390IF ic%<>1 PROCtf:ENDPROC
 2400CASE query% OF
 2410  WHEN 2:PROC_Cardinal_Richelieu("RAM:$")
 2420  WHEN 3:PROC_Cardinal_Richelieu("adfs::"+STR$wipingdrive%+".$")
 2430  WHEN 4
 2440    IF despath$=bin$ THEN
 2450      PROC_Cardinal_Richelieu(bin$)
 2460    ELSE
 2470      PROCgetleafname(despath$)
 2480      $bl%=RIGHT$(leafname$,LENleafname$-1)+CHR$0+" "
 2490      desconhandle%=FNfileraction(2,%00101,bin$,bl%,"",0)
 2500      PROCtf
 2510    ENDIF
 2520  WHEN 5:PROC_Cardinal_Richelieu("Mem:$")
 2530ENDCASE
 2540ENDPROC
 2550DEFPROC_Cardinal_Richelieu(path$)
 2560LOCAL n%,addr%
 2570mem%=FNdim(3000):IF mem%=0 ENDPROC
 2580LOCAL ERROR
 2590ON ERROR LOCAL PROCtf:PROCtrap(REPORT$,0,1):ENDPROC
 2600SYS&C,9,path$,mem%,77,0,3000,0 TO ,,,n%
 2610IF n%>0 THEN
 2620  SYS&600DE,"*Filer_Action" TO desconhandle%
 2630  SYS&60F80,desconhandle%,path$
 2640  addr%=mem%
 2650  FORl%=1 TO n%
 2660    SYS&60F81,desconhandle%,FNbum(addr%)
 2670  NEXT
 2680  SYS&60F82,desconhandle%,2,%00101
 2690ENDIF
 2700PROCtf
 2710ENDPROC
 2720DEFPROCtf
 2730PROCclose(Query):query%=0
 2740MOUSE RECTANGLE 0,0,scrx%,scry%:PROCibar("")
 2750pollmask%=FNpollmask
 2760ENDPROC
 2770DEFPROCmessage(thingy%)
 2780LOCAL pat$,x$,tt%,loop%,hand%,icon%
 2790CASE thingy% OF
 2800  WHEN 0:PROCbuggeroff
 2810  WHEN 1
 2820   SYS&400CF,,block2%+28
 2830   hand%=block2%!40:icon%=block2%!44
 2840   IF hand%=-2 AND icon%=hole% saving%=TRUE:PROCsavefile(bl%!40)
 2850  WHEN 3:PROCdragged
 2860  WHEN &502:PROCreplytohelp
 2870  WHEN &400C1
 2880    IF MODE<>mode% THEN
 2890      PROCscrnxy:PROCresizefonts
 2900      PROCclock:PROCclock
 2910      PROCupdateclock(MID$(TIME$,17,5))
 2920      OSCLI("IconSprites "+home$+".Sprites."+sprites$)
 2930      mode%=MODE
 2940    ENDIF
 2950  WHEN &400C3:PROCtaskquitting(bl%!4)
 2960ENDCASE
 2970ENDPROC
 2980DEFPROCdragged
 2990LOCAL tt%,hand%,icon%
 3000IF saving% THEN
 3010  saving%=FALSE
 3020  bl%!16=4:bl%!12=bl%!8
 3030  SYS&400E7,18,bl%,bl%!4
 3040ELSE
 3050  SYS&400CF,,block2%+28
 3060  hand%=block2%!40:icon%=block2%!44:pat$="":counter=bl%+44
 3070  WHILE ?counter
 3080    pat$+=CHR$?counter:counter+=1
 3090  ENDWHILE
 3100  type%=FNobjtype(pat$)
 3110  tt%=bl%!40
 3120  CASE hand% OF
 3130    WHEN -2
 3140      IF icon%=hole% PROCstartwipe(pat$)
 3150    WHEN AuSav
 3160      IF type%=2 OR type%=3 Svpth$(currpath%)=pat$:PROCps(AuSav,5,pat$) ELSE Ftp$(currpath%)=STR$~tt%:PROCedure
 3170    WHEN Opt
 3180      IF type%=2 OR type%=3 PROCps(Opt,12,pat$):PROCgetbin(0):PROCibar("")
 3190    WHEN Mavis
 3200      IF type%=2 OR type%=3 THEN
 3210        x$=$(FNlust(Mavis,3))
 3220        IF LENx$>0 THEN
 3230          IF RIGHT$(x$,1)<>"\" x$+="\"+pat$ ELSE x$+=pat$
 3240        ELSE
 3250          x$=pat$
 3260        ENDIF
 3270        PROCps(Mavis,3,x$)
 3280      ELSE
 3290        PROCps(Mavis,13,STR$~tt%)
 3300      ENDIF
 3310  ENDCASE
 3320ENDIF
 3330ENDPROC
 3340DEFPROCtaskquitting(hand%)
 3350CASE hand% OF
 3360  WHEN delhandle%
 3370    IF getem% THEN
 3380      PROCgetem
 3390    ELSE
 3400      wiping%=FALSE:crnt%=0
 3410      IF (structure% AND rootdir%>0) PROCputstructure
 3420    ENDIF
 3430    pollmask%=FNpollmask
 3440    delhandle%=-1
 3450    PROCibar("")
 3460  WHEN wipehandle%
 3470    wipehandle%=-1
 3480    IF structure% AND rootdir%>0 PROCputstructure
 3490    pollmask%=FNpollmask
 3500    wiping%=FALSE:crnt%=0
 3510  WHEN desconhandle%
 3520    IF $discname%<>"" THEN
 3530      OSCLI("Dismount "+STR$wipingdrive%)
 3540      OSCLI("NameDisc "+STR$wipingdrive%+" "+$discname%)
 3550      OSCLI("Mount "+STR$wipingdrive%)
 3560      OSCLI("Filer_OpenDir adfs::"+$discname%+".$")
 3570    ENDIF
 3580    desconhandle%=-1
 3590    PROCibar("")
 3600    pollmask%=FNpollmask
 3610    SYS&2001E,7,,mem%
 3620ENDCASE
 3630ENDPROC
 3640DEFPROCputstructure
 3650FOR loop%=1 TO rootdir%
 3660  PROCgetleafname(rootdir$(loop%))
 3670  OSCLI("Copy "+home$+".Temp"+leafname$+" "+rootdir$(loop%)+" ~A~CD~F~L~N~P~QRST~V")
 3680NEXT
 3690ENDPROC
 3700DEFPROCgetem
 3710LOCAL n%
 3720SYS&600DE,"*Filer_Action" TO wipehandle%
 3730SYS&60F80,wipehandle%,wipedir$
 3740FOR n%=1 TO crnt%
 3750  PROCgetleafname(wipe$(n%))
 3760  leafname$=RIGHT$(leafname$,LENleafname$-1)
 3770  SYS&60F81,wipehandle%,leafname$
 3780NEXT
 3790SYS&60F82,wipehandle%,2,wipeopt%
 3800getem%=FALSE
 3810ENDPROC
 3820DEFPROCtrap(text$,Cancel,a%)
 3830LOCAL title$
 3840query%=a%
 3850pollmask%=FNpollmask
 3860IF Cancel THEN
 3870  PROCselic(Query,3,off,off):PROCselic(Query,1,0,off):PROCselic(Query,2,0,off)
 3880  title$=FNmsg("qu","","")
 3890ELSE
 3900  PROCselic(Query,3,0,off):PROCselic(Query,1,off,off):PROCselic(Query,2,off,off)
 3910  title$=FNmsg("ms","","")
 3920ENDIF
 3930PROCps(Query,0,text$)
 3940!block4%=Query:SYS&400CC,,block4%
 3950$(block4%!76)=title$
 3960block4%!4=(scrx%-768)/2:block4%!12=block4%!4+768
 3970block4%!8=(scry%-448)/2:block4%!16=block4%!8+444
 3980block4%!28=-1:SYS&400C5,,block4%
 3990ENDPROC
 4000DEFPROCkey(win%,ic%,key%)
 4010LOCAL length,f$
 4020IF key%<>13 SYS&400DC,key%:ENDPROC
 4030CASE win% OF
 4040  WHEN AuSav
 4050    CASE ic% OF
 4060      WHEN 1
 4070        f$=$(FNlust(AuSav,1))
 4080        Ftp$(currpath%)=FNftype(f$,AuSav,1):PROCedure
 4090        SYS&400D2,AuSav,5,,,-1,0
 4100      WHEN 5
 4110        PROCrespsave(7)
 4120        SYS&400D2,AuSav,1,,,-1,0
 4130    ENDCASE
 4140  WHEN Opt
 4150    CASE ic% OF
 4160      WHEN 12:PROCgetbin(0):PROCibar("")
 4170      OTHERWISE:SYS&400DC,13
 4180    ENDCASE
 4190  WHEN Mavis
 4200    CASE ic% OF
 4210      WHEN 13
 4220        f$=FNftype($(FNlust(Mavis,13)),Mavis,13)
 4230        $ffs%="sfile_"+f$+CHR$0
 4240        PROCselic(Mavis,fficon%,0,0)
 4250      OTHERWISE:SYS&400DC,13
 4260    ENDCASE
 4270ENDCASE
 4280ENDPROC
 4290DEFPROCopen(handle)
 4300bl%!0=handle:SYS&400CC,,bl%:bl%!28=-1:SYS&400C5,,bl%
 4310ENDPROC
 4320DEFPROCclose(w%)
 4330block3%!0=w%:SYS&400C6,,block3%
 4340ENDPROC
 4350DEFPROCbuildmenus
 4360LOCAL ra%,rb%,m%,rd%
 4370ramdisc%=-2:memfs%=-2
 4380rd%=0
 4390menmask%=FNmf
 4400M%=Menus%
 4410PROCStartamenu("Black Hole")
 4420FOR l%=0 TO 5:PROCmad(men$(l%),0):NEXT
 4430PROCmad(men$(6),&80)
 4440PROCsquidge(0,2,Info):PROCsquidge(1,0,-1):PROCsquidge(2,0,Menus%+200):PROCsquidge(3,0,Menus%+364):PROCsquidge(4,0,-1):PROCsquidge(5,2,-1)
 4450PROCgetbin(1)
 4460IF badbin% THEN
 4470  PROCnc("No Bin")
 4480ELSE
 4490  IF FNempty(bin$) PROCnc("No Contents")
 4500  M%=Menus%+200
 4510  PROCStartamenu("Contents")
 4520  FOR l%=7 TO 11:PROCmad(men$(l%),0):NEXT
 4530  IF FNobjtype("%.Squash")<>1 PROCshade(3)
 4540  PROCsquidge(4,&80,Menus%+540)
 4550  FORl%=0TO3:PROCsquidge(l%,0,Menus%+540):NEXT
 4560  M%=Menus%+540
 4570  PROCStartamenu("Choose:")
 4580  PROCmad("All",0)
 4590  m%=FNdirmenu(bin$,0)
 4600ENDIF
 4610M%=Menus%+364
 4620PROCStartamenu("Wipe Drive")
 4630SYS&40242 TO ,Drives%
 4640d%=Drives%
 4650WHILE d%>0:PROCmad("adfs::"+STR$(d%-1),0):PROCsquidge(Drives%-d%,0,Menus%+468):d%-=1:ENDWHILE
 4660rd%=Drives%-1
 4670SYS&4A TO ra%,rb%
 4680IF (ra%-rb%)<>0 PROCmad("RAMdisc",0):rd%+=1:ramdisc%=rd%
 4690*Set BlackHole$Wibble "MemDisc"
 4700OSCLI("RMEnsure MemFS 0.00 UnSet BlackHole$Wibble")
 4710SYS&20023,"BlackHole$Wibble",bl%,256,0 TO ,,r%
 4720bl%?r%=0
 4730IF FNgaga(bl%)="MemDisc" PROCmad("MemFS",0):rd%+=1:memfs%=rd%
 4740IF rd%>Drives%-1 PROCsquidge(rd%,&80,0) ELSE PROCsquidge(Drives%-1,&80,Menus%+468)
 4750M%=Menus%+468
 4760PROCStartamenu("Disc Name")
 4770P%!0=(&84 AND 255):P%!4=-1:P%!8=&7009129:P%!12=discname%:P%!16=-1:P%!20=13
 4780$discname%=""
 4790ENDPROC
 4800DEFPROCnc(entry$)
 4810$(FNmenmem(2)+12)=entry$:PROCshade(2):PROCsquidge(2,0,-1)
 4820ENDPROC
 4830DEFPROCshade(item%)
 4840!(FNmenmem(item%)+8)=!(FNmenmem(item%)+8) AND NOT grey OR grey
 4850ENDPROC
 4860DEFPROCsquidge(item%,flag%,link%)
 4870!(FNmenmem(item%))=flag% AND 255
 4880!(FNmenmem(item%)+4)=link%
 4890ENDPROC
 4900DEFFNmenmem(i%)
 4910=M%+28+i%*24
 4920DEFPROCmkmen(x%,y%)
 4930spritemenu%=FALSE:clmenu%=FALSE
 4940PROCbuildmenus
 4950x%-=96:y%=432
 4960SYS&400D4,,Menus%,x%,y%
 4970IF spinon%=FALSE PROCps(Info,1,FNmsg("fwe","","")) ELSE PROCps(Info,1,"")
 4980ENDPROC
 4990DEFPROCstartwipe(p$)
 5000IF crnt%>0 AND wiping% PROCtrap(FNmsg("wnf","",""),0,0):ENDPROC
 5010IF retain% AND crnt%=0 PROCgetbin(0):IF badbin% ENDPROC
 5020IF crnt%=0 THEN
 5030  rootdir%=0
 5040  ctrl%=0
 5050  pollmask%=&1800
 5060  IF INKEY-5 OR INKEY-8 ctrl%=-1
 5070  IF (NOT ctrl%) AND retain% THEN
 5080    IF FNobjtype(bin$+"."+today$)=0 OSCLI("CDir "+bin$+"."+today$)
 5090  ENDIF
 5100ENDIF
 5110IF FNobjtype(p$)=2 AND structure% THEN
 5120  PROCgetleafname(p$)
 5130  rootdir%+=1
 5140  rootdir$(rootdir%)=p$
 5150  OSCLI("Copy "+p$+" "+home$+".Temp"+leafname$+" ~A~C~D~F~L~N~P~QRST~V")
 5160ENDIF
 5170crnt%+=1:wipe$(crnt%)=p$
 5180IF (retain% AND NOT ctrl%) PROCibar("Moving") ELSE PROCibar("Deleting")
 5190ENDPROC
 5200DEFPROCgetleafname(path$)
 5210LOCAL pointer%:pointer%=0
 5220REPEAT:pointer%+=1:UNTIL INSTR(RIGHT$(path$,pointer%),".")
 5230leafname$=RIGHT$(path$,pointer%)
 5240ENDPROC
 5250DEFFNobjtype(a$)
 5260LOCAL obj%
 5270SYS&8,5,a$ TO obj%
 5280=obj%
 5290DEFPROCgetbin(hmm%)
 5300badbin%=0
 5310LOCAL ERROR
 5320ON ERROR LOCAL PROCtrap(FNmsg("bde",bin$,""),0,1):badbin%=-1:ENDPROC
 5330bin$=$(FNlust(Opt,12))
 5340IF bin$="" bin$=home$+".BlackHole"
 5350SYS&27,bin$,block3%,256
 5360bin$=FNgaga(block3%)
 5370z%=FNobjtype(bin$)
 5380IF z%=0 THEN
 5390  CASE hmm% OF
 5400    WHEN 0:my name is spelt luxury yacht but it's pronounced 'throat-wobbler mangrove'.
 5410    WHEN 1:badbin%=-1
 5420  ENDCASE
 5430ENDIF
 5440PROCps(Opt,12,bin$)
 5450ENDPROC
 5460DEFFNempty(thing$)
 5470LOCAL wot%
 5480SYS&C,9,thing$,block4%,1,0,13,0 TO ,,,,wot%
 5490IF wot%=-1 THEN =TRUE ELSE =FALSE
 5500DEFPROCfred(zappa%)
 5510LOCAL count%,temp$,objtype%,no%,temp2$,n%
 5520  CASE zappa% OF
 5530    WHEN 1
 5540      PROCsearchandcompare(0)
 5550      PROCps(Mavis,19,STR$(tot%)+" files found")
 5560      PROCps(Mavis,18,STR$(totalsize%)+" bytes total")
 5570      IF spinon% PROCibar("Searching")
 5580    WHEN 2
 5590      PROCsearchandcompare(0)
 5600      IF spinon% PROCibar("..Info..")
 5610    WHEN 4
 5620      PROCsearchandcompare(1)
 5630      IF spinon% PROCibar("Squashing")
 5640  ENDCASE
 5650  IF wip%=0 THEN
 5660    CASE zappa% OF
 5670      WHEN 1:PROCfinsrch
 5680      WHEN 2:PROCfinin
 5690      WHEN 4:PROCfinsquash
 5700    ENDCASE
 5710  ELSE
 5720    IF zappa%=1 PROCps(Mavis,21,RIGHT$(msg$(wip%),44))
 5730  ENDIF
 5740ENDPROC
 5750DEFPROCdoawipe
 5760wiping%=TRUE
 5770PROCgetleafname(wipe$(crnt%))
 5780wipedir$=LEFT$(wipe$(crnt%),(LENwipe$(crnt%)-LENleafname$))
 5790SYS&600DE,"*Filer_Action" TO delhandle%
 5800SYS&60F80,delhandle%,wipedir$
 5810FOR n%=1 TO crnt%
 5820  PROCgetleafname(wipe$(n%))
 5830  leafname$=RIGHT$(leafname$,LENleafname$-1)
 5840  SYS&60F81,delhandle%,leafname$+CHR$0+" "
 5850NEXT
 5860IF (retain% AND NOT ctrl%) THEN
 5870  temp2$=bin$+"."+today$
 5880  IF ((wipeopt% AND 4)=4) objtype%=1:getem%=FALSE ELSE objtype%=0:getem%=TRUE
 5890ELSE
 5900  objtype%=2:temp2$="":getem%=FALSE
 5910ENDIF
 5920SYS&60F82,delhandle%,objtype%,wipeopt%,temp2$,LENtemp2$+1
 5930ENDPROC
 5940DEFFNfileraction(op%,opt%,dir$,mem%,data$,datlen%)
 5950LOCAL no%
 5960SYS&600DE,"*Filer_Action" TO no%
 5970SYS&60F80,no%,dir$
 5980SYS&60F81,no%,mem%
 5990SYS&60F82,no%,op%,opt%,data$,datlen%+1
 6000=no%
 6010DEFFNgorblimey(match$,enter$)
 6020LOCAL count%,name$,char$,result%
 6030result%=TRUE:count%=1
 6040REPEAT
 6050  name$=""
 6060  REPEAT
 6070    char$=MID$(enter$,count%,1)
 6080    IF char$<>"#" AND char$<>"*" name$+=char$
 6090    count%+=1
 6100  UNTIL count%=LENenter$+1 OR char$="#" OR char$="*"
 6110  IF INSTR(match$,name$) result%=TRUE ELSE result%=FALSE
 6120UNTIL count%=LENenter$+1 OR result%=FALSE
 6130=result%
 6140DEFFNluvaduck(looking%,t%)
 6150IF t%=looking% THEN =TRUE ELSE =FALSE
 6160DEFFNtext(name$,type%,obj%,size%)
 6170LOCAL text$,act$,l%
 6180text$=name$+STRING$(14-LENname$," ")
 6190IF obj%=1 THEN
 6200  act$="File$Type_"+STR$~type%
 6210  SYS&20023,act$,block4%,20,0,0 TO ,,l%
 6220  act$=FNgetmem(block4%,FNless(l%,8))
 6230  text$+=act$+STRING$(10-l%," ")
 6240  text$+="("+STR$~type%+")    "
 6250  act$=STR$size%+" bytes"
 6260  IF size%>9999 act$=STR$(size% DIV 1000)+" Kbytes"
 6270  IF size%>999999 act$=STR$(size% DIV 100000)+" Mbytes"
 6280  text$+=act$
 6290ELSE
 6300  text$+="Directory         2048 bytes"
 6310ENDIF
 6320=text$
 6330DEFPROCopenarchive(path$,name$)
 6340arctried%=0
 6350LOCAL ERROR
 6360ON ERROR LOCAL PROCarcerror(name$):IF arctried%=2 PROCtrap(FNmsg("arcopen",path$,REPORT$),0,0):ENDPROC
 6370OSCLI("OpenArchive "+path$)
 6380wip%+=1:msg$(wip%)="arcfs#"+name$+":$"
 6390ENDPROC
 6400DEFPROCarcerror(name$)
 6410OSCLI("CloseArchive "+name$)
 6420arctried%+=1
 6430ENDPROC
 6440DEFFNbum(RETURN addr%)
 6450LOCALb$:b$=""
 6460WHILE ?addr%<>0:b$+=CHR$?addr%:addr%+=1:ENDWHILE
 6470addr%+=1
 6480=b$
 6490DEFPROCfinin
 6500file%=FALSE
 6510PROCibar(""):bye%=11
 6520IF tot%>0 PROCfw
 6530pollmask%=FNpollmask
 6540SYS&2001E,7,,scrap%
 6550ENDPROC
 6560DEFPROCfinsquash
 6570PROCibar(""):bye%=11
 6580IF nearlyquit% exit%=TRUE:bye%=1
 6590pollmask%=FNpollmask
 6600SYS&2001E,7,,scrap%
 6610ENDPROC
 6620DEFFNrad(hand%,icon%)
 6630block2%!0=hand%:block2%!4=icon%:SYS &400CE,,block2%
 6640=(block2%!24) AND (2^21)
 6650DEFPROCselic(w%,i%,e%,t%)
 6660block4%!0=w%:block4%!4=i%:block4%!8=e%:block4%!12=t%:SYS&400CD,,block4%
 6670ENDPROC
 6680DEFFNlust(window,icon)
 6690!block5%=window:block5%!4=icon:SYS&400CE,,block5%
 6700=block5%!28
 6710DEFPROCps(window,icon,s$)
 6720$(FNlust(window,icon))=s$
 6730!block4%=window:block4%!4=icon:block4%!8=0:block4%!12=0:SYS&400CD,,block4%
 6740ENDPROC
 6750DEFPROCibar(i$)
 6760IF badbin% ENDPROC
 6770IF i$="" THEN
 6780  IF FNempty(bin$) i$="Empty" ELSE i$="Occupied"
 6790ENDIF
 6800$ibt=i$
 6810IF spinon% PROCspin(0) ELSE PROCselic(-2,hole%,0,0)
 6820ENDPROC
 6830DEFPROCopentypemenu(x%,y%)
 6840LOCAL height%:height%=40*noftypes%
 6850bl%!0=Ftypes:SYS&400CC,,bl%
 6860bl%!4=x%-120:IF bl%!4<0 bl%!4=0
 6870bl%!12=bl%!4+360:IF bl%!12>scrx% bl%!4=scrx%-292:bl%!12=bl%!4+360
 6880bl%!8=FNless(y%,scry%-height%):IF bl%!8<0 bl%!8=0
 6890bl%!16=bl%!8+FNless(scry%-32,40*noftypes%)
 6900bl%!28=-1:SYS&400C5,,bl%
 6910ENDPROC
 6920DEFPROCedure
 6930LOCAL l,t$
 6940PROCps(AuSav,1,Ftp$(currpath%)):PROCps(AuSav,5,Svpth$(currpath%))
 6950t$="File$Type_"+Ftp$(currpath%)
 6960SYS&20023,t$,block3%,20,0,0 TO ,,l
 6970$sps%=FNgetmem(block3%,FNless(l,8))
 6980$spt%="sfile_"+Ftp$(currpath%)+CHR$0
 6990PROCselic(AuSav,fileicon%,0,0)
 7000ENDPROC
 7010DEFPROCsavefile(type%)
 7020PROCibar("Saving")
 7030LOCAL leaf$,path$
 7040savedir$=""
 7050leaf$=FNgaga(bl%+44)
 7060IF p%>1 THEN
 7070  FOR l%=0 TO p%-1
 7080    IF EVAL("&"+Ftp$(l%))=type% savedir$=Svpth$(l%)
 7090  NEXT
 7100ENDIF
 7110IF EVAL("&"+$(FNlust(AuSav,1))+"0")=type%*&10 THEN
 7120  p$=$(FNlust(AuSav,5))
 7130  savedir$=p$
 7140ENDIF
 7150IF savedir$="" PROCgetbin(0):IF badbin% ENDPROC
 7160IF savedir$="" THEN
 7170  savedir$=bin$+"."+today$
 7180  IF FNobjtype(bin$+"."+today$)=0 OSCLI("CDir "+bin$+"."+today$)
 7190ENDIF
 7200path$=savedir$+"."+leaf$
 7210IF FNobjtype(path$)=2 THEN
 7220  PROCtrap(FNmsg("noway",path$,""),0,1)
 7230ELSE
 7240  IF sconf% PROCconfirm(path$) ELSE PROCsaveit(path$)
 7250  IF open% OSCLI("Filer_OpenDir "+savedir$)
 7260ENDIF
 7270PROCibar("")
 7280ENDPROC
 7290DEFPROCsaveit(p$)
 7300bl%!12=bl%!8:bl%!16=2:bl%!0=((49+LEN(p$))DIV 4)*4
 7310$(bl%+44)=p$:?(bl%+44+LEN(p$))=0:SYS&400E7,17,bl%,bl%!4
 7320ENDPROC
 7330DEFPROCconfirm(p$)
 7340LOCAL bovine%,n$
 7350n$="Save File as "+p$+" ?"
 7360IF FNobjtype(p$)=1 n$+=FNmsg("exists","","")
 7370block4%!0=0:$(block4%+4)=n$+CHR$0
 7380SYS&400DF,block4%,%0010011,"Black Hole" TO ,bovine%
 7390IF bovine%<>2 PROCsaveit(p$)
 7400ENDPROC
 7410DEFFNgaga(add%)
 7420LOCAL ans$
 7430ans$=""
 7440WHILE ?add%>31:ans$+=CHR$(?add%):add%+=1:ENDWHILE
 7450=ans$
 7460DEFFNgetmem(p,l)
 7470LOCAL flatulence$,stop
 7480stop=p+l
 7490WHILE ?p AND p<stop:flatulence$+=CHR$?p:p+=1:ENDWHILE
 7500=flatulence$
 7510DEFFNless(x,y)
 7520IF x<y THEN =x ELSE =y
 7530DEFFNmsg(tag$,it$,it1$)
 7540LOCAL f%,l%
 7550SYS&61502,msptr%,tag$,message%,256,it$,it1$ TO ,,,l%;f%
 7560IF f% AND 1 THEN l%=0
 7570message%?l%=13
 7580=$message%
 7590DEFPROCchangemavis(fart$,me$)
 7600PROCps(Mavis,20,me$):PROCps(Mavis,4,fart$)
 7610ENDPROC
 7620DEFPROCfinsrch
 7630LOCAL n%,l%
 7640PROCibar("")
 7650PROCchangemavis("GO","Previous Search:")
 7660IF file% file%=FALSE:IF tot%>0 PROCfw
 7670bye%=11:PROCps(Mavis,21,""):pollmask%=FNpollmask
 7680SYS&2001E,7,,scrap%
 7690IF toomanyfiles% PROCtrap(FNmsg("tmf","",""),0,0):toomanyfiles%=FALSE
 7700PROCps(Mavis,19,STR$(tot%)+" files found")
 7710PROCps(Mavis,18,STR$(totalsize%)+" bytes total")
 7720ENDPROC
 7730DEFPROCfw
 7740LOCAL width%,height%
 7750width%=32+16*entrywidth%
 7760height%=36*(found%+1)
 7770IF foundopen% PROCclose(Found)
 7780bl%!0=0:bl%!4=-height%:bl%!8=width%:bl%!12=0
 7790SYS&400D7,Found,bl%
 7800IF scrx%>1600 scrx%=1600
 7810bl%!0=Found:SYS&400CC,,bl%
 7820IF width%>scrx% bl%!4=0:bl%!12=scrx% ELSE bl%!4=(scrx%-width%)/2:bl%!12=bl%!4+width%
 7830IF height%>scry% bl%!8=0:bl%!16=scry% ELSE bl%!8=(scry%-height%)/2:bl%!16=bl%!8+height%
 7840bl%!28=-1:SYS&400C5,,bl%
 7850foundopen%=TRUE
 7860ENDPROC
 7870DEFFNwft(y%)
 7880LOCAL top%,yoff%
 7890!block4%=Ftypes:SYS&400CB,,block4%
 7900top%=block4%!16-16:yoff%=block4%!24
 7910=(top%-yoff%-y%) DIV 40
 7920DEFPROCredraw
 7930SYS&400C8,,bl% TO more%
 7940x0%=16+bl%!4-bl%!20
 7950y0%=-16+bl%!16-bl%!24
 7960WHILE more%
 7970  top%=(y0%-bl%!40) DIV 36
 7980  IF top%<0 top%=0
 7990  base%=(47+y0%-bl%!32) DIV 36
 8000  i%=top%
 8010  WHILE i%<found% AND i%<=base%
 8020    MOVE x0%,y0%-(36*i%)
 8030    IF INSTR($(text%+i%*entrywidth%),"[") SYS&400E6,11 ELSE SYS&400E6,7
 8040    IF i%=0 SYS&400E6,8
 8050    PRINT$(text%+i%*entrywidth%)
 8060    i%+=1
 8070  ENDWHILE
 8080  SYS&400CA,,bl% TO more%
 8090ENDWHILE
 8100ENDPROC
 8110DEFPROCspritemenu(x%,y%)
 8120clmenu%=FALSE
 8130M%=Menus%
 8140PROCStartamenu("Sprite Files")
 8150IF FNdirmenu(home$+".Sprites",1) THEN
 8160  SYS&400D4,,Menus%,x%-48,y%
 8170  spritemenu%=TRUE
 8180ENDIF
 8190ENDPROC
 8200DEFFNdirmenu(path$,act%)
 8210LOCALaddr%,l%,n%,done%,mem%,name$,items%
 8220mem%=FNdim(3000):IF mem%=0 ENDPROC
 8230done%=FALSE
 8240menmask%=FNmf
 8250items%=0
 8260SYS&C,9,path$,mem%,77,0,3000 TO ,,,n%
 8270IF n%>0 THEN
 8280  addr%=mem%
 8290  FOR l%=1 TO n%
 8300    name$=FNbum(addr%)
 8310    CASE act% OF
 8320      WHEN 0
 8330        PROCmad(name$,0):items%+=1
 8340      WHEN 1
 8350        CASE RIGHT$(name$,2) OF
 8360          WHEN "22"
 8370          WHEN "23"
 8380          OTHERWISE:PROCmad(name$,0):items%+=1
 8390        ENDCASE
 8400    ENDCASE
 8410  NEXT
 8420  IF act%=0 PROCsquidge(items%,&80,-1) ELSE PROCsquidge(items%-1,&80,-1)
 8430  done%=TRUE
 8440ENDIF
 8450SYS&2001E,7,,mem%
 8460=done%
 8470DEFPROCspmenu(item%)
 8480sprites$=FNgaga((Menus%+28)+((item%)*24)+12)
 8490OSCLI("IconSprites "+home$+".Sprites."+sprites$)
 8500PROCps(Opt,18,sprites$)
 8510PROCibar("")
 8520spritemenu%=FALSE
 8530SYS&400CF,,bl%
 8540IF (bl%!8 AND 1)=1 PROCspritemenu(bl%!4,bl%!8)
 8550ENDPROC
 8560DEFPROCsearchandcompare(action%)
 8570LOCAL count%,addr%,temp$,temp2$,filetype%,objtype%,otot%,g%,no%,output$,n%,size%
 8580count%=0:addr%=scrap%:temp$=msg$(wip%):wip%-=1
 8590SYS&C,10,temp$,scrap%,77,0,3000,0 TO ,,,no%
 8600IF no%>0 THEN
 8610  REPEAT
 8620    filetype%=(((addr%!0)>>>8) AND &FFF)
 8630    objtype%=addr%!16:addr%+=20
 8640    temp2$=FNbum(addr%)
 8650    output$=temp$+"."+temp2$
 8660    CASE objtype% OF
 8670      WHEN 1:PROCthink(action%,filetype%,output$,temp2$)
 8680      WHEN 2,3:wip%+=1:msg$(wip%)=output$
 8690    ENDCASE
 8700    count%+=1
 8710    WHILE (addr% MOD 4)>0:addr%+=1:ENDWHILE
 8720  UNTIL count%=no%
 8730  IF action%=0 PROCgetfiles(temp$)
 8740ENDIF
 8750ENDPROC
 8760DEFPROCthink(thought%,type%,full$,name$)
 8770CASE thought% OF
 8780  WHEN 0
 8790    IF type%=&DDC AND usearcfs% PROCopenarchive(full$,name$)
 8800  WHEN 1
 8810    IF type%<>&FCA THEN
 8820      OSCLI("Access "+full$+" RW")
 8830      SYS&400DE,"*Squash "+full$
 8840    ENDIF
 8850ENDCASE
 8860ENDPROC
 8870DEFPROCgetfiles(temp$)
 8880LOCAL otot%,g%,no%,n%,count%,addr%,pos%,line$,mid%,break%,bum%
 8890otot%=tot%
 8900IF file% THEN
 8910  mid%=1
 8920  REPEAT
 8930    pos%=0
 8940    break%=FALSE
 8950    REPEAT
 8960      pos%+=1
 8970      line$=MID$(temp$,mid%,pos%)
 8980      IF (RIGHT$(line$,1)="." AND LENline$>(entrywidth%-13)) break%=TRUE
 8990      bum%=LEN(RIGHT$(temp$,LENtemp$-mid%-pos%))+3
 9000      IF ((LENline$)+bum%)<=entrywidth%-2 break%=FALSE
 9010      IF mid%+pos%>LENtemp$ break%=TRUE
 9020    UNTIL break%
 9030    $(text%+list%)="["+line$+"]"+CHR$13:found%+=1:list%+=entrywidth%
 9040    mid%+=pos%
 9050  UNTIL mid%>=LENtemp$
 9060ENDIF
 9070FOR g%=1 TO wot%
 9080  count%=0:addr%=scrap%
 9090  SYS&C,10,temp$,scrap%,77,0,3000,wot$(g%) TO ,,,no%
 9100  IF no%>0 THEN
 9110    REPEAT
 9120      filetype%=(((addr%!0)>>>8) AND &FFF)
 9130      size%=addr%!8
 9140      objtype%=addr%!16:addr%+=20
 9150      output$=FNbum(addr%):n%=TRUE
 9160      IF casesens% n%=FNgorblimey(output$,wot$(g%))
 9170      IF stype>0 n%=FNluvaduck(stype,filetype%)
 9180      IF n% THEN
 9190        IF file% THEN
 9200          $(text%+list%)=FNtext(output$,filetype%,objtype%,size%)+CHR$13
 9210          found%+=1:tot%+=1:list%+=entrywidth%
 9220        ELSE
 9230          OSCLI("Filer_OpenDir "+temp$):tot%+=1
 9240        ENDIF
 9250        totalsize%+=size%
 9260      ENDIF
 9270      count%+=1
 9280      WHILE (addr% MOD 4)>0:addr%+=1:ENDWHILE
 9290    UNTIL count%=no% OR found%>220
 9300    IF found%>220 wip%=0:toomanyfiles%=TRUE
 9310  ENDIF
 9320NEXT
 9330IF otot%=tot% AND file% THEN
 9340  WHILE LEFT$($(text%+list%-entrywidth%),1)="["
 9350    found%-=1:list%-=entrywidth%
 9360  ENDWHILE
 9370ENDIF
 9380ENDPROC
 9390DEFFNpollmask
 9400LOCAL mask%
 9410CASE TRUE OF
 9420  WHEN exit%,Mr_Creosote%,spinon%,query%,(bye%=1),clock%
 9430    mask%=&1800
 9440  OTHERWISE
 9450    mask%=&1801
 9460ENDCASE
 9470=mask%
 9480DEFFNmf
 9490IF usefonts% THEN =&61+(mfont%<<24) ELSE =&07000021
 9500DEFFNcf
 9510IF usefonts% THEN =12669+(ifont%<<24) ELSE =&700313D
 9520DEFPROCupdateclock(t$)
 9530Time$=t$
 9540$ct=Time$
 9550PROCselic(-2,clicon%,0,0)
 9560ENDPROC
 9570DEFPROCclock
 9580IF clock% THEN
 9590  bl%!0=-1:bl%!4=clicon%
 9600  SYS&400C4,,bl%
 9610ELSE
 9620  Time$=MID$(TIME$,17,5)
 9630  clicon%=FNcricon(-8,&10000000,-64,100,52,ct,block4%,Time$,"",FNcf)
 9640ENDIF
 9650clock%=NOT clock%
 9660ENDPROC
 9670DEFPROCmkclmen(x%,y%)
 9680spritemenu%=FALSE
 9690menmask%=FNmf
 9700M%=Menus%
 9710PROCStartamenu("Clock")
 9720PROCmad("Remove",&80)
 9730x%-=80:y%=132
 9740SYS&400D4,,Menus%,x%,y%
 9750clmenu%=TRUE
 9760ENDPROC
 9770DEFPROCclmenu(item%)
 9780CASE item% OF
 9790  WHEN 0
 9800    PROCclock
 9810    PROCselic(Opt,9,high,high)
 9820ENDCASE
 9830clmenu%=FALSE
 9840ENDPROC
 9850DEFPROCfclicked(x%,y%)
 9860LOCAL top%,yoff%,name$,l$
 9870!block4%=Found
 9880SYS&400CB,,block4%
 9890top%=block4%!16-16:yoff%=block4%!24
 9900line%=(top%-yoff%-y%) DIV 36
 9910IF line%<2 OR line%>=found% ENDPROC
 9920name$=$(text%+(entrywidth%*line%))
 9930IF LEFT$(name$,1)="[" ENDPROC
 9940name$=""
 9950REPEAT
 9960  REPEAT
 9970    line%-=1
 9980  UNTIL LEFT$($(text%+(entrywidth%*line%)),1)="["
 9990  l$=$(text%+(entrywidth%*line%))
10000  name$=MID$(l$,2,LENl$-2)+name$
10010UNTIL LEFT$($(text%+(entrywidth%*(line%-1))),1)<>"["
10020OSCLI "Set Alias$IconSprites Set BlackHole$Temp <>"
10030Mr_Creosote%=TRUE:pollmask%=&1800
10040OSCLI("Filer_OpenDir "+name$)
10050ENDPROC
10060DEFPROCbuggeroff
10070exit%=TRUE:pollmask%=&1800
10080ENDIF
10090ENDPROC
10100DEFPROCincon(path$)
10110IF wip%>0 PROCtrap(FNmsg("busy","",""),0,0):ENDPROC
10120IF NOT tdim% text%=FNdim(10000):IF text%=0 ENDPROC
10130scrap%=FNdim(3000):IF scrap%=0 ENDPROC
10140IF text%=0 ENDPROC
10150tdim%=TRUE
10160wip%=1:msg$(1)=path$:stype=0:entrywidth%=44
10170wot%=1:wot$(1)="*"
10180$text%=FNmsg("dt","","")+CHR$13:list%=entrywidth%
10190zappa%=2:bye%=1:usearcfs%=FALSE:casesens%=FALSE:file%=TRUE
10200totalsize%=0:tot%=0:found%=1:pollmask%=&1800
10210IF foundopen% PROCclose(Found):foundopen%=0
10220PROCibar("..Info..")
10230ENDPROC
10240DEFPROCsquash(path$)
10250IF wip%>0 PROCtrap(FNmsg("busy","",""),0,0):ENDPROC
10260scrap%=FNdim(3000):IF scrap%=0 ENDPROC
10270wip%=1:msg$(1)=path$
10280zappa%=4:bye%=1:pollmask%=&1800
10290usearcfs%=FALSE
10300PROCibar("Squashing")
10310ENDPROC
10320DEFPROCnudge
10330IF tdim% SYS&2001E,7,,text%
10340SYS&61504,msptr%
10350SYS&2001E,7,,msptr%
10360SYS&40082,mfont%
10370SYS&40082,ifont%
10380SYS&400DD,taskid%,1263747412
10390ENDPROC
10400DEFPROCdescon(path$)
10410despath$=path$
10420PROCtrap(FNmsg("bw",despath$,""),-1,4)
10430ENDPROC
10440DEFPROCcountdir(path$)
10450LOCAL temp$
10460PROCgetleafname(path$)
10470temp$=LEFT$(path$,(LENpath$-LENleafname$))
10480leafname$=RIGHT$(leafname$,LENleafname$-1)
10490$bl%=leafname$+CHR$0+" "
10500counthandle%=FNfileraction(5,1,temp$,bl%,"",0)
10510ENDPROC
10520DEFPROCresizefonts
10530SYS&40082,mfont%
10540SYS&40082,ifont%
10550mfont%=FNfindfont(FNmsg("mf","",""),VAL(FNmsg("mfs","","")),VAL(FNmsg("mfh","","")),"homerton.medium",13,13)
10560ifont%=FNfindfont(FNmsg("if","",""),VAL(FNmsg("ifs","","")),VAL(FNmsg("ifh","","")),"trinity.medium",14,14)
10570ENDPROC
10580DEFPROCscrnxy
10590!block4%=4:block4%!4=5:block4%!8=11:block4%!12=12:block4%!16=-1
10600SYS &31,block4%,block4%+20
10610scrx%=block4%!28+1<<block4%!20:scry%=block4%!32+1<<block4%!24
10620ENDPROC
10630DEFPROCopenfilefind
10640LOCAL arcfsflag%,r%
10650arcfsflag%=FALSE
10660IF FNobjtype("system:modules.ArcFSMod")=1 arcfsflag%=TRUE
10670*Set BlackHole$Wibble "ArcFS"
10680OSCLI ("RMEnsure ArcFS 0.00 UnSet BlackHole$Wibble")
10690SYS&20023,"BlackHole$Wibble",block2%,256,0 TO ,,r%
10700block2%?r%=0
10710IF FNgaga(block2%)="ArcFS" arcfsflag%=TRUE
10720IF arcfsflag% THEN
10730  PROCselic(Mavis,14,0,grey)
10740ELSE
10750  PROCselic(Mavis,14,grey,grey)
10760  PROCselic(Mavis,14,0,high)
10770ENDIF
10780IF NOT badbin% THEN
10790  PROCps(Mavis,3,LEFT$(bin$,INSTR(bin$,"$")))
10800ENDIF
10810PROCopen(Mavis)
10820ENDPROC


C�**************************************************************
C�**                      BLACK HOLE II                       **
C�**  Please do not attempt to understand this  code, it may  **
(C�**     cause long term bewilderment like it did to me.      **
2C�**************************************************************
<U� Ftp$(20),Svpth$(20),msg$(77),rootdir$(77),wipe$(77),wot$(10),men$(11),stext$(5)
F<� bl% 2000,IndText% 3024,day(11),overlay$(1),Menus% 1000
PJ� ibs 12,ibt 12,sps% 12,spt% 12,ct 12,v 12,discname% 14,ffs% 12,fft% 2
Z@overlay$()="<BlackHole$Dir>.Setup","<BlackHole$Dir>.Overlay"
dȣ overlay$()
n�watneys_red_barrel
x!� � �error:� exit%=� �nudge:�
�*� autowipe% � � badbin% �parrot(0,0,0)
�ș&42 � time%
�time%+=bye%
��
�*ș&400E1,pollmask%,bl%,time% � reason%
�spin%=�
�Ȏ reason% �
�	  � 0
�    � query%=0 �
�       � wip%>0 �fred(zappa%)
�*      � (crnt%>0 � � wiping%) �doawipe
�	    �
�"      !bl%=Query:ș&400E0,,bl%
?      x1%=bl%!4:y1%=bl%!8:x2%=bl%!12-x1%-4:y2%=bl%!16-y1%-4
      ȗ ȓ x1%,y1%,x2%,y2%
	    �
"    � spinon% �
,$      ș&400CF,,bl%:hdle%=bl%!12
6)      spin%=(bl%!16=hole% � hdle%=-2)
@;      bl%!0=0:bl%!12=0:ș&400E7,19,bl%,hdle% � ,,phand%
J'      � hdle%=Info bye%=7 � bye%=11
T*      � spin%=� spin%=(phand%=taskid%)
^      � spin% �spin(hdle%)
h	    �
r    � clock% �
|      t$=��$,17,5)
�&      � t$<>Time$ �updateclock(t$)
�	    �
�U    � Mr_Creosote% � "Unset Alias$IconSprites":Mr_Creosote%=�:pollmask%=�pollmask
�    timeforbed%=exit%
�    ș&42 � newtime%
�    time%=newtime%+bye%
�  � 1:�redraw
�  � 2:ș&400C5,,bl%
�	  � 3
�7    � bl%!0=Found � tdim% ș&2001E,7,,text%:tdim%=�
�    ș&400C6,,bl%
�2  � 6:�button(bl%!0,bl%!4,bl%!8,bl%!12,bl%!16)
�!  � 8:�key(!bl%,bl%!4,bl%!24)
	  � 9
    Ȏ � �
&      � spritemenu%:�spmenu(bl%!0)
&"      � clmenu%:�clmenu(bl%!0)
0*      :�DecodeMenu(bl%!0,bl%!4,bl%!8)
:	    �
D  � 17,18:�message(bl%!16)
N�
X� timeforbed%
b
�nudge
l�
v��spin(hdle%)
�� r0,r1,r2,r3,iconsprite%
�Ȏ hdle% �
�  � Info
�9    $(�lust(Info,1))=�stext$(cst%),tpos%,27):tpos%+=1
�@    � tpos%=�stext$(cst%)-27 tpos%=0:cst%+=1:� cst%=6 cst%=0
�:    !block3%=Info:block3%!4=1:block3%!8=0:block3%!12=0
�    Ȗ:ș&400CD,,block3%
��
�spriteno%+=1
�� spriteno%=9 spriteno%=0
�"$ibs="s!black"+�(spriteno%)+�0
�9block3%!0=-2:block3%!4=hole%:block3%!8=0:block3%!12=0
�Ȗ:ș&400CD,,block3%
�
��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
*�
4��mad(Text$,Flags%)
>?P%!0=Flags%�255:P%!4=-1:P%!8=menmask%:$(P%+12)=Text$:P%+=24
H+� �Text$>menwidth% � menwidth%=�Text$+1
RM%!16=(menwidth%+1)*16
\�
fݤdim(size%)
p� block%,flags%
z)ș&2001E,6,,,size% � ,,block% ;flags%
�<� (flags% � 1)=1 �trap(�msg("norma","",""),0,0):block%=0
�=block%
�ݤdim2(size%)
�� block%,flags%
�)ș&2001E,6,,,size% � ,,block% ;flags%
�E� (flags% � 1)=1 �0,"No room in RMA - unable to start Black Hole"
�=block%
���error
�
!bl%=�
�"$(bl%+4)=�msg("E1",�$,�(�))+�0
�*ș&400DF,bl%,3,"Black Hole" � ,answer%
�5� answer%=2 � exit%=�:pollmask%=&1800 � �ibar("")
��
$��button(x%,y%,but%,hand%,icon%)

Ȏ but% �
	  � 2
$    Ȏ hand% �
.      � -2
8'        � icon%=hole% �mkmen(x%,y%)
B+        � icon%=clicon% �mkclmen(x%,y%)
L;      � Opt:� icon%=19 �clicked(x%,y%,but%,hand%,icon%)
V	    �
`,  � 1,4:�clicked(x%,y%,but%,hand%,icon%)
j�
t�
~)��clicked(x%,y%,buttons%,hand%,icon%)
�
� output$
�Ȏ hand% �
�
  � -2
�    � icon%=hole% �
�      Ȏ buttons% �
�        � 4
�          �openbin
�        � 1
�          �open(Opt)
�      �
�	    �
�  � Opt
    Ȏ icon% �

#      � 1:wipeopt%=wipeopt% � 4
#      � 3:wipeopt%=wipeopt% � 1
      � 4:retain%=� retain%
(#      � 8:autowipe%=� autowipe%
2      � 9:�clock
<      � 13:�savopt
FB      � 14:spinon%=� spinon%:spin%=spinon%:pollmask%=�pollmask
P$      � 16:wipeopt%=wipeopt% � 2
Z!      � 19:�spritemenu(x%,y%)
d&      � 20:structure%=� structure%
n      � 21
x!        usefonts%=� usefonts%
�        �clock:�clock
�#        �updateclock(��$,17,5))
�	    �
�  � Info
�    Ȏ icon% �
�5      � 0:�("WimpTask Filer_Run "+home$+".!Help")
�!      :flashcol%=� flashcol%
�	    �
�
  � AuSav
�1    � icon%=11 �aut(x%,y%) � �respsave(icon%)
�
  � Mavis
�    Ȏ icon% �
�
      � 4
)        � $(�lust(Mavis,4))="Abort" �
          wip%=0
          �finsrch
"
        �
,          �find(4)
6
        �
@	    �
J
  � Query
T!    � icon%>0 �trapped(icon%)
^
  � Found
h    �fclicked(x%,y%)
r�
|�
�
��openbin
�� opening$
�opening$=bin$
�3� "Set Alias$IconSprites Set BlackHole$Temp <>"
�"Mr_Creosote%=�:pollmask%=&1800
�� �
�-� � � �trap("Internal Error : "+�$,0,0):�
��getbin(0)
�:� �objtype(bin$+"."+today$)=2 opening$=bin$+"."+today$
�ș&400CF,,bl%
�D� � badbin% � �("Filer_OpenDir "+opening$+" "+�bl%!0+" "+�bl%!4)
��
�*��DecodeMenu(item%,subitem%,subitem2%)

� dir$
Ȏ item% �
  � 6:�buggeroff
&	  � 5
0    �openfilefind
:  � 4:�open(AuSav)
D	  � 3
N    Ȏ subitem% �
X      � memfs%
b)        �trap(�msg("mem","",""),-1,5)
l      � ramdisc%
v)        �trap(�msg("ram","",""),-1,2)
�      
�A        � subitem%>-1 �trap(�msg("disc",�(subitem%),""),-1,3)
�!        wipingdrive%=subitem%
�	    �
�	  � 2
�    Ȏ subitem% �
�
      � 0
�        Ȏ subitem2% �
�"          � -1,0:�descon(bin$)
�*          :�descon(�which(subitem2%))
�
        �
�
      � 1
�        Ȏ subitem2% �
$          � -1,0:�countdir(bin$)
,          :�countdir(�which(subitem2%))

        �
 
      � 2
*        Ȏ subitem2% �
4!          � -1,0:�incon(bin$)
>)          :�incon(�which(subitem2%))
H
        �
R
      � 3
\        Ȏ subitem2% �
f"          � -1,0:�squash(bin$)
p*          :�squash(�which(subitem2%))
z
        �
�
      � 4
�;        � "Set Alias$IconSprites Set BlackHole$Temp <>"
�*        Mr_Creosote%=�:pollmask%=&1800
�        Ȏ subitem2% �
�          � -1,0
�*            �parrot(1,200,scry%/2+200)
�          
�            ș&400CF,,bl%
�Q            �("Filer_OpenDir "+�which(subitem2%)+" "+�(bl%!0)+" "+�(scry%/2))
�
        �
�	    �
�  � 1:�open(Opt)
��
	ș &400CF,,bl%
	'� (bl%!8 � 1)=1 �mkmen(bl%!4,bl%!8)
	�
	$ݤwhich(item%)
	.
� dir$
	8#dir$=$((Menus%+580)+(24*item%))
	B=bin$+"."+dir$
	L��trapped(ic%)
	V� ic%<>1 �tf:�
	`Ȏ query% �
	j'  � 2:�_Cardinal_Richelieu("RAM:$")
	t;  � 3:�_Cardinal_Richelieu("adfs::"+�wipingdrive%+".$")
	~	  � 4
	�    � despath$=bin$ �
	�$      �_Cardinal_Richelieu(bin$)
	�	    �
	�       �getleafname(despath$)
	�.      $bl%=�leafname$,�leafname$-1)+�0+" "
	�<      desconhandle%=�fileraction(2,%00101,bin$,bl%,"",0)
	�
      �tf
	�	    �
	�'  � 5:�_Cardinal_Richelieu("Mem:$")
	��
	��
	� ��_Cardinal_Richelieu(path$)
� n%,addr%

mem%=�dim(3000):� mem%=0 �
� �
� � � �tf:�trap(�$,0,1):�
()ș&C,9,path$,mem%,77,0,3000,0 � ,,,n%
2� n%>0 �
<.  ș&600DE,"*Filer_Action" � desconhandle%
F"  ș&60F80,desconhandle%,path$
P  addr%=mem%
Z  �l%=1 � n%
d*    ș&60F81,desconhandle%,�bum(addr%)
n  �
x%  ș&60F82,desconhandle%,2,%00101
��
��tf
��
���tf
��close(Query):query%=0
�#ȗ ȓ 0,0,scrx%,scry%:�ibar("")
�pollmask%=�pollmask
��
���message(thingy%)
�#� pat$,x$,tt%,loop%,hand%,icon%
�Ȏ thingy% �
�  � 0:�buggeroff
�	  � 1
   ș&400CF,,block2%+28
(   hand%=block2%!40:icon%=block2%!44
;   � hand%=-2 � icon%=hole% saving%=�:�savefile(bl%!40)
"  � 3:�dragged
,  � &502:�replytohelp
6  � &400C1
@    � �<>mode% �
J      �scrnxy:�resizefonts
T      �clock:�clock
^!      �updateclock(��$,17,5))
h6      �("IconSprites "+home$+".Sprites."+sprites$)
r      mode%=�
|	    �
�#  � &400C3:�taskquitting(bl%!4)
��
��
�
��dragged
�� tt%,hand%,icon%
�� saving% �
�  saving%=�
�  bl%!16=4:bl%!12=bl%!8
�  ș&400E7,18,bl%,bl%!4
��
�  ș&400CF,,block2%+28
�>  hand%=block2%!40:icon%=block2%!44:pat$="":counter=bl%+44
�  ȕ ?counter
"    pat$+=�?counter:counter+=1
  �
  type%=�objtype(pat$)
&  tt%=bl%!40
0  Ȏ hand% �
:    � -2
D(      � icon%=hole% �startwipe(pat$)
N    � AuSav
Xe      � type%=2 � type%=3 Svpth$(currpath%)=pat$:�ps(AuSav,5,pat$) � Ftp$(currpath%)=�~tt%:�edure
b
    � Opt
lC      � type%=2 � type%=3 �ps(Opt,12,pat$):�getbin(0):�ibar("")
v    � Mavis
�      � type%=2 � type%=3 �
�         x$=$(�lust(Mavis,3))
�        � �x$>0 �
�3          � �x$,1)<>"\" x$+="\"+pat$ � x$+=pat$
�
        �
�          x$=pat$
�
        �
�        �ps(Mavis,3,x$)
�      �
�        �ps(Mavis,13,�~tt%)
�      �
�  �
��

�

��taskquitting(hand%)

Ȏ hand% �

   � delhandle%

*    � getem% �

4      �getem

>	    �

H      wiping%=�:crnt%=0

R3      � (structure% � rootdir%>0) �putstructure

\	    �

f    pollmask%=�pollmask

p    delhandle%=-1

z    �ibar("")

�  � wipehandle%

�    wipehandle%=-1

�/    � structure% � rootdir%>0 �putstructure

�    pollmask%=�pollmask

�    wiping%=�:crnt%=0

�  � desconhandle%

�    � $discname%<>"" �

�&      �("Dismount "+�wipingdrive%)

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

�#      �("Mount "+�wipingdrive%)

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

�	    �

�    desconhandle%=-1
    �ibar("")
    pollmask%=�pollmask
    ș&2001E,7,,mem%
$�
.�
8��putstructure
B� loop%=1 � rootdir%
L#  �getleafname(rootdir$(loop%))
VT  �("Copy "+home$+".Temp"+leafname$+" "+rootdir$(loop%)+" ~A~CD~F~L~N~P~QRST~V")
`�
j�
t��getem
~� n%
�*ș&600DE,"*Filer_Action" � wipehandle%
�!ș&60F80,wipehandle%,wipedir$
�� n%=1 � crnt%
�  �getleafname(wipe$(n%))
�(  leafname$=�leafname$,�leafname$-1)
�$  ș&60F81,wipehandle%,leafname$
��
�#ș&60F82,wipehandle%,2,wipeopt%
�getem%=�
��
���trap(text$,Cancel,a%)
�� title$

query%=a%

pollmask%=�pollmask
� Cancel �
I  �selic(Query,3,off,off):�selic(Query,1,0,off):�selic(Query,2,0,off)
(  title$=�msg("qu","","")
2�
<K  �selic(Query,3,0,off):�selic(Query,1,off,off):�selic(Query,2,off,off)
F  title$=�msg("ms","","")
P�
Z�ps(Query,0,text$)
d$!block4%=Query:ș&400CC,,block4%
n$(block4%!76)=title$
x4block4%!4=(scrx%-768)/2:block4%!12=block4%!4+768
�4block4%!8=(scry%-448)/2:block4%!16=block4%!8+444
�#block4%!28=-1:ș&400C5,,block4%
��
���key(win%,ic%,key%)
�� length,f$
�� key%<>13 ș&400DC,key%:�
�
Ȏ win% �
�
  � AuSav
�    Ȏ ic% �
�
      � 1
�         f$=$(�lust(AuSav,1))
�5        Ftp$(currpath%)=�ftype(f$,AuSav,1):�edure
�#        ș&400D2,AuSav,5,,,-1,0

      � 5
        �respsave(7)
#        ș&400D2,AuSav,1,,,-1,0
"	    �
,  � Opt
6    Ȏ ic% �
@#      � 12:�getbin(0):�ibar("")
J      :ș&400DC,13
T	    �
^
  � Mavis
h    Ȏ ic% �
r      � 13
|2        f$=�ftype($(�lust(Mavis,13)),Mavis,13)
�         $ffs%="sfile_"+f$+�0
�%        �selic(Mavis,fficon%,0,0)
�      :ș&400DC,13
�	    �
��
��
���open(handle)
�6bl%!0=handle:ș&400CC,,bl%:bl%!28=-1:ș&400C5,,bl%
��
���close(w%)
�"block3%!0=w%:ș&400C6,,block3%
��
���buildmenus
� ra%,rb%,m%,rd%
ramdisc%=-2:memfs%=-2
	rd%=0
&menmask%=�mf
0
M%=Menus%
:�Startamenu("Black Hole")
D!� l%=0 � 5:�mad(men$(l%),0):�
N�mad(men$(6),&80)
X{�squidge(0,2,Info):�squidge(1,0,-1):�squidge(2,0,Menus%+200):�squidge(3,0,Menus%+364):�squidge(4,0,-1):�squidge(5,2,-1)
b�getbin(1)
l� badbin% �
v  �nc("No Bin")
��
�'  � �empty(bin$) �nc("No Contents")
�  M%=Menus%+200
�  �Startamenu("Contents")
�$  � l%=7 � 11:�mad(men$(l%),0):�
�)  � �objtype("%.Squash")<>1 �shade(3)
�   �squidge(4,&80,Menus%+540)
�)  �l%=0�3:�squidge(l%,0,Menus%+540):�
�  M%=Menus%+540
�  �Startamenu("Choose:")
�  �mad("All",0)
�  m%=�dirmenu(bin$,0)
��
M%=Menus%+364
�Startamenu("Wipe Drive")
ș&40242 � ,Drives%
 d%=Drives%
*Nȕ d%>0:�mad("adfs::"+�(d%-1),0):�squidge(Drives%-d%,0,Menus%+468):d%-=1:�
4rd%=Drives%-1
>ș&4A � ra%,rb%
H8� (ra%-rb%)<>0 �mad("RAMdisc",0):rd%+=1:ramdisc%=rd%
R#*Set BlackHole$Wibble "MemDisc"
\3�("RMEnsure MemFS 0.00 UnSet BlackHole$Wibble")
f0ș&20023,"BlackHole$Wibble",bl%,256,0 � ,,r%
pbl%?r%=0
z<� �gaga(bl%)="MemDisc" �mad("MemFS",0):rd%+=1:memfs%=rd%
�L� rd%>Drives%-1 �squidge(rd%,&80,0) � �squidge(Drives%-1,&80,Menus%+468)
�M%=Menus%+468
��Startamenu("Disc Name")
�LP%!0=(&84 � 255):P%!4=-1:P%!8=&7009129:P%!12=discname%:P%!16=-1:P%!20=13
�$discname%=""
��
���nc(entry$)
�6$(�menmem(2)+12)=entry$:�shade(2):�squidge(2,0,-1)
��
���shade(item%)
�;!(�menmem(item%)+8)=!(�menmem(item%)+8) � � grey � grey
��
� ��squidge(item%,flag%,link%)
!!(�menmem(item%))=flag% � 255
!(�menmem(item%)+4)=link%
�
$ݤmenmem(i%)
.=M%+28+i%*24
8��mkmen(x%,y%)
Bspritemenu%=�:clmenu%=�
L�buildmenus
Vx%-=96:y%=432
`ș&400D4,,Menus%,x%,y%
j>� spinon%=� �ps(Info,1,�msg("fwe","","")) � �ps(Info,1,"")
t�
~��startwipe(p$)
�6� crnt%>0 � wiping% �trap(�msg("wnf","",""),0,0):�
�.� retain% � crnt%=0 �getbin(0):� badbin% �
�� crnt%=0 �
�  rootdir%=0
�
  ctrl%=0
�  pollmask%=&1800
�  � �-5 � �-8 ctrl%=-1
�  � (� ctrl%) � retain% �
�@    � �objtype(bin$+"."+today$)=0 �("CDir "+bin$+"."+today$)
�  �
��
�#� �objtype(p$)=2 � structure% �
  �getleafname(p$)

  rootdir%+=1
  rootdir$(rootdir%)=p$
H  �("Copy "+p$+" "+home$+".Temp"+leafname$+" ~A~C~D~F~L~N~P~QRST~V")
(�
2crnt%+=1:wipe$(crnt%)=p$
<=� (retain% � � ctrl%) �ibar("Moving") � �ibar("Deleting")
F�
P��getleafname(path$)
Z� pointer%:pointer%=0
d*�:pointer%+=1:� ��path$,pointer%),".")
nleafname$=�path$,pointer%)
x�
�ݤobjtype(a$)
�
� obj%
�ș&8,5,a$ � obj%
�	=obj%
���getbin(hmm%)
�
badbin%=0
�� �
�5� � � �trap(�msg("bde",bin$,""),0,1):badbin%=-1:�
�bin$=$(�lust(Opt,12))
�%� bin$="" bin$=home$+".BlackHole"
�ș&27,bin$,block3%,256
�bin$=�gaga(block3%)
�z%=�objtype(bin$)
� z%=0 �
  Ȏ hmm% �
X    � 0:my name is spelt luxury yacht but it's pronounced 'throat-wobbler mangrove'.
"    � 1:badbin%=-1
,  �
6�
@�ps(Opt,12,bin$)
J�
Tݤempty(thing$)
^
� wot%
h-ș&C,9,thing$,block4%,1,0,13,0 � ,,,,wot%
r� wot%=-1 � =� � =�
|��fred(zappa%)
�)� count%,temp$,objtype%,no%,temp2$,n%
�  Ȏ zappa% �
�    � 1
�      �searchandcompare(0)
�.      �ps(Mavis,19,�(tot%)+" files found")
�4      �ps(Mavis,18,�(totalsize%)+" bytes total")
�&      � spinon% �ibar("Searching")
�    � 2
�      �searchandcompare(0)
�%      � spinon% �ibar("..Info..")
�    � 4
�      �searchandcompare(1)
�&      � spinon% �ibar("Squashing")
  �
  � wip%=0 �
    Ȏ zappa% �
&      � 1:�finsrch
0      � 2:�finin
:      � 4:�finsquash
D	    �
N  �
X0    � zappa%=1 �ps(Mavis,21,�msg$(wip%),44))
b  �
l�
v
��doawipe
�
wiping%=�
��getleafname(wipe$(crnt%))
�6wipedir$=�wipe$(crnt%),(�wipe$(crnt%)-�leafname$))
�)ș&600DE,"*Filer_Action" � delhandle%
� ș&60F80,delhandle%,wipedir$
�� n%=1 � crnt%
�  �getleafname(wipe$(n%))
�(  leafname$=�leafname$,�leafname$-1)
�*  ș&60F81,delhandle%,leafname$+�0+" "
��
�� (retain% � � ctrl%) �
�  temp2$=bin$+"."+today$
�D  � ((wipeopt% � 4)=4) objtype%=1:getem%=� � objtype%=0:getem%=�
�
#  objtype%=2:temp2$="":getem%=�
�
 :ș&60F82,delhandle%,objtype%,wipeopt%,temp2$,�temp2$+1
*�
43ݤfileraction(op%,opt%,dir$,mem%,data$,datlen%)
>	� no%
H"ș&600DE,"*Filer_Action" � no%
Rș&60F80,no%,dir$
\ș&60F81,no%,mem%
f)ș&60F82,no%,op%,opt%,data$,datlen%+1
p=no%
zݤgorblimey(match$,enter$)
� � count%,name$,char$,result%
�result%=�:count%=1
��
�  name$=""
�  �
�    char$=�enter$,count%,1)
�.    � char$<>"#" � char$<>"*" name$+=char$
�    count%+=1
�0  � count%=�enter$+1 � char$="#" � char$="*"
�,  � �match$,name$) result%=� � result%=�
�"� count%=�enter$+1 � result%=�
�=result%
�ݤluvaduck(looking%,t%)
� t%=looking% � =� � =�
"ݤtext(name$,type%,obj%,size%)
� text$,act$,l%
$text$=name$+�14-�name$," ")
.� obj%=1 �
8  act$="File$Type_"+�~type%
B)  ș&20023,act$,block4%,20,0,0 � ,,l%
L'  act$=�getmem(block4%,�less(l%,8))
V  text$+=act$+�10-l%," ")
`   text$+="("+�~type%+")    "
j  act$=�size%+" bytes"
t1  � size%>9999 act$=�(size% � 1000)+" Kbytes"
~5  � size%>999999 act$=�(size% � 100000)+" Mbytes"
�  text$+=act$
��
�+  text$+="Directory         2048 bytes"
��
�
=text$
���openarchive(path$,name$)
�arctried%=0
�� �
�N� � � �arcerror(name$):� arctried%=2 �trap(�msg("arcopen",path$,�$),0,0):�
��("OpenArchive "+path$)
�*wip%+=1:msg$(wip%)="arcfs#"+name$+":$"
��
��arcerror(name$)

�("CloseArchive "+name$)
arctried%+=1
�
(ݤbum(� addr%)
2
�b$:b$=""
<'ȕ ?addr%<>0:b$+=�?addr%:addr%+=1:�
Faddr%+=1
P=b$
Z��finin
dfile%=�
n�ibar(""):bye%=11
x� tot%>0 �fw
�pollmask%=�pollmask
�ș&2001E,7,,scrap%
��
���finsquash
��ibar(""):bye%=11
� � nearlyquit% exit%=�:bye%=1
�pollmask%=�pollmask
�ș&2001E,7,,scrap%
��
�ݤrad(hand%,icon%)
�6block2%!0=hand%:block2%!4=icon%:ș &400CE,,block2%
�=(block2%!24) � (2^21)
���selic(w%,i%,e%,t%)
Jblock4%!0=w%:block4%!4=i%:block4%!8=e%:block4%!12=t%:ș&400CD,,block4%
�
ݤlust(window,icon)
"4!block5%=window:block5%!4=icon:ș&400CE,,block5%
,=block5%!28
6��ps(window,icon,s$)
@$(�lust(window,icon))=s$
JM!block4%=window:block4%!4=icon:block4%!8=0:block4%!12=0:ș&400CD,,block4%
T�
^��ibar(i$)
h� badbin% �
r
� i$="" �
|/  � �empty(bin$) i$="Empty" � i$="Occupied"
��
�$ibt=i$
�-� spinon% �spin(0) � �selic(-2,hole%,0,0)
��
���opentypemenu(x%,y%)
�"� height%:height%=40*noftypes%
�bl%!0=Ftypes:ș&400CC,,bl%
�"bl%!4=x%-120:� bl%!4<0 bl%!4=0
�Dbl%!12=bl%!4+360:� bl%!12>scrx% bl%!4=scrx%-292:bl%!12=bl%!4+360
�3bl%!8=�less(y%,scry%-height%):� bl%!8<0 bl%!8=0
�-bl%!16=bl%!8+�less(scry%-32,40*noftypes%)
�bl%!28=-1:ș&400C5,,bl%
��
��edure

� l,t$
?�ps(AuSav,1,Ftp$(currpath%)):�ps(AuSav,5,Svpth$(currpath%))
&#t$="File$Type_"+Ftp$(currpath%)
0$ș&20023,t$,block3%,20,0,0 � ,,l
:%$sps%=�getmem(block3%,�less(l,8))
D%$spt%="sfile_"+Ftp$(currpath%)+�0
N�selic(AuSav,fileicon%,0,0)
X�
b��savefile(type%)
l�ibar("Saving")
v� leaf$,path$
�savedir$=""
�leaf$=�gaga(bl%+44)
�� p%>1 �
�  � l%=0 � p%-1
�3    � �("&"+Ftp$(l%))=type% savedir$=Svpth$(l%)
�  �
��
�.� �("&"+$(�lust(AuSav,1))+"0")=type%*&10 �
�  p$=$(�lust(AuSav,5))
�  savedir$=p$
��
�(� savedir$="" �getbin(0):� badbin% �
�� savedir$="" �
  savedir$=bin$+"."+today$
>  � �objtype(bin$+"."+today$)=0 �("CDir "+bin$+"."+today$)
�
 path$=savedir$+"."+leaf$
*� �objtype(path$)=2 �
4'  �trap(�msg("noway",path$,""),0,1)
>�
H/  � sconf% �confirm(path$) � �saveit(path$)
R*  � open% �("Filer_OpenDir "+savedir$)
\�
f
�ibar("")
p�
z��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","","")
�"block4%!0=0:$(block4%+4)=n$+�0
�5ș&400DF,block4%,%0010011,"Black Hole" � ,bovine%
�� bovine%<>2 �saveit(p$)
��
�ݤgaga(add%)
�
� ans$
ans$=""
(ȕ ?add%>31:ans$+=�(?add%):add%+=1:�
	=ans$
$ݤgetmem(p,l)
.� flatulence$,stop
8stop=p+l
B*ȕ ?p � p<stop:flatulence$+=�?p:p+=1:�
L=flatulence$
Vݤless(x,y)
`� x<y � =x � =y
jݤmsg(tag$,it$,it1$)
t� f%,l%
~9ș&61502,msptr%,tag$,message%,256,it$,it1$ � ,,,l%;f%
�� f% � 1 � l%=0
�message%?l%=13
�=$message%
���changemavis(fart$,me$)
�(�ps(Mavis,20,me$):�ps(Mavis,4,fart$)
��
�
��finsrch
�� n%,l%
�
�ibar("")
�)�changemavis("GO","Previous Search:")
� � file% file%=�:� tot%>0 �fw
�0bye%=11:�ps(Mavis,21,""):pollmask%=�pollmask
ș&2001E,7,,scrap%

@� toomanyfiles% �trap(�msg("tmf","",""),0,0):toomanyfiles%=�
(�ps(Mavis,19,�(tot%)+" files found")
.�ps(Mavis,18,�(totalsize%)+" bytes total")
(�
2��fw
<� width%,height%
Fwidth%=32+16*entrywidth%
Pheight%=36*(found%+1)
Z� foundopen% �close(Found)
d0bl%!0=0:bl%!4=-height%:bl%!8=width%:bl%!12=0
nș&400D7,Found,bl%
x� scrx%>1600 scrx%=1600
�bl%!0=Found:ș&400CC,,bl%
�T� width%>scrx% bl%!4=0:bl%!12=scrx% � bl%!4=(scrx%-width%)/2:bl%!12=bl%!4+width%
�W� height%>scry% bl%!8=0:bl%!16=scry% � bl%!8=(scry%-height%)/2:bl%!16=bl%!8+height%
�bl%!28=-1:ș&400C5,,bl%
�foundopen%=�
��
�
ݤwft(y%)
�� top%,yoff%
�%!block4%=Ftypes:ș&400CB,,block4%
�'top%=block4%!16-16:yoff%=block4%!24
�=(top%-yoff%-y%) � 40
���redraw
�ș&400C8,,bl% � more%
x0%=16+bl%!4-bl%!20
y0%=-16+bl%!16-bl%!24
ȕ more%
"  top%=(y0%-bl%!40) � 36
,  � top%<0 top%=0
6   base%=(47+y0%-bl%!32) � 36
@
  i%=top%
J  ȕ i%<found% � i%<=base%
T    � x0%,y0%-(36*i%)
^@    � �$(text%+i%*entrywidth%),"[") ș&400E6,11 � ș&400E6,7
h    � i%=0 ș&400E6,8
r     �$(text%+i%*entrywidth%)
|
    i%+=1
�  �
�  ș&400CA,,bl% � more%
��
��
���spritemenu(x%,y%)
�
clmenu%=�
�
M%=Menus%
��Startamenu("Sprite Files")
�$� �dirmenu(home$+".Sprites",1) �
�  ș&400D4,,Menus%,x%-48,y%
�  spritemenu%=�
��
��
 ݤdirmenu(path$,act%)
 (�addr%,l%,n%,done%,mem%,name$,items%
 mem%=�dim(3000):� mem%=0 �
 &done%=�
 0menmask%=�mf
 :items%=0
 D'ș&C,9,path$,mem%,77,0,3000 � ,,,n%
 N� n%>0 �
 X  addr%=mem%
 b  � l%=1 � n%
 l    name$=�bum(addr%)
 v    Ȏ act% �
 �
      � 0
 �#        �mad(name$,0):items%+=1
 �
      � 1
 �        Ȏ �name$,2) �
 �          � "22"
 �          � "23"
 �'          :�mad(name$,0):items%+=1
 �
        �
 �	    �
 �  �
 �B  � act%=0 �squidge(items%,&80,-1) � �squidge(items%-1,&80,-1)
 �
  done%=�
 ��
!ș&2001E,7,,mem%
!
=done%
!��spmenu(item%)
! /sprites$=�gaga((Menus%+28)+((item%)*24)+12)
!*0�("IconSprites "+home$+".Sprites."+sprites$)
!4�ps(Opt,18,sprites$)
!>
�ibar("")
!Hspritemenu%=�
!Rș&400CF,,bl%
!\,� (bl%!8 � 1)=1 �spritemenu(bl%!4,bl%!8)
!f�
!p��searchandcompare(action%)
!zP� count%,addr%,temp$,temp2$,filetype%,objtype%,otot%,g%,no%,output$,n%,size%
!�2count%=0:addr%=scrap%:temp$=msg$(wip%):wip%-=1
!�-ș&C,10,temp$,scrap%,77,0,3000,0 � ,,,no%
!�
� no%>0 �
!�  �
!�*    filetype%=(((addr%!0)>>>8) � &FFF)
!�#    objtype%=addr%!16:addr%+=20
!�    temp2$=�bum(addr%)
!�     output$=temp$+"."+temp2$
!�    Ȏ objtype% �
!�6      � 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$)
"$�
".�
"8'��think(thought%,type%,full$,name$)
"BȎ thought% �
"L	  � 0
"V:    � type%=&DDC � usearcfs% �openarchive(full$,name$)
"`	  � 1
"j    � type%<>&FCA �
"t"      �("Access "+full$+" RW")
"~#      ș&400DE,"*Squash "+full$
"�	    �
"��
"��
"���getfiles(temp$)
"�>� otot%,g%,no%,n%,count%,addr%,pos%,line$,mid%,break%,bum%
"�otot%=tot%
"�
� file% �
"�  mid%=1
"�  �
"�    pos%=0
"�    break%=�
"�	    �
#      pos%+=1
#
!      line$=�temp$,mid%,pos%)
#>      � (�line$,1)="." � �line$>(entrywidth%-13)) break%=�
#,      bum%=�(�temp$,�temp$-mid%-pos%))+3
#(3      � ((�line$)+bum%)<=entrywidth%-2 break%=�
#2%      � mid%+pos%>�temp$ break%=�
#<    � break%
#FE    $(text%+list%)="["+line$+"]"+�13:found%+=1:list%+=entrywidth%
#P    mid%+=pos%
#Z  � mid%>=�temp$
#d�
#n� g%=1 � wot%
#x  count%=0:addr%=scrap%
#�6  ș&C,10,temp$,scrap%,77,0,3000,wot$(g%) � ,,,no%
#�  � no%>0 �
#�	    �
#�,      filetype%=(((addr%!0)>>>8) � &FFF)
#�      size%=addr%!8
#�%      objtype%=addr%!16:addr%+=20
#�"      output$=�bum(addr%):n%=�
#�5      � casesens% n%=�gorblimey(output$,wot$(g%))
#�1      � stype>0 n%=�luvaduck(stype,filetype%)
#�      � n% �
#�        � file% �
#�H          $(text%+list%)=�text(output$,filetype%,objtype%,size%)+�13
#�2          found%+=1:tot%+=1:list%+=entrywidth%
$
        �
$/          �("Filer_OpenDir "+temp$):tot%+=1
$
        �
$"        totalsize%+=size%
$,      �
$6      count%+=1
$@%      ȕ (addr% � 4)>0:addr%+=1:�
$J!    � count%=no% � found%>220
$T+    � found%>220 wip%=0:toomanyfiles%=�
$^  �
$h�
$r� otot%=tot% � file% �
$|+  ȕ �$(text%+list%-entrywidth%),1)="["
$�$    found%-=1:list%-=entrywidth%
$�  �
$��
$��
$�ݤpollmask
$�� mask%
$�
Ȏ � �
$�9  � exit%,Mr_Creosote%,spinon%,query%,(bye%=1),clock%
$�    mask%=&1800
$�  
$�    mask%=&1801
$��
$�
=mask%
%ݤmf
%0� usefonts% � =&61+(mfont%<<24) � =&07000021
%ݤcf
%&1� usefonts% � =12669+(ifont%<<24) � =&700313D
%0��updateclock(t$)
%:Time$=t$
%D
$ct=Time$
%N�selic(-2,clicon%,0,0)
%X�
%b��clock
%l� clock% �
%v  bl%!0=-1:bl%!4=clicon%
%�  ș&400C4,,bl%
%��
%�  Time$=��$,17,5)
%�F  clicon%=�cricon(-8,&10000000,-64,100,52,ct,block4%,Time$,"",�cf)
%��
%�clock%=� clock%
%��
%���mkclmen(x%,y%)
%�spritemenu%=�
%�menmask%=�mf
%�
M%=Menus%
%��Startamenu("Clock")
%��mad("Remove",&80)
&x%-=80:y%=132
&ș&400D4,,Menus%,x%,y%
&
clmenu%=�
& �
&*��clmenu(item%)
&4Ȏ item% �
&>	  � 0
&H    �clock
&R    �selic(Opt,9,high,high)
&\�
&f
clmenu%=�
&p�
&z��fclicked(x%,y%)
&�� top%,yoff%,name$,l$
&�!block4%=Found
&�ș&400CB,,block4%
&�'top%=block4%!16-16:yoff%=block4%!24
&�line%=(top%-yoff%-y%) � 36
&�� line%<2 � line%>=found% �
&�&name$=$(text%+(entrywidth%*line%))
&�� �name$,1)="[" �
&�name$=""
&��
&�  �
&�    line%-=1
&�,  � �$(text%+(entrywidth%*line%)),1)="["
'%  l$=$(text%+(entrywidth%*line%))
'  name$=�l$,2,�l$-2)+name$
'/� �$(text%+(entrywidth%*(line%-1))),1)<>"["
'$3� "Set Alias$IconSprites Set BlackHole$Temp <>"
'."Mr_Creosote%=�:pollmask%=&1800
'8�("Filer_OpenDir "+name$)
'B�
'L��buggeroff
'Vexit%=�:pollmask%=&1800
'`�
'j�
't��incon(path$)
'~,� wip%>0 �trap(�msg("busy","",""),0,0):�
'�+� � tdim% text%=�dim(10000):� text%=0 �
'�"scrap%=�dim(3000):� scrap%=0 �
'�� text%=0 �
'�tdim%=�
'�/wip%=1:msg$(1)=path$:stype=0:entrywidth%=44
'�wot%=1:wot$(1)="*"
'�1$text%=�msg("dt","","")+�13:list%=entrywidth%
'�3zappa%=2:bye%=1:usearcfs%=�:casesens%=�:file%=�
'�0totalsize%=0:tot%=0:found%=1:pollmask%=&1800
'�+� foundopen% �close(Found):foundopen%=0
'��ibar("..Info..")
'��
(��squash(path$)
(
,� wip%>0 �trap(�msg("busy","",""),0,0):�
("scrap%=�dim(3000):� scrap%=0 �
(wip%=1:msg$(1)=path$
((#zappa%=4:bye%=1:pollmask%=&1800
(2usearcfs%=�
(<�ibar("Squashing")
(F�
(P��nudge
(Z� tdim% ș&2001E,7,,text%
(dș&61504,msptr%
(nș&2001E,7,,msptr%
(xș&40082,mfont%
(�ș&40082,ifont%
(�ș&400DD,taskid%,1263747412
(��
(���descon(path$)
(�despath$=path$
(�&�trap(�msg("bw",despath$,""),-1,4)
(��
(���countdir(path$)
(�� temp$
(��getleafname(path$)
(�%temp$=�path$,(�path$-�leafname$))
(�&leafname$=�leafname$,�leafname$-1)
(�$bl%=leafname$+�0+" "
)1counthandle%=�fileraction(5,1,temp$,bl%,"",0)
)�
)��resizefonts
)"ș&40082,mfont%
),ș&40082,ifont%
)6hmfont%=�findfont(�msg("mf","",""),�(�msg("mfs","","")),�(�msg("mfh","","")),"homerton.medium",13,13)
)@gifont%=�findfont(�msg("if","",""),�(�msg("ifs","","")),�(�msg("ifh","","")),"trinity.medium",14,14)
)J�
)T��scrnxy
)^C!block4%=4:block4%!4=5:block4%!8=11:block4%!12=12:block4%!16=-1
)hș &31,block4%,block4%+20
)rAscrx%=block4%!28+1<<block4%!20:scry%=block4%!32+1<<block4%!24
)|�
)���openfilefind
)�� arcfsflag%,r%
)�arcfsflag%=�
)�8� �objtype("system:modules.ArcFSMod")=1 arcfsflag%=�
)�!*Set BlackHole$Wibble "ArcFS"
)�4� ("RMEnsure ArcFS 0.00 UnSet BlackHole$Wibble")
)�4ș&20023,"BlackHole$Wibble",block2%,256,0 � ,,r%
)�block2%?r%=0
)�)� �gaga(block2%)="ArcFS" arcfsflag%=�
)�� arcfsflag% �
)�  �selic(Mavis,14,0,grey)
)��
)�   �selic(Mavis,14,grey,grey)
*  �selic(Mavis,14,0,high)
*�
*� � badbin% �
*&$  �ps(Mavis,3,�bin$,�bin$,"$")))
*0�
*:�open(Mavis)
*D�
�

00000000  0d 00 0a 43 f4 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...C.***********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000040  2a 2a 2a 0d 00 14 43 f4  2a 2a 20 20 20 20 20 20  |***...C.**      |
00000050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000060  42 4c 41 43 4b 20 48 4f  4c 45 20 49 49 20 20 20  |BLACK HOLE II   |
00000070  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000080  20 20 20 20 2a 2a 0d 00  1e 43 f4 2a 2a 20 20 50  |    **...C.**  P|
00000090  6c 65 61 73 65 20 64 6f  20 6e 6f 74 20 61 74 74  |lease do not att|
000000a0  65 6d 70 74 20 74 6f 20  75 6e 64 65 72 73 74 61  |empt to understa|
000000b0  6e 64 20 74 68 69 73 20  20 63 6f 64 65 2c 20 69  |nd this  code, i|
000000c0  74 20 6d 61 79 20 20 2a  2a 0d 00 28 43 f4 2a 2a  |t may  **..(C.**|
000000d0  20 20 20 20 20 63 61 75  73 65 20 6c 6f 6e 67 20  |     cause long |
000000e0  74 65 72 6d 20 62 65 77  69 6c 64 65 72 6d 65 6e  |term bewildermen|
000000f0  74 20 6c 69 6b 65 20 69  74 20 64 69 64 20 74 6f  |t like it did to|
00000100  20 6d 65 2e 20 20 20 20  20 20 2a 2a 0d 00 32 43  | me.      **..2C|
00000110  f4 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
00000120  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000140  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00000150  00 3c 55 de 20 46 74 70  24 28 32 30 29 2c 53 76  |.<U. Ftp$(20),Sv|
00000160  70 74 68 24 28 32 30 29  2c 6d 73 67 24 28 37 37  |pth$(20),msg$(77|
00000170  29 2c 72 6f 6f 74 64 69  72 24 28 37 37 29 2c 77  |),rootdir$(77),w|
00000180  69 70 65 24 28 37 37 29  2c 77 6f 74 24 28 31 30  |ipe$(77),wot$(10|
00000190  29 2c 6d 65 6e 24 28 31  31 29 2c 73 74 65 78 74  |),men$(11),stext|
000001a0  24 28 35 29 0d 00 46 3c  de 20 62 6c 25 20 32 30  |$(5)..F<. bl% 20|
000001b0  30 30 2c 49 6e 64 54 65  78 74 25 20 33 30 32 34  |00,IndText% 3024|
000001c0  2c 64 61 79 28 31 31 29  2c 6f 76 65 72 6c 61 79  |,day(11),overlay|
000001d0  24 28 31 29 2c 4d 65 6e  75 73 25 20 31 30 30 30  |$(1),Menus% 1000|
000001e0  0d 00 50 4a de 20 69 62  73 20 31 32 2c 69 62 74  |..PJ. ibs 12,ibt|
000001f0  20 31 32 2c 73 70 73 25  20 31 32 2c 73 70 74 25  | 12,sps% 12,spt%|
00000200  20 31 32 2c 63 74 20 31  32 2c 76 20 31 32 2c 64  | 12,ct 12,v 12,d|
00000210  69 73 63 6e 61 6d 65 25  20 31 34 2c 66 66 73 25  |iscname% 14,ffs%|
00000220  20 31 32 2c 66 66 74 25  20 32 0d 00 5a 40 6f 76  | 12,fft% 2..Z@ov|
00000230  65 72 6c 61 79 24 28 29  3d 22 3c 42 6c 61 63 6b  |erlay$()="<Black|
00000240  48 6f 6c 65 24 44 69 72  3e 2e 53 65 74 75 70 22  |Hole$Dir>.Setup"|
00000250  2c 22 3c 42 6c 61 63 6b  48 6f 6c 65 24 44 69 72  |,"<BlackHole$Dir|
00000260  3e 2e 4f 76 65 72 6c 61  79 22 0d 00 64 11 c8 a3  |>.Overlay"..d...|
00000270  20 6f 76 65 72 6c 61 79  24 28 29 0d 00 6e 17 f2  | overlay$()..n..|
00000280  77 61 74 6e 65 79 73 5f  72 65 64 5f 62 61 72 72  |watneys_red_barr|
00000290  65 6c 0d 00 78 21 ee 20  85 20 f2 65 72 72 6f 72  |el..x!. . .error|
000002a0  3a e7 20 65 78 69 74 25  3d b9 20 f2 6e 75 64 67  |:. exit%=. .nudg|
000002b0  65 3a e0 0d 00 82 2a e7  20 61 75 74 6f 77 69 70  |e:....*. autowip|
000002c0  65 25 20 80 20 ac 20 62  61 64 62 69 6e 25 20 f2  |e% . . badbin% .|
000002d0  70 61 72 72 6f 74 28 30  2c 30 2c 30 29 0d 00 8c  |parrot(0,0,0)...|
000002e0  11 c8 99 26 34 32 20 b8  20 74 69 6d 65 25 0d 00  |...&42 . time%..|
000002f0  96 0f 74 69 6d 65 25 2b  3d 62 79 65 25 0d 00 a0  |..time%+=bye%...|
00000300  05 f5 0d 00 aa 2a c8 99  26 34 30 30 45 31 2c 70  |.....*..&400E1,p|
00000310  6f 6c 6c 6d 61 73 6b 25  2c 62 6c 25 2c 74 69 6d  |ollmask%,bl%,tim|
00000320  65 25 20 b8 20 72 65 61  73 6f 6e 25 0d 00 b4 0b  |e% . reason%....|
00000330  73 70 69 6e 25 3d a3 0d  00 be 10 c8 8e 20 72 65  |spin%=....... re|
00000340  61 73 6f 6e 25 20 ca 0d  00 c8 09 20 20 c9 20 30  |ason% .....  . 0|
00000350  0d 00 d2 14 20 20 20 20  e7 20 71 75 65 72 79 25  |....    . query%|
00000360  3d 30 20 8c 0d 00 dc 20  20 20 20 20 20 20 e7 20  |=0 ....       . |
00000370  77 69 70 25 3e 30 20 f2  66 72 65 64 28 7a 61 70  |wip%>0 .fred(zap|
00000380  70 61 25 29 0d 00 e6 2a  20 20 20 20 20 20 e7 20  |pa%)...*      . |
00000390  28 63 72 6e 74 25 3e 30  20 80 20 ac 20 77 69 70  |(crnt%>0 . . wip|
000003a0  69 6e 67 25 29 20 f2 64  6f 61 77 69 70 65 0d 00  |ing%) .doawipe..|
000003b0  f0 09 20 20 20 20 cc 0d  00 fa 22 20 20 20 20 20  |..    ...."     |
000003c0  20 21 62 6c 25 3d 51 75  65 72 79 3a c8 99 26 34  | !bl%=Query:..&4|
000003d0  30 30 45 30 2c 2c 62 6c  25 0d 01 04 3f 20 20 20  |00E0,,bl%...?   |
000003e0  20 20 20 78 31 25 3d 62  6c 25 21 34 3a 79 31 25  |   x1%=bl%!4:y1%|
000003f0  3d 62 6c 25 21 38 3a 78  32 25 3d 62 6c 25 21 31  |=bl%!8:x2%=bl%!1|
00000400  32 2d 78 31 25 2d 34 3a  79 32 25 3d 62 6c 25 21  |2-x1%-4:y2%=bl%!|
00000410  31 36 2d 79 31 25 2d 34  0d 01 0e 1f 20 20 20 20  |16-y1%-4....    |
00000420  20 20 c8 97 20 c8 93 20  78 31 25 2c 79 31 25 2c  |  .. .. x1%,y1%,|
00000430  78 32 25 2c 79 32 25 0d  01 18 09 20 20 20 20 cd  |x2%,y2%....    .|
00000440  0d 01 22 13 20 20 20 20  e7 20 73 70 69 6e 6f 6e  |..".    . spinon|
00000450  25 20 8c 0d 01 2c 24 20  20 20 20 20 20 c8 99 26  |% ...,$      ..&|
00000460  34 30 30 43 46 2c 2c 62  6c 25 3a 68 64 6c 65 25  |400CF,,bl%:hdle%|
00000470  3d 62 6c 25 21 31 32 0d  01 36 29 20 20 20 20 20  |=bl%!12..6)     |
00000480  20 73 70 69 6e 25 3d 28  62 6c 25 21 31 36 3d 68  | spin%=(bl%!16=h|
00000490  6f 6c 65 25 20 80 20 68  64 6c 65 25 3d 2d 32 29  |ole% . hdle%=-2)|
000004a0  0d 01 40 3b 20 20 20 20  20 20 62 6c 25 21 30 3d  |..@;      bl%!0=|
000004b0  30 3a 62 6c 25 21 31 32  3d 30 3a c8 99 26 34 30  |0:bl%!12=0:..&40|
000004c0  30 45 37 2c 31 39 2c 62  6c 25 2c 68 64 6c 65 25  |0E7,19,bl%,hdle%|
000004d0  20 b8 20 2c 2c 70 68 61  6e 64 25 0d 01 4a 27 20  | . ,,phand%..J' |
000004e0  20 20 20 20 20 e7 20 68  64 6c 65 25 3d 49 6e 66  |     . hdle%=Inf|
000004f0  6f 20 62 79 65 25 3d 37  20 8b 20 62 79 65 25 3d  |o bye%=7 . bye%=|
00000500  31 31 0d 01 54 2a 20 20  20 20 20 20 e7 20 73 70  |11..T*      . sp|
00000510  69 6e 25 3d a3 20 73 70  69 6e 25 3d 28 70 68 61  |in%=. spin%=(pha|
00000520  6e 64 25 3d 74 61 73 6b  69 64 25 29 0d 01 5e 1e  |nd%=taskid%)..^.|
00000530  20 20 20 20 20 20 e7 20  73 70 69 6e 25 20 f2 73  |      . spin% .s|
00000540  70 69 6e 28 68 64 6c 65  25 29 0d 01 68 09 20 20  |pin(hdle%)..h.  |
00000550  20 20 cd 0d 01 72 12 20  20 20 20 e7 20 63 6c 6f  |  ...r.    . clo|
00000560  63 6b 25 20 8c 0d 01 7c  16 20 20 20 20 20 20 74  |ck% ...|.      t|
00000570  24 3d c1 91 24 2c 31 37  2c 35 29 0d 01 86 26 20  |$=..$,17,5)...& |
00000580  20 20 20 20 20 e7 20 74  24 3c 3e 54 69 6d 65 24  |     . t$<>Time$|
00000590  20 f2 75 70 64 61 74 65  63 6c 6f 63 6b 28 74 24  | .updateclock(t$|
000005a0  29 0d 01 90 09 20 20 20  20 cd 0d 01 9a 55 20 20  |)....    ....U  |
000005b0  20 20 e7 20 4d 72 5f 43  72 65 6f 73 6f 74 65 25  |  . Mr_Creosote%|
000005c0  20 ff 20 22 55 6e 73 65  74 20 41 6c 69 61 73 24  | . "Unset Alias$|
000005d0  49 63 6f 6e 53 70 72 69  74 65 73 22 3a 4d 72 5f  |IconSprites":Mr_|
000005e0  43 72 65 6f 73 6f 74 65  25 3d a3 3a 70 6f 6c 6c  |Creosote%=.:poll|
000005f0  6d 61 73 6b 25 3d a4 70  6f 6c 6c 6d 61 73 6b 0d  |mask%=.pollmask.|
00000600  01 a4 19 20 20 20 20 74  69 6d 65 66 6f 72 62 65  |...    timeforbe|
00000610  64 25 3d 65 78 69 74 25  0d 01 ae 18 20 20 20 20  |d%=exit%....    |
00000620  c8 99 26 34 32 20 b8 20  6e 65 77 74 69 6d 65 25  |..&42 . newtime%|
00000630  0d 01 b8 1b 20 20 20 20  74 69 6d 65 25 3d 6e 65  |....    time%=ne|
00000640  77 74 69 6d 65 25 2b 62  79 65 25 0d 01 c2 11 20  |wtime%+bye%.... |
00000650  20 c9 20 31 3a f2 72 65  64 72 61 77 0d 01 cc 17  | . 1:.redraw....|
00000660  20 20 c9 20 32 3a c8 99  26 34 30 30 43 35 2c 2c  |  . 2:..&400C5,,|
00000670  62 6c 25 0d 01 d6 09 20  20 c9 20 33 0d 01 e0 37  |bl%....  . 3...7|
00000680  20 20 20 20 e7 20 62 6c  25 21 30 3d 46 6f 75 6e  |    . bl%!0=Foun|
00000690  64 20 80 20 74 64 69 6d  25 20 c8 99 26 32 30 30  |d . tdim% ..&200|
000006a0  31 45 2c 37 2c 2c 74 65  78 74 25 3a 74 64 69 6d  |1E,7,,text%:tdim|
000006b0  25 3d a3 0d 01 ea 15 20  20 20 20 c8 99 26 34 30  |%=.....    ..&40|
000006c0  30 43 36 2c 2c 62 6c 25  0d 01 f4 32 20 20 c9 20  |0C6,,bl%...2  . |
000006d0  36 3a f2 62 75 74 74 6f  6e 28 62 6c 25 21 30 2c  |6:.button(bl%!0,|
000006e0  62 6c 25 21 34 2c 62 6c  25 21 38 2c 62 6c 25 21  |bl%!4,bl%!8,bl%!|
000006f0  31 32 2c 62 6c 25 21 31  36 29 0d 01 fe 21 20 20  |12,bl%!16)...!  |
00000700  c9 20 38 3a f2 6b 65 79  28 21 62 6c 25 2c 62 6c  |. 8:.key(!bl%,bl|
00000710  25 21 34 2c 62 6c 25 21  32 34 29 0d 02 08 09 20  |%!4,bl%!24).... |
00000720  20 c9 20 39 0d 02 12 0e  20 20 20 20 c8 8e 20 b9  | . 9....    .. .|
00000730  20 ca 0d 02 1c 26 20 20  20 20 20 20 c9 20 73 70  | ....&      . sp|
00000740  72 69 74 65 6d 65 6e 75  25 3a f2 73 70 6d 65 6e  |ritemenu%:.spmen|
00000750  75 28 62 6c 25 21 30 29  0d 02 26 22 20 20 20 20  |u(bl%!0)..&"    |
00000760  20 20 c9 20 63 6c 6d 65  6e 75 25 3a f2 63 6c 6d  |  . clmenu%:.clm|
00000770  65 6e 75 28 62 6c 25 21  30 29 0d 02 30 2a 20 20  |enu(bl%!0)..0*  |
00000780  20 20 20 20 7f 3a f2 44  65 63 6f 64 65 4d 65 6e  |    .:.DecodeMen|
00000790  75 28 62 6c 25 21 30 2c  62 6c 25 21 34 2c 62 6c  |u(bl%!0,bl%!4,bl|
000007a0  25 21 38 29 0d 02 3a 09  20 20 20 20 cb 0d 02 44  |%!8)..:.    ...D|
000007b0  1e 20 20 c9 20 31 37 2c  31 38 3a f2 6d 65 73 73  |.  . 17,18:.mess|
000007c0  61 67 65 28 62 6c 25 21  31 36 29 0d 02 4e 05 cb  |age(bl%!16)..N..|
000007d0  0d 02 58 11 fd 20 74 69  6d 65 66 6f 72 62 65 64  |..X.. timeforbed|
000007e0  25 0d 02 62 0a f2 6e 75  64 67 65 0d 02 6c 05 e0  |%..b..nudge..l..|
000007f0  0d 02 76 11 dd f2 73 70  69 6e 28 68 64 6c 65 25  |..v...spin(hdle%|
00000800  29 0d 02 80 1d ea 20 72  30 2c 72 31 2c 72 32 2c  |)..... r0,r1,r2,|
00000810  72 33 2c 69 63 6f 6e 73  70 72 69 74 65 25 0d 02  |r3,iconsprite%..|
00000820  8a 0e c8 8e 20 68 64 6c  65 25 20 ca 0d 02 94 0c  |.... hdle% .....|
00000830  20 20 c9 20 49 6e 66 6f  0d 02 9e 39 20 20 20 20  |  . Info...9    |
00000840  24 28 a4 6c 75 73 74 28  49 6e 66 6f 2c 31 29 29  |$(.lust(Info,1))|
00000850  3d c1 73 74 65 78 74 24  28 63 73 74 25 29 2c 74  |=.stext$(cst%),t|
00000860  70 6f 73 25 2c 32 37 29  3a 74 70 6f 73 25 2b 3d  |pos%,27):tpos%+=|
00000870  31 0d 02 a8 40 20 20 20  20 e7 20 74 70 6f 73 25  |1...@    . tpos%|
00000880  3d a9 73 74 65 78 74 24  28 63 73 74 25 29 2d 32  |=.stext$(cst%)-2|
00000890  37 20 74 70 6f 73 25 3d  30 3a 63 73 74 25 2b 3d  |7 tpos%=0:cst%+=|
000008a0  31 3a e7 20 63 73 74 25  3d 36 20 63 73 74 25 3d  |1:. cst%=6 cst%=|
000008b0  30 0d 02 b2 3a 20 20 20  20 21 62 6c 6f 63 6b 33  |0...:    !block3|
000008c0  25 3d 49 6e 66 6f 3a 62  6c 6f 63 6b 33 25 21 34  |%=Info:block3%!4|
000008d0  3d 31 3a 62 6c 6f 63 6b  33 25 21 38 3d 30 3a 62  |=1:block3%!8=0:b|
000008e0  6c 6f 63 6b 33 25 21 31  32 3d 30 0d 02 bc 1c 20  |lock3%!12=0.... |
000008f0  20 20 20 c8 96 3a c8 99  26 34 30 30 43 44 2c 2c  |   ..:..&400CD,,|
00000900  62 6c 6f 63 6b 33 25 0d  02 c6 05 cb 0d 02 d0 10  |block3%.........|
00000910  73 70 72 69 74 65 6e 6f  25 2b 3d 31 0d 02 da 1d  |spriteno%+=1....|
00000920  e7 20 73 70 72 69 74 65  6e 6f 25 3d 39 20 73 70  |. spriteno%=9 sp|
00000930  72 69 74 65 6e 6f 25 3d  30 0d 02 e4 22 24 69 62  |riteno%=0..."$ib|
00000940  73 3d 22 73 21 62 6c 61  63 6b 22 2b c3 28 73 70  |s="s!black"+.(sp|
00000950  72 69 74 65 6e 6f 25 29  2b bd 30 0d 02 ee 39 62  |riteno%)+.0...9b|
00000960  6c 6f 63 6b 33 25 21 30  3d 2d 32 3a 62 6c 6f 63  |lock3%!0=-2:bloc|
00000970  6b 33 25 21 34 3d 68 6f  6c 65 25 3a 62 6c 6f 63  |k3%!4=hole%:bloc|
00000980  6b 33 25 21 38 3d 30 3a  62 6c 6f 63 6b 33 25 21  |k3%!8=0:block3%!|
00000990  31 32 3d 30 0d 02 f8 18  c8 96 3a c8 99 26 34 30  |12=0......:..&40|
000009a0  30 43 44 2c 2c 62 6c 6f  63 6b 33 25 0d 03 02 05  |0CD,,block3%....|
000009b0  e1 0d 03 0c 18 dd f2 53  74 61 72 74 61 6d 65 6e  |.......Startamen|
000009c0  75 28 54 69 74 6c 65 24  29 0d 03 16 17 6d 65 6e  |u(Title$)....men|
000009d0  77 69 64 74 68 25 3d a9  28 54 69 74 6c 65 24 29  |width%=.(Title$)|
000009e0  0d 03 20 5f 24 4d 25 3d  54 69 74 6c 65 24 3a 4d  |.. _$M%=Title$:M|
000009f0  25 3f 31 32 3d 37 3a 4d  25 3f 31 33 3d 32 3a 4d  |%?12=7:M%?13=2:M|
00000a00  25 3f 31 34 3d 37 3a 4d  25 3f 31 35 3d 30 3a 4d  |%?14=7:M%?15=0:M|
00000a10  25 21 31 36 3d 28 6d 65  6e 77 69 64 74 68 25 2b  |%!16=(menwidth%+|
00000a20  31 29 2a 31 36 3a 4d 25  21 32 30 3d 34 31 3a 4d  |1)*16:M%!20=41:M|
00000a30  25 21 32 34 3d 30 3a 50  25 3d 4d 25 2b 32 38 0d  |%!24=0:P%=M%+28.|
00000a40  03 2a 05 e1 0d 03 34 17  dd f2 6d 61 64 28 54 65  |.*....4...mad(Te|
00000a50  78 74 24 2c 46 6c 61 67  73 25 29 0d 03 3e 3f 50  |xt$,Flags%)..>?P|
00000a60  25 21 30 3d 46 6c 61 67  73 25 80 32 35 35 3a 50  |%!0=Flags%.255:P|
00000a70  25 21 34 3d 2d 31 3a 50  25 21 38 3d 6d 65 6e 6d  |%!4=-1:P%!8=menm|
00000a80  61 73 6b 25 3a 24 28 50  25 2b 31 32 29 3d 54 65  |ask%:$(P%+12)=Te|
00000a90  78 74 24 3a 50 25 2b 3d  32 34 0d 03 48 2b e7 20  |xt$:P%+=24..H+. |
00000aa0  a9 54 65 78 74 24 3e 6d  65 6e 77 69 64 74 68 25  |.Text$>menwidth%|
00000ab0  20 8c 20 6d 65 6e 77 69  64 74 68 25 3d a9 54 65  | . menwidth%=.Te|
00000ac0  78 74 24 2b 31 0d 03 52  1a 4d 25 21 31 36 3d 28  |xt$+1..R.M%!16=(|
00000ad0  6d 65 6e 77 69 64 74 68  25 2b 31 29 2a 31 36 0d  |menwidth%+1)*16.|
00000ae0  03 5c 05 e1 0d 03 66 10  dd a4 64 69 6d 28 73 69  |.\....f...dim(si|
00000af0  7a 65 25 29 0d 03 70 13  ea 20 62 6c 6f 63 6b 25  |ze%)..p.. block%|
00000b00  2c 66 6c 61 67 73 25 0d  03 7a 29 c8 99 26 32 30  |,flags%..z)..&20|
00000b10  30 31 45 2c 36 2c 2c 2c  73 69 7a 65 25 20 b8 20  |01E,6,,,size% . |
00000b20  2c 2c 62 6c 6f 63 6b 25  20 3b 66 6c 61 67 73 25  |,,block% ;flags%|
00000b30  0d 03 84 3c e7 20 28 66  6c 61 67 73 25 20 80 20  |...<. (flags% . |
00000b40  31 29 3d 31 20 f2 74 72  61 70 28 a4 6d 73 67 28  |1)=1 .trap(.msg(|
00000b50  22 6e 6f 72 6d 61 22 2c  22 22 2c 22 22 29 2c 30  |"norma","",""),0|
00000b60  2c 30 29 3a 62 6c 6f 63  6b 25 3d 30 0d 03 8e 0b  |,0):block%=0....|
00000b70  3d 62 6c 6f 63 6b 25 0d  03 98 11 dd a4 64 69 6d  |=block%......dim|
00000b80  32 28 73 69 7a 65 25 29  0d 03 a2 13 ea 20 62 6c  |2(size%)..... bl|
00000b90  6f 63 6b 25 2c 66 6c 61  67 73 25 0d 03 ac 29 c8  |ock%,flags%...).|
00000ba0  99 26 32 30 30 31 45 2c  36 2c 2c 2c 73 69 7a 65  |.&2001E,6,,,size|
00000bb0  25 20 b8 20 2c 2c 62 6c  6f 63 6b 25 20 3b 66 6c  |% . ,,block% ;fl|
00000bc0  61 67 73 25 0d 03 b6 45  e7 20 28 66 6c 61 67 73  |ags%...E. (flags|
00000bd0  25 20 80 20 31 29 3d 31  20 85 30 2c 22 4e 6f 20  |% . 1)=1 .0,"No |
00000be0  72 6f 6f 6d 20 69 6e 20  52 4d 41 20 2d 20 75 6e  |room in RMA - un|
00000bf0  61 62 6c 65 20 74 6f 20  73 74 61 72 74 20 42 6c  |able to start Bl|
00000c00  61 63 6b 20 48 6f 6c 65  22 0d 03 c0 0b 3d 62 6c  |ack Hole"....=bl|
00000c10  6f 63 6b 25 0d 03 ca 0b  dd f2 65 72 72 6f 72 0d  |ock%......error.|
00000c20  03 d4 0a 21 62 6c 25 3d  9f 0d 03 de 22 24 28 62  |...!bl%=...."$(b|
00000c30  6c 25 2b 34 29 3d a4 6d  73 67 28 22 45 31 22 2c  |l%+4)=.msg("E1",|
00000c40  f6 24 2c c3 28 9e 29 29  2b bd 30 0d 03 e8 2a c8  |.$,.(.))+.0...*.|
00000c50  99 26 34 30 30 44 46 2c  62 6c 25 2c 33 2c 22 42  |.&400DF,bl%,3,"B|
00000c60  6c 61 63 6b 20 48 6f 6c  65 22 20 b8 20 2c 61 6e  |lack Hole" . ,an|
00000c70  73 77 65 72 25 0d 03 f2  35 e7 20 61 6e 73 77 65  |swer%...5. answe|
00000c80  72 25 3d 32 20 8c 20 65  78 69 74 25 3d b9 3a 70  |r%=2 . exit%=.:p|
00000c90  6f 6c 6c 6d 61 73 6b 25  3d 26 31 38 30 30 20 8b  |ollmask%=&1800 .|
00000ca0  20 f2 69 62 61 72 28 22  22 29 0d 03 fc 05 e1 0d  | .ibar("")......|
00000cb0  04 06 24 dd f2 62 75 74  74 6f 6e 28 78 25 2c 79  |..$..button(x%,y|
00000cc0  25 2c 62 75 74 25 2c 68  61 6e 64 25 2c 69 63 6f  |%,but%,hand%,ico|
00000cd0  6e 25 29 0d 04 10 0d c8  8e 20 62 75 74 25 20 ca  |n%)...... but% .|
00000ce0  0d 04 1a 09 20 20 c9 20  32 0d 04 24 12 20 20 20  |....  . 2..$.   |
00000cf0  20 c8 8e 20 68 61 6e 64  25 20 ca 0d 04 2e 0e 20  | .. hand% ..... |
00000d00  20 20 20 20 20 c9 20 2d  32 0d 04 38 27 20 20 20  |     . -2..8'   |
00000d10  20 20 20 20 20 e7 20 69  63 6f 6e 25 3d 68 6f 6c  |     . icon%=hol|
00000d20  65 25 20 f2 6d 6b 6d 65  6e 28 78 25 2c 79 25 29  |e% .mkmen(x%,y%)|
00000d30  0d 04 42 2b 20 20 20 20  20 20 20 20 e7 20 69 63  |..B+        . ic|
00000d40  6f 6e 25 3d 63 6c 69 63  6f 6e 25 20 f2 6d 6b 63  |on%=clicon% .mkc|
00000d50  6c 6d 65 6e 28 78 25 2c  79 25 29 0d 04 4c 3b 20  |lmen(x%,y%)..L; |
00000d60  20 20 20 20 20 c9 20 4f  70 74 3a e7 20 69 63 6f  |     . Opt:. ico|
00000d70  6e 25 3d 31 39 20 f2 63  6c 69 63 6b 65 64 28 78  |n%=19 .clicked(x|
00000d80  25 2c 79 25 2c 62 75 74  25 2c 68 61 6e 64 25 2c  |%,y%,but%,hand%,|
00000d90  69 63 6f 6e 25 29 0d 04  56 09 20 20 20 20 cb 0d  |icon%)..V.    ..|
00000da0  04 60 2c 20 20 c9 20 31  2c 34 3a f2 63 6c 69 63  |.`,  . 1,4:.clic|
00000db0  6b 65 64 28 78 25 2c 79  25 2c 62 75 74 25 2c 68  |ked(x%,y%,but%,h|
00000dc0  61 6e 64 25 2c 69 63 6f  6e 25 29 0d 04 6a 05 cb  |and%,icon%)..j..|
00000dd0  0d 04 74 05 e1 0d 04 7e  29 dd f2 63 6c 69 63 6b  |..t....~)..click|
00000de0  65 64 28 78 25 2c 79 25  2c 62 75 74 74 6f 6e 73  |ed(x%,y%,buttons|
00000df0  25 2c 68 61 6e 64 25 2c  69 63 6f 6e 25 29 0d 04  |%,hand%,icon%)..|
00000e00  88 0d ea 20 6f 75 74 70  75 74 24 0d 04 92 0e c8  |... output$.....|
00000e10  8e 20 68 61 6e 64 25 20  ca 0d 04 9c 0a 20 20 c9  |. hand% .....  .|
00000e20  20 2d 32 0d 04 a6 17 20  20 20 20 e7 20 69 63 6f  | -2....    . ico|
00000e30  6e 25 3d 68 6f 6c 65 25  20 8c 0d 04 b0 17 20 20  |n%=hole% .....  |
00000e40  20 20 20 20 c8 8e 20 62  75 74 74 6f 6e 73 25 20  |    .. buttons% |
00000e50  ca 0d 04 ba 0f 20 20 20  20 20 20 20 20 c9 20 34  |.....        . 4|
00000e60  0d 04 c4 16 20 20 20 20  20 20 20 20 20 20 f2 6f  |....          .o|
00000e70  70 65 6e 62 69 6e 0d 04  ce 0f 20 20 20 20 20 20  |penbin....      |
00000e80  20 20 c9 20 31 0d 04 d8  18 20 20 20 20 20 20 20  |  . 1....       |
00000e90  20 20 20 f2 6f 70 65 6e  28 4f 70 74 29 0d 04 e2  |   .open(Opt)...|
00000ea0  0b 20 20 20 20 20 20 cb  0d 04 ec 09 20 20 20 20  |.      .....    |
00000eb0  cd 0d 04 f6 0b 20 20 c9  20 4f 70 74 0d 05 00 12  |.....  . Opt....|
00000ec0  20 20 20 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 05  |    .. icon% ...|
00000ed0  0a 23 20 20 20 20 20 20  c9 20 31 3a 77 69 70 65  |.#      . 1:wipe|
00000ee0  6f 70 74 25 3d 77 69 70  65 6f 70 74 25 20 82 20  |opt%=wipeopt% . |
00000ef0  34 0d 05 14 23 20 20 20  20 20 20 c9 20 33 3a 77  |4...#      . 3:w|
00000f00  69 70 65 6f 70 74 25 3d  77 69 70 65 6f 70 74 25  |ipeopt%=wipeopt%|
00000f10  20 82 20 31 0d 05 1e 1f  20 20 20 20 20 20 c9 20  | . 1....      . |
00000f20  34 3a 72 65 74 61 69 6e  25 3d ac 20 72 65 74 61  |4:retain%=. reta|
00000f30  69 6e 25 0d 05 28 23 20  20 20 20 20 20 c9 20 38  |in%..(#      . 8|
00000f40  3a 61 75 74 6f 77 69 70  65 25 3d ac 20 61 75 74  |:autowipe%=. aut|
00000f50  6f 77 69 70 65 25 0d 05  32 14 20 20 20 20 20 20  |owipe%..2.      |
00000f60  c9 20 39 3a f2 63 6c 6f  63 6b 0d 05 3c 16 20 20  |. 9:.clock..<.  |
00000f70  20 20 20 20 c9 20 31 33  3a f2 73 61 76 6f 70 74  |    . 13:.savopt|
00000f80  0d 05 46 42 20 20 20 20  20 20 c9 20 31 34 3a 73  |..FB      . 14:s|
00000f90  70 69 6e 6f 6e 25 3d ac  20 73 70 69 6e 6f 6e 25  |pinon%=. spinon%|
00000fa0  3a 73 70 69 6e 25 3d 73  70 69 6e 6f 6e 25 3a 70  |:spin%=spinon%:p|
00000fb0  6f 6c 6c 6d 61 73 6b 25  3d a4 70 6f 6c 6c 6d 61  |ollmask%=.pollma|
00000fc0  73 6b 0d 05 50 24 20 20  20 20 20 20 c9 20 31 36  |sk..P$      . 16|
00000fd0  3a 77 69 70 65 6f 70 74  25 3d 77 69 70 65 6f 70  |:wipeopt%=wipeop|
00000fe0  74 25 20 82 20 32 0d 05  5a 21 20 20 20 20 20 20  |t% . 2..Z!      |
00000ff0  c9 20 31 39 3a f2 73 70  72 69 74 65 6d 65 6e 75  |. 19:.spritemenu|
00001000  28 78 25 2c 79 25 29 0d  05 64 26 20 20 20 20 20  |(x%,y%)..d&     |
00001010  20 c9 20 32 30 3a 73 74  72 75 63 74 75 72 65 25  | . 20:structure%|
00001020  3d ac 20 73 74 72 75 63  74 75 72 65 25 0d 05 6e  |=. structure%..n|
00001030  0e 20 20 20 20 20 20 c9  20 32 31 0d 05 78 21 20  |.      . 21..x! |
00001040  20 20 20 20 20 20 20 75  73 65 66 6f 6e 74 73 25  |       usefonts%|
00001050  3d ac 20 75 73 65 66 6f  6e 74 73 25 0d 05 82 19  |=. usefonts%....|
00001060  20 20 20 20 20 20 20 20  f2 63 6c 6f 63 6b 3a f2  |        .clock:.|
00001070  63 6c 6f 63 6b 0d 05 8c  23 20 20 20 20 20 20 20  |clock...#       |
00001080  20 f2 75 70 64 61 74 65  63 6c 6f 63 6b 28 c1 91  | .updateclock(..|
00001090  24 2c 31 37 2c 35 29 29  0d 05 96 09 20 20 20 20  |$,17,5))....    |
000010a0  cb 0d 05 a0 0c 20 20 c9  20 49 6e 66 6f 0d 05 aa  |.....  . Info...|
000010b0  12 20 20 20 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |.    .. icon% ..|
000010c0  05 b4 35 20 20 20 20 20  20 c9 20 30 3a ff 28 22  |..5      . 0:.("|
000010d0  57 69 6d 70 54 61 73 6b  20 46 69 6c 65 72 5f 52  |WimpTask Filer_R|
000010e0  75 6e 20 22 2b 68 6f 6d  65 24 2b 22 2e 21 48 65  |un "+home$+".!He|
000010f0  6c 70 22 29 0d 05 be 21  20 20 20 20 20 20 7f 3a  |lp")...!      .:|
00001100  66 6c 61 73 68 63 6f 6c  25 3d ac 20 66 6c 61 73  |flashcol%=. flas|
00001110  68 63 6f 6c 25 0d 05 c8  09 20 20 20 20 cb 0d 05  |hcol%....    ...|
00001120  d2 0d 20 20 c9 20 41 75  53 61 76 0d 05 dc 31 20  |..  . AuSav...1 |
00001130  20 20 20 e7 20 69 63 6f  6e 25 3d 31 31 20 f2 61  |   . icon%=11 .a|
00001140  75 74 28 78 25 2c 79 25  29 20 8b 20 f2 72 65 73  |ut(x%,y%) . .res|
00001150  70 73 61 76 65 28 69 63  6f 6e 25 29 0d 05 e6 0d  |psave(icon%)....|
00001160  20 20 c9 20 4d 61 76 69  73 0d 05 f0 12 20 20 20  |  . Mavis....   |
00001170  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 05 fa 0d 20  | .. icon% ..... |
00001180  20 20 20 20 20 c9 20 34  0d 06 04 29 20 20 20 20  |     . 4...)    |
00001190  20 20 20 20 e7 20 24 28  a4 6c 75 73 74 28 4d 61  |    . $(.lust(Ma|
000011a0  76 69 73 2c 34 29 29 3d  22 41 62 6f 72 74 22 20  |vis,4))="Abort" |
000011b0  8c 0d 06 0e 14 20 20 20  20 20 20 20 20 20 20 77  |.....          w|
000011c0  69 70 25 3d 30 0d 06 18  16 20 20 20 20 20 20 20  |ip%=0....       |
000011d0  20 20 20 f2 66 69 6e 73  72 63 68 0d 06 22 0d 20  |   .finsrch..". |
000011e0  20 20 20 20 20 20 20 cc  0d 06 2c 16 20 20 20 20  |       ...,.    |
000011f0  20 20 20 20 20 20 f2 66  69 6e 64 28 34 29 0d 06  |      .find(4)..|
00001200  36 0d 20 20 20 20 20 20  20 20 cd 0d 06 40 09 20  |6.        ...@. |
00001210  20 20 20 cb 0d 06 4a 0d  20 20 c9 20 51 75 65 72  |   ...J.  . Quer|
00001220  79 0d 06 54 21 20 20 20  20 e7 20 69 63 6f 6e 25  |y..T!    . icon%|
00001230  3e 30 20 f2 74 72 61 70  70 65 64 28 69 63 6f 6e  |>0 .trapped(icon|
00001240  25 29 0d 06 5e 0d 20 20  c9 20 46 6f 75 6e 64 0d  |%)..^.  . Found.|
00001250  06 68 18 20 20 20 20 f2  66 63 6c 69 63 6b 65 64  |.h.    .fclicked|
00001260  28 78 25 2c 79 25 29 0d  06 72 05 cb 0d 06 7c 05  |(x%,y%)..r....|.|
00001270  e1 0d 06 86 0d dd f2 6f  70 65 6e 62 69 6e 0d 06  |.......openbin..|
00001280  90 0e ea 20 6f 70 65 6e  69 6e 67 24 0d 06 9a 11  |... opening$....|
00001290  6f 70 65 6e 69 6e 67 24  3d 62 69 6e 24 0d 06 a4  |opening$=bin$...|
000012a0  33 ff 20 22 53 65 74 20  41 6c 69 61 73 24 49 63  |3. "Set Alias$Ic|
000012b0  6f 6e 53 70 72 69 74 65  73 20 53 65 74 20 42 6c  |onSprites Set Bl|
000012c0  61 63 6b 48 6f 6c 65 24  54 65 6d 70 20 3c 3e 22  |ackHole$Temp <>"|
000012d0  0d 06 ae 22 4d 72 5f 43  72 65 6f 73 6f 74 65 25  |..."Mr_Creosote%|
000012e0  3d b9 3a 70 6f 6c 6c 6d  61 73 6b 25 3d 26 31 38  |=.:pollmask%=&18|
000012f0  30 30 0d 06 b8 07 ea 20  85 0d 06 c2 2d ee 20 85  |00..... ....-. .|
00001300  20 ea 20 f2 74 72 61 70  28 22 49 6e 74 65 72 6e  | . .trap("Intern|
00001310  61 6c 20 45 72 72 6f 72  20 3a 20 22 2b f6 24 2c  |al Error : "+.$,|
00001320  30 2c 30 29 3a e1 0d 06  cc 0e f2 67 65 74 62 69  |0,0):......getbi|
00001330  6e 28 30 29 0d 06 d6 3a  e7 20 a4 6f 62 6a 74 79  |n(0)...:. .objty|
00001340  70 65 28 62 69 6e 24 2b  22 2e 22 2b 74 6f 64 61  |pe(bin$+"."+toda|
00001350  79 24 29 3d 32 20 6f 70  65 6e 69 6e 67 24 3d 62  |y$)=2 opening$=b|
00001360  69 6e 24 2b 22 2e 22 2b  74 6f 64 61 79 24 0d 06  |in$+"."+today$..|
00001370  e0 11 c8 99 26 34 30 30  43 46 2c 2c 62 6c 25 0d  |....&400CF,,bl%.|
00001380  06 ea 44 e7 20 ac 20 62  61 64 62 69 6e 25 20 8c  |..D. . badbin% .|
00001390  20 ff 28 22 46 69 6c 65  72 5f 4f 70 65 6e 44 69  | .("Filer_OpenDi|
000013a0  72 20 22 2b 6f 70 65 6e  69 6e 67 24 2b 22 20 22  |r "+opening$+" "|
000013b0  2b c3 62 6c 25 21 30 2b  22 20 22 2b c3 62 6c 25  |+.bl%!0+" "+.bl%|
000013c0  21 34 29 0d 06 f4 05 e1  0d 06 fe 2a dd f2 44 65  |!4)........*..De|
000013d0  63 6f 64 65 4d 65 6e 75  28 69 74 65 6d 25 2c 73  |codeMenu(item%,s|
000013e0  75 62 69 74 65 6d 25 2c  73 75 62 69 74 65 6d 32  |ubitem%,subitem2|
000013f0  25 29 0d 07 08 0a ea 20  64 69 72 24 0d 07 12 0e  |%)..... dir$....|
00001400  c8 8e 20 69 74 65 6d 25  20 ca 0d 07 1c 14 20 20  |.. item% .....  |
00001410  c9 20 36 3a f2 62 75 67  67 65 72 6f 66 66 0d 07  |. 6:.buggeroff..|
00001420  26 09 20 20 c9 20 35 0d  07 30 15 20 20 20 20 f2  |&.  . 5..0.    .|
00001430  6f 70 65 6e 66 69 6c 65  66 69 6e 64 0d 07 3a 16  |openfilefind..:.|
00001440  20 20 c9 20 34 3a f2 6f  70 65 6e 28 41 75 53 61  |  . 4:.open(AuSa|
00001450  76 29 0d 07 44 09 20 20  c9 20 33 0d 07 4e 15 20  |v)..D.  . 3..N. |
00001460  20 20 20 c8 8e 20 73 75  62 69 74 65 6d 25 20 ca  |   .. subitem% .|
00001470  0d 07 58 12 20 20 20 20  20 20 c9 20 6d 65 6d 66  |..X.      . memf|
00001480  73 25 0d 07 62 29 20 20  20 20 20 20 20 20 f2 74  |s%..b)        .t|
00001490  72 61 70 28 a4 6d 73 67  28 22 6d 65 6d 22 2c 22  |rap(.msg("mem","|
000014a0  22 2c 22 22 29 2c 2d 31  2c 35 29 0d 07 6c 14 20  |",""),-1,5)..l. |
000014b0  20 20 20 20 20 c9 20 72  61 6d 64 69 73 63 25 0d  |     . ramdisc%.|
000014c0  07 76 29 20 20 20 20 20  20 20 20 f2 74 72 61 70  |.v)        .trap|
000014d0  28 a4 6d 73 67 28 22 72  61 6d 22 2c 22 22 2c 22  |(.msg("ram","","|
000014e0  22 29 2c 2d 31 2c 32 29  0d 07 80 0b 20 20 20 20  |"),-1,2)....    |
000014f0  20 20 7f 0d 07 8a 41 20  20 20 20 20 20 20 20 e7  |  ....A        .|
00001500  20 73 75 62 69 74 65 6d  25 3e 2d 31 20 f2 74 72  | subitem%>-1 .tr|
00001510  61 70 28 a4 6d 73 67 28  22 64 69 73 63 22 2c c3  |ap(.msg("disc",.|
00001520  28 73 75 62 69 74 65 6d  25 29 2c 22 22 29 2c 2d  |(subitem%),""),-|
00001530  31 2c 33 29 0d 07 94 21  20 20 20 20 20 20 20 20  |1,3)...!        |
00001540  77 69 70 69 6e 67 64 72  69 76 65 25 3d 73 75 62  |wipingdrive%=sub|
00001550  69 74 65 6d 25 0d 07 9e  09 20 20 20 20 cb 0d 07  |item%....    ...|
00001560  a8 09 20 20 c9 20 32 0d  07 b2 15 20 20 20 20 c8  |..  . 2....    .|
00001570  8e 20 73 75 62 69 74 65  6d 25 20 ca 0d 07 bc 0d  |. subitem% .....|
00001580  20 20 20 20 20 20 c9 20  30 0d 07 c6 1a 20 20 20  |      . 0....   |
00001590  20 20 20 20 20 c8 8e 20  73 75 62 69 74 65 6d 32  |     .. subitem2|
000015a0  25 20 ca 0d 07 d0 22 20  20 20 20 20 20 20 20 20  |% ...."         |
000015b0  20 c9 20 2d 31 2c 30 3a  f2 64 65 73 63 6f 6e 28  | . -1,0:.descon(|
000015c0  62 69 6e 24 29 0d 07 da  2a 20 20 20 20 20 20 20  |bin$)...*       |
000015d0  20 20 20 7f 3a f2 64 65  73 63 6f 6e 28 a4 77 68  |   .:.descon(.wh|
000015e0  69 63 68 28 73 75 62 69  74 65 6d 32 25 29 29 0d  |ich(subitem2%)).|
000015f0  07 e4 0d 20 20 20 20 20  20 20 20 cb 0d 07 ee 0d  |...        .....|
00001600  20 20 20 20 20 20 c9 20  31 0d 07 f8 1a 20 20 20  |      . 1....   |
00001610  20 20 20 20 20 c8 8e 20  73 75 62 69 74 65 6d 32  |     .. subitem2|
00001620  25 20 ca 0d 08 02 24 20  20 20 20 20 20 20 20 20  |% ....$         |
00001630  20 c9 20 2d 31 2c 30 3a  f2 63 6f 75 6e 74 64 69  | . -1,0:.countdi|
00001640  72 28 62 69 6e 24 29 0d  08 0c 2c 20 20 20 20 20  |r(bin$)...,     |
00001650  20 20 20 20 20 7f 3a f2  63 6f 75 6e 74 64 69 72  |     .:.countdir|
00001660  28 a4 77 68 69 63 68 28  73 75 62 69 74 65 6d 32  |(.which(subitem2|
00001670  25 29 29 0d 08 16 0d 20  20 20 20 20 20 20 20 cb  |%))....        .|
00001680  0d 08 20 0d 20 20 20 20  20 20 c9 20 32 0d 08 2a  |.. .      . 2..*|
00001690  1a 20 20 20 20 20 20 20  20 c8 8e 20 73 75 62 69  |.        .. subi|
000016a0  74 65 6d 32 25 20 ca 0d  08 34 21 20 20 20 20 20  |tem2% ...4!     |
000016b0  20 20 20 20 20 c9 20 2d  31 2c 30 3a f2 69 6e 63  |     . -1,0:.inc|
000016c0  6f 6e 28 62 69 6e 24 29  0d 08 3e 29 20 20 20 20  |on(bin$)..>)    |
000016d0  20 20 20 20 20 20 7f 3a  f2 69 6e 63 6f 6e 28 a4  |      .:.incon(.|
000016e0  77 68 69 63 68 28 73 75  62 69 74 65 6d 32 25 29  |which(subitem2%)|
000016f0  29 0d 08 48 0d 20 20 20  20 20 20 20 20 cb 0d 08  |)..H.        ...|
00001700  52 0d 20 20 20 20 20 20  c9 20 33 0d 08 5c 1a 20  |R.      . 3..\. |
00001710  20 20 20 20 20 20 20 c8  8e 20 73 75 62 69 74 65  |       .. subite|
00001720  6d 32 25 20 ca 0d 08 66  22 20 20 20 20 20 20 20  |m2% ...f"       |
00001730  20 20 20 c9 20 2d 31 2c  30 3a f2 73 71 75 61 73  |   . -1,0:.squas|
00001740  68 28 62 69 6e 24 29 0d  08 70 2a 20 20 20 20 20  |h(bin$)..p*     |
00001750  20 20 20 20 20 7f 3a f2  73 71 75 61 73 68 28 a4  |     .:.squash(.|
00001760  77 68 69 63 68 28 73 75  62 69 74 65 6d 32 25 29  |which(subitem2%)|
00001770  29 0d 08 7a 0d 20 20 20  20 20 20 20 20 cb 0d 08  |)..z.        ...|
00001780  84 0d 20 20 20 20 20 20  c9 20 34 0d 08 8e 3b 20  |..      . 4...; |
00001790  20 20 20 20 20 20 20 ff  20 22 53 65 74 20 41 6c  |       . "Set Al|
000017a0  69 61 73 24 49 63 6f 6e  53 70 72 69 74 65 73 20  |ias$IconSprites |
000017b0  53 65 74 20 42 6c 61 63  6b 48 6f 6c 65 24 54 65  |Set BlackHole$Te|
000017c0  6d 70 20 3c 3e 22 0d 08  98 2a 20 20 20 20 20 20  |mp <>"...*      |
000017d0  20 20 4d 72 5f 43 72 65  6f 73 6f 74 65 25 3d b9  |  Mr_Creosote%=.|
000017e0  3a 70 6f 6c 6c 6d 61 73  6b 25 3d 26 31 38 30 30  |:pollmask%=&1800|
000017f0  0d 08 a2 1a 20 20 20 20  20 20 20 20 c8 8e 20 73  |....        .. s|
00001800  75 62 69 74 65 6d 32 25  20 ca 0d 08 ac 14 20 20  |ubitem2% .....  |
00001810  20 20 20 20 20 20 20 20  c9 20 2d 31 2c 30 0d 08  |        . -1,0..|
00001820  b6 2a 20 20 20 20 20 20  20 20 20 20 20 20 f2 70  |.*            .p|
00001830  61 72 72 6f 74 28 31 2c  32 30 30 2c 73 63 72 79  |arrot(1,200,scry|
00001840  25 2f 32 2b 32 30 30 29  0d 08 c0 0f 20 20 20 20  |%/2+200)....    |
00001850  20 20 20 20 20 20 7f 0d  08 ca 1d 20 20 20 20 20  |      .....     |
00001860  20 20 20 20 20 20 20 c8  99 26 34 30 30 43 46 2c  |       ..&400CF,|
00001870  2c 62 6c 25 0d 08 d4 51  20 20 20 20 20 20 20 20  |,bl%...Q        |
00001880  20 20 20 20 ff 28 22 46  69 6c 65 72 5f 4f 70 65  |    .("Filer_Ope|
00001890  6e 44 69 72 20 22 2b a4  77 68 69 63 68 28 73 75  |nDir "+.which(su|
000018a0  62 69 74 65 6d 32 25 29  2b 22 20 22 2b c3 28 62  |bitem2%)+" "+.(b|
000018b0  6c 25 21 30 29 2b 22 20  22 2b c3 28 73 63 72 79  |l%!0)+" "+.(scry|
000018c0  25 2f 32 29 29 0d 08 de  0d 20 20 20 20 20 20 20  |%/2))....       |
000018d0  20 cb 0d 08 e8 09 20 20  20 20 cb 0d 08 f2 14 20  | .....    ..... |
000018e0  20 c9 20 31 3a f2 6f 70  65 6e 28 4f 70 74 29 0d  | . 1:.open(Opt).|
000018f0  08 fc 05 cb 0d 09 06 12  c8 99 20 26 34 30 30 43  |.......... &400C|
00001900  46 2c 2c 62 6c 25 0d 09  10 27 e7 20 28 62 6c 25  |F,,bl%...'. (bl%|
00001910  21 38 20 80 20 31 29 3d  31 20 f2 6d 6b 6d 65 6e  |!8 . 1)=1 .mkmen|
00001920  28 62 6c 25 21 34 2c 62  6c 25 21 38 29 0d 09 1a  |(bl%!4,bl%!8)...|
00001930  05 e1 0d 09 24 12 dd a4  77 68 69 63 68 28 69 74  |....$...which(it|
00001940  65 6d 25 29 0d 09 2e 0a  ea 20 64 69 72 24 0d 09  |em%)..... dir$..|
00001950  38 23 64 69 72 24 3d 24  28 28 4d 65 6e 75 73 25  |8#dir$=$((Menus%|
00001960  2b 35 38 30 29 2b 28 32  34 2a 69 74 65 6d 25 29  |+580)+(24*item%)|
00001970  29 0d 09 42 12 3d 62 69  6e 24 2b 22 2e 22 2b 64  |)..B.=bin$+"."+d|
00001980  69 72 24 0d 09 4c 12 dd  f2 74 72 61 70 70 65 64  |ir$..L...trapped|
00001990  28 69 63 25 29 0d 09 56  12 e7 20 69 63 25 3c 3e  |(ic%)..V.. ic%<>|
000019a0  31 20 f2 74 66 3a e1 0d  09 60 0f c8 8e 20 71 75  |1 .tf:...`... qu|
000019b0  65 72 79 25 20 ca 0d 09  6a 27 20 20 c9 20 32 3a  |ery% ...j'  . 2:|
000019c0  f2 5f 43 61 72 64 69 6e  61 6c 5f 52 69 63 68 65  |._Cardinal_Riche|
000019d0  6c 69 65 75 28 22 52 41  4d 3a 24 22 29 0d 09 74  |lieu("RAM:$")..t|
000019e0  3b 20 20 c9 20 33 3a f2  5f 43 61 72 64 69 6e 61  |;  . 3:._Cardina|
000019f0  6c 5f 52 69 63 68 65 6c  69 65 75 28 22 61 64 66  |l_Richelieu("adf|
00001a00  73 3a 3a 22 2b c3 77 69  70 69 6e 67 64 72 69 76  |s::"+.wipingdriv|
00001a10  65 25 2b 22 2e 24 22 29  0d 09 7e 09 20 20 c9 20  |e%+".$")..~.  . |
00001a20  34 0d 09 88 19 20 20 20  20 e7 20 64 65 73 70 61  |4....    . despa|
00001a30  74 68 24 3d 62 69 6e 24  20 8c 0d 09 92 24 20 20  |th$=bin$ ....$  |
00001a40  20 20 20 20 f2 5f 43 61  72 64 69 6e 61 6c 5f 52  |    ._Cardinal_R|
00001a50  69 63 68 65 6c 69 65 75  28 62 69 6e 24 29 0d 09  |ichelieu(bin$)..|
00001a60  9c 09 20 20 20 20 cc 0d  09 a6 20 20 20 20 20 20  |..    ....      |
00001a70  20 f2 67 65 74 6c 65 61  66 6e 61 6d 65 28 64 65  | .getleafname(de|
00001a80  73 70 61 74 68 24 29 0d  09 b0 2e 20 20 20 20 20  |spath$)....     |
00001a90  20 24 62 6c 25 3d c2 6c  65 61 66 6e 61 6d 65 24  | $bl%=.leafname$|
00001aa0  2c a9 6c 65 61 66 6e 61  6d 65 24 2d 31 29 2b bd  |,.leafname$-1)+.|
00001ab0  30 2b 22 20 22 0d 09 ba  3c 20 20 20 20 20 20 64  |0+" "...<      d|
00001ac0  65 73 63 6f 6e 68 61 6e  64 6c 65 25 3d a4 66 69  |esconhandle%=.fi|
00001ad0  6c 65 72 61 63 74 69 6f  6e 28 32 2c 25 30 30 31  |leraction(2,%001|
00001ae0  30 31 2c 62 69 6e 24 2c  62 6c 25 2c 22 22 2c 30  |01,bin$,bl%,"",0|
00001af0  29 0d 09 c4 0d 20 20 20  20 20 20 f2 74 66 0d 09  |)....      .tf..|
00001b00  ce 09 20 20 20 20 cd 0d  09 d8 27 20 20 c9 20 35  |..    ....'  . 5|
00001b10  3a f2 5f 43 61 72 64 69  6e 61 6c 5f 52 69 63 68  |:._Cardinal_Rich|
00001b20  65 6c 69 65 75 28 22 4d  65 6d 3a 24 22 29 0d 09  |elieu("Mem:$")..|
00001b30  e2 05 cb 0d 09 ec 05 e1  0d 09 f6 20 dd f2 5f 43  |........... .._C|
00001b40  61 72 64 69 6e 61 6c 5f  52 69 63 68 65 6c 69 65  |ardinal_Richelie|
00001b50  75 28 70 61 74 68 24 29  0d 0a 00 0e ea 20 6e 25  |u(path$)..... n%|
00001b60  2c 61 64 64 72 25 0d 0a  0a 1e 6d 65 6d 25 3d a4  |,addr%....mem%=.|
00001b70  64 69 6d 28 33 30 30 30  29 3a e7 20 6d 65 6d 25  |dim(3000):. mem%|
00001b80  3d 30 20 e1 0d 0a 14 07  ea 20 85 0d 0a 1e 1d ee  |=0 ...... ......|
00001b90  20 85 20 ea 20 f2 74 66  3a f2 74 72 61 70 28 f6  | . . .tf:.trap(.|
00001ba0  24 2c 30 2c 31 29 3a e1  0d 0a 28 29 c8 99 26 43  |$,0,1):...()..&C|
00001bb0  2c 39 2c 70 61 74 68 24  2c 6d 65 6d 25 2c 37 37  |,9,path$,mem%,77|
00001bc0  2c 30 2c 33 30 30 30 2c  30 20 b8 20 2c 2c 2c 6e  |,0,3000,0 . ,,,n|
00001bd0  25 0d 0a 32 0c e7 20 6e  25 3e 30 20 8c 0d 0a 3c  |%..2.. n%>0 ...<|
00001be0  2e 20 20 c8 99 26 36 30  30 44 45 2c 22 2a 46 69  |.  ..&600DE,"*Fi|
00001bf0  6c 65 72 5f 41 63 74 69  6f 6e 22 20 b8 20 64 65  |ler_Action" . de|
00001c00  73 63 6f 6e 68 61 6e 64  6c 65 25 0d 0a 46 22 20  |sconhandle%..F" |
00001c10  20 c8 99 26 36 30 46 38  30 2c 64 65 73 63 6f 6e  | ..&60F80,descon|
00001c20  68 61 6e 64 6c 65 25 2c  70 61 74 68 24 0d 0a 50  |handle%,path$..P|
00001c30  10 20 20 61 64 64 72 25  3d 6d 65 6d 25 0d 0a 5a  |.  addr%=mem%..Z|
00001c40  10 20 20 e3 6c 25 3d 31  20 b8 20 6e 25 0d 0a 64  |.  .l%=1 . n%..d|
00001c50  2a 20 20 20 20 c8 99 26  36 30 46 38 31 2c 64 65  |*    ..&60F81,de|
00001c60  73 63 6f 6e 68 61 6e 64  6c 65 25 2c a4 62 75 6d  |sconhandle%,.bum|
00001c70  28 61 64 64 72 25 29 0d  0a 6e 07 20 20 ed 0d 0a  |(addr%)..n.  ...|
00001c80  78 25 20 20 c8 99 26 36  30 46 38 32 2c 64 65 73  |x%  ..&60F82,des|
00001c90  63 6f 6e 68 61 6e 64 6c  65 25 2c 32 2c 25 30 30  |conhandle%,2,%00|
00001ca0  31 30 31 0d 0a 82 05 cd  0d 0a 8c 07 f2 74 66 0d  |101..........tf.|
00001cb0  0a 96 05 e1 0d 0a a0 08  dd f2 74 66 0d 0a aa 1a  |..........tf....|
00001cc0  f2 63 6c 6f 73 65 28 51  75 65 72 79 29 3a 71 75  |.close(Query):qu|
00001cd0  65 72 79 25 3d 30 0d 0a  b4 23 c8 97 20 c8 93 20  |ery%=0...#.. .. |
00001ce0  30 2c 30 2c 73 63 72 78  25 2c 73 63 72 79 25 3a  |0,0,scrx%,scry%:|
00001cf0  f2 69 62 61 72 28 22 22  29 0d 0a be 17 70 6f 6c  |.ibar("")....pol|
00001d00  6c 6d 61 73 6b 25 3d a4  70 6f 6c 6c 6d 61 73 6b  |lmask%=.pollmask|
00001d10  0d 0a c8 05 e1 0d 0a d2  16 dd f2 6d 65 73 73 61  |...........messa|
00001d20  67 65 28 74 68 69 6e 67  79 25 29 0d 0a dc 23 ea  |ge(thingy%)...#.|
00001d30  20 70 61 74 24 2c 78 24  2c 74 74 25 2c 6c 6f 6f  | pat$,x$,tt%,loo|
00001d40  70 25 2c 68 61 6e 64 25  2c 69 63 6f 6e 25 0d 0a  |p%,hand%,icon%..|
00001d50  e6 10 c8 8e 20 74 68 69  6e 67 79 25 20 ca 0d 0a  |.... thingy% ...|
00001d60  f0 14 20 20 c9 20 30 3a  f2 62 75 67 67 65 72 6f  |..  . 0:.buggero|
00001d70  66 66 0d 0a fa 09 20 20  c9 20 31 0d 0b 04 1b 20  |ff....  . 1.... |
00001d80  20 20 c8 99 26 34 30 30  43 46 2c 2c 62 6c 6f 63  |  ..&400CF,,bloc|
00001d90  6b 32 25 2b 32 38 0d 0b  0e 28 20 20 20 68 61 6e  |k2%+28...(   han|
00001da0  64 25 3d 62 6c 6f 63 6b  32 25 21 34 30 3a 69 63  |d%=block2%!40:ic|
00001db0  6f 6e 25 3d 62 6c 6f 63  6b 32 25 21 34 34 0d 0b  |on%=block2%!44..|
00001dc0  18 3b 20 20 20 e7 20 68  61 6e 64 25 3d 2d 32 20  |.;   . hand%=-2 |
00001dd0  80 20 69 63 6f 6e 25 3d  68 6f 6c 65 25 20 73 61  |. icon%=hole% sa|
00001de0  76 69 6e 67 25 3d b9 3a  f2 73 61 76 65 66 69 6c  |ving%=.:.savefil|
00001df0  65 28 62 6c 25 21 34 30  29 0d 0b 22 12 20 20 c9  |e(bl%!40)..".  .|
00001e00  20 33 3a f2 64 72 61 67  67 65 64 0d 0b 2c 19 20  | 3:.dragged..,. |
00001e10  20 c9 20 26 35 30 32 3a  f2 72 65 70 6c 79 74 6f  | . &502:.replyto|
00001e20  68 65 6c 70 0d 0b 36 0e  20 20 c9 20 26 34 30 30  |help..6.  . &400|
00001e30  43 31 0d 0b 40 14 20 20  20 20 e7 20 eb 3c 3e 6d  |C1..@.    . .<>m|
00001e40  6f 64 65 25 20 8c 0d 0b  4a 1e 20 20 20 20 20 20  |ode% ...J.      |
00001e50  f2 73 63 72 6e 78 79 3a  f2 72 65 73 69 7a 65 66  |.scrnxy:.resizef|
00001e60  6f 6e 74 73 0d 0b 54 17  20 20 20 20 20 20 f2 63  |onts..T.      .c|
00001e70  6c 6f 63 6b 3a f2 63 6c  6f 63 6b 0d 0b 5e 21 20  |lock:.clock..^! |
00001e80  20 20 20 20 20 f2 75 70  64 61 74 65 63 6c 6f 63  |     .updatecloc|
00001e90  6b 28 c1 91 24 2c 31 37  2c 35 29 29 0d 0b 68 36  |k(..$,17,5))..h6|
00001ea0  20 20 20 20 20 20 ff 28  22 49 63 6f 6e 53 70 72  |      .("IconSpr|
00001eb0  69 74 65 73 20 22 2b 68  6f 6d 65 24 2b 22 2e 53  |ites "+home$+".S|
00001ec0  70 72 69 74 65 73 2e 22  2b 73 70 72 69 74 65 73  |prites."+sprites|
00001ed0  24 29 0d 0b 72 11 20 20  20 20 20 20 6d 6f 64 65  |$)..r.      mode|
00001ee0  25 3d eb 0d 0b 7c 09 20  20 20 20 cd 0d 0b 86 23  |%=...|.    ....#|
00001ef0  20 20 c9 20 26 34 30 30  43 33 3a f2 74 61 73 6b  |  . &400C3:.task|
00001f00  71 75 69 74 74 69 6e 67  28 62 6c 25 21 34 29 0d  |quitting(bl%!4).|
00001f10  0b 90 05 cb 0d 0b 9a 05  e1 0d 0b a4 0d dd f2 64  |...............d|
00001f20  72 61 67 67 65 64 0d 0b  ae 15 ea 20 74 74 25 2c  |ragged..... tt%,|
00001f30  68 61 6e 64 25 2c 69 63  6f 6e 25 0d 0b b8 0f e7  |hand%,icon%.....|
00001f40  20 73 61 76 69 6e 67 25  20 8c 0d 0b c2 0f 20 20  | saving% .....  |
00001f50  73 61 76 69 6e 67 25 3d  a3 0d 0b cc 1b 20 20 62  |saving%=.....  b|
00001f60  6c 25 21 31 36 3d 34 3a  62 6c 25 21 31 32 3d 62  |l%!16=4:bl%!12=b|
00001f70  6c 25 21 38 0d 0b d6 1b  20 20 c8 99 26 34 30 30  |l%!8....  ..&400|
00001f80  45 37 2c 31 38 2c 62 6c  25 2c 62 6c 25 21 34 0d  |E7,18,bl%,bl%!4.|
00001f90  0b e0 05 cc 0d 0b ea 1a  20 20 c8 99 26 34 30 30  |........  ..&400|
00001fa0  43 46 2c 2c 62 6c 6f 63  6b 32 25 2b 32 38 0d 0b  |CF,,block2%+28..|
00001fb0  f4 3e 20 20 68 61 6e 64  25 3d 62 6c 6f 63 6b 32  |.>  hand%=block2|
00001fc0  25 21 34 30 3a 69 63 6f  6e 25 3d 62 6c 6f 63 6b  |%!40:icon%=block|
00001fd0  32 25 21 34 34 3a 70 61  74 24 3d 22 22 3a 63 6f  |2%!44:pat$="":co|
00001fe0  75 6e 74 65 72 3d 62 6c  25 2b 34 34 0d 0b fe 11  |unter=bl%+44....|
00001ff0  20 20 c8 95 20 3f 63 6f  75 6e 74 65 72 0d 0c 08  |  .. ?counter...|
00002000  22 20 20 20 20 70 61 74  24 2b 3d bd 3f 63 6f 75  |"    pat$+=.?cou|
00002010  6e 74 65 72 3a 63 6f 75  6e 74 65 72 2b 3d 31 0d  |nter:counter+=1.|
00002020  0c 12 07 20 20 ce 0d 0c  1c 1a 20 20 74 79 70 65  |...  .....  type|
00002030  25 3d a4 6f 62 6a 74 79  70 65 28 70 61 74 24 29  |%=.objtype(pat$)|
00002040  0d 0c 26 10 20 20 74 74  25 3d 62 6c 25 21 34 30  |..&.  tt%=bl%!40|
00002050  0d 0c 30 10 20 20 c8 8e  20 68 61 6e 64 25 20 ca  |..0.  .. hand% .|
00002060  0d 0c 3a 0c 20 20 20 20  c9 20 2d 32 0d 0c 44 28  |..:.    . -2..D(|
00002070  20 20 20 20 20 20 e7 20  69 63 6f 6e 25 3d 68 6f  |      . icon%=ho|
00002080  6c 65 25 20 f2 73 74 61  72 74 77 69 70 65 28 70  |le% .startwipe(p|
00002090  61 74 24 29 0d 0c 4e 0f  20 20 20 20 c9 20 41 75  |at$)..N.    . Au|
000020a0  53 61 76 0d 0c 58 65 20  20 20 20 20 20 e7 20 74  |Sav..Xe      . t|
000020b0  79 70 65 25 3d 32 20 84  20 74 79 70 65 25 3d 33  |ype%=2 . type%=3|
000020c0  20 53 76 70 74 68 24 28  63 75 72 72 70 61 74 68  | Svpth$(currpath|
000020d0  25 29 3d 70 61 74 24 3a  f2 70 73 28 41 75 53 61  |%)=pat$:.ps(AuSa|
000020e0  76 2c 35 2c 70 61 74 24  29 20 8b 20 46 74 70 24  |v,5,pat$) . Ftp$|
000020f0  28 63 75 72 72 70 61 74  68 25 29 3d c3 7e 74 74  |(currpath%)=.~tt|
00002100  25 3a f2 65 64 75 72 65  0d 0c 62 0d 20 20 20 20  |%:.edure..b.    |
00002110  c9 20 4f 70 74 0d 0c 6c  43 20 20 20 20 20 20 e7  |. Opt..lC      .|
00002120  20 74 79 70 65 25 3d 32  20 84 20 74 79 70 65 25  | type%=2 . type%|
00002130  3d 33 20 f2 70 73 28 4f  70 74 2c 31 32 2c 70 61  |=3 .ps(Opt,12,pa|
00002140  74 24 29 3a f2 67 65 74  62 69 6e 28 30 29 3a f2  |t$):.getbin(0):.|
00002150  69 62 61 72 28 22 22 29  0d 0c 76 0f 20 20 20 20  |ibar("")..v.    |
00002160  c9 20 4d 61 76 69 73 0d  0c 80 1f 20 20 20 20 20  |. Mavis....     |
00002170  20 e7 20 74 79 70 65 25  3d 32 20 84 20 74 79 70  | . type%=2 . typ|
00002180  65 25 3d 33 20 8c 0d 0c  8a 20 20 20 20 20 20 20  |e%=3 ....       |
00002190  20 20 78 24 3d 24 28 a4  6c 75 73 74 28 4d 61 76  |  x$=$(.lust(Mav|
000021a0  69 73 2c 33 29 29 0d 0c  94 15 20 20 20 20 20 20  |is,3))....      |
000021b0  20 20 e7 20 a9 78 24 3e  30 20 8c 0d 0c 9e 33 20  |  . .x$>0 ....3 |
000021c0  20 20 20 20 20 20 20 20  20 e7 20 c2 78 24 2c 31  |         . .x$,1|
000021d0  29 3c 3e 22 5c 22 20 78  24 2b 3d 22 5c 22 2b 70  |)<>"\" x$+="\"+p|
000021e0  61 74 24 20 8b 20 78 24  2b 3d 70 61 74 24 0d 0c  |at$ . x$+=pat$..|
000021f0  a8 0d 20 20 20 20 20 20  20 20 cc 0d 0c b2 15 20  |..        ..... |
00002200  20 20 20 20 20 20 20 20  20 78 24 3d 70 61 74 24  |         x$=pat$|
00002210  0d 0c bc 0d 20 20 20 20  20 20 20 20 cd 0d 0c c6  |....        ....|
00002220  1b 20 20 20 20 20 20 20  20 f2 70 73 28 4d 61 76  |.        .ps(Mav|
00002230  69 73 2c 33 2c 78 24 29  0d 0c d0 0b 20 20 20 20  |is,3,x$)....    |
00002240  20 20 cc 0d 0c da 1f 20  20 20 20 20 20 20 20 f2  |  .....        .|
00002250  70 73 28 4d 61 76 69 73  2c 31 33 2c c3 7e 74 74  |ps(Mavis,13,.~tt|
00002260  25 29 0d 0c e4 0b 20 20  20 20 20 20 cd 0d 0c ee  |%)....      ....|
00002270  07 20 20 cb 0d 0c f8 05  cd 0d 0d 02 05 e1 0d 0d  |.  .............|
00002280  0c 19 dd f2 74 61 73 6b  71 75 69 74 74 69 6e 67  |....taskquitting|
00002290  28 68 61 6e 64 25 29 0d  0d 16 0e c8 8e 20 68 61  |(hand%)...... ha|
000022a0  6e 64 25 20 ca 0d 0d 20  12 20 20 c9 20 64 65 6c  |nd% ... .  . del|
000022b0  68 61 6e 64 6c 65 25 0d  0d 2a 12 20 20 20 20 e7  |handle%..*.    .|
000022c0  20 67 65 74 65 6d 25 20  8c 0d 0d 34 10 20 20 20  | getem% ...4.   |
000022d0  20 20 20 f2 67 65 74 65  6d 0d 0d 3e 09 20 20 20  |   .getem..>.   |
000022e0  20 cc 0d 0d 48 1b 20 20  20 20 20 20 77 69 70 69  | ...H.      wipi|
000022f0  6e 67 25 3d a3 3a 63 72  6e 74 25 3d 30 0d 0d 52  |ng%=.:crnt%=0..R|
00002300  33 20 20 20 20 20 20 e7  20 28 73 74 72 75 63 74  |3      . (struct|
00002310  75 72 65 25 20 80 20 72  6f 6f 74 64 69 72 25 3e  |ure% . rootdir%>|
00002320  30 29 20 f2 70 75 74 73  74 72 75 63 74 75 72 65  |0) .putstructure|
00002330  0d 0d 5c 09 20 20 20 20  cd 0d 0d 66 1b 20 20 20  |..\.    ...f.   |
00002340  20 70 6f 6c 6c 6d 61 73  6b 25 3d a4 70 6f 6c 6c  | pollmask%=.poll|
00002350  6d 61 73 6b 0d 0d 70 15  20 20 20 20 64 65 6c 68  |mask..p.    delh|
00002360  61 6e 64 6c 65 25 3d 2d  31 0d 0d 7a 11 20 20 20  |andle%=-1..z.   |
00002370  20 f2 69 62 61 72 28 22  22 29 0d 0d 84 13 20 20  | .ibar("")....  |
00002380  c9 20 77 69 70 65 68 61  6e 64 6c 65 25 0d 0d 8e  |. wipehandle%...|
00002390  16 20 20 20 20 77 69 70  65 68 61 6e 64 6c 65 25  |.    wipehandle%|
000023a0  3d 2d 31 0d 0d 98 2f 20  20 20 20 e7 20 73 74 72  |=-1.../    . str|
000023b0  75 63 74 75 72 65 25 20  80 20 72 6f 6f 74 64 69  |ucture% . rootdi|
000023c0  72 25 3e 30 20 f2 70 75  74 73 74 72 75 63 74 75  |r%>0 .putstructu|
000023d0  72 65 0d 0d a2 1b 20 20  20 20 70 6f 6c 6c 6d 61  |re....    pollma|
000023e0  73 6b 25 3d a4 70 6f 6c  6c 6d 61 73 6b 0d 0d ac  |sk%=.pollmask...|
000023f0  19 20 20 20 20 77 69 70  69 6e 67 25 3d a3 3a 63  |.    wiping%=.:c|
00002400  72 6e 74 25 3d 30 0d 0d  b6 15 20 20 c9 20 64 65  |rnt%=0....  . de|
00002410  73 63 6f 6e 68 61 6e 64  6c 65 25 0d 0d c0 1a 20  |sconhandle%.... |
00002420  20 20 20 e7 20 24 64 69  73 63 6e 61 6d 65 25 3c  |   . $discname%<|
00002430  3e 22 22 20 8c 0d 0d ca  26 20 20 20 20 20 20 ff  |>"" ....&      .|
00002440  28 22 44 69 73 6d 6f 75  6e 74 20 22 2b c3 77 69  |("Dismount "+.wi|
00002450  70 69 6e 67 64 72 69 76  65 25 29 0d 0d d4 35 20  |pingdrive%)...5 |
00002460  20 20 20 20 20 ff 28 22  4e 61 6d 65 44 69 73 63  |     .("NameDisc|
00002470  20 22 2b c3 77 69 70 69  6e 67 64 72 69 76 65 25  | "+.wipingdrive%|
00002480  2b 22 20 22 2b 24 64 69  73 63 6e 61 6d 65 25 29  |+" "+$discname%)|
00002490  0d 0d de 23 20 20 20 20  20 20 ff 28 22 4d 6f 75  |...#      .("Mou|
000024a0  6e 74 20 22 2b c3 77 69  70 69 6e 67 64 72 69 76  |nt "+.wipingdriv|
000024b0  65 25 29 0d 0d e8 33 20  20 20 20 20 20 ff 28 22  |e%)...3      .("|
000024c0  46 69 6c 65 72 5f 4f 70  65 6e 44 69 72 20 61 64  |Filer_OpenDir ad|
000024d0  66 73 3a 3a 22 2b 24 64  69 73 63 6e 61 6d 65 25  |fs::"+$discname%|
000024e0  2b 22 2e 24 22 29 0d 0d  f2 09 20 20 20 20 cd 0d  |+".$")....    ..|
000024f0  0d fc 18 20 20 20 20 64  65 73 63 6f 6e 68 61 6e  |...    desconhan|
00002500  64 6c 65 25 3d 2d 31 0d  0e 06 11 20 20 20 20 f2  |dle%=-1....    .|
00002510  69 62 61 72 28 22 22 29  0d 0e 10 1b 20 20 20 20  |ibar("")....    |
00002520  70 6f 6c 6c 6d 61 73 6b  25 3d a4 70 6f 6c 6c 6d  |pollmask%=.pollm|
00002530  61 73 6b 0d 0e 1a 18 20  20 20 20 c8 99 26 32 30  |ask....    ..&20|
00002540  30 31 45 2c 37 2c 2c 6d  65 6d 25 0d 0e 24 05 cb  |01E,7,,mem%..$..|
00002550  0d 0e 2e 05 e1 0d 0e 38  12 dd f2 70 75 74 73 74  |.......8...putst|
00002560  72 75 63 74 75 72 65 0d  0e 42 18 e3 20 6c 6f 6f  |ructure..B.. loo|
00002570  70 25 3d 31 20 b8 20 72  6f 6f 74 64 69 72 25 0d  |p%=1 . rootdir%.|
00002580  0e 4c 23 20 20 f2 67 65  74 6c 65 61 66 6e 61 6d  |.L#  .getleafnam|
00002590  65 28 72 6f 6f 74 64 69  72 24 28 6c 6f 6f 70 25  |e(rootdir$(loop%|
000025a0  29 29 0d 0e 56 54 20 20  ff 28 22 43 6f 70 79 20  |))..VT  .("Copy |
000025b0  22 2b 68 6f 6d 65 24 2b  22 2e 54 65 6d 70 22 2b  |"+home$+".Temp"+|
000025c0  6c 65 61 66 6e 61 6d 65  24 2b 22 20 22 2b 72 6f  |leafname$+" "+ro|
000025d0  6f 74 64 69 72 24 28 6c  6f 6f 70 25 29 2b 22 20  |otdir$(loop%)+" |
000025e0  7e 41 7e 43 44 7e 46 7e  4c 7e 4e 7e 50 7e 51 52  |~A~CD~F~L~N~P~QR|
000025f0  53 54 7e 56 22 29 0d 0e  60 05 ed 0d 0e 6a 05 e1  |ST~V")..`....j..|
00002600  0d 0e 74 0b dd f2 67 65  74 65 6d 0d 0e 7e 08 ea  |..t...getem..~..|
00002610  20 6e 25 0d 0e 88 2a c8  99 26 36 30 30 44 45 2c  | n%...*..&600DE,|
00002620  22 2a 46 69 6c 65 72 5f  41 63 74 69 6f 6e 22 20  |"*Filer_Action" |
00002630  b8 20 77 69 70 65 68 61  6e 64 6c 65 25 0d 0e 92  |. wipehandle%...|
00002640  21 c8 99 26 36 30 46 38  30 2c 77 69 70 65 68 61  |!..&60F80,wipeha|
00002650  6e 64 6c 65 25 2c 77 69  70 65 64 69 72 24 0d 0e  |ndle%,wipedir$..|
00002660  9c 12 e3 20 6e 25 3d 31  20 b8 20 63 72 6e 74 25  |... n%=1 . crnt%|
00002670  0d 0e a6 1d 20 20 f2 67  65 74 6c 65 61 66 6e 61  |....  .getleafna|
00002680  6d 65 28 77 69 70 65 24  28 6e 25 29 29 0d 0e b0  |me(wipe$(n%))...|
00002690  28 20 20 6c 65 61 66 6e  61 6d 65 24 3d c2 6c 65  |(  leafname$=.le|
000026a0  61 66 6e 61 6d 65 24 2c  a9 6c 65 61 66 6e 61 6d  |afname$,.leafnam|
000026b0  65 24 2d 31 29 0d 0e ba  24 20 20 c8 99 26 36 30  |e$-1)...$  ..&60|
000026c0  46 38 31 2c 77 69 70 65  68 61 6e 64 6c 65 25 2c  |F81,wipehandle%,|
000026d0  6c 65 61 66 6e 61 6d 65  24 0d 0e c4 05 ed 0d 0e  |leafname$.......|
000026e0  ce 23 c8 99 26 36 30 46  38 32 2c 77 69 70 65 68  |.#..&60F82,wipeh|
000026f0  61 6e 64 6c 65 25 2c 32  2c 77 69 70 65 6f 70 74  |andle%,2,wipeopt|
00002700  25 0d 0e d8 0c 67 65 74  65 6d 25 3d a3 0d 0e e2  |%....getem%=....|
00002710  05 e1 0d 0e ec 1b dd f2  74 72 61 70 28 74 65 78  |........trap(tex|
00002720  74 24 2c 43 61 6e 63 65  6c 2c 61 25 29 0d 0e f6  |t$,Cancel,a%)...|
00002730  0c ea 20 74 69 74 6c 65  24 0d 0f 00 0d 71 75 65  |.. title$....que|
00002740  72 79 25 3d 61 25 0d 0f  0a 17 70 6f 6c 6c 6d 61  |ry%=a%....pollma|
00002750  73 6b 25 3d a4 70 6f 6c  6c 6d 61 73 6b 0d 0f 14  |sk%=.pollmask...|
00002760  0e e7 20 43 61 6e 63 65  6c 20 8c 0d 0f 1e 49 20  |.. Cancel ....I |
00002770  20 f2 73 65 6c 69 63 28  51 75 65 72 79 2c 33 2c  | .selic(Query,3,|
00002780  6f 66 66 2c 6f 66 66 29  3a f2 73 65 6c 69 63 28  |off,off):.selic(|
00002790  51 75 65 72 79 2c 31 2c  30 2c 6f 66 66 29 3a f2  |Query,1,0,off):.|
000027a0  73 65 6c 69 63 28 51 75  65 72 79 2c 32 2c 30 2c  |selic(Query,2,0,|
000027b0  6f 66 66 29 0d 0f 28 1d  20 20 74 69 74 6c 65 24  |off)..(.  title$|
000027c0  3d a4 6d 73 67 28 22 71  75 22 2c 22 22 2c 22 22  |=.msg("qu","",""|
000027d0  29 0d 0f 32 05 cc 0d 0f  3c 4b 20 20 f2 73 65 6c  |)..2....<K  .sel|
000027e0  69 63 28 51 75 65 72 79  2c 33 2c 30 2c 6f 66 66  |ic(Query,3,0,off|
000027f0  29 3a f2 73 65 6c 69 63  28 51 75 65 72 79 2c 31  |):.selic(Query,1|
00002800  2c 6f 66 66 2c 6f 66 66  29 3a f2 73 65 6c 69 63  |,off,off):.selic|
00002810  28 51 75 65 72 79 2c 32  2c 6f 66 66 2c 6f 66 66  |(Query,2,off,off|
00002820  29 0d 0f 46 1d 20 20 74  69 74 6c 65 24 3d a4 6d  |)..F.  title$=.m|
00002830  73 67 28 22 6d 73 22 2c  22 22 2c 22 22 29 0d 0f  |sg("ms","","")..|
00002840  50 05 cd 0d 0f 5a 16 f2  70 73 28 51 75 65 72 79  |P....Z..ps(Query|
00002850  2c 30 2c 74 65 78 74 24  29 0d 0f 64 24 21 62 6c  |,0,text$)..d$!bl|
00002860  6f 63 6b 34 25 3d 51 75  65 72 79 3a c8 99 26 34  |ock4%=Query:..&4|
00002870  30 30 43 43 2c 2c 62 6c  6f 63 6b 34 25 0d 0f 6e  |00CC,,block4%..n|
00002880  18 24 28 62 6c 6f 63 6b  34 25 21 37 36 29 3d 74  |.$(block4%!76)=t|
00002890  69 74 6c 65 24 0d 0f 78  34 62 6c 6f 63 6b 34 25  |itle$..x4block4%|
000028a0  21 34 3d 28 73 63 72 78  25 2d 37 36 38 29 2f 32  |!4=(scrx%-768)/2|
000028b0  3a 62 6c 6f 63 6b 34 25  21 31 32 3d 62 6c 6f 63  |:block4%!12=bloc|
000028c0  6b 34 25 21 34 2b 37 36  38 0d 0f 82 34 62 6c 6f  |k4%!4+768...4blo|
000028d0  63 6b 34 25 21 38 3d 28  73 63 72 79 25 2d 34 34  |ck4%!8=(scry%-44|
000028e0  38 29 2f 32 3a 62 6c 6f  63 6b 34 25 21 31 36 3d  |8)/2:block4%!16=|
000028f0  62 6c 6f 63 6b 34 25 21  38 2b 34 34 34 0d 0f 8c  |block4%!8+444...|
00002900  23 62 6c 6f 63 6b 34 25  21 32 38 3d 2d 31 3a c8  |#block4%!28=-1:.|
00002910  99 26 34 30 30 43 35 2c  2c 62 6c 6f 63 6b 34 25  |.&400C5,,block4%|
00002920  0d 0f 96 05 e1 0d 0f a0  18 dd f2 6b 65 79 28 77  |...........key(w|
00002930  69 6e 25 2c 69 63 25 2c  6b 65 79 25 29 0d 0f aa  |in%,ic%,key%)...|
00002940  0f ea 20 6c 65 6e 67 74  68 2c 66 24 0d 0f b4 1e  |.. length,f$....|
00002950  e7 20 6b 65 79 25 3c 3e  31 33 20 c8 99 26 34 30  |. key%<>13 ..&40|
00002960  30 44 43 2c 6b 65 79 25  3a e1 0d 0f be 0d c8 8e  |0DC,key%:.......|
00002970  20 77 69 6e 25 20 ca 0d  0f c8 0d 20 20 c9 20 41  | win% .....  . A|
00002980  75 53 61 76 0d 0f d2 10  20 20 20 20 c8 8e 20 69  |uSav....    .. i|
00002990  63 25 20 ca 0d 0f dc 0d  20 20 20 20 20 20 c9 20  |c% .....      . |
000029a0  31 0d 0f e6 20 20 20 20  20 20 20 20 20 66 24 3d  |1...         f$=|
000029b0  24 28 a4 6c 75 73 74 28  41 75 53 61 76 2c 31 29  |$(.lust(AuSav,1)|
000029c0  29 0d 0f f0 35 20 20 20  20 20 20 20 20 46 74 70  |)...5        Ftp|
000029d0  24 28 63 75 72 72 70 61  74 68 25 29 3d a4 66 74  |$(currpath%)=.ft|
000029e0  79 70 65 28 66 24 2c 41  75 53 61 76 2c 31 29 3a  |ype(f$,AuSav,1):|
000029f0  f2 65 64 75 72 65 0d 0f  fa 23 20 20 20 20 20 20  |.edure...#      |
00002a00  20 20 c8 99 26 34 30 30  44 32 2c 41 75 53 61 76  |  ..&400D2,AuSav|
00002a10  2c 35 2c 2c 2c 2d 31 2c  30 0d 10 04 0d 20 20 20  |,5,,,-1,0....   |
00002a20  20 20 20 c9 20 35 0d 10  0e 18 20 20 20 20 20 20  |   . 5....      |
00002a30  20 20 f2 72 65 73 70 73  61 76 65 28 37 29 0d 10  |  .respsave(7)..|
00002a40  18 23 20 20 20 20 20 20  20 20 c8 99 26 34 30 30  |.#        ..&400|
00002a50  44 32 2c 41 75 53 61 76  2c 31 2c 2c 2c 2d 31 2c  |D2,AuSav,1,,,-1,|
00002a60  30 0d 10 22 09 20 20 20  20 cb 0d 10 2c 0b 20 20  |0..".    ...,.  |
00002a70  c9 20 4f 70 74 0d 10 36  10 20 20 20 20 c8 8e 20  |. Opt..6.    .. |
00002a80  69 63 25 20 ca 0d 10 40  23 20 20 20 20 20 20 c9  |ic% ...@#      .|
00002a90  20 31 32 3a f2 67 65 74  62 69 6e 28 30 29 3a f2  | 12:.getbin(0):.|
00002aa0  69 62 61 72 28 22 22 29  0d 10 4a 17 20 20 20 20  |ibar("")..J.    |
00002ab0  20 20 7f 3a c8 99 26 34  30 30 44 43 2c 31 33 0d  |  .:..&400DC,13.|
00002ac0  10 54 09 20 20 20 20 cb  0d 10 5e 0d 20 20 c9 20  |.T.    ...^.  . |
00002ad0  4d 61 76 69 73 0d 10 68  10 20 20 20 20 c8 8e 20  |Mavis..h.    .. |
00002ae0  69 63 25 20 ca 0d 10 72  0e 20 20 20 20 20 20 c9  |ic% ...r.      .|
00002af0  20 31 33 0d 10 7c 32 20  20 20 20 20 20 20 20 66  | 13..|2        f|
00002b00  24 3d a4 66 74 79 70 65  28 24 28 a4 6c 75 73 74  |$=.ftype($(.lust|
00002b10  28 4d 61 76 69 73 2c 31  33 29 29 2c 4d 61 76 69  |(Mavis,13)),Mavi|
00002b20  73 2c 31 33 29 0d 10 86  20 20 20 20 20 20 20 20  |s,13)...        |
00002b30  20 24 66 66 73 25 3d 22  73 66 69 6c 65 5f 22 2b  | $ffs%="sfile_"+|
00002b40  66 24 2b bd 30 0d 10 90  25 20 20 20 20 20 20 20  |f$+.0...%       |
00002b50  20 f2 73 65 6c 69 63 28  4d 61 76 69 73 2c 66 66  | .selic(Mavis,ff|
00002b60  69 63 6f 6e 25 2c 30 2c  30 29 0d 10 9a 17 20 20  |icon%,0,0)....  |
00002b70  20 20 20 20 7f 3a c8 99  26 34 30 30 44 43 2c 31  |    .:..&400DC,1|
00002b80  33 0d 10 a4 09 20 20 20  20 cb 0d 10 ae 05 cb 0d  |3....    .......|
00002b90  10 b8 05 e1 0d 10 c2 12  dd f2 6f 70 65 6e 28 68  |..........open(h|
00002ba0  61 6e 64 6c 65 29 0d 10  cc 36 62 6c 25 21 30 3d  |andle)...6bl%!0=|
00002bb0  68 61 6e 64 6c 65 3a c8  99 26 34 30 30 43 43 2c  |handle:..&400CC,|
00002bc0  2c 62 6c 25 3a 62 6c 25  21 32 38 3d 2d 31 3a c8  |,bl%:bl%!28=-1:.|
00002bd0  99 26 34 30 30 43 35 2c  2c 62 6c 25 0d 10 d6 05  |.&400C5,,bl%....|
00002be0  e1 0d 10 e0 0f dd f2 63  6c 6f 73 65 28 77 25 29  |.......close(w%)|
00002bf0  0d 10 ea 22 62 6c 6f 63  6b 33 25 21 30 3d 77 25  |..."block3%!0=w%|
00002c00  3a c8 99 26 34 30 30 43  36 2c 2c 62 6c 6f 63 6b  |:..&400C6,,block|
00002c10  33 25 0d 10 f4 05 e1 0d  10 fe 10 dd f2 62 75 69  |3%...........bui|
00002c20  6c 64 6d 65 6e 75 73 0d  11 08 14 ea 20 72 61 25  |ldmenus..... ra%|
00002c30  2c 72 62 25 2c 6d 25 2c  72 64 25 0d 11 12 19 72  |,rb%,m%,rd%....r|
00002c40  61 6d 64 69 73 63 25 3d  2d 32 3a 6d 65 6d 66 73  |amdisc%=-2:memfs|
00002c50  25 3d 2d 32 0d 11 1c 09  72 64 25 3d 30 0d 11 26  |%=-2....rd%=0..&|
00002c60  10 6d 65 6e 6d 61 73 6b  25 3d a4 6d 66 0d 11 30  |.menmask%=.mf..0|
00002c70  0d 4d 25 3d 4d 65 6e 75  73 25 0d 11 3a 1d f2 53  |.M%=Menus%..:..S|
00002c80  74 61 72 74 61 6d 65 6e  75 28 22 42 6c 61 63 6b  |tartamenu("Black|
00002c90  20 48 6f 6c 65 22 29 0d  11 44 21 e3 20 6c 25 3d  | Hole")..D!. l%=|
00002ca0  30 20 b8 20 35 3a f2 6d  61 64 28 6d 65 6e 24 28  |0 . 5:.mad(men$(|
00002cb0  6c 25 29 2c 30 29 3a ed  0d 11 4e 15 f2 6d 61 64  |l%),0):...N..mad|
00002cc0  28 6d 65 6e 24 28 36 29  2c 26 38 30 29 0d 11 58  |(men$(6),&80)..X|
00002cd0  7b f2 73 71 75 69 64 67  65 28 30 2c 32 2c 49 6e  |{.squidge(0,2,In|
00002ce0  66 6f 29 3a f2 73 71 75  69 64 67 65 28 31 2c 30  |fo):.squidge(1,0|
00002cf0  2c 2d 31 29 3a f2 73 71  75 69 64 67 65 28 32 2c  |,-1):.squidge(2,|
00002d00  30 2c 4d 65 6e 75 73 25  2b 32 30 30 29 3a f2 73  |0,Menus%+200):.s|
00002d10  71 75 69 64 67 65 28 33  2c 30 2c 4d 65 6e 75 73  |quidge(3,0,Menus|
00002d20  25 2b 33 36 34 29 3a f2  73 71 75 69 64 67 65 28  |%+364):.squidge(|
00002d30  34 2c 30 2c 2d 31 29 3a  f2 73 71 75 69 64 67 65  |4,0,-1):.squidge|
00002d40  28 35 2c 32 2c 2d 31 29  0d 11 62 0e f2 67 65 74  |(5,2,-1)..b..get|
00002d50  62 69 6e 28 31 29 0d 11  6c 0f e7 20 62 61 64 62  |bin(1)..l.. badb|
00002d60  69 6e 25 20 8c 0d 11 76  13 20 20 f2 6e 63 28 22  |in% ...v.  .nc("|
00002d70  4e 6f 20 42 69 6e 22 29  0d 11 80 05 cc 0d 11 8a  |No Bin")........|
00002d80  27 20 20 e7 20 a4 65 6d  70 74 79 28 62 69 6e 24  |'  . .empty(bin$|
00002d90  29 20 f2 6e 63 28 22 4e  6f 20 43 6f 6e 74 65 6e  |) .nc("No Conten|
00002da0  74 73 22 29 0d 11 94 13  20 20 4d 25 3d 4d 65 6e  |ts")....  M%=Men|
00002db0  75 73 25 2b 32 30 30 0d  11 9e 1d 20 20 f2 53 74  |us%+200....  .St|
00002dc0  61 72 74 61 6d 65 6e 75  28 22 43 6f 6e 74 65 6e  |artamenu("Conten|
00002dd0  74 73 22 29 0d 11 a8 24  20 20 e3 20 6c 25 3d 37  |ts")...$  . l%=7|
00002de0  20 b8 20 31 31 3a f2 6d  61 64 28 6d 65 6e 24 28  | . 11:.mad(men$(|
00002df0  6c 25 29 2c 30 29 3a ed  0d 11 b2 29 20 20 e7 20  |l%),0):....)  . |
00002e00  a4 6f 62 6a 74 79 70 65  28 22 25 2e 53 71 75 61  |.objtype("%.Squa|
00002e10  73 68 22 29 3c 3e 31 20  f2 73 68 61 64 65 28 33  |sh")<>1 .shade(3|
00002e20  29 0d 11 bc 20 20 20 f2  73 71 75 69 64 67 65 28  |)...   .squidge(|
00002e30  34 2c 26 38 30 2c 4d 65  6e 75 73 25 2b 35 34 30  |4,&80,Menus%+540|
00002e40  29 0d 11 c6 29 20 20 e3  6c 25 3d 30 b8 33 3a f2  |)...)  .l%=0.3:.|
00002e50  73 71 75 69 64 67 65 28  6c 25 2c 30 2c 4d 65 6e  |squidge(l%,0,Men|
00002e60  75 73 25 2b 35 34 30 29  3a ed 0d 11 d0 13 20 20  |us%+540):.....  |
00002e70  4d 25 3d 4d 65 6e 75 73  25 2b 35 34 30 0d 11 da  |M%=Menus%+540...|
00002e80  1c 20 20 f2 53 74 61 72  74 61 6d 65 6e 75 28 22  |.  .Startamenu("|
00002e90  43 68 6f 6f 73 65 3a 22  29 0d 11 e4 13 20 20 f2  |Choose:")....  .|
00002ea0  6d 61 64 28 22 41 6c 6c  22 2c 30 29 0d 11 ee 19  |mad("All",0)....|
00002eb0  20 20 6d 25 3d a4 64 69  72 6d 65 6e 75 28 62 69  |  m%=.dirmenu(bi|
00002ec0  6e 24 2c 30 29 0d 11 f8  05 cd 0d 12 02 11 4d 25  |n$,0).........M%|
00002ed0  3d 4d 65 6e 75 73 25 2b  33 36 34 0d 12 0c 1d f2  |=Menus%+364.....|
00002ee0  53 74 61 72 74 61 6d 65  6e 75 28 22 57 69 70 65  |Startamenu("Wipe|
00002ef0  20 44 72 69 76 65 22 29  0d 12 16 17 c8 99 26 34  | Drive")......&4|
00002f00  30 32 34 32 20 b8 20 2c  44 72 69 76 65 73 25 0d  |0242 . ,Drives%.|
00002f10  12 20 0e 64 25 3d 44 72  69 76 65 73 25 0d 12 2a  |. .d%=Drives%..*|
00002f20  4e c8 95 20 64 25 3e 30  3a f2 6d 61 64 28 22 61  |N.. d%>0:.mad("a|
00002f30  64 66 73 3a 3a 22 2b c3  28 64 25 2d 31 29 2c 30  |dfs::"+.(d%-1),0|
00002f40  29 3a f2 73 71 75 69 64  67 65 28 44 72 69 76 65  |):.squidge(Drive|
00002f50  73 25 2d 64 25 2c 30 2c  4d 65 6e 75 73 25 2b 34  |s%-d%,0,Menus%+4|
00002f60  36 38 29 3a 64 25 2d 3d  31 3a ce 0d 12 34 11 72  |68):d%-=1:...4.r|
00002f70  64 25 3d 44 72 69 76 65  73 25 2d 31 0d 12 3e 13  |d%=Drives%-1..>.|
00002f80  c8 99 26 34 41 20 b8 20  72 61 25 2c 72 62 25 0d  |..&4A . ra%,rb%.|
00002f90  12 48 38 e7 20 28 72 61  25 2d 72 62 25 29 3c 3e  |.H8. (ra%-rb%)<>|
00002fa0  30 20 f2 6d 61 64 28 22  52 41 4d 64 69 73 63 22  |0 .mad("RAMdisc"|
00002fb0  2c 30 29 3a 72 64 25 2b  3d 31 3a 72 61 6d 64 69  |,0):rd%+=1:ramdi|
00002fc0  73 63 25 3d 72 64 25 0d  12 52 23 2a 53 65 74 20  |sc%=rd%..R#*Set |
00002fd0  42 6c 61 63 6b 48 6f 6c  65 24 57 69 62 62 6c 65  |BlackHole$Wibble|
00002fe0  20 22 4d 65 6d 44 69 73  63 22 0d 12 5c 33 ff 28  | "MemDisc"..\3.(|
00002ff0  22 52 4d 45 6e 73 75 72  65 20 4d 65 6d 46 53 20  |"RMEnsure MemFS |
00003000  30 2e 30 30 20 55 6e 53  65 74 20 42 6c 61 63 6b  |0.00 UnSet Black|
00003010  48 6f 6c 65 24 57 69 62  62 6c 65 22 29 0d 12 66  |Hole$Wibble")..f|
00003020  30 c8 99 26 32 30 30 32  33 2c 22 42 6c 61 63 6b  |0..&20023,"Black|
00003030  48 6f 6c 65 24 57 69 62  62 6c 65 22 2c 62 6c 25  |Hole$Wibble",bl%|
00003040  2c 32 35 36 2c 30 20 b8  20 2c 2c 72 25 0d 12 70  |,256,0 . ,,r%..p|
00003050  0c 62 6c 25 3f 72 25 3d  30 0d 12 7a 3c e7 20 a4  |.bl%?r%=0..z<. .|
00003060  67 61 67 61 28 62 6c 25  29 3d 22 4d 65 6d 44 69  |gaga(bl%)="MemDi|
00003070  73 63 22 20 f2 6d 61 64  28 22 4d 65 6d 46 53 22  |sc" .mad("MemFS"|
00003080  2c 30 29 3a 72 64 25 2b  3d 31 3a 6d 65 6d 66 73  |,0):rd%+=1:memfs|
00003090  25 3d 72 64 25 0d 12 84  4c e7 20 72 64 25 3e 44  |%=rd%...L. rd%>D|
000030a0  72 69 76 65 73 25 2d 31  20 f2 73 71 75 69 64 67  |rives%-1 .squidg|
000030b0  65 28 72 64 25 2c 26 38  30 2c 30 29 20 8b 20 f2  |e(rd%,&80,0) . .|
000030c0  73 71 75 69 64 67 65 28  44 72 69 76 65 73 25 2d  |squidge(Drives%-|
000030d0  31 2c 26 38 30 2c 4d 65  6e 75 73 25 2b 34 36 38  |1,&80,Menus%+468|
000030e0  29 0d 12 8e 11 4d 25 3d  4d 65 6e 75 73 25 2b 34  |)....M%=Menus%+4|
000030f0  36 38 0d 12 98 1c f2 53  74 61 72 74 61 6d 65 6e  |68.....Startamen|
00003100  75 28 22 44 69 73 63 20  4e 61 6d 65 22 29 0d 12  |u("Disc Name")..|
00003110  a2 4c 50 25 21 30 3d 28  26 38 34 20 80 20 32 35  |.LP%!0=(&84 . 25|
00003120  35 29 3a 50 25 21 34 3d  2d 31 3a 50 25 21 38 3d  |5):P%!4=-1:P%!8=|
00003130  26 37 30 30 39 31 32 39  3a 50 25 21 31 32 3d 64  |&7009129:P%!12=d|
00003140  69 73 63 6e 61 6d 65 25  3a 50 25 21 31 36 3d 2d  |iscname%:P%!16=-|
00003150  31 3a 50 25 21 32 30 3d  31 33 0d 12 ac 11 24 64  |1:P%!20=13....$d|
00003160  69 73 63 6e 61 6d 65 25  3d 22 22 0d 12 b6 05 e1  |iscname%="".....|
00003170  0d 12 c0 10 dd f2 6e 63  28 65 6e 74 72 79 24 29  |......nc(entry$)|
00003180  0d 12 ca 36 24 28 a4 6d  65 6e 6d 65 6d 28 32 29  |...6$(.menmem(2)|
00003190  2b 31 32 29 3d 65 6e 74  72 79 24 3a f2 73 68 61  |+12)=entry$:.sha|
000031a0  64 65 28 32 29 3a f2 73  71 75 69 64 67 65 28 32  |de(2):.squidge(2|
000031b0  2c 30 2c 2d 31 29 0d 12  d4 05 e1 0d 12 de 12 dd  |,0,-1)..........|
000031c0  f2 73 68 61 64 65 28 69  74 65 6d 25 29 0d 12 e8  |.shade(item%)...|
000031d0  3b 21 28 a4 6d 65 6e 6d  65 6d 28 69 74 65 6d 25  |;!(.menmem(item%|
000031e0  29 2b 38 29 3d 21 28 a4  6d 65 6e 6d 65 6d 28 69  |)+8)=!(.menmem(i|
000031f0  74 65 6d 25 29 2b 38 29  20 80 20 ac 20 67 72 65  |tem%)+8) . . gre|
00003200  79 20 84 20 67 72 65 79  0d 12 f2 05 e1 0d 12 fc  |y . grey........|
00003210  20 dd f2 73 71 75 69 64  67 65 28 69 74 65 6d 25  | ..squidge(item%|
00003220  2c 66 6c 61 67 25 2c 6c  69 6e 6b 25 29 0d 13 06  |,flag%,link%)...|
00003230  21 21 28 a4 6d 65 6e 6d  65 6d 28 69 74 65 6d 25  |!!(.menmem(item%|
00003240  29 29 3d 66 6c 61 67 25  20 80 20 32 35 35 0d 13  |))=flag% . 255..|
00003250  10 1d 21 28 a4 6d 65 6e  6d 65 6d 28 69 74 65 6d  |..!(.menmem(item|
00003260  25 29 2b 34 29 3d 6c 69  6e 6b 25 0d 13 1a 05 e1  |%)+4)=link%.....|
00003270  0d 13 24 10 dd a4 6d 65  6e 6d 65 6d 28 69 25 29  |..$...menmem(i%)|
00003280  0d 13 2e 10 3d 4d 25 2b  32 38 2b 69 25 2a 32 34  |....=M%+28+i%*24|
00003290  0d 13 38 12 dd f2 6d 6b  6d 65 6e 28 78 25 2c 79  |..8...mkmen(x%,y|
000032a0  25 29 0d 13 42 1b 73 70  72 69 74 65 6d 65 6e 75  |%)..B.spritemenu|
000032b0  25 3d a3 3a 63 6c 6d 65  6e 75 25 3d a3 0d 13 4c  |%=.:clmenu%=...L|
000032c0  0f f2 62 75 69 6c 64 6d  65 6e 75 73 0d 13 56 11  |..buildmenus..V.|
000032d0  78 25 2d 3d 39 36 3a 79  25 3d 34 33 32 0d 13 60  |x%-=96:y%=432..`|
000032e0  1a c8 99 26 34 30 30 44  34 2c 2c 4d 65 6e 75 73  |...&400D4,,Menus|
000032f0  25 2c 78 25 2c 79 25 0d  13 6a 3e e7 20 73 70 69  |%,x%,y%..j>. spi|
00003300  6e 6f 6e 25 3d a3 20 f2  70 73 28 49 6e 66 6f 2c  |non%=. .ps(Info,|
00003310  31 2c a4 6d 73 67 28 22  66 77 65 22 2c 22 22 2c  |1,.msg("fwe","",|
00003320  22 22 29 29 20 8b 20 f2  70 73 28 49 6e 66 6f 2c  |"")) . .ps(Info,|
00003330  31 2c 22 22 29 0d 13 74  05 e1 0d 13 7e 13 dd f2  |1,"")..t....~...|
00003340  73 74 61 72 74 77 69 70  65 28 70 24 29 0d 13 88  |startwipe(p$)...|
00003350  36 e7 20 63 72 6e 74 25  3e 30 20 80 20 77 69 70  |6. crnt%>0 . wip|
00003360  69 6e 67 25 20 f2 74 72  61 70 28 a4 6d 73 67 28  |ing% .trap(.msg(|
00003370  22 77 6e 66 22 2c 22 22  2c 22 22 29 2c 30 2c 30  |"wnf","",""),0,0|
00003380  29 3a e1 0d 13 92 2e e7  20 72 65 74 61 69 6e 25  |):...... retain%|
00003390  20 80 20 63 72 6e 74 25  3d 30 20 f2 67 65 74 62  | . crnt%=0 .getb|
000033a0  69 6e 28 30 29 3a e7 20  62 61 64 62 69 6e 25 20  |in(0):. badbin% |
000033b0  e1 0d 13 9c 0f e7 20 63  72 6e 74 25 3d 30 20 8c  |...... crnt%=0 .|
000033c0  0d 13 a6 10 20 20 72 6f  6f 74 64 69 72 25 3d 30  |....  rootdir%=0|
000033d0  0d 13 b0 0d 20 20 63 74  72 6c 25 3d 30 0d 13 ba  |....  ctrl%=0...|
000033e0  15 20 20 70 6f 6c 6c 6d  61 73 6b 25 3d 26 31 38  |.  pollmask%=&18|
000033f0  30 30 0d 13 c4 1a 20 20  e7 20 a6 2d 35 20 84 20  |00....  . .-5 . |
00003400  a6 2d 38 20 63 74 72 6c  25 3d 2d 31 0d 13 ce 1d  |.-8 ctrl%=-1....|
00003410  20 20 e7 20 28 ac 20 63  74 72 6c 25 29 20 80 20  |  . (. ctrl%) . |
00003420  72 65 74 61 69 6e 25 20  8c 0d 13 d8 40 20 20 20  |retain% ....@   |
00003430  20 e7 20 a4 6f 62 6a 74  79 70 65 28 62 69 6e 24  | . .objtype(bin$|
00003440  2b 22 2e 22 2b 74 6f 64  61 79 24 29 3d 30 20 ff  |+"."+today$)=0 .|
00003450  28 22 43 44 69 72 20 22  2b 62 69 6e 24 2b 22 2e  |("CDir "+bin$+".|
00003460  22 2b 74 6f 64 61 79 24  29 0d 13 e2 07 20 20 cd  |"+today$)....  .|
00003470  0d 13 ec 05 cd 0d 13 f6  23 e7 20 a4 6f 62 6a 74  |........#. .objt|
00003480  79 70 65 28 70 24 29 3d  32 20 80 20 73 74 72 75  |ype(p$)=2 . stru|
00003490  63 74 75 72 65 25 20 8c  0d 14 00 16 20 20 f2 67  |cture% .....  .g|
000034a0  65 74 6c 65 61 66 6e 61  6d 65 28 70 24 29 0d 14  |etleafname(p$)..|
000034b0  0a 11 20 20 72 6f 6f 74  64 69 72 25 2b 3d 31 0d  |..  rootdir%+=1.|
000034c0  14 14 1b 20 20 72 6f 6f  74 64 69 72 24 28 72 6f  |...  rootdir$(ro|
000034d0  6f 74 64 69 72 25 29 3d  70 24 0d 14 1e 48 20 20  |otdir%)=p$...H  |
000034e0  ff 28 22 43 6f 70 79 20  22 2b 70 24 2b 22 20 22  |.("Copy "+p$+" "|
000034f0  2b 68 6f 6d 65 24 2b 22  2e 54 65 6d 70 22 2b 6c  |+home$+".Temp"+l|
00003500  65 61 66 6e 61 6d 65 24  2b 22 20 7e 41 7e 43 7e  |eafname$+" ~A~C~|
00003510  44 7e 46 7e 4c 7e 4e 7e  50 7e 51 52 53 54 7e 56  |D~F~L~N~P~QRST~V|
00003520  22 29 0d 14 28 05 cd 0d  14 32 1c 63 72 6e 74 25  |")..(....2.crnt%|
00003530  2b 3d 31 3a 77 69 70 65  24 28 63 72 6e 74 25 29  |+=1:wipe$(crnt%)|
00003540  3d 70 24 0d 14 3c 3d e7  20 28 72 65 74 61 69 6e  |=p$..<=. (retain|
00003550  25 20 80 20 ac 20 63 74  72 6c 25 29 20 f2 69 62  |% . . ctrl%) .ib|
00003560  61 72 28 22 4d 6f 76 69  6e 67 22 29 20 8b 20 f2  |ar("Moving") . .|
00003570  69 62 61 72 28 22 44 65  6c 65 74 69 6e 67 22 29  |ibar("Deleting")|
00003580  0d 14 46 05 e1 0d 14 50  18 dd f2 67 65 74 6c 65  |..F....P...getle|
00003590  61 66 6e 61 6d 65 28 70  61 74 68 24 29 0d 14 5a  |afname(path$)..Z|
000035a0  19 ea 20 70 6f 69 6e 74  65 72 25 3a 70 6f 69 6e  |.. pointer%:poin|
000035b0  74 65 72 25 3d 30 0d 14  64 2a f5 3a 70 6f 69 6e  |ter%=0..d*.:poin|
000035c0  74 65 72 25 2b 3d 31 3a  fd 20 a7 c2 70 61 74 68  |ter%+=1:. ..path|
000035d0  24 2c 70 6f 69 6e 74 65  72 25 29 2c 22 2e 22 29  |$,pointer%),".")|
000035e0  0d 14 6e 1e 6c 65 61 66  6e 61 6d 65 24 3d c2 70  |..n.leafname$=.p|
000035f0  61 74 68 24 2c 70 6f 69  6e 74 65 72 25 29 0d 14  |ath$,pointer%)..|
00003600  78 05 e1 0d 14 82 11 dd  a4 6f 62 6a 74 79 70 65  |x........objtype|
00003610  28 61 24 29 0d 14 8c 0a  ea 20 6f 62 6a 25 0d 14  |(a$)..... obj%..|
00003620  96 14 c8 99 26 38 2c 35  2c 61 24 20 b8 20 6f 62  |....&8,5,a$ . ob|
00003630  6a 25 0d 14 a0 09 3d 6f  62 6a 25 0d 14 aa 12 dd  |j%....=obj%.....|
00003640  f2 67 65 74 62 69 6e 28  68 6d 6d 25 29 0d 14 b4  |.getbin(hmm%)...|
00003650  0d 62 61 64 62 69 6e 25  3d 30 0d 14 be 07 ea 20  |.badbin%=0..... |
00003660  85 0d 14 c8 35 ee 20 85  20 ea 20 f2 74 72 61 70  |....5. . . .trap|
00003670  28 a4 6d 73 67 28 22 62  64 65 22 2c 62 69 6e 24  |(.msg("bde",bin$|
00003680  2c 22 22 29 2c 30 2c 31  29 3a 62 61 64 62 69 6e  |,""),0,1):badbin|
00003690  25 3d 2d 31 3a e1 0d 14  d2 19 62 69 6e 24 3d 24  |%=-1:.....bin$=$|
000036a0  28 a4 6c 75 73 74 28 4f  70 74 2c 31 32 29 29 0d  |(.lust(Opt,12)).|
000036b0  14 dc 25 e7 20 62 69 6e  24 3d 22 22 20 62 69 6e  |..%. bin$="" bin|
000036c0  24 3d 68 6f 6d 65 24 2b  22 2e 42 6c 61 63 6b 48  |$=home$+".BlackH|
000036d0  6f 6c 65 22 0d 14 e6 1a  c8 99 26 32 37 2c 62 69  |ole"......&27,bi|
000036e0  6e 24 2c 62 6c 6f 63 6b  33 25 2c 32 35 36 0d 14  |n$,block3%,256..|
000036f0  f0 17 62 69 6e 24 3d a4  67 61 67 61 28 62 6c 6f  |..bin$=.gaga(blo|
00003700  63 6b 33 25 29 0d 14 fa  15 7a 25 3d a4 6f 62 6a  |ck3%)....z%=.obj|
00003710  74 79 70 65 28 62 69 6e  24 29 0d 15 04 0c e7 20  |type(bin$)..... |
00003720  7a 25 3d 30 20 8c 0d 15  0e 0f 20 20 c8 8e 20 68  |z%=0 .....  .. h|
00003730  6d 6d 25 20 ca 0d 15 18  58 20 20 20 20 c9 20 30  |mm% ....X    . 0|
00003740  3a 6d 79 20 6e 61 6d 65  20 69 73 20 73 70 65 6c  |:my name is spel|
00003750  74 20 6c 75 78 75 72 79  20 79 61 63 68 74 20 62  |t luxury yacht b|
00003760  75 74 20 69 74 27 73 20  70 72 6f 6e 6f 75 6e 63  |ut it's pronounc|
00003770  65 64 20 27 74 68 72 6f  61 74 2d 77 6f 62 62 6c  |ed 'throat-wobbl|
00003780  65 72 20 6d 61 6e 67 72  6f 76 65 27 2e 0d 15 22  |er mangrove'..."|
00003790  16 20 20 20 20 c9 20 31  3a 62 61 64 62 69 6e 25  |.    . 1:badbin%|
000037a0  3d 2d 31 0d 15 2c 07 20  20 cb 0d 15 36 05 cd 0d  |=-1..,.  ...6...|
000037b0  15 40 14 f2 70 73 28 4f  70 74 2c 31 32 2c 62 69  |.@..ps(Opt,12,bi|
000037c0  6e 24 29 0d 15 4a 05 e1  0d 15 54 13 dd a4 65 6d  |n$)..J....T...em|
000037d0  70 74 79 28 74 68 69 6e  67 24 29 0d 15 5e 0a ea  |pty(thing$)..^..|
000037e0  20 77 6f 74 25 0d 15 68  2d c8 99 26 43 2c 39 2c  | wot%..h-..&C,9,|
000037f0  74 68 69 6e 67 24 2c 62  6c 6f 63 6b 34 25 2c 31  |thing$,block4%,1|
00003800  2c 30 2c 31 33 2c 30 20  b8 20 2c 2c 2c 2c 77 6f  |,0,13,0 . ,,,,wo|
00003810  74 25 0d 15 72 17 e7 20  77 6f 74 25 3d 2d 31 20  |t%..r.. wot%=-1 |
00003820  8c 20 3d b9 20 8b 20 3d  a3 0d 15 7c 12 dd f2 66  |. =. . =...|...f|
00003830  72 65 64 28 7a 61 70 70  61 25 29 0d 15 86 29 ea  |red(zappa%)...).|
00003840  20 63 6f 75 6e 74 25 2c  74 65 6d 70 24 2c 6f 62  | count%,temp$,ob|
00003850  6a 74 79 70 65 25 2c 6e  6f 25 2c 74 65 6d 70 32  |jtype%,no%,temp2|
00003860  24 2c 6e 25 0d 15 90 11  20 20 c8 8e 20 7a 61 70  |$,n%....  .. zap|
00003870  70 61 25 20 ca 0d 15 9a  0b 20 20 20 20 c9 20 31  |pa% .....    . 1|
00003880  0d 15 a4 1e 20 20 20 20  20 20 f2 73 65 61 72 63  |....      .searc|
00003890  68 61 6e 64 63 6f 6d 70  61 72 65 28 30 29 0d 15  |handcompare(0)..|
000038a0  ae 2e 20 20 20 20 20 20  f2 70 73 28 4d 61 76 69  |..      .ps(Mavi|
000038b0  73 2c 31 39 2c c3 28 74  6f 74 25 29 2b 22 20 66  |s,19,.(tot%)+" f|
000038c0  69 6c 65 73 20 66 6f 75  6e 64 22 29 0d 15 b8 34  |iles found")...4|
000038d0  20 20 20 20 20 20 f2 70  73 28 4d 61 76 69 73 2c  |      .ps(Mavis,|
000038e0  31 38 2c c3 28 74 6f 74  61 6c 73 69 7a 65 25 29  |18,.(totalsize%)|
000038f0  2b 22 20 62 79 74 65 73  20 74 6f 74 61 6c 22 29  |+" bytes total")|
00003900  0d 15 c2 26 20 20 20 20  20 20 e7 20 73 70 69 6e  |...&      . spin|
00003910  6f 6e 25 20 f2 69 62 61  72 28 22 53 65 61 72 63  |on% .ibar("Searc|
00003920  68 69 6e 67 22 29 0d 15  cc 0b 20 20 20 20 c9 20  |hing")....    . |
00003930  32 0d 15 d6 1e 20 20 20  20 20 20 f2 73 65 61 72  |2....      .sear|
00003940  63 68 61 6e 64 63 6f 6d  70 61 72 65 28 30 29 0d  |chandcompare(0).|
00003950  15 e0 25 20 20 20 20 20  20 e7 20 73 70 69 6e 6f  |..%      . spino|
00003960  6e 25 20 f2 69 62 61 72  28 22 2e 2e 49 6e 66 6f  |n% .ibar("..Info|
00003970  2e 2e 22 29 0d 15 ea 0b  20 20 20 20 c9 20 34 0d  |..")....    . 4.|
00003980  15 f4 1e 20 20 20 20 20  20 f2 73 65 61 72 63 68  |...      .search|
00003990  61 6e 64 63 6f 6d 70 61  72 65 28 31 29 0d 15 fe  |andcompare(1)...|
000039a0  26 20 20 20 20 20 20 e7  20 73 70 69 6e 6f 6e 25  |&      . spinon%|
000039b0  20 f2 69 62 61 72 28 22  53 71 75 61 73 68 69 6e  | .ibar("Squashin|
000039c0  67 22 29 0d 16 08 07 20  20 cb 0d 16 12 10 20 20  |g")....  .....  |
000039d0  e7 20 77 69 70 25 3d 30  20 8c 0d 16 1c 13 20 20  |. wip%=0 .....  |
000039e0  20 20 c8 8e 20 7a 61 70  70 61 25 20 ca 0d 16 26  |  .. zappa% ...&|
000039f0  16 20 20 20 20 20 20 c9  20 31 3a f2 66 69 6e 73  |.      . 1:.fins|
00003a00  72 63 68 0d 16 30 14 20  20 20 20 20 20 c9 20 32  |rch..0.      . 2|
00003a10  3a f2 66 69 6e 69 6e 0d  16 3a 18 20 20 20 20 20  |:.finin..:.     |
00003a20  20 c9 20 34 3a f2 66 69  6e 73 71 75 61 73 68 0d  | . 4:.finsquash.|
00003a30  16 44 09 20 20 20 20 cb  0d 16 4e 07 20 20 cc 0d  |.D.    ...N.  ..|
00003a40  16 58 30 20 20 20 20 e7  20 7a 61 70 70 61 25 3d  |.X0    . zappa%=|
00003a50  31 20 f2 70 73 28 4d 61  76 69 73 2c 32 31 2c c2  |1 .ps(Mavis,21,.|
00003a60  6d 73 67 24 28 77 69 70  25 29 2c 34 34 29 29 0d  |msg$(wip%),44)).|
00003a70  16 62 07 20 20 cd 0d 16  6c 05 e1 0d 16 76 0d dd  |.b.  ...l....v..|
00003a80  f2 64 6f 61 77 69 70 65  0d 16 80 0d 77 69 70 69  |.doawipe....wipi|
00003a90  6e 67 25 3d b9 0d 16 8a  1e f2 67 65 74 6c 65 61  |ng%=......getlea|
00003aa0  66 6e 61 6d 65 28 77 69  70 65 24 28 63 72 6e 74  |fname(wipe$(crnt|
00003ab0  25 29 29 0d 16 94 36 77  69 70 65 64 69 72 24 3d  |%))...6wipedir$=|
00003ac0  c0 77 69 70 65 24 28 63  72 6e 74 25 29 2c 28 a9  |.wipe$(crnt%),(.|
00003ad0  77 69 70 65 24 28 63 72  6e 74 25 29 2d a9 6c 65  |wipe$(crnt%)-.le|
00003ae0  61 66 6e 61 6d 65 24 29  29 0d 16 9e 29 c8 99 26  |afname$))...)..&|
00003af0  36 30 30 44 45 2c 22 2a  46 69 6c 65 72 5f 41 63  |600DE,"*Filer_Ac|
00003b00  74 69 6f 6e 22 20 b8 20  64 65 6c 68 61 6e 64 6c  |tion" . delhandl|
00003b10  65 25 0d 16 a8 20 c8 99  26 36 30 46 38 30 2c 64  |e%... ..&60F80,d|
00003b20  65 6c 68 61 6e 64 6c 65  25 2c 77 69 70 65 64 69  |elhandle%,wipedi|
00003b30  72 24 0d 16 b2 12 e3 20  6e 25 3d 31 20 b8 20 63  |r$..... n%=1 . c|
00003b40  72 6e 74 25 0d 16 bc 1d  20 20 f2 67 65 74 6c 65  |rnt%....  .getle|
00003b50  61 66 6e 61 6d 65 28 77  69 70 65 24 28 6e 25 29  |afname(wipe$(n%)|
00003b60  29 0d 16 c6 28 20 20 6c  65 61 66 6e 61 6d 65 24  |)...(  leafname$|
00003b70  3d c2 6c 65 61 66 6e 61  6d 65 24 2c a9 6c 65 61  |=.leafname$,.lea|
00003b80  66 6e 61 6d 65 24 2d 31  29 0d 16 d0 2a 20 20 c8  |fname$-1)...*  .|
00003b90  99 26 36 30 46 38 31 2c  64 65 6c 68 61 6e 64 6c  |.&60F81,delhandl|
00003ba0  65 25 2c 6c 65 61 66 6e  61 6d 65 24 2b bd 30 2b  |e%,leafname$+.0+|
00003bb0  22 20 22 0d 16 da 05 ed  0d 16 e4 1b e7 20 28 72  |" ".......... (r|
00003bc0  65 74 61 69 6e 25 20 80  20 ac 20 63 74 72 6c 25  |etain% . . ctrl%|
00003bd0  29 20 8c 0d 16 ee 1c 20  20 74 65 6d 70 32 24 3d  |) .....  temp2$=|
00003be0  62 69 6e 24 2b 22 2e 22  2b 74 6f 64 61 79 24 0d  |bin$+"."+today$.|
00003bf0  16 f8 44 20 20 e7 20 28  28 77 69 70 65 6f 70 74  |..D  . ((wipeopt|
00003c00  25 20 80 20 34 29 3d 34  29 20 6f 62 6a 74 79 70  |% . 4)=4) objtyp|
00003c10  65 25 3d 31 3a 67 65 74  65 6d 25 3d a3 20 8b 20  |e%=1:getem%=. . |
00003c20  6f 62 6a 74 79 70 65 25  3d 30 3a 67 65 74 65 6d  |objtype%=0:getem|
00003c30  25 3d b9 0d 17 02 05 cc  0d 17 0c 23 20 20 6f 62  |%=.........#  ob|
00003c40  6a 74 79 70 65 25 3d 32  3a 74 65 6d 70 32 24 3d  |jtype%=2:temp2$=|
00003c50  22 22 3a 67 65 74 65 6d  25 3d a3 0d 17 16 05 cd  |"":getem%=......|
00003c60  0d 17 20 3a c8 99 26 36  30 46 38 32 2c 64 65 6c  |.. :..&60F82,del|
00003c70  68 61 6e 64 6c 65 25 2c  6f 62 6a 74 79 70 65 25  |handle%,objtype%|
00003c80  2c 77 69 70 65 6f 70 74  25 2c 74 65 6d 70 32 24  |,wipeopt%,temp2$|
00003c90  2c a9 74 65 6d 70 32 24  2b 31 0d 17 2a 05 e1 0d  |,.temp2$+1..*...|
00003ca0  17 34 33 dd a4 66 69 6c  65 72 61 63 74 69 6f 6e  |.43..fileraction|
00003cb0  28 6f 70 25 2c 6f 70 74  25 2c 64 69 72 24 2c 6d  |(op%,opt%,dir$,m|
00003cc0  65 6d 25 2c 64 61 74 61  24 2c 64 61 74 6c 65 6e  |em%,data$,datlen|
00003cd0  25 29 0d 17 3e 09 ea 20  6e 6f 25 0d 17 48 22 c8  |%)..>.. no%..H".|
00003ce0  99 26 36 30 30 44 45 2c  22 2a 46 69 6c 65 72 5f  |.&600DE,"*Filer_|
00003cf0  41 63 74 69 6f 6e 22 20  b8 20 6e 6f 25 0d 17 52  |Action" . no%..R|
00003d00  15 c8 99 26 36 30 46 38  30 2c 6e 6f 25 2c 64 69  |...&60F80,no%,di|
00003d10  72 24 0d 17 5c 15 c8 99  26 36 30 46 38 31 2c 6e  |r$..\...&60F81,n|
00003d20  6f 25 2c 6d 65 6d 25 0d  17 66 29 c8 99 26 36 30  |o%,mem%..f)..&60|
00003d30  46 38 32 2c 6e 6f 25 2c  6f 70 25 2c 6f 70 74 25  |F82,no%,op%,opt%|
00003d40  2c 64 61 74 61 24 2c 64  61 74 6c 65 6e 25 2b 31  |,data$,datlen%+1|
00003d50  0d 17 70 08 3d 6e 6f 25  0d 17 7a 1e dd a4 67 6f  |..p.=no%..z...go|
00003d60  72 62 6c 69 6d 65 79 28  6d 61 74 63 68 24 2c 65  |rblimey(match$,e|
00003d70  6e 74 65 72 24 29 0d 17  84 20 ea 20 63 6f 75 6e  |nter$)... . coun|
00003d80  74 25 2c 6e 61 6d 65 24  2c 63 68 61 72 24 2c 72  |t%,name$,char$,r|
00003d90  65 73 75 6c 74 25 0d 17  8e 16 72 65 73 75 6c 74  |esult%....result|
00003da0  25 3d b9 3a 63 6f 75 6e  74 25 3d 31 0d 17 98 05  |%=.:count%=1....|
00003db0  f5 0d 17 a2 0e 20 20 6e  61 6d 65 24 3d 22 22 0d  |.....  name$="".|
00003dc0  17 ac 07 20 20 f5 0d 17  b6 1f 20 20 20 20 63 68  |...  .....    ch|
00003dd0  61 72 24 3d c1 65 6e 74  65 72 24 2c 63 6f 75 6e  |ar$=.enter$,coun|
00003de0  74 25 2c 31 29 0d 17 c0  2e 20 20 20 20 e7 20 63  |t%,1)....    . c|
00003df0  68 61 72 24 3c 3e 22 23  22 20 80 20 63 68 61 72  |har$<>"#" . char|
00003e00  24 3c 3e 22 2a 22 20 6e  61 6d 65 24 2b 3d 63 68  |$<>"*" name$+=ch|
00003e10  61 72 24 0d 17 ca 11 20  20 20 20 63 6f 75 6e 74  |ar$....    count|
00003e20  25 2b 3d 31 0d 17 d4 30  20 20 fd 20 63 6f 75 6e  |%+=1...0  . coun|
00003e30  74 25 3d a9 65 6e 74 65  72 24 2b 31 20 84 20 63  |t%=.enter$+1 . c|
00003e40  68 61 72 24 3d 22 23 22  20 84 20 63 68 61 72 24  |har$="#" . char$|
00003e50  3d 22 2a 22 0d 17 de 2c  20 20 e7 20 a7 6d 61 74  |="*"...,  . .mat|
00003e60  63 68 24 2c 6e 61 6d 65  24 29 20 72 65 73 75 6c  |ch$,name$) resul|
00003e70  74 25 3d b9 20 8b 20 72  65 73 75 6c 74 25 3d a3  |t%=. . result%=.|
00003e80  0d 17 e8 22 fd 20 63 6f  75 6e 74 25 3d a9 65 6e  |...". count%=.en|
00003e90  74 65 72 24 2b 31 20 84  20 72 65 73 75 6c 74 25  |ter$+1 . result%|
00003ea0  3d a3 0d 17 f2 0c 3d 72  65 73 75 6c 74 25 0d 17  |=.....=result%..|
00003eb0  fc 1b dd a4 6c 75 76 61  64 75 63 6b 28 6c 6f 6f  |....luvaduck(loo|
00003ec0  6b 69 6e 67 25 2c 74 25  29 0d 18 06 1b e7 20 74  |king%,t%)..... t|
00003ed0  25 3d 6c 6f 6f 6b 69 6e  67 25 20 8c 20 3d b9 20  |%=looking% . =. |
00003ee0  8b 20 3d a3 0d 18 10 22  dd a4 74 65 78 74 28 6e  |. =...."..text(n|
00003ef0  61 6d 65 24 2c 74 79 70  65 25 2c 6f 62 6a 25 2c  |ame$,type%,obj%,|
00003f00  73 69 7a 65 25 29 0d 18  1a 13 ea 20 74 65 78 74  |size%)..... text|
00003f10  24 2c 61 63 74 24 2c 6c  25 0d 18 24 1f 74 65 78  |$,act$,l%..$.tex|
00003f20  74 24 3d 6e 61 6d 65 24  2b c4 31 34 2d a9 6e 61  |t$=name$+.14-.na|
00003f30  6d 65 24 2c 22 20 22 29  0d 18 2e 0e e7 20 6f 62  |me$," ")..... ob|
00003f40  6a 25 3d 31 20 8c 0d 18  38 1f 20 20 61 63 74 24  |j%=1 ...8.  act$|
00003f50  3d 22 46 69 6c 65 24 54  79 70 65 5f 22 2b c3 7e  |="File$Type_"+.~|
00003f60  74 79 70 65 25 0d 18 42  29 20 20 c8 99 26 32 30  |type%..B)  ..&20|
00003f70  30 32 33 2c 61 63 74 24  2c 62 6c 6f 63 6b 34 25  |023,act$,block4%|
00003f80  2c 32 30 2c 30 2c 30 20  b8 20 2c 2c 6c 25 0d 18  |,20,0,0 . ,,l%..|
00003f90  4c 27 20 20 61 63 74 24  3d a4 67 65 74 6d 65 6d  |L'  act$=.getmem|
00003fa0  28 62 6c 6f 63 6b 34 25  2c a4 6c 65 73 73 28 6c  |(block4%,.less(l|
00003fb0  25 2c 38 29 29 0d 18 56  1d 20 20 74 65 78 74 24  |%,8))..V.  text$|
00003fc0  2b 3d 61 63 74 24 2b c4  31 30 2d 6c 25 2c 22 20  |+=act$+.10-l%," |
00003fd0  22 29 0d 18 60 20 20 20  74 65 78 74 24 2b 3d 22  |")..`   text$+="|
00003fe0  28 22 2b c3 7e 74 79 70  65 25 2b 22 29 20 20 20  |("+.~type%+")   |
00003ff0  20 22 0d 18 6a 1a 20 20  61 63 74 24 3d c3 73 69  | "..j.  act$=.si|
00004000  7a 65 25 2b 22 20 62 79  74 65 73 22 0d 18 74 31  |ze%+" bytes"..t1|
00004010  20 20 e7 20 73 69 7a 65  25 3e 39 39 39 39 20 61  |  . size%>9999 a|
00004020  63 74 24 3d c3 28 73 69  7a 65 25 20 81 20 31 30  |ct$=.(size% . 10|
00004030  30 30 29 2b 22 20 4b 62  79 74 65 73 22 0d 18 7e  |00)+" Kbytes"..~|
00004040  35 20 20 e7 20 73 69 7a  65 25 3e 39 39 39 39 39  |5  . size%>99999|
00004050  39 20 61 63 74 24 3d c3  28 73 69 7a 65 25 20 81  |9 act$=.(size% .|
00004060  20 31 30 30 30 30 30 29  2b 22 20 4d 62 79 74 65  | 100000)+" Mbyte|
00004070  73 22 0d 18 88 11 20 20  74 65 78 74 24 2b 3d 61  |s"....  text$+=a|
00004080  63 74 24 0d 18 92 05 cc  0d 18 9c 2b 20 20 74 65  |ct$........+  te|
00004090  78 74 24 2b 3d 22 44 69  72 65 63 74 6f 72 79 20  |xt$+="Directory |
000040a0  20 20 20 20 20 20 20 20  32 30 34 38 20 62 79 74  |        2048 byt|
000040b0  65 73 22 0d 18 a6 05 cd  0d 18 b0 0a 3d 74 65 78  |es".........=tex|
000040c0  74 24 0d 18 ba 1e dd f2  6f 70 65 6e 61 72 63 68  |t$......openarch|
000040d0  69 76 65 28 70 61 74 68  24 2c 6e 61 6d 65 24 29  |ive(path$,name$)|
000040e0  0d 18 c4 0f 61 72 63 74  72 69 65 64 25 3d 30 0d  |....arctried%=0.|
000040f0  18 ce 07 ea 20 85 0d 18  d8 4e ee 20 85 20 ea 20  |.... ....N. . . |
00004100  f2 61 72 63 65 72 72 6f  72 28 6e 61 6d 65 24 29  |.arcerror(name$)|
00004110  3a e7 20 61 72 63 74 72  69 65 64 25 3d 32 20 f2  |:. arctried%=2 .|
00004120  74 72 61 70 28 a4 6d 73  67 28 22 61 72 63 6f 70  |trap(.msg("arcop|
00004130  65 6e 22 2c 70 61 74 68  24 2c f6 24 29 2c 30 2c  |en",path$,.$),0,|
00004140  30 29 3a e1 0d 18 e2 1b  ff 28 22 4f 70 65 6e 41  |0):......("OpenA|
00004150  72 63 68 69 76 65 20 22  2b 70 61 74 68 24 29 0d  |rchive "+path$).|
00004160  18 ec 2a 77 69 70 25 2b  3d 31 3a 6d 73 67 24 28  |..*wip%+=1:msg$(|
00004170  77 69 70 25 29 3d 22 61  72 63 66 73 23 22 2b 6e  |wip%)="arcfs#"+n|
00004180  61 6d 65 24 2b 22 3a 24  22 0d 18 f6 05 e1 0d 19  |ame$+":$".......|
00004190  00 15 dd f2 61 72 63 65  72 72 6f 72 28 6e 61 6d  |....arcerror(nam|
000041a0  65 24 29 0d 19 0a 1c ff  28 22 43 6c 6f 73 65 41  |e$).....("CloseA|
000041b0  72 63 68 69 76 65 20 22  2b 6e 61 6d 65 24 29 0d  |rchive "+name$).|
000041c0  19 14 10 61 72 63 74 72  69 65 64 25 2b 3d 31 0d  |...arctried%+=1.|
000041d0  19 1e 05 e1 0d 19 28 12  dd a4 62 75 6d 28 f8 20  |......(...bum(. |
000041e0  61 64 64 72 25 29 0d 19  32 0d ea 62 24 3a 62 24  |addr%)..2..b$:b$|
000041f0  3d 22 22 0d 19 3c 27 c8  95 20 3f 61 64 64 72 25  |=""..<'.. ?addr%|
00004200  3c 3e 30 3a 62 24 2b 3d  bd 3f 61 64 64 72 25 3a  |<>0:b$+=.?addr%:|
00004210  61 64 64 72 25 2b 3d 31  3a ce 0d 19 46 0c 61 64  |addr%+=1:...F.ad|
00004220  64 72 25 2b 3d 31 0d 19  50 07 3d 62 24 0d 19 5a  |dr%+=1..P.=b$..Z|
00004230  0b dd f2 66 69 6e 69 6e  0d 19 64 0b 66 69 6c 65  |...finin..d.file|
00004240  25 3d a3 0d 19 6e 15 f2  69 62 61 72 28 22 22 29  |%=...n..ibar("")|
00004250  3a 62 79 65 25 3d 31 31  0d 19 78 10 e7 20 74 6f  |:bye%=11..x.. to|
00004260  74 25 3e 30 20 f2 66 77  0d 19 82 17 70 6f 6c 6c  |t%>0 .fw....poll|
00004270  6d 61 73 6b 25 3d a4 70  6f 6c 6c 6d 61 73 6b 0d  |mask%=.pollmask.|
00004280  19 8c 16 c8 99 26 32 30  30 31 45 2c 37 2c 2c 73  |.....&2001E,7,,s|
00004290  63 72 61 70 25 0d 19 96  05 e1 0d 19 a0 0f dd f2  |crap%...........|
000042a0  66 69 6e 73 71 75 61 73  68 0d 19 aa 15 f2 69 62  |finsquash.....ib|
000042b0  61 72 28 22 22 29 3a 62  79 65 25 3d 31 31 0d 19  |ar(""):bye%=11..|
000042c0  b4 20 e7 20 6e 65 61 72  6c 79 71 75 69 74 25 20  |. . nearlyquit% |
000042d0  65 78 69 74 25 3d b9 3a  62 79 65 25 3d 31 0d 19  |exit%=.:bye%=1..|
000042e0  be 17 70 6f 6c 6c 6d 61  73 6b 25 3d a4 70 6f 6c  |..pollmask%=.pol|
000042f0  6c 6d 61 73 6b 0d 19 c8  16 c8 99 26 32 30 30 31  |lmask......&2001|
00004300  45 2c 37 2c 2c 73 63 72  61 70 25 0d 19 d2 05 e1  |E,7,,scrap%.....|
00004310  0d 19 dc 16 dd a4 72 61  64 28 68 61 6e 64 25 2c  |......rad(hand%,|
00004320  69 63 6f 6e 25 29 0d 19  e6 36 62 6c 6f 63 6b 32  |icon%)...6block2|
00004330  25 21 30 3d 68 61 6e 64  25 3a 62 6c 6f 63 6b 32  |%!0=hand%:block2|
00004340  25 21 34 3d 69 63 6f 6e  25 3a c8 99 20 26 34 30  |%!4=icon%:.. &40|
00004350  30 43 45 2c 2c 62 6c 6f  63 6b 32 25 0d 19 f0 1a  |0CE,,block2%....|
00004360  3d 28 62 6c 6f 63 6b 32  25 21 32 34 29 20 80 20  |=(block2%!24) . |
00004370  28 32 5e 32 31 29 0d 19  fa 18 dd f2 73 65 6c 69  |(2^21)......seli|
00004380  63 28 77 25 2c 69 25 2c  65 25 2c 74 25 29 0d 1a  |c(w%,i%,e%,t%)..|
00004390  04 4a 62 6c 6f 63 6b 34  25 21 30 3d 77 25 3a 62  |.Jblock4%!0=w%:b|
000043a0  6c 6f 63 6b 34 25 21 34  3d 69 25 3a 62 6c 6f 63  |lock4%!4=i%:bloc|
000043b0  6b 34 25 21 38 3d 65 25  3a 62 6c 6f 63 6b 34 25  |k4%!8=e%:block4%|
000043c0  21 31 32 3d 74 25 3a c8  99 26 34 30 30 43 44 2c  |!12=t%:..&400CD,|
000043d0  2c 62 6c 6f 63 6b 34 25  0d 1a 0e 05 e1 0d 1a 18  |,block4%........|
000043e0  17 dd a4 6c 75 73 74 28  77 69 6e 64 6f 77 2c 69  |...lust(window,i|
000043f0  63 6f 6e 29 0d 1a 22 34  21 62 6c 6f 63 6b 35 25  |con).."4!block5%|
00004400  3d 77 69 6e 64 6f 77 3a  62 6c 6f 63 6b 35 25 21  |=window:block5%!|
00004410  34 3d 69 63 6f 6e 3a c8  99 26 34 30 30 43 45 2c  |4=icon:..&400CE,|
00004420  2c 62 6c 6f 63 6b 35 25  0d 1a 2c 0f 3d 62 6c 6f  |,block5%..,.=blo|
00004430  63 6b 35 25 21 32 38 0d  1a 36 18 dd f2 70 73 28  |ck5%!28..6...ps(|
00004440  77 69 6e 64 6f 77 2c 69  63 6f 6e 2c 73 24 29 0d  |window,icon,s$).|
00004450  1a 40 1c 24 28 a4 6c 75  73 74 28 77 69 6e 64 6f  |.@.$(.lust(windo|
00004460  77 2c 69 63 6f 6e 29 29  3d 73 24 0d 1a 4a 4d 21  |w,icon))=s$..JM!|
00004470  62 6c 6f 63 6b 34 25 3d  77 69 6e 64 6f 77 3a 62  |block4%=window:b|
00004480  6c 6f 63 6b 34 25 21 34  3d 69 63 6f 6e 3a 62 6c  |lock4%!4=icon:bl|
00004490  6f 63 6b 34 25 21 38 3d  30 3a 62 6c 6f 63 6b 34  |ock4%!8=0:block4|
000044a0  25 21 31 32 3d 30 3a c8  99 26 34 30 30 43 44 2c  |%!12=0:..&400CD,|
000044b0  2c 62 6c 6f 63 6b 34 25  0d 1a 54 05 e1 0d 1a 5e  |,block4%..T....^|
000044c0  0e dd f2 69 62 61 72 28  69 24 29 0d 1a 68 0f e7  |...ibar(i$)..h..|
000044d0  20 62 61 64 62 69 6e 25  20 e1 0d 1a 72 0d e7 20  | badbin% ...r.. |
000044e0  69 24 3d 22 22 20 8c 0d  1a 7c 2f 20 20 e7 20 a4  |i$="" ...|/  . .|
000044f0  65 6d 70 74 79 28 62 69  6e 24 29 20 69 24 3d 22  |empty(bin$) i$="|
00004500  45 6d 70 74 79 22 20 8b  20 69 24 3d 22 4f 63 63  |Empty" . i$="Occ|
00004510  75 70 69 65 64 22 0d 1a  86 05 cd 0d 1a 90 0b 24  |upied".........$|
00004520  69 62 74 3d 69 24 0d 1a  9a 2d e7 20 73 70 69 6e  |ibt=i$...-. spin|
00004530  6f 6e 25 20 f2 73 70 69  6e 28 30 29 20 8b 20 f2  |on% .spin(0) . .|
00004540  73 65 6c 69 63 28 2d 32  2c 68 6f 6c 65 25 2c 30  |selic(-2,hole%,0|
00004550  2c 30 29 0d 1a a4 05 e1  0d 1a ae 19 dd f2 6f 70  |,0)...........op|
00004560  65 6e 74 79 70 65 6d 65  6e 75 28 78 25 2c 79 25  |entypemenu(x%,y%|
00004570  29 0d 1a b8 22 ea 20 68  65 69 67 68 74 25 3a 68  |)...". height%:h|
00004580  65 69 67 68 74 25 3d 34  30 2a 6e 6f 66 74 79 70  |eight%=40*noftyp|
00004590  65 73 25 0d 1a c2 1e 62  6c 25 21 30 3d 46 74 79  |es%....bl%!0=Fty|
000045a0  70 65 73 3a c8 99 26 34  30 30 43 43 2c 2c 62 6c  |pes:..&400CC,,bl|
000045b0  25 0d 1a cc 22 62 6c 25  21 34 3d 78 25 2d 31 32  |%..."bl%!4=x%-12|
000045c0  30 3a e7 20 62 6c 25 21  34 3c 30 20 62 6c 25 21  |0:. bl%!4<0 bl%!|
000045d0  34 3d 30 0d 1a d6 44 62  6c 25 21 31 32 3d 62 6c  |4=0...Dbl%!12=bl|
000045e0  25 21 34 2b 33 36 30 3a  e7 20 62 6c 25 21 31 32  |%!4+360:. bl%!12|
000045f0  3e 73 63 72 78 25 20 62  6c 25 21 34 3d 73 63 72  |>scrx% bl%!4=scr|
00004600  78 25 2d 32 39 32 3a 62  6c 25 21 31 32 3d 62 6c  |x%-292:bl%!12=bl|
00004610  25 21 34 2b 33 36 30 0d  1a e0 33 62 6c 25 21 38  |%!4+360...3bl%!8|
00004620  3d a4 6c 65 73 73 28 79  25 2c 73 63 72 79 25 2d  |=.less(y%,scry%-|
00004630  68 65 69 67 68 74 25 29  3a e7 20 62 6c 25 21 38  |height%):. bl%!8|
00004640  3c 30 20 62 6c 25 21 38  3d 30 0d 1a ea 2d 62 6c  |<0 bl%!8=0...-bl|
00004650  25 21 31 36 3d 62 6c 25  21 38 2b a4 6c 65 73 73  |%!16=bl%!8+.less|
00004660  28 73 63 72 79 25 2d 33  32 2c 34 30 2a 6e 6f 66  |(scry%-32,40*nof|
00004670  74 79 70 65 73 25 29 0d  1a f4 1b 62 6c 25 21 32  |types%)....bl%!2|
00004680  38 3d 2d 31 3a c8 99 26  34 30 30 43 35 2c 2c 62  |8=-1:..&400C5,,b|
00004690  6c 25 0d 1a fe 05 e1 0d  1b 08 0b dd f2 65 64 75  |l%...........edu|
000046a0  72 65 0d 1b 12 0a ea 20  6c 2c 74 24 0d 1b 1c 3f  |re..... l,t$...?|
000046b0  f2 70 73 28 41 75 53 61  76 2c 31 2c 46 74 70 24  |.ps(AuSav,1,Ftp$|
000046c0  28 63 75 72 72 70 61 74  68 25 29 29 3a f2 70 73  |(currpath%)):.ps|
000046d0  28 41 75 53 61 76 2c 35  2c 53 76 70 74 68 24 28  |(AuSav,5,Svpth$(|
000046e0  63 75 72 72 70 61 74 68  25 29 29 0d 1b 26 23 74  |currpath%))..&#t|
000046f0  24 3d 22 46 69 6c 65 24  54 79 70 65 5f 22 2b 46  |$="File$Type_"+F|
00004700  74 70 24 28 63 75 72 72  70 61 74 68 25 29 0d 1b  |tp$(currpath%)..|
00004710  30 24 c8 99 26 32 30 30  32 33 2c 74 24 2c 62 6c  |0$..&20023,t$,bl|
00004720  6f 63 6b 33 25 2c 32 30  2c 30 2c 30 20 b8 20 2c  |ock3%,20,0,0 . ,|
00004730  2c 6c 0d 1b 3a 25 24 73  70 73 25 3d a4 67 65 74  |,l..:%$sps%=.get|
00004740  6d 65 6d 28 62 6c 6f 63  6b 33 25 2c a4 6c 65 73  |mem(block3%,.les|
00004750  73 28 6c 2c 38 29 29 0d  1b 44 25 24 73 70 74 25  |s(l,8))..D%$spt%|
00004760  3d 22 73 66 69 6c 65 5f  22 2b 46 74 70 24 28 63  |="sfile_"+Ftp$(c|
00004770  75 72 72 70 61 74 68 25  29 2b bd 30 0d 1b 4e 1f  |urrpath%)+.0..N.|
00004780  f2 73 65 6c 69 63 28 41  75 53 61 76 2c 66 69 6c  |.selic(AuSav,fil|
00004790  65 69 63 6f 6e 25 2c 30  2c 30 29 0d 1b 58 05 e1  |eicon%,0,0)..X..|
000047a0  0d 1b 62 15 dd f2 73 61  76 65 66 69 6c 65 28 74  |..b...savefile(t|
000047b0  79 70 65 25 29 0d 1b 6c  13 f2 69 62 61 72 28 22  |ype%)..l..ibar("|
000047c0  53 61 76 69 6e 67 22 29  0d 1b 76 11 ea 20 6c 65  |Saving")..v.. le|
000047d0  61 66 24 2c 70 61 74 68  24 0d 1b 80 0f 73 61 76  |af$,path$....sav|
000047e0  65 64 69 72 24 3d 22 22  0d 1b 8a 17 6c 65 61 66  |edir$=""....leaf|
000047f0  24 3d a4 67 61 67 61 28  62 6c 25 2b 34 34 29 0d  |$=.gaga(bl%+44).|
00004800  1b 94 0c e7 20 70 25 3e  31 20 8c 0d 1b 9e 13 20  |.... p%>1 ..... |
00004810  20 e3 20 6c 25 3d 30 20  b8 20 70 25 2d 31 0d 1b  | . l%=0 . p%-1..|
00004820  a8 33 20 20 20 20 e7 20  a0 28 22 26 22 2b 46 74  |.3    . .("&"+Ft|
00004830  70 24 28 6c 25 29 29 3d  74 79 70 65 25 20 73 61  |p$(l%))=type% sa|
00004840  76 65 64 69 72 24 3d 53  76 70 74 68 24 28 6c 25  |vedir$=Svpth$(l%|
00004850  29 0d 1b b2 07 20 20 ed  0d 1b bc 05 cd 0d 1b c6  |)....  .........|
00004860  2e e7 20 a0 28 22 26 22  2b 24 28 a4 6c 75 73 74  |.. .("&"+$(.lust|
00004870  28 41 75 53 61 76 2c 31  29 29 2b 22 30 22 29 3d  |(AuSav,1))+"0")=|
00004880  74 79 70 65 25 2a 26 31  30 20 8c 0d 1b d0 1a 20  |type%*&10 ..... |
00004890  20 70 24 3d 24 28 a4 6c  75 73 74 28 41 75 53 61  | p$=$(.lust(AuSa|
000048a0  76 2c 35 29 29 0d 1b da  11 20 20 73 61 76 65 64  |v,5))....  saved|
000048b0  69 72 24 3d 70 24 0d 1b  e4 05 cd 0d 1b ee 28 e7  |ir$=p$........(.|
000048c0  20 73 61 76 65 64 69 72  24 3d 22 22 20 f2 67 65  | savedir$="" .ge|
000048d0  74 62 69 6e 28 30 29 3a  e7 20 62 61 64 62 69 6e  |tbin(0):. badbin|
000048e0  25 20 e1 0d 1b f8 13 e7  20 73 61 76 65 64 69 72  |% ...... savedir|
000048f0  24 3d 22 22 20 8c 0d 1c  02 1e 20 20 73 61 76 65  |$="" .....  save|
00004900  64 69 72 24 3d 62 69 6e  24 2b 22 2e 22 2b 74 6f  |dir$=bin$+"."+to|
00004910  64 61 79 24 0d 1c 0c 3e  20 20 e7 20 a4 6f 62 6a  |day$...>  . .obj|
00004920  74 79 70 65 28 62 69 6e  24 2b 22 2e 22 2b 74 6f  |type(bin$+"."+to|
00004930  64 61 79 24 29 3d 30 20  ff 28 22 43 44 69 72 20  |day$)=0 .("CDir |
00004940  22 2b 62 69 6e 24 2b 22  2e 22 2b 74 6f 64 61 79  |"+bin$+"."+today|
00004950  24 29 0d 1c 16 05 cd 0d  1c 20 1c 70 61 74 68 24  |$)....... .path$|
00004960  3d 73 61 76 65 64 69 72  24 2b 22 2e 22 2b 6c 65  |=savedir$+"."+le|
00004970  61 66 24 0d 1c 2a 19 e7  20 a4 6f 62 6a 74 79 70  |af$..*.. .objtyp|
00004980  65 28 70 61 74 68 24 29  3d 32 20 8c 0d 1c 34 27  |e(path$)=2 ...4'|
00004990  20 20 f2 74 72 61 70 28  a4 6d 73 67 28 22 6e 6f  |  .trap(.msg("no|
000049a0  77 61 79 22 2c 70 61 74  68 24 2c 22 22 29 2c 30  |way",path$,""),0|
000049b0  2c 31 29 0d 1c 3e 05 cc  0d 1c 48 2f 20 20 e7 20  |,1)..>....H/  . |
000049c0  73 63 6f 6e 66 25 20 f2  63 6f 6e 66 69 72 6d 28  |sconf% .confirm(|
000049d0  70 61 74 68 24 29 20 8b  20 f2 73 61 76 65 69 74  |path$) . .saveit|
000049e0  28 70 61 74 68 24 29 0d  1c 52 2a 20 20 e7 20 6f  |(path$)..R*  . o|
000049f0  70 65 6e 25 20 ff 28 22  46 69 6c 65 72 5f 4f 70  |pen% .("Filer_Op|
00004a00  65 6e 44 69 72 20 22 2b  73 61 76 65 64 69 72 24  |enDir "+savedir$|
00004a10  29 0d 1c 5c 05 cd 0d 1c  66 0d f2 69 62 61 72 28  |)..\....f..ibar(|
00004a20  22 22 29 0d 1c 70 05 e1  0d 1c 7a 10 dd f2 73 61  |"")..p....z...sa|
00004a30  76 65 69 74 28 70 24 29  0d 1c 84 31 62 6c 25 21  |veit(p$)...1bl%!|
00004a40  31 32 3d 62 6c 25 21 38  3a 62 6c 25 21 31 36 3d  |12=bl%!8:bl%!16=|
00004a50  32 3a 62 6c 25 21 30 3d  28 28 34 39 2b a9 28 70  |2:bl%!0=((49+.(p|
00004a60  24 29 29 81 20 34 29 2a  34 0d 1c 8e 38 24 28 62  |$)). 4)*4...8$(b|
00004a70  6c 25 2b 34 34 29 3d 70  24 3a 3f 28 62 6c 25 2b  |l%+44)=p$:?(bl%+|
00004a80  34 34 2b a9 28 70 24 29  29 3d 30 3a c8 99 26 34  |44+.(p$))=0:..&4|
00004a90  30 30 45 37 2c 31 37 2c  62 6c 25 2c 62 6c 25 21  |00E7,17,bl%,bl%!|
00004aa0  34 0d 1c 98 05 e1 0d 1c  a2 11 dd f2 63 6f 6e 66  |4...........conf|
00004ab0  69 72 6d 28 70 24 29 0d  1c ac 10 ea 20 62 6f 76  |irm(p$)..... bov|
00004ac0  69 6e 65 25 2c 6e 24 0d  1c b6 1e 6e 24 3d 22 53  |ine%,n$....n$="S|
00004ad0  61 76 65 20 46 69 6c 65  20 61 73 20 22 2b 70 24  |ave File as "+p$|
00004ae0  2b 22 20 3f 22 0d 1c c0  2d e7 20 a4 6f 62 6a 74  |+" ?"...-. .objt|
00004af0  79 70 65 28 70 24 29 3d  31 20 6e 24 2b 3d a4 6d  |ype(p$)=1 n$+=.m|
00004b00  73 67 28 22 65 78 69 73  74 73 22 2c 22 22 2c 22  |sg("exists","","|
00004b10  22 29 0d 1c ca 22 62 6c  6f 63 6b 34 25 21 30 3d  |")..."block4%!0=|
00004b20  30 3a 24 28 62 6c 6f 63  6b 34 25 2b 34 29 3d 6e  |0:$(block4%+4)=n|
00004b30  24 2b bd 30 0d 1c d4 35  c8 99 26 34 30 30 44 46  |$+.0...5..&400DF|
00004b40  2c 62 6c 6f 63 6b 34 25  2c 25 30 30 31 30 30 31  |,block4%,%001001|
00004b50  31 2c 22 42 6c 61 63 6b  20 48 6f 6c 65 22 20 b8  |1,"Black Hole" .|
00004b60  20 2c 62 6f 76 69 6e 65  25 0d 1c de 1c e7 20 62  | ,bovine%..... b|
00004b70  6f 76 69 6e 65 25 3c 3e  32 20 f2 73 61 76 65 69  |ovine%<>2 .savei|
00004b80  74 28 70 24 29 0d 1c e8  05 e1 0d 1c f2 10 dd a4  |t(p$)...........|
00004b90  67 61 67 61 28 61 64 64  25 29 0d 1c fc 0a ea 20  |gaga(add%)..... |
00004ba0  61 6e 73 24 0d 1d 06 0b  61 6e 73 24 3d 22 22 0d  |ans$....ans$="".|
00004bb0  1d 10 28 c8 95 20 3f 61  64 64 25 3e 33 31 3a 61  |..(.. ?add%>31:a|
00004bc0  6e 73 24 2b 3d bd 28 3f  61 64 64 25 29 3a 61 64  |ns$+=.(?add%):ad|
00004bd0  64 25 2b 3d 31 3a ce 0d  1d 1a 09 3d 61 6e 73 24  |d%+=1:.....=ans$|
00004be0  0d 1d 24 11 dd a4 67 65  74 6d 65 6d 28 70 2c 6c  |..$...getmem(p,l|
00004bf0  29 0d 1d 2e 16 ea 20 66  6c 61 74 75 6c 65 6e 63  |)..... flatulenc|
00004c00  65 24 2c 73 74 6f 70 0d  1d 38 0c 73 74 6f 70 3d  |e$,stop..8.stop=|
00004c10  70 2b 6c 0d 1d 42 2a c8  95 20 3f 70 20 80 20 70  |p+l..B*.. ?p . p|
00004c20  3c 73 74 6f 70 3a 66 6c  61 74 75 6c 65 6e 63 65  |<stop:flatulence|
00004c30  24 2b 3d bd 3f 70 3a 70  2b 3d 31 3a ce 0d 1d 4c  |$+=.?p:p+=1:...L|
00004c40  10 3d 66 6c 61 74 75 6c  65 6e 63 65 24 0d 1d 56  |.=flatulence$..V|
00004c50  0f dd a4 6c 65 73 73 28  78 2c 79 29 0d 1d 60 13  |...less(x,y)..`.|
00004c60  e7 20 78 3c 79 20 8c 20  3d 78 20 8b 20 3d 79 0d  |. x<y . =x . =y.|
00004c70  1d 6a 18 dd a4 6d 73 67  28 74 61 67 24 2c 69 74  |.j...msg(tag$,it|
00004c80  24 2c 69 74 31 24 29 0d  1d 74 0b ea 20 66 25 2c  |$,it1$)..t.. f%,|
00004c90  6c 25 0d 1d 7e 39 c8 99  26 36 31 35 30 32 2c 6d  |l%..~9..&61502,m|
00004ca0  73 70 74 72 25 2c 74 61  67 24 2c 6d 65 73 73 61  |sptr%,tag$,messa|
00004cb0  67 65 25 2c 32 35 36 2c  69 74 24 2c 69 74 31 24  |ge%,256,it$,it1$|
00004cc0  20 b8 20 2c 2c 2c 6c 25  3b 66 25 0d 1d 88 13 e7  | . ,,,l%;f%.....|
00004cd0  20 66 25 20 80 20 31 20  8c 20 6c 25 3d 30 0d 1d  | f% . 1 . l%=0..|
00004ce0  92 12 6d 65 73 73 61 67  65 25 3f 6c 25 3d 31 33  |..message%?l%=13|
00004cf0  0d 1d 9c 0e 3d 24 6d 65  73 73 61 67 65 25 0d 1d  |....=$message%..|
00004d00  a6 1c dd f2 63 68 61 6e  67 65 6d 61 76 69 73 28  |....changemavis(|
00004d10  66 61 72 74 24 2c 6d 65  24 29 0d 1d b0 28 f2 70  |fart$,me$)...(.p|
00004d20  73 28 4d 61 76 69 73 2c  32 30 2c 6d 65 24 29 3a  |s(Mavis,20,me$):|
00004d30  f2 70 73 28 4d 61 76 69  73 2c 34 2c 66 61 72 74  |.ps(Mavis,4,fart|
00004d40  24 29 0d 1d ba 05 e1 0d  1d c4 0d dd f2 66 69 6e  |$)...........fin|
00004d50  73 72 63 68 0d 1d ce 0b  ea 20 6e 25 2c 6c 25 0d  |srch..... n%,l%.|
00004d60  1d d8 0d f2 69 62 61 72  28 22 22 29 0d 1d e2 29  |....ibar("")...)|
00004d70  f2 63 68 61 6e 67 65 6d  61 76 69 73 28 22 47 4f  |.changemavis("GO|
00004d80  22 2c 22 50 72 65 76 69  6f 75 73 20 53 65 61 72  |","Previous Sear|
00004d90  63 68 3a 22 29 0d 1d ec  20 e7 20 66 69 6c 65 25  |ch:")... . file%|
00004da0  20 66 69 6c 65 25 3d a3  3a e7 20 74 6f 74 25 3e  | file%=.:. tot%>|
00004db0  30 20 f2 66 77 0d 1d f6  30 62 79 65 25 3d 31 31  |0 .fw...0bye%=11|
00004dc0  3a f2 70 73 28 4d 61 76  69 73 2c 32 31 2c 22 22  |:.ps(Mavis,21,""|
00004dd0  29 3a 70 6f 6c 6c 6d 61  73 6b 25 3d a4 70 6f 6c  |):pollmask%=.pol|
00004de0  6c 6d 61 73 6b 0d 1e 00  16 c8 99 26 32 30 30 31  |lmask......&2001|
00004df0  45 2c 37 2c 2c 73 63 72  61 70 25 0d 1e 0a 40 e7  |E,7,,scrap%...@.|
00004e00  20 74 6f 6f 6d 61 6e 79  66 69 6c 65 73 25 20 f2  | toomanyfiles% .|
00004e10  74 72 61 70 28 a4 6d 73  67 28 22 74 6d 66 22 2c  |trap(.msg("tmf",|
00004e20  22 22 2c 22 22 29 2c 30  2c 30 29 3a 74 6f 6f 6d  |"",""),0,0):toom|
00004e30  61 6e 79 66 69 6c 65 73  25 3d a3 0d 1e 14 28 f2  |anyfiles%=....(.|
00004e40  70 73 28 4d 61 76 69 73  2c 31 39 2c c3 28 74 6f  |ps(Mavis,19,.(to|
00004e50  74 25 29 2b 22 20 66 69  6c 65 73 20 66 6f 75 6e  |t%)+" files foun|
00004e60  64 22 29 0d 1e 1e 2e f2  70 73 28 4d 61 76 69 73  |d").....ps(Mavis|
00004e70  2c 31 38 2c c3 28 74 6f  74 61 6c 73 69 7a 65 25  |,18,.(totalsize%|
00004e80  29 2b 22 20 62 79 74 65  73 20 74 6f 74 61 6c 22  |)+" bytes total"|
00004e90  29 0d 1e 28 05 e1 0d 1e  32 08 dd f2 66 77 0d 1e  |)..(....2...fw..|
00004ea0  3c 14 ea 20 77 69 64 74  68 25 2c 68 65 69 67 68  |<.. width%,heigh|
00004eb0  74 25 0d 1e 46 1c 77 69  64 74 68 25 3d 33 32 2b  |t%..F.width%=32+|
00004ec0  31 36 2a 65 6e 74 72 79  77 69 64 74 68 25 0d 1e  |16*entrywidth%..|
00004ed0  50 19 68 65 69 67 68 74  25 3d 33 36 2a 28 66 6f  |P.height%=36*(fo|
00004ee0  75 6e 64 25 2b 31 29 0d  1e 5a 1e e7 20 66 6f 75  |und%+1)..Z.. fou|
00004ef0  6e 64 6f 70 65 6e 25 20  f2 63 6c 6f 73 65 28 46  |ndopen% .close(F|
00004f00  6f 75 6e 64 29 0d 1e 64  30 62 6c 25 21 30 3d 30  |ound)..d0bl%!0=0|
00004f10  3a 62 6c 25 21 34 3d 2d  68 65 69 67 68 74 25 3a  |:bl%!4=-height%:|
00004f20  62 6c 25 21 38 3d 77 69  64 74 68 25 3a 62 6c 25  |bl%!8=width%:bl%|
00004f30  21 31 32 3d 30 0d 1e 6e  16 c8 99 26 34 30 30 44  |!12=0..n...&400D|
00004f40  37 2c 46 6f 75 6e 64 2c  62 6c 25 0d 1e 78 1b e7  |7,Found,bl%..x..|
00004f50  20 73 63 72 78 25 3e 31  36 30 30 20 73 63 72 78  | scrx%>1600 scrx|
00004f60  25 3d 31 36 30 30 0d 1e  82 1d 62 6c 25 21 30 3d  |%=1600....bl%!0=|
00004f70  46 6f 75 6e 64 3a c8 99  26 34 30 30 43 43 2c 2c  |Found:..&400CC,,|
00004f80  62 6c 25 0d 1e 8c 54 e7  20 77 69 64 74 68 25 3e  |bl%...T. width%>|
00004f90  73 63 72 78 25 20 62 6c  25 21 34 3d 30 3a 62 6c  |scrx% bl%!4=0:bl|
00004fa0  25 21 31 32 3d 73 63 72  78 25 20 8b 20 62 6c 25  |%!12=scrx% . bl%|
00004fb0  21 34 3d 28 73 63 72 78  25 2d 77 69 64 74 68 25  |!4=(scrx%-width%|
00004fc0  29 2f 32 3a 62 6c 25 21  31 32 3d 62 6c 25 21 34  |)/2:bl%!12=bl%!4|
00004fd0  2b 77 69 64 74 68 25 0d  1e 96 57 e7 20 68 65 69  |+width%...W. hei|
00004fe0  67 68 74 25 3e 73 63 72  79 25 20 62 6c 25 21 38  |ght%>scry% bl%!8|
00004ff0  3d 30 3a 62 6c 25 21 31  36 3d 73 63 72 79 25 20  |=0:bl%!16=scry% |
00005000  8b 20 62 6c 25 21 38 3d  28 73 63 72 79 25 2d 68  |. bl%!8=(scry%-h|
00005010  65 69 67 68 74 25 29 2f  32 3a 62 6c 25 21 31 36  |eight%)/2:bl%!16|
00005020  3d 62 6c 25 21 38 2b 68  65 69 67 68 74 25 0d 1e  |=bl%!8+height%..|
00005030  a0 1b 62 6c 25 21 32 38  3d 2d 31 3a c8 99 26 34  |..bl%!28=-1:..&4|
00005040  30 30 43 35 2c 2c 62 6c  25 0d 1e aa 10 66 6f 75  |00C5,,bl%....fou|
00005050  6e 64 6f 70 65 6e 25 3d  b9 0d 1e b4 05 e1 0d 1e  |ndopen%=........|
00005060  be 0d dd a4 77 66 74 28  79 25 29 0d 1e c8 10 ea  |....wft(y%).....|
00005070  20 74 6f 70 25 2c 79 6f  66 66 25 0d 1e d2 25 21  | top%,yoff%...%!|
00005080  62 6c 6f 63 6b 34 25 3d  46 74 79 70 65 73 3a c8  |block4%=Ftypes:.|
00005090  99 26 34 30 30 43 42 2c  2c 62 6c 6f 63 6b 34 25  |.&400CB,,block4%|
000050a0  0d 1e dc 27 74 6f 70 25  3d 62 6c 6f 63 6b 34 25  |...'top%=block4%|
000050b0  21 31 36 2d 31 36 3a 79  6f 66 66 25 3d 62 6c 6f  |!16-16:yoff%=blo|
000050c0  63 6b 34 25 21 32 34 0d  1e e6 19 3d 28 74 6f 70  |ck4%!24....=(top|
000050d0  25 2d 79 6f 66 66 25 2d  79 25 29 20 81 20 34 30  |%-yoff%-y%) . 40|
000050e0  0d 1e f0 0c dd f2 72 65  64 72 61 77 0d 1e fa 19  |......redraw....|
000050f0  c8 99 26 34 30 30 43 38  2c 2c 62 6c 25 20 b8 20  |..&400C8,,bl% . |
00005100  6d 6f 72 65 25 0d 1f 04  17 78 30 25 3d 31 36 2b  |more%....x0%=16+|
00005110  62 6c 25 21 34 2d 62 6c  25 21 32 30 0d 1f 0e 19  |bl%!4-bl%!20....|
00005120  79 30 25 3d 2d 31 36 2b  62 6c 25 21 31 36 2d 62  |y0%=-16+bl%!16-b|
00005130  6c 25 21 32 34 0d 1f 18  0c c8 95 20 6d 6f 72 65  |l%!24...... more|
00005140  25 0d 1f 22 1c 20 20 74  6f 70 25 3d 28 79 30 25  |%..".  top%=(y0%|
00005150  2d 62 6c 25 21 34 30 29  20 81 20 33 36 0d 1f 2c  |-bl%!40) . 36..,|
00005160  15 20 20 e7 20 74 6f 70  25 3c 30 20 74 6f 70 25  |.  . top%<0 top%|
00005170  3d 30 0d 1f 36 20 20 20  62 61 73 65 25 3d 28 34  |=0..6   base%=(4|
00005180  37 2b 79 30 25 2d 62 6c  25 21 33 32 29 20 81 20  |7+y0%-bl%!32) . |
00005190  33 36 0d 1f 40 0d 20 20  69 25 3d 74 6f 70 25 0d  |36..@.  i%=top%.|
000051a0  1f 4a 1e 20 20 c8 95 20  69 25 3c 66 6f 75 6e 64  |.J.  .. i%<found|
000051b0  25 20 80 20 69 25 3c 3d  62 61 73 65 25 0d 1f 54  |% . i%<=base%..T|
000051c0  19 20 20 20 20 ec 20 78  30 25 2c 79 30 25 2d 28  |.    . x0%,y0%-(|
000051d0  33 36 2a 69 25 29 0d 1f  5e 40 20 20 20 20 e7 20  |36*i%)..^@    . |
000051e0  a7 24 28 74 65 78 74 25  2b 69 25 2a 65 6e 74 72  |.$(text%+i%*entr|
000051f0  79 77 69 64 74 68 25 29  2c 22 5b 22 29 20 c8 99  |ywidth%),"[") ..|
00005200  26 34 30 30 45 36 2c 31  31 20 8b 20 c8 99 26 34  |&400E6,11 . ..&4|
00005210  30 30 45 36 2c 37 0d 1f  68 19 20 20 20 20 e7 20  |00E6,7..h.    . |
00005220  69 25 3d 30 20 c8 99 26  34 30 30 45 36 2c 38 0d  |i%=0 ..&400E6,8.|
00005230  1f 72 20 20 20 20 20 f1  24 28 74 65 78 74 25 2b  |.r     .$(text%+|
00005240  69 25 2a 65 6e 74 72 79  77 69 64 74 68 25 29 0d  |i%*entrywidth%).|
00005250  1f 7c 0d 20 20 20 20 69  25 2b 3d 31 0d 1f 86 07  |.|.    i%+=1....|
00005260  20 20 ce 0d 1f 90 1b 20  20 c8 99 26 34 30 30 43  |  .....  ..&400C|
00005270  41 2c 2c 62 6c 25 20 b8  20 6d 6f 72 65 25 0d 1f  |A,,bl% . more%..|
00005280  9a 05 ce 0d 1f a4 05 e1  0d 1f ae 17 dd f2 73 70  |..............sp|
00005290  72 69 74 65 6d 65 6e 75  28 78 25 2c 79 25 29 0d  |ritemenu(x%,y%).|
000052a0  1f b8 0d 63 6c 6d 65 6e  75 25 3d a3 0d 1f c2 0d  |...clmenu%=.....|
000052b0  4d 25 3d 4d 65 6e 75 73  25 0d 1f cc 1f f2 53 74  |M%=Menus%.....St|
000052c0  61 72 74 61 6d 65 6e 75  28 22 53 70 72 69 74 65  |artamenu("Sprite|
000052d0  20 46 69 6c 65 73 22 29  0d 1f d6 24 e7 20 a4 64  | Files")...$. .d|
000052e0  69 72 6d 65 6e 75 28 68  6f 6d 65 24 2b 22 2e 53  |irmenu(home$+".S|
000052f0  70 72 69 74 65 73 22 2c  31 29 20 8c 0d 1f e0 1f  |prites",1) .....|
00005300  20 20 c8 99 26 34 30 30  44 34 2c 2c 4d 65 6e 75  |  ..&400D4,,Menu|
00005310  73 25 2c 78 25 2d 34 38  2c 79 25 0d 1f ea 13 20  |s%,x%-48,y%.... |
00005320  20 73 70 72 69 74 65 6d  65 6e 75 25 3d b9 0d 1f  | spritemenu%=...|
00005330  f4 05 cd 0d 1f fe 05 e1  0d 20 08 19 dd a4 64 69  |......... ....di|
00005340  72 6d 65 6e 75 28 70 61  74 68 24 2c 61 63 74 25  |rmenu(path$,act%|
00005350  29 0d 20 12 28 ea 61 64  64 72 25 2c 6c 25 2c 6e  |). .(.addr%,l%,n|
00005360  25 2c 64 6f 6e 65 25 2c  6d 65 6d 25 2c 6e 61 6d  |%,done%,mem%,nam|
00005370  65 24 2c 69 74 65 6d 73  25 0d 20 1c 1e 6d 65 6d  |e$,items%. ..mem|
00005380  25 3d a4 64 69 6d 28 33  30 30 30 29 3a e7 20 6d  |%=.dim(3000):. m|
00005390  65 6d 25 3d 30 20 e1 0d  20 26 0b 64 6f 6e 65 25  |em%=0 .. &.done%|
000053a0  3d a3 0d 20 30 10 6d 65  6e 6d 61 73 6b 25 3d a4  |=.. 0.menmask%=.|
000053b0  6d 66 0d 20 3a 0c 69 74  65 6d 73 25 3d 30 0d 20  |mf. :.items%=0. |
000053c0  44 27 c8 99 26 43 2c 39  2c 70 61 74 68 24 2c 6d  |D'..&C,9,path$,m|
000053d0  65 6d 25 2c 37 37 2c 30  2c 33 30 30 30 20 b8 20  |em%,77,0,3000 . |
000053e0  2c 2c 2c 6e 25 0d 20 4e  0c e7 20 6e 25 3e 30 20  |,,,n%. N.. n%>0 |
000053f0  8c 0d 20 58 10 20 20 61  64 64 72 25 3d 6d 65 6d  |.. X.  addr%=mem|
00005400  25 0d 20 62 11 20 20 e3  20 6c 25 3d 31 20 b8 20  |%. b.  . l%=1 . |
00005410  6e 25 0d 20 6c 19 20 20  20 20 6e 61 6d 65 24 3d  |n%. l.    name$=|
00005420  a4 62 75 6d 28 61 64 64  72 25 29 0d 20 76 11 20  |.bum(addr%). v. |
00005430  20 20 20 c8 8e 20 61 63  74 25 20 ca 0d 20 80 0d  |   .. act% .. ..|
00005440  20 20 20 20 20 20 c9 20  30 0d 20 8a 23 20 20 20  |      . 0. .#   |
00005450  20 20 20 20 20 f2 6d 61  64 28 6e 61 6d 65 24 2c  |     .mad(name$,|
00005460  30 29 3a 69 74 65 6d 73  25 2b 3d 31 0d 20 94 0d  |0):items%+=1. ..|
00005470  20 20 20 20 20 20 c9 20  31 0d 20 9e 1a 20 20 20  |      . 1. ..   |
00005480  20 20 20 20 20 c8 8e 20  c2 6e 61 6d 65 24 2c 32  |     .. .name$,2|
00005490  29 20 ca 0d 20 a8 14 20  20 20 20 20 20 20 20 20  |) .. ..         |
000054a0  20 c9 20 22 32 32 22 0d  20 b2 14 20 20 20 20 20  | . "22". ..     |
000054b0  20 20 20 20 20 c9 20 22  32 33 22 0d 20 bc 27 20  |     . "23". .' |
000054c0  20 20 20 20 20 20 20 20  20 7f 3a f2 6d 61 64 28  |         .:.mad(|
000054d0  6e 61 6d 65 24 2c 30 29  3a 69 74 65 6d 73 25 2b  |name$,0):items%+|
000054e0  3d 31 0d 20 c6 0d 20 20  20 20 20 20 20 20 cb 0d  |=1. ..        ..|
000054f0  20 d0 09 20 20 20 20 cb  0d 20 da 07 20 20 ed 0d  | ..    .. ..  ..|
00005500  20 e4 42 20 20 e7 20 61  63 74 25 3d 30 20 f2 73  | .B  . act%=0 .s|
00005510  71 75 69 64 67 65 28 69  74 65 6d 73 25 2c 26 38  |quidge(items%,&8|
00005520  30 2c 2d 31 29 20 8b 20  f2 73 71 75 69 64 67 65  |0,-1) . .squidge|
00005530  28 69 74 65 6d 73 25 2d  31 2c 26 38 30 2c 2d 31  |(items%-1,&80,-1|
00005540  29 0d 20 ee 0d 20 20 64  6f 6e 65 25 3d b9 0d 20  |). ..  done%=.. |
00005550  f8 05 cd 0d 21 02 14 c8  99 26 32 30 30 31 45 2c  |....!....&2001E,|
00005560  37 2c 2c 6d 65 6d 25 0d  21 0c 0a 3d 64 6f 6e 65  |7,,mem%.!..=done|
00005570  25 0d 21 16 13 dd f2 73  70 6d 65 6e 75 28 69 74  |%.!....spmenu(it|
00005580  65 6d 25 29 0d 21 20 2f  73 70 72 69 74 65 73 24  |em%).! /sprites$|
00005590  3d a4 67 61 67 61 28 28  4d 65 6e 75 73 25 2b 32  |=.gaga((Menus%+2|
000055a0  38 29 2b 28 28 69 74 65  6d 25 29 2a 32 34 29 2b  |8)+((item%)*24)+|
000055b0  31 32 29 0d 21 2a 30 ff  28 22 49 63 6f 6e 53 70  |12).!*0.("IconSp|
000055c0  72 69 74 65 73 20 22 2b  68 6f 6d 65 24 2b 22 2e  |rites "+home$+".|
000055d0  53 70 72 69 74 65 73 2e  22 2b 73 70 72 69 74 65  |Sprites."+sprite|
000055e0  73 24 29 0d 21 34 18 f2  70 73 28 4f 70 74 2c 31  |s$).!4..ps(Opt,1|
000055f0  38 2c 73 70 72 69 74 65  73 24 29 0d 21 3e 0d f2  |8,sprites$).!>..|
00005600  69 62 61 72 28 22 22 29  0d 21 48 11 73 70 72 69  |ibar("").!H.spri|
00005610  74 65 6d 65 6e 75 25 3d  a3 0d 21 52 11 c8 99 26  |temenu%=..!R...&|
00005620  34 30 30 43 46 2c 2c 62  6c 25 0d 21 5c 2c e7 20  |400CF,,bl%.!\,. |
00005630  28 62 6c 25 21 38 20 80  20 31 29 3d 31 20 f2 73  |(bl%!8 . 1)=1 .s|
00005640  70 72 69 74 65 6d 65 6e  75 28 62 6c 25 21 34 2c  |pritemenu(bl%!4,|
00005650  62 6c 25 21 38 29 0d 21  66 05 e1 0d 21 70 1f dd  |bl%!8).!f...!p..|
00005660  f2 73 65 61 72 63 68 61  6e 64 63 6f 6d 70 61 72  |.searchandcompar|
00005670  65 28 61 63 74 69 6f 6e  25 29 0d 21 7a 50 ea 20  |e(action%).!zP. |
00005680  63 6f 75 6e 74 25 2c 61  64 64 72 25 2c 74 65 6d  |count%,addr%,tem|
00005690  70 24 2c 74 65 6d 70 32  24 2c 66 69 6c 65 74 79  |p$,temp2$,filety|
000056a0  70 65 25 2c 6f 62 6a 74  79 70 65 25 2c 6f 74 6f  |pe%,objtype%,oto|
000056b0  74 25 2c 67 25 2c 6e 6f  25 2c 6f 75 74 70 75 74  |t%,g%,no%,output|
000056c0  24 2c 6e 25 2c 73 69 7a  65 25 0d 21 84 32 63 6f  |$,n%,size%.!.2co|
000056d0  75 6e 74 25 3d 30 3a 61  64 64 72 25 3d 73 63 72  |unt%=0:addr%=scr|
000056e0  61 70 25 3a 74 65 6d 70  24 3d 6d 73 67 24 28 77  |ap%:temp$=msg$(w|
000056f0  69 70 25 29 3a 77 69 70  25 2d 3d 31 0d 21 8e 2d  |ip%):wip%-=1.!.-|
00005700  c8 99 26 43 2c 31 30 2c  74 65 6d 70 24 2c 73 63  |..&C,10,temp$,sc|
00005710  72 61 70 25 2c 37 37 2c  30 2c 33 30 30 30 2c 30  |rap%,77,0,3000,0|
00005720  20 b8 20 2c 2c 2c 6e 6f  25 0d 21 98 0d e7 20 6e  | . ,,,no%.!... n|
00005730  6f 25 3e 30 20 8c 0d 21  a2 07 20 20 f5 0d 21 ac  |o%>0 ..!..  ..!.|
00005740  2a 20 20 20 20 66 69 6c  65 74 79 70 65 25 3d 28  |*    filetype%=(|
00005750  28 28 61 64 64 72 25 21  30 29 3e 3e 3e 38 29 20  |((addr%!0)>>>8) |
00005760  80 20 26 46 46 46 29 0d  21 b6 23 20 20 20 20 6f  |. &FFF).!.#    o|
00005770  62 6a 74 79 70 65 25 3d  61 64 64 72 25 21 31 36  |bjtype%=addr%!16|
00005780  3a 61 64 64 72 25 2b 3d  32 30 0d 21 c0 1a 20 20  |:addr%+=20.!..  |
00005790  20 20 74 65 6d 70 32 24  3d a4 62 75 6d 28 61 64  |  temp2$=.bum(ad|
000057a0  64 72 25 29 0d 21 ca 20  20 20 20 20 6f 75 74 70  |dr%).!.     outp|
000057b0  75 74 24 3d 74 65 6d 70  24 2b 22 2e 22 2b 74 65  |ut$=temp$+"."+te|
000057c0  6d 70 32 24 0d 21 d4 15  20 20 20 20 c8 8e 20 6f  |mp2$.!..    .. o|
000057d0  62 6a 74 79 70 65 25 20  ca 0d 21 de 36 20 20 20  |bjtype% ..!.6   |
000057e0  20 20 20 c9 20 31 3a f2  74 68 69 6e 6b 28 61 63  |   . 1:.think(ac|
000057f0  74 69 6f 6e 25 2c 66 69  6c 65 74 79 70 65 25 2c  |tion%,filetype%,|
00005800  6f 75 74 70 75 74 24 2c  74 65 6d 70 32 24 29 0d  |output$,temp2$).|
00005810  21 e8 2a 20 20 20 20 20  20 c9 20 32 2c 33 3a 77  |!.*      . 2,3:w|
00005820  69 70 25 2b 3d 31 3a 6d  73 67 24 28 77 69 70 25  |ip%+=1:msg$(wip%|
00005830  29 3d 6f 75 74 70 75 74  24 0d 21 f2 09 20 20 20  |)=output$.!..   |
00005840  20 cb 0d 21 fc 11 20 20  20 20 63 6f 75 6e 74 25  | ..!..    count%|
00005850  2b 3d 31 0d 22 06 23 20  20 20 20 c8 95 20 28 61  |+=1.".#    .. (a|
00005860  64 64 72 25 20 83 20 34  29 3e 30 3a 61 64 64 72  |ddr% . 4)>0:addr|
00005870  25 2b 3d 31 3a ce 0d 22  10 12 20 20 fd 20 63 6f  |%+=1:.."..  . co|
00005880  75 6e 74 25 3d 6e 6f 25  0d 22 1a 22 20 20 e7 20  |unt%=no%."."  . |
00005890  61 63 74 69 6f 6e 25 3d  30 20 f2 67 65 74 66 69  |action%=0 .getfi|
000058a0  6c 65 73 28 74 65 6d 70  24 29 0d 22 24 05 cd 0d  |les(temp$)."$...|
000058b0  22 2e 05 e1 0d 22 38 27  dd f2 74 68 69 6e 6b 28  |"...."8'..think(|
000058c0  74 68 6f 75 67 68 74 25  2c 74 79 70 65 25 2c 66  |thought%,type%,f|
000058d0  75 6c 6c 24 2c 6e 61 6d  65 24 29 0d 22 42 11 c8  |ull$,name$)."B..|
000058e0  8e 20 74 68 6f 75 67 68  74 25 20 ca 0d 22 4c 09  |. thought% .."L.|
000058f0  20 20 c9 20 30 0d 22 56  3a 20 20 20 20 e7 20 74  |  . 0."V:    . t|
00005900  79 70 65 25 3d 26 44 44  43 20 80 20 75 73 65 61  |ype%=&DDC . usea|
00005910  72 63 66 73 25 20 f2 6f  70 65 6e 61 72 63 68 69  |rcfs% .openarchi|
00005920  76 65 28 66 75 6c 6c 24  2c 6e 61 6d 65 24 29 0d  |ve(full$,name$).|
00005930  22 60 09 20 20 c9 20 31  0d 22 6a 17 20 20 20 20  |"`.  . 1."j.    |
00005940  e7 20 74 79 70 65 25 3c  3e 26 46 43 41 20 8c 0d  |. type%<>&FCA ..|
00005950  22 74 22 20 20 20 20 20  20 ff 28 22 41 63 63 65  |"t"      .("Acce|
00005960  73 73 20 22 2b 66 75 6c  6c 24 2b 22 20 52 57 22  |ss "+full$+" RW"|
00005970  29 0d 22 7e 23 20 20 20  20 20 20 c8 99 26 34 30  |)."~#      ..&40|
00005980  30 44 45 2c 22 2a 53 71  75 61 73 68 20 22 2b 66  |0DE,"*Squash "+f|
00005990  75 6c 6c 24 0d 22 88 09  20 20 20 20 cd 0d 22 92  |ull$."..    ..".|
000059a0  05 cb 0d 22 9c 05 e1 0d  22 a6 15 dd f2 67 65 74  |..."...."....get|
000059b0  66 69 6c 65 73 28 74 65  6d 70 24 29 0d 22 b0 3e  |files(temp$).".>|
000059c0  ea 20 6f 74 6f 74 25 2c  67 25 2c 6e 6f 25 2c 6e  |. otot%,g%,no%,n|
000059d0  25 2c 63 6f 75 6e 74 25  2c 61 64 64 72 25 2c 70  |%,count%,addr%,p|
000059e0  6f 73 25 2c 6c 69 6e 65  24 2c 6d 69 64 25 2c 62  |os%,line$,mid%,b|
000059f0  72 65 61 6b 25 2c 62 75  6d 25 0d 22 ba 0e 6f 74  |reak%,bum%."..ot|
00005a00  6f 74 25 3d 74 6f 74 25  0d 22 c4 0d e7 20 66 69  |ot%=tot%."... fi|
00005a10  6c 65 25 20 8c 0d 22 ce  0c 20 20 6d 69 64 25 3d  |le% .."..  mid%=|
00005a20  31 0d 22 d8 07 20 20 f5  0d 22 e2 0e 20 20 20 20  |1."..  .."..    |
00005a30  70 6f 73 25 3d 30 0d 22  ec 10 20 20 20 20 62 72  |pos%=0."..    br|
00005a40  65 61 6b 25 3d a3 0d 22  f6 09 20 20 20 20 f5 0d  |eak%=.."..    ..|
00005a50  23 00 11 20 20 20 20 20  20 70 6f 73 25 2b 3d 31  |#..      pos%+=1|
00005a60  0d 23 0a 21 20 20 20 20  20 20 6c 69 6e 65 24 3d  |.#.!      line$=|
00005a70  c1 74 65 6d 70 24 2c 6d  69 64 25 2c 70 6f 73 25  |.temp$,mid%,pos%|
00005a80  29 0d 23 14 3e 20 20 20  20 20 20 e7 20 28 c2 6c  |).#.>      . (.l|
00005a90  69 6e 65 24 2c 31 29 3d  22 2e 22 20 80 20 a9 6c  |ine$,1)="." . .l|
00005aa0  69 6e 65 24 3e 28 65 6e  74 72 79 77 69 64 74 68  |ine$>(entrywidth|
00005ab0  25 2d 31 33 29 29 20 62  72 65 61 6b 25 3d b9 0d  |%-13)) break%=..|
00005ac0  23 1e 2c 20 20 20 20 20  20 62 75 6d 25 3d a9 28  |#.,      bum%=.(|
00005ad0  c2 74 65 6d 70 24 2c a9  74 65 6d 70 24 2d 6d 69  |.temp$,.temp$-mi|
00005ae0  64 25 2d 70 6f 73 25 29  29 2b 33 0d 23 28 33 20  |d%-pos%))+3.#(3 |
00005af0  20 20 20 20 20 e7 20 28  28 a9 6c 69 6e 65 24 29  |     . ((.line$)|
00005b00  2b 62 75 6d 25 29 3c 3d  65 6e 74 72 79 77 69 64  |+bum%)<=entrywid|
00005b10  74 68 25 2d 32 20 62 72  65 61 6b 25 3d a3 0d 23  |th%-2 break%=..#|
00005b20  32 25 20 20 20 20 20 20  e7 20 6d 69 64 25 2b 70  |2%      . mid%+p|
00005b30  6f 73 25 3e a9 74 65 6d  70 24 20 62 72 65 61 6b  |os%>.temp$ break|
00005b40  25 3d b9 0d 23 3c 10 20  20 20 20 fd 20 62 72 65  |%=..#<.    . bre|
00005b50  61 6b 25 0d 23 46 45 20  20 20 20 24 28 74 65 78  |ak%.#FE    $(tex|
00005b60  74 25 2b 6c 69 73 74 25  29 3d 22 5b 22 2b 6c 69  |t%+list%)="["+li|
00005b70  6e 65 24 2b 22 5d 22 2b  bd 31 33 3a 66 6f 75 6e  |ne$+"]"+.13:foun|
00005b80  64 25 2b 3d 31 3a 6c 69  73 74 25 2b 3d 65 6e 74  |d%+=1:list%+=ent|
00005b90  72 79 77 69 64 74 68 25  0d 23 50 12 20 20 20 20  |rywidth%.#P.    |
00005ba0  6d 69 64 25 2b 3d 70 6f  73 25 0d 23 5a 14 20 20  |mid%+=pos%.#Z.  |
00005bb0  fd 20 6d 69 64 25 3e 3d  a9 74 65 6d 70 24 0d 23  |. mid%>=.temp$.#|
00005bc0  64 05 cd 0d 23 6e 11 e3  20 67 25 3d 31 20 b8 20  |d...#n.. g%=1 . |
00005bd0  77 6f 74 25 0d 23 78 1b  20 20 63 6f 75 6e 74 25  |wot%.#x.  count%|
00005be0  3d 30 3a 61 64 64 72 25  3d 73 63 72 61 70 25 0d  |=0:addr%=scrap%.|
00005bf0  23 82 36 20 20 c8 99 26  43 2c 31 30 2c 74 65 6d  |#.6  ..&C,10,tem|
00005c00  70 24 2c 73 63 72 61 70  25 2c 37 37 2c 30 2c 33  |p$,scrap%,77,0,3|
00005c10  30 30 30 2c 77 6f 74 24  28 67 25 29 20 b8 20 2c  |000,wot$(g%) . ,|
00005c20  2c 2c 6e 6f 25 0d 23 8c  0f 20 20 e7 20 6e 6f 25  |,,no%.#..  . no%|
00005c30  3e 30 20 8c 0d 23 96 09  20 20 20 20 f5 0d 23 a0  |>0 ..#..    ..#.|
00005c40  2c 20 20 20 20 20 20 66  69 6c 65 74 79 70 65 25  |,      filetype%|
00005c50  3d 28 28 28 61 64 64 72  25 21 30 29 3e 3e 3e 38  |=(((addr%!0)>>>8|
00005c60  29 20 80 20 26 46 46 46  29 0d 23 aa 17 20 20 20  |) . &FFF).#..   |
00005c70  20 20 20 73 69 7a 65 25  3d 61 64 64 72 25 21 38  |   size%=addr%!8|
00005c80  0d 23 b4 25 20 20 20 20  20 20 6f 62 6a 74 79 70  |.#.%      objtyp|
00005c90  65 25 3d 61 64 64 72 25  21 31 36 3a 61 64 64 72  |e%=addr%!16:addr|
00005ca0  25 2b 3d 32 30 0d 23 be  22 20 20 20 20 20 20 6f  |%+=20.#."      o|
00005cb0  75 74 70 75 74 24 3d a4  62 75 6d 28 61 64 64 72  |utput$=.bum(addr|
00005cc0  25 29 3a 6e 25 3d b9 0d  23 c8 35 20 20 20 20 20  |%):n%=..#.5     |
00005cd0  20 e7 20 63 61 73 65 73  65 6e 73 25 20 6e 25 3d  | . casesens% n%=|
00005ce0  a4 67 6f 72 62 6c 69 6d  65 79 28 6f 75 74 70 75  |.gorblimey(outpu|
00005cf0  74 24 2c 77 6f 74 24 28  67 25 29 29 0d 23 d2 31  |t$,wot$(g%)).#.1|
00005d00  20 20 20 20 20 20 e7 20  73 74 79 70 65 3e 30 20  |      . stype>0 |
00005d10  6e 25 3d a4 6c 75 76 61  64 75 63 6b 28 73 74 79  |n%=.luvaduck(sty|
00005d20  70 65 2c 66 69 6c 65 74  79 70 65 25 29 0d 23 dc  |pe,filetype%).#.|
00005d30  10 20 20 20 20 20 20 e7  20 6e 25 20 8c 0d 23 e6  |.      . n% ..#.|
00005d40  15 20 20 20 20 20 20 20  20 e7 20 66 69 6c 65 25  |.        . file%|
00005d50  20 8c 0d 23 f0 48 20 20  20 20 20 20 20 20 20 20  | ..#.H          |
00005d60  24 28 74 65 78 74 25 2b  6c 69 73 74 25 29 3d a4  |$(text%+list%)=.|
00005d70  74 65 78 74 28 6f 75 74  70 75 74 24 2c 66 69 6c  |text(output$,fil|
00005d80  65 74 79 70 65 25 2c 6f  62 6a 74 79 70 65 25 2c  |etype%,objtype%,|
00005d90  73 69 7a 65 25 29 2b bd  31 33 0d 23 fa 32 20 20  |size%)+.13.#.2  |
00005da0  20 20 20 20 20 20 20 20  66 6f 75 6e 64 25 2b 3d  |        found%+=|
00005db0  31 3a 74 6f 74 25 2b 3d  31 3a 6c 69 73 74 25 2b  |1:tot%+=1:list%+|
00005dc0  3d 65 6e 74 72 79 77 69  64 74 68 25 0d 24 04 0d  |=entrywidth%.$..|
00005dd0  20 20 20 20 20 20 20 20  cc 0d 24 0e 2f 20 20 20  |        ..$./   |
00005de0  20 20 20 20 20 20 20 ff  28 22 46 69 6c 65 72 5f  |       .("Filer_|
00005df0  4f 70 65 6e 44 69 72 20  22 2b 74 65 6d 70 24 29  |OpenDir "+temp$)|
00005e00  3a 74 6f 74 25 2b 3d 31  0d 24 18 0d 20 20 20 20  |:tot%+=1.$..    |
00005e10  20 20 20 20 cd 0d 24 22  1d 20 20 20 20 20 20 20  |    ..$".       |
00005e20  20 74 6f 74 61 6c 73 69  7a 65 25 2b 3d 73 69 7a  | totalsize%+=siz|
00005e30  65 25 0d 24 2c 0b 20 20  20 20 20 20 cd 0d 24 36  |e%.$,.      ..$6|
00005e40  13 20 20 20 20 20 20 63  6f 75 6e 74 25 2b 3d 31  |.      count%+=1|
00005e50  0d 24 40 25 20 20 20 20  20 20 c8 95 20 28 61 64  |.$@%      .. (ad|
00005e60  64 72 25 20 83 20 34 29  3e 30 3a 61 64 64 72 25  |dr% . 4)>0:addr%|
00005e70  2b 3d 31 3a ce 0d 24 4a  21 20 20 20 20 fd 20 63  |+=1:..$J!    . c|
00005e80  6f 75 6e 74 25 3d 6e 6f  25 20 84 20 66 6f 75 6e  |ount%=no% . foun|
00005e90  64 25 3e 32 32 30 0d 24  54 2b 20 20 20 20 e7 20  |d%>220.$T+    . |
00005ea0  66 6f 75 6e 64 25 3e 32  32 30 20 77 69 70 25 3d  |found%>220 wip%=|
00005eb0  30 3a 74 6f 6f 6d 61 6e  79 66 69 6c 65 73 25 3d  |0:toomanyfiles%=|
00005ec0  b9 0d 24 5e 07 20 20 cd  0d 24 68 05 ed 0d 24 72  |..$^.  ..$h...$r|
00005ed0  1a e7 20 6f 74 6f 74 25  3d 74 6f 74 25 20 80 20  |.. otot%=tot% . |
00005ee0  66 69 6c 65 25 20 8c 0d  24 7c 2b 20 20 c8 95 20  |file% ..$|+  .. |
00005ef0  c0 24 28 74 65 78 74 25  2b 6c 69 73 74 25 2d 65  |.$(text%+list%-e|
00005f00  6e 74 72 79 77 69 64 74  68 25 29 2c 31 29 3d 22  |ntrywidth%),1)="|
00005f10  5b 22 0d 24 86 24 20 20  20 20 66 6f 75 6e 64 25  |[".$.$    found%|
00005f20  2d 3d 31 3a 6c 69 73 74  25 2d 3d 65 6e 74 72 79  |-=1:list%-=entry|
00005f30  77 69 64 74 68 25 0d 24  90 07 20 20 ce 0d 24 9a  |width%.$..  ..$.|
00005f40  05 cd 0d 24 a4 05 e1 0d  24 ae 0e dd a4 70 6f 6c  |...$....$....pol|
00005f50  6c 6d 61 73 6b 0d 24 b8  0b ea 20 6d 61 73 6b 25  |lmask.$... mask%|
00005f60  0d 24 c2 0a c8 8e 20 b9  20 ca 0d 24 cc 39 20 20  |.$.... . ..$.9  |
00005f70  c9 20 65 78 69 74 25 2c  4d 72 5f 43 72 65 6f 73  |. exit%,Mr_Creos|
00005f80  6f 74 65 25 2c 73 70 69  6e 6f 6e 25 2c 71 75 65  |ote%,spinon%,que|
00005f90  72 79 25 2c 28 62 79 65  25 3d 31 29 2c 63 6c 6f  |ry%,(bye%=1),clo|
00005fa0  63 6b 25 0d 24 d6 13 20  20 20 20 6d 61 73 6b 25  |ck%.$..    mask%|
00005fb0  3d 26 31 38 30 30 0d 24  e0 07 20 20 7f 0d 24 ea  |=&1800.$..  ..$.|
00005fc0  13 20 20 20 20 6d 61 73  6b 25 3d 26 31 38 30 31  |.    mask%=&1801|
00005fd0  0d 24 f4 05 cb 0d 24 fe  0a 3d 6d 61 73 6b 25 0d  |.$....$..=mask%.|
00005fe0  25 08 08 dd a4 6d 66 0d  25 12 30 e7 20 75 73 65  |%....mf.%.0. use|
00005ff0  66 6f 6e 74 73 25 20 8c  20 3d 26 36 31 2b 28 6d  |fonts% . =&61+(m|
00006000  66 6f 6e 74 25 3c 3c 32  34 29 20 8b 20 3d 26 30  |font%<<24) . =&0|
00006010  37 30 30 30 30 32 31 0d  25 1c 08 dd a4 63 66 0d  |7000021.%....cf.|
00006020  25 26 31 e7 20 75 73 65  66 6f 6e 74 73 25 20 8c  |%&1. usefonts% .|
00006030  20 3d 31 32 36 36 39 2b  28 69 66 6f 6e 74 25 3c  | =12669+(ifont%<|
00006040  3c 32 34 29 20 8b 20 3d  26 37 30 30 33 31 33 44  |<24) . =&700313D|
00006050  0d 25 30 15 dd f2 75 70  64 61 74 65 63 6c 6f 63  |.%0...updatecloc|
00006060  6b 28 74 24 29 0d 25 3a  0c 54 69 6d 65 24 3d 74  |k(t$).%:.Time$=t|
00006070  24 0d 25 44 0d 24 63 74  3d 54 69 6d 65 24 0d 25  |$.%D.$ct=Time$.%|
00006080  4e 1a f2 73 65 6c 69 63  28 2d 32 2c 63 6c 69 63  |N..selic(-2,clic|
00006090  6f 6e 25 2c 30 2c 30 29  0d 25 58 05 e1 0d 25 62  |on%,0,0).%X...%b|
000060a0  0b dd f2 63 6c 6f 63 6b  0d 25 6c 0e e7 20 63 6c  |...clock.%l.. cl|
000060b0  6f 63 6b 25 20 8c 0d 25  76 1c 20 20 62 6c 25 21  |ock% ..%v.  bl%!|
000060c0  30 3d 2d 31 3a 62 6c 25  21 34 3d 63 6c 69 63 6f  |0=-1:bl%!4=clico|
000060d0  6e 25 0d 25 80 13 20 20  c8 99 26 34 30 30 43 34  |n%.%..  ..&400C4|
000060e0  2c 2c 62 6c 25 0d 25 8a  05 cc 0d 25 94 15 20 20  |,,bl%.%....%..  |
000060f0  54 69 6d 65 24 3d c1 91  24 2c 31 37 2c 35 29 0d  |Time$=..$,17,5).|
00006100  25 9e 46 20 20 63 6c 69  63 6f 6e 25 3d a4 63 72  |%.F  clicon%=.cr|
00006110  69 63 6f 6e 28 2d 38 2c  26 31 30 30 30 30 30 30  |icon(-8,&1000000|
00006120  30 2c 2d 36 34 2c 31 30  30 2c 35 32 2c 63 74 2c  |0,-64,100,52,ct,|
00006130  62 6c 6f 63 6b 34 25 2c  54 69 6d 65 24 2c 22 22  |block4%,Time$,""|
00006140  2c a4 63 66 29 0d 25 a8  05 cd 0d 25 b2 13 63 6c  |,.cf).%....%..cl|
00006150  6f 63 6b 25 3d ac 20 63  6c 6f 63 6b 25 0d 25 bc  |ock%=. clock%.%.|
00006160  05 e1 0d 25 c6 14 dd f2  6d 6b 63 6c 6d 65 6e 28  |...%....mkclmen(|
00006170  78 25 2c 79 25 29 0d 25  d0 11 73 70 72 69 74 65  |x%,y%).%..sprite|
00006180  6d 65 6e 75 25 3d a3 0d  25 da 10 6d 65 6e 6d 61  |menu%=..%..menma|
00006190  73 6b 25 3d a4 6d 66 0d  25 e4 0d 4d 25 3d 4d 65  |sk%=.mf.%..M%=Me|
000061a0  6e 75 73 25 0d 25 ee 18  f2 53 74 61 72 74 61 6d  |nus%.%...Startam|
000061b0  65 6e 75 28 22 43 6c 6f  63 6b 22 29 0d 25 f8 16  |enu("Clock").%..|
000061c0  f2 6d 61 64 28 22 52 65  6d 6f 76 65 22 2c 26 38  |.mad("Remove",&8|
000061d0  30 29 0d 26 02 11 78 25  2d 3d 38 30 3a 79 25 3d  |0).&..x%-=80:y%=|
000061e0  31 33 32 0d 26 0c 1a c8  99 26 34 30 30 44 34 2c  |132.&....&400D4,|
000061f0  2c 4d 65 6e 75 73 25 2c  78 25 2c 79 25 0d 26 16  |,Menus%,x%,y%.&.|
00006200  0d 63 6c 6d 65 6e 75 25  3d b9 0d 26 20 05 e1 0d  |.clmenu%=..& ...|
00006210  26 2a 13 dd f2 63 6c 6d  65 6e 75 28 69 74 65 6d  |&*...clmenu(item|
00006220  25 29 0d 26 34 0e c8 8e  20 69 74 65 6d 25 20 ca  |%).&4... item% .|
00006230  0d 26 3e 09 20 20 c9 20  30 0d 26 48 0e 20 20 20  |.&>.  . 0.&H.   |
00006240  20 f2 63 6c 6f 63 6b 0d  26 52 1f 20 20 20 20 f2  | .clock.&R.    .|
00006250  73 65 6c 69 63 28 4f 70  74 2c 39 2c 68 69 67 68  |selic(Opt,9,high|
00006260  2c 68 69 67 68 29 0d 26  5c 05 cb 0d 26 66 0d 63  |,high).&\...&f.c|
00006270  6c 6d 65 6e 75 25 3d a3  0d 26 70 05 e1 0d 26 7a  |lmenu%=..&p...&z|
00006280  15 dd f2 66 63 6c 69 63  6b 65 64 28 78 25 2c 79  |...fclicked(x%,y|
00006290  25 29 0d 26 84 19 ea 20  74 6f 70 25 2c 79 6f 66  |%).&... top%,yof|
000062a0  66 25 2c 6e 61 6d 65 24  2c 6c 24 0d 26 8e 12 21  |f%,name$,l$.&..!|
000062b0  62 6c 6f 63 6b 34 25 3d  46 6f 75 6e 64 0d 26 98  |block4%=Found.&.|
000062c0  15 c8 99 26 34 30 30 43  42 2c 2c 62 6c 6f 63 6b  |...&400CB,,block|
000062d0  34 25 0d 26 a2 27 74 6f  70 25 3d 62 6c 6f 63 6b  |4%.&.'top%=block|
000062e0  34 25 21 31 36 2d 31 36  3a 79 6f 66 66 25 3d 62  |4%!16-16:yoff%=b|
000062f0  6c 6f 63 6b 34 25 21 32  34 0d 26 ac 1e 6c 69 6e  |lock4%!24.&..lin|
00006300  65 25 3d 28 74 6f 70 25  2d 79 6f 66 66 25 2d 79  |e%=(top%-yoff%-y|
00006310  25 29 20 81 20 33 36 0d  26 b6 1f e7 20 6c 69 6e  |%) . 36.&... lin|
00006320  65 25 3c 32 20 84 20 6c  69 6e 65 25 3e 3d 66 6f  |e%<2 . line%>=fo|
00006330  75 6e 64 25 20 e1 0d 26  c0 26 6e 61 6d 65 24 3d  |und% ..&.&name$=|
00006340  24 28 74 65 78 74 25 2b  28 65 6e 74 72 79 77 69  |$(text%+(entrywi|
00006350  64 74 68 25 2a 6c 69 6e  65 25 29 29 0d 26 ca 15  |dth%*line%)).&..|
00006360  e7 20 c0 6e 61 6d 65 24  2c 31 29 3d 22 5b 22 20  |. .name$,1)="[" |
00006370  e1 0d 26 d4 0c 6e 61 6d  65 24 3d 22 22 0d 26 de  |..&..name$="".&.|
00006380  05 f5 0d 26 e8 07 20 20  f5 0d 26 f2 10 20 20 20  |...&..  ..&..   |
00006390  20 6c 69 6e 65 25 2d 3d  31 0d 26 fc 2c 20 20 fd  | line%-=1.&.,  .|
000063a0  20 c0 24 28 74 65 78 74  25 2b 28 65 6e 74 72 79  | .$(text%+(entry|
000063b0  77 69 64 74 68 25 2a 6c  69 6e 65 25 29 29 2c 31  |width%*line%)),1|
000063c0  29 3d 22 5b 22 0d 27 06  25 20 20 6c 24 3d 24 28  |)="[".'.%  l$=$(|
000063d0  74 65 78 74 25 2b 28 65  6e 74 72 79 77 69 64 74  |text%+(entrywidt|
000063e0  68 25 2a 6c 69 6e 65 25  29 29 0d 27 10 1e 20 20  |h%*line%)).'..  |
000063f0  6e 61 6d 65 24 3d c1 6c  24 2c 32 2c a9 6c 24 2d  |name$=.l$,2,.l$-|
00006400  32 29 2b 6e 61 6d 65 24  0d 27 1a 2f fd 20 c0 24  |2)+name$.'./. .$|
00006410  28 74 65 78 74 25 2b 28  65 6e 74 72 79 77 69 64  |(text%+(entrywid|
00006420  74 68 25 2a 28 6c 69 6e  65 25 2d 31 29 29 29 2c  |th%*(line%-1))),|
00006430  31 29 3c 3e 22 5b 22 0d  27 24 33 ff 20 22 53 65  |1)<>"[".'$3. "Se|
00006440  74 20 41 6c 69 61 73 24  49 63 6f 6e 53 70 72 69  |t Alias$IconSpri|
00006450  74 65 73 20 53 65 74 20  42 6c 61 63 6b 48 6f 6c  |tes Set BlackHol|
00006460  65 24 54 65 6d 70 20 3c  3e 22 0d 27 2e 22 4d 72  |e$Temp <>".'."Mr|
00006470  5f 43 72 65 6f 73 6f 74  65 25 3d b9 3a 70 6f 6c  |_Creosote%=.:pol|
00006480  6c 6d 61 73 6b 25 3d 26  31 38 30 30 0d 27 38 1d  |lmask%=&1800.'8.|
00006490  ff 28 22 46 69 6c 65 72  5f 4f 70 65 6e 44 69 72  |.("Filer_OpenDir|
000064a0  20 22 2b 6e 61 6d 65 24  29 0d 27 42 05 e1 0d 27  | "+name$).'B...'|
000064b0  4c 0f dd f2 62 75 67 67  65 72 6f 66 66 0d 27 56  |L...buggeroff.'V|
000064c0  1b 65 78 69 74 25 3d b9  3a 70 6f 6c 6c 6d 61 73  |.exit%=.:pollmas|
000064d0  6b 25 3d 26 31 38 30 30  0d 27 60 05 cd 0d 27 6a  |k%=&1800.'`...'j|
000064e0  05 e1 0d 27 74 12 dd f2  69 6e 63 6f 6e 28 70 61  |...'t...incon(pa|
000064f0  74 68 24 29 0d 27 7e 2c  e7 20 77 69 70 25 3e 30  |th$).'~,. wip%>0|
00006500  20 f2 74 72 61 70 28 a4  6d 73 67 28 22 62 75 73  | .trap(.msg("bus|
00006510  79 22 2c 22 22 2c 22 22  29 2c 30 2c 30 29 3a e1  |y","",""),0,0):.|
00006520  0d 27 88 2b e7 20 ac 20  74 64 69 6d 25 20 74 65  |.'.+. . tdim% te|
00006530  78 74 25 3d a4 64 69 6d  28 31 30 30 30 30 29 3a  |xt%=.dim(10000):|
00006540  e7 20 74 65 78 74 25 3d  30 20 e1 0d 27 92 22 73  |. text%=0 ..'."s|
00006550  63 72 61 70 25 3d a4 64  69 6d 28 33 30 30 30 29  |crap%=.dim(3000)|
00006560  3a e7 20 73 63 72 61 70  25 3d 30 20 e1 0d 27 9c  |:. scrap%=0 ..'.|
00006570  0f e7 20 74 65 78 74 25  3d 30 20 e1 0d 27 a6 0b  |.. text%=0 ..'..|
00006580  74 64 69 6d 25 3d b9 0d  27 b0 2f 77 69 70 25 3d  |tdim%=..'./wip%=|
00006590  31 3a 6d 73 67 24 28 31  29 3d 70 61 74 68 24 3a  |1:msg$(1)=path$:|
000065a0  73 74 79 70 65 3d 30 3a  65 6e 74 72 79 77 69 64  |stype=0:entrywid|
000065b0  74 68 25 3d 34 34 0d 27  ba 16 77 6f 74 25 3d 31  |th%=44.'..wot%=1|
000065c0  3a 77 6f 74 24 28 31 29  3d 22 2a 22 0d 27 c4 31  |:wot$(1)="*".'.1|
000065d0  24 74 65 78 74 25 3d a4  6d 73 67 28 22 64 74 22  |$text%=.msg("dt"|
000065e0  2c 22 22 2c 22 22 29 2b  bd 31 33 3a 6c 69 73 74  |,"","")+.13:list|
000065f0  25 3d 65 6e 74 72 79 77  69 64 74 68 25 0d 27 ce  |%=entrywidth%.'.|
00006600  33 7a 61 70 70 61 25 3d  32 3a 62 79 65 25 3d 31  |3zappa%=2:bye%=1|
00006610  3a 75 73 65 61 72 63 66  73 25 3d a3 3a 63 61 73  |:usearcfs%=.:cas|
00006620  65 73 65 6e 73 25 3d a3  3a 66 69 6c 65 25 3d b9  |esens%=.:file%=.|
00006630  0d 27 d8 30 74 6f 74 61  6c 73 69 7a 65 25 3d 30  |.'.0totalsize%=0|
00006640  3a 74 6f 74 25 3d 30 3a  66 6f 75 6e 64 25 3d 31  |:tot%=0:found%=1|
00006650  3a 70 6f 6c 6c 6d 61 73  6b 25 3d 26 31 38 30 30  |:pollmask%=&1800|
00006660  0d 27 e2 2b e7 20 66 6f  75 6e 64 6f 70 65 6e 25  |.'.+. foundopen%|
00006670  20 f2 63 6c 6f 73 65 28  46 6f 75 6e 64 29 3a 66  | .close(Found):f|
00006680  6f 75 6e 64 6f 70 65 6e  25 3d 30 0d 27 ec 15 f2  |oundopen%=0.'...|
00006690  69 62 61 72 28 22 2e 2e  49 6e 66 6f 2e 2e 22 29  |ibar("..Info..")|
000066a0  0d 27 f6 05 e1 0d 28 00  13 dd f2 73 71 75 61 73  |.'....(....squas|
000066b0  68 28 70 61 74 68 24 29  0d 28 0a 2c e7 20 77 69  |h(path$).(.,. wi|
000066c0  70 25 3e 30 20 f2 74 72  61 70 28 a4 6d 73 67 28  |p%>0 .trap(.msg(|
000066d0  22 62 75 73 79 22 2c 22  22 2c 22 22 29 2c 30 2c  |"busy","",""),0,|
000066e0  30 29 3a e1 0d 28 14 22  73 63 72 61 70 25 3d a4  |0):..(."scrap%=.|
000066f0  64 69 6d 28 33 30 30 30  29 3a e7 20 73 63 72 61  |dim(3000):. scra|
00006700  70 25 3d 30 20 e1 0d 28  1e 18 77 69 70 25 3d 31  |p%=0 ..(..wip%=1|
00006710  3a 6d 73 67 24 28 31 29  3d 70 61 74 68 24 0d 28  |:msg$(1)=path$.(|
00006720  28 23 7a 61 70 70 61 25  3d 34 3a 62 79 65 25 3d  |(#zappa%=4:bye%=|
00006730  31 3a 70 6f 6c 6c 6d 61  73 6b 25 3d 26 31 38 30  |1:pollmask%=&180|
00006740  30 0d 28 32 0f 75 73 65  61 72 63 66 73 25 3d a3  |0.(2.usearcfs%=.|
00006750  0d 28 3c 16 f2 69 62 61  72 28 22 53 71 75 61 73  |.(<..ibar("Squas|
00006760  68 69 6e 67 22 29 0d 28  46 05 e1 0d 28 50 0b dd  |hing").(F...(P..|
00006770  f2 6e 75 64 67 65 0d 28  5a 1d e7 20 74 64 69 6d  |.nudge.(Z.. tdim|
00006780  25 20 c8 99 26 32 30 30  31 45 2c 37 2c 2c 74 65  |% ..&2001E,7,,te|
00006790  78 74 25 0d 28 64 13 c8  99 26 36 31 35 30 34 2c  |xt%.(d...&61504,|
000067a0  6d 73 70 74 72 25 0d 28  6e 16 c8 99 26 32 30 30  |msptr%.(n...&200|
000067b0  31 45 2c 37 2c 2c 6d 73  70 74 72 25 0d 28 78 13  |1E,7,,msptr%.(x.|
000067c0  c8 99 26 34 30 30 38 32  2c 6d 66 6f 6e 74 25 0d  |..&40082,mfont%.|
000067d0  28 82 13 c8 99 26 34 30  30 38 32 2c 69 66 6f 6e  |(....&40082,ifon|
000067e0  74 25 0d 28 8c 1f c8 99  26 34 30 30 44 44 2c 74  |t%.(....&400DD,t|
000067f0  61 73 6b 69 64 25 2c 31  32 36 33 37 34 37 34 31  |askid%,126374741|
00006800  32 0d 28 96 05 e1 0d 28  a0 13 dd f2 64 65 73 63  |2.(....(....desc|
00006810  6f 6e 28 70 61 74 68 24  29 0d 28 aa 12 64 65 73  |on(path$).(..des|
00006820  70 61 74 68 24 3d 70 61  74 68 24 0d 28 b4 26 f2  |path$=path$.(.&.|
00006830  74 72 61 70 28 a4 6d 73  67 28 22 62 77 22 2c 64  |trap(.msg("bw",d|
00006840  65 73 70 61 74 68 24 2c  22 22 29 2c 2d 31 2c 34  |espath$,""),-1,4|
00006850  29 0d 28 be 05 e1 0d 28  c8 15 dd f2 63 6f 75 6e  |).(....(....coun|
00006860  74 64 69 72 28 70 61 74  68 24 29 0d 28 d2 0b ea  |tdir(path$).(...|
00006870  20 74 65 6d 70 24 0d 28  dc 17 f2 67 65 74 6c 65  | temp$.(...getle|
00006880  61 66 6e 61 6d 65 28 70  61 74 68 24 29 0d 28 e6  |afname(path$).(.|
00006890  25 74 65 6d 70 24 3d c0  70 61 74 68 24 2c 28 a9  |%temp$=.path$,(.|
000068a0  70 61 74 68 24 2d a9 6c  65 61 66 6e 61 6d 65 24  |path$-.leafname$|
000068b0  29 29 0d 28 f0 26 6c 65  61 66 6e 61 6d 65 24 3d  |)).(.&leafname$=|
000068c0  c2 6c 65 61 66 6e 61 6d  65 24 2c a9 6c 65 61 66  |.leafname$,.leaf|
000068d0  6e 61 6d 65 24 2d 31 29  0d 28 fa 19 24 62 6c 25  |name$-1).(..$bl%|
000068e0  3d 6c 65 61 66 6e 61 6d  65 24 2b bd 30 2b 22 20  |=leafname$+.0+" |
000068f0  22 0d 29 04 31 63 6f 75  6e 74 68 61 6e 64 6c 65  |".).1counthandle|
00006900  25 3d a4 66 69 6c 65 72  61 63 74 69 6f 6e 28 35  |%=.fileraction(5|
00006910  2c 31 2c 74 65 6d 70 24  2c 62 6c 25 2c 22 22 2c  |,1,temp$,bl%,"",|
00006920  30 29 0d 29 0e 05 e1 0d  29 18 11 dd f2 72 65 73  |0).)....)....res|
00006930  69 7a 65 66 6f 6e 74 73  0d 29 22 13 c8 99 26 34  |izefonts.)"...&4|
00006940  30 30 38 32 2c 6d 66 6f  6e 74 25 0d 29 2c 13 c8  |0082,mfont%.),..|
00006950  99 26 34 30 30 38 32 2c  69 66 6f 6e 74 25 0d 29  |.&40082,ifont%.)|
00006960  36 68 6d 66 6f 6e 74 25  3d a4 66 69 6e 64 66 6f  |6hmfont%=.findfo|
00006970  6e 74 28 a4 6d 73 67 28  22 6d 66 22 2c 22 22 2c  |nt(.msg("mf","",|
00006980  22 22 29 2c bb 28 a4 6d  73 67 28 22 6d 66 73 22  |""),.(.msg("mfs"|
00006990  2c 22 22 2c 22 22 29 29  2c bb 28 a4 6d 73 67 28  |,"","")),.(.msg(|
000069a0  22 6d 66 68 22 2c 22 22  2c 22 22 29 29 2c 22 68  |"mfh","","")),"h|
000069b0  6f 6d 65 72 74 6f 6e 2e  6d 65 64 69 75 6d 22 2c  |omerton.medium",|
000069c0  31 33 2c 31 33 29 0d 29  40 67 69 66 6f 6e 74 25  |13,13).)@gifont%|
000069d0  3d a4 66 69 6e 64 66 6f  6e 74 28 a4 6d 73 67 28  |=.findfont(.msg(|
000069e0  22 69 66 22 2c 22 22 2c  22 22 29 2c bb 28 a4 6d  |"if","",""),.(.m|
000069f0  73 67 28 22 69 66 73 22  2c 22 22 2c 22 22 29 29  |sg("ifs","",""))|
00006a00  2c bb 28 a4 6d 73 67 28  22 69 66 68 22 2c 22 22  |,.(.msg("ifh",""|
00006a10  2c 22 22 29 29 2c 22 74  72 69 6e 69 74 79 2e 6d  |,"")),"trinity.m|
00006a20  65 64 69 75 6d 22 2c 31  34 2c 31 34 29 0d 29 4a  |edium",14,14).)J|
00006a30  05 e1 0d 29 54 0c dd f2  73 63 72 6e 78 79 0d 29  |...)T...scrnxy.)|
00006a40  5e 43 21 62 6c 6f 63 6b  34 25 3d 34 3a 62 6c 6f  |^C!block4%=4:blo|
00006a50  63 6b 34 25 21 34 3d 35  3a 62 6c 6f 63 6b 34 25  |ck4%!4=5:block4%|
00006a60  21 38 3d 31 31 3a 62 6c  6f 63 6b 34 25 21 31 32  |!8=11:block4%!12|
00006a70  3d 31 32 3a 62 6c 6f 63  6b 34 25 21 31 36 3d 2d  |=12:block4%!16=-|
00006a80  31 0d 29 68 1d c8 99 20  26 33 31 2c 62 6c 6f 63  |1.)h... &31,bloc|
00006a90  6b 34 25 2c 62 6c 6f 63  6b 34 25 2b 32 30 0d 29  |k4%,block4%+20.)|
00006aa0  72 41 73 63 72 78 25 3d  62 6c 6f 63 6b 34 25 21  |rAscrx%=block4%!|
00006ab0  32 38 2b 31 3c 3c 62 6c  6f 63 6b 34 25 21 32 30  |28+1<<block4%!20|
00006ac0  3a 73 63 72 79 25 3d 62  6c 6f 63 6b 34 25 21 33  |:scry%=block4%!3|
00006ad0  32 2b 31 3c 3c 62 6c 6f  63 6b 34 25 21 32 34 0d  |2+1<<block4%!24.|
00006ae0  29 7c 05 e1 0d 29 86 12  dd f2 6f 70 65 6e 66 69  |)|...)....openfi|
00006af0  6c 65 66 69 6e 64 0d 29  90 13 ea 20 61 72 63 66  |lefind.)... arcf|
00006b00  73 66 6c 61 67 25 2c 72  25 0d 29 9a 10 61 72 63  |sflag%,r%.)..arc|
00006b10  66 73 66 6c 61 67 25 3d  a3 0d 29 a4 38 e7 20 a4  |fsflag%=..).8. .|
00006b20  6f 62 6a 74 79 70 65 28  22 73 79 73 74 65 6d 3a  |objtype("system:|
00006b30  6d 6f 64 75 6c 65 73 2e  41 72 63 46 53 4d 6f 64  |modules.ArcFSMod|
00006b40  22 29 3d 31 20 61 72 63  66 73 66 6c 61 67 25 3d  |")=1 arcfsflag%=|
00006b50  b9 0d 29 ae 21 2a 53 65  74 20 42 6c 61 63 6b 48  |..).!*Set BlackH|
00006b60  6f 6c 65 24 57 69 62 62  6c 65 20 22 41 72 63 46  |ole$Wibble "ArcF|
00006b70  53 22 0d 29 b8 34 ff 20  28 22 52 4d 45 6e 73 75  |S".).4. ("RMEnsu|
00006b80  72 65 20 41 72 63 46 53  20 30 2e 30 30 20 55 6e  |re ArcFS 0.00 Un|
00006b90  53 65 74 20 42 6c 61 63  6b 48 6f 6c 65 24 57 69  |Set BlackHole$Wi|
00006ba0  62 62 6c 65 22 29 0d 29  c2 34 c8 99 26 32 30 30  |bble").).4..&200|
00006bb0  32 33 2c 22 42 6c 61 63  6b 48 6f 6c 65 24 57 69  |23,"BlackHole$Wi|
00006bc0  62 62 6c 65 22 2c 62 6c  6f 63 6b 32 25 2c 32 35  |bble",block2%,25|
00006bd0  36 2c 30 20 b8 20 2c 2c  72 25 0d 29 cc 10 62 6c  |6,0 . ,,r%.)..bl|
00006be0  6f 63 6b 32 25 3f 72 25  3d 30 0d 29 d6 29 e7 20  |ock2%?r%=0.).). |
00006bf0  a4 67 61 67 61 28 62 6c  6f 63 6b 32 25 29 3d 22  |.gaga(block2%)="|
00006c00  41 72 63 46 53 22 20 61  72 63 66 73 66 6c 61 67  |ArcFS" arcfsflag|
00006c10  25 3d b9 0d 29 e0 12 e7  20 61 72 63 66 73 66 6c  |%=..)... arcfsfl|
00006c20  61 67 25 20 8c 0d 29 ea  1d 20 20 f2 73 65 6c 69  |ag% ..)..  .seli|
00006c30  63 28 4d 61 76 69 73 2c  31 34 2c 30 2c 67 72 65  |c(Mavis,14,0,gre|
00006c40  79 29 0d 29 f4 05 cc 0d  29 fe 20 20 20 f2 73 65  |y).)....).   .se|
00006c50  6c 69 63 28 4d 61 76 69  73 2c 31 34 2c 67 72 65  |lic(Mavis,14,gre|
00006c60  79 2c 67 72 65 79 29 0d  2a 08 1d 20 20 f2 73 65  |y,grey).*..  .se|
00006c70  6c 69 63 28 4d 61 76 69  73 2c 31 34 2c 30 2c 68  |lic(Mavis,14,0,h|
00006c80  69 67 68 29 0d 2a 12 05  cd 0d 2a 1c 11 e7 20 ac  |igh).*....*... .|
00006c90  20 62 61 64 62 69 6e 25  20 8c 0d 2a 26 24 20 20  | badbin% ..*&$  |
00006ca0  f2 70 73 28 4d 61 76 69  73 2c 33 2c c0 62 69 6e  |.ps(Mavis,3,.bin|
00006cb0  24 2c a7 62 69 6e 24 2c  22 24 22 29 29 29 0d 2a  |$,.bin$,"$"))).*|
00006cc0  30 05 cd 0d 2a 3a 10 f2  6f 70 65 6e 28 4d 61 76  |0...*:..open(Mav|
00006cd0  69 73 29 0d 2a 44 05 e1  0d ff                    |is).*D....|
00006cda

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .