Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199508.adf » !Internet » StarterPak/!Newsbase/Transports/ka9q/startup
StarterPak/!Newsbase/Transports/ka9q/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/ka9q/startup |
| Read OK: | ✔ |
| File size: | 00D3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
set NewsBase$ka9qSupport <NewsBase$Support>.ka9q set NewsBase$ka9qDir <Obey$Dir> if "<TCPIP$Dir>" > "" then run <Obey$dir>.mkgroups set NewsBase$ReturnCode 0 if "<TCPIP$Dir>" = "" then set NewsBase$ReturnCode 1
00000000 73 65 74 20 4e 65 77 73 42 61 73 65 24 6b 61 39 |set NewsBase$ka9| 00000010 71 53 75 70 70 6f 72 74 20 3c 4e 65 77 73 42 61 |qSupport <NewsBa| 00000020 73 65 24 53 75 70 70 6f 72 74 3e 2e 6b 61 39 71 |se$Support>.ka9q| 00000030 0a 73 65 74 20 4e 65 77 73 42 61 73 65 24 6b 61 |.set NewsBase$ka| 00000040 39 71 44 69 72 20 3c 4f 62 65 79 24 44 69 72 3e |9qDir <Obey$Dir>| 00000050 0a 69 66 20 22 3c 54 43 50 49 50 24 44 69 72 3e |.if "<TCPIP$Dir>| 00000060 22 20 3e 20 22 22 20 74 68 65 6e 20 72 75 6e 20 |" > "" then run | 00000070 3c 4f 62 65 79 24 64 69 72 3e 2e 6d 6b 67 72 6f |<Obey$dir>.mkgro| 00000080 75 70 73 0a 73 65 74 20 4e 65 77 73 42 61 73 65 |ups.set NewsBase| 00000090 24 52 65 74 75 72 6e 43 6f 64 65 20 30 0a 69 66 |$ReturnCode 0.if| 000000a0 20 22 3c 54 43 50 49 50 24 44 69 72 3e 22 20 3d | "<TCPIP$Dir>" =| 000000b0 20 22 22 20 74 68 65 6e 20 73 65 74 20 4e 65 77 | "" then set New| 000000c0 73 42 61 73 65 24 52 65 74 75 72 6e 43 6f 64 65 |sBase$ReturnCode| 000000d0 20 31 0a | 1.| 000000d3
.