Home » Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/Menus/System/OpenSub
DesktopPD/Director/!Director/Menus/System/OpenSub
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/System/OpenSub |
| Read OK: | ✔ |
| File size: | 0113 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1995-10.adf » !Direct » Director/!Director/Menus/System/OpenSub
- Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/Menus/System/OpenSub
File contents
Set Director$Menu FileSub SetEval a menutext LEFT 3 SetEval b "<menutext>" RIGHT ((LEN "<menutext>")-3) DirectorParsePath <b> Menu "" <Director$Menu> -temp Option "View" Command Filer_OpenDir <Director$CurrentDir> Option "Close" Command SWI "XOS_Find" 0 <a> Endmenu
00000000 53 65 74 20 44 69 72 65 63 74 6f 72 24 4d 65 6e |Set Director$Men| 00000010 75 20 46 69 6c 65 53 75 62 0a 0a 53 65 74 45 76 |u FileSub..SetEv| 00000020 61 6c 20 61 20 6d 65 6e 75 74 65 78 74 20 4c 45 |al a menutext LE| 00000030 46 54 20 33 0a 53 65 74 45 76 61 6c 20 62 20 22 |FT 3.SetEval b "| 00000040 3c 6d 65 6e 75 74 65 78 74 3e 22 20 52 49 47 48 |<menutext>" RIGH| 00000050 54 20 28 28 4c 45 4e 20 22 3c 6d 65 6e 75 74 65 |T ((LEN "<menute| 00000060 78 74 3e 22 29 2d 33 29 0a 0a 44 69 72 65 63 74 |xt>")-3)..Direct| 00000070 6f 72 50 61 72 73 65 50 61 74 68 20 3c 62 3e 0a |orParsePath <b>.| 00000080 0a 4d 65 6e 75 20 22 22 20 3c 44 69 72 65 63 74 |.Menu "" <Direct| 00000090 6f 72 24 4d 65 6e 75 3e 20 2d 74 65 6d 70 0a 09 |or$Menu> -temp..| 000000a0 4f 70 74 69 6f 6e 20 22 56 69 65 77 22 0a 09 09 |Option "View"...| 000000b0 43 6f 6d 6d 61 6e 64 20 46 69 6c 65 72 5f 4f 70 |Command Filer_Op| 000000c0 65 6e 44 69 72 20 3c 44 69 72 65 63 74 6f 72 24 |enDir <Director$| 000000d0 43 75 72 72 65 6e 74 44 69 72 3e 0a 09 4f 70 74 |CurrentDir>..Opt| 000000e0 69 6f 6e 20 22 43 6c 6f 73 65 22 0a 09 09 43 6f |ion "Close"...Co| 000000f0 6d 6d 61 6e 64 20 53 57 49 20 22 58 4f 53 5f 46 |mmand SWI "XOS_F| 00000100 69 6e 64 22 20 30 20 3c 61 3e 0a 45 6e 64 6d 65 |ind" 0 <a>.Endme| 00000110 6e 75 0a |nu.| 00000113
.