Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199508.adf » !Internet » StarterPak/!Newsbase/Transports/taylor/status

StarterPak/!Newsbase/Transports/taylor/status

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/status
Read OK:
File size: 021A bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>status
   20REM return transport status
   30REM 1=active, 0=inactive
   40REM modified for Taylor UUCP by basically replacing one string.
   50REM by:     Gunnar ZREPORTtl
   60REM Date:   12-Sep-1994
   70
   80DIMq%20
   90r0%=0:found%=0
  100REPEAT
  110SYS"TaskManager_EnumerateTasks",r0%,q%,20 TOr0%
  120A$=FNstr(q%!4):IFLEFT$(A$,6)="uucico" found%=1
  130UNTILr0%<0ORfound%<>0
  140PROCexit(found%,"Transport status")
  150END
  160
  170DEFPROCexit(n%,a$)
  180OSCLI("set NewsBase$ReturnCode "+STR$n%)
  190OSCLI("set NewsBase$ReturnInfo "+a$)
  200END
  210
  220DEFFNstr(a%)
  230LOCALa$:WHILE ?a%>31ANDLENa$<255:a$+=CHR$?a%:a%+=1:ENDWHILE
  240=a$

�>status
� return transport status
� 1=active, 0=inactive
(A� modified for Taylor UUCP by basically replacing one string.
2� by:     Gunnar Z�tl
<� Date:   12-Sep-1994
F
P	�q%20
Zr0%=0:found%=0
d�
n1ș"TaskManager_EnumerateTasks",r0%,q%,20 �r0%
x+A$=�str(q%!4):�A$,6)="uucico" found%=1
��r0%<0�found%<>0
�$�exit(found%,"Transport status")
��
�
���exit(n%,a$)
�%�("set NewsBase$ReturnCode "+�n%)
�$�("set NewsBase$ReturnInfo "+a$)
��
�
�
ݤstr(a%)
�*�a$:ȕ ?a%>31��a$<255:a$+=�?a%:a%+=1:�
�=a$
�
00000000  0d 00 0a 0c f4 3e 73 74  61 74 75 73 0d 00 14 1d  |.....>status....|
00000010  f4 20 72 65 74 75 72 6e  20 74 72 61 6e 73 70 6f  |. return transpo|
00000020  72 74 20 73 74 61 74 75  73 0d 00 1e 1a f4 20 31  |rt status..... 1|
00000030  3d 61 63 74 69 76 65 2c  20 30 3d 69 6e 61 63 74  |=active, 0=inact|
00000040  69 76 65 0d 00 28 41 f4  20 6d 6f 64 69 66 69 65  |ive..(A. modifie|
00000050  64 20 66 6f 72 20 54 61  79 6c 6f 72 20 55 55 43  |d for Taylor UUC|
00000060  50 20 62 79 20 62 61 73  69 63 61 6c 6c 79 20 72  |P by basically r|
00000070  65 70 6c 61 63 69 6e 67  20 6f 6e 65 20 73 74 72  |eplacing one str|
00000080  69 6e 67 2e 0d 00 32 19  f4 20 62 79 3a 20 20 20  |ing...2.. by:   |
00000090  20 20 47 75 6e 6e 61 72  20 5a f6 74 6c 0d 00 3c  |  Gunnar Z.tl..<|
000000a0  19 f4 20 44 61 74 65 3a  20 20 20 31 32 2d 53 65  |.. Date:   12-Se|
000000b0  70 2d 31 39 39 34 0d 00  46 04 0d 00 50 09 de 71  |p-1994..F...P..q|
000000c0  25 32 30 0d 00 5a 12 72  30 25 3d 30 3a 66 6f 75  |%20..Z.r0%=0:fou|
000000d0  6e 64 25 3d 30 0d 00 64  05 f5 0d 00 6e 31 c8 99  |nd%=0..d....n1..|
000000e0  22 54 61 73 6b 4d 61 6e  61 67 65 72 5f 45 6e 75  |"TaskManager_Enu|
000000f0  6d 65 72 61 74 65 54 61  73 6b 73 22 2c 72 30 25  |merateTasks",r0%|
00000100  2c 71 25 2c 32 30 20 b8  72 30 25 0d 00 78 2b 41  |,q%,20 .r0%..x+A|
00000110  24 3d a4 73 74 72 28 71  25 21 34 29 3a e7 c0 41  |$=.str(q%!4):..A|
00000120  24 2c 36 29 3d 22 75 75  63 69 63 6f 22 20 66 6f  |$,6)="uucico" fo|
00000130  75 6e 64 25 3d 31 0d 00  82 14 fd 72 30 25 3c 30  |und%=1.....r0%<0|
00000140  84 66 6f 75 6e 64 25 3c  3e 30 0d 00 8c 24 f2 65  |.found%<>0...$.e|
00000150  78 69 74 28 66 6f 75 6e  64 25 2c 22 54 72 61 6e  |xit(found%,"Tran|
00000160  73 70 6f 72 74 20 73 74  61 74 75 73 22 29 0d 00  |sport status")..|
00000170  96 05 e0 0d 00 a0 04 0d  00 aa 11 dd f2 65 78 69  |.............exi|
00000180  74 28 6e 25 2c 61 24 29  0d 00 b4 25 ff 28 22 73  |t(n%,a$)...%.("s|
00000190  65 74 20 4e 65 77 73 42  61 73 65 24 52 65 74 75  |et NewsBase$Retu|
000001a0  72 6e 43 6f 64 65 20 22  2b c3 6e 25 29 0d 00 be  |rnCode "+.n%)...|
000001b0  24 ff 28 22 73 65 74 20  4e 65 77 73 42 61 73 65  |$.("set NewsBase|
000001c0  24 52 65 74 75 72 6e 49  6e 66 6f 20 22 2b 61 24  |$ReturnInfo "+a$|
000001d0  29 0d 00 c8 05 e0 0d 00  d2 04 0d 00 dc 0d dd a4  |)...............|
000001e0  73 74 72 28 61 25 29 0d  00 e6 2a ea 61 24 3a c8  |str(a%)...*.a$:.|
000001f0  95 20 3f 61 25 3e 33 31  80 a9 61 24 3c 32 35 35  |. ?a%>31..a$<255|
00000200  3a 61 24 2b 3d bd 3f 61  25 3a 61 25 2b 3d 31 3a  |:a$+=.?a%:a%+=1:|
00000210  ce 0d 00 f0 07 3d 61 24  0d ff                    |.....=a$..|
0000021a