Home » Archimedes archive » Acorn User » AU 1996-Xmas.adf » Extras » PD/AppsClock/!AppsClock/!Dummy/SetPath
PD/AppsClock/!AppsClock/!Dummy/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 1996-Xmas.adf » Extras |
| Filename: | PD/AppsClock/!AppsClock/!Dummy/SetPath |
| Read OK: | ✔ |
| File size: | 0104 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
50DIM mem% 255 60: 70SYS "Territory_Number" TO terr% 80SYS "Territory_NumberToName",terr%,mem%,256 TO ,terr$ 90: 100path$="" 110IF terr$<>"UK" THENpath$="<Obey$Dir>.Resources."+terr$+".," 120path$+="<Obey$Dir>.Resources.UK." 130: 140OSCLI "Set AppsClock$Path "+path$
2� mem% 255 <: F!ș "Territory_Number" � terr% P7ș "Territory_NumberToName",terr%,mem%,256 � ,terr$ Z: d path$="" n;� terr$<>"UK" �path$="<Obey$Dir>.Resources."+terr$+".," x%path$+="<Obey$Dir>.Resources.UK." �: �!� "Set AppsClock$Path "+path$ �
00000000 0d 00 32 0e de 20 6d 65 6d 25 20 32 35 35 0d 00 |..2.. mem% 255..| 00000010 3c 05 3a 0d 00 46 21 c8 99 20 22 54 65 72 72 69 |<.:..F!.. "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 50 37 c8 99 20 22 54 65 72 72 |err%..P7.. "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 5a 05 3a |56 . ,terr$..Z.:| 00000070 0d 00 64 0c 70 61 74 68 24 3d 22 22 0d 00 6e 3b |..d.path$=""..n;| 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 4f 62 65 79 24 44 69 72 3e |ath$="<Obey$Dir>| 000000a0 2e 52 65 73 6f 75 72 63 65 73 2e 22 2b 74 65 72 |.Resources."+ter| 000000b0 72 24 2b 22 2e 2c 22 0d 00 78 25 70 61 74 68 24 |r$+".,"..x%path$| 000000c0 2b 3d 22 3c 4f 62 65 79 24 44 69 72 3e 2e 52 65 |+="<Obey$Dir>.Re| 000000d0 73 6f 75 72 63 65 73 2e 55 4b 2e 22 0d 00 82 05 |sources.UK."....| 000000e0 3a 0d 00 8c 21 ff 20 22 53 65 74 20 41 70 70 73 |:...!. "Set Apps| 000000f0 43 6c 6f 63 6b 24 50 61 74 68 20 22 2b 70 61 74 |Clock$Path "+pat| 00000100 68 24 0d ff |h$..| 00000104
.