PD/!BlakHole2/Overlay

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

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/Overlay
Read OK:	✔
File size:	15A1 bytes
Load address:	0000
Exec address:	0000

File contents

   10DEFPROCrespsave(icon%)
   20f$=$(FNlust(AuSav,1)):p$=$(FNlust(AuSav,5))
   30CASE icon% OF
   40  WHEN 6
   50    c%=currpath%
   60    WHILE c%<p%
   70      Ftp$(c%)=Ftp$(c%+1):Svpth$(c%)=Svpth$(c%+1):c%+=1
   80    ENDWHILE
   90    Ftp$(p%)="":Svpth$(p%)=""
  100    IF currpath%<p% p%-=1
  110    PROCedure
  120  WHEN 7
  130    IF f$<>"" AND p$<>"" THEN
  140      Ftp$(currpath%)=FNftype(f$,AuSav,1):Svpth$(currpath%)=p$
  150      IF currpath%=p% AND p%<19 p%+=1
  160      IF currpath%<19 currpath%+=1
  170    ENDIF
  180    PROCedure
  190  WHEN 8
  200    IF f$<>"" AND p$<>"" THEN
  210      Ftp$(currpath%)=FNftype(f$,AuSav,1):Svpth$(currpath%)=p$
  220      IF currpath%=p% AND p%<19 p%+=1
  230    ENDIF
  240    IF currpath%>0 currpath%-=1
  250    PROCedure
  260  WHEN 12:sconf%=NOT sconf%
  270  WHEN 13:open%=NOT open%
  280  WHEN 14
  290    IF LENp$>0 THEN
  300      IF FNobjtype(p$)>1 THEN
  310        OSCLI("Filer_OpenDir "+p$)
  320      ELSE
  330        PROCtrap(FNmsg("ndir","",""),0,0)
  340      ENDIF
  350    ENDIF
  360  WHEN 16
  370    IF f$<>"" AND p$<>"" THEN
  380      Ftp$(currpath%)=FNftype(f$,AuSav,1):Svpth$(currpath%)=p$
  390    ENDIF
  400    y=OPENOUT(home$+".SaveOpts")
  410    PRINT#y,sconf%,open%
  420    FOR l%=0 TO p%-1:BPUT#y,Ftp$(l%):BPUT#y,Svpth$(l%):NEXT
  430    CLOSE#y
  440ENDCASE
  450PROCps(AuSav,9,"Current : "+STR$(currpath%+1)):PROCps(AuSav,10,"Total : "+STR$(p%))
  460ENDPROC
  470DEFPROCfind(icon%)
  480IF wip%>0 PROCtrap(FNmsg("busy","",""),0,0):ENDPROC
  490scrap%=FNdim(3000):IF scrap%=0 ENDPROC
  500LOCAL head$,pos%,x$,ohj%,pop$
  510spath$=$(FNlust(Mavis,3))
  520sname$=$(FNlust(Mavis,6))
  530IF sname$="" sname$="*"
  540pop$=FNftype($(FNlust(Mavis,13)),Mavis,13)
  550IF wrinkledforeskin% ENDPROC
  560IF pop$<>"" stype=EVAL("&"+pop$) ELSE stype=0
  570$ffs%="sfile_"+pop$+CHR$0
  580PROCselic(Mavis,fficon%,0,0)
  590IF LEN spath$=0 PROCtrap(FNmsg("nsp","",""),0,1):ENDPROC
  600LOCAL ERROR
  610ON ERROR LOCAL PROCtrap(REPORT$,0,1):wip%=0:ENDPROC
  620wip%=0:head$=spath$
  630WHILE INSTR(head$,"\")>0
  640  wip%+=1
  650  pos%=INSTR(head$,"\")
  660  msg$(wip%)=LEFT$(head$,(pos%-1))
  670  x$=RIGHT$(head$,(LENhead$-pos%))
  680  head$=x$
  690  ohj%=FNobjtype(msg$(wip%))
  700  IF ohj%<>2 AND ohj%<>3 PROCtrap(FNmsg("sp",msg$(wip%),""),0,1):wip%-=1
  710ENDWHILE
  720wip%+=1:msg$(wip%)=head$
  730ohj%=FNobjtype(msg$(wip%))
  740IF ohj%<>2 AND ohj%<>3 PROCtrap(FNmsg("sp",msg$(wip%),""),0,1):wip%-=1
  750RESTORE ERROR
  760IF wip%=0 ENDPROC
  770wot%=0:head$=sname$
  780WHILE INSTR(head$,"\")>0 AND wot%<10
  790  wot%+=1
  800  pos%=INSTR(head$,"\")
  810  wot$(wot%)=LEFT$(head$,(pos%-1))
  820  x$=RIGHT$(head$,(LENhead$-pos%))
  830  head$=x$
  840ENDWHILE
  850IF wot%=10 PROCtrap(FNmsg("tmn","",""),0,1) ELSE wot%+=1:wot$(wot%)=head$
  860IF FNrad(Mavis,10) THEN
  870  IF NOT tdim% text%=FNdim(10000)
  880  IF text%=0 ENDIF:ENDPROC
  890  tdim%=TRUE
  900  entrywidth%=44
  910  $text%=FNmsg("fl","","")+CHR$13:list%=entrywidth%
  920  file%=TRUE
  930  IF foundopen% PROCclose(Found):foundopen%=0
  940ELSE
  950  file%=FALSE
  960ENDIF
  970PROCibar("Searching")
  980zappa%=1:pollmask%=&1800
  990bye%=1:usearcfs%=FNrad(Mavis,14)
 1000IF usearcfs% THEN
 1010  OSCLI("RMEnsure ArcFS 0.00 RMLoad system:modules.ArcFSMod")
 1020ENDIF
 1030casesens%=FNrad(Mavis,7):totalsize%=0:tot%=0:found%=1
 1040PROCps(Mavis,19,"0 files found"):PROCps(Mavis,18,"0 bytes total")
 1050PROCchangemavis("Abort","Current Search:")
 1060ENDPROC
 1070DEFPROCreplytohelp
 1080LOCAL w%,i%,m$
 1090m$=""
 1100w%=bl%!32:i%=bl%!36
 1110CASE w% OF
 1120  WHEN -2
 1130    CASE i% OF
 1140      WHEN hole%:m$=FNmsg("ibar","","")
 1150      WHEN clicon%:m$=FNmsg("ibarc",TIME$,"")
 1160    ENDCASE
 1170  WHEN Opt
 1180    CASE i% OF
 1190      WHEN 1,3,4,8,9,11,12,13,14,16,18,19,20,21
 1200        m$=FNmsg("O"+STR$(i%),"","")
 1210      OTHERWISE:m$=FNmsg("O","","")
 1220    ENDCASE
 1230  WHEN AuSav
 1240    CASE i% OF
 1250      WHEN 1,5,6,7,8,9,10,12,13,14,16
 1260        m$=FNmsg("A"+STR$(i%),"","")
 1270      WHEN fileicon%:m$=FNmsg("Fileicon","","")
 1280      OTHERWISE:m$=FNmsg("A","","")
 1290    ENDCASE
 1300  WHEN Info
 1310    m$=FNmsg("I","","")
 1320    CASE i% OF
 1330      WHEN 0,2
 1340        m$=FNmsg("I"+STR$(i%),"","")
 1350      WHEN 1:m$=FNmsg("I"+STR$(100+spinon%),"","")
 1360    ENDCASE
 1370  WHEN Mavis
 1380    CASE i% OF
 1390      WHEN 3,4,6,7,9,10,13,14,18,19,21
 1400        m$=FNmsg("FF"+STR$i%,"","")
 1410      OTHERWISE:m$=FNmsg("FF","","")
 1420    ENDCASE
 1430  WHEN Found:m$=FNmsg("FFW","","")
 1440  WHEN Query:m$=FNmsg("QW","","")+"|M"+FNmsg("QW"+STR$(i%),"","")
 1450  OTHERWISE
 1460    IF spritemenu% m$=FNmsg("spm","","") ELSE m$=FNmenhelp(w%,i%)
 1470ENDCASE
 1480m$+=CHR$(0)
 1490bl%!0=256:bl%!12=bl%!8
 1500bl%!16=&503:$(bl%+20)=m$
 1510SYS&400E7,17,bl%,bl%!4
 1520ENDPROC
 1530DEFFNmenhelp(w%,i%)
 1540LOCAL m$
 1550SYS&400F4,1,Menus%,w%,i%
 1560CASE !Menus% OF
 1570  WHEN0:m$=FNmsg("MM"+STR$(!Menus%)+STR$clmenu%,"","")
 1580  WHEN -1,1,4,5,6
 1590    m$=FNmsg("MM"+STR$!Menus%,"","")
 1600  WHEN 2
 1610    CASE Menus%!4 OF
 1620      WHEN -1:m$=FNmsg("MM2","","")
 1630      WHEN 0,1,2,3,4
 1640        m$=FNconmenhelp(Menus%!4,Menus%!8)
 1650    ENDCASE
 1660  WHEN 3
 1670    CASE Menus%!4 OF
 1680      WHEN -1:m$=FNmsg("MM3","","")
 1690      WHEN Drives%:m$=FNmsg("MM31","RAM Disc.","")
 1700      OTHERWISE
 1710        CASE Menus%!8 OF
 1720          WHEN -1:m$=FNmsg("MM31",FNmsg("MM32",STR$Menus%!4,""),"")
 1730          OTHERWISE:m$=FNmsg("MM33",STR$(Menus%!4),"")
 1740        ENDCASE
 1750    ENDCASE
 1760ENDCASE
 1770=m$
 1780DEFFNconmenhelp(sub1%,sub2%)
 1790LOCAL m$
 1800m$=FNmsg("MM21",men$(7+sub1%),"")
 1810CASE sub2% OF
 1820  WHEN -1,0
 1830    m$+=FNmsg("MM22",bin$,"")+FNmsg("MM22"+STR$sub2%,"","")
 1840  OTHERWISE
 1850    m$+=FNmsg("MM23",FNwhich(sub2%),"")
 1860ENDCASE
 1870=m$
 1880DEFFNftype(text$,window,icon)
 1890LOCAL num%,loop%,return$,point,n$,f$,length
 1900IF text$="" THEN =""
 1910point=0
 1920num%=TRUE
 1930return$=""
 1940wrinkledforeskin%=FALSE
 1950IF LEFT$(text$,1)="&" text$=RIGHT$(text$,(LENtext$-1))
 1960FOR loop%=0 TO LENtext$
 1970  IF INSTR("GHIJKLMNOPQRSTUVWXYZghijklmnopqrstuvwxyz!#@$%^&*_+=-[]\{}|;':,./<>?`~",MID$(text$,loop%,1))>1 num%=FALSE
 1980NEXT
 1990IF LENtext$>3 num%=FALSE
 2000IF num% THEN
 2010  return$=text$
 2020ELSE
 2030  REPEAT
 2040    SYS&20023,"File$Type_*",block4%,20,point,0 TO ,,length,point
 2050    IF length<>0 THEN
 2060      n$=FNgetmem(block4%,FNless(length,8))
 2070      IF n$=text$ THEN
 2080        return$=RIGHT$(FNgetmem(point,13),3)
 2090      ENDIF
 2100    ENDIF
 2110  UNTIL length=0 OR return$<>""
 2120ENDIF
 2130IF return$="" THEN
 2140  PROCtrap(FNmsg("not","",""),0,0)
 2150  wrinkledforeskin%=TRUE
 2160  return$=text$
 2170ENDIF
 2180=return$


��respsave(icon%)
-f$=$(�lust(AuSav,1)):p$=$(�lust(AuSav,5))
Ȏ icon% �
(	  � 6
2    c%=currpath%
<    ȕ c%<p%
F;      Ftp$(c%)=Ftp$(c%+1):Svpth$(c%)=Svpth$(c%+1):c%+=1
P	    �
Z!    Ftp$(p%)="":Svpth$(p%)=""
d    � currpath%<p% p%-=1
n    �edure
x	  � 7
�    � f$<>"" � p$<>"" �
�A      Ftp$(currpath%)=�ftype(f$,AuSav,1):Svpth$(currpath%)=p$
�&      � currpath%=p% � p%<19 p%+=1
�%      � currpath%<19 currpath%+=1
�	    �
�    �edure
�	  � 8
�    � f$<>"" � p$<>"" �
�A      Ftp$(currpath%)=�ftype(f$,AuSav,1):Svpth$(currpath%)=p$
�&      � currpath%=p% � p%<19 p%+=1
�	    �
�"    � currpath%>0 currpath%-=1
�    �edure
  � 12:sconf%=� sconf%
  � 13:open%=� open%

  � 14
"    � �p$>0 �
,      � �objtype(p$)>1 �
6"        �("Filer_OpenDir "+p$)
@      �
J)        �trap(�msg("ndir","",""),0,0)
T      �
^	    �
h
  � 16
r    � f$<>"" � p$<>"" �
|A      Ftp$(currpath%)=�ftype(f$,AuSav,1):Svpth$(currpath%)=p$
�	    �
�    y=�(home$+".SaveOpts")
�    �#y,sconf%,open%
�3    � l%=0 � p%-1:�#y,Ftp$(l%):�#y,Svpth$(l%):�
�    �#y
��
�K�ps(AuSav,9,"Current : "+�(currpath%+1)):�ps(AuSav,10,"Total : "+�(p%))
��
���find(icon%)
�,� wip%>0 �trap(�msg("busy","",""),0,0):�
�"scrap%=�dim(3000):� scrap%=0 �
�� head$,pos%,x$,ohj%,pop$
�spath$=$(�lust(Mavis,3))
sname$=$(�lust(Mavis,6))
� sname$="" sname$="*"
,pop$=�ftype($(�lust(Mavis,13)),Mavis,13)
&� wrinkledforeskin% �
0*� pop$<>"" stype=�("&"+pop$) � stype=0
:$ffs%="sfile_"+pop$+�0
D�selic(Mavis,fficon%,0,0)
N/� � spath$=0 �trap(�msg("nsp","",""),0,1):�
X� �
b � � � �trap(�$,0,1):wip%=0:�
lwip%=0:head$=spath$
vȕ �head$,"\")>0
�
  wip%+=1
�  pos%=�head$,"\")
�!  msg$(wip%)=�head$,(pos%-1))
�  x$=�head$,(�head$-pos%))
�  head$=x$
�  ohj%=�objtype(msg$(wip%))
�E  � ohj%<>2 � ohj%<>3 �trap(�msg("sp",msg$(wip%),""),0,1):wip%-=1
��
�wip%+=1:msg$(wip%)=head$
�ohj%=�objtype(msg$(wip%))
�C� ohj%<>2 � ohj%<>3 �trap(�msg("sp",msg$(wip%),""),0,1):wip%-=1
�� �
�� wip%=0 �
wot%=0:head$=sname$
ȕ �head$,"\")>0 � wot%<10

  wot%+=1
   pos%=�head$,"\")
*!  wot$(wot%)=�head$,(pos%-1))
4  x$=�head$,(�head$-pos%))
>  head$=x$
H�
RE� wot%=10 �trap(�msg("tmn","",""),0,1) � wot%+=1:wot$(wot%)=head$
\� �rad(Mavis,10) �
f!  � � tdim% text%=�dim(10000)
p  � text%=0 �:�
z
  tdim%=�
�  entrywidth%=44
�3  $text%=�msg("fl","","")+�13:list%=entrywidth%
�
  file%=�
�-  � foundopen% �close(Found):foundopen%=0
��
�
  file%=�
��
��ibar("Searching")
�zappa%=1:pollmask%=&1800
�#bye%=1:usearcfs%=�rad(Mavis,14)
�� usearcfs% �
�=  �("RMEnsure ArcFS 0.00 RMLoad system:modules.ArcFSMod")
��
8casesens%=�rad(Mavis,7):totalsize%=0:tot%=0:found%=1
?�ps(Mavis,19,"0 files found"):�ps(Mavis,18,"0 bytes total")
+�changemavis("Abort","Current Search:")
$�
.��replytohelp
8� w%,i%,m$
B	m$=""
Lw%=bl%!32:i%=bl%!36
VȎ w% �
`
  � -2
j    Ȏ i% �
t'      � hole%:m$=�msg("ibar","","")
~*      � clicon%:m$=�msg("ibarc",�$,"")
�	    �
�  � Opt
�    Ȏ i% �
�0      � 1,3,4,8,9,11,12,13,14,16,18,19,20,21
�$        m$=�msg("O"+�(i%),"","")
�      :m$=�msg("O","","")
�	    �
�
  � AuSav
�    Ȏ i% �
�&      � 1,5,6,7,8,9,10,12,13,14,16
�$        m$=�msg("A"+�(i%),"","")
�/      � fileicon%:m$=�msg("Fileicon","","")
      :m$=�msg("A","","")

	    �
  � Info
    m$=�msg("I","","")
(    Ȏ i% �
2      � 0,2
<$        m$=�msg("I"+�(i%),"","")
F/      � 1:m$=�msg("I"+�(100+spinon%),"","")
P	    �
Z
  � Mavis
d    Ȏ i% �
n'      � 3,4,6,7,9,10,13,14,18,19,21
x#        m$=�msg("FF"+�i%,"","")
�      :m$=�msg("FF","","")
�	    �
�"  � Found:m$=�msg("FFW","","")
�=  � Query:m$=�msg("QW","","")+"|M"+�msg("QW"+�(i%),"","")
�  
�?    � spritemenu% m$=�msg("spm","","") � m$=�menhelp(w%,i%)
��
�m$+=�(0)
�bl%!0=256:bl%!12=bl%!8
�bl%!16=&503:$(bl%+20)=m$
�ș&400E7,17,bl%,bl%!4
��
�ݤmenhelp(w%,i%)
� m$
ș&400F4,1,Menus%,w%,i%
Ȏ !Menus% �
"0  �0:m$=�msg("MM"+�(!Menus%)+�clmenu%,"","")
,  � -1,1,4,5,6
6$    m$=�msg("MM"+�!Menus%,"","")
@	  � 2
J    Ȏ Menus%!4 �
T#      � -1:m$=�msg("MM2","","")
^      � 0,1,2,3,4
h-        m$=�conmenhelp(Menus%!4,Menus%!8)
r	    �
|	  � 3
�    Ȏ Menus%!4 �
�#      � -1:m$=�msg("MM3","","")
�2      � Drives%:m$=�msg("MM31","RAM Disc.","")
�      
�        Ȏ Menus%!8 �
�?          � -1:m$=�msg("MM31",�msg("MM32",�Menus%!4,""),"")
�.          :m$=�msg("MM33",�(Menus%!4),"")
�
        �
�	    �
��
�=m$
�ݤconmenhelp(sub1%,sub2%)
�� m$
$m$=�msg("MM21",men$(7+sub1%),"")
Ȏ sub2% �
  � -1,0
&:    m$+=�msg("MM22",bin$,"")+�msg("MM22"+�sub2%,"","")
0  
:)    m$+=�msg("MM23",�which(sub2%),"")
D�
N=m$
Xݤftype(text$,window,icon)
b+� num%,loop%,return$,point,n$,f$,length
l� text$="" � =""
vpoint=0
�
num%=�
�return$=""
�wrinkledforeskin%=�
�,� �text$,1)="&" text$=�text$,(�text$-1))
�� loop%=0 � �text$
�j  � �"GHIJKLMNOPQRSTUVWXYZghijklmnopqrstuvwxyz!#@$%^&*_+=-[]\{}|;':,./<>?`~",�text$,loop%,1))>1 num%=�
��
�� �text$>3 num%=�
�� num% �
�  return$=text$
��
�  �
�B    ș&20023,"File$Type_*",block4%,20,point,0 � ,,length,point
    � length<>0 �
-      n$=�getmem(block4%,�less(length,8))
      � n$=text$ �
 )        return$=¤getmem(point,13),3)
*      �
4	    �
>  � length=0 � return$<>""
H�
R� return$="" �
\"  �trap(�msg("not","",""),0,0)
f  wrinkledforeskin%=�
p  return$=text$
z�
�=return$
�

00000000  0d 00 0a 15 dd f2 72 65  73 70 73 61 76 65 28 69  |......respsave(i|
00000010  63 6f 6e 25 29 0d 00 14  2d 66 24 3d 24 28 a4 6c  |con%)...-f$=$(.l|
00000020  75 73 74 28 41 75 53 61  76 2c 31 29 29 3a 70 24  |ust(AuSav,1)):p$|
00000030  3d 24 28 a4 6c 75 73 74  28 41 75 53 61 76 2c 35  |=$(.lust(AuSav,5|
00000040  29 29 0d 00 1e 0e c8 8e  20 69 63 6f 6e 25 20 ca  |))...... icon% .|
00000050  0d 00 28 09 20 20 c9 20  36 0d 00 32 14 20 20 20  |..(.  . 6..2.   |
00000060  20 63 25 3d 63 75 72 72  70 61 74 68 25 0d 00 3c  | c%=currpath%..<|
00000070  10 20 20 20 20 c8 95 20  63 25 3c 70 25 0d 00 46  |.    .. c%<p%..F|
00000080  3b 20 20 20 20 20 20 46  74 70 24 28 63 25 29 3d  |;      Ftp$(c%)=|
00000090  46 74 70 24 28 63 25 2b  31 29 3a 53 76 70 74 68  |Ftp$(c%+1):Svpth|
000000a0  24 28 63 25 29 3d 53 76  70 74 68 24 28 63 25 2b  |$(c%)=Svpth$(c%+|
000000b0  31 29 3a 63 25 2b 3d 31  0d 00 50 09 20 20 20 20  |1):c%+=1..P.    |
000000c0  ce 0d 00 5a 21 20 20 20  20 46 74 70 24 28 70 25  |...Z!    Ftp$(p%|
000000d0  29 3d 22 22 3a 53 76 70  74 68 24 28 70 25 29 3d  |)="":Svpth$(p%)=|
000000e0  22 22 0d 00 64 1c 20 20  20 20 e7 20 63 75 72 72  |""..d.    . curr|
000000f0  70 61 74 68 25 3c 70 25  20 70 25 2d 3d 31 0d 00  |path%<p% p%-=1..|
00000100  6e 0e 20 20 20 20 f2 65  64 75 72 65 0d 00 78 09  |n.    .edure..x.|
00000110  20 20 c9 20 37 0d 00 82  1b 20 20 20 20 e7 20 66  |  . 7....    . f|
00000120  24 3c 3e 22 22 20 80 20  70 24 3c 3e 22 22 20 8c  |$<>"" . p$<>"" .|
00000130  0d 00 8c 41 20 20 20 20  20 20 46 74 70 24 28 63  |...A      Ftp$(c|
00000140  75 72 72 70 61 74 68 25  29 3d a4 66 74 79 70 65  |urrpath%)=.ftype|
00000150  28 66 24 2c 41 75 53 61  76 2c 31 29 3a 53 76 70  |(f$,AuSav,1):Svp|
00000160  74 68 24 28 63 75 72 72  70 61 74 68 25 29 3d 70  |th$(currpath%)=p|
00000170  24 0d 00 96 26 20 20 20  20 20 20 e7 20 63 75 72  |$...&      . cur|
00000180  72 70 61 74 68 25 3d 70  25 20 80 20 70 25 3c 31  |rpath%=p% . p%<1|
00000190  39 20 70 25 2b 3d 31 0d  00 a0 25 20 20 20 20 20  |9 p%+=1...%     |
000001a0  20 e7 20 63 75 72 72 70  61 74 68 25 3c 31 39 20  | . currpath%<19 |
000001b0  63 75 72 72 70 61 74 68  25 2b 3d 31 0d 00 aa 09  |currpath%+=1....|
000001c0  20 20 20 20 cd 0d 00 b4  0e 20 20 20 20 f2 65 64  |    .....    .ed|
000001d0  75 72 65 0d 00 be 09 20  20 c9 20 38 0d 00 c8 1b  |ure....  . 8....|
000001e0  20 20 20 20 e7 20 66 24  3c 3e 22 22 20 80 20 70  |    . f$<>"" . p|
000001f0  24 3c 3e 22 22 20 8c 0d  00 d2 41 20 20 20 20 20  |$<>"" ....A     |
00000200  20 46 74 70 24 28 63 75  72 72 70 61 74 68 25 29  | Ftp$(currpath%)|
00000210  3d a4 66 74 79 70 65 28  66 24 2c 41 75 53 61 76  |=.ftype(f$,AuSav|
00000220  2c 31 29 3a 53 76 70 74  68 24 28 63 75 72 72 70  |,1):Svpth$(currp|
00000230  61 74 68 25 29 3d 70 24  0d 00 dc 26 20 20 20 20  |ath%)=p$...&    |
00000240  20 20 e7 20 63 75 72 72  70 61 74 68 25 3d 70 25  |  . currpath%=p%|
00000250  20 80 20 70 25 3c 31 39  20 70 25 2b 3d 31 0d 00  | . p%<19 p%+=1..|
00000260  e6 09 20 20 20 20 cd 0d  00 f0 22 20 20 20 20 e7  |..    ...."    .|
00000270  20 63 75 72 72 70 61 74  68 25 3e 30 20 63 75 72  | currpath%>0 cur|
00000280  72 70 61 74 68 25 2d 3d  31 0d 00 fa 0e 20 20 20  |rpath%-=1....   |
00000290  20 f2 65 64 75 72 65 0d  01 04 1a 20 20 c9 20 31  | .edure....  . 1|
000002a0  32 3a 73 63 6f 6e 66 25  3d ac 20 73 63 6f 6e 66  |2:sconf%=. sconf|
000002b0  25 0d 01 0e 18 20 20 c9  20 31 33 3a 6f 70 65 6e  |%....  . 13:open|
000002c0  25 3d ac 20 6f 70 65 6e  25 0d 01 18 0a 20 20 c9  |%=. open%....  .|
000002d0  20 31 34 0d 01 22 11 20  20 20 20 e7 20 a9 70 24  | 14..".    . .p$|
000002e0  3e 30 20 8c 0d 01 2c 1c  20 20 20 20 20 20 e7 20  |>0 ...,.      . |
000002f0  a4 6f 62 6a 74 79 70 65  28 70 24 29 3e 31 20 8c  |.objtype(p$)>1 .|
00000300  0d 01 36 22 20 20 20 20  20 20 20 20 ff 28 22 46  |..6"        .("F|
00000310  69 6c 65 72 5f 4f 70 65  6e 44 69 72 20 22 2b 70  |iler_OpenDir "+p|
00000320  24 29 0d 01 40 0b 20 20  20 20 20 20 cc 0d 01 4a  |$)..@.      ...J|
00000330  29 20 20 20 20 20 20 20  20 f2 74 72 61 70 28 a4  |)        .trap(.|
00000340  6d 73 67 28 22 6e 64 69  72 22 2c 22 22 2c 22 22  |msg("ndir","",""|
00000350  29 2c 30 2c 30 29 0d 01  54 0b 20 20 20 20 20 20  |),0,0)..T.      |
00000360  cd 0d 01 5e 09 20 20 20  20 cd 0d 01 68 0a 20 20  |...^.    ...h.  |
00000370  c9 20 31 36 0d 01 72 1b  20 20 20 20 e7 20 66 24  |. 16..r.    . f$|
00000380  3c 3e 22 22 20 80 20 70  24 3c 3e 22 22 20 8c 0d  |<>"" . p$<>"" ..|
00000390  01 7c 41 20 20 20 20 20  20 46 74 70 24 28 63 75  |.|A      Ftp$(cu|
000003a0  72 72 70 61 74 68 25 29  3d a4 66 74 79 70 65 28  |rrpath%)=.ftype(|
000003b0  66 24 2c 41 75 53 61 76  2c 31 29 3a 53 76 70 74  |f$,AuSav,1):Svpt|
000003c0  68 24 28 63 75 72 72 70  61 74 68 25 29 3d 70 24  |h$(currpath%)=p$|
000003d0  0d 01 86 09 20 20 20 20  cd 0d 01 90 1e 20 20 20  |....    .....   |
000003e0  20 79 3d ae 28 68 6f 6d  65 24 2b 22 2e 53 61 76  | y=.(home$+".Sav|
000003f0  65 4f 70 74 73 22 29 0d  01 9a 18 20 20 20 20 f1  |eOpts")....    .|
00000400  23 79 2c 73 63 6f 6e 66  25 2c 6f 70 65 6e 25 0d  |#y,sconf%,open%.|
00000410  01 a4 33 20 20 20 20 e3  20 6c 25 3d 30 20 b8 20  |..3    . l%=0 . |
00000420  70 25 2d 31 3a d5 23 79  2c 46 74 70 24 28 6c 25  |p%-1:.#y,Ftp$(l%|
00000430  29 3a d5 23 79 2c 53 76  70 74 68 24 28 6c 25 29  |):.#y,Svpth$(l%)|
00000440  3a ed 0d 01 ae 0b 20 20  20 20 d9 23 79 0d 01 b8  |:.....    .#y...|
00000450  05 cb 0d 01 c2 4b f2 70  73 28 41 75 53 61 76 2c  |.....K.ps(AuSav,|
00000460  39 2c 22 43 75 72 72 65  6e 74 20 3a 20 22 2b c3  |9,"Current : "+.|
00000470  28 63 75 72 72 70 61 74  68 25 2b 31 29 29 3a f2  |(currpath%+1)):.|
00000480  70 73 28 41 75 53 61 76  2c 31 30 2c 22 54 6f 74  |ps(AuSav,10,"Tot|
00000490  61 6c 20 3a 20 22 2b c3  28 70 25 29 29 0d 01 cc  |al : "+.(p%))...|
000004a0  05 e1 0d 01 d6 11 dd f2  66 69 6e 64 28 69 63 6f  |........find(ico|
000004b0  6e 25 29 0d 01 e0 2c e7  20 77 69 70 25 3e 30 20  |n%)...,. wip%>0 |
000004c0  f2 74 72 61 70 28 a4 6d  73 67 28 22 62 75 73 79  |.trap(.msg("busy|
000004d0  22 2c 22 22 2c 22 22 29  2c 30 2c 30 29 3a e1 0d  |","",""),0,0):..|
000004e0  01 ea 22 73 63 72 61 70  25 3d a4 64 69 6d 28 33  |.."scrap%=.dim(3|
000004f0  30 30 30 29 3a e7 20 73  63 72 61 70 25 3d 30 20  |000):. scrap%=0 |
00000500  e1 0d 01 f4 1d ea 20 68  65 61 64 24 2c 70 6f 73  |...... head$,pos|
00000510  25 2c 78 24 2c 6f 68 6a  25 2c 70 6f 70 24 0d 01  |%,x$,ohj%,pop$..|
00000520  fe 1c 73 70 61 74 68 24  3d 24 28 a4 6c 75 73 74  |..spath$=$(.lust|
00000530  28 4d 61 76 69 73 2c 33  29 29 0d 02 08 1c 73 6e  |(Mavis,3))....sn|
00000540  61 6d 65 24 3d 24 28 a4  6c 75 73 74 28 4d 61 76  |ame$=$(.lust(Mav|
00000550  69 73 2c 36 29 29 0d 02  12 1a e7 20 73 6e 61 6d  |is,6))..... snam|
00000560  65 24 3d 22 22 20 73 6e  61 6d 65 24 3d 22 2a 22  |e$="" sname$="*"|
00000570  0d 02 1c 2c 70 6f 70 24  3d a4 66 74 79 70 65 28  |...,pop$=.ftype(|
00000580  24 28 a4 6c 75 73 74 28  4d 61 76 69 73 2c 31 33  |$(.lust(Mavis,13|
00000590  29 29 2c 4d 61 76 69 73  2c 31 33 29 0d 02 26 19  |)),Mavis,13)..&.|
000005a0  e7 20 77 72 69 6e 6b 6c  65 64 66 6f 72 65 73 6b  |. wrinkledforesk|
000005b0  69 6e 25 20 e1 0d 02 30  2a e7 20 70 6f 70 24 3c  |in% ...0*. pop$<|
000005c0  3e 22 22 20 73 74 79 70  65 3d a0 28 22 26 22 2b  |>"" stype=.("&"+|
000005d0  70 6f 70 24 29 20 8b 20  73 74 79 70 65 3d 30 0d  |pop$) . stype=0.|
000005e0  02 3a 1a 24 66 66 73 25  3d 22 73 66 69 6c 65 5f  |.:.$ffs%="sfile_|
000005f0  22 2b 70 6f 70 24 2b bd  30 0d 02 44 1d f2 73 65  |"+pop$+.0..D..se|
00000600  6c 69 63 28 4d 61 76 69  73 2c 66 66 69 63 6f 6e  |lic(Mavis,fficon|
00000610  25 2c 30 2c 30 29 0d 02  4e 2f e7 20 a9 20 73 70  |%,0,0)..N/. . sp|
00000620  61 74 68 24 3d 30 20 f2  74 72 61 70 28 a4 6d 73  |ath$=0 .trap(.ms|
00000630  67 28 22 6e 73 70 22 2c  22 22 2c 22 22 29 2c 30  |g("nsp","",""),0|
00000640  2c 31 29 3a e1 0d 02 58  07 ea 20 85 0d 02 62 20  |,1):...X.. ...b |
00000650  ee 20 85 20 ea 20 f2 74  72 61 70 28 f6 24 2c 30  |. . . .trap(.$,0|
00000660  2c 31 29 3a 77 69 70 25  3d 30 3a e1 0d 02 6c 17  |,1):wip%=0:...l.|
00000670  77 69 70 25 3d 30 3a 68  65 61 64 24 3d 73 70 61  |wip%=0:head$=spa|
00000680  74 68 24 0d 02 76 14 c8  95 20 a7 68 65 61 64 24  |th$..v... .head$|
00000690  2c 22 5c 22 29 3e 30 0d  02 80 0d 20 20 77 69 70  |,"\")>0....  wip|
000006a0  25 2b 3d 31 0d 02 8a 16  20 20 70 6f 73 25 3d a7  |%+=1....  pos%=.|
000006b0  68 65 61 64 24 2c 22 5c  22 29 0d 02 94 21 20 20  |head$,"\")...!  |
000006c0  6d 73 67 24 28 77 69 70  25 29 3d c0 68 65 61 64  |msg$(wip%)=.head|
000006d0  24 2c 28 70 6f 73 25 2d  31 29 29 0d 02 9e 1e 20  |$,(pos%-1)).... |
000006e0  20 78 24 3d c2 68 65 61  64 24 2c 28 a9 68 65 61  | x$=.head$,(.hea|
000006f0  64 24 2d 70 6f 73 25 29  29 0d 02 a8 0e 20 20 68  |d$-pos%))....  h|
00000700  65 61 64 24 3d 78 24 0d  02 b2 1f 20 20 6f 68 6a  |ead$=x$....  ohj|
00000710  25 3d a4 6f 62 6a 74 79  70 65 28 6d 73 67 24 28  |%=.objtype(msg$(|
00000720  77 69 70 25 29 29 0d 02  bc 45 20 20 e7 20 6f 68  |wip%))...E  . oh|
00000730  6a 25 3c 3e 32 20 80 20  6f 68 6a 25 3c 3e 33 20  |j%<>2 . ohj%<>3 |
00000740  f2 74 72 61 70 28 a4 6d  73 67 28 22 73 70 22 2c  |.trap(.msg("sp",|
00000750  6d 73 67 24 28 77 69 70  25 29 2c 22 22 29 2c 30  |msg$(wip%),""),0|
00000760  2c 31 29 3a 77 69 70 25  2d 3d 31 0d 02 c6 05 ce  |,1):wip%-=1.....|
00000770  0d 02 d0 1c 77 69 70 25  2b 3d 31 3a 6d 73 67 24  |....wip%+=1:msg$|
00000780  28 77 69 70 25 29 3d 68  65 61 64 24 0d 02 da 1d  |(wip%)=head$....|
00000790  6f 68 6a 25 3d a4 6f 62  6a 74 79 70 65 28 6d 73  |ohj%=.objtype(ms|
000007a0  67 24 28 77 69 70 25 29  29 0d 02 e4 43 e7 20 6f  |g$(wip%))...C. o|
000007b0  68 6a 25 3c 3e 32 20 80  20 6f 68 6a 25 3c 3e 33  |hj%<>2 . ohj%<>3|
000007c0  20 f2 74 72 61 70 28 a4  6d 73 67 28 22 73 70 22  | .trap(.msg("sp"|
000007d0  2c 6d 73 67 24 28 77 69  70 25 29 2c 22 22 29 2c  |,msg$(wip%),""),|
000007e0  30 2c 31 29 3a 77 69 70  25 2d 3d 31 0d 02 ee 07  |0,1):wip%-=1....|
000007f0  f7 20 85 0d 02 f8 0e e7  20 77 69 70 25 3d 30 20  |. ...... wip%=0 |
00000800  e1 0d 03 02 17 77 6f 74  25 3d 30 3a 68 65 61 64  |.....wot%=0:head|
00000810  24 3d 73 6e 61 6d 65 24  0d 03 0c 1e c8 95 20 a7  |$=sname$...... .|
00000820  68 65 61 64 24 2c 22 5c  22 29 3e 30 20 80 20 77  |head$,"\")>0 . w|
00000830  6f 74 25 3c 31 30 0d 03  16 0d 20 20 77 6f 74 25  |ot%<10....  wot%|
00000840  2b 3d 31 0d 03 20 16 20  20 70 6f 73 25 3d a7 68  |+=1.. .  pos%=.h|
00000850  65 61 64 24 2c 22 5c 22  29 0d 03 2a 21 20 20 77  |ead$,"\")..*!  w|
00000860  6f 74 24 28 77 6f 74 25  29 3d c0 68 65 61 64 24  |ot$(wot%)=.head$|
00000870  2c 28 70 6f 73 25 2d 31  29 29 0d 03 34 1e 20 20  |,(pos%-1))..4.  |
00000880  78 24 3d c2 68 65 61 64  24 2c 28 a9 68 65 61 64  |x$=.head$,(.head|
00000890  24 2d 70 6f 73 25 29 29  0d 03 3e 0e 20 20 68 65  |$-pos%))..>.  he|
000008a0  61 64 24 3d 78 24 0d 03  48 05 ce 0d 03 52 45 e7  |ad$=x$..H....RE.|
000008b0  20 77 6f 74 25 3d 31 30  20 f2 74 72 61 70 28 a4  | wot%=10 .trap(.|
000008c0  6d 73 67 28 22 74 6d 6e  22 2c 22 22 2c 22 22 29  |msg("tmn","","")|
000008d0  2c 30 2c 31 29 20 8b 20  77 6f 74 25 2b 3d 31 3a  |,0,1) . wot%+=1:|
000008e0  77 6f 74 24 28 77 6f 74  25 29 3d 68 65 61 64 24  |wot$(wot%)=head$|
000008f0  0d 03 5c 16 e7 20 a4 72  61 64 28 4d 61 76 69 73  |..\.. .rad(Mavis|
00000900  2c 31 30 29 20 8c 0d 03  66 21 20 20 e7 20 ac 20  |,10) ...f!  . . |
00000910  74 64 69 6d 25 20 74 65  78 74 25 3d a4 64 69 6d  |tdim% text%=.dim|
00000920  28 31 30 30 30 30 29 0d  03 70 13 20 20 e7 20 74  |(10000)..p.  . t|
00000930  65 78 74 25 3d 30 20 cd  3a e1 0d 03 7a 0d 20 20  |ext%=0 .:...z.  |
00000940  74 64 69 6d 25 3d b9 0d  03 84 14 20 20 65 6e 74  |tdim%=.....  ent|
00000950  72 79 77 69 64 74 68 25  3d 34 34 0d 03 8e 33 20  |rywidth%=44...3 |
00000960  20 24 74 65 78 74 25 3d  a4 6d 73 67 28 22 66 6c  | $text%=.msg("fl|
00000970  22 2c 22 22 2c 22 22 29  2b bd 31 33 3a 6c 69 73  |","","")+.13:lis|
00000980  74 25 3d 65 6e 74 72 79  77 69 64 74 68 25 0d 03  |t%=entrywidth%..|
00000990  98 0d 20 20 66 69 6c 65  25 3d b9 0d 03 a2 2d 20  |..  file%=....- |
000009a0  20 e7 20 66 6f 75 6e 64  6f 70 65 6e 25 20 f2 63  | . foundopen% .c|
000009b0  6c 6f 73 65 28 46 6f 75  6e 64 29 3a 66 6f 75 6e  |lose(Found):foun|
000009c0  64 6f 70 65 6e 25 3d 30  0d 03 ac 05 cc 0d 03 b6  |dopen%=0........|
000009d0  0d 20 20 66 69 6c 65 25  3d a3 0d 03 c0 05 cd 0d  |.  file%=.......|
000009e0  03 ca 16 f2 69 62 61 72  28 22 53 65 61 72 63 68  |....ibar("Search|
000009f0  69 6e 67 22 29 0d 03 d4  1c 7a 61 70 70 61 25 3d  |ing")....zappa%=|
00000a00  31 3a 70 6f 6c 6c 6d 61  73 6b 25 3d 26 31 38 30  |1:pollmask%=&180|
00000a10  30 0d 03 de 23 62 79 65  25 3d 31 3a 75 73 65 61  |0...#bye%=1:usea|
00000a20  72 63 66 73 25 3d a4 72  61 64 28 4d 61 76 69 73  |rcfs%=.rad(Mavis|
00000a30  2c 31 34 29 0d 03 e8 11  e7 20 75 73 65 61 72 63  |,14)..... usearc|
00000a40  66 73 25 20 8c 0d 03 f2  3d 20 20 ff 28 22 52 4d  |fs% ....=  .("RM|
00000a50  45 6e 73 75 72 65 20 41  72 63 46 53 20 30 2e 30  |Ensure ArcFS 0.0|
00000a60  30 20 52 4d 4c 6f 61 64  20 73 79 73 74 65 6d 3a  |0 RMLoad system:|
00000a70  6d 6f 64 75 6c 65 73 2e  41 72 63 46 53 4d 6f 64  |modules.ArcFSMod|
00000a80  22 29 0d 03 fc 05 cd 0d  04 06 38 63 61 73 65 73  |")........8cases|
00000a90  65 6e 73 25 3d a4 72 61  64 28 4d 61 76 69 73 2c  |ens%=.rad(Mavis,|
00000aa0  37 29 3a 74 6f 74 61 6c  73 69 7a 65 25 3d 30 3a  |7):totalsize%=0:|
00000ab0  74 6f 74 25 3d 30 3a 66  6f 75 6e 64 25 3d 31 0d  |tot%=0:found%=1.|
00000ac0  04 10 3f f2 70 73 28 4d  61 76 69 73 2c 31 39 2c  |..?.ps(Mavis,19,|
00000ad0  22 30 20 66 69 6c 65 73  20 66 6f 75 6e 64 22 29  |"0 files found")|
00000ae0  3a f2 70 73 28 4d 61 76  69 73 2c 31 38 2c 22 30  |:.ps(Mavis,18,"0|
00000af0  20 62 79 74 65 73 20 74  6f 74 61 6c 22 29 0d 04  | bytes total")..|
00000b00  1a 2b f2 63 68 61 6e 67  65 6d 61 76 69 73 28 22  |.+.changemavis("|
00000b10  41 62 6f 72 74 22 2c 22  43 75 72 72 65 6e 74 20  |Abort","Current |
00000b20  53 65 61 72 63 68 3a 22  29 0d 04 24 05 e1 0d 04  |Search:")..$....|
00000b30  2e 11 dd f2 72 65 70 6c  79 74 6f 68 65 6c 70 0d  |....replytohelp.|
00000b40  04 38 0e ea 20 77 25 2c  69 25 2c 6d 24 0d 04 42  |.8.. w%,i%,m$..B|
00000b50  09 6d 24 3d 22 22 0d 04  4c 17 77 25 3d 62 6c 25  |.m$=""..L.w%=bl%|
00000b60  21 33 32 3a 69 25 3d 62  6c 25 21 33 36 0d 04 56  |!32:i%=bl%!36..V|
00000b70  0b c8 8e 20 77 25 20 ca  0d 04 60 0a 20 20 c9 20  |... w% ...`.  . |
00000b80  2d 32 0d 04 6a 0f 20 20  20 20 c8 8e 20 69 25 20  |-2..j.    .. i% |
00000b90  ca 0d 04 74 27 20 20 20  20 20 20 c9 20 68 6f 6c  |...t'      . hol|
00000ba0  65 25 3a 6d 24 3d a4 6d  73 67 28 22 69 62 61 72  |e%:m$=.msg("ibar|
00000bb0  22 2c 22 22 2c 22 22 29  0d 04 7e 2a 20 20 20 20  |","","")..~*    |
00000bc0  20 20 c9 20 63 6c 69 63  6f 6e 25 3a 6d 24 3d a4  |  . clicon%:m$=.|
00000bd0  6d 73 67 28 22 69 62 61  72 63 22 2c 91 24 2c 22  |msg("ibarc",.$,"|
00000be0  22 29 0d 04 88 09 20 20  20 20 cb 0d 04 92 0b 20  |")....    ..... |
00000bf0  20 c9 20 4f 70 74 0d 04  9c 0f 20 20 20 20 c8 8e  | . Opt....    ..|
00000c00  20 69 25 20 ca 0d 04 a6  30 20 20 20 20 20 20 c9  | i% ....0      .|
00000c10  20 31 2c 33 2c 34 2c 38  2c 39 2c 31 31 2c 31 32  | 1,3,4,8,9,11,12|
00000c20  2c 31 33 2c 31 34 2c 31  36 2c 31 38 2c 31 39 2c  |,13,14,16,18,19,|
00000c30  32 30 2c 32 31 0d 04 b0  24 20 20 20 20 20 20 20  |20,21...$       |
00000c40  20 6d 24 3d a4 6d 73 67  28 22 4f 22 2b c3 28 69  | m$=.msg("O"+.(i|
00000c50  25 29 2c 22 22 2c 22 22  29 0d 04 ba 1e 20 20 20  |%),"","")....   |
00000c60  20 20 20 7f 3a 6d 24 3d  a4 6d 73 67 28 22 4f 22  |   .:m$=.msg("O"|
00000c70  2c 22 22 2c 22 22 29 0d  04 c4 09 20 20 20 20 cb  |,"","")....    .|
00000c80  0d 04 ce 0d 20 20 c9 20  41 75 53 61 76 0d 04 d8  |....  . AuSav...|
00000c90  0f 20 20 20 20 c8 8e 20  69 25 20 ca 0d 04 e2 26  |.    .. i% ....&|
00000ca0  20 20 20 20 20 20 c9 20  31 2c 35 2c 36 2c 37 2c  |      . 1,5,6,7,|
00000cb0  38 2c 39 2c 31 30 2c 31  32 2c 31 33 2c 31 34 2c  |8,9,10,12,13,14,|
00000cc0  31 36 0d 04 ec 24 20 20  20 20 20 20 20 20 6d 24  |16...$        m$|
00000cd0  3d a4 6d 73 67 28 22 41  22 2b c3 28 69 25 29 2c  |=.msg("A"+.(i%),|
00000ce0  22 22 2c 22 22 29 0d 04  f6 2f 20 20 20 20 20 20  |"","").../      |
00000cf0  c9 20 66 69 6c 65 69 63  6f 6e 25 3a 6d 24 3d a4  |. fileicon%:m$=.|
00000d00  6d 73 67 28 22 46 69 6c  65 69 63 6f 6e 22 2c 22  |msg("Fileicon","|
00000d10  22 2c 22 22 29 0d 05 00  1e 20 20 20 20 20 20 7f  |","")....      .|
00000d20  3a 6d 24 3d a4 6d 73 67  28 22 41 22 2c 22 22 2c  |:m$=.msg("A","",|
00000d30  22 22 29 0d 05 0a 09 20  20 20 20 cb 0d 05 14 0c  |"")....    .....|
00000d40  20 20 c9 20 49 6e 66 6f  0d 05 1e 1a 20 20 20 20  |  . Info....    |
00000d50  6d 24 3d a4 6d 73 67 28  22 49 22 2c 22 22 2c 22  |m$=.msg("I","","|
00000d60  22 29 0d 05 28 0f 20 20  20 20 c8 8e 20 69 25 20  |")..(.    .. i% |
00000d70  ca 0d 05 32 0f 20 20 20  20 20 20 c9 20 30 2c 32  |...2.      . 0,2|
00000d80  0d 05 3c 24 20 20 20 20  20 20 20 20 6d 24 3d a4  |..<$        m$=.|
00000d90  6d 73 67 28 22 49 22 2b  c3 28 69 25 29 2c 22 22  |msg("I"+.(i%),""|
00000da0  2c 22 22 29 0d 05 46 2f  20 20 20 20 20 20 c9 20  |,"")..F/      . |
00000db0  31 3a 6d 24 3d a4 6d 73  67 28 22 49 22 2b c3 28  |1:m$=.msg("I"+.(|
00000dc0  31 30 30 2b 73 70 69 6e  6f 6e 25 29 2c 22 22 2c  |100+spinon%),"",|
00000dd0  22 22 29 0d 05 50 09 20  20 20 20 cb 0d 05 5a 0d  |"")..P.    ...Z.|
00000de0  20 20 c9 20 4d 61 76 69  73 0d 05 64 0f 20 20 20  |  . Mavis..d.   |
00000df0  20 c8 8e 20 69 25 20 ca  0d 05 6e 27 20 20 20 20  | .. i% ...n'    |
00000e00  20 20 c9 20 33 2c 34 2c  36 2c 37 2c 39 2c 31 30  |  . 3,4,6,7,9,10|
00000e10  2c 31 33 2c 31 34 2c 31  38 2c 31 39 2c 32 31 0d  |,13,14,18,19,21.|
00000e20  05 78 23 20 20 20 20 20  20 20 20 6d 24 3d a4 6d  |.x#        m$=.m|
00000e30  73 67 28 22 46 46 22 2b  c3 69 25 2c 22 22 2c 22  |sg("FF"+.i%,"","|
00000e40  22 29 0d 05 82 1f 20 20  20 20 20 20 7f 3a 6d 24  |")....      .:m$|
00000e50  3d a4 6d 73 67 28 22 46  46 22 2c 22 22 2c 22 22  |=.msg("FF","",""|
00000e60  29 0d 05 8c 09 20 20 20  20 cb 0d 05 96 22 20 20  |)....    ...."  |
00000e70  c9 20 46 6f 75 6e 64 3a  6d 24 3d a4 6d 73 67 28  |. Found:m$=.msg(|
00000e80  22 46 46 57 22 2c 22 22  2c 22 22 29 0d 05 a0 3d  |"FFW","","")...=|
00000e90  20 20 c9 20 51 75 65 72  79 3a 6d 24 3d a4 6d 73  |  . Query:m$=.ms|
00000ea0  67 28 22 51 57 22 2c 22  22 2c 22 22 29 2b 22 7c  |g("QW","","")+"||
00000eb0  4d 22 2b a4 6d 73 67 28  22 51 57 22 2b c3 28 69  |M"+.msg("QW"+.(i|
00000ec0  25 29 2c 22 22 2c 22 22  29 0d 05 aa 07 20 20 7f  |%),"","")....  .|
00000ed0  0d 05 b4 3f 20 20 20 20  e7 20 73 70 72 69 74 65  |...?    . sprite|
00000ee0  6d 65 6e 75 25 20 6d 24  3d a4 6d 73 67 28 22 73  |menu% m$=.msg("s|
00000ef0  70 6d 22 2c 22 22 2c 22  22 29 20 8b 20 6d 24 3d  |pm","","") . m$=|
00000f00  a4 6d 65 6e 68 65 6c 70  28 77 25 2c 69 25 29 0d  |.menhelp(w%,i%).|
00000f10  05 be 05 cb 0d 05 c8 0c  6d 24 2b 3d bd 28 30 29  |........m$+=.(0)|
00000f20  0d 05 d2 1a 62 6c 25 21  30 3d 32 35 36 3a 62 6c  |....bl%!0=256:bl|
00000f30  25 21 31 32 3d 62 6c 25  21 38 0d 05 dc 1c 62 6c  |%!12=bl%!8....bl|
00000f40  25 21 31 36 3d 26 35 30  33 3a 24 28 62 6c 25 2b  |%!16=&503:$(bl%+|
00000f50  32 30 29 3d 6d 24 0d 05  e6 19 c8 99 26 34 30 30  |20)=m$......&400|
00000f60  45 37 2c 31 37 2c 62 6c  25 2c 62 6c 25 21 34 0d  |E7,17,bl%,bl%!4.|
00000f70  05 f0 05 e1 0d 05 fa 14  dd a4 6d 65 6e 68 65 6c  |..........menhel|
00000f80  70 28 77 25 2c 69 25 29  0d 06 04 08 ea 20 6d 24  |p(w%,i%)..... m$|
00000f90  0d 06 0e 1b c8 99 26 34  30 30 46 34 2c 31 2c 4d  |......&400F4,1,M|
00000fa0  65 6e 75 73 25 2c 77 25  2c 69 25 0d 06 18 10 c8  |enus%,w%,i%.....|
00000fb0  8e 20 21 4d 65 6e 75 73  25 20 ca 0d 06 22 30 20  |. !Menus% ..."0 |
00000fc0  20 c9 30 3a 6d 24 3d a4  6d 73 67 28 22 4d 4d 22  | .0:m$=.msg("MM"|
00000fd0  2b c3 28 21 4d 65 6e 75  73 25 29 2b c3 63 6c 6d  |+.(!Menus%)+.clm|
00000fe0  65 6e 75 25 2c 22 22 2c  22 22 29 0d 06 2c 12 20  |enu%,"","")..,. |
00000ff0  20 c9 20 2d 31 2c 31 2c  34 2c 35 2c 36 0d 06 36  | . -1,1,4,5,6..6|
00001000  24 20 20 20 20 6d 24 3d  a4 6d 73 67 28 22 4d 4d  |$    m$=.msg("MM|
00001010  22 2b c3 21 4d 65 6e 75  73 25 2c 22 22 2c 22 22  |"+.!Menus%,"",""|
00001020  29 0d 06 40 09 20 20 c9  20 32 0d 06 4a 15 20 20  |)..@.  . 2..J.  |
00001030  20 20 c8 8e 20 4d 65 6e  75 73 25 21 34 20 ca 0d  |  .. Menus%!4 ..|
00001040  06 54 23 20 20 20 20 20  20 c9 20 2d 31 3a 6d 24  |.T#      . -1:m$|
00001050  3d a4 6d 73 67 28 22 4d  4d 32 22 2c 22 22 2c 22  |=.msg("MM2","","|
00001060  22 29 0d 06 5e 15 20 20  20 20 20 20 c9 20 30 2c  |")..^.      . 0,|
00001070  31 2c 32 2c 33 2c 34 0d  06 68 2d 20 20 20 20 20  |1,2,3,4..h-     |
00001080  20 20 20 6d 24 3d a4 63  6f 6e 6d 65 6e 68 65 6c  |   m$=.conmenhel|
00001090  70 28 4d 65 6e 75 73 25  21 34 2c 4d 65 6e 75 73  |p(Menus%!4,Menus|
000010a0  25 21 38 29 0d 06 72 09  20 20 20 20 cb 0d 06 7c  |%!8)..r.    ...||
000010b0  09 20 20 c9 20 33 0d 06  86 15 20 20 20 20 c8 8e  |.  . 3....    ..|
000010c0  20 4d 65 6e 75 73 25 21  34 20 ca 0d 06 90 23 20  | Menus%!4 ....# |
000010d0  20 20 20 20 20 c9 20 2d  31 3a 6d 24 3d a4 6d 73  |     . -1:m$=.ms|
000010e0  67 28 22 4d 4d 33 22 2c  22 22 2c 22 22 29 0d 06  |g("MM3","","")..|
000010f0  9a 32 20 20 20 20 20 20  c9 20 44 72 69 76 65 73  |.2      . Drives|
00001100  25 3a 6d 24 3d a4 6d 73  67 28 22 4d 4d 33 31 22  |%:m$=.msg("MM31"|
00001110  2c 22 52 41 4d 20 44 69  73 63 2e 22 2c 22 22 29  |,"RAM Disc.","")|
00001120  0d 06 a4 0b 20 20 20 20  20 20 7f 0d 06 ae 19 20  |....      ..... |
00001130  20 20 20 20 20 20 20 c8  8e 20 4d 65 6e 75 73 25  |       .. Menus%|
00001140  21 38 20 ca 0d 06 b8 3f  20 20 20 20 20 20 20 20  |!8 ....?        |
00001150  20 20 c9 20 2d 31 3a 6d  24 3d a4 6d 73 67 28 22  |  . -1:m$=.msg("|
00001160  4d 4d 33 31 22 2c a4 6d  73 67 28 22 4d 4d 33 32  |MM31",.msg("MM32|
00001170  22 2c c3 4d 65 6e 75 73  25 21 34 2c 22 22 29 2c  |",.Menus%!4,""),|
00001180  22 22 29 0d 06 c2 2e 20  20 20 20 20 20 20 20 20  |"")....         |
00001190  20 7f 3a 6d 24 3d a4 6d  73 67 28 22 4d 4d 33 33  | .:m$=.msg("MM33|
000011a0  22 2c c3 28 4d 65 6e 75  73 25 21 34 29 2c 22 22  |",.(Menus%!4),""|
000011b0  29 0d 06 cc 0d 20 20 20  20 20 20 20 20 cb 0d 06  |)....        ...|
000011c0  d6 09 20 20 20 20 cb 0d  06 e0 05 cb 0d 06 ea 07  |..    ..........|
000011d0  3d 6d 24 0d 06 f4 1d dd  a4 63 6f 6e 6d 65 6e 68  |=m$......conmenh|
000011e0  65 6c 70 28 73 75 62 31  25 2c 73 75 62 32 25 29  |elp(sub1%,sub2%)|
000011f0  0d 06 fe 08 ea 20 6d 24  0d 07 08 24 6d 24 3d a4  |..... m$...$m$=.|
00001200  6d 73 67 28 22 4d 4d 32  31 22 2c 6d 65 6e 24 28  |msg("MM21",men$(|
00001210  37 2b 73 75 62 31 25 29  2c 22 22 29 0d 07 12 0e  |7+sub1%),"")....|
00001220  c8 8e 20 73 75 62 32 25  20 ca 0d 07 1c 0c 20 20  |.. sub2% .....  |
00001230  c9 20 2d 31 2c 30 0d 07  26 3a 20 20 20 20 6d 24  |. -1,0..&:    m$|
00001240  2b 3d a4 6d 73 67 28 22  4d 4d 32 32 22 2c 62 69  |+=.msg("MM22",bi|
00001250  6e 24 2c 22 22 29 2b a4  6d 73 67 28 22 4d 4d 32  |n$,"")+.msg("MM2|
00001260  32 22 2b c3 73 75 62 32  25 2c 22 22 2c 22 22 29  |2"+.sub2%,"","")|
00001270  0d 07 30 07 20 20 7f 0d  07 3a 29 20 20 20 20 6d  |..0.  ...:)    m|
00001280  24 2b 3d a4 6d 73 67 28  22 4d 4d 32 33 22 2c a4  |$+=.msg("MM23",.|
00001290  77 68 69 63 68 28 73 75  62 32 25 29 2c 22 22 29  |which(sub2%),"")|
000012a0  0d 07 44 05 cb 0d 07 4e  07 3d 6d 24 0d 07 58 1e  |..D....N.=m$..X.|
000012b0  dd a4 66 74 79 70 65 28  74 65 78 74 24 2c 77 69  |..ftype(text$,wi|
000012c0  6e 64 6f 77 2c 69 63 6f  6e 29 0d 07 62 2b ea 20  |ndow,icon)..b+. |
000012d0  6e 75 6d 25 2c 6c 6f 6f  70 25 2c 72 65 74 75 72  |num%,loop%,retur|
000012e0  6e 24 2c 70 6f 69 6e 74  2c 6e 24 2c 66 24 2c 6c  |n$,point,n$,f$,l|
000012f0  65 6e 67 74 68 0d 07 6c  14 e7 20 74 65 78 74 24  |ength..l.. text$|
00001300  3d 22 22 20 8c 20 3d 22  22 0d 07 76 0b 70 6f 69  |="" . =""..v.poi|
00001310  6e 74 3d 30 0d 07 80 0a  6e 75 6d 25 3d b9 0d 07  |nt=0....num%=...|
00001320  8a 0e 72 65 74 75 72 6e  24 3d 22 22 0d 07 94 17  |..return$=""....|
00001330  77 72 69 6e 6b 6c 65 64  66 6f 72 65 73 6b 69 6e  |wrinkledforeskin|
00001340  25 3d a3 0d 07 9e 2c e7  20 c0 74 65 78 74 24 2c  |%=....,. .text$,|
00001350  31 29 3d 22 26 22 20 74  65 78 74 24 3d c2 74 65  |1)="&" text$=.te|
00001360  78 74 24 2c 28 a9 74 65  78 74 24 2d 31 29 29 0d  |xt$,(.text$-1)).|
00001370  07 a8 16 e3 20 6c 6f 6f  70 25 3d 30 20 b8 20 a9  |.... loop%=0 . .|
00001380  74 65 78 74 24 0d 07 b2  6a 20 20 e7 20 a7 22 47  |text$...j  . ."G|
00001390  48 49 4a 4b 4c 4d 4e 4f  50 51 52 53 54 55 56 57  |HIJKLMNOPQRSTUVW|
000013a0  58 59 5a 67 68 69 6a 6b  6c 6d 6e 6f 70 71 72 73  |XYZghijklmnopqrs|
000013b0  74 75 76 77 78 79 7a 21  23 40 24 25 5e 26 2a 5f  |tuvwxyz!#@$%^&*_|
000013c0  2b 3d 2d 5b 5d 5c 7b 7d  7c 3b 27 3a 2c 2e 2f 3c  |+=-[]\{}|;':,./<|
000013d0  3e 3f 60 7e 22 2c c1 74  65 78 74 24 2c 6c 6f 6f  |>?`~",.text$,loo|
000013e0  70 25 2c 31 29 29 3e 31  20 6e 75 6d 25 3d a3 0d  |p%,1))>1 num%=..|
000013f0  07 bc 05 ed 0d 07 c6 15  e7 20 a9 74 65 78 74 24  |......... .text$|
00001400  3e 33 20 6e 75 6d 25 3d  a3 0d 07 d0 0c e7 20 6e  |>3 num%=...... n|
00001410  75 6d 25 20 8c 0d 07 da  13 20 20 72 65 74 75 72  |um% .....  retur|
00001420  6e 24 3d 74 65 78 74 24  0d 07 e4 05 cc 0d 07 ee  |n$=text$........|
00001430  07 20 20 f5 0d 07 f8 42  20 20 20 20 c8 99 26 32  |.  ....B    ..&2|
00001440  30 30 32 33 2c 22 46 69  6c 65 24 54 79 70 65 5f  |0023,"File$Type_|
00001450  2a 22 2c 62 6c 6f 63 6b  34 25 2c 32 30 2c 70 6f  |*",block4%,20,po|
00001460  69 6e 74 2c 30 20 b8 20  2c 2c 6c 65 6e 67 74 68  |int,0 . ,,length|
00001470  2c 70 6f 69 6e 74 0d 08  02 15 20 20 20 20 e7 20  |,point....    . |
00001480  6c 65 6e 67 74 68 3c 3e  30 20 8c 0d 08 0c 2d 20  |length<>0 ....- |
00001490  20 20 20 20 20 6e 24 3d  a4 67 65 74 6d 65 6d 28  |     n$=.getmem(|
000014a0  62 6c 6f 63 6b 34 25 2c  a4 6c 65 73 73 28 6c 65  |block4%,.less(le|
000014b0  6e 67 74 68 2c 38 29 29  0d 08 16 16 20 20 20 20  |ngth,8))....    |
000014c0  20 20 e7 20 6e 24 3d 74  65 78 74 24 20 8c 0d 08  |  . n$=text$ ...|
000014d0  20 29 20 20 20 20 20 20  20 20 72 65 74 75 72 6e  | )        return|
000014e0  24 3d c2 a4 67 65 74 6d  65 6d 28 70 6f 69 6e 74  |$=..getmem(point|
000014f0  2c 31 33 29 2c 33 29 0d  08 2a 0b 20 20 20 20 20  |,13),3)..*.     |
00001500  20 cd 0d 08 34 09 20 20  20 20 cd 0d 08 3e 1e 20  | ...4.    ...>. |
00001510  20 fd 20 6c 65 6e 67 74  68 3d 30 20 84 20 72 65  | . length=0 . re|
00001520  74 75 72 6e 24 3c 3e 22  22 0d 08 48 05 cd 0d 08  |turn$<>""..H....|
00001530  52 12 e7 20 72 65 74 75  72 6e 24 3d 22 22 20 8c  |R.. return$="" .|
00001540  0d 08 5c 22 20 20 f2 74  72 61 70 28 a4 6d 73 67  |..\"  .trap(.msg|
00001550  28 22 6e 6f 74 22 2c 22  22 2c 22 22 29 2c 30 2c  |("not","",""),0,|
00001560  30 29 0d 08 66 19 20 20  77 72 69 6e 6b 6c 65 64  |0)..f.  wrinkled|
00001570  66 6f 72 65 73 6b 69 6e  25 3d b9 0d 08 70 13 20  |foreskin%=...p. |
00001580  20 72 65 74 75 72 6e 24  3d 74 65 78 74 24 0d 08  | return$=text$..|
00001590  7a 05 cd 0d 08 84 0c 3d  72 65 74 75 72 6e 24 0d  |z......=return$.|
000015a0  ff                                                |.|
000015a1

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