Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » PD » NetPlex/!Netplex/PDScheme/FlexiCD/!FlexiCD/SetPath
NetPlex/!Netplex/PDScheme/FlexiCD/!FlexiCD/SetPath
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 1997-Xmas B.adf » PD |
| Filename: | NetPlex/!Netplex/PDScheme/FlexiCD/!FlexiCD/SetPath |
| Read OK: | ✔ |
| File size: | 0130 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM mem% 255 20: 30SYS "Territory_Number" TO terr% 40SYS "Territory_NumberToName",terr%,mem%,256 TO ,terr$ 50: 60path$="" 70IF terr$<>"UK" THENpath$="<FlexiCD$Dir>.Resources."+terr$+".," 80path$="<FlexiCD$Dir>.Resources.Global.,"+path$+"<FlexiCD$Dir>.Resources.UK." 90: 100OSCLI "Set FlexiCD$Path "+path$
� mem% 255 : !ș "Territory_Number" � terr% (7ș "Territory_NumberToName",terr%,mem%,256 � ,terr$ 2: < path$="" F>� terr$<>"UK" �path$="<FlexiCD$Dir>.Resources."+terr$+".," PPpath$="<FlexiCD$Dir>.Resources.Global.,"+path$+"<FlexiCD$Dir>.Resources.UK." Z: d � "Set FlexiCD$Path "+path$ �
00000000 0d 00 0a 0e de 20 6d 65 6d 25 20 32 35 35 0d 00 |..... mem% 255..| 00000010 14 05 3a 0d 00 1e 21 c8 99 20 22 54 65 72 72 69 |..:...!.. "Terri| 00000020 74 6f 72 79 5f 4e 75 6d 62 65 72 22 20 b8 20 74 |tory_Number" . t| 00000030 65 72 72 25 0d 00 28 37 c8 99 20 22 54 65 72 72 |err%..(7.. "Terr| 00000040 69 74 6f 72 79 5f 4e 75 6d 62 65 72 54 6f 4e 61 |itory_NumberToNa| 00000050 6d 65 22 2c 74 65 72 72 25 2c 6d 65 6d 25 2c 32 |me",terr%,mem%,2| 00000060 35 36 20 b8 20 2c 74 65 72 72 24 0d 00 32 05 3a |56 . ,terr$..2.:| 00000070 0d 00 3c 0c 70 61 74 68 24 3d 22 22 0d 00 46 3e |..<.path$=""..F>| 00000080 e7 20 74 65 72 72 24 3c 3e 22 55 4b 22 20 8c 70 |. terr$<>"UK" .p| 00000090 61 74 68 24 3d 22 3c 46 6c 65 78 69 43 44 24 44 |ath$="<FlexiCD$D| 000000a0 69 72 3e 2e 52 65 73 6f 75 72 63 65 73 2e 22 2b |ir>.Resources."+| 000000b0 74 65 72 72 24 2b 22 2e 2c 22 0d 00 50 50 70 61 |terr$+".,"..PPpa| 000000c0 74 68 24 3d 22 3c 46 6c 65 78 69 43 44 24 44 69 |th$="<FlexiCD$Di| 000000d0 72 3e 2e 52 65 73 6f 75 72 63 65 73 2e 47 6c 6f |r>.Resources.Glo| 000000e0 62 61 6c 2e 2c 22 2b 70 61 74 68 24 2b 22 3c 46 |bal.,"+path$+"<F| 000000f0 6c 65 78 69 43 44 24 44 69 72 3e 2e 52 65 73 6f |lexiCD$Dir>.Reso| 00000100 75 72 63 65 73 2e 55 4b 2e 22 0d 00 5a 05 3a 0d |urces.UK."..Z.:.| 00000110 00 64 1f ff 20 22 53 65 74 20 46 6c 65 78 69 43 |.d.. "Set FlexiC| 00000120 44 24 50 61 74 68 20 22 2b 70 61 74 68 24 0d ff |D$Path "+path$..| 00000130
.