Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199508.adf » !Internet » StarterPak/!Newsbase/Transports/taylor/startup
StarterPak/!Newsbase/Transports/taylor/startup
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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199508.adf » !Internet |
| Filename: | StarterPak/!Newsbase/Transports/taylor/startup |
| Read OK: | ✔ |
| File size: | 017C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| >startup | | Do some startup initialisation | | Author: Gunnar Z�tl | Date: 23-Oct-1994 | Last Modified: 23-Oct-1994 | set NewsBase$TaylorSupport <NewsBase$Support>.Taylor Set NewsBase$TaylorConfig <NewsBase$Config>.Taylor set NewsBase$TaylorDir <Obey$Dir> set NewsBase$ReturnCode 0 if "<Uucp$Dir>" = "" then set NewsBase$ReturnCode 1 run <Obey$dir>.mkgroups
00000000 7c 20 3e 73 74 61 72 74 75 70 0a 7c 0a 7c 20 44 || >startup.|.| D| 00000010 6f 20 73 6f 6d 65 20 73 74 61 72 74 75 70 20 69 |o some startup i| 00000020 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e 0a 7c 0a |nitialisation.|.| 00000030 7c 20 41 75 74 68 6f 72 3a 20 20 20 09 20 20 20 || Author: . | 00000040 20 47 75 6e 6e 61 72 20 5a f6 74 6c 0a 7c 20 44 | Gunnar Z.tl.| D| 00000050 61 74 65 3a 09 20 20 20 20 09 20 20 20 20 32 33 |ate:. . 23| 00000060 2d 4f 63 74 2d 31 39 39 34 0a 7c 20 4c 61 73 74 |-Oct-1994.| Last| 00000070 20 4d 6f 64 69 66 69 65 64 3a 20 20 20 20 32 33 | Modified: 23| 00000080 2d 4f 63 74 2d 31 39 39 34 0a 7c 0a 73 65 74 20 |-Oct-1994.|.set | 00000090 4e 65 77 73 42 61 73 65 24 54 61 79 6c 6f 72 53 |NewsBase$TaylorS| 000000a0 75 70 70 6f 72 74 20 3c 4e 65 77 73 42 61 73 65 |upport <NewsBase| 000000b0 24 53 75 70 70 6f 72 74 3e 2e 54 61 79 6c 6f 72 |$Support>.Taylor| 000000c0 0a 53 65 74 20 4e 65 77 73 42 61 73 65 24 54 61 |.Set NewsBase$Ta| 000000d0 79 6c 6f 72 43 6f 6e 66 69 67 20 3c 4e 65 77 73 |ylorConfig <News| 000000e0 42 61 73 65 24 43 6f 6e 66 69 67 3e 2e 54 61 79 |Base$Config>.Tay| 000000f0 6c 6f 72 0a 73 65 74 20 4e 65 77 73 42 61 73 65 |lor.set NewsBase| 00000100 24 54 61 79 6c 6f 72 44 69 72 20 3c 4f 62 65 79 |$TaylorDir <Obey| 00000110 24 44 69 72 3e 0a 73 65 74 20 4e 65 77 73 42 61 |$Dir>.set NewsBa| 00000120 73 65 24 52 65 74 75 72 6e 43 6f 64 65 20 30 0a |se$ReturnCode 0.| 00000130 69 66 20 22 3c 55 75 63 70 24 44 69 72 3e 22 20 |if "<Uucp$Dir>" | 00000140 3d 20 22 22 20 74 68 65 6e 20 73 65 74 20 4e 65 |= "" then set Ne| 00000150 77 73 42 61 73 65 24 52 65 74 75 72 6e 43 6f 64 |wsBase$ReturnCod| 00000160 65 20 31 0a 72 75 6e 20 3c 4f 62 65 79 24 64 69 |e 1.run <Obey$di| 00000170 72 3e 2e 6d 6b 67 72 6f 75 70 73 0a |r>.mkgroups.| 0000017c
.