Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199508.adf » !Internet » StarterPak/!Newsbase/Transports/taylor/setup
StarterPak/!Newsbase/Transports/taylor/setup
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/setup |
| Read OK: | ✔ |
| File size: | 0157 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| >setup | | Setup Taylor transport at runtime. | | Author: Gunnar Z�tl | Date: 22-Dec-1994 | Last Modified: 22-Dec-1994 | Set NewsBase$ReturnCode 0 if "<Uucp$Dir>" = "" then set NewsBase$ReturnCode 1 if "<Uucp$Dir>" = "" then set NewsBase$ReturnInfo Taylor Uucp not found if "<Uucp$Dir>" <> "" then Obey <Obey$Dir>.startup
00000000 7c 20 3e 73 65 74 75 70 0a 7c 0a 7c 20 53 65 74 || >setup.|.| Set| 00000010 75 70 20 54 61 79 6c 6f 72 20 74 72 61 6e 73 70 |up Taylor transp| 00000020 6f 72 74 20 61 74 20 72 75 6e 74 69 6d 65 2e 0a |ort at runtime..| 00000030 7c 0a 7c 20 41 75 74 68 6f 72 3a 20 20 20 09 20 ||.| Author: . | 00000040 20 20 20 47 75 6e 6e 61 72 20 5a f6 74 6c 0a 7c | Gunnar Z.tl.|| 00000050 20 44 61 74 65 3a 09 20 20 20 20 09 20 20 20 20 | Date:. . | 00000060 32 32 2d 44 65 63 2d 31 39 39 34 0a 7c 20 4c 61 |22-Dec-1994.| La| 00000070 73 74 20 4d 6f 64 69 66 69 65 64 3a 20 20 20 20 |st Modified: | 00000080 32 32 2d 44 65 63 2d 31 39 39 34 0a 7c 0a 53 65 |22-Dec-1994.|.Se| 00000090 74 20 4e 65 77 73 42 61 73 65 24 52 65 74 75 72 |t NewsBase$Retur| 000000a0 6e 43 6f 64 65 20 30 0a 69 66 20 22 3c 55 75 63 |nCode 0.if "<Uuc| 000000b0 70 24 44 69 72 3e 22 20 3d 20 22 22 20 74 68 65 |p$Dir>" = "" the| 000000c0 6e 20 73 65 74 20 4e 65 77 73 42 61 73 65 24 52 |n set NewsBase$R| 000000d0 65 74 75 72 6e 43 6f 64 65 20 31 0a 69 66 20 22 |eturnCode 1.if "| 000000e0 3c 55 75 63 70 24 44 69 72 3e 22 20 3d 20 22 22 |<Uucp$Dir>" = ""| 000000f0 20 74 68 65 6e 20 73 65 74 20 4e 65 77 73 42 61 | then set NewsBa| 00000100 73 65 24 52 65 74 75 72 6e 49 6e 66 6f 20 54 61 |se$ReturnInfo Ta| 00000110 79 6c 6f 72 20 55 75 63 70 20 6e 6f 74 20 66 6f |ylor Uucp not fo| 00000120 75 6e 64 0a 69 66 20 22 3c 55 75 63 70 24 44 69 |und.if "<Uucp$Di| 00000130 72 3e 22 20 3c 3e 20 22 22 20 74 68 65 6e 20 4f |r>" <> "" then O| 00000140 62 65 79 20 3c 4f 62 65 79 24 44 69 72 3e 2e 73 |bey <Obey$Dir>.s| 00000150 74 61 72 74 75 70 0a |tartup.| 00000157
.