Home » Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/Menus/Files/MenuMenu

DesktopPD/Director/!Director/Menus/Files/MenuMenu

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 » Archimedes archive » Acorn User » AU 1998-09.adf » Features
Filename: DesktopPD/Director/!Director/Menus/Files/MenuMenu
Read OK: ✔
File size: 0E60 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    1REM >Director:Menus.Files.MenuMenu
    2
    3ON ERROR: ON ERROR OFF: ERROR ERR,REPORT$+" at "+STR$ERL
    4MenuName$="MenuMenuMenu"
    5
    6buffer_size%=1024
    7DIM buffer% buffer_size%
    8
    9Menu=FNswi_number("Director_Menu")
   10EndMenu=FNswi_number("Director_EndMenu")
   11Option=FNswi_number("Director_Option")
   12Command=FNswi_number("Director_Command")
   13Dash=FNswi_number("Director_Dash")
   14XOS_ReadVarVal=FNswi_number("XOS_ReadVarVal")
   15XOS_SetVarVal=FNswi_number("XOS_SetVarVal")
   16
   17PROCset("Director$Menu",MenuName$)
   18Leaf$=FNread("Director$CurrentLeaf")
   19IF Leaf$="" THEN
   20  *DirectorMouseDir x -file
   21  *DirectorParsePath <x>
   22  Leaf$=FNread("Director$CurrentLeaf")
   23  IF Leaf$="" THEN END
   24ENDIF
   25Path$=FNread("Director$CurrentPath")
   26Dir$=FNread("Director$CurrentDir")
   27DirLeaf$=FNleaf(Dir$)
   28PROCset("Leaf",Leaf$)
   29PROCset("Path",Path$)
   30PROCset("Dir",Dir$)
   31
   32SYS "XOS_File",&17,Path$ TO ,,,,,,Type%
   33
   34Title$=Leaf$
   35IF Leaf$<>DirLeaf$ AND LEN(DirLeaf$)<=3 THEN Title$=DirLeaf$+"."+Title$
   36
   37SYS Menu,Title$+" "+MenuName$+" -temp"
   38  SYS Option,Title$+" -path "+Path$+" -up"
   39
   40IF Type%<&1000 THEN Type$="File" ELSE Type$="Dir."
   41  SYS Option,""""+Type$+" �"+Leaf$+"�"" -sub ""Filer"""
   42    SYS Command,"Save:"+Path$
   43
   44SYS Dash
   45  SYS Option,"""Set CSD to �"+DirLeaf$+"�"""
   46    SYS Command,"Dir "+Dir$
   47  SYS Option,"""Open �"+DirLeaf$+"�"""
   48    SYS Command,"Filer_OpenDir "+Dir$
   49  SYS Option,"""Pin �"+Leaf$+"�"""
   50    SYS Command,"SWI OS_Mouse TO x y|MPin "+Path$+" |<x>-90 |<y>+45"
   51  SYS Option,"AddTinyDir"
   52    SYS Command,"AddTinyDir "+Path$
   53  SYS Option,"Command -sub *"
   54
   55
   56IF Path$<>Dir$ AND Type%>=&1000 THEN
   57SYS Dash
   58  SYS Option,"""Set CSD to �"+Leaf$+"�"""
   59    SYS Command,"Dir "+Path$
   60  SYS Option,"""Open �"+Leaf$+"�"""
   61    SYS Command,"Filer_OpenDir "+Path$
   62ENDIF
   63
   64IF Type%<&1000 THEN
   65SYS Dash
   66  SYS Option,"Filer_Run"
   67    SYS Command,"Filer_Run "+Path$
   68  SYS Option,"Filer_Boot"
   69    SYS Command,"Filer_Boot "+Path$
   70  SYS Option,"Edit"
   71    SYS Command,"DirectorEdit "+Path$
   72IF Type%=&FFB THEN
   73  SYS Option,"BasicEdit"
   74    SYS Command,"Fx 225 1|MSet a |<Key$0>|MKey 0 *Key 0 |<a>||MEDIT||M|MFx 138 0 128|MKey 4 |<0>|<&94>SYS""Wimp_CommandWindow"",-1||MQUIT||M|MDir "+Dir$+"|MBasic -load "+Leaf$
   75ENDIF
   76  SYS Option,"""Task window"" -sub ""Dynamic:/Director:Menus.Files.TaskArgs"""
   77    SYS Command,"TaskWindow """+Path$+""" -display -quit -name "+Leaf$
   78ENDIF
   79
   80IF Type%=&FF9 THEN
   81SYS Dash
   82  SYS Option,"IconSprites"
   83    SYS Command,"IconSprites "+Path$
   84  SYS Option,"ToolSprites"
   85    SYS Command,"ToolSprites "+Path$
   86  SYS Option,"""BackDrop"" -sub ""Set BackDrop"""
   87    SYS Command,"BackDrop -Tile "+Path$
   88ENDIF
   89
   90IF Type%=&FEB THEN
   91SYS Dash
   92  SYS Option,"DirectorObey"
   93    SYS Command,"DirectorObey "+Path$
   94  SYS Option,"""DirectorObey -v"""
   95    SYS Command,"TaskWindow ""DirectorObey -v "+Path$+""" -quit"
   96  SYS Option,"""Obey -v"""
   97    SYS Command,"TaskWindow ""Obey -v "+Path$+""" -quit"
   98ENDIF
   99
  100SYS Dash
  101  SYS Option,"Memoriser -sub Memoriser:"
  102
  103SYS EndMenu
  104
  105SYS Menu,"""Copy Local"""
  106  SYS Option,""""+Leaf$+""" -len 32"
  107    SYS Command,"/Director:Utils.RunFilerAc 7 <MenuText>"
  108SYS EndMenu
  109
  110SYS Menu,"""Rename����"" Rename"
  111  SYS Option,""""+Leaf$+""" -len 32"
  112    SYS Command,"Rename "+Path$+" "+Dir$+".<MenuText>"
  113SYS EndMenu
  114
  115END
  116
  117DEF FNswi_number(name$)
  118  SYS &39,,name$ TO A%
  119=A%
  120
  121DEF FNread(a$)
  122  ?buffer%=13
  123  SYS XOS_ReadVarVal,a$,buffer%,buffer_size%,0,3 TO ,,read%
  124  buffer%?read%=13
  125=$buffer%
  126
  127DEF PROCset(a$,v$)
  128  SYS XOS_SetVarVal,a$,v$,LENv$,0,0
  129ENDPROC
  130
  131DEFFNleaf(f$)
  132LOCALl%
  133  l%=LENf$:REPEATl%-=1:UNTILMID$(f$,l%,1)="."ORl%<1
  134=MID$(f$,l%+1)

$� >Director:Menus.Files.MenuMenu

 � �: � � �: � �,�$+" at "+Þ
MenuName$="MenuMenuMenu"

buffer_size%=1024
� buffer% buffer_size%

	%Menu=�swi_number("Director_Menu")

+EndMenu=�swi_number("Director_EndMenu")
)Option=�swi_number("Director_Option")
+Command=�swi_number("Director_Command")

%Dash=�swi_number("Director_Dash")
0XOS_ReadVarVal=�swi_number("XOS_ReadVarVal")
.XOS_SetVarVal=�swi_number("XOS_SetVarVal")

#�set("Director$Menu",MenuName$)
'Leaf$=�read("Director$CurrentLeaf")
� Leaf$="" �
  *DirectorMouseDir x -file
  *DirectorParsePath <x>
)  Leaf$=�read("Director$CurrentLeaf")
  � Leaf$="" � �
�
'Path$=�read("Director$CurrentPath")
%Dir$=�read("Director$CurrentDir")
DirLeaf$=�leaf(Dir$)
�set("Leaf",Leaf$)
�set("Path",Path$)
�set("Dir",Dir$)

 )ș "XOS_File",&17,Path$ � ,,,,,,Type%
!
"Title$=Leaf$
#C� Leaf$<>DirLeaf$ � �(DirLeaf$)<=3 � Title$=DirLeaf$+"."+Title$
$
%)ș Menu,Title$+" "+MenuName$+" -temp"
&-  ș Option,Title$+" -path "+Path$+" -up"
'
(/� Type%<&1000 � Type$="File" � Type$="Dir."
):  ș Option,""""+Type$+" �"+Leaf$+"�"" -sub ""Filer"""
*     ș Command,"Save:"+Path$
+
,ș Dash
-/  ș Option,"""Set CSD to �"+DirLeaf$+"�"""
.    ș Command,"Dir "+Dir$
/)  ș Option,"""Open �"+DirLeaf$+"�"""
0(    ș Command,"Filer_OpenDir "+Dir$
1%  ș Option,"""Pin �"+Leaf$+"�"""
2G    ș Command,"SWI OS_Mouse TO x y|MPin "+Path$+" |<x>-90 |<y>+45"
3  ș Option,"AddTinyDir"
4&    ș Command,"AddTinyDir "+Path$
5   ș Option,"Command -sub *"
6
7
8"� Path$<>Dir$ � Type%>=&1000 �
9ș Dash
:,  ș Option,"""Set CSD to �"+Leaf$+"�"""
;    ș Command,"Dir "+Path$
<&  ș Option,"""Open �"+Leaf$+"�"""
=)    ș Command,"Filer_OpenDir "+Path$
>�
?
@� Type%<&1000 �
Aș Dash
B  ș Option,"Filer_Run"
C%    ș Command,"Filer_Run "+Path$
D  ș Option,"Filer_Boot"
E&    ș Command,"Filer_Boot "+Path$
F  ș Option,"Edit"
G(    ș Command,"DirectorEdit "+Path$
H� Type%=&FFB �
I  ș Option,"BasicEdit"
J�    ș Command,"Fx 225 1|MSet a |<Key$0>|MKey 0 *Key 0 |<a>||MEDIT||M|MFx 138 0 128|MKey 4 |<0>|<&94>SYS""Wimp_CommandWindow"",-1||MQUIT||M|MDir "+Dir$+"|MBasic -load "+Leaf$
K�
LQ  ș Option,"""Task window"" -sub ""Dynamic:/Director:Menus.Files.TaskArgs"""
MI    ș Command,"TaskWindow """+Path$+""" -display -quit -name "+Leaf$
N�
O
P� Type%=&FF9 �
Qș Dash
R  ș Option,"IconSprites"
S'    ș Command,"IconSprites "+Path$
T  ș Option,"ToolSprites"
U'    ș Command,"ToolSprites "+Path$
V4  ș Option,"""BackDrop"" -sub ""Set BackDrop"""
W*    ș Command,"BackDrop -Tile "+Path$
X�
Y
Z� Type%=&FEB �
[ș Dash
\  ș Option,"DirectorObey"
](    ș Command,"DirectorObey "+Path$
^%  ș Option,"""DirectorObey -v"""
_C    ș Command,"TaskWindow ""DirectorObey -v "+Path$+""" -quit"
`  ș Option,"""Obey -v"""
a;    ș Command,"TaskWindow ""Obey -v "+Path$+""" -quit"
b�
c
dș Dash
e+  ș Option,"Memoriser -sub Memoriser:"
f
gș EndMenu
h
iș Menu,"""Copy Local"""
j'  ș Option,""""+Leaf$+""" -len 32"
k<    ș Command,"/Director:Utils.RunFilerAc 7 <MenuText>"
lș EndMenu
m
n#ș Menu,"""Rename����"" Rename"
o'  ș Option,""""+Leaf$+""" -len 32"
p9    ș Command,"Rename "+Path$+" "+Dir$+".<MenuText>"
qș EndMenu
r
s�
t
u� �swi_number(name$)
v  ș &39,,name$ � A%
w=A%
x
y� �read(a$)
z  ?buffer%=13
{=  ș XOS_ReadVarVal,a$,buffer%,buffer_size%,0,3 � ,,read%
|  buffer%?read%=13
}
=$buffer%
~
� �set(a$,v$)
�$  ș XOS_SetVarVal,a$,v$,�v$,0,0
��
�
�ݤleaf(f$)
��l%
�'  l%=�f$:�l%-=1:��f$,l%,1)="."�l%<1
�=�f$,l%+1)
�
00000000  0d 00 01 24 f4 20 3e 44  69 72 65 63 74 6f 72 3a  |...$. >Director:|
00000010  4d 65 6e 75 73 2e 46 69  6c 65 73 2e 4d 65 6e 75  |Menus.Files.Menu|
00000020  4d 65 6e 75 0d 00 02 04  0d 00 03 20 ee 20 85 3a  |Menu....... . .:|
00000030  20 ee 20 85 20 87 3a 20  85 20 9f 2c f6 24 2b 22  | . . .: . .,.$+"|
00000040  20 61 74 20 22 2b c3 9e  0d 00 04 1c 4d 65 6e 75  | at "+......Menu|
00000050  4e 61 6d 65 24 3d 22 4d  65 6e 75 4d 65 6e 75 4d  |Name$="MenuMenuM|
00000060  65 6e 75 22 0d 00 05 04  0d 00 06 15 62 75 66 66  |enu"........buff|
00000070  65 72 5f 73 69 7a 65 25  3d 31 30 32 34 0d 00 07  |er_size%=1024...|
00000080  1a de 20 62 75 66 66 65  72 25 20 62 75 66 66 65  |.. buffer% buffe|
00000090  72 5f 73 69 7a 65 25 0d  00 08 04 0d 00 09 25 4d  |r_size%.......%M|
000000a0  65 6e 75 3d a4 73 77 69  5f 6e 75 6d 62 65 72 28  |enu=.swi_number(|
000000b0  22 44 69 72 65 63 74 6f  72 5f 4d 65 6e 75 22 29  |"Director_Menu")|
000000c0  0d 00 0a 2b 45 6e 64 4d  65 6e 75 3d a4 73 77 69  |...+EndMenu=.swi|
000000d0  5f 6e 75 6d 62 65 72 28  22 44 69 72 65 63 74 6f  |_number("Directo|
000000e0  72 5f 45 6e 64 4d 65 6e  75 22 29 0d 00 0b 29 4f  |r_EndMenu")...)O|
000000f0  70 74 69 6f 6e 3d a4 73  77 69 5f 6e 75 6d 62 65  |ption=.swi_numbe|
00000100  72 28 22 44 69 72 65 63  74 6f 72 5f 4f 70 74 69  |r("Director_Opti|
00000110  6f 6e 22 29 0d 00 0c 2b  43 6f 6d 6d 61 6e 64 3d  |on")...+Command=|
00000120  a4 73 77 69 5f 6e 75 6d  62 65 72 28 22 44 69 72  |.swi_number("Dir|
00000130  65 63 74 6f 72 5f 43 6f  6d 6d 61 6e 64 22 29 0d  |ector_Command").|
00000140  00 0d 25 44 61 73 68 3d  a4 73 77 69 5f 6e 75 6d  |..%Dash=.swi_num|
00000150  62 65 72 28 22 44 69 72  65 63 74 6f 72 5f 44 61  |ber("Director_Da|
00000160  73 68 22 29 0d 00 0e 30  58 4f 53 5f 52 65 61 64  |sh")...0XOS_Read|
00000170  56 61 72 56 61 6c 3d a4  73 77 69 5f 6e 75 6d 62  |VarVal=.swi_numb|
00000180  65 72 28 22 58 4f 53 5f  52 65 61 64 56 61 72 56  |er("XOS_ReadVarV|
00000190  61 6c 22 29 0d 00 0f 2e  58 4f 53 5f 53 65 74 56  |al")....XOS_SetV|
000001a0  61 72 56 61 6c 3d a4 73  77 69 5f 6e 75 6d 62 65  |arVal=.swi_numbe|
000001b0  72 28 22 58 4f 53 5f 53  65 74 56 61 72 56 61 6c  |r("XOS_SetVarVal|
000001c0  22 29 0d 00 10 04 0d 00  11 23 f2 73 65 74 28 22  |").......#.set("|
000001d0  44 69 72 65 63 74 6f 72  24 4d 65 6e 75 22 2c 4d  |Director$Menu",M|
000001e0  65 6e 75 4e 61 6d 65 24  29 0d 00 12 27 4c 65 61  |enuName$)...'Lea|
000001f0  66 24 3d a4 72 65 61 64  28 22 44 69 72 65 63 74  |f$=.read("Direct|
00000200  6f 72 24 43 75 72 72 65  6e 74 4c 65 61 66 22 29  |or$CurrentLeaf")|
00000210  0d 00 13 10 e7 20 4c 65  61 66 24 3d 22 22 20 8c  |..... Leaf$="" .|
00000220  0d 00 14 1f 20 20 2a 44  69 72 65 63 74 6f 72 4d  |....  *DirectorM|
00000230  6f 75 73 65 44 69 72 20  78 20 2d 66 69 6c 65 0d  |ouseDir x -file.|
00000240  00 15 1c 20 20 2a 44 69  72 65 63 74 6f 72 50 61  |...  *DirectorPa|
00000250  72 73 65 50 61 74 68 20  3c 78 3e 0d 00 16 29 20  |rsePath <x>...) |
00000260  20 4c 65 61 66 24 3d a4  72 65 61 64 28 22 44 69  | Leaf$=.read("Di|
00000270  72 65 63 74 6f 72 24 43  75 72 72 65 6e 74 4c 65  |rector$CurrentLe|
00000280  61 66 22 29 0d 00 17 14  20 20 e7 20 4c 65 61 66  |af")....  . Leaf|
00000290  24 3d 22 22 20 8c 20 e0  0d 00 18 05 cd 0d 00 19  |$="" . .........|
000002a0  27 50 61 74 68 24 3d a4  72 65 61 64 28 22 44 69  |'Path$=.read("Di|
000002b0  72 65 63 74 6f 72 24 43  75 72 72 65 6e 74 50 61  |rector$CurrentPa|
000002c0  74 68 22 29 0d 00 1a 25  44 69 72 24 3d a4 72 65  |th")...%Dir$=.re|
000002d0  61 64 28 22 44 69 72 65  63 74 6f 72 24 43 75 72  |ad("Director$Cur|
000002e0  72 65 6e 74 44 69 72 22  29 0d 00 1b 18 44 69 72  |rentDir")....Dir|
000002f0  4c 65 61 66 24 3d a4 6c  65 61 66 28 44 69 72 24  |Leaf$=.leaf(Dir$|
00000300  29 0d 00 1c 16 f2 73 65  74 28 22 4c 65 61 66 22  |).....set("Leaf"|
00000310  2c 4c 65 61 66 24 29 0d  00 1d 16 f2 73 65 74 28  |,Leaf$).....set(|
00000320  22 50 61 74 68 22 2c 50  61 74 68 24 29 0d 00 1e  |"Path",Path$)...|
00000330  14 f2 73 65 74 28 22 44  69 72 22 2c 44 69 72 24  |..set("Dir",Dir$|
00000340  29 0d 00 1f 04 0d 00 20  29 c8 99 20 22 58 4f 53  |)...... ).. "XOS|
00000350  5f 46 69 6c 65 22 2c 26  31 37 2c 50 61 74 68 24  |_File",&17,Path$|
00000360  20 b8 20 2c 2c 2c 2c 2c  2c 54 79 70 65 25 0d 00  | . ,,,,,,Type%..|
00000370  21 04 0d 00 22 10 54 69  74 6c 65 24 3d 4c 65 61  |!...".Title$=Lea|
00000380  66 24 0d 00 23 43 e7 20  4c 65 61 66 24 3c 3e 44  |f$..#C. Leaf$<>D|
00000390  69 72 4c 65 61 66 24 20  80 20 a9 28 44 69 72 4c  |irLeaf$ . .(DirL|
000003a0  65 61 66 24 29 3c 3d 33  20 8c 20 54 69 74 6c 65  |eaf$)<=3 . Title|
000003b0  24 3d 44 69 72 4c 65 61  66 24 2b 22 2e 22 2b 54  |$=DirLeaf$+"."+T|
000003c0  69 74 6c 65 24 0d 00 24  04 0d 00 25 29 c8 99 20  |itle$..$...%).. |
000003d0  4d 65 6e 75 2c 54 69 74  6c 65 24 2b 22 20 22 2b  |Menu,Title$+" "+|
000003e0  4d 65 6e 75 4e 61 6d 65  24 2b 22 20 2d 74 65 6d  |MenuName$+" -tem|
000003f0  70 22 0d 00 26 2d 20 20  c8 99 20 4f 70 74 69 6f  |p"..&-  .. Optio|
00000400  6e 2c 54 69 74 6c 65 24  2b 22 20 2d 70 61 74 68  |n,Title$+" -path|
00000410  20 22 2b 50 61 74 68 24  2b 22 20 2d 75 70 22 0d  | "+Path$+" -up".|
00000420  00 27 04 0d 00 28 2f e7  20 54 79 70 65 25 3c 26  |.'...(/. Type%<&|
00000430  31 30 30 30 20 8c 20 54  79 70 65 24 3d 22 46 69  |1000 . Type$="Fi|
00000440  6c 65 22 20 8b 20 54 79  70 65 24 3d 22 44 69 72  |le" . Type$="Dir|
00000450  2e 22 0d 00 29 3a 20 20  c8 99 20 4f 70 74 69 6f  |."..):  .. Optio|
00000460  6e 2c 22 22 22 22 2b 54  79 70 65 24 2b 22 20 90  |n,""""+Type$+" .|
00000470  22 2b 4c 65 61 66 24 2b  22 91 22 22 20 2d 73 75  |"+Leaf$+"."" -su|
00000480  62 20 22 22 46 69 6c 65  72 22 22 22 0d 00 2a 20  |b ""Filer"""..* |
00000490  20 20 20 20 c8 99 20 43  6f 6d 6d 61 6e 64 2c 22  |    .. Command,"|
000004a0  53 61 76 65 3a 22 2b 50  61 74 68 24 0d 00 2b 04  |Save:"+Path$..+.|
000004b0  0d 00 2c 0b c8 99 20 44  61 73 68 0d 00 2d 2f 20  |..,... Dash..-/ |
000004c0  20 c8 99 20 4f 70 74 69  6f 6e 2c 22 22 22 53 65  | .. Option,"""Se|
000004d0  74 20 43 53 44 20 74 6f  20 90 22 2b 44 69 72 4c  |t CSD to ."+DirL|
000004e0  65 61 66 24 2b 22 91 22  22 22 0d 00 2e 1e 20 20  |eaf$+"."""....  |
000004f0  20 20 c8 99 20 43 6f 6d  6d 61 6e 64 2c 22 44 69  |  .. Command,"Di|
00000500  72 20 22 2b 44 69 72 24  0d 00 2f 29 20 20 c8 99  |r "+Dir$../)  ..|
00000510  20 4f 70 74 69 6f 6e 2c  22 22 22 4f 70 65 6e 20  | Option,"""Open |
00000520  90 22 2b 44 69 72 4c 65  61 66 24 2b 22 91 22 22  |."+DirLeaf$+".""|
00000530  22 0d 00 30 28 20 20 20  20 c8 99 20 43 6f 6d 6d  |"..0(    .. Comm|
00000540  61 6e 64 2c 22 46 69 6c  65 72 5f 4f 70 65 6e 44  |and,"Filer_OpenD|
00000550  69 72 20 22 2b 44 69 72  24 0d 00 31 25 20 20 c8  |ir "+Dir$..1%  .|
00000560  99 20 4f 70 74 69 6f 6e  2c 22 22 22 50 69 6e 20  |. Option,"""Pin |
00000570  90 22 2b 4c 65 61 66 24  2b 22 91 22 22 22 0d 00  |."+Leaf$+"."""..|
00000580  32 47 20 20 20 20 c8 99  20 43 6f 6d 6d 61 6e 64  |2G    .. Command|
00000590  2c 22 53 57 49 20 4f 53  5f 4d 6f 75 73 65 20 54  |,"SWI OS_Mouse T|
000005a0  4f 20 78 20 79 7c 4d 50  69 6e 20 22 2b 50 61 74  |O x y|MPin "+Pat|
000005b0  68 24 2b 22 20 7c 3c 78  3e 2d 39 30 20 7c 3c 79  |h$+" |<x>-90 |<y|
000005c0  3e 2b 34 35 22 0d 00 33  1c 20 20 c8 99 20 4f 70  |>+45"..3.  .. Op|
000005d0  74 69 6f 6e 2c 22 41 64  64 54 69 6e 79 44 69 72  |tion,"AddTinyDir|
000005e0  22 0d 00 34 26 20 20 20  20 c8 99 20 43 6f 6d 6d  |"..4&    .. Comm|
000005f0  61 6e 64 2c 22 41 64 64  54 69 6e 79 44 69 72 20  |and,"AddTinyDir |
00000600  22 2b 50 61 74 68 24 0d  00 35 20 20 20 c8 99 20  |"+Path$..5   .. |
00000610  4f 70 74 69 6f 6e 2c 22  43 6f 6d 6d 61 6e 64 20  |Option,"Command |
00000620  2d 73 75 62 20 2a 22 0d  00 36 04 0d 00 37 04 0d  |-sub *"..6...7..|
00000630  00 38 22 e7 20 50 61 74  68 24 3c 3e 44 69 72 24  |.8". Path$<>Dir$|
00000640  20 80 20 54 79 70 65 25  3e 3d 26 31 30 30 30 20  | . Type%>=&1000 |
00000650  8c 0d 00 39 0b c8 99 20  44 61 73 68 0d 00 3a 2c  |...9... Dash..:,|
00000660  20 20 c8 99 20 4f 70 74  69 6f 6e 2c 22 22 22 53  |  .. Option,"""S|
00000670  65 74 20 43 53 44 20 74  6f 20 90 22 2b 4c 65 61  |et CSD to ."+Lea|
00000680  66 24 2b 22 91 22 22 22  0d 00 3b 1f 20 20 20 20  |f$+"."""..;.    |
00000690  c8 99 20 43 6f 6d 6d 61  6e 64 2c 22 44 69 72 20  |.. Command,"Dir |
000006a0  22 2b 50 61 74 68 24 0d  00 3c 26 20 20 c8 99 20  |"+Path$..<&  .. |
000006b0  4f 70 74 69 6f 6e 2c 22  22 22 4f 70 65 6e 20 90  |Option,"""Open .|
000006c0  22 2b 4c 65 61 66 24 2b  22 91 22 22 22 0d 00 3d  |"+Leaf$+"."""..=|
000006d0  29 20 20 20 20 c8 99 20  43 6f 6d 6d 61 6e 64 2c  |)    .. Command,|
000006e0  22 46 69 6c 65 72 5f 4f  70 65 6e 44 69 72 20 22  |"Filer_OpenDir "|
000006f0  2b 50 61 74 68 24 0d 00  3e 05 cd 0d 00 3f 04 0d  |+Path$..>....?..|
00000700  00 40 13 e7 20 54 79 70  65 25 3c 26 31 30 30 30  |.@.. Type%<&1000|
00000710  20 8c 0d 00 41 0b c8 99  20 44 61 73 68 0d 00 42  | ...A... Dash..B|
00000720  1b 20 20 c8 99 20 4f 70  74 69 6f 6e 2c 22 46 69  |.  .. Option,"Fi|
00000730  6c 65 72 5f 52 75 6e 22  0d 00 43 25 20 20 20 20  |ler_Run"..C%    |
00000740  c8 99 20 43 6f 6d 6d 61  6e 64 2c 22 46 69 6c 65  |.. Command,"File|
00000750  72 5f 52 75 6e 20 22 2b  50 61 74 68 24 0d 00 44  |r_Run "+Path$..D|
00000760  1c 20 20 c8 99 20 4f 70  74 69 6f 6e 2c 22 46 69  |.  .. Option,"Fi|
00000770  6c 65 72 5f 42 6f 6f 74  22 0d 00 45 26 20 20 20  |ler_Boot"..E&   |
00000780  20 c8 99 20 43 6f 6d 6d  61 6e 64 2c 22 46 69 6c  | .. Command,"Fil|
00000790  65 72 5f 42 6f 6f 74 20  22 2b 50 61 74 68 24 0d  |er_Boot "+Path$.|
000007a0  00 46 16 20 20 c8 99 20  4f 70 74 69 6f 6e 2c 22  |.F.  .. Option,"|
000007b0  45 64 69 74 22 0d 00 47  28 20 20 20 20 c8 99 20  |Edit"..G(    .. |
000007c0  43 6f 6d 6d 61 6e 64 2c  22 44 69 72 65 63 74 6f  |Command,"Directo|
000007d0  72 45 64 69 74 20 22 2b  50 61 74 68 24 0d 00 48  |rEdit "+Path$..H|
000007e0  12 e7 20 54 79 70 65 25  3d 26 46 46 42 20 8c 0d  |.. Type%=&FFB ..|
000007f0  00 49 1b 20 20 c8 99 20  4f 70 74 69 6f 6e 2c 22  |.I.  .. Option,"|
00000800  42 61 73 69 63 45 64 69  74 22 0d 00 4a b2 20 20  |BasicEdit"..J.  |
00000810  20 20 c8 99 20 43 6f 6d  6d 61 6e 64 2c 22 46 78  |  .. Command,"Fx|
00000820  20 32 32 35 20 31 7c 4d  53 65 74 20 61 20 7c 3c  | 225 1|MSet a |<|
00000830  4b 65 79 24 30 3e 7c 4d  4b 65 79 20 30 20 2a 4b  |Key$0>|MKey 0 *K|
00000840  65 79 20 30 20 7c 3c 61  3e 7c 7c 4d 45 44 49 54  |ey 0 |<a>||MEDIT|
00000850  7c 7c 4d 7c 4d 46 78 20  31 33 38 20 30 20 31 32  |||M|MFx 138 0 12|
00000860  38 7c 4d 4b 65 79 20 34  20 7c 3c 30 3e 7c 3c 26  |8|MKey 4 |<0>|<&|
00000870  39 34 3e 53 59 53 22 22  57 69 6d 70 5f 43 6f 6d  |94>SYS""Wimp_Com|
00000880  6d 61 6e 64 57 69 6e 64  6f 77 22 22 2c 2d 31 7c  |mandWindow"",-1||
00000890  7c 4d 51 55 49 54 7c 7c  4d 7c 4d 44 69 72 20 22  ||MQUIT||M|MDir "|
000008a0  2b 44 69 72 24 2b 22 7c  4d 42 61 73 69 63 20 2d  |+Dir$+"|MBasic -|
000008b0  6c 6f 61 64 20 22 2b 4c  65 61 66 24 0d 00 4b 05  |load "+Leaf$..K.|
000008c0  cd 0d 00 4c 51 20 20 c8  99 20 4f 70 74 69 6f 6e  |...LQ  .. Option|
000008d0  2c 22 22 22 54 61 73 6b  20 77 69 6e 64 6f 77 22  |,"""Task window"|
000008e0  22 20 2d 73 75 62 20 22  22 44 79 6e 61 6d 69 63  |" -sub ""Dynamic|
000008f0  3a 2f 44 69 72 65 63 74  6f 72 3a 4d 65 6e 75 73  |:/Director:Menus|
00000900  2e 46 69 6c 65 73 2e 54  61 73 6b 41 72 67 73 22  |.Files.TaskArgs"|
00000910  22 22 0d 00 4d 49 20 20  20 20 c8 99 20 43 6f 6d  |""..MI    .. Com|
00000920  6d 61 6e 64 2c 22 54 61  73 6b 57 69 6e 64 6f 77  |mand,"TaskWindow|
00000930  20 22 22 22 2b 50 61 74  68 24 2b 22 22 22 20 2d  | """+Path$+""" -|
00000940  64 69 73 70 6c 61 79 20  2d 71 75 69 74 20 2d 6e  |display -quit -n|
00000950  61 6d 65 20 22 2b 4c 65  61 66 24 0d 00 4e 05 cd  |ame "+Leaf$..N..|
00000960  0d 00 4f 04 0d 00 50 12  e7 20 54 79 70 65 25 3d  |..O...P.. Type%=|
00000970  26 46 46 39 20 8c 0d 00  51 0b c8 99 20 44 61 73  |&FF9 ...Q... Das|
00000980  68 0d 00 52 1d 20 20 c8  99 20 4f 70 74 69 6f 6e  |h..R.  .. Option|
00000990  2c 22 49 63 6f 6e 53 70  72 69 74 65 73 22 0d 00  |,"IconSprites"..|
000009a0  53 27 20 20 20 20 c8 99  20 43 6f 6d 6d 61 6e 64  |S'    .. Command|
000009b0  2c 22 49 63 6f 6e 53 70  72 69 74 65 73 20 22 2b  |,"IconSprites "+|
000009c0  50 61 74 68 24 0d 00 54  1d 20 20 c8 99 20 4f 70  |Path$..T.  .. Op|
000009d0  74 69 6f 6e 2c 22 54 6f  6f 6c 53 70 72 69 74 65  |tion,"ToolSprite|
000009e0  73 22 0d 00 55 27 20 20  20 20 c8 99 20 43 6f 6d  |s"..U'    .. Com|
000009f0  6d 61 6e 64 2c 22 54 6f  6f 6c 53 70 72 69 74 65  |mand,"ToolSprite|
00000a00  73 20 22 2b 50 61 74 68  24 0d 00 56 34 20 20 c8  |s "+Path$..V4  .|
00000a10  99 20 4f 70 74 69 6f 6e  2c 22 22 22 42 61 63 6b  |. Option,"""Back|
00000a20  44 72 6f 70 22 22 20 2d  73 75 62 20 22 22 53 65  |Drop"" -sub ""Se|
00000a30  74 20 42 61 63 6b 44 72  6f 70 22 22 22 0d 00 57  |t BackDrop"""..W|
00000a40  2a 20 20 20 20 c8 99 20  43 6f 6d 6d 61 6e 64 2c  |*    .. Command,|
00000a50  22 42 61 63 6b 44 72 6f  70 20 2d 54 69 6c 65 20  |"BackDrop -Tile |
00000a60  22 2b 50 61 74 68 24 0d  00 58 05 cd 0d 00 59 04  |"+Path$..X....Y.|
00000a70  0d 00 5a 12 e7 20 54 79  70 65 25 3d 26 46 45 42  |..Z.. Type%=&FEB|
00000a80  20 8c 0d 00 5b 0b c8 99  20 44 61 73 68 0d 00 5c  | ...[... Dash..\|
00000a90  1e 20 20 c8 99 20 4f 70  74 69 6f 6e 2c 22 44 69  |.  .. Option,"Di|
00000aa0  72 65 63 74 6f 72 4f 62  65 79 22 0d 00 5d 28 20  |rectorObey"..]( |
00000ab0  20 20 20 c8 99 20 43 6f  6d 6d 61 6e 64 2c 22 44  |   .. Command,"D|
00000ac0  69 72 65 63 74 6f 72 4f  62 65 79 20 22 2b 50 61  |irectorObey "+Pa|
00000ad0  74 68 24 0d 00 5e 25 20  20 c8 99 20 4f 70 74 69  |th$..^%  .. Opti|
00000ae0  6f 6e 2c 22 22 22 44 69  72 65 63 74 6f 72 4f 62  |on,"""DirectorOb|
00000af0  65 79 20 2d 76 22 22 22  0d 00 5f 43 20 20 20 20  |ey -v""".._C    |
00000b00  c8 99 20 43 6f 6d 6d 61  6e 64 2c 22 54 61 73 6b  |.. Command,"Task|
00000b10  57 69 6e 64 6f 77 20 22  22 44 69 72 65 63 74 6f  |Window ""Directo|
00000b20  72 4f 62 65 79 20 2d 76  20 22 2b 50 61 74 68 24  |rObey -v "+Path$|
00000b30  2b 22 22 22 20 2d 71 75  69 74 22 0d 00 60 1d 20  |+""" -quit"..`. |
00000b40  20 c8 99 20 4f 70 74 69  6f 6e 2c 22 22 22 4f 62  | .. Option,"""Ob|
00000b50  65 79 20 2d 76 22 22 22  0d 00 61 3b 20 20 20 20  |ey -v"""..a;    |
00000b60  c8 99 20 43 6f 6d 6d 61  6e 64 2c 22 54 61 73 6b  |.. Command,"Task|
00000b70  57 69 6e 64 6f 77 20 22  22 4f 62 65 79 20 2d 76  |Window ""Obey -v|
00000b80  20 22 2b 50 61 74 68 24  2b 22 22 22 20 2d 71 75  | "+Path$+""" -qu|
00000b90  69 74 22 0d 00 62 05 cd  0d 00 63 04 0d 00 64 0b  |it"..b....c...d.|
00000ba0  c8 99 20 44 61 73 68 0d  00 65 2b 20 20 c8 99 20  |.. Dash..e+  .. |
00000bb0  4f 70 74 69 6f 6e 2c 22  4d 65 6d 6f 72 69 73 65  |Option,"Memorise|
00000bc0  72 20 2d 73 75 62 20 4d  65 6d 6f 72 69 73 65 72  |r -sub Memoriser|
00000bd0  3a 22 0d 00 66 04 0d 00  67 0e c8 99 20 45 6e 64  |:"..f...g... End|
00000be0  4d 65 6e 75 0d 00 68 04  0d 00 69 1c c8 99 20 4d  |Menu..h...i... M|
00000bf0  65 6e 75 2c 22 22 22 43  6f 70 79 20 4c 6f 63 61  |enu,"""Copy Loca|
00000c00  6c 22 22 22 0d 00 6a 27  20 20 c8 99 20 4f 70 74  |l"""..j'  .. Opt|
00000c10  69 6f 6e 2c 22 22 22 22  2b 4c 65 61 66 24 2b 22  |ion,""""+Leaf$+"|
00000c20  22 22 20 2d 6c 65 6e 20  33 32 22 0d 00 6b 3c 20  |"" -len 32"..k< |
00000c30  20 20 20 c8 99 20 43 6f  6d 6d 61 6e 64 2c 22 2f  |   .. Command,"/|
00000c40  44 69 72 65 63 74 6f 72  3a 55 74 69 6c 73 2e 52  |Director:Utils.R|
00000c50  75 6e 46 69 6c 65 72 41  63 20 37 20 3c 4d 65 6e  |unFilerAc 7 <Men|
00000c60  75 54 65 78 74 3e 22 0d  00 6c 0e c8 99 20 45 6e  |uText>"..l... En|
00000c70  64 4d 65 6e 75 0d 00 6d  04 0d 00 6e 23 c8 99 20  |dMenu..m...n#.. |
00000c80  4d 65 6e 75 2c 22 22 22  52 65 6e 61 6d 65 a0 a0  |Menu,"""Rename..|
00000c90  a0 a0 22 22 20 52 65 6e  61 6d 65 22 0d 00 6f 27  |.."" Rename"..o'|
00000ca0  20 20 c8 99 20 4f 70 74  69 6f 6e 2c 22 22 22 22  |  .. Option,""""|
00000cb0  2b 4c 65 61 66 24 2b 22  22 22 20 2d 6c 65 6e 20  |+Leaf$+""" -len |
00000cc0  33 32 22 0d 00 70 39 20  20 20 20 c8 99 20 43 6f  |32"..p9    .. Co|
00000cd0  6d 6d 61 6e 64 2c 22 52  65 6e 61 6d 65 20 22 2b  |mmand,"Rename "+|
00000ce0  50 61 74 68 24 2b 22 20  22 2b 44 69 72 24 2b 22  |Path$+" "+Dir$+"|
00000cf0  2e 3c 4d 65 6e 75 54 65  78 74 3e 22 0d 00 71 0e  |.<MenuText>"..q.|
00000d00  c8 99 20 45 6e 64 4d 65  6e 75 0d 00 72 04 0d 00  |.. EndMenu..r...|
00000d10  73 05 e0 0d 00 74 04 0d  00 75 18 dd 20 a4 73 77  |s....t...u.. .sw|
00000d20  69 5f 6e 75 6d 62 65 72  28 6e 61 6d 65 24 29 0d  |i_number(name$).|
00000d30  00 76 18 20 20 c8 99 20  26 33 39 2c 2c 6e 61 6d  |.v.  .. &39,,nam|
00000d40  65 24 20 b8 20 41 25 0d  00 77 07 3d 41 25 0d 00  |e$ . A%..w.=A%..|
00000d50  78 04 0d 00 79 0f dd 20  a4 72 65 61 64 28 61 24  |x...y.. .read(a$|
00000d60  29 0d 00 7a 11 20 20 3f  62 75 66 66 65 72 25 3d  |)..z.  ?buffer%=|
00000d70  31 33 0d 00 7b 3d 20 20  c8 99 20 58 4f 53 5f 52  |13..{=  .. XOS_R|
00000d80  65 61 64 56 61 72 56 61  6c 2c 61 24 2c 62 75 66  |eadVarVal,a$,buf|
00000d90  66 65 72 25 2c 62 75 66  66 65 72 5f 73 69 7a 65  |fer%,buffer_size|
00000da0  25 2c 30 2c 33 20 b8 20  2c 2c 72 65 61 64 25 0d  |%,0,3 . ,,read%.|
00000db0  00 7c 16 20 20 62 75 66  66 65 72 25 3f 72 65 61  |.|.  buffer%?rea|
00000dc0  64 25 3d 31 33 0d 00 7d  0d 3d 24 62 75 66 66 65  |d%=13..}.=$buffe|
00000dd0  72 25 0d 00 7e 04 0d 00  7f 11 dd 20 f2 73 65 74  |r%..~...... .set|
00000de0  28 61 24 2c 76 24 29 0d  00 80 24 20 20 c8 99 20  |(a$,v$)...$  .. |
00000df0  58 4f 53 5f 53 65 74 56  61 72 56 61 6c 2c 61 24  |XOS_SetVarVal,a$|
00000e00  2c 76 24 2c a9 76 24 2c  30 2c 30 0d 00 81 05 e1  |,v$,.v$,0,0.....|
00000e10  0d 00 82 04 0d 00 83 0e  dd a4 6c 65 61 66 28 66  |..........leaf(f|
00000e20  24 29 0d 00 84 07 ea 6c  25 0d 00 85 27 20 20 6c  |$).....l%...'  l|
00000e30  25 3d a9 66 24 3a f5 6c  25 2d 3d 31 3a fd c1 66  |%=.f$:.l%-=1:..f|
00000e40  24 2c 6c 25 2c 31 29 3d  22 2e 22 84 6c 25 3c 31  |$,l%,1)=".".l%<1|
00000e50  0d 00 86 0e 3d c1 66 24  2c 6c 25 2b 31 29 0d ff  |....=.f$,l%+1)..|
00000e60

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .