Home » Archimedes archive » Acorn User » AU 1997-04 B.adf » PD » PDScheme/Newshound/NewsHound/Inst
PDScheme/Newshound/NewsHound/Inst
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-04 B.adf » PD |
| Filename: | PDScheme/Newshound/NewsHound/Inst |
| Read OK: | ✔ |
| File size: | 0279 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| Obey file to install NewsHound transport in !NewsDir | (C) Joseph Heenan, 1996 Set NewsHoundInst$Dir <Obey$Dir> If "<NewsDir$Dir>" = "" Then Error Please open the directory containing !NewsDir first CDir <NewsDir$Dir>.newsbase.transports | IfExists <NewsDir$Dir>.newsbase.transports.newshound~ Then Wipe <NewsDir$Dir>.newsbase.transports.newshound~ ~CFR~V | IfExists <NewsDir$Dir>.newsbase.transports.newshound Then Rename <NewsDir$Dir>.newsbase.transports.newshound <NewsDir$Dir>.newsbase.transports.newshound~ Copy <NewsHoundInst$Dir>.NewsHound <NewsDir$Dir>.newsbase.transports.NewsHound ~C~DF~N~P~VR Unset NewsHoundInst$Dir
00000000 7c 20 4f 62 65 79 20 66 69 6c 65 20 74 6f 20 69 || Obey file to i| 00000010 6e 73 74 61 6c 6c 20 4e 65 77 73 48 6f 75 6e 64 |nstall NewsHound| 00000020 20 74 72 61 6e 73 70 6f 72 74 20 69 6e 20 21 4e | transport in !N| 00000030 65 77 73 44 69 72 0a 7c 20 28 43 29 20 4a 6f 73 |ewsDir.| (C) Jos| 00000040 65 70 68 20 48 65 65 6e 61 6e 2c 20 31 39 39 36 |eph Heenan, 1996| 00000050 0a 0a 53 65 74 20 4e 65 77 73 48 6f 75 6e 64 49 |..Set NewsHoundI| 00000060 6e 73 74 24 44 69 72 20 3c 4f 62 65 79 24 44 69 |nst$Dir <Obey$Di| 00000070 72 3e 0a 0a 49 66 20 22 3c 4e 65 77 73 44 69 72 |r>..If "<NewsDir| 00000080 24 44 69 72 3e 22 20 3d 20 22 22 20 54 68 65 6e |$Dir>" = "" Then| 00000090 20 45 72 72 6f 72 20 50 6c 65 61 73 65 20 6f 70 | Error Please op| 000000a0 65 6e 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 |en the directory| 000000b0 20 63 6f 6e 74 61 69 6e 69 6e 67 20 21 4e 65 77 | containing !New| 000000c0 73 44 69 72 20 66 69 72 73 74 0a 43 44 69 72 20 |sDir first.CDir | 000000d0 3c 4e 65 77 73 44 69 72 24 44 69 72 3e 2e 6e 65 |<NewsDir$Dir>.ne| 000000e0 77 73 62 61 73 65 2e 74 72 61 6e 73 70 6f 72 74 |wsbase.transport| 000000f0 73 0a 7c 20 49 66 45 78 69 73 74 73 20 3c 4e 65 |s.| IfExists <Ne| 00000100 77 73 44 69 72 24 44 69 72 3e 2e 6e 65 77 73 62 |wsDir$Dir>.newsb| 00000110 61 73 65 2e 74 72 61 6e 73 70 6f 72 74 73 2e 6e |ase.transports.n| 00000120 65 77 73 68 6f 75 6e 64 7e 20 54 68 65 6e 20 57 |ewshound~ Then W| 00000130 69 70 65 20 3c 4e 65 77 73 44 69 72 24 44 69 72 |ipe <NewsDir$Dir| 00000140 3e 2e 6e 65 77 73 62 61 73 65 2e 74 72 61 6e 73 |>.newsbase.trans| 00000150 70 6f 72 74 73 2e 6e 65 77 73 68 6f 75 6e 64 7e |ports.newshound~| 00000160 20 7e 43 46 52 7e 56 0a 7c 20 49 66 45 78 69 73 | ~CFR~V.| IfExis| 00000170 74 73 20 3c 4e 65 77 73 44 69 72 24 44 69 72 3e |ts <NewsDir$Dir>| 00000180 2e 6e 65 77 73 62 61 73 65 2e 74 72 61 6e 73 70 |.newsbase.transp| 00000190 6f 72 74 73 2e 6e 65 77 73 68 6f 75 6e 64 20 20 |orts.newshound | 000001a0 54 68 65 6e 20 52 65 6e 61 6d 65 20 3c 4e 65 77 |Then Rename <New| 000001b0 73 44 69 72 24 44 69 72 3e 2e 6e 65 77 73 62 61 |sDir$Dir>.newsba| 000001c0 73 65 2e 74 72 61 6e 73 70 6f 72 74 73 2e 6e 65 |se.transports.ne| 000001d0 77 73 68 6f 75 6e 64 20 3c 4e 65 77 73 44 69 72 |wshound <NewsDir| 000001e0 24 44 69 72 3e 2e 6e 65 77 73 62 61 73 65 2e 74 |$Dir>.newsbase.t| 000001f0 72 61 6e 73 70 6f 72 74 73 2e 6e 65 77 73 68 6f |ransports.newsho| 00000200 75 6e 64 7e 0a 43 6f 70 79 20 3c 4e 65 77 73 48 |und~.Copy <NewsH| 00000210 6f 75 6e 64 49 6e 73 74 24 44 69 72 3e 2e 4e 65 |oundInst$Dir>.Ne| 00000220 77 73 48 6f 75 6e 64 20 3c 4e 65 77 73 44 69 72 |wsHound <NewsDir| 00000230 24 44 69 72 3e 2e 6e 65 77 73 62 61 73 65 2e 74 |$Dir>.newsbase.t| 00000240 72 61 6e 73 70 6f 72 74 73 2e 4e 65 77 73 48 6f |ransports.NewsHo| 00000250 75 6e 64 20 7e 43 7e 44 46 7e 4e 7e 50 7e 56 52 |und ~C~DF~N~P~VR| 00000260 0a 0a 55 6e 73 65 74 20 4e 65 77 73 48 6f 75 6e |..Unset NewsHoun| 00000270 64 49 6e 73 74 24 44 69 72 |dInst$Dir| 00000279
.