Home » Archimedes archive » Acorn User » AU 1996-05.adf » Regulars » StarInfo/Casula/!Boot/SetPaths
StarInfo/Casula/!Boot/SetPaths
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 1996-05.adf » Regulars |
| Filename: | StarInfo/Casula/!Boot/SetPaths |
| Read OK: | ✔ |
| File size: | 019F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| | You may want to put a Lib command here as | described in the ReadMe file. | | Lib <directory> | Set Boot$Path <Obey$Dir>. Lib <Boot$Dir>.Library Set Utils$Path <Obey$Dir>.Utils. Set Choices$Path <Obey$Dir>.Choices. Set Resources$Dir <Obey$Dir>.Resources Set Boot$ToBeLoaded Choices:Boot.PreDesk Set Boot$ToBeTasks Choices:Boot.Tasks SetEval Root$Dir "<Obey$Dir>" LEFT(LEN(Obey$Dir)-6) Set Root$Path <Root$Dir>.
00000000 7c 0a 7c 20 59 6f 75 20 6d 61 79 20 77 61 6e 74 ||.| You may want| 00000010 20 74 6f 20 70 75 74 20 61 20 4c 69 62 20 63 6f | to put a Lib co| 00000020 6d 6d 61 6e 64 20 68 65 72 65 20 61 73 0a 7c 20 |mmand here as.| | 00000030 64 65 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 |described in the| 00000040 20 52 65 61 64 4d 65 20 66 69 6c 65 2e 0a 7c 0a | ReadMe file..|.| 00000050 7c 20 4c 69 62 20 3c 64 69 72 65 63 74 6f 72 79 || Lib <directory| 00000060 3e 0a 7c 0a 53 65 74 20 42 6f 6f 74 24 50 61 74 |>.|.Set Boot$Pat| 00000070 68 20 3c 4f 62 65 79 24 44 69 72 3e 2e 0a 4c 69 |h <Obey$Dir>..Li| 00000080 62 20 3c 42 6f 6f 74 24 44 69 72 3e 2e 4c 69 62 |b <Boot$Dir>.Lib| 00000090 72 61 72 79 0a 53 65 74 20 55 74 69 6c 73 24 50 |rary.Set Utils$P| 000000a0 61 74 68 20 3c 4f 62 65 79 24 44 69 72 3e 2e 55 |ath <Obey$Dir>.U| 000000b0 74 69 6c 73 2e 0a 53 65 74 20 43 68 6f 69 63 65 |tils..Set Choice| 000000c0 73 24 50 61 74 68 20 3c 4f 62 65 79 24 44 69 72 |s$Path <Obey$Dir| 000000d0 3e 2e 43 68 6f 69 63 65 73 2e 0a 53 65 74 20 52 |>.Choices..Set R| 000000e0 65 73 6f 75 72 63 65 73 24 44 69 72 20 3c 4f 62 |esources$Dir <Ob| 000000f0 65 79 24 44 69 72 3e 2e 52 65 73 6f 75 72 63 65 |ey$Dir>.Resource| 00000100 73 0a 53 65 74 20 42 6f 6f 74 24 54 6f 42 65 4c |s.Set Boot$ToBeL| 00000110 6f 61 64 65 64 20 43 68 6f 69 63 65 73 3a 42 6f |oaded Choices:Bo| 00000120 6f 74 2e 50 72 65 44 65 73 6b 0a 53 65 74 20 42 |ot.PreDesk.Set B| 00000130 6f 6f 74 24 54 6f 42 65 54 61 73 6b 73 20 43 68 |oot$ToBeTasks Ch| 00000140 6f 69 63 65 73 3a 42 6f 6f 74 2e 54 61 73 6b 73 |oices:Boot.Tasks| 00000150 0a 53 65 74 45 76 61 6c 20 52 6f 6f 74 24 44 69 |.SetEval Root$Di| 00000160 72 20 22 3c 4f 62 65 79 24 44 69 72 3e 22 20 4c |r "<Obey$Dir>" L| 00000170 45 46 54 28 4c 45 4e 28 4f 62 65 79 24 44 69 72 |EFT(LEN(Obey$Dir| 00000180 29 2d 36 29 0a 53 65 74 20 52 6f 6f 74 24 50 61 |)-6).Set Root$Pa| 00000190 74 68 20 3c 52 6f 6f 74 24 44 69 72 3e 2e 0a |th <Root$Dir>..| 0000019f
.