�"�Utils
:
�"�(C) Jeremy Brayshaw
(�"�February 1989
2�"�V.5 : 7 July 89
<�"�For use with ATS & ATS+
F:
P�7:H%=�:�=&5000
Z:
d:
nexpiry=47735:� 28 July 89
x3monthcredit$=" July 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:
,� 12
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
�=�"AtlLnd","AtlLand","Atlantic land mass","Data",0,0,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 16 f4 22 82 56 2e  35 20 3a 20 37 20 4a 75  |.2..".V.5 : 7 Ju|
00000050  6c 79 20 38 39 0d 00 3c  1e f4 22 85 46 6f 72 20  |ly 89..<..".For |
00000060  75 73 65 20 77 69 74 68  20 41 54 53 20 26 20 41  |use with ATS & A|
00000070  54 53 2b 0d 00 46 05 3a  0d 00 50 13 eb 37 3a 48  |TS+..F.:..P..7:H|
00000080  25 3d 93 3a d3 3d 26 35  30 30 30 0d 00 5a 05 3a  |%=.:.=&5000..Z.:|
00000090  0d 00 64 05 3a 0d 00 6e  1d 65 78 70 69 72 79 3d  |..d.:..n.expiry=|
000000a0  34 37 37 33 35 3a f4 20  32 38 20 4a 75 6c 79 20  |47735:. 28 July |
000000b0  38 39 0d 00 78 33 6d 6f  6e 74 68 63 72 65 64 69  |89..x3monthcredi|
000000c0  74 24 3d 22 20 4a 75 6c  79 20 38 39 22 3a f4 20  |t$=" July 89":. |
000000d0  65 78 61 63 74 6c 79 20  38 20 63 68 61 72 61 63  |exactly 8 charac|
000000e0  74 65 72 73 21 0d 00 82  05 3a 0d 00 8c 05 3a 0d  |ters!....:....:.|
000000f0  00 96 36 41 25 3d 26 45  41 3a 58 25 3d 30 3a 59  |..6A%=&EA:X%=0:Y|
00000100  25 3d 2d 31 3a e7 28 ba  28 26 46 46 46 34 29 80  |%=-1:.(.(&FFF4).|
00000110  26 46 46 46 46 29 81 26  31 30 30 3a f2 74 75 62  |&FFFF).&100:.tub|
00000120  65 6f 6e 3a e0 0d 00 a0  0f ee 20 85 20 f2 65 6e  |eon:...... . .en|
00000130  64 28 9f 29 0d 00 aa 12  ef 32 33 2c 31 2c 30 3b  |d(.).....23,1,0;|
00000140  30 3b 30 3b 30 3b 0d 00  b4 0a 2a 54 54 58 4f 4e  |0;0;0;....*TTXON|
00000150  0d 00 be 09 2a 42 42 43  32 0d 00 c8 08 54 25 3d  |....*BBC2....T%=|
00000160  91 0d 00 d2 08 2a 48 4f  4e 0d 00 dc 0f f2 6d 6f  |.....*HON.....mo|
00000170  76 65 5f 6f 73 68 77 6d  0d 00 e6 05 3a 0d 00 f0  |ve_oshwm....:...|
00000180  1e de 20 73 70 61 63 65  20 32 30 2c 6e 61 6d 65  |.. space 20,name|
00000190  20 31 32 2c 6c 69 6e 65  20 31 35 0d 00 fa 24 de  | 12,line 15...$.|
000001a0  20 63 6f 6c 28 32 30 29  3a e3 41 25 3d 30 b8 32  | col(20):.A%=0.2|
000001b0  30 3a 63 6f 6c 28 41 25  29 3d 31 33 34 3a ed 0d  |0:col(A%)=134:..|
000001c0  01 04 15 75 6e 69 74 24  3d a4 77 68 69 63 68 5f  |...unit$=.which_|
000001d0  75 6e 69 74 0d 01 0e 05  f5 0d 01 18 0b f2 73 65  |unit..........se|
000001e0  6c 65 63 74 0d 01 22 35  f2 68 65 61 64 69 6e 67  |lect.."5.heading|
000001f0  28 32 2c 22 87 46 69 6c  65 3a 86 22 2b 6e 61 6d  |(2,".File:."+nam|
00000200  65 24 2b bd 31 30 2b bd  31 33 2b 22 20 83 22 2b  |e$+.10+.13+" ."+|
00000210  63 6f 6d 6d 65 6e 74 24  29 0d 01 2c 2c f2 64 6f  |comment$)..,,.do|
00000220  77 6e 6c 6f 61 64 28 6d  61 67 25 2c 70 61 67 25  |wnload(mag%,pag%|
00000230  2c 66 6e 24 2c 6c 6f 61  64 25 2c 65 78 65 63 25  |,fn$,load%,exec%|
00000240  2c b9 2c b9 29 0d 01 36  06 eb 37 0d 01 40 06 fd  |,.,.)..6..7..@..|
00000250  a3 0d 01 4a 0b f2 65 6e  64 28 b9 29 0d 01 54 05  |...J..end(.)..T.|
00000260  e0 0d 01 5e 05 3a 0d 01  68 10 dd f2 6d 6f 76 65  |...^.:..h...move|
00000270  5f 6f 73 68 77 6d 0d 01  72 0c 53 25 3d 26 35 30  |_oshwm..r.S%=&50|
00000280  30 30 0d 01 7c 20 41 25  3d 26 42 34 3a 58 25 3d  |00..| A%=&B4:X%=|
00000290  53 25 81 32 35 36 3a 59  25 3d 30 3a d6 26 46 46  |S%.256:Y%=0:.&FF|
000002a0  46 34 0d 01 86 05 e1 0d  01 90 05 3a 0d 01 9a 42  |F4.........:...B|
000002b0  dd f2 64 6f 77 6e 6c 6f  61 64 28 6d 61 67 61 7a  |..download(magaz|
000002c0  69 6e 65 25 2c 70 61 67  65 25 2c 66 69 6c 65 6e  |ine%,page%,filen|
000002d0  61 6d 65 24 2c 6c 6f 61  64 25 2c 65 78 65 63 25  |ame$,load%,exec%|
000002e0  2c 73 61 76 65 25 2c 72  65 73 65 74 25 29 0d 01  |,save%,reset%)..|
000002f0  a4 24 f2 6f 73 63 6c 69  28 22 4d 41 47 41 5a 49  |.$.oscli("MAGAZI|
00000300  4e 45 20 22 2b c3 28 6d  61 67 61 7a 69 6e 65 25  |NE "+.(magazine%|
00000310  29 29 0d 01 ae 0e 73 70  61 63 65 3f 30 3d 32 34  |))....space?0=24|
00000320  0d 01 b8 27 73 70 61 63  65 3f 31 3d 6e 61 6d 65  |...'space?1=name|
00000330  20 83 32 35 36 3a 73 70  61 63 65 3f 32 3d 6e 61  | .256:space?2=na|
00000340  6d 65 20 81 32 35 36 0d  01 c2 13 24 6e 61 6d 65  |me .256....$name|
00000350  3d 66 69 6c 65 6e 61 6d  65 24 0d 01 cc 20 e3 66  |=filename$... .f|
00000360  25 3d 6e 61 6d 65 20 b8  20 6e 61 6d 65 2b a9 28  |%=name . name+.(|
00000370  66 69 6c 65 6e 61 6d 65  24 29 0d 01 d6 22 e7 3f  |filename$)...".?|
00000380  66 25 3e 39 36 20 80 3f  66 25 3c 31 32 33 20 3f  |f%>96 .?f%<123 ?|
00000390  66 25 3d 28 3f 66 25 29  80 26 44 46 0d 01 e0 05  |f%=(?f%).&DF....|
000003a0  ed 0d 01 ea 11 73 70 61  63 65 21 33 3d 6c 6f 61  |.....space!3=loa|
000003b0  64 25 0d 01 f4 11 73 70  61 63 65 21 37 3d 65 78  |d%....space!7=ex|
000003c0  65 63 25 0d 01 fe 16 73  70 61 63 65 3f 31 31 3d  |ec%....space?11=|
000003d0  6d 61 67 61 7a 69 6e 65  25 0d 02 08 12 73 70 61  |magazine%....spa|
000003e0  63 65 3f 31 32 3d 70 61  67 65 25 0d 02 12 24 e7  |ce?12=page%...$.|
000003f0  73 61 76 65 25 3d b9 20  73 70 61 63 65 3f 31 33  |save%=. space?13|
00000400  3d 31 20 8b 20 73 70 61  63 65 3f 31 33 3d 30 0d  |=1 . space?13=0.|
00000410  02 1c 25 e7 72 65 73 65  74 25 3d b9 20 73 70 61  |..%.reset%=. spa|
00000420  63 65 3f 31 34 3d 30 20  8b 20 73 70 61 63 65 3f  |ce?14=0 . space?|
00000430  31 34 3d 31 0d 02 26 26  41 25 3d 26 37 41 3a 58  |14=1..&&A%=&7A:X|
00000440  25 3d 73 70 61 63 65 20  83 32 35 36 3a 59 25 3d  |%=space .256:Y%=|
00000450  73 70 61 63 65 20 81 32  35 36 0d 02 30 0a d6 26  |space .256..0..&|
00000460  46 46 46 31 0d 02 3a 05  e1 0d 02 44 05 3a 0d 02  |FFF1..:....D.:..|
00000470  4e 12 dd f2 6f 73 63 6c  69 28 74 65 78 74 24 29  |N...oscli(text$)|
00000480  0d 02 58 29 24 6c 69 6e  65 3d 74 65 78 74 24 3a  |..X)$line=text$:|
00000490  58 25 3d 6c 69 6e 65 20  83 32 35 36 3a 59 25 3d  |X%=line .256:Y%=|
000004a0  6c 69 6e 65 20 81 32 35  36 0d 02 62 0a d6 26 46  |line .256..b..&F|
000004b0  46 46 37 0d 02 6c 05 e1  0d 02 76 05 3a 0d 02 80  |FF7..l....v.:...|
000004c0  1b dd f2 68 65 61 64 69  6e 67 28 6d 61 72 6b 25  |...heading(mark%|
000004d0  2c 66 6e 61 6d 65 24 29  0d 02 8a 14 db 3a e7 6d  |,fname$).....:.m|
000004e0  61 72 6b 25 3d 31 20 e5  8d 74 5e 42 0d 02 94 60  |ark%=1 ..t^B...`|
000004f0  e7 75 6e 69 74 24 3d 22  47 49 53 22 20 f1 27 bd  |.unit$="GIS" .'.|
00000500  31 35 31 2b c4 33 39 2c  22 2c 22 29 2b bd 31 33  |151+.39,",")+.13|
00000510  32 2b bd 31 35 37 2b bd  31 33 31 2b 22 42 42 43  |2+.157+.131+"BBC|
00000520  20 54 65 6c 65 73 6f 66  74 77 61 72 65 20 55 74  | Telesoftware Ut|
00000530  69 6c 69 74 69 65 73 22  27 bd 31 35 31 2b c4 33  |ilities"'.151+.3|
00000540  39 2c 22 2c 22 29 3a e5  8d 64 50 42 0d 02 9e 2e  |9,","):..dPB....|
00000550  f1 27 22 9a 91 a0 a0 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 fc  fc 22 0d 02 a8 2d f1 22  |........."...-."|
00000580  9a 93 a8 af ef ff af af  a1 91 ff ff 9e 81 9d 87  |................|
00000590  42 42 43 20 54 65 6c 65  73 6f 66 74 77 61 72 65  |BBC Telesoftware|
000005a0  91 60 9c ff ff ff 22 0d  02 b2 2d f1 22 9a 93 a0  |.`...."...-."...|
000005b0  a0 fe a7 91 f8 fc ff ff  ff 9e 81 9d 87 20 20 20  |.............   |
000005c0  20 55 74 69 6c 69 74 69  65 73 20 20 20 20 91 9c  | Utilities    ..|
000005d0  ff ff ff 22 0d 02 bc 35  f1 22 9a 93 a0 fa b7 91  |..."...5."......|
000005e0  e8 ff ff ff ff ff 9e 81  9d 83 28 43 29 42 42 43  |..........(C)BBC|
000005f0  74 76 20 22 3b 6d 6f 6e  74 68 63 72 65 64 69 74  |tv ";monthcredit|
00000600  24 3b 22 91 9c ff ff ff  22 0d 02 c6 2d f1 22 9a  |$;"....."...-.".|
00000610  91 a0 a0 fc fc ff ff ff  ff ff ff ff ff ff fc fc  |................|
00000620  fc fc fc fc fc fc 7c 7c  fc fc fc fc fc fc fc fc  |......||........|
00000630  fc fc ff ff ff 22 0d 02  d0 11 f1 8a 31 2c 31 37  |....."......1,17|
00000640  29 66 6e 61 6d 65 24 0d  02 da 05 e1 0d 02 e4 05  |)fname$.........|
00000650  3a 0d 02 ee 12 dd f2 72  65 74 75 72 6e 5f 6f 73  |:......return_os|
00000660  68 77 6d 0d 02 f8 20 41  25 3d 26 42 34 3a 58 25  |hwm... A%=&B4:X%|
00000670  3d 90 20 81 32 35 36 3a  59 25 3d 30 3a d6 26 46  |=. .256:Y%=0:.&F|
00000680  46 46 34 0d 03 02 05 e1  0d 03 0c 05 3a 0d 03 16  |FF4.........:...|
00000690  0a dd a4 64 61 74 65 0d  03 20 0d ea 5a 25 2c 4d  |...date.. ..Z%,M|
000006a0  25 2c 44 25 0d 03 2a 0f  f5 3a fd 91 3e 54 25 2b  |%,D%..*..:..>T%+|
000006b0  31 35 30 0d 03 34 34 41  25 3d 26 37 41 3a 58 25  |150..44A%=&7A:X%|
000006c0  3d 6c 69 6e 65 20 83 32  35 36 3a 59 25 3d 6c 69  |=line .256:Y%=li|
000006d0  6e 65 20 81 32 35 36 3a  3f 6c 69 6e 65 3d 31 35  |ne .256:?line=15|
000006e0  3a d6 26 46 46 46 31 0d  03 3e 17 42 42 31 24 3d  |:.&FFF1..>.BB1$=|
000006f0  c2 c3 7e 28 6c 69 6e 65  3f 38 29 2c 31 29 0d 03  |..~(line?8),1)..|
00000700  48 2d 42 42 32 24 3d c3  7e 28 6c 69 6e 65 3f 39  |H-BB2$=.~(line?9|
00000710  29 3a e7 20 a9 28 42 42  32 24 29 3d 31 20 42 42  |):. .(BB2$)=1 BB|
00000720  32 24 3d 22 30 22 2b 42  42 32 24 0d 03 52 2e 42  |2$="0"+BB2$..R.B|
00000730  42 33 24 3d c3 7e 28 6c  69 6e 65 3f 31 30 29 3a  |B3$=.~(line?10):|
00000740  e7 20 a9 28 42 42 33 24  29 3d 31 20 42 42 33 24  |. .(BB3$)=1 BB3$|
00000750  3d 22 30 22 2b 42 42 33  24 0d 03 5c 18 4a 44 3d  |="0"+BB3$..\.JD=|
00000760  bb 28 42 42 31 24 2b 42  42 32 24 2b 42 42 33 24  |.(BB1$+BB2$+BB3$|
00000770  29 0d 03 66 4b e7 4a 44  3c 34 37 35 36 30 20 3d  |)..fK.JD<47560 =|
00000780  22 20 20 20 22 2b bd 31  32 39 2b bd 31 35 37 2b  |"   "+.129+.157+|
00000790  bd 31 33 35 2b 22 43 75  72 72 65 6e 74 20 64 61  |.135+"Current da|
000007a0  74 65 20 6e 6f 74 20 61  76 61 69 6c 61 62 6c 65  |te not available|
000007b0  20 20 20 20 20 20 22 2b  bd 31 35 36 0d 03 70 1f  |      "+.156..p.|
000007c0  59 31 3d 28 31 30 30 2a  28 4a 44 2d 31 35 30 37  |Y1=(100*(JD-1507|
000007d0  38 2e 32 29 29 81 33 36  35 32 35 0d 03 7a 2b 4d  |8.2)).36525..z+M|
000007e0  31 3d a8 28 28 4a 44 2d  31 34 39 35 36 2e 31 2d  |1=.((JD-14956.1-|
000007f0  a8 28 33 36 35 2e 32 35  2a 59 31 29 29 2f 33 30  |.(365.25*Y1))/30|
00000800  2e 36 30 30 31 29 0d 03  84 3c 44 25 3d 4a 44 2d  |.6001)...<D%=JD-|
00000810  31 34 39 35 36 2d a8 28  33 36 35 2e 32 35 2a 59  |14956-.(365.25*Y|
00000820  31 29 2d a8 28 33 30 2e  36 2a 4d 31 29 3a 4b 3d  |1)-.(30.6*M1):K=|
00000830  a8 28 30 2e 37 2b 28 31  2f 28 31 37 2d 4d 31 29  |.(0.7+(1/(17-M1)|
00000840  29 29 0d 03 8e 10 4d 25  3d 4d 31 2d 31 2d 31 32  |))....M%=M1-1-12|
00000850  2a 4b 0d 03 98 0b 5a 25  3d 59 31 2b 4b 0d 03 a2  |*K....Z%=Y1+K...|
00000860  31 57 25 3d 28 4a 44 2b  33 29 83 37 3a f7 8d 74  |1W%=(JD+3).7:..t|
00000870  6c 43 3a e3 64 61 79 3d  30 b8 57 25 3a f3 44 24  |lC:.day=0.W%:.D$|
00000880  3a ed 3a 44 24 3d 44 24  2b 22 64 61 79 22 0d 03  |:.:D$=D$+"day"..|
00000890  ac 29 dc 20 53 75 6e 2c  4d 6f 6e 2c 54 75 65 73  |.). Sun,Mon,Tues|
000008a0  2c 57 65 64 6e 65 73 2c  54 68 75 72 73 2c 46 72  |,Wednes,Thurs,Fr|
000008b0  69 2c 53 61 74 75 72 0d  03 b6 1d f7 8d 64 40 43  |i,Satur......d@C|
000008c0  3a e3 64 61 79 3d 31 b8  4d 25 3a f3 6d 6f 6e 74  |:.day=1.M%:.mont|
000008d0  68 24 3a ed 0d 03 c0 5b  dc 20 4a 61 6e 75 61 72  |h$:....[. Januar|
000008e0  79 2c 46 65 62 72 75 61  72 79 2c 4d 61 72 63 68  |y,February,March|
000008f0  2c 41 70 72 69 6c 2c 4d  61 79 2c 4a 75 6e 65 2c  |,April,May,June,|
00000900  4a 75 6c 79 2c 41 75 67  75 73 74 2c 53 65 70 74  |July,August,Sept|
00000910  65 6d 62 65 72 2c 4f 63  74 6f 62 65 72 2c 4e 6f  |ember,October,No|
00000920  76 65 6d 62 65 72 2c 44  65 63 65 6d 62 65 72 0d  |vember,December.|
00000930  03 ca 54 e7 44 25 3d 31  84 44 25 3d 32 31 84 44  |..T.D%=1.D%=21.D|
00000940  25 3d 33 31 20 74 68 24  3d 22 73 74 22 20 8b e7  |%=31 th$="st" ..|
00000950  44 25 3d 32 84 44 25 3d  32 32 20 74 68 24 3d 22  |D%=2.D%=22 th$="|
00000960  6e 64 22 20 8b e7 44 25  3d 33 84 44 25 3d 32 33  |nd" ..D%=3.D%=23|
00000970  20 74 68 24 3d 22 72 64  22 20 8b 74 68 24 3d 22  | th$="rd" .th$="|
00000980  74 68 22 0d 03 d4 2f 64  74 24 3d 44 24 2b 22 20  |th".../dt$=D$+" |
00000990  22 2b c3 28 44 25 29 2b  74 68 24 2b 22 20 22 2b  |"+.(D%)+th$+" "+|
000009a0  6d 6f 6e 74 68 24 2b 22  20 31 39 22 2b c3 28 5a  |month$+" 19"+.(Z|
000009b0  25 29 0d 03 de 15 73 70  61 63 65 73 25 3d 33 30  |%)....spaces%=30|
000009c0  2d a9 28 64 74 24 29 0d  03 e8 58 3d 22 20 20 20  |-.(dt$)...X="   |
000009d0  22 2b bd 31 32 39 2b bd  31 35 37 2b bd 31 33 35  |"+.129+.157+.135|
000009e0  2b c4 73 70 61 63 65 73  25 2f 32 2c 22 20 22 29  |+.spaces%/2," ")|
000009f0  2b 64 74 24 2b c4 73 70  61 63 65 73 25 2d 28 73  |+dt$+.spaces%-(s|
00000a00  70 61 63 65 73 25 2f 32  29 2b 32 2b 73 70 61 63  |paces%/2)+2+spac|
00000a10  65 73 25 83 32 2c 22 20  22 29 2b bd 31 35 36 0d  |es%.2," ")+.156.|
00000a20  03 f2 05 3a 0d 03 fc 10  dd a4 77 68 69 63 68 5f  |...:......which_|
00000a30  75 6e 69 74 0d 04 06 24  41 25 3d 26 37 41 3a 58  |unit...$A%=&7A:X|
00000a40  25 3d 6c 69 6e 65 20 83  32 35 36 3a 59 25 3d 6c  |%=line .256:Y%=l|
00000a50  69 6e 65 20 81 32 35 36  0d 04 10 1f 6c 69 6e 65  |ine .256....line|
00000a60  3f 30 3d 31 37 3a 6c 69  6e 65 3f 33 3d 26 46 46  |?0=17:line?3=&FF|
00000a70  3a d6 26 46 46 46 31 0d  04 1a 1e e7 6c 69 6e 65  |:.&FFF1.....line|
00000a80  3f 33 3d 26 46 46 20 3d  22 41 54 53 22 20 8b 3d  |?3=&FF ="ATS" .=|
00000a90  22 47 49 53 22 0d 04 24  05 3a 0d 04 2e 0c dd f2  |"GIS"..$.:......|
00000aa0  74 75 62 65 6f 6e 0d 04  38 9f f2 68 65 61 64 69  |tubeon..8..headi|
00000ab0  6e 67 28 31 2c bd 31 32  37 2b bd 31 35 31 2b c4  |ng(1,.127+.151+.|
00000ac0  33 39 2c 22 2c 22 29 2b  bd 31 32 39 2b bd 31 35  |39,",")+.129+.15|
00000ad0  37 2b bd 31 33 35 2b 22  54 68 65 20 27 54 75 62  |7+.135+"The 'Tub|
00000ae0  65 27 20 69 73 20 61 63  74 69 76 65 2e 20 50 6c  |e' is active. Pl|
00000af0  65 61 73 65 20 64 69 73  61 62 6c 65 22 2b bd 31  |ease disable"+.1|
00000b00  30 2b bd 31 33 2b bd 31  32 39 2b bd 31 35 37 2b  |0+.13+.129+.157+|
00000b10  bd 31 33 35 2b 22 74 68  65 6e 20 43 48 41 49 4e  |.135+"then CHAIN|
00000b20  20 55 74 69 6c 73 20 61  67 61 69 6e 2e 22 2b bd  | Utils again."+.|
00000b30  31 30 2b bd 31 33 2b bd  31 35 31 2b c4 33 39 2c  |10+.13+.151+.39,|
00000b40  22 2c 22 29 29 0d 04 42  14 ef 32 33 2c 31 2c 30  |","))..B..23,1,0|
00000b50  3b 30 3b 30 3b 30 3b 3a  f1 0d 04 4c 05 e1 0d 04  |;0;0;0;:...L....|
00000b60  56 05 3a 0d 04 60 0c dd  f2 73 65 6c 65 63 74 0d  |V.:..`...select.|
00000b70  04 6a 12 f2 68 65 61 64  69 6e 67 28 31 2c 22 22  |.j..heading(1,""|
00000b80  29 0d 04 74 0b f1 8a 30  2c 36 29 3b 0d 04 7e 0a  |)..t...0,6);..~.|
00000b90  f7 20 8d 54 6c 46 0d 04  88 0a f3 20 71 74 79 25  |. .TlF..... qty%|
00000ba0  0d 04 92 0a f1 a4 64 61  74 65 0d 04 9c 3d e7 4a  |......date...=.J|
00000bb0  44 3e 65 78 70 69 72 79  20 f1 22 88 81 4f 55 54  |D>expiry ."..OUT|
00000bc0  20 4f 46 20 44 41 54 45  20 2d 89 44 6f 77 6e 6c  | OF DATE -.Downl|
00000bd0  6f 61 64 20 6e 65 77 20  55 54 49 4c 53 20 66 69  |oad new UTILS fi|
00000be0  6c 65 22 3b 3a 8b f1 0d  04 a6 0a f7 20 8d 54 76  |le";:....... .Tv|
00000bf0  46 0d 04 b0 0f e3 6e 6f  25 3d 31 b8 71 74 79 25  |F.....no%=1.qty%|
00000c00  0d 04 ba 33 f3 66 6e 24  2c 6e 61 6d 65 24 2c 63  |...3.fn$,name$,c|
00000c10  6f 6d 6d 65 6e 74 24 2c  74 79 70 65 24 2c 6c 6f  |omment$,type$,lo|
00000c20  61 64 25 2c 65 78 65 63  25 2c 6d 61 67 25 2c 70  |ad%,exec%,mag%,p|
00000c30  61 67 25 0d 04 c4 39 e7  70 61 67 25 3d 26 46 46  |ag%...9.pag%=&FF|
00000c40  20 f1 22 20 20 20 20 22  3b 3a 8b f1 22 83 22 3b  | ."    ";:..".";|
00000c50  c2 22 20 20 22 2b c3 28  6e 6f 25 29 2c 32 29 3b  |."  "+.(no%),2);|
00000c60  bd 28 63 6f 6c 28 6e 6f  25 29 29 3b 0d 04 ce 4a  |.(col(no%));...J|
00000c70  f1 c0 6e 61 6d 65 24 2b  c4 31 30 2c 22 20 22 29  |..name$+.10," ")|
00000c80  2c 31 30 29 3b 22 87 22  3b c0 63 6f 6d 6d 65 6e  |,10);".";.commen|
00000c90  74 24 2b c4 31 39 2c 22  20 22 29 2c 31 39 29 3b  |t$+.19," "),19);|
00000ca0  22 20 22 3b c0 74 79 70  65 24 2b c4 35 2c 22 20  |" ";.type$+.5," |
00000cb0  22 29 2c 35 29 3b 0d 04  d8 13 e7 70 61 67 25 3d  |"),5);.....pag%=|
00000cc0  26 46 46 20 e5 8d 74 7a  44 0d 04 e2 05 ed 0d 04  |&FF ..tzD.......|
00000cd0  ec 31 e8 8a 32 2c 32 33  29 22 81 9d 87 45 6e 74  |.1..2,23)"...Ent|
00000ce0  65 72 20 6e 75 6d 62 65  72 20 6f 66 20 66 69 6c  |er number of fil|
00000cf0  65 20 72 65 71 75 69 72  65 64 3a 22 6e 6f 25 0d  |e required:"no%.|
00000d00  04 f6 2c e7 6e 6f 25 3c  31 20 84 20 6e 6f 25 3e  |..,.no%<1 . no%>|
00000d10  71 74 79 25 20 ef 37 3a  f1 8a 31 2c 32 33 29 89  |qty% .7:..1,23).|
00000d20  28 33 39 29 3b 3a e5 8d  64 6c 44 0d 05 00 0a f7  |(39);:..dlD.....|
00000d30  20 8d 54 76 46 0d 05 0a  0d e3 61 25 3d 31 b8 6e  | .TvF.....a%=1.n|
00000d40  6f 25 0d 05 14 33 f3 66  6e 24 2c 6e 61 6d 65 24  |o%...3.fn$,name$|
00000d50  2c 63 6f 6d 6d 65 6e 74  24 2c 74 79 70 65 24 2c  |,comment$,type$,|
00000d60  6c 6f 61 64 25 2c 65 78  65 63 25 2c 6d 61 67 25  |load%,exec%,mag%|
00000d70  2c 70 61 67 25 0d 05 1e  13 e7 70 61 67 25 3d 26  |,pag%.....pag%=&|
00000d80  46 46 20 e5 8d 54 54 45  0d 05 28 05 ed 0d 05 32  |FF ..TTE..(....2|
00000d90  10 63 6f 6c 28 6e 6f 25  29 3d 31 32 39 0d 05 3c  |.col(no%)=129..<|
00000da0  05 e1 0d 05 46 05 3a 0d  05 50 11 f4 22 81 45 72  |....F.:..P..".Er|
00000db0  72 6f 72 20 74 72 61 70  0d 05 5a 0f dd f2 65 6e  |ror trap..Z...en|
00000dc0  64 28 65 72 72 25 29 0d  05 64 0b ee 85 e5 8d 74  |d(err%)..d.....t|
00000dd0  60 45 0d 05 6e 63 e7 65  72 72 25 3d 32 35 34 3a  |`E..nc.err%=254:|
00000de0  f2 68 65 61 64 69 6e 67  28 31 2c 22 83 55 6e 72  |.heading(1,".Unr|
00000df0  65 63 6f 67 6e 69 73 65  64 20 63 6f 6d 6d 61 6e  |ecognised comman|
00000e00  64 20 66 6f 75 6e 64 22  2b bd 31 30 2b bd 31 33  |d found"+.10+.13|
00000e10  2b 22 20 83 49 73 20 74  68 65 20 61 64 61 70 74  |+" .Is the adapt|
00000e20  6f 72 20 74 75 72 6e 65  64 20 6f 6e 3f 22 29 3a  |or turned on?"):|
00000e30  e5 8d 74 60 45 0d 05 78  0b 2a 54 54 58 4f 46 46  |..t`E..x.*TTXOFF|
00000e40  0d 05 82 07 ef 32 36 0d  05 8c 12 f2 68 65 61 64  |.....26.....head|
00000e50  69 6e 67 28 31 2c 22 22  29 0d 05 96 12 e7 65 72  |ing(1,"").....er|
00000e60  72 25 3d 2d 31 20 e5 8d  64 70 45 0d 05 a0 12 e7  |r%=-1 ..dpE.....|
00000e70  65 72 72 25 3d 31 37 20  e5 8d 64 5c 45 0d 05 aa  |err%=17 ..d\E...|
00000e80  24 f1 8a 30 2c 31 39 29  89 28 34 30 29 3b bd 31  |$..0,19).(40);.1|
00000e90  35 31 3b c4 33 39 2c 22  2c 22 29 3b 89 28 34 30  |51;.39,",");.(40|
00000ea0  29 0d 05 b4 24 f1 8a 30  2c 32 31 29 22 83 45 72  |)...$..0,21)".Er|
00000eb0  72 6f 72 3a 22 3b bd 31  32 39 3b bd 31 35 37 3b  |ror:";.129;.157;|
00000ec0  bd 31 33 35 3b 0d 05 be  1b 73 74 25 3d 28 28 3f  |.135;....st%=((?|
00000ed0  26 46 45 29 2a 32 35 36  29 2b 28 3f 26 46 44 29  |&FE)*256)+(?&FD)|
00000ee0  0d 05 c8 47 65 72 72 65  70 25 3d 73 74 25 3a f5  |...Gerrep%=st%:.|
00000ef0  3a 65 72 72 65 70 25 3d  65 72 72 65 70 25 2b 31  |:errep%=errep%+1|
00000f00  3a ef 3f 28 65 72 72 65  70 25 29 3a fd 20 3f 65  |:.?(errep%):. ?e|
00000f10  72 72 65 70 25 3d 30 20  84 20 65 72 72 65 70 25  |rrep%=0 . errep%|
00000f20  3d 73 74 25 2b 33 30 0d  05 d2 23 f1 22 20 20 22  |=st%+30...#."  "|
00000f30  3b bd 31 35 36 27 bd 31  35 31 3b c4 33 39 2c 22  |;.156'.151;.39,"|
00000f40  2c 22 29 3b 89 28 34 30  29 3b 0d 05 dc 11 f2 72  |,");.(40);.....r|
00000f50  65 74 75 72 6e 5f 6f 73  68 77 6d 0d 05 e6 08 d3  |eturn_oshwm.....|
00000f60  3d 48 25 0d 05 f0 1a ef  32 33 2c 31 2c 31 3b 30  |=H%.....23,1,1;0|
00000f70  3b 30 3b 30 3b 3a f1 8a  30 2c 37 29 3b 0d 05 fa  |;0;0;:..0,7);...|
00000f80  0c 2a 46 58 32 32 39 2c  30 0d 06 04 08 2a 46 58  |.*FX229,0....*FX|
00000f90  34 0d 06 0e 05 e0 0d 06  18 05 3a 0d 06 22 1b f4  |4.........:.."..|
00000fa0  22 81 4e 6f 2e 20 6f 66  20 41 43 54 55 41 4c 20  |".No. of ACTUAL |
00000fb0  66 69 6c 65 73 3a 0d 06  2c 08 dc 20 31 32 0d 06  |files:..,.. 12..|
00000fc0  36 1d f4 22 81 52 45 53  54 4f 52 45 20 63 6f 6d  |6..".RESTORE com|
00000fd0  65 73 20 74 6f 20 68 65  72 65 21 0d 06 40 36 dc  |es to here!..@6.|
00000fe0  22 22 2c 22 83 53 61 74  65 6c 6c 69 74 65 22 2c  |"",".Satellite",|
00000ff0  22 83 53 65 72 76 69 63  65 20 53 6f 66 74 77 61  |".Service Softwa|
00001000  72 65 3a 22 2c 22 22 2c  30 2c 30 2c 37 2c 26 46  |re:","",0,0,7,&F|
00001010  46 0d 06 4a 3c dc 22 53  5f 47 75 69 64 65 22 2c  |F..J<."S_Guide",|
00001020  22 53 5f 47 75 69 64 65  22 2c 22 42 72 69 65 66  |"S_Guide","Brief|
00001030  20 55 73 65 72 20 47 75  69 64 65 22 2c 22 54 65  | User Guide","Te|
00001040  78 74 22 2c 30 2c 30 2c  37 2c 26 44 41 0d 06 54  |xt",0,0,7,&DA..T|
00001050  3c dc 22 53 6d 61 6e 75  61 6c 22 2c 22 53 61 74  |<."Smanual","Sat|
00001060  6d 61 6e 75 61 6c 22 2c  22 53 79 73 74 65 6d 20  |manual","System |
00001070  4d 61 6e 75 61 6c 22 2c  22 56 65 72 2e 32 22 2c  |Manual","Ver.2",|
00001080  30 2c 30 2c 37 2c 26 44  41 0d 06 5e 4a dc 22 53  |0,0,7,&DA..^J."S|
00001090  41 54 6c 6f 61 64 22 2c  22 53 61 74 4c 6f 61 64  |ATload","SatLoad|
000010a0  65 72 22 2c 22 53 61 74  65 6c 6c 69 74 65 20 46  |er","Satellite F|
000010b0  69 6c 65 20 44 27 4c 64  22 2c 22 42 41 53 49 43  |ile D'Ld","BASIC|
000010c0  22 2c 26 31 39 30 30 2c  26 38 30 31 46 2c 37 2c  |",&1900,&801F,7,|
000010d0  26 44 41 0d 06 68 4b dc  22 44 69 73 70 6c 61 79  |&DA..hK."Display|
000010e0  22 2c 22 53 61 74 44 69  73 70 6c 61 79 22 2c 22  |","SatDisplay","|
000010f0  53 61 74 2e 44 69 73 70  6c 61 79 20 43 72 65 61  |Sat.Display Crea|
00001100  74 6f 72 22 2c 22 42 41  53 49 43 22 2c 26 31 39  |tor","BASIC",&19|
00001110  30 30 2c 26 38 30 32 33  2c 37 2c 26 44 41 0d 06  |00,&8023,7,&DA..|
00001120  72 46 dc 22 53 41 54 73  65 71 22 2c 22 53 61 74  |rF."SATseq","Sat|
00001130  53 65 71 27 6e 63 65 22  2c 22 49 6d 61 67 65 20  |Seq'nce","Image |
00001140  73 65 71 75 65 6e 63 65  72 22 2c 22 56 32 2e 31  |sequencer","V2.1|
00001150  38 22 2c 26 31 39 30 30  2c 26 38 30 31 46 2c 37  |8",&1900,&801F,7|
00001160  2c 26 44 41 0d 06 86 52  dc 22 41 72 63 4f 76 65  |,&DA...R."ArcOve|
00001170  72 22 2c 22 41 72 63 4f  76 65 72 6c 61 79 22 2c  |r","ArcOverlay",|
00001180  22 41 72 63 68 69 6d 65  64 65 73 20 64 69 73 70  |"Archimedes disp|
00001190  6c 61 79 22 2c 22 42 41  53 49 43 22 2c 26 46 46  |lay","BASIC",&FF|
000011a0  46 46 46 42 34 31 2c 26  38 37 37 46 31 30 32 41  |FFFB41,&877F102A|
000011b0  2c 37 2c 26 44 41 0d 06  8b 3d dc 22 41 74 6c 4c  |,7,&DA...=."AtlL|
000011c0  6e 64 22 2c 22 41 74 6c  4c 61 6e 64 22 2c 22 41  |nd","AtlLand","A|
000011d0  74 6c 61 6e 74 69 63 20  6c 61 6e 64 20 6d 61 73  |tlantic land mas|
000011e0  73 22 2c 22 44 61 74 61  22 2c 30 2c 30 2c 37 2c  |s","Data",0,0,7,|
000011f0  26 44 41 0d 06 90 1a dc  22 22 2c 22 22 2c 22 22  |&DA....."","",""|
00001200  2c 22 22 2c 30 2c 30 2c  37 2c 26 46 46 0d 06 9a  |,"",0,0,7,&FF...|
00001210  2f dc 22 22 2c 22 83 41  54 53 20 52 4f 4d 20 26  |/."",".ATS ROM &|
00001220  22 2c 22 83 75 74 69 6c  69 74 69 65 73 3a 22 2c  |",".utilities:",|
00001230  22 22 2c 30 2c 30 2c 37  2c 26 46 46 0d 06 c2 48  |"",0,0,7,&FF...H|
00001240  dc 22 41 63 6e 2f 41 54  53 22 2c 22 41 63 6f 72  |."Acn/ATS","Acor|
00001250  6e 20 41 54 53 22 2c 22  41 54 53 20 52 4f 4d 20  |n ATS","ATS ROM |
00001260  66 6f 72 20 41 63 6f 72  6e 22 2c 22 56 65 72 2e  |for Acorn","Ver.|
00001270  33 22 2c 26 38 30 30 30  2c 26 38 30 30 30 2c 37  |3",&8000,&8000,7|
00001280  2c 26 44 42 0d 06 cc 3f  dc 22 41 2f 49 6e 66 6f  |,&DB...?."A/Info|
00001290  22 2c 22 41 2f 49 6e 66  6f 22 2c 22 41 54 53 20  |","A/Info","ATS |
000012a0  52 4f 4d 20 64 65 74 61  69 6c 73 2d 41 63 6e 22  |ROM details-Acn"|
000012b0  2c 22 54 65 78 74 22 2c  26 30 2c 26 30 2c 37 2c  |,"Text",&0,&0,7,|
000012c0  26 44 42 0d 06 d6 48 dc  22 47 49 53 2f 41 54 53  |&DB...H."GIS/ATS|
000012d0  22 2c 22 47 49 53 20 41  54 53 22 2c 22 41 54 53  |","GIS ATS","ATS|
000012e0  20 52 4f 4d 20 66 6f 72  20 47 49 53 20 41 54 52  | ROM for GIS ATR|
000012f0  22 2c 22 56 65 72 2e 32  22 2c 26 38 30 30 30 2c  |","Ver.2",&8000,|
00001300  26 38 30 30 30 2c 37 2c  26 44 42 0d 06 e0 43 dc  |&8000,7,&DB...C.|
00001310  22 47 2f 49 6e 66 6f 22  2c 22 47 2f 49 6e 66 6f  |"G/Info","G/Info|
00001320  22 2c 22 41 54 53 20 52  4f 4d 20 64 65 74 61 69  |","ATS ROM detai|
00001330  6c 73 2d 47 49 53 20 41  54 52 22 2c 22 54 65 78  |ls-GIS ATR","Tex|
00001340  74 22 2c 26 30 2c 26 30  2c 37 2c 26 44 42 0d 06  |t",&0,&0,7,&DB..|
00001350  ea 42 dc 22 54 54 58 50  72 6e 74 22 2c 22 54 54  |.B."TTXPrnt","TT|
00001360  58 50 72 69 6e 74 22 2c  22 41 54 53 20 50 61 67  |XPrint","ATS Pag|
00001370  65 20 50 72 69 6e 74 65  72 22 2c 22 4d 2f 43 22  |e Printer","M/C"|
00001380  2c 26 41 30 30 2c 26 41  30 30 2c 37 2c 26 44 41  |,&A00,&A00,7,&DA|
00001390  0d ff                                             |..|
00001392