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

StarterPak/!Newsbase/Transports/ka9q/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/ka9q/status
Read OK:
File size: 019A bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>status
   20REM return transport status
   30REM 1=active, 0=inactive
   40DIMq%20
   50r0%=0:found%=0
   60REPEAT
   70SYS"TaskManager_EnumerateTasks",r0%,q%,20 TOr0%
   80A$=FNstr(q%!4):IFLEFT$(A$,6)="TCP/IP" found%=1
   90UNTILr0%<0ORfound%<>0
  100PROCexit(found%,"")
  110END
  120
  130DEFPROCexit(n%,a$)
  140OSCLI("set NewsBase$ReturnCode "+STR$n%)
  150IFa$>""THENOSCLI("set NewsBase$ReturnInfo "+a$)
  160END
  170
  180DEFFNstr(a%)
  190LOCALa$:WHILE ?a%>31ANDLENa$<255:a$+=CHR$?a%:a%+=1:ENDWHILE
  200=a$

�>status
� return transport status
� 1=active, 0=inactive
(	�q%20
2r0%=0:found%=0
<�
F1ș"TaskManager_EnumerateTasks",r0%,q%,20 �r0%
P+A$=�str(q%!4):�A$,6)="TCP/IP" found%=1
Z�r0%<0�found%<>0
d�exit(found%,"")
n�
x
���exit(n%,a$)
�%�("set NewsBase$ReturnCode "+�n%)
�+�a$>""��("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 09 de  71 25 32 30 0d 00 32 12  |ive..(..q%20..2.|
00000050  72 30 25 3d 30 3a 66 6f  75 6e 64 25 3d 30 0d 00  |r0%=0:found%=0..|
00000060  3c 05 f5 0d 00 46 31 c8  99 22 54 61 73 6b 4d 61  |<....F1.."TaskMa|
00000070  6e 61 67 65 72 5f 45 6e  75 6d 65 72 61 74 65 54  |nager_EnumerateT|
00000080  61 73 6b 73 22 2c 72 30  25 2c 71 25 2c 32 30 20  |asks",r0%,q%,20 |
00000090  b8 72 30 25 0d 00 50 2b  41 24 3d a4 73 74 72 28  |.r0%..P+A$=.str(|
000000a0  71 25 21 34 29 3a e7 c0  41 24 2c 36 29 3d 22 54  |q%!4):..A$,6)="T|
000000b0  43 50 2f 49 50 22 20 66  6f 75 6e 64 25 3d 31 0d  |CP/IP" found%=1.|
000000c0  00 5a 14 fd 72 30 25 3c  30 84 66 6f 75 6e 64 25  |.Z..r0%<0.found%|
000000d0  3c 3e 30 0d 00 64 14 f2  65 78 69 74 28 66 6f 75  |<>0..d..exit(fou|
000000e0  6e 64 25 2c 22 22 29 0d  00 6e 05 e0 0d 00 78 04  |nd%,"")..n....x.|
000000f0  0d 00 82 11 dd f2 65 78  69 74 28 6e 25 2c 61 24  |......exit(n%,a$|
00000100  29 0d 00 8c 25 ff 28 22  73 65 74 20 4e 65 77 73  |)...%.("set News|
00000110  42 61 73 65 24 52 65 74  75 72 6e 43 6f 64 65 20  |Base$ReturnCode |
00000120  22 2b c3 6e 25 29 0d 00  96 2b e7 61 24 3e 22 22  |"+.n%)...+.a$>""|
00000130  8c ff 28 22 73 65 74 20  4e 65 77 73 42 61 73 65  |..("set NewsBase|
00000140  24 52 65 74 75 72 6e 49  6e 66 6f 20 22 2b 61 24  |$ReturnInfo "+a$|
00000150  29 0d 00 a0 05 e0 0d 00  aa 04 0d 00 b4 0d dd a4  |)...............|
00000160  73 74 72 28 61 25 29 0d  00 be 2a ea 61 24 3a c8  |str(a%)...*.a$:.|
00000170  95 20 3f 61 25 3e 33 31  80 a9 61 24 3c 32 35 35  |. ?a%>31..a$<255|
00000180  3a 61 24 2b 3d bd 3f 61  25 3a 61 25 2b 3d 31 3a  |:a$+=.?a%:a%+=1:|
00000190  ce 0d 00 c8 07 3d 61 24  0d ff                    |.....=a$..|
0000019a