�"�Utils
:
�"�(C) Jeremy Brayshaw
(�"�February 1989
2�"�V.4 12 May 89
<�"�For use with ATS & ATS+
F:
P�7:H%=�:�=&5000
Z:
d:
nexpiry=47700:� 23 June 89
x3monthcredit$="June  89":� exactly 8 characters!
�:
�:
�6A%=&EA:X%=0:Y%=-1:�(�(&FFF4)�&FFFF)�&100:�tubeon:�
�� � �end(�)
��23,1,0;0;0;0;
�
*TTXON
�	*BBC2
�T%=�
�*HON
��move_oshwm
�:
�� space 20,name 12,line 15
�$� col(20):�A%=0�20:col(A%)=134:�

unit$=�which_unit

�

�select

"5�heading(2,"�File:�"+name$+�10+�13+" �"+comment$)

,,�download(mag%,pag%,fn$,load%,exec%,�,�)

6�7

@��

J�end(�)

T�

^:

h��move_oshwm

rS%=&5000

| A%=&B4:X%=S%�256:Y%=0:�&FFF4

��

�:

�B��download(magazine%,page%,filename$,load%,exec%,save%,reset%)

�$�oscli("MAGAZINE "+�(magazine%))

�space?0=24

�'space?1=name �256:space?2=name �256

�$name=filename$

� �f%=name � name+�(filename$)

�"�?f%>96 �?f%<123 ?f%=(?f%)�&DF

��

�space!3=load%

�space!7=exec%

�space?11=magazine%
space?12=page%
$�save%=� space?13=1 � space?13=0
%�reset%=� space?14=0 � space?14=1
&&A%=&7A:X%=space �256:Y%=space �256
0
�&FFF1
:�
D:
N��oscli(text$)
X)$line=text$:X%=line �256:Y%=line �256
b
�&FFF7
l�
v:
���heading(mark%,fname$)
��:�mark%=1 �t^B
�`�unit$="GIS" �'�151+�39,",")+�132+�157+�131+"BBC Telesoftware Utilities"'�151+�39,","):�dPB
�.�'"��������������������������������������"
�-�"��������������BBC Telesoftware�`����"
�-�"����������������    Utilities    �����"
�5�"��������������(C)BBCtv ";monthcredit$;"�����"
�-�"�����������������������||�������������"
��1,17)fname$
��
�:
���return_oshwm
� A%=&B4:X%=� �256:Y%=0:�&FFF4
�
:

ݤdate
 
�Z%,M%,D%
*�:��>T%+150
44A%=&7A:X%=line �256:Y%=line �256:?line=15:�&FFF1
>BB1$=��~(line?8),1)
H-BB2$=�~(line?9):� �(BB2$)=1 BB2$="0"+BB2$
R.BB3$=�~(line?10):� �(BB3$)=1 BB3$="0"+BB3$
\JD=�(BB1$+BB2$+BB3$)
fK�JD<47560 ="   "+�129+�157+�135+"Current date not available      "+�156
pY1=(100*(JD-15078.2))�36525
z+M1=�((JD-14956.1-�(365.25*Y1))/30.6001)
�<D%=JD-14956-�(365.25*Y1)-�(30.6*M1):K=�(0.7+(1/(17-M1)))
�M%=M1-1-12*K
�Z%=Y1+K
�1W%=(JD+3)�7:��tlC:�day=0�W%:�D$:�:D$=D$+"day"
�)� Sun,Mon,Tues,Wednes,Thurs,Fri,Satur
���d@C:�day=1�M%:�month$:�
�[� January,February,March,April,May,June,July,August,September,October,November,December
�T�D%=1�D%=21�D%=31 th$="st" ��D%=2�D%=22 th$="nd" ��D%=3�D%=23 th$="rd" �th$="th"
�/dt$=D$+" "+�(D%)+th$+" "+month$+" 19"+�(Z%)
�spaces%=30-�(dt$)
�X="   "+�129+�157+�135+�spaces%/2," ")+dt$+�spaces%-(spaces%/2)+2+spaces%�2," ")+�156
�:
�ݤwhich_unit
$A%=&7A:X%=line �256:Y%=line �256
line?0=17:line?3=&FF:�&FFF1
�line?3=&FF ="ATS" �="GIS"
$:
.��tubeon
8��heading(1,�127+�151+�39,",")+�129+�157+�135+"The 'Tube' is active. Please disable"+�10+�13+�129+�157+�135+"then CHAIN Utils again."+�10+�13+�151+�39,","))
B�23,1,0;0;0;0;:�
L�
V:
`��select
j�heading(1,"")
t�0,6);
~
� �TlF
�
� qty%
�
�date
�=�JD>expiry �"��OUT OF DATE -�Download new UTILS file";:��
�
� �TvF
��no%=1�qty%
�3�fn$,name$,comment$,type$,load%,exec%,mag%,pag%
�9�pag%=&FF �"    ";:��"�";�"  "+�(no%),2);�(col(no%));
�J�name$+�10," "),10);"�";�comment$+�19," "),19);" ";�type$+�5," "),5);
��pag%=&FF �tzD
��
�1�2,23)"���Enter number of file required:"no%
�,�no%<1 � no%>qty% �7:�1,23)�(39);:�dlD

� �TvF


�a%=1�no%
3�fn$,name$,comment$,type$,load%,exec%,mag%,pag%
�pag%=&FF �TTE
(�
2col(no%)=129
<�
F:
P�"�Error trap
Z��end(err%)
d��t`E
nc�err%=254:�heading(1,"�Unrecognised command found"+�10+�13+" �Is the adaptor turned on?"):�t`E
x*TTXOFF
��26
��heading(1,"")
��err%=-1 �dpE
��err%=17 �d\E
�$�0,19)�(40);�151;�39,",");�(40)
�$�0,21)"�Error:";�129;�157;�135;
�st%=((?&FE)*256)+(?&FD)
�Gerrep%=st%:�:errep%=errep%+1:�?(errep%):� ?errep%=0 � errep%=st%+30
�#�"  ";�156'�151;�39,",");�(40);
��return_oshwm
��=H%
��23,1,1;0;0;0;:�0,7);
�*FX229,0
*FX4
�
:
"�"�No. of ACTUAL files:
,� 11
6�"�RESTORE comes to here!
@6�"","�Satellite","�Service Software:","",0,0,7,&FF
J<�"S_Guide","S_Guide","Brief User Guide","Text",0,0,7,&DA
T<�"Smanual","Satmanual","System Manual","Ver.2",0,0,7,&DA
^J�"SATload","SatLoader","Satellite File D'Ld","BASIC",&1900,&801F,7,&DA
hK�"Display","SatDisplay","Sat.Display Creator","BASIC",&1900,&8023,7,&DA
rF�"SATseq","SatSeq'nce","Image sequencer","V2.18",&1900,&801F,7,&DA
�R�"ArcOver","ArcOverlay","Archimedes display","BASIC",&FFFFFB41,&877F102A,7,&DA
��"","","","",0,0,7,&FF
�/�"","�ATS ROM &","�utilities:","",0,0,7,&FF
�H�"Acn/ATS","Acorn ATS","ATS ROM for Acorn","Ver.3",&8000,&8000,7,&DB
�?�"A/Info","A/Info","ATS ROM details-Acn","Text",&0,&0,7,&DB
�H�"GIS/ATS","GIS ATS","ATS ROM for GIS ATR","Ver.2",&8000,&8000,7,&DB
�C�"G/Info","G/Info","ATS ROM details-GIS ATR","Text",&0,&0,7,&DB
�B�"TTXPrnt","TTXPrint","ATS Page Printer","M/C",&A00,&A00,7,&DA
�

00000000  0d 00 0a 0c f4 22 83 55  74 69 6c 73 0d 00 14 05  |.....".Utils....|
00000010  3a 0d 00 1e 1a f4 22 81  28 43 29 20 4a 65 72 65  |:.....".(C) Jere|
00000020  6d 79 20 42 72 61 79 73  68 61 77 0d 00 28 14 f4  |my Brayshaw..(..|
00000030  22 86 46 65 62 72 75 61  72 79 20 31 39 38 39 0d  |".February 1989.|
00000040  00 32 14 f4 22 82 56 2e  34 20 31 32 20 4d 61 79  |.2..".V.4 12 May|
00000050  20 38 39 0d 00 3c 1e f4  22 85 46 6f 72 20 75 73  | 89..<..".For us|
00000060  65 20 77 69 74 68 20 41  54 53 20 26 20 41 54 53  |e with ATS & ATS|
00000070  2b 0d 00 46 05 3a 0d 00  50 13 eb 37 3a 48 25 3d  |+..F.:..P..7:H%=|
00000080  93 3a d3 3d 26 35 30 30  30 0d 00 5a 05 3a 0d 00  |.:.=&5000..Z.:..|
00000090  64 05 3a 0d 00 6e 1d 65  78 70 69 72 79 3d 34 37  |d.:..n.expiry=47|
000000a0  37 30 30 3a f4 20 32 33  20 4a 75 6e 65 20 38 39  |700:. 23 June 89|
000000b0  0d 00 78 33 6d 6f 6e 74  68 63 72 65 64 69 74 24  |..x3monthcredit$|
000000c0  3d 22 4a 75 6e 65 20 20  38 39 22 3a f4 20 65 78  |="June  89":. ex|
000000d0  61 63 74 6c 79 20 38 20  63 68 61 72 61 63 74 65  |actly 8 characte|
000000e0  72 73 21 0d 00 82 05 3a  0d 00 8c 05 3a 0d 00 96  |rs!....:....:...|
000000f0  36 41 25 3d 26 45 41 3a  58 25 3d 30 3a 59 25 3d  |6A%=&EA:X%=0:Y%=|
00000100  2d 31 3a e7 28 ba 28 26  46 46 46 34 29 80 26 46  |-1:.(.(&FFF4).&F|
00000110  46 46 46 29 81 26 31 30  30 3a f2 74 75 62 65 6f  |FFF).&100:.tubeo|
00000120  6e 3a e0 0d 00 a0 0f ee  20 85 20 f2 65 6e 64 28  |n:...... . .end(|
00000130  9f 29 0d 00 aa 12 ef 32  33 2c 31 2c 30 3b 30 3b  |.).....23,1,0;0;|
00000140  30 3b 30 3b 0d 00 b4 0a  2a 54 54 58 4f 4e 0d 00  |0;0;....*TTXON..|
00000150  be 09 2a 42 42 43 32 0d  00 c8 08 54 25 3d 91 0d  |..*BBC2....T%=..|
00000160  00 d2 08 2a 48 4f 4e 0d  00 dc 0f f2 6d 6f 76 65  |...*HON.....move|
00000170  5f 6f 73 68 77 6d 0d 00  e6 05 3a 0d 00 f0 1e de  |_oshwm....:.....|
00000180  20 73 70 61 63 65 20 32  30 2c 6e 61 6d 65 20 31  | space 20,name 1|
00000190  32 2c 6c 69 6e 65 20 31  35 0d 00 fa 24 de 20 63  |2,line 15...$. c|
000001a0  6f 6c 28 32 30 29 3a e3  41 25 3d 30 b8 32 30 3a  |ol(20):.A%=0.20:|
000001b0  63 6f 6c 28 41 25 29 3d  31 33 34 3a ed 0d 01 04  |col(A%)=134:....|
000001c0  15 75 6e 69 74 24 3d a4  77 68 69 63 68 5f 75 6e  |.unit$=.which_un|
000001d0  69 74 0d 01 0e 05 f5 0d  01 18 0b f2 73 65 6c 65  |it..........sele|
000001e0  63 74 0d 01 22 35 f2 68  65 61 64 69 6e 67 28 32  |ct.."5.heading(2|
000001f0  2c 22 87 46 69 6c 65 3a  86 22 2b 6e 61 6d 65 24  |,".File:."+name$|
00000200  2b bd 31 30 2b bd 31 33  2b 22 20 83 22 2b 63 6f  |+.10+.13+" ."+co|
00000210  6d 6d 65 6e 74 24 29 0d  01 2c 2c f2 64 6f 77 6e  |mment$)..,,.down|
00000220  6c 6f 61 64 28 6d 61 67  25 2c 70 61 67 25 2c 66  |load(mag%,pag%,f|
00000230  6e 24 2c 6c 6f 61 64 25  2c 65 78 65 63 25 2c b9  |n$,load%,exec%,.|
00000240  2c b9 29 0d 01 36 06 eb  37 0d 01 40 06 fd a3 0d  |,.)..6..7..@....|
00000250  01 4a 0b f2 65 6e 64 28  b9 29 0d 01 54 05 e0 0d  |.J..end(.)..T...|
00000260  01 5e 05 3a 0d 01 68 10  dd f2 6d 6f 76 65 5f 6f  |.^.:..h...move_o|
00000270  73 68 77 6d 0d 01 72 0c  53 25 3d 26 35 30 30 30  |shwm..r.S%=&5000|
00000280  0d 01 7c 20 41 25 3d 26  42 34 3a 58 25 3d 53 25  |..| A%=&B4:X%=S%|
00000290  81 32 35 36 3a 59 25 3d  30 3a d6 26 46 46 46 34  |.256:Y%=0:.&FFF4|
000002a0  0d 01 86 05 e1 0d 01 90  05 3a 0d 01 9a 42 dd f2  |.........:...B..|
000002b0  64 6f 77 6e 6c 6f 61 64  28 6d 61 67 61 7a 69 6e  |download(magazin|
000002c0  65 25 2c 70 61 67 65 25  2c 66 69 6c 65 6e 61 6d  |e%,page%,filenam|
000002d0  65 24 2c 6c 6f 61 64 25  2c 65 78 65 63 25 2c 73  |e$,load%,exec%,s|
000002e0  61 76 65 25 2c 72 65 73  65 74 25 29 0d 01 a4 24  |ave%,reset%)...$|
000002f0  f2 6f 73 63 6c 69 28 22  4d 41 47 41 5a 49 4e 45  |.oscli("MAGAZINE|
00000300  20 22 2b c3 28 6d 61 67  61 7a 69 6e 65 25 29 29  | "+.(magazine%))|
00000310  0d 01 ae 0e 73 70 61 63  65 3f 30 3d 32 34 0d 01  |....space?0=24..|
00000320  b8 27 73 70 61 63 65 3f  31 3d 6e 61 6d 65 20 83  |.'space?1=name .|
00000330  32 35 36 3a 73 70 61 63  65 3f 32 3d 6e 61 6d 65  |256:space?2=name|
00000340  20 81 32 35 36 0d 01 c2  13 24 6e 61 6d 65 3d 66  | .256....$name=f|
00000350  69 6c 65 6e 61 6d 65 24  0d 01 cc 20 e3 66 25 3d  |ilename$... .f%=|
00000360  6e 61 6d 65 20 b8 20 6e  61 6d 65 2b a9 28 66 69  |name . name+.(fi|
00000370  6c 65 6e 61 6d 65 24 29  0d 01 d6 22 e7 3f 66 25  |lename$)...".?f%|
00000380  3e 39 36 20 80 3f 66 25  3c 31 32 33 20 3f 66 25  |>96 .?f%<123 ?f%|
00000390  3d 28 3f 66 25 29 80 26  44 46 0d 01 e0 05 ed 0d  |=(?f%).&DF......|
000003a0  01 ea 11 73 70 61 63 65  21 33 3d 6c 6f 61 64 25  |...space!3=load%|
000003b0  0d 01 f4 11 73 70 61 63  65 21 37 3d 65 78 65 63  |....space!7=exec|
000003c0  25 0d 01 fe 16 73 70 61  63 65 3f 31 31 3d 6d 61  |%....space?11=ma|
000003d0  67 61 7a 69 6e 65 25 0d  02 08 12 73 70 61 63 65  |gazine%....space|
000003e0  3f 31 32 3d 70 61 67 65  25 0d 02 12 24 e7 73 61  |?12=page%...$.sa|
000003f0  76 65 25 3d b9 20 73 70  61 63 65 3f 31 33 3d 31  |ve%=. space?13=1|
00000400  20 8b 20 73 70 61 63 65  3f 31 33 3d 30 0d 02 1c  | . space?13=0...|
00000410  25 e7 72 65 73 65 74 25  3d b9 20 73 70 61 63 65  |%.reset%=. space|
00000420  3f 31 34 3d 30 20 8b 20  73 70 61 63 65 3f 31 34  |?14=0 . space?14|
00000430  3d 31 0d 02 26 26 41 25  3d 26 37 41 3a 58 25 3d  |=1..&&A%=&7A:X%=|
00000440  73 70 61 63 65 20 83 32  35 36 3a 59 25 3d 73 70  |space .256:Y%=sp|
00000450  61 63 65 20 81 32 35 36  0d 02 30 0a d6 26 46 46  |ace .256..0..&FF|
00000460  46 31 0d 02 3a 05 e1 0d  02 44 05 3a 0d 02 4e 12  |F1..:....D.:..N.|
00000470  dd f2 6f 73 63 6c 69 28  74 65 78 74 24 29 0d 02  |..oscli(text$)..|
00000480  58 29 24 6c 69 6e 65 3d  74 65 78 74 24 3a 58 25  |X)$line=text$:X%|
00000490  3d 6c 69 6e 65 20 83 32  35 36 3a 59 25 3d 6c 69  |=line .256:Y%=li|
000004a0  6e 65 20 81 32 35 36 0d  02 62 0a d6 26 46 46 46  |ne .256..b..&FFF|
000004b0  37 0d 02 6c 05 e1 0d 02  76 05 3a 0d 02 80 1b dd  |7..l....v.:.....|
000004c0  f2 68 65 61 64 69 6e 67  28 6d 61 72 6b 25 2c 66  |.heading(mark%,f|
000004d0  6e 61 6d 65 24 29 0d 02  8a 14 db 3a e7 6d 61 72  |name$).....:.mar|
000004e0  6b 25 3d 31 20 e5 8d 74  5e 42 0d 02 94 60 e7 75  |k%=1 ..t^B...`.u|
000004f0  6e 69 74 24 3d 22 47 49  53 22 20 f1 27 bd 31 35  |nit$="GIS" .'.15|
00000500  31 2b c4 33 39 2c 22 2c  22 29 2b bd 31 33 32 2b  |1+.39,",")+.132+|
00000510  bd 31 35 37 2b bd 31 33  31 2b 22 42 42 43 20 54  |.157+.131+"BBC T|
00000520  65 6c 65 73 6f 66 74 77  61 72 65 20 55 74 69 6c  |elesoftware Util|
00000530  69 74 69 65 73 22 27 bd  31 35 31 2b c4 33 39 2c  |ities"'.151+.39,|
00000540  22 2c 22 29 3a e5 8d 64  50 42 0d 02 9e 2e f1 27  |","):..dPB.....'|
00000550  22 9a 91 a0 a0 fc fc fc  fc fc fc fc fc fc fc fc  |"...............|
00000560  fc fc fc fc fc fc fc fc  fc fc fc fc fc fc fc fc  |................|
00000570  fc fc fc fc fc fc fc 22  0d 02 a8 2d f1 22 9a 93  |......."...-."..|
00000580  a8 af ef ff af af a1 91  ff ff 9e 81 9d 87 42 42  |..............BB|
00000590  43 20 54 65 6c 65 73 6f  66 74 77 61 72 65 91 60  |C Telesoftware.`|
000005a0  9c ff ff ff 22 0d 02 b2  2d f1 22 9a 93 a0 a0 fe  |...."...-.".....|
000005b0  a7 91 f8 fc ff ff ff 9e  81 9d 87 20 20 20 20 55  |...........    U|
000005c0  74 69 6c 69 74 69 65 73  20 20 20 20 91 9c ff ff  |tilities    ....|
000005d0  ff 22 0d 02 bc 35 f1 22  9a 93 a0 fa b7 91 e8 ff  |."...5."........|
000005e0  ff ff ff ff 9e 81 9d 83  28 43 29 42 42 43 74 76  |........(C)BBCtv|
000005f0  20 22 3b 6d 6f 6e 74 68  63 72 65 64 69 74 24 3b  | ";monthcredit$;|
00000600  22 91 9c ff ff ff 22 0d  02 c6 2d f1 22 9a 91 a0  |"....."...-."...|
00000610  a0 fc fc ff ff ff ff ff  ff ff ff ff fc fc fc fc  |................|
00000620  fc fc fc fc 7c 7c fc fc  fc fc fc fc fc fc fc fc  |....||..........|
00000630  ff ff ff 22 0d 02 d0 11  f1 8a 31 2c 31 37 29 66  |..."......1,17)f|
00000640  6e 61 6d 65 24 0d 02 da  05 e1 0d 02 e4 05 3a 0d  |name$.........:.|
00000650  02 ee 12 dd f2 72 65 74  75 72 6e 5f 6f 73 68 77  |.....return_oshw|
00000660  6d 0d 02 f8 20 41 25 3d  26 42 34 3a 58 25 3d 90  |m... A%=&B4:X%=.|
00000670  20 81 32 35 36 3a 59 25  3d 30 3a d6 26 46 46 46  | .256:Y%=0:.&FFF|
00000680  34 0d 03 02 05 e1 0d 03  0c 05 3a 0d 03 16 0a dd  |4.........:.....|
00000690  a4 64 61 74 65 0d 03 20  0d ea 5a 25 2c 4d 25 2c  |.date.. ..Z%,M%,|
000006a0  44 25 0d 03 2a 0f f5 3a  fd 91 3e 54 25 2b 31 35  |D%..*..:..>T%+15|
000006b0  30 0d 03 34 34 41 25 3d  26 37 41 3a 58 25 3d 6c  |0..44A%=&7A:X%=l|
000006c0  69 6e 65 20 83 32 35 36  3a 59 25 3d 6c 69 6e 65  |ine .256:Y%=line|
000006d0  20 81 32 35 36 3a 3f 6c  69 6e 65 3d 31 35 3a d6  | .256:?line=15:.|
000006e0  26 46 46 46 31 0d 03 3e  17 42 42 31 24 3d c2 c3  |&FFF1..>.BB1$=..|
000006f0  7e 28 6c 69 6e 65 3f 38  29 2c 31 29 0d 03 48 2d  |~(line?8),1)..H-|
00000700  42 42 32 24 3d c3 7e 28  6c 69 6e 65 3f 39 29 3a  |BB2$=.~(line?9):|
00000710  e7 20 a9 28 42 42 32 24  29 3d 31 20 42 42 32 24  |. .(BB2$)=1 BB2$|
00000720  3d 22 30 22 2b 42 42 32  24 0d 03 52 2e 42 42 33  |="0"+BB2$..R.BB3|
00000730  24 3d c3 7e 28 6c 69 6e  65 3f 31 30 29 3a e7 20  |$=.~(line?10):. |
00000740  a9 28 42 42 33 24 29 3d  31 20 42 42 33 24 3d 22  |.(BB3$)=1 BB3$="|
00000750  30 22 2b 42 42 33 24 0d  03 5c 18 4a 44 3d bb 28  |0"+BB3$..\.JD=.(|
00000760  42 42 31 24 2b 42 42 32  24 2b 42 42 33 24 29 0d  |BB1$+BB2$+BB3$).|
00000770  03 66 4b e7 4a 44 3c 34  37 35 36 30 20 3d 22 20  |.fK.JD<47560 =" |
00000780  20 20 22 2b bd 31 32 39  2b bd 31 35 37 2b bd 31  |  "+.129+.157+.1|
00000790  33 35 2b 22 43 75 72 72  65 6e 74 20 64 61 74 65  |35+"Current date|
000007a0  20 6e 6f 74 20 61 76 61  69 6c 61 62 6c 65 20 20  | not available  |
000007b0  20 20 20 20 22 2b bd 31  35 36 0d 03 70 1f 59 31  |    "+.156..p.Y1|
000007c0  3d 28 31 30 30 2a 28 4a  44 2d 31 35 30 37 38 2e  |=(100*(JD-15078.|
000007d0  32 29 29 81 33 36 35 32  35 0d 03 7a 2b 4d 31 3d  |2)).36525..z+M1=|
000007e0  a8 28 28 4a 44 2d 31 34  39 35 36 2e 31 2d a8 28  |.((JD-14956.1-.(|
000007f0  33 36 35 2e 32 35 2a 59  31 29 29 2f 33 30 2e 36  |365.25*Y1))/30.6|
00000800  30 30 31 29 0d 03 84 3c  44 25 3d 4a 44 2d 31 34  |001)...<D%=JD-14|
00000810  39 35 36 2d a8 28 33 36  35 2e 32 35 2a 59 31 29  |956-.(365.25*Y1)|
00000820  2d a8 28 33 30 2e 36 2a  4d 31 29 3a 4b 3d a8 28  |-.(30.6*M1):K=.(|
00000830  30 2e 37 2b 28 31 2f 28  31 37 2d 4d 31 29 29 29  |0.7+(1/(17-M1)))|
00000840  0d 03 8e 10 4d 25 3d 4d  31 2d 31 2d 31 32 2a 4b  |....M%=M1-1-12*K|
00000850  0d 03 98 0b 5a 25 3d 59  31 2b 4b 0d 03 a2 31 57  |....Z%=Y1+K...1W|
00000860  25 3d 28 4a 44 2b 33 29  83 37 3a f7 8d 74 6c 43  |%=(JD+3).7:..tlC|
00000870  3a e3 64 61 79 3d 30 b8  57 25 3a f3 44 24 3a ed  |:.day=0.W%:.D$:.|
00000880  3a 44 24 3d 44 24 2b 22  64 61 79 22 0d 03 ac 29  |:D$=D$+"day"...)|
00000890  dc 20 53 75 6e 2c 4d 6f  6e 2c 54 75 65 73 2c 57  |. Sun,Mon,Tues,W|
000008a0  65 64 6e 65 73 2c 54 68  75 72 73 2c 46 72 69 2c  |ednes,Thurs,Fri,|
000008b0  53 61 74 75 72 0d 03 b6  1d f7 8d 64 40 43 3a e3  |Satur......d@C:.|
000008c0  64 61 79 3d 31 b8 4d 25  3a f3 6d 6f 6e 74 68 24  |day=1.M%:.month$|
000008d0  3a ed 0d 03 c0 5b dc 20  4a 61 6e 75 61 72 79 2c  |:....[. January,|
000008e0  46 65 62 72 75 61 72 79  2c 4d 61 72 63 68 2c 41  |February,March,A|
000008f0  70 72 69 6c 2c 4d 61 79  2c 4a 75 6e 65 2c 4a 75  |pril,May,June,Ju|
00000900  6c 79 2c 41 75 67 75 73  74 2c 53 65 70 74 65 6d  |ly,August,Septem|
00000910  62 65 72 2c 4f 63 74 6f  62 65 72 2c 4e 6f 76 65  |ber,October,Nove|
00000920  6d 62 65 72 2c 44 65 63  65 6d 62 65 72 0d 03 ca  |mber,December...|
00000930  54 e7 44 25 3d 31 84 44  25 3d 32 31 84 44 25 3d  |T.D%=1.D%=21.D%=|
00000940  33 31 20 74 68 24 3d 22  73 74 22 20 8b e7 44 25  |31 th$="st" ..D%|
00000950  3d 32 84 44 25 3d 32 32  20 74 68 24 3d 22 6e 64  |=2.D%=22 th$="nd|
00000960  22 20 8b e7 44 25 3d 33  84 44 25 3d 32 33 20 74  |" ..D%=3.D%=23 t|
00000970  68 24 3d 22 72 64 22 20  8b 74 68 24 3d 22 74 68  |h$="rd" .th$="th|
00000980  22 0d 03 d4 2f 64 74 24  3d 44 24 2b 22 20 22 2b  |".../dt$=D$+" "+|
00000990  c3 28 44 25 29 2b 74 68  24 2b 22 20 22 2b 6d 6f  |.(D%)+th$+" "+mo|
000009a0  6e 74 68 24 2b 22 20 31  39 22 2b c3 28 5a 25 29  |nth$+" 19"+.(Z%)|
000009b0  0d 03 de 15 73 70 61 63  65 73 25 3d 33 30 2d a9  |....spaces%=30-.|
000009c0  28 64 74 24 29 0d 03 e8  58 3d 22 20 20 20 22 2b  |(dt$)...X="   "+|
000009d0  bd 31 32 39 2b bd 31 35  37 2b bd 31 33 35 2b c4  |.129+.157+.135+.|
000009e0  73 70 61 63 65 73 25 2f  32 2c 22 20 22 29 2b 64  |spaces%/2," ")+d|
000009f0  74 24 2b c4 73 70 61 63  65 73 25 2d 28 73 70 61  |t$+.spaces%-(spa|
00000a00  63 65 73 25 2f 32 29 2b  32 2b 73 70 61 63 65 73  |ces%/2)+2+spaces|
00000a10  25 83 32 2c 22 20 22 29  2b bd 31 35 36 0d 03 f2  |%.2," ")+.156...|
00000a20  05 3a 0d 03 fc 10 dd a4  77 68 69 63 68 5f 75 6e  |.:......which_un|
00000a30  69 74 0d 04 06 24 41 25  3d 26 37 41 3a 58 25 3d  |it...$A%=&7A:X%=|
00000a40  6c 69 6e 65 20 83 32 35  36 3a 59 25 3d 6c 69 6e  |line .256:Y%=lin|
00000a50  65 20 81 32 35 36 0d 04  10 1f 6c 69 6e 65 3f 30  |e .256....line?0|
00000a60  3d 31 37 3a 6c 69 6e 65  3f 33 3d 26 46 46 3a d6  |=17:line?3=&FF:.|
00000a70  26 46 46 46 31 0d 04 1a  1e e7 6c 69 6e 65 3f 33  |&FFF1.....line?3|
00000a80  3d 26 46 46 20 3d 22 41  54 53 22 20 8b 3d 22 47  |=&FF ="ATS" .="G|
00000a90  49 53 22 0d 04 24 05 3a  0d 04 2e 0c dd f2 74 75  |IS"..$.:......tu|
00000aa0  62 65 6f 6e 0d 04 38 9f  f2 68 65 61 64 69 6e 67  |beon..8..heading|
00000ab0  28 31 2c bd 31 32 37 2b  bd 31 35 31 2b c4 33 39  |(1,.127+.151+.39|
00000ac0  2c 22 2c 22 29 2b bd 31  32 39 2b bd 31 35 37 2b  |,",")+.129+.157+|
00000ad0  bd 31 33 35 2b 22 54 68  65 20 27 54 75 62 65 27  |.135+"The 'Tube'|
00000ae0  20 69 73 20 61 63 74 69  76 65 2e 20 50 6c 65 61  | is active. Plea|
00000af0  73 65 20 64 69 73 61 62  6c 65 22 2b bd 31 30 2b  |se disable"+.10+|
00000b00  bd 31 33 2b bd 31 32 39  2b bd 31 35 37 2b bd 31  |.13+.129+.157+.1|
00000b10  33 35 2b 22 74 68 65 6e  20 43 48 41 49 4e 20 55  |35+"then CHAIN U|
00000b20  74 69 6c 73 20 61 67 61  69 6e 2e 22 2b bd 31 30  |tils again."+.10|
00000b30  2b bd 31 33 2b bd 31 35  31 2b c4 33 39 2c 22 2c  |+.13+.151+.39,",|
00000b40  22 29 29 0d 04 42 14 ef  32 33 2c 31 2c 30 3b 30  |"))..B..23,1,0;0|
00000b50  3b 30 3b 30 3b 3a f1 0d  04 4c 05 e1 0d 04 56 05  |;0;0;:...L....V.|
00000b60  3a 0d 04 60 0c dd f2 73  65 6c 65 63 74 0d 04 6a  |:..`...select..j|
00000b70  12 f2 68 65 61 64 69 6e  67 28 31 2c 22 22 29 0d  |..heading(1,"").|
00000b80  04 74 0b f1 8a 30 2c 36  29 3b 0d 04 7e 0a f7 20  |.t...0,6);..~.. |
00000b90  8d 54 6c 46 0d 04 88 0a  f3 20 71 74 79 25 0d 04  |.TlF..... qty%..|
00000ba0  92 0a f1 a4 64 61 74 65  0d 04 9c 3d e7 4a 44 3e  |....date...=.JD>|
00000bb0  65 78 70 69 72 79 20 f1  22 88 81 4f 55 54 20 4f  |expiry ."..OUT O|
00000bc0  46 20 44 41 54 45 20 2d  89 44 6f 77 6e 6c 6f 61  |F DATE -.Downloa|
00000bd0  64 20 6e 65 77 20 55 54  49 4c 53 20 66 69 6c 65  |d new UTILS file|
00000be0  22 3b 3a 8b f1 0d 04 a6  0a f7 20 8d 54 76 46 0d  |";:....... .TvF.|
00000bf0  04 b0 0f e3 6e 6f 25 3d  31 b8 71 74 79 25 0d 04  |....no%=1.qty%..|
00000c00  ba 33 f3 66 6e 24 2c 6e  61 6d 65 24 2c 63 6f 6d  |.3.fn$,name$,com|
00000c10  6d 65 6e 74 24 2c 74 79  70 65 24 2c 6c 6f 61 64  |ment$,type$,load|
00000c20  25 2c 65 78 65 63 25 2c  6d 61 67 25 2c 70 61 67  |%,exec%,mag%,pag|
00000c30  25 0d 04 c4 39 e7 70 61  67 25 3d 26 46 46 20 f1  |%...9.pag%=&FF .|
00000c40  22 20 20 20 20 22 3b 3a  8b f1 22 83 22 3b c2 22  |"    ";:..".";."|
00000c50  20 20 22 2b c3 28 6e 6f  25 29 2c 32 29 3b bd 28  |  "+.(no%),2);.(|
00000c60  63 6f 6c 28 6e 6f 25 29  29 3b 0d 04 ce 4a f1 c0  |col(no%));...J..|
00000c70  6e 61 6d 65 24 2b c4 31  30 2c 22 20 22 29 2c 31  |name$+.10," "),1|
00000c80  30 29 3b 22 87 22 3b c0  63 6f 6d 6d 65 6e 74 24  |0);".";.comment$|
00000c90  2b c4 31 39 2c 22 20 22  29 2c 31 39 29 3b 22 20  |+.19," "),19);" |
00000ca0  22 3b c0 74 79 70 65 24  2b c4 35 2c 22 20 22 29  |";.type$+.5," ")|
00000cb0  2c 35 29 3b 0d 04 d8 13  e7 70 61 67 25 3d 26 46  |,5);.....pag%=&F|
00000cc0  46 20 e5 8d 74 7a 44 0d  04 e2 05 ed 0d 04 ec 31  |F ..tzD........1|
00000cd0  e8 8a 32 2c 32 33 29 22  81 9d 87 45 6e 74 65 72  |..2,23)"...Enter|
00000ce0  20 6e 75 6d 62 65 72 20  6f 66 20 66 69 6c 65 20  | number of file |
00000cf0  72 65 71 75 69 72 65 64  3a 22 6e 6f 25 0d 04 f6  |required:"no%...|
00000d00  2c e7 6e 6f 25 3c 31 20  84 20 6e 6f 25 3e 71 74  |,.no%<1 . no%>qt|
00000d10  79 25 20 ef 37 3a f1 8a  31 2c 32 33 29 89 28 33  |y% .7:..1,23).(3|
00000d20  39 29 3b 3a e5 8d 64 6c  44 0d 05 00 0a f7 20 8d  |9);:..dlD..... .|
00000d30  54 76 46 0d 05 0a 0d e3  61 25 3d 31 b8 6e 6f 25  |TvF.....a%=1.no%|
00000d40  0d 05 14 33 f3 66 6e 24  2c 6e 61 6d 65 24 2c 63  |...3.fn$,name$,c|
00000d50  6f 6d 6d 65 6e 74 24 2c  74 79 70 65 24 2c 6c 6f  |omment$,type$,lo|
00000d60  61 64 25 2c 65 78 65 63  25 2c 6d 61 67 25 2c 70  |ad%,exec%,mag%,p|
00000d70  61 67 25 0d 05 1e 13 e7  70 61 67 25 3d 26 46 46  |ag%.....pag%=&FF|
00000d80  20 e5 8d 54 54 45 0d 05  28 05 ed 0d 05 32 10 63  | ..TTE..(....2.c|
00000d90  6f 6c 28 6e 6f 25 29 3d  31 32 39 0d 05 3c 05 e1  |ol(no%)=129..<..|
00000da0  0d 05 46 05 3a 0d 05 50  11 f4 22 81 45 72 72 6f  |..F.:..P..".Erro|
00000db0  72 20 74 72 61 70 0d 05  5a 0f dd f2 65 6e 64 28  |r trap..Z...end(|
00000dc0  65 72 72 25 29 0d 05 64  0b ee 85 e5 8d 74 60 45  |err%)..d.....t`E|
00000dd0  0d 05 6e 63 e7 65 72 72  25 3d 32 35 34 3a f2 68  |..nc.err%=254:.h|
00000de0  65 61 64 69 6e 67 28 31  2c 22 83 55 6e 72 65 63  |eading(1,".Unrec|
00000df0  6f 67 6e 69 73 65 64 20  63 6f 6d 6d 61 6e 64 20  |ognised command |
00000e00  66 6f 75 6e 64 22 2b bd  31 30 2b bd 31 33 2b 22  |found"+.10+.13+"|
00000e10  20 83 49 73 20 74 68 65  20 61 64 61 70 74 6f 72  | .Is the adaptor|
00000e20  20 74 75 72 6e 65 64 20  6f 6e 3f 22 29 3a e5 8d  | turned on?"):..|
00000e30  74 60 45 0d 05 78 0b 2a  54 54 58 4f 46 46 0d 05  |t`E..x.*TTXOFF..|
00000e40  82 07 ef 32 36 0d 05 8c  12 f2 68 65 61 64 69 6e  |...26.....headin|
00000e50  67 28 31 2c 22 22 29 0d  05 96 12 e7 65 72 72 25  |g(1,"").....err%|
00000e60  3d 2d 31 20 e5 8d 64 70  45 0d 05 a0 12 e7 65 72  |=-1 ..dpE.....er|
00000e70  72 25 3d 31 37 20 e5 8d  64 5c 45 0d 05 aa 24 f1  |r%=17 ..d\E...$.|
00000e80  8a 30 2c 31 39 29 89 28  34 30 29 3b bd 31 35 31  |.0,19).(40);.151|
00000e90  3b c4 33 39 2c 22 2c 22  29 3b 89 28 34 30 29 0d  |;.39,",");.(40).|
00000ea0  05 b4 24 f1 8a 30 2c 32  31 29 22 83 45 72 72 6f  |..$..0,21)".Erro|
00000eb0  72 3a 22 3b bd 31 32 39  3b bd 31 35 37 3b bd 31  |r:";.129;.157;.1|
00000ec0  33 35 3b 0d 05 be 1b 73  74 25 3d 28 28 3f 26 46  |35;....st%=((?&F|
00000ed0  45 29 2a 32 35 36 29 2b  28 3f 26 46 44 29 0d 05  |E)*256)+(?&FD)..|
00000ee0  c8 47 65 72 72 65 70 25  3d 73 74 25 3a f5 3a 65  |.Gerrep%=st%:.:e|
00000ef0  72 72 65 70 25 3d 65 72  72 65 70 25 2b 31 3a ef  |rrep%=errep%+1:.|
00000f00  3f 28 65 72 72 65 70 25  29 3a fd 20 3f 65 72 72  |?(errep%):. ?err|
00000f10  65 70 25 3d 30 20 84 20  65 72 72 65 70 25 3d 73  |ep%=0 . errep%=s|
00000f20  74 25 2b 33 30 0d 05 d2  23 f1 22 20 20 22 3b bd  |t%+30...#."  ";.|
00000f30  31 35 36 27 bd 31 35 31  3b c4 33 39 2c 22 2c 22  |156'.151;.39,","|
00000f40  29 3b 89 28 34 30 29 3b  0d 05 dc 11 f2 72 65 74  |);.(40);.....ret|
00000f50  75 72 6e 5f 6f 73 68 77  6d 0d 05 e6 08 d3 3d 48  |urn_oshwm.....=H|
00000f60  25 0d 05 f0 1a ef 32 33  2c 31 2c 31 3b 30 3b 30  |%.....23,1,1;0;0|
00000f70  3b 30 3b 3a f1 8a 30 2c  37 29 3b 0d 05 fa 0c 2a  |;0;:..0,7);....*|
00000f80  46 58 32 32 39 2c 30 0d  06 04 08 2a 46 58 34 0d  |FX229,0....*FX4.|
00000f90  06 0e 05 e0 0d 06 18 05  3a 0d 06 22 1b f4 22 81  |........:.."..".|
00000fa0  4e 6f 2e 20 6f 66 20 41  43 54 55 41 4c 20 66 69  |No. of ACTUAL fi|
00000fb0  6c 65 73 3a 0d 06 2c 08  dc 20 31 31 0d 06 36 1d  |les:..,.. 11..6.|
00000fc0  f4 22 81 52 45 53 54 4f  52 45 20 63 6f 6d 65 73  |.".RESTORE comes|
00000fd0  20 74 6f 20 68 65 72 65  21 0d 06 40 36 dc 22 22  | to here!..@6.""|
00000fe0  2c 22 83 53 61 74 65 6c  6c 69 74 65 22 2c 22 83  |,".Satellite",".|
00000ff0  53 65 72 76 69 63 65 20  53 6f 66 74 77 61 72 65  |Service Software|
00001000  3a 22 2c 22 22 2c 30 2c  30 2c 37 2c 26 46 46 0d  |:","",0,0,7,&FF.|
00001010  06 4a 3c dc 22 53 5f 47  75 69 64 65 22 2c 22 53  |.J<."S_Guide","S|
00001020  5f 47 75 69 64 65 22 2c  22 42 72 69 65 66 20 55  |_Guide","Brief U|
00001030  73 65 72 20 47 75 69 64  65 22 2c 22 54 65 78 74  |ser Guide","Text|
00001040  22 2c 30 2c 30 2c 37 2c  26 44 41 0d 06 54 3c dc  |",0,0,7,&DA..T<.|
00001050  22 53 6d 61 6e 75 61 6c  22 2c 22 53 61 74 6d 61  |"Smanual","Satma|
00001060  6e 75 61 6c 22 2c 22 53  79 73 74 65 6d 20 4d 61  |nual","System Ma|
00001070  6e 75 61 6c 22 2c 22 56  65 72 2e 32 22 2c 30 2c  |nual","Ver.2",0,|
00001080  30 2c 37 2c 26 44 41 0d  06 5e 4a dc 22 53 41 54  |0,7,&DA..^J."SAT|
00001090  6c 6f 61 64 22 2c 22 53  61 74 4c 6f 61 64 65 72  |load","SatLoader|
000010a0  22 2c 22 53 61 74 65 6c  6c 69 74 65 20 46 69 6c  |","Satellite Fil|
000010b0  65 20 44 27 4c 64 22 2c  22 42 41 53 49 43 22 2c  |e D'Ld","BASIC",|
000010c0  26 31 39 30 30 2c 26 38  30 31 46 2c 37 2c 26 44  |&1900,&801F,7,&D|
000010d0  41 0d 06 68 4b dc 22 44  69 73 70 6c 61 79 22 2c  |A..hK."Display",|
000010e0  22 53 61 74 44 69 73 70  6c 61 79 22 2c 22 53 61  |"SatDisplay","Sa|
000010f0  74 2e 44 69 73 70 6c 61  79 20 43 72 65 61 74 6f  |t.Display Creato|
00001100  72 22 2c 22 42 41 53 49  43 22 2c 26 31 39 30 30  |r","BASIC",&1900|
00001110  2c 26 38 30 32 33 2c 37  2c 26 44 41 0d 06 72 46  |,&8023,7,&DA..rF|
00001120  dc 22 53 41 54 73 65 71  22 2c 22 53 61 74 53 65  |."SATseq","SatSe|
00001130  71 27 6e 63 65 22 2c 22  49 6d 61 67 65 20 73 65  |q'nce","Image se|
00001140  71 75 65 6e 63 65 72 22  2c 22 56 32 2e 31 38 22  |quencer","V2.18"|
00001150  2c 26 31 39 30 30 2c 26  38 30 31 46 2c 37 2c 26  |,&1900,&801F,7,&|
00001160  44 41 0d 06 86 52 dc 22  41 72 63 4f 76 65 72 22  |DA...R."ArcOver"|
00001170  2c 22 41 72 63 4f 76 65  72 6c 61 79 22 2c 22 41  |,"ArcOverlay","A|
00001180  72 63 68 69 6d 65 64 65  73 20 64 69 73 70 6c 61  |rchimedes displa|
00001190  79 22 2c 22 42 41 53 49  43 22 2c 26 46 46 46 46  |y","BASIC",&FFFF|
000011a0  46 42 34 31 2c 26 38 37  37 46 31 30 32 41 2c 37  |FB41,&877F102A,7|
000011b0  2c 26 44 41 0d 06 90 1a  dc 22 22 2c 22 22 2c 22  |,&DA....."","","|
000011c0  22 2c 22 22 2c 30 2c 30  2c 37 2c 26 46 46 0d 06  |","",0,0,7,&FF..|
000011d0  9a 2f dc 22 22 2c 22 83  41 54 53 20 52 4f 4d 20  |./."",".ATS ROM |
000011e0  26 22 2c 22 83 75 74 69  6c 69 74 69 65 73 3a 22  |&",".utilities:"|
000011f0  2c 22 22 2c 30 2c 30 2c  37 2c 26 46 46 0d 06 c2  |,"",0,0,7,&FF...|
00001200  48 dc 22 41 63 6e 2f 41  54 53 22 2c 22 41 63 6f  |H."Acn/ATS","Aco|
00001210  72 6e 20 41 54 53 22 2c  22 41 54 53 20 52 4f 4d  |rn ATS","ATS ROM|
00001220  20 66 6f 72 20 41 63 6f  72 6e 22 2c 22 56 65 72  | for Acorn","Ver|
00001230  2e 33 22 2c 26 38 30 30  30 2c 26 38 30 30 30 2c  |.3",&8000,&8000,|
00001240  37 2c 26 44 42 0d 06 cc  3f dc 22 41 2f 49 6e 66  |7,&DB...?."A/Inf|
00001250  6f 22 2c 22 41 2f 49 6e  66 6f 22 2c 22 41 54 53  |o","A/Info","ATS|
00001260  20 52 4f 4d 20 64 65 74  61 69 6c 73 2d 41 63 6e  | ROM details-Acn|
00001270  22 2c 22 54 65 78 74 22  2c 26 30 2c 26 30 2c 37  |","Text",&0,&0,7|
00001280  2c 26 44 42 0d 06 d6 48  dc 22 47 49 53 2f 41 54  |,&DB...H."GIS/AT|
00001290  53 22 2c 22 47 49 53 20  41 54 53 22 2c 22 41 54  |S","GIS ATS","AT|
000012a0  53 20 52 4f 4d 20 66 6f  72 20 47 49 53 20 41 54  |S ROM for GIS AT|
000012b0  52 22 2c 22 56 65 72 2e  32 22 2c 26 38 30 30 30  |R","Ver.2",&8000|
000012c0  2c 26 38 30 30 30 2c 37  2c 26 44 42 0d 06 e0 43  |,&8000,7,&DB...C|
000012d0  dc 22 47 2f 49 6e 66 6f  22 2c 22 47 2f 49 6e 66  |."G/Info","G/Inf|
000012e0  6f 22 2c 22 41 54 53 20  52 4f 4d 20 64 65 74 61  |o","ATS ROM deta|
000012f0  69 6c 73 2d 47 49 53 20  41 54 52 22 2c 22 54 65  |ils-GIS ATR","Te|
00001300  78 74 22 2c 26 30 2c 26  30 2c 37 2c 26 44 42 0d  |xt",&0,&0,7,&DB.|
00001310  06 ea 42 dc 22 54 54 58  50 72 6e 74 22 2c 22 54  |..B."TTXPrnt","T|
00001320  54 58 50 72 69 6e 74 22  2c 22 41 54 53 20 50 61  |TXPrint","ATS Pa|
00001330  67 65 20 50 72 69 6e 74  65 72 22 2c 22 4d 2f 43  |ge Printer","M/C|
00001340  22 2c 26 41 30 30 2c 26  41 30 30 2c 37 2c 26 44  |",&A00,&A00,7,&D|
00001350  41 0d ff                                          |A..|
00001353