�"�ATS05
$�"�*****************************
$�"�*�ATS�Routine to determine �*
($�"�*�Teletext page link       �*
2$�"�*�settings.                �*
<$�"�*****************************
F$�"�*�(C)�J.J.Brayshaw�Sep 1986�*
P$�"�*****************************
Z$�"�*�Lines following�GREEN�REM�*
d$�"�*�statements to be adjusted�*
n$�"�*�as required.             �*
x$�"�*�REM's in�YELLOW�for info.�*
�$�"�*�only.                    �*
�$�"�*****************************
�$�"�*�The procedure required is�*
�$�"�*�FNfind_page_link(page    �*
�$�"�*�address, link number,    �*
�$�"�*�page number)�which calls �*
�$�"�*�FNdeham(byte to de-ham)  �*
�$�"�*�The rest of the program  �*
�$�"�*�is a demonstration only. �*
�$�"�*****************************
�:
�:
�:

�"�Invoke demo routines:

�7

#�"�Set address to load page to:

"load%=&7000

,"�"�set HIMEM below page store:

6�=load%

@	�demo

J�load_page(load%,ch%,p%)

T�0,17)"�Page link:�";

^"� �find_page_link(load%,l%,p%)

h)�1,24)"�Press�SPACE�when ready ...";

r�:��=32

|�:�heading

�%�'"�Channel�";ch%;�20)"�Page�";p%

��L%=0�23

�2�(L%�2)*20,(L%�2)+7);"�L ";�" "+�(L%)+"�",3);

�"�;�find_page_link(load%,L%,p%)

��

�	*HOFF

��

�:

�:

�
��demo

�!�"�***�Demonstration prog�***

��heading

�R�0,5)"�Please enter:"''"�Teletext channel:�"ch%:�ch%<1 �ch%>4 �0,5)�40:�d~A
>�0,9)"�Teletext page:�"p%:�p%<100 �p%>900 �0,9)�40:�THB
G�0,11)"�Link required: (0 to 23)�"l%:�l%<0 �l%>23 �0,11)�40:�TRB
$�"�Start adapter receiving Ttext
&
*TTXON
0�"�Allocate work space
:� D(5):� space 20
D!�"�Display header so user can
N �"�see something happening!!
X*HON
bL�0,13)"�Loading teletext page to�&";~load%''"�Please wait a moment...";
l�
v:
�:
�:
�:
�:
��"�***�load page�***
�*��load_page(page_address%,chan%,page%)
��a%,pn$,row%
��"�Set required channel:
��oscli("CH "+�(chan%))
��"�Set required page:
��oscli("PAGE "+�(page%))
��"�Load page using *DATA:
�%�oscli("DATA "+�~(page_address%))
�
�"�***�FIND PAGE LINK�***
2ݤfind_page_link(page_address%,link_no%,page%)
 �"�Needs�DIM D(5)
*a%=page_address%-42
4row%=link_no%�6
>�
Ha%=a%+42
R9�(a%?1=27 � �deham(a%?2)=row%) �a%>page_address%+&800
\�"�ROW NOT TRANSMITTED:
f*�a%>page_address%+&800 ="�not present"
p
�var%=0�5
z#D(var%)=((link_no%�6)*6)+3+var%
�D(var%)=�deham(a%?D(var%))
��
�/mag%=(((D(5) �12)�2)�(D(3) �8))�(page%�100)
�D(5)=D(5) �3
�D(3)=D(3) �7
�$page$=�~(mag%)+�~(D(1))+�~(D(0))
�,sub$=�~(D(5))+�~(D(4))+�~(D(3))+�~(D(2))
�$�"�Link not specified (indicated
��"�by link set to &FF)
�!��page$,2)="FF" ="�not given"
�!�"�Use just�page$�if sub-page
��"�not needed:
�pn$=page$+sub$
=pn$
:
:
$�"�***�DE-HAMM BYTE�***
.ݤdeham(byte%)
8�"�Needs�DIM space 20
Bspace?0=25
Lspace?1=byte%
V&A%=&7A:X%=space �256:Y%=space �256
`
�&FFF1
j=(space?2)�&F
t:
~:
��"�***�OSCLI SIMULATION�***
���oscli(line$)
��"�Needs�DIM space 20
�,$space=line$:X%=space �256:Y%=space �256
�
�&FFF7
��
�:
�:
��"�***�HEADING�***
�
��heading
��
�A�'�2;�141;�132;�157;�131;"ATS Utilities: Link Decoder  ";�156
@�2;�141;�132;�157;�131;"ATS Utilities: Link Decoder  ";�156

�
�

00000000  0d 00 0a 0c f4 22 85 41  54 53 30 35 0d 00 14 24  |.....".ATS05...$|
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 70 61  67 65 20 6c 69 6e 6b 20  |etext page link |
00000070  20 20 20 20 20 20 81 2a  0d 00 32 24 f4 22 81 2a  |      .*..2$.".*|
00000080  83 73 65 74 74 69 6e 67  73 2e 20 20 20 20 20 20  |.settings.      |
00000090  20 20 20 20 20 20 20 20  20 20 81 2a 0d 00 3c 24  |          .*..<$|
000000a0  f4 22 81 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.".*************|
000000b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000c0  0d 00 46 24 f4 22 81 2a  82 28 43 29 87 4a 2e 4a  |..F$.".*.(C).J.J|
000000d0  2e 42 72 61 79 73 68 61  77 85 53 65 70 20 31 39  |.Brayshaw.Sep 19|
000000e0  38 36 81 2a 0d 00 50 24  f4 22 81 2a 2a 2a 2a 2a  |86.*..P$.".*****|
000000f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000100  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 5a 24 f4 22 81 2a  |********..Z$.".*|
00000110  87 4c 69 6e 65 73 20 66  6f 6c 6c 6f 77 69 6e 67  |.Lines following|
00000120  82 47 52 45 45 4e 87 52  45 4d 81 2a 0d 00 64 24  |.GREEN.REM.*..d$|
00000130  f4 22 81 2a 87 73 74 61  74 65 6d 65 6e 74 73 20  |.".*.statements |
00000140  74 6f 20 62 65 20 61 64  6a 75 73 74 65 64 81 2a  |to be adjusted.*|
00000150  0d 00 6e 24 f4 22 81 2a  87 61 73 20 72 65 71 75  |..n$.".*.as requ|
00000160  69 72 65 64 2e 20 20 20  20 20 20 20 20 20 20 20  |ired.           |
00000170  20 20 81 2a 0d 00 78 24  f4 22 81 2a 87 52 45 4d  |  .*..x$.".*.REM|
00000180  27 73 20 69 6e 83 59 45  4c 4c 4f 57 87 66 6f 72  |'s in.YELLOW.for|
00000190  20 69 6e 66 6f 2e 81 2a  0d 00 82 24 f4 22 81 2a  | info..*...$.".*|
000001a0  87 6f 6e 6c 79 2e 20 20  20 20 20 20 20 20 20 20  |.only.          |
000001b0  20 20 20 20 20 20 20 20  20 20 81 2a 0d 00 8c 24  |          .*...$|
000001c0  f4 22 81 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.".*************|
000001d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000001e0  0d 00 96 24 f4 22 81 2a  87 54 68 65 20 70 72 6f  |...$.".*.The pro|
000001f0  63 65 64 75 72 65 20 72  65 71 75 69 72 65 64 20  |cedure required |
00000200  69 73 81 2a 0d 00 a0 24  f4 22 81 2a 85 46 4e 66  |is.*...$.".*.FNf|
00000210  69 6e 64 5f 70 61 67 65  5f 6c 69 6e 6b 28 70 61  |ind_page_link(pa|
00000220  67 65 20 20 20 20 81 2a  0d 00 aa 24 f4 22 81 2a  |ge    .*...$.".*|
00000230  85 61 64 64 72 65 73 73  2c 20 6c 69 6e 6b 20 6e  |.address, link n|
00000240  75 6d 62 65 72 2c 20 20  20 20 81 2a 0d 00 b4 24  |umber,    .*...$|
00000250  f4 22 81 2a 85 70 61 67  65 20 6e 75 6d 62 65 72  |.".*.page number|
00000260  29 87 77 68 69 63 68 20  63 61 6c 6c 73 20 81 2a  |).which calls .*|
00000270  0d 00 be 24 f4 22 81 2a  85 46 4e 64 65 68 61 6d  |...$.".*.FNdeham|
00000280  28 62 79 74 65 20 74 6f  20 64 65 2d 68 61 6d 29  |(byte to de-ham)|
00000290  20 20 81 2a 0d 00 c8 24  f4 22 81 2a 87 54 68 65  |  .*...$.".*.The|
000002a0  20 72 65 73 74 20 6f 66  20 74 68 65 20 70 72 6f  | rest of the pro|
000002b0  67 72 61 6d 20 20 81 2a  0d 00 d2 24 f4 22 81 2a  |gram  .*...$.".*|
000002c0  87 69 73 20 61 20 64 65  6d 6f 6e 73 74 72 61 74  |.is a demonstrat|
000002d0  69 6f 6e 20 6f 6e 6c 79  2e 20 81 2a 0d 00 dc 24  |ion only. .*...$|
000002e0  f4 22 81 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.".*************|
000002f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000300  0d 00 e6 05 3a 0d 00 f0  05 3a 0d 00 fa 05 3a 0d  |....:....:....:.|
00000310  01 04 1c f4 22 83 49 6e  76 6f 6b 65 20 64 65 6d  |....".Invoke dem|
00000320  6f 20 72 6f 75 74 69 6e  65 73 3a 0d 01 0e 06 eb  |o routines:.....|
00000330  37 0d 01 18 23 f4 22 82  53 65 74 20 61 64 64 72  |7...#.".Set addr|
00000340  65 73 73 20 74 6f 20 6c  6f 61 64 20 70 61 67 65  |ess to load page|
00000350  20 74 6f 3a 0d 01 22 0f  6c 6f 61 64 25 3d 26 37  | to:..".load%=&7|
00000360  30 30 30 0d 01 2c 22 f4  22 83 73 65 74 20 48 49  |000..,".".set HI|
00000370  4d 45 4d 20 62 65 6c 6f  77 20 70 61 67 65 20 73  |MEM below page s|
00000380  74 6f 72 65 3a 0d 01 36  0b d3 3d 6c 6f 61 64 25  |tore:..6..=load%|
00000390  0d 01 40 09 f2 64 65 6d  6f 0d 01 4a 1c f2 6c 6f  |..@..demo..J..lo|
000003a0  61 64 5f 70 61 67 65 28  6c 6f 61 64 25 2c 63 68  |ad_page(load%,ch|
000003b0  25 2c 70 25 29 0d 01 54  1a f1 8a 30 2c 31 37 29  |%,p%)..T...0,17)|
000003c0  22 85 50 61 67 65 20 6c  69 6e 6b 3a 86 22 3b 0d  |".Page link:.";.|
000003d0  01 5e 22 f1 20 a4 66 69  6e 64 5f 70 61 67 65 5f  |.^". .find_page_|
000003e0  6c 69 6e 6b 28 6c 6f 61  64 25 2c 6c 25 2c 70 25  |link(load%,l%,p%|
000003f0  29 0d 01 68 29 f1 8a 31  2c 32 34 29 22 83 50 72  |)..h)..1,24)".Pr|
00000400  65 73 73 81 53 50 41 43  45 83 77 68 65 6e 20 72  |ess.SPACE.when r|
00000410  65 61 64 79 20 2e 2e 2e  22 3b 0d 01 72 0b f5 3a  |eady ...";..r..:|
00000420  fd a5 3d 33 32 0d 01 7c  0e db 3a f2 68 65 61 64  |..=32..|..:.head|
00000430  69 6e 67 0d 01 86 25 f1  27 22 82 43 68 61 6e 6e  |ing...%.'".Chann|
00000440  65 6c 83 22 3b 63 68 25  3b 8a 32 30 29 22 82 50  |el.";ch%;.20)".P|
00000450  61 67 65 83 22 3b 70 25  0d 01 90 0c e3 4c 25 3d  |age.";p%.....L%=|
00000460  30 b8 32 33 0d 01 9a 32  f1 8a 28 4c 25 83 32 29  |0.23...2..(L%.2)|
00000470  2a 32 30 2c 28 4c 25 81  32 29 2b 37 29 3b 22 82  |*20,(L%.2)+7);".|
00000480  4c 20 22 3b c2 22 20 22  2b c3 28 4c 25 29 2b 22  |L ";." "+.(L%)+"|
00000490  83 22 2c 33 29 3b 0d 01  a4 22 f1 3b a4 66 69 6e  |.",3);...".;.fin|
000004a0  64 5f 70 61 67 65 5f 6c  69 6e 6b 28 6c 6f 61 64  |d_page_link(load|
000004b0  25 2c 4c 25 2c 70 25 29  0d 01 ae 05 ed 0d 01 b8  |%,L%,p%)........|
000004c0  09 2a 48 4f 46 46 0d 01  c2 05 e0 0d 01 cc 05 3a  |.*HOFF.........:|
000004d0  0d 01 d6 05 3a 0d 01 e0  0a dd f2 64 65 6d 6f 0d  |....:......demo.|
000004e0  01 ea 21 f4 22 81 2a 2a  2a 86 44 65 6d 6f 6e 73  |..!.".***.Demons|
000004f0  74 72 61 74 69 6f 6e 20  70 72 6f 67 81 2a 2a 2a  |tration prog.***|
00000500  0d 01 f4 0c f2 68 65 61  64 69 6e 67 0d 01 fe 52  |.....heading...R|
00000510  e8 8a 30 2c 35 29 22 86  50 6c 65 61 73 65 20 65  |..0,5)".Please e|
00000520  6e 74 65 72 3a 22 27 27  22 86 54 65 6c 65 74 65  |nter:"''".Telete|
00000530  78 74 20 63 68 61 6e 6e  65 6c 3a 87 22 63 68 25  |xt channel:."ch%|
00000540  3a e7 63 68 25 3c 31 20  84 63 68 25 3e 34 20 f1  |:.ch%<1 .ch%>4 .|
00000550  8a 30 2c 35 29 89 34 30  3a e5 8d 64 7e 41 0d 02  |.0,5).40:..d~A..|
00000560  08 3e e8 8a 30 2c 39 29  22 86 54 65 6c 65 74 65  |.>..0,9)".Telete|
00000570  78 74 20 70 61 67 65 3a  87 22 70 25 3a e7 70 25  |xt page:."p%:.p%|
00000580  3c 31 30 30 20 84 70 25  3e 39 30 30 20 f1 8a 30  |<100 .p%>900 ..0|
00000590  2c 39 29 89 34 30 3a e5  8d 54 48 42 0d 02 12 47  |,9).40:..THB...G|
000005a0  e8 8a 30 2c 31 31 29 22  86 4c 69 6e 6b 20 72 65  |..0,11)".Link re|
000005b0  71 75 69 72 65 64 3a 20  28 30 20 74 6f 20 32 33  |quired: (0 to 23|
000005c0  29 87 22 6c 25 3a e7 6c  25 3c 30 20 84 6c 25 3e  |)."l%:.l%<0 .l%>|
000005d0  32 33 20 f1 8a 30 2c 31  31 29 89 34 30 3a e5 8d  |23 ..0,11).40:..|
000005e0  54 52 42 0d 02 1c 24 f4  22 83 53 74 61 72 74 20  |TRB...$.".Start |
000005f0  61 64 61 70 74 65 72 20  72 65 63 65 69 76 69 6e  |adapter receivin|
00000600  67 20 54 74 65 78 74 0d  02 26 0a 2a 54 54 58 4f  |g Ttext..&.*TTXO|
00000610  4e 0d 02 30 1a f4 22 83  41 6c 6c 6f 63 61 74 65  |N..0..".Allocate|
00000620  20 77 6f 72 6b 20 73 70  61 63 65 0d 02 3a 15 de  | work space..:..|
00000630  20 44 28 35 29 3a de 20  73 70 61 63 65 20 32 30  | D(5):. space 20|
00000640  0d 02 44 21 f4 22 83 44  69 73 70 6c 61 79 20 68  |..D!.".Display h|
00000650  65 61 64 65 72 20 73 6f  20 75 73 65 72 20 63 61  |eader so user ca|
00000660  6e 0d 02 4e 20 f4 22 83  73 65 65 20 73 6f 6d 65  |n..N .".see some|
00000670  74 68 69 6e 67 20 68 61  70 70 65 6e 69 6e 67 21  |thing happening!|
00000680  21 0d 02 58 08 2a 48 4f  4e 0d 02 62 4c f1 8a 30  |!..X.*HON..bL..0|
00000690  2c 31 33 29 22 86 4c 6f  61 64 69 6e 67 20 74 65  |,13)".Loading te|
000006a0  6c 65 74 65 78 74 20 70  61 67 65 20 74 6f 87 26  |letext page to.&|
000006b0  22 3b 7e 6c 6f 61 64 25  27 27 22 86 50 6c 65 61  |";~load%''".Plea|
000006c0  73 65 20 77 61 69 74 20  61 20 6d 6f 6d 65 6e 74  |se wait a moment|
000006d0  2e 2e 2e 22 3b 0d 02 6c  05 e1 0d 02 76 05 3a 0d  |...";..l....v.:.|
000006e0  02 80 05 3a 0d 02 8a 05  3a 0d 02 94 05 3a 0d 02  |...:....:....:..|
000006f0  9e 05 3a 0d 02 a8 18 f4  22 81 2a 2a 2a 86 6c 6f  |..:.....".***.lo|
00000700  61 64 20 70 61 67 65 81  2a 2a 2a 0d 02 b2 2a dd  |ad page.***...*.|
00000710  f2 6c 6f 61 64 5f 70 61  67 65 28 70 61 67 65 5f  |.load_page(page_|
00000720  61 64 64 72 65 73 73 25  2c 63 68 61 6e 25 2c 70  |address%,chan%,p|
00000730  61 67 65 25 29 0d 02 bc  10 ea 61 25 2c 70 6e 24  |age%).....a%,pn$|
00000740  2c 72 6f 77 25 0d 02 c6  1c f4 22 83 53 65 74 20  |,row%.....".Set |
00000750  72 65 71 75 69 72 65 64  20 63 68 61 6e 6e 65 6c  |required channel|
00000760  3a 0d 02 d0 1a f2 6f 73  63 6c 69 28 22 43 48 20  |:.....oscli("CH |
00000770  22 2b c3 28 63 68 61 6e  25 29 29 0d 02 da 19 f4  |"+.(chan%)).....|
00000780  22 83 53 65 74 20 72 65  71 75 69 72 65 64 20 70  |".Set required p|
00000790  61 67 65 3a 0d 02 e4 1c  f2 6f 73 63 6c 69 28 22  |age:.....oscli("|
000007a0  50 41 47 45 20 22 2b c3  28 70 61 67 65 25 29 29  |PAGE "+.(page%))|
000007b0  0d 02 ee 1d f4 22 83 4c  6f 61 64 20 70 61 67 65  |.....".Load page|
000007c0  20 75 73 69 6e 67 20 2a  44 41 54 41 3a 0d 02 f8  | using *DATA:...|
000007d0  25 f2 6f 73 63 6c 69 28  22 44 41 54 41 20 22 2b  |%.oscli("DATA "+|
000007e0  c3 7e 28 70 61 67 65 5f  61 64 64 72 65 73 73 25  |.~(page_address%|
000007f0  29 29 0d 03 02 05 e1 0d  03 0c 1d f4 22 81 2a 2a  |))..........".**|
00000800  2a 86 46 49 4e 44 20 50  41 47 45 20 4c 49 4e 4b  |*.FIND PAGE LINK|
00000810  81 2a 2a 2a 0d 03 16 32  dd a4 66 69 6e 64 5f 70  |.***...2..find_p|
00000820  61 67 65 5f 6c 69 6e 6b  28 70 61 67 65 5f 61 64  |age_link(page_ad|
00000830  64 72 65 73 73 25 2c 6c  69 6e 6b 5f 6e 6f 25 2c  |dress%,link_no%,|
00000840  70 61 67 65 25 29 0d 03  20 15 f4 22 85 4e 65 65  |page%).. ..".Nee|
00000850  64 73 86 44 49 4d 20 44  28 35 29 0d 03 2a 17 61  |ds.DIM D(5)..*.a|
00000860  25 3d 70 61 67 65 5f 61  64 64 72 65 73 73 25 2d  |%=page_address%-|
00000870  34 32 0d 03 34 13 72 6f  77 25 3d 6c 69 6e 6b 5f  |42..4.row%=link_|
00000880  6e 6f 25 81 36 0d 03 3e  05 f5 0d 03 48 0c 61 25  |no%.6..>....H.a%|
00000890  3d 61 25 2b 34 32 0d 03  52 39 fd 28 61 25 3f 31  |=a%+42..R9.(a%?1|
000008a0  3d 32 37 20 80 20 a4 64  65 68 61 6d 28 61 25 3f  |=27 . .deham(a%?|
000008b0  32 29 3d 72 6f 77 25 29  20 84 61 25 3e 70 61 67  |2)=row%) .a%>pag|
000008c0  65 5f 61 64 64 72 65 73  73 25 2b 26 38 30 30 0d  |e_address%+&800.|
000008d0  03 5c 1b f4 22 83 52 4f  57 20 4e 4f 54 20 54 52  |.\..".ROW NOT TR|
000008e0  41 4e 53 4d 49 54 54 45  44 3a 0d 03 66 2a e7 61  |ANSMITTED:..f*.a|
000008f0  25 3e 70 61 67 65 5f 61  64 64 72 65 73 73 25 2b  |%>page_address%+|
00000900  26 38 30 30 20 3d 22 86  6e 6f 74 20 70 72 65 73  |&800 =".not pres|
00000910  65 6e 74 22 0d 03 70 0d  e3 76 61 72 25 3d 30 b8  |ent"..p..var%=0.|
00000920  35 0d 03 7a 23 44 28 76  61 72 25 29 3d 28 28 6c  |5..z#D(var%)=((l|
00000930  69 6e 6b 5f 6e 6f 25 83  36 29 2a 36 29 2b 33 2b  |ink_no%.6)*6)+3+|
00000940  76 61 72 25 0d 03 84 1e  44 28 76 61 72 25 29 3d  |var%....D(var%)=|
00000950  a4 64 65 68 61 6d 28 61  25 3f 44 28 76 61 72 25  |.deham(a%?D(var%|
00000960  29 29 0d 03 8e 05 ed 0d  03 98 2f 6d 61 67 25 3d  |))......../mag%=|
00000970  28 28 28 44 28 35 29 20  80 31 32 29 81 32 29 84  |(((D(5) .12).2).|
00000980  28 44 28 33 29 20 81 38  29 29 82 28 70 61 67 65  |(D(3) .8)).(page|
00000990  25 81 31 30 30 29 0d 03  a2 10 44 28 35 29 3d 44  |%.100)....D(5)=D|
000009a0  28 35 29 20 80 33 0d 03  ac 10 44 28 33 29 3d 44  |(5) .3....D(3)=D|
000009b0  28 33 29 20 80 37 0d 03  b6 24 70 61 67 65 24 3d  |(3) .7...$page$=|
000009c0  c3 7e 28 6d 61 67 25 29  2b c3 7e 28 44 28 31 29  |.~(mag%)+.~(D(1)|
000009d0  29 2b c3 7e 28 44 28 30  29 29 0d 03 c0 2c 73 75  |)+.~(D(0))...,su|
000009e0  62 24 3d c3 7e 28 44 28  35 29 29 2b c3 7e 28 44  |b$=.~(D(5))+.~(D|
000009f0  28 34 29 29 2b c3 7e 28  44 28 33 29 29 2b c3 7e  |(4))+.~(D(3))+.~|
00000a00  28 44 28 32 29 29 0d 03  ca 24 f4 22 83 4c 69 6e  |(D(2))...$.".Lin|
00000a10  6b 20 6e 6f 74 20 73 70  65 63 69 66 69 65 64 20  |k not specified |
00000a20  28 69 6e 64 69 63 61 74  65 64 0d 03 d4 1a f4 22  |(indicated....."|
00000a30  83 62 79 20 6c 69 6e 6b  20 73 65 74 20 74 6f 20  |.by link set to |
00000a40  26 46 46 29 0d 03 de 21  e7 c2 70 61 67 65 24 2c  |&FF)...!..page$,|
00000a50  32 29 3d 22 46 46 22 20  3d 22 86 6e 6f 74 20 67  |2)="FF" =".not g|
00000a60  69 76 65 6e 22 0d 03 e8  21 f4 22 82 55 73 65 20  |iven"...!.".Use |
00000a70  6a 75 73 74 87 70 61 67  65 24 82 69 66 20 73 75  |just.page$.if su|
00000a80  62 2d 70 61 67 65 0d 03  f2 12 f4 22 82 6e 6f 74  |b-page.....".not|
00000a90  20 6e 65 65 64 65 64 3a  0d 03 fc 12 70 6e 24 3d  | needed:....pn$=|
00000aa0  70 61 67 65 24 2b 73 75  62 24 0d 04 06 08 3d 70  |page$+sub$....=p|
00000ab0  6e 24 0d 04 10 05 3a 0d  04 1a 05 3a 0d 04 24 1b  |n$....:....:..$.|
00000ac0  f4 22 81 2a 2a 2a 86 44  45 2d 48 41 4d 4d 20 42  |.".***.DE-HAMM B|
00000ad0  59 54 45 81 2a 2a 2a 0d  04 2e 12 dd a4 64 65 68  |YTE.***......deh|
00000ae0  61 6d 28 62 79 74 65 25  29 0d 04 38 19 f4 22 85  |am(byte%)..8..".|
00000af0  4e 65 65 64 73 86 44 49  4d 20 73 70 61 63 65 20  |Needs.DIM space |
00000b00  32 30 0d 04 42 0e 73 70  61 63 65 3f 30 3d 32 35  |20..B.space?0=25|
00000b10  0d 04 4c 11 73 70 61 63  65 3f 31 3d 62 79 74 65  |..L.space?1=byte|
00000b20  25 0d 04 56 26 41 25 3d  26 37 41 3a 58 25 3d 73  |%..V&A%=&7A:X%=s|
00000b30  70 61 63 65 20 83 32 35  36 3a 59 25 3d 73 70 61  |pace .256:Y%=spa|
00000b40  63 65 20 81 32 35 36 0d  04 60 0a d6 26 46 46 46  |ce .256..`..&FFF|
00000b50  31 0d 04 6a 11 3d 28 73  70 61 63 65 3f 32 29 80  |1..j.=(space?2).|
00000b60  26 46 0d 04 74 05 3a 0d  04 7e 05 3a 0d 04 88 1f  |&F..t.:..~.:....|
00000b70  f4 22 81 2a 2a 2a 86 4f  53 43 4c 49 20 53 49 4d  |.".***.OSCLI SIM|
00000b80  55 4c 41 54 49 4f 4e 81  2a 2a 2a 0d 04 92 12 dd  |ULATION.***.....|
00000b90  f2 6f 73 63 6c 69 28 6c  69 6e 65 24 29 0d 04 9c  |.oscli(line$)...|
00000ba0  19 f4 22 85 4e 65 65 64  73 86 44 49 4d 20 73 70  |..".Needs.DIM sp|
00000bb0  61 63 65 20 32 30 0d 04  a6 2c 24 73 70 61 63 65  |ace 20...,$space|
00000bc0  3d 6c 69 6e 65 24 3a 58  25 3d 73 70 61 63 65 20  |=line$:X%=space |
00000bd0  83 32 35 36 3a 59 25 3d  73 70 61 63 65 20 81 32  |.256:Y%=space .2|
00000be0  35 36 0d 04 b0 0a d6 26  46 46 46 37 0d 04 ba 05  |56.....&FFF7....|
00000bf0  e1 0d 04 c4 05 3a 0d 04  ce 05 3a 0d 04 d8 16 f4  |.....:....:.....|
00000c00  22 81 2a 2a 2a 82 48 45  41 44 49 4e 47 81 2a 2a  |".***.HEADING.**|
00000c10  2a 0d 04 e2 0d dd f2 68  65 61 64 69 6e 67 0d 04  |*......heading..|
00000c20  ec 05 db 0d 04 f6 41 f1  27 89 32 3b bd 31 34 31  |......A.'.2;.141|
00000c30  3b bd 31 33 32 3b bd 31  35 37 3b bd 31 33 31 3b  |;.132;.157;.131;|
00000c40  22 41 54 53 20 55 74 69  6c 69 74 69 65 73 3a 20  |"ATS Utilities: |
00000c50  4c 69 6e 6b 20 44 65 63  6f 64 65 72 20 20 22 3b  |Link Decoder  ";|
00000c60  bd 31 35 36 0d 05 00 40  f1 89 32 3b bd 31 34 31  |.156...@..2;.141|
00000c70  3b bd 31 33 32 3b bd 31  35 37 3b bd 31 33 31 3b  |;.132;.157;.131;|
00000c80  22 41 54 53 20 55 74 69  6c 69 74 69 65 73 3a 20  |"ATS Utilities: |
00000c90  4c 69 6e 6b 20 44 65 63  6f 64 65 72 20 20 22 3b  |Link Decoder  ";|
00000ca0  bd 31 35 36 0d 05 0a 05  e1 0d ff                 |.156.......|
00000cab