�"�ATS10
$�"�*****************************
$�"�*�ATS�Routine to determine �*
($�"�*�Teletext adapter status. �*
2$�"�*****************************
<$�"�*�(C)�J.J.Brayshaw�Sep 1986�*
F$�"�*****************************
P$�"�*�Lines following�GREEN�REM�*
Z$�"�*�statements to be adjusted�*
d$�"�*�as required.             �*
n$�"�*�REM's in�YELLOW�for info.�*
x$�"�*�only.                    �*
�$�"�*****************************
�$�"�*�The procedure required is�*
�$�"�*�FNadapter.�The rest of   �*
�$�"�*�the program is a         �*
�$�"�*�demonstration only.      �*
�$�"�*****************************
�:
�:
�:
��"�Invoke demo routine:
��7
��heading
�� space% 2

'�''"   �Teletext Adapter status:"''

�(3)�adapter

�''

"�

,:

6:

@:

J:

T:

^:

h�"�***�Check adapter�***

r
ݤadapter

|�"�Requires DIM space% 2

�
A%=&7A

�!X%=space% �256:Y%=space% �256

�space%?0=17:space%?1=&FE

�
�&FFF1

�&�space%?1=&0 ="�On and connected."

�9�space%?1=&1 ="�On, but no TV signal being received."

�(�space%?1=&2 ="�Off, but connected."

�$�space%?1=&FF ="�Not connected."

�2�space%?1=&FE ="�ATS disabled or not present."

�:

�:

�:

�
��heading
C�2;�141;�132;�157;�131;"ATS utilities : Adapter Status  ";�156
C�2;�141;�132;�157;�131;"ATS utilities : Adapter Status  ";�156
�
�

00000000  0d 00 0a 0c f4 22 85 41  54 53 31 30 0d 00 14 24  |.....".ATS10...$|
00000010  f4 22 81 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.".*************|
00000020  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000030  0d 00 1e 24 f4 22 81 2a  86 41 54 53 83 52 6f 75  |...$.".*.ATS.Rou|
00000040  74 69 6e 65 20 74 6f 20  64 65 74 65 72 6d 69 6e  |tine to determin|
00000050  65 20 81 2a 0d 00 28 24  f4 22 81 2a 83 54 65 6c  |e .*..($.".*.Tel|
00000060  65 74 65 78 74 20 61 64  61 70 74 65 72 20 73 74  |etext adapter st|
00000070  61 74 75 73 2e 20 81 2a  0d 00 32 24 f4 22 81 2a  |atus. .*..2$.".*|
00000080  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 3c 24  |************..<$|
000000a0  f4 22 81 2a 82 28 43 29  87 4a 2e 4a 2e 42 72 61  |.".*.(C).J.J.Bra|
000000b0  79 73 68 61 77 85 53 65  70 20 31 39 38 36 81 2a  |yshaw.Sep 1986.*|
000000c0  0d 00 46 24 f4 22 81 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..F$.".*********|
000000d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000e0  2a 2a 2a 2a 0d 00 50 24  f4 22 81 2a 87 4c 69 6e  |****..P$.".*.Lin|
000000f0  65 73 20 66 6f 6c 6c 6f  77 69 6e 67 82 47 52 45  |es following.GRE|
00000100  45 4e 87 52 45 4d 81 2a  0d 00 5a 24 f4 22 81 2a  |EN.REM.*..Z$.".*|
00000110  87 73 74 61 74 65 6d 65  6e 74 73 20 74 6f 20 62  |.statements to b|
00000120  65 20 61 64 6a 75 73 74  65 64 81 2a 0d 00 64 24  |e adjusted.*..d$|
00000130  f4 22 81 2a 87 61 73 20  72 65 71 75 69 72 65 64  |.".*.as required|
00000140  2e 20 20 20 20 20 20 20  20 20 20 20 20 20 81 2a  |.             .*|
00000150  0d 00 6e 24 f4 22 81 2a  87 52 45 4d 27 73 20 69  |..n$.".*.REM's i|
00000160  6e 83 59 45 4c 4c 4f 57  87 66 6f 72 20 69 6e 66  |n.YELLOW.for inf|
00000170  6f 2e 81 2a 0d 00 78 24  f4 22 81 2a 87 6f 6e 6c  |o..*..x$.".*.onl|
00000180  79 2e 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |y.              |
00000190  20 20 20 20 20 20 81 2a  0d 00 82 24 f4 22 81 2a  |      .*...$.".*|
000001a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000001b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 8c 24  |************...$|
000001c0  f4 22 81 2a 87 54 68 65  20 70 72 6f 63 65 64 75  |.".*.The procedu|
000001d0  72 65 20 72 65 71 75 69  72 65 64 20 69 73 81 2a  |re required is.*|
000001e0  0d 00 96 24 f4 22 81 2a  85 46 4e 61 64 61 70 74  |...$.".*.FNadapt|
000001f0  65 72 2e 87 54 68 65 20  72 65 73 74 20 6f 66 20  |er..The rest of |
00000200  20 20 81 2a 0d 00 a0 24  f4 22 81 2a 87 74 68 65  |  .*...$.".*.the|
00000210  20 70 72 6f 67 72 61 6d  20 69 73 20 61 20 20 20  | program is a   |
00000220  20 20 20 20 20 20 81 2a  0d 00 aa 24 f4 22 81 2a  |      .*...$.".*|
00000230  87 64 65 6d 6f 6e 73 74  72 61 74 69 6f 6e 20 6f  |.demonstration o|
00000240  6e 6c 79 2e 20 20 20 20  20 20 81 2a 0d 00 b4 24  |nly.      .*...$|
00000250  f4 22 81 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.".*************|
00000260  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000270  0d 00 be 05 3a 0d 00 c8  05 3a 0d 00 d2 05 3a 0d  |....:....:....:.|
00000280  00 dc 1b f4 22 83 49 6e  76 6f 6b 65 20 64 65 6d  |....".Invoke dem|
00000290  6f 20 72 6f 75 74 69 6e  65 3a 0d 00 e6 06 eb 37  |o routine:.....7|
000002a0  0d 00 f0 0c f2 68 65 61  64 69 6e 67 0d 00 fa 0e  |.....heading....|
000002b0  de 20 73 70 61 63 65 25  20 32 0d 01 04 27 f1 27  |. space% 2...'.'|
000002c0  27 22 20 20 20 86 54 65  6c 65 74 65 78 74 20 41  |'"   .Teletext A|
000002d0  64 61 70 74 65 72 20 73  74 61 74 75 73 3a 22 27  |dapter status:"'|
000002e0  27 0d 01 0e 11 f1 89 28  33 29 a4 61 64 61 70 74  |'......(3).adapt|
000002f0  65 72 0d 01 18 07 f1 27  27 0d 01 22 05 e0 0d 01  |er.....''.."....|
00000300  2c 05 3a 0d 01 36 05 3a  0d 01 40 05 3a 0d 01 4a  |,.:..6.:..@.:..J|
00000310  05 3a 0d 01 54 05 3a 0d  01 5e 05 3a 0d 01 68 1c  |.:..T.:..^.:..h.|
00000320  f4 22 81 2a 2a 2a 86 43  68 65 63 6b 20 61 64 61  |.".***.Check ada|
00000330  70 74 65 72 81 2a 2a 2a  0d 01 72 0d dd a4 61 64  |pter.***..r...ad|
00000340  61 70 74 65 72 0d 01 7c  1c f4 22 82 52 65 71 75  |apter..|..".Requ|
00000350  69 72 65 73 20 44 49 4d  20 73 70 61 63 65 25 20  |ires DIM space% |
00000360  32 0d 01 86 0a 41 25 3d  26 37 41 0d 01 90 21 58  |2....A%=&7A...!X|
00000370  25 3d 73 70 61 63 65 25  20 83 32 35 36 3a 59 25  |%=space% .256:Y%|
00000380  3d 73 70 61 63 65 25 20  81 32 35 36 0d 01 9a 1c  |=space% .256....|
00000390  73 70 61 63 65 25 3f 30  3d 31 37 3a 73 70 61 63  |space%?0=17:spac|
000003a0  65 25 3f 31 3d 26 46 45  0d 01 a4 0a d6 26 46 46  |e%?1=&FE.....&FF|
000003b0  46 31 0d 01 ae 26 e7 73  70 61 63 65 25 3f 31 3d  |F1...&.space%?1=|
000003c0  26 30 20 3d 22 87 4f 6e  20 61 6e 64 20 63 6f 6e  |&0 =".On and con|
000003d0  6e 65 63 74 65 64 2e 22  0d 01 b8 39 e7 73 70 61  |nected."...9.spa|
000003e0  63 65 25 3f 31 3d 26 31  20 3d 22 83 4f 6e 2c 20  |ce%?1=&1 =".On, |
000003f0  62 75 74 20 6e 6f 20 54  56 20 73 69 67 6e 61 6c  |but no TV signal|
00000400  20 62 65 69 6e 67 20 72  65 63 65 69 76 65 64 2e  | being received.|
00000410  22 0d 01 c2 28 e7 73 70  61 63 65 25 3f 31 3d 26  |"...(.space%?1=&|
00000420  32 20 3d 22 82 4f 66 66  2c 20 62 75 74 20 63 6f  |2 =".Off, but co|
00000430  6e 6e 65 63 74 65 64 2e  22 0d 01 cc 24 e7 73 70  |nnected."...$.sp|
00000440  61 63 65 25 3f 31 3d 26  46 46 20 3d 22 81 4e 6f  |ace%?1=&FF =".No|
00000450  74 20 63 6f 6e 6e 65 63  74 65 64 2e 22 0d 01 d6  |t connected."...|
00000460  32 e7 73 70 61 63 65 25  3f 31 3d 26 46 45 20 3d  |2.space%?1=&FE =|
00000470  22 81 41 54 53 20 64 69  73 61 62 6c 65 64 20 6f  |".ATS disabled o|
00000480  72 20 6e 6f 74 20 70 72  65 73 65 6e 74 2e 22 0d  |r not present.".|
00000490  01 e0 05 3a 0d 01 ea 05  3a 0d 01 f4 05 3a 0d 01  |...:....:....:..|
000004a0  fe 0d dd f2 68 65 61 64  69 6e 67 0d 02 08 43 f1  |....heading...C.|
000004b0  89 32 3b bd 31 34 31 3b  bd 31 33 32 3b bd 31 35  |.2;.141;.132;.15|
000004c0  37 3b bd 31 33 31 3b 22  41 54 53 20 75 74 69 6c  |7;.131;"ATS util|
000004d0  69 74 69 65 73 20 3a 20  41 64 61 70 74 65 72 20  |ities : Adapter |
000004e0  53 74 61 74 75 73 20 20  22 3b bd 31 35 36 0d 02  |Status  ";.156..|
000004f0  12 43 f1 89 32 3b bd 31  34 31 3b bd 31 33 32 3b  |.C..2;.141;.132;|
00000500  bd 31 35 37 3b bd 31 33  31 3b 22 41 54 53 20 75  |.157;.131;"ATS u|
00000510  74 69 6c 69 74 69 65 73  20 3a 20 41 64 61 70 74  |tilities : Adapt|
00000520  65 72 20 53 74 61 74 75  73 20 20 22 3b bd 31 35  |er Status  ";.15|
00000530  36 0d 02 1c 05 e1 0d ff                           |6.......|
00000538