Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199508.adf » !Internet » StarterPak/!Newsbase/Transports/taylor/config
StarterPak/!Newsbase/Transports/taylor/config
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/config |
| Read OK: | ✔ |
| File size: | 054D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >config
20REM setup the taylor transport stuff to use either compressed or
30REM uncompressed batches.
40REM
50REM Author: Gunnar ZREPORTtl
60REM Date: 19-Sep-1994
70REM Last modified: 06-Nov-1994
80
90ONERROR REPORT:PRINT" at line ";ERL:END
100
110LIBRARY "<NewsBase$TaylorDir>.ScriptLib"
120
130PROCentry
140IF argc > 1 THEN
150 FOR i%=1 TO argc
160 CASE argv$(i%) OF
170 WHEN "-c":PROCcompressed_batches
180 WHEN "-u":PROCuncompressed_batches
190 ENDCASE
200 NEXT i%
210ENDIF
220PROCexit(0, "configure went OK")
230END
240
250DEF PROCcompressed_batches
260 IF FNobjtype("<NewsBase$TaylorDir>.CompPost") <> 0 THEN
270 *remove <NewsBase$TaylorDir>.DoPost
280 *copy <NewsBase$TaylorDir>.CompPost <NewsBase$TaylorDir>.DoPost F~C~V
290 ELSE
300 PROCexit(1,"CompPost not found in Taylor transport Dir")
310 ENDIF
320ENDPROC
330
340DEF PROCuncompressed_batches
350 IF FNobjtype("<NewsBase$TaylorDir>.NormPost") <> 0 THEN
360 *remove <NewsBase$TaylorDir>.DoPost
370 *copy <NewsBase$TaylorDir>.NormPost <NewsBase$TaylorDir>.DoPost F~C~V
380 ELSE
390 PROCexit(1,"NormPost not found in Taylor transport Dir")
400 ENDIF
410ENDPROC
420
430REM exit from here, returning appropriate info.
440REM
450DEFPROCexit(n%,a$)
460OSCLI("set NewsBase$ReturnCode "+STR$n%)
470OSCLI("set NewsBase$ReturnInfo "+a$)
480END
490ENDPROC
500
510DEFFNobjtype(f$)
520LOCALF%
530SYS"XOS_File",17,f$TOt%;F%
540IF(F%AND1)THEN=-1:ELSE=t%
� >config
B� setup the taylor transport stuff to use either compressed or
� uncompressed batches.
(�
2!� Author: Gunnar Z�tl
<!� Date: 19-Sep-1994
F!� Last modified: 06-Nov-1994
P
Z� �:�" at line ";�:�
d
n'ț "<NewsBase$TaylorDir>.ScriptLib"
x
�
�entry
�� argc > 1 �
� � i%=1 � argc
� Ȏ argv$(i%) �
�* � "-c":�compressed_batches
�, � "-u":�uncompressed_batches
�
�
� � i%
��
�!�exit(0, "configure went OK")
��
�
�� �compressed_batches
: � �objtype("<NewsBase$TaylorDir>.CompPost") <> 0 �
/ *remove <NewsBase$TaylorDir>.DoPost
Q *copy <NewsBase$TaylorDir>.CompPost <NewsBase$TaylorDir>.DoPost F~C~V
" �
,A �exit(1,"CompPost not found in Taylor transport Dir")
6 �
@�
J
T� �uncompressed_batches
^: � �objtype("<NewsBase$TaylorDir>.NormPost") <> 0 �
h/ *remove <NewsBase$TaylorDir>.DoPost
rQ *copy <NewsBase$TaylorDir>.NormPost <NewsBase$TaylorDir>.DoPost F~C~V
| �
�A �exit(1,"NormPost not found in Taylor transport Dir")
� �
��
�
�1� exit from here, returning appropriate info.
��
���exit(n%,a$)
�%�("set NewsBase$ReturnCode "+�n%)
�$�("set NewsBase$ReturnInfo "+a$)
��
��
�
�ݤobjtype(f$)
�F%
ș"XOS_File",17,f$�t%;F%
�(F%�1)�=-1:�=t%
� 00000000 0d 00 0a 0d f4 20 3e 63 6f 6e 66 69 67 0d 00 14 |..... >config...|
00000010 42 f4 20 73 65 74 75 70 20 74 68 65 20 74 61 79 |B. setup the tay|
00000020 6c 6f 72 20 74 72 61 6e 73 70 6f 72 74 20 73 74 |lor transport st|
00000030 75 66 66 20 74 6f 20 75 73 65 20 65 69 74 68 65 |uff to use eithe|
00000040 72 20 63 6f 6d 70 72 65 73 73 65 64 20 6f 72 0d |r compressed or.|
00000050 00 1e 1b f4 20 75 6e 63 6f 6d 70 72 65 73 73 65 |.... uncompresse|
00000060 64 20 62 61 74 63 68 65 73 2e 0d 00 28 05 f4 0d |d batches...(...|
00000070 00 32 21 f4 20 41 75 74 68 6f 72 3a 20 20 20 20 |.2!. Author: |
00000080 20 20 20 20 20 47 75 6e 6e 61 72 20 5a f6 74 6c | Gunnar Z.tl|
00000090 0d 00 3c 21 f4 20 44 61 74 65 3a 20 20 20 20 20 |..<!. Date: |
000000a0 20 20 20 20 20 20 31 39 2d 53 65 70 2d 31 39 39 | 19-Sep-199|
000000b0 34 0d 00 46 21 f4 20 4c 61 73 74 20 6d 6f 64 69 |4..F!. Last modi|
000000c0 66 69 65 64 3a 20 20 30 36 2d 4e 6f 76 2d 31 39 |fied: 06-Nov-19|
000000d0 39 34 0d 00 50 04 0d 00 5a 19 ee 85 20 f6 3a f1 |94..P...Z... .:.|
000000e0 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d |" at line ";.:..|
000000f0 00 64 04 0d 00 6e 27 c8 9b 20 22 3c 4e 65 77 73 |.d...n'.. "<News|
00000100 42 61 73 65 24 54 61 79 6c 6f 72 44 69 72 3e 2e |Base$TaylorDir>.|
00000110 53 63 72 69 70 74 4c 69 62 22 0d 00 78 04 0d 00 |ScriptLib"..x...|
00000120 82 0a f2 65 6e 74 72 79 0d 00 8c 10 e7 20 61 72 |...entry..... ar|
00000130 67 63 20 3e 20 31 20 8c 0d 00 96 15 20 20 20 20 |gc > 1 ..... |
00000140 e3 20 69 25 3d 31 20 b8 20 61 72 67 63 0d 00 a0 |. i%=1 . argc...|
00000150 1a 20 20 20 20 20 20 20 20 c8 8e 20 61 72 67 76 |. .. argv|
00000160 24 28 69 25 29 20 ca 0d 00 aa 2a 20 20 20 20 20 |$(i%) ....* |
00000170 20 20 20 20 20 20 20 c9 20 22 2d 63 22 3a f2 63 | . "-c":.c|
00000180 6f 6d 70 72 65 73 73 65 64 5f 62 61 74 63 68 65 |ompressed_batche|
00000190 73 0d 00 b4 2c 20 20 20 20 20 20 20 20 20 20 20 |s..., |
000001a0 20 c9 20 22 2d 75 22 3a f2 75 6e 63 6f 6d 70 72 | . "-u":.uncompr|
000001b0 65 73 73 65 64 5f 62 61 74 63 68 65 73 0d 00 be |essed_batches...|
000001c0 0d 20 20 20 20 20 20 20 20 cb 0d 00 c8 0c 20 20 |. ..... |
000001d0 20 20 ed 20 69 25 0d 00 d2 05 cd 0d 00 dc 21 f2 | . i%........!.|
000001e0 65 78 69 74 28 30 2c 20 22 63 6f 6e 66 69 67 75 |exit(0, "configu|
000001f0 72 65 20 77 65 6e 74 20 4f 4b 22 29 0d 00 e6 05 |re went OK")....|
00000200 e0 0d 00 f0 04 0d 00 fa 19 dd 20 f2 63 6f 6d 70 |.......... .comp|
00000210 72 65 73 73 65 64 5f 62 61 74 63 68 65 73 0d 01 |ressed_batches..|
00000220 04 3a 20 20 20 20 e7 20 a4 6f 62 6a 74 79 70 65 |.: . .objtype|
00000230 28 22 3c 4e 65 77 73 42 61 73 65 24 54 61 79 6c |("<NewsBase$Tayl|
00000240 6f 72 44 69 72 3e 2e 43 6f 6d 70 50 6f 73 74 22 |orDir>.CompPost"|
00000250 29 20 3c 3e 20 30 20 8c 0d 01 0e 2f 20 20 20 20 |) <> 0 ..../ |
00000260 20 20 20 20 2a 72 65 6d 6f 76 65 20 3c 4e 65 77 | *remove <New|
00000270 73 42 61 73 65 24 54 61 79 6c 6f 72 44 69 72 3e |sBase$TaylorDir>|
00000280 2e 44 6f 50 6f 73 74 0d 01 18 51 20 20 20 20 20 |.DoPost...Q |
00000290 20 20 20 2a 63 6f 70 79 20 3c 4e 65 77 73 42 61 | *copy <NewsBa|
000002a0 73 65 24 54 61 79 6c 6f 72 44 69 72 3e 2e 43 6f |se$TaylorDir>.Co|
000002b0 6d 70 50 6f 73 74 20 3c 4e 65 77 73 42 61 73 65 |mpPost <NewsBase|
000002c0 24 54 61 79 6c 6f 72 44 69 72 3e 2e 44 6f 50 6f |$TaylorDir>.DoPo|
000002d0 73 74 20 46 7e 43 7e 56 0d 01 22 09 20 20 20 20 |st F~C~V..". |
000002e0 cc 0d 01 2c 41 20 20 20 20 20 20 20 20 f2 65 78 |...,A .ex|
000002f0 69 74 28 31 2c 22 43 6f 6d 70 50 6f 73 74 20 6e |it(1,"CompPost n|
00000300 6f 74 20 66 6f 75 6e 64 20 69 6e 20 54 61 79 6c |ot found in Tayl|
00000310 6f 72 20 74 72 61 6e 73 70 6f 72 74 20 44 69 72 |or transport Dir|
00000320 22 29 0d 01 36 09 20 20 20 20 cd 0d 01 40 05 e1 |")..6. ...@..|
00000330 0d 01 4a 04 0d 01 54 1b dd 20 f2 75 6e 63 6f 6d |..J...T.. .uncom|
00000340 70 72 65 73 73 65 64 5f 62 61 74 63 68 65 73 0d |pressed_batches.|
00000350 01 5e 3a 20 20 20 20 e7 20 a4 6f 62 6a 74 79 70 |.^: . .objtyp|
00000360 65 28 22 3c 4e 65 77 73 42 61 73 65 24 54 61 79 |e("<NewsBase$Tay|
00000370 6c 6f 72 44 69 72 3e 2e 4e 6f 72 6d 50 6f 73 74 |lorDir>.NormPost|
00000380 22 29 20 3c 3e 20 30 20 8c 0d 01 68 2f 20 20 20 |") <> 0 ...h/ |
00000390 20 20 20 20 20 2a 72 65 6d 6f 76 65 20 3c 4e 65 | *remove <Ne|
000003a0 77 73 42 61 73 65 24 54 61 79 6c 6f 72 44 69 72 |wsBase$TaylorDir|
000003b0 3e 2e 44 6f 50 6f 73 74 0d 01 72 51 20 20 20 20 |>.DoPost..rQ |
000003c0 20 20 20 20 2a 63 6f 70 79 20 3c 4e 65 77 73 42 | *copy <NewsB|
000003d0 61 73 65 24 54 61 79 6c 6f 72 44 69 72 3e 2e 4e |ase$TaylorDir>.N|
000003e0 6f 72 6d 50 6f 73 74 20 3c 4e 65 77 73 42 61 73 |ormPost <NewsBas|
000003f0 65 24 54 61 79 6c 6f 72 44 69 72 3e 2e 44 6f 50 |e$TaylorDir>.DoP|
00000400 6f 73 74 20 46 7e 43 7e 56 0d 01 7c 09 20 20 20 |ost F~C~V..|. |
00000410 20 cc 0d 01 86 41 20 20 20 20 20 20 20 20 f2 65 | ....A .e|
00000420 78 69 74 28 31 2c 22 4e 6f 72 6d 50 6f 73 74 20 |xit(1,"NormPost |
00000430 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 54 61 79 |not found in Tay|
00000440 6c 6f 72 20 74 72 61 6e 73 70 6f 72 74 20 44 69 |lor transport Di|
00000450 72 22 29 0d 01 90 09 20 20 20 20 cd 0d 01 9a 05 |r").... .....|
00000460 e1 0d 01 a4 04 0d 01 ae 31 f4 20 65 78 69 74 20 |........1. exit |
00000470 66 72 6f 6d 20 68 65 72 65 2c 20 72 65 74 75 72 |from here, retur|
00000480 6e 69 6e 67 20 61 70 70 72 6f 70 72 69 61 74 65 |ning appropriate|
00000490 20 69 6e 66 6f 2e 0d 01 b8 05 f4 0d 01 c2 11 dd | info...........|
000004a0 f2 65 78 69 74 28 6e 25 2c 61 24 29 0d 01 cc 25 |.exit(n%,a$)...%|
000004b0 ff 28 22 73 65 74 20 4e 65 77 73 42 61 73 65 24 |.("set NewsBase$|
000004c0 52 65 74 75 72 6e 43 6f 64 65 20 22 2b c3 6e 25 |ReturnCode "+.n%|
000004d0 29 0d 01 d6 24 ff 28 22 73 65 74 20 4e 65 77 73 |)...$.("set News|
000004e0 42 61 73 65 24 52 65 74 75 72 6e 49 6e 66 6f 20 |Base$ReturnInfo |
000004f0 22 2b 61 24 29 0d 01 e0 05 e0 0d 01 ea 05 e1 0d |"+a$)...........|
00000500 01 f4 04 0d 01 fe 11 dd a4 6f 62 6a 74 79 70 65 |.........objtype|
00000510 28 66 24 29 0d 02 08 07 ea 46 25 0d 02 12 1c c8 |(f$).....F%.....|
00000520 99 22 58 4f 53 5f 46 69 6c 65 22 2c 31 37 2c 66 |."XOS_File",17,f|
00000530 24 b8 74 25 3b 46 25 0d 02 1c 14 e7 28 46 25 80 |$.t%;F%.....(F%.|
00000540 31 29 8c 3d 2d 31 3a 8b 3d 74 25 0d ff |1).=-1:.=t%..|
0000054d 
.