Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199508.adf » !Internet » StarterPak/!Newsbase/Transports/taylor/NormPost
StarterPak/!Newsbase/Transports/taylor/NormPost
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/NormPost |
| Read OK: | ✔ |
| File size: | 04F1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| > DoPost | | Version for uncompressed newsbatches | Usage: DoPost <NewsServerAddress> <Filename> | | DoPost will queue the specified file for posting to News via the | specified NewsServer. It performs no error checking on the file, and | assumes that the file contains a valid header. | | This version of DoPost produces single, uncompressed news batches | for sending straight to the other end. It needs little memory and is | the best version for people with minimal RAM available. | | Author: Gunnar Z�tl | Date: 17-Sep-1994 | Last Modified: 19-Sep-1994 | | more memory will be needed if you want to compress the batches. Wimpslot -min 256k | | this gets around a problem with the C library, which sometimes seems | confused then receiving a <system$variable> together with I/O redirection. Set alias$DoPostIt Uux -r - %0!rnews < %1 2> null: | | we assume that posting the article will succeed. | Set NewsBase$ReturnInfo Article posted DoPostIt Set NewsBase$ReturnCode <Sys$ReturnCode> | | If posting did not succeed, we alter the Info for NewsBase here. | If "<NewsBase$ReturnCode>" <> "0" Then Set NewsBase$ReturnInfo Posting failed | | now remove the file sendnews passed us, and unset the helper macro. | unset alias$DoPostIt Remove %1
00000000 7c 20 3e 20 44 6f 50 6f 73 74 0a 7c 0a 7c 20 56 || > DoPost.|.| V| 00000010 65 72 73 69 6f 6e 20 66 6f 72 20 75 6e 63 6f 6d |ersion for uncom| 00000020 70 72 65 73 73 65 64 20 6e 65 77 73 62 61 74 63 |pressed newsbatc| 00000030 68 65 73 0a 7c 20 55 73 61 67 65 3a 20 44 6f 50 |hes.| Usage: DoP| 00000040 6f 73 74 20 3c 4e 65 77 73 53 65 72 76 65 72 41 |ost <NewsServerA| 00000050 64 64 72 65 73 73 3e 20 3c 46 69 6c 65 6e 61 6d |ddress> <Filenam| 00000060 65 3e 0a 7c 0a 7c 20 44 6f 50 6f 73 74 20 77 69 |e>.|.| DoPost wi| 00000070 6c 6c 20 71 75 65 75 65 20 74 68 65 20 73 70 65 |ll queue the spe| 00000080 63 69 66 69 65 64 20 66 69 6c 65 20 66 6f 72 20 |cified file for | 00000090 70 6f 73 74 69 6e 67 20 74 6f 20 4e 65 77 73 20 |posting to News | 000000a0 76 69 61 20 74 68 65 0a 7c 20 73 70 65 63 69 66 |via the.| specif| 000000b0 69 65 64 20 4e 65 77 73 53 65 72 76 65 72 2e 20 |ied NewsServer. | 000000c0 49 74 20 70 65 72 66 6f 72 6d 73 20 6e 6f 20 65 |It performs no e| 000000d0 72 72 6f 72 20 63 68 65 63 6b 69 6e 67 20 6f 6e |rror checking on| 000000e0 20 74 68 65 20 66 69 6c 65 2c 20 61 6e 64 0a 7c | the file, and.|| 000000f0 20 61 73 73 75 6d 65 73 20 74 68 61 74 20 74 68 | assumes that th| 00000100 65 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 |e file contains | 00000110 61 20 76 61 6c 69 64 20 68 65 61 64 65 72 2e 0a |a valid header..| 00000120 7c 0a 7c 20 54 68 69 73 20 76 65 72 73 69 6f 6e ||.| This version| 00000130 20 6f 66 20 44 6f 50 6f 73 74 20 70 72 6f 64 75 | of DoPost produ| 00000140 63 65 73 20 73 69 6e 67 6c 65 2c 20 75 6e 63 6f |ces single, unco| 00000150 6d 70 72 65 73 73 65 64 20 6e 65 77 73 20 62 61 |mpressed news ba| 00000160 74 63 68 65 73 0a 7c 20 66 6f 72 20 73 65 6e 64 |tches.| for send| 00000170 69 6e 67 20 73 74 72 61 69 67 68 74 20 74 6f 20 |ing straight to | 00000180 74 68 65 20 6f 74 68 65 72 20 65 6e 64 2e 20 49 |the other end. I| 00000190 74 20 6e 65 65 64 73 20 6c 69 74 74 6c 65 20 6d |t needs little m| 000001a0 65 6d 6f 72 79 20 61 6e 64 20 69 73 0a 7c 20 74 |emory and is.| t| 000001b0 68 65 20 62 65 73 74 20 76 65 72 73 69 6f 6e 20 |he best version | 000001c0 66 6f 72 20 70 65 6f 70 6c 65 20 77 69 74 68 20 |for people with | 000001d0 6d 69 6e 69 6d 61 6c 20 52 41 4d 20 61 76 61 69 |minimal RAM avai| 000001e0 6c 61 62 6c 65 2e 0a 7c 0a 7c 20 41 75 74 68 6f |lable..|.| Autho| 000001f0 72 3a 20 20 20 09 20 20 20 20 47 75 6e 6e 61 72 |r: . Gunnar| 00000200 20 5a f6 74 6c 0a 7c 20 44 61 74 65 3a 09 20 20 | Z.tl.| Date:. | 00000210 20 20 09 20 20 20 20 31 37 2d 53 65 70 2d 31 39 | . 17-Sep-19| 00000220 39 34 0a 7c 20 4c 61 73 74 20 4d 6f 64 69 66 69 |94.| Last Modifi| 00000230 65 64 3a 20 20 20 20 31 39 2d 53 65 70 2d 31 39 |ed: 19-Sep-19| 00000240 39 34 0a 7c 0a 7c 20 6d 6f 72 65 20 6d 65 6d 6f |94.|.| more memo| 00000250 72 79 20 77 69 6c 6c 20 62 65 20 6e 65 65 64 65 |ry will be neede| 00000260 64 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f |d if you want to| 00000270 20 63 6f 6d 70 72 65 73 73 20 74 68 65 20 62 61 | compress the ba| 00000280 74 63 68 65 73 2e 0a 57 69 6d 70 73 6c 6f 74 20 |tches..Wimpslot | 00000290 2d 6d 69 6e 20 32 35 36 6b 0a 7c 0a 7c 20 74 68 |-min 256k.|.| th| 000002a0 69 73 20 67 65 74 73 20 61 72 6f 75 6e 64 20 61 |is gets around a| 000002b0 20 70 72 6f 62 6c 65 6d 20 77 69 74 68 20 74 68 | problem with th| 000002c0 65 20 43 20 6c 69 62 72 61 72 79 2c 20 77 68 69 |e C library, whi| 000002d0 63 68 20 73 6f 6d 65 74 69 6d 65 73 20 73 65 65 |ch sometimes see| 000002e0 6d 73 0a 7c 20 63 6f 6e 66 75 73 65 64 20 74 68 |ms.| confused th| 000002f0 65 6e 20 72 65 63 65 69 76 69 6e 67 20 61 20 3c |en receiving a <| 00000300 73 79 73 74 65 6d 24 76 61 72 69 61 62 6c 65 3e |system$variable>| 00000310 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 49 | together with I| 00000320 2f 4f 20 72 65 64 69 72 65 63 74 69 6f 6e 2e 0a |/O redirection..| 00000330 53 65 74 20 61 6c 69 61 73 24 44 6f 50 6f 73 74 |Set alias$DoPost| 00000340 49 74 20 55 75 78 20 2d 72 20 2d 20 25 30 21 72 |It Uux -r - %0!r| 00000350 6e 65 77 73 20 3c 20 25 31 20 32 3e 20 6e 75 6c |news < %1 2> nul| 00000360 6c 3a 0a 7c 0a 7c 20 77 65 20 61 73 73 75 6d 65 |l:.|.| we assume| 00000370 20 74 68 61 74 20 70 6f 73 74 69 6e 67 20 74 68 | that posting th| 00000380 65 20 61 72 74 69 63 6c 65 20 77 69 6c 6c 20 73 |e article will s| 00000390 75 63 63 65 65 64 2e 0a 7c 0a 53 65 74 20 4e 65 |ucceed..|.Set Ne| 000003a0 77 73 42 61 73 65 24 52 65 74 75 72 6e 49 6e 66 |wsBase$ReturnInf| 000003b0 6f 20 41 72 74 69 63 6c 65 20 70 6f 73 74 65 64 |o Article posted| 000003c0 0a 44 6f 50 6f 73 74 49 74 0a 53 65 74 20 4e 65 |.DoPostIt.Set Ne| 000003d0 77 73 42 61 73 65 24 52 65 74 75 72 6e 43 6f 64 |wsBase$ReturnCod| 000003e0 65 20 3c 53 79 73 24 52 65 74 75 72 6e 43 6f 64 |e <Sys$ReturnCod| 000003f0 65 3e 0a 7c 0a 7c 20 49 66 20 70 6f 73 74 69 6e |e>.|.| If postin| 00000400 67 20 64 69 64 20 6e 6f 74 20 73 75 63 63 65 65 |g did not succee| 00000410 64 2c 20 77 65 20 61 6c 74 65 72 20 74 68 65 20 |d, we alter the | 00000420 49 6e 66 6f 20 66 6f 72 20 4e 65 77 73 42 61 73 |Info for NewsBas| 00000430 65 20 68 65 72 65 2e 0a 7c 0a 49 66 20 22 3c 4e |e here..|.If "<N| 00000440 65 77 73 42 61 73 65 24 52 65 74 75 72 6e 43 6f |ewsBase$ReturnCo| 00000450 64 65 3e 22 20 3c 3e 20 22 30 22 20 54 68 65 6e |de>" <> "0" Then| 00000460 20 53 65 74 20 4e 65 77 73 42 61 73 65 24 52 65 | Set NewsBase$Re| 00000470 74 75 72 6e 49 6e 66 6f 20 50 6f 73 74 69 6e 67 |turnInfo Posting| 00000480 20 66 61 69 6c 65 64 0a 7c 0a 7c 20 6e 6f 77 20 | failed.|.| now | 00000490 72 65 6d 6f 76 65 20 74 68 65 20 66 69 6c 65 20 |remove the file | 000004a0 73 65 6e 64 6e 65 77 73 20 70 61 73 73 65 64 20 |sendnews passed | 000004b0 75 73 2c 20 61 6e 64 20 75 6e 73 65 74 20 74 68 |us, and unset th| 000004c0 65 20 68 65 6c 70 65 72 20 6d 61 63 72 6f 2e 0a |e helper macro..| 000004d0 7c 0a 75 6e 73 65 74 20 61 6c 69 61 73 24 44 6f ||.unset alias$Do| 000004e0 50 6f 73 74 49 74 0a 52 65 6d 6f 76 65 20 25 31 |PostIt.Remove %1| 000004f0 0a |.| 000004f1
.