�"�Utils
3monthcredit$=" Aug 89 ":� exactly 8 characters!
�"�(C) Jeremy Brayshaw
(�"�February 1989
2�"�V.5 : 7 July 89
<�"�For use with ATS & ATS+
F:
P�7:H%=�:�=&5000
Z:
d:
nexpiry=47756:� 18 Aug 89
x3monthcredit$="  Aug 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 33  |.....".Utils...3|
00000010  6d 6f 6e 74 68 63 72 65  64 69 74 24 3d 22 20 41  |monthcredit$=" A|
00000020  75 67 20 38 39 20 22 3a  f4 20 65 78 61 63 74 6c  |ug 89 ":. exactl|
00000030  79 20 38 20 63 68 61 72  61 63 74 65 72 73 21 0d  |y 8 characters!.|
00000040  00 1e 1a f4 22 81 28 43  29 20 4a 65 72 65 6d 79  |....".(C) Jeremy|
00000050  20 42 72 61 79 73 68 61  77 0d 00 28 14 f4 22 86  | Brayshaw..(..".|
00000060  46 65 62 72 75 61 72 79  20 31 39 38 39 0d 00 32  |February 1989..2|
00000070  16 f4 22 82 56 2e 35 20  3a 20 37 20 4a 75 6c 79  |..".V.5 : 7 July|
00000080  20 38 39 0d 00 3c 1e f4  22 85 46 6f 72 20 75 73  | 89..<..".For us|
00000090  65 20 77 69 74 68 20 41  54 53 20 26 20 41 54 53  |e with ATS & ATS|
000000a0  2b 0d 00 46 05 3a 0d 00  50 13 eb 37 3a 48 25 3d  |+..F.:..P..7:H%=|
000000b0  93 3a d3 3d 26 35 30 30  30 0d 00 5a 05 3a 0d 00  |.:.=&5000..Z.:..|
000000c0  64 05 3a 0d 00 6e 1c 65  78 70 69 72 79 3d 34 37  |d.:..n.expiry=47|
000000d0  37 35 36 3a f4 20 31 38  20 41 75 67 20 38 39 0d  |756:. 18 Aug 89.|
000000e0  00 78 33 6d 6f 6e 74 68  63 72 65 64 69 74 24 3d  |.x3monthcredit$=|
000000f0  22 20 20 41 75 67 20 38  39 22 3a f4 20 65 78 61  |"  Aug 89":. exa|
00000100  63 74 6c 79 20 38 20 63  68 61 72 61 63 74 65 72  |ctly 8 character|
00000110  73 21 0d 00 82 05 3a 0d  00 8c 05 3a 0d 00 96 36  |s!....:....:...6|
00000120  41 25 3d 26 45 41 3a 58  25 3d 30 3a 59 25 3d 2d  |A%=&EA:X%=0:Y%=-|
00000130  31 3a e7 28 ba 28 26 46  46 46 34 29 80 26 46 46  |1:.(.(&FFF4).&FF|
00000140  46 46 29 81 26 31 30 30  3a f2 74 75 62 65 6f 6e  |FF).&100:.tubeon|
00000150  3a e0 0d 00 a0 0f ee 20  85 20 f2 65 6e 64 28 9f  |:...... . .end(.|
00000160  29 0d 00 aa 12 ef 32 33  2c 31 2c 30 3b 30 3b 30  |).....23,1,0;0;0|
00000170  3b 30 3b 0d 00 b4 0a 2a  54 54 58 4f 4e 0d 00 be  |;0;....*TTXON...|
00000180  09 2a 42 42 43 32 0d 00  c8 08 54 25 3d 91 0d 00  |.*BBC2....T%=...|
00000190  d2 08 2a 48 4f 4e 0d 00  dc 0f f2 6d 6f 76 65 5f  |..*HON.....move_|
000001a0  6f 73 68 77 6d 0d 00 e6  05 3a 0d 00 f0 1e de 20  |oshwm....:..... |
000001b0  73 70 61 63 65 20 32 30  2c 6e 61 6d 65 20 31 32  |space 20,name 12|
000001c0  2c 6c 69 6e 65 20 31 35  0d 00 fa 24 de 20 63 6f  |,line 15...$. co|
000001d0  6c 28 32 30 29 3a e3 41  25 3d 30 b8 32 30 3a 63  |l(20):.A%=0.20:c|
000001e0  6f 6c 28 41 25 29 3d 31  33 34 3a ed 0d 01 04 15  |ol(A%)=134:.....|
000001f0  75 6e 69 74 24 3d a4 77  68 69 63 68 5f 75 6e 69  |unit$=.which_uni|
00000200  74 0d 01 0e 05 f5 0d 01  18 0b f2 73 65 6c 65 63  |t..........selec|
00000210  74 0d 01 22 35 f2 68 65  61 64 69 6e 67 28 32 2c  |t.."5.heading(2,|
00000220  22 87 46 69 6c 65 3a 86  22 2b 6e 61 6d 65 24 2b  |".File:."+name$+|
00000230  bd 31 30 2b bd 31 33 2b  22 20 83 22 2b 63 6f 6d  |.10+.13+" ."+com|
00000240  6d 65 6e 74 24 29 0d 01  2c 2c f2 64 6f 77 6e 6c  |ment$)..,,.downl|
00000250  6f 61 64 28 6d 61 67 25  2c 70 61 67 25 2c 66 6e  |oad(mag%,pag%,fn|
00000260  24 2c 6c 6f 61 64 25 2c  65 78 65 63 25 2c b9 2c  |$,load%,exec%,.,|
00000270  b9 29 0d 01 36 06 eb 37  0d 01 40 06 fd a3 0d 01  |.)..6..7..@.....|
00000280  4a 0b f2 65 6e 64 28 b9  29 0d 01 54 05 e0 0d 01  |J..end(.)..T....|
00000290  5e 05 3a 0d 01 68 10 dd  f2 6d 6f 76 65 5f 6f 73  |^.:..h...move_os|
000002a0  68 77 6d 0d 01 72 0c 53  25 3d 26 35 30 30 30 0d  |hwm..r.S%=&5000.|
000002b0  01 7c 20 41 25 3d 26 42  34 3a 58 25 3d 53 25 81  |.| A%=&B4:X%=S%.|
000002c0  32 35 36 3a 59 25 3d 30  3a d6 26 46 46 46 34 0d  |256:Y%=0:.&FFF4.|
000002d0  01 86 05 e1 0d 01 90 05  3a 0d 01 9a 42 dd f2 64  |........:...B..d|
000002e0  6f 77 6e 6c 6f 61 64 28  6d 61 67 61 7a 69 6e 65  |ownload(magazine|
000002f0  25 2c 70 61 67 65 25 2c  66 69 6c 65 6e 61 6d 65  |%,page%,filename|
00000300  24 2c 6c 6f 61 64 25 2c  65 78 65 63 25 2c 73 61  |$,load%,exec%,sa|
00000310  76 65 25 2c 72 65 73 65  74 25 29 0d 01 a4 24 f2  |ve%,reset%)...$.|
00000320  6f 73 63 6c 69 28 22 4d  41 47 41 5a 49 4e 45 20  |oscli("MAGAZINE |
00000330  22 2b c3 28 6d 61 67 61  7a 69 6e 65 25 29 29 0d  |"+.(magazine%)).|
00000340  01 ae 0e 73 70 61 63 65  3f 30 3d 32 34 0d 01 b8  |...space?0=24...|
00000350  27 73 70 61 63 65 3f 31  3d 6e 61 6d 65 20 83 32  |'space?1=name .2|
00000360  35 36 3a 73 70 61 63 65  3f 32 3d 6e 61 6d 65 20  |56:space?2=name |
00000370  81 32 35 36 0d 01 c2 13  24 6e 61 6d 65 3d 66 69  |.256....$name=fi|
00000380  6c 65 6e 61 6d 65 24 0d  01 cc 20 e3 66 25 3d 6e  |lename$... .f%=n|
00000390  61 6d 65 20 b8 20 6e 61  6d 65 2b a9 28 66 69 6c  |ame . name+.(fil|
000003a0  65 6e 61 6d 65 24 29 0d  01 d6 22 e7 3f 66 25 3e  |ename$)...".?f%>|
000003b0  39 36 20 80 3f 66 25 3c  31 32 33 20 3f 66 25 3d  |96 .?f%<123 ?f%=|
000003c0  28 3f 66 25 29 80 26 44  46 0d 01 e0 05 ed 0d 01  |(?f%).&DF.......|
000003d0  ea 11 73 70 61 63 65 21  33 3d 6c 6f 61 64 25 0d  |..space!3=load%.|
000003e0  01 f4 11 73 70 61 63 65  21 37 3d 65 78 65 63 25  |...space!7=exec%|
000003f0  0d 01 fe 16 73 70 61 63  65 3f 31 31 3d 6d 61 67  |....space?11=mag|
00000400  61 7a 69 6e 65 25 0d 02  08 12 73 70 61 63 65 3f  |azine%....space?|
00000410  31 32 3d 70 61 67 65 25  0d 02 12 24 e7 73 61 76  |12=page%...$.sav|
00000420  65 25 3d b9 20 73 70 61  63 65 3f 31 33 3d 31 20  |e%=. space?13=1 |
00000430  8b 20 73 70 61 63 65 3f  31 33 3d 30 0d 02 1c 25  |. space?13=0...%|
00000440  e7 72 65 73 65 74 25 3d  b9 20 73 70 61 63 65 3f  |.reset%=. space?|
00000450  31 34 3d 30 20 8b 20 73  70 61 63 65 3f 31 34 3d  |14=0 . space?14=|
00000460  31 0d 02 26 26 41 25 3d  26 37 41 3a 58 25 3d 73  |1..&&A%=&7A:X%=s|
00000470  70 61 63 65 20 83 32 35  36 3a 59 25 3d 73 70 61  |pace .256:Y%=spa|
00000480  63 65 20 81 32 35 36 0d  02 30 0a d6 26 46 46 46  |ce .256..0..&FFF|
00000490  31 0d 02 3a 05 e1 0d 02  44 05 3a 0d 02 4e 12 dd  |1..:....D.:..N..|
000004a0  f2 6f 73 63 6c 69 28 74  65 78 74 24 29 0d 02 58  |.oscli(text$)..X|
000004b0  29 24 6c 69 6e 65 3d 74  65 78 74 24 3a 58 25 3d  |)$line=text$:X%=|
000004c0  6c 69 6e 65 20 83 32 35  36 3a 59 25 3d 6c 69 6e  |line .256:Y%=lin|
000004d0  65 20 81 32 35 36 0d 02  62 0a d6 26 46 46 46 37  |e .256..b..&FFF7|
000004e0  0d 02 6c 05 e1 0d 02 76  05 3a 0d 02 80 1b dd f2  |..l....v.:......|
000004f0  68 65 61 64 69 6e 67 28  6d 61 72 6b 25 2c 66 6e  |heading(mark%,fn|
00000500  61 6d 65 24 29 0d 02 8a  14 db 3a e7 6d 61 72 6b  |ame$).....:.mark|
00000510  25 3d 31 20 e5 8d 74 5e  42 0d 02 94 60 e7 75 6e  |%=1 ..t^B...`.un|
00000520  69 74 24 3d 22 47 49 53  22 20 f1 27 bd 31 35 31  |it$="GIS" .'.151|
00000530  2b c4 33 39 2c 22 2c 22  29 2b bd 31 33 32 2b bd  |+.39,",")+.132+.|
00000540  31 35 37 2b bd 31 33 31  2b 22 42 42 43 20 54 65  |157+.131+"BBC Te|
00000550  6c 65 73 6f 66 74 77 61  72 65 20 55 74 69 6c 69  |lesoftware Utili|
00000560  74 69 65 73 22 27 bd 31  35 31 2b c4 33 39 2c 22  |ties"'.151+.39,"|
00000570  2c 22 29 3a e5 8d 64 50  42 0d 02 9e 2e f1 27 22  |,"):..dPB.....'"|
00000580  9a 91 a0 a0 fc fc fc fc  fc fc fc fc fc fc fc fc  |................|
00000590  fc fc fc fc fc fc fc fc  fc fc fc fc fc fc fc fc  |................|
000005a0  fc fc fc fc fc fc 22 0d  02 a8 2d f1 22 9a 93 a8  |......"...-."...|
000005b0  af ef ff af af a1 91 ff  ff 9e 81 9d 87 42 42 43  |.............BBC|
000005c0  20 54 65 6c 65 73 6f 66  74 77 61 72 65 91 60 9c  | Telesoftware.`.|
000005d0  ff ff ff 22 0d 02 b2 2d  f1 22 9a 93 a0 a0 fe a7  |..."...-."......|
000005e0  91 f8 fc ff ff ff 9e 81  9d 87 20 20 20 20 55 74  |..........    Ut|
000005f0  69 6c 69 74 69 65 73 20  20 20 20 91 9c ff ff ff  |ilities    .....|
00000600  22 0d 02 bc 35 f1 22 9a  93 a0 fa b7 91 e8 ff ff  |"...5.".........|
00000610  ff ff ff 9e 81 9d 83 28  43 29 42 42 43 74 76 20  |.......(C)BBCtv |
00000620  22 3b 6d 6f 6e 74 68 63  72 65 64 69 74 24 3b 22  |";monthcredit$;"|
00000630  91 9c ff ff ff 22 0d 02  c6 2d f1 22 9a 91 a0 a0  |....."...-."....|
00000640  fc fc ff ff ff ff ff ff  ff ff ff fc fc fc fc fc  |................|
00000650  fc fc fc 7c 7c fc fc fc  fc fc fc fc fc fc fc ff  |...||...........|
00000660  ff ff 22 0d 02 d0 11 f1  8a 31 2c 31 37 29 66 6e  |.."......1,17)fn|
00000670  61 6d 65 24 0d 02 da 05  e1 0d 02 e4 05 3a 0d 02  |ame$.........:..|
00000680  ee 12 dd f2 72 65 74 75  72 6e 5f 6f 73 68 77 6d  |....return_oshwm|
00000690  0d 02 f8 20 41 25 3d 26  42 34 3a 58 25 3d 90 20  |... A%=&B4:X%=. |
000006a0  81 32 35 36 3a 59 25 3d  30 3a d6 26 46 46 46 34  |.256:Y%=0:.&FFF4|
000006b0  0d 03 02 05 e1 0d 03 0c  05 3a 0d 03 16 0a dd a4  |.........:......|
000006c0  64 61 74 65 0d 03 20 0d  ea 5a 25 2c 4d 25 2c 44  |date.. ..Z%,M%,D|
000006d0  25 0d 03 2a 0f f5 3a fd  91 3e 54 25 2b 31 35 30  |%..*..:..>T%+150|
000006e0  0d 03 34 34 41 25 3d 26  37 41 3a 58 25 3d 6c 69  |..44A%=&7A:X%=li|
000006f0  6e 65 20 83 32 35 36 3a  59 25 3d 6c 69 6e 65 20  |ne .256:Y%=line |
00000700  81 32 35 36 3a 3f 6c 69  6e 65 3d 31 35 3a d6 26  |.256:?line=15:.&|
00000710  46 46 46 31 0d 03 3e 17  42 42 31 24 3d c2 c3 7e  |FFF1..>.BB1$=..~|
00000720  28 6c 69 6e 65 3f 38 29  2c 31 29 0d 03 48 2d 42  |(line?8),1)..H-B|
00000730  42 32 24 3d c3 7e 28 6c  69 6e 65 3f 39 29 3a e7  |B2$=.~(line?9):.|
00000740  20 a9 28 42 42 32 24 29  3d 31 20 42 42 32 24 3d  | .(BB2$)=1 BB2$=|
00000750  22 30 22 2b 42 42 32 24  0d 03 52 2e 42 42 33 24  |"0"+BB2$..R.BB3$|
00000760  3d c3 7e 28 6c 69 6e 65  3f 31 30 29 3a e7 20 a9  |=.~(line?10):. .|
00000770  28 42 42 33 24 29 3d 31  20 42 42 33 24 3d 22 30  |(BB3$)=1 BB3$="0|
00000780  22 2b 42 42 33 24 0d 03  5c 18 4a 44 3d bb 28 42  |"+BB3$..\.JD=.(B|
00000790  42 31 24 2b 42 42 32 24  2b 42 42 33 24 29 0d 03  |B1$+BB2$+BB3$)..|
000007a0  66 4b e7 4a 44 3c 34 37  35 36 30 20 3d 22 20 20  |fK.JD<47560 ="  |
000007b0  20 22 2b bd 31 32 39 2b  bd 31 35 37 2b bd 31 33  | "+.129+.157+.13|
000007c0  35 2b 22 43 75 72 72 65  6e 74 20 64 61 74 65 20  |5+"Current date |
000007d0  6e 6f 74 20 61 76 61 69  6c 61 62 6c 65 20 20 20  |not available   |
000007e0  20 20 20 22 2b bd 31 35  36 0d 03 70 1f 59 31 3d  |   "+.156..p.Y1=|
000007f0  28 31 30 30 2a 28 4a 44  2d 31 35 30 37 38 2e 32  |(100*(JD-15078.2|
00000800  29 29 81 33 36 35 32 35  0d 03 7a 2b 4d 31 3d a8  |)).36525..z+M1=.|
00000810  28 28 4a 44 2d 31 34 39  35 36 2e 31 2d a8 28 33  |((JD-14956.1-.(3|
00000820  36 35 2e 32 35 2a 59 31  29 29 2f 33 30 2e 36 30  |65.25*Y1))/30.60|
00000830  30 31 29 0d 03 84 3c 44  25 3d 4a 44 2d 31 34 39  |01)...<D%=JD-149|
00000840  35 36 2d a8 28 33 36 35  2e 32 35 2a 59 31 29 2d  |56-.(365.25*Y1)-|
00000850  a8 28 33 30 2e 36 2a 4d  31 29 3a 4b 3d a8 28 30  |.(30.6*M1):K=.(0|
00000860  2e 37 2b 28 31 2f 28 31  37 2d 4d 31 29 29 29 0d  |.7+(1/(17-M1))).|
00000870  03 8e 10 4d 25 3d 4d 31  2d 31 2d 31 32 2a 4b 0d  |...M%=M1-1-12*K.|
00000880  03 98 0b 5a 25 3d 59 31  2b 4b 0d 03 a2 31 57 25  |...Z%=Y1+K...1W%|
00000890  3d 28 4a 44 2b 33 29 83  37 3a f7 8d 74 6c 43 3a  |=(JD+3).7:..tlC:|
000008a0  e3 64 61 79 3d 30 b8 57  25 3a f3 44 24 3a ed 3a  |.day=0.W%:.D$:.:|
000008b0  44 24 3d 44 24 2b 22 64  61 79 22 0d 03 ac 29 dc  |D$=D$+"day"...).|
000008c0  20 53 75 6e 2c 4d 6f 6e  2c 54 75 65 73 2c 57 65  | Sun,Mon,Tues,We|
000008d0  64 6e 65 73 2c 54 68 75  72 73 2c 46 72 69 2c 53  |dnes,Thurs,Fri,S|
000008e0  61 74 75 72 0d 03 b6 1d  f7 8d 64 40 43 3a e3 64  |atur......d@C:.d|
000008f0  61 79 3d 31 b8 4d 25 3a  f3 6d 6f 6e 74 68 24 3a  |ay=1.M%:.month$:|
00000900  ed 0d 03 c0 5b dc 20 4a  61 6e 75 61 72 79 2c 46  |....[. January,F|
00000910  65 62 72 75 61 72 79 2c  4d 61 72 63 68 2c 41 70  |ebruary,March,Ap|
00000920  72 69 6c 2c 4d 61 79 2c  4a 75 6e 65 2c 4a 75 6c  |ril,May,June,Jul|
00000930  79 2c 41 75 67 75 73 74  2c 53 65 70 74 65 6d 62  |y,August,Septemb|
00000940  65 72 2c 4f 63 74 6f 62  65 72 2c 4e 6f 76 65 6d  |er,October,Novem|
00000950  62 65 72 2c 44 65 63 65  6d 62 65 72 0d 03 ca 54  |ber,December...T|
00000960  e7 44 25 3d 31 84 44 25  3d 32 31 84 44 25 3d 33  |.D%=1.D%=21.D%=3|
00000970  31 20 74 68 24 3d 22 73  74 22 20 8b e7 44 25 3d  |1 th$="st" ..D%=|
00000980  32 84 44 25 3d 32 32 20  74 68 24 3d 22 6e 64 22  |2.D%=22 th$="nd"|
00000990  20 8b e7 44 25 3d 33 84  44 25 3d 32 33 20 74 68  | ..D%=3.D%=23 th|
000009a0  24 3d 22 72 64 22 20 8b  74 68 24 3d 22 74 68 22  |$="rd" .th$="th"|
000009b0  0d 03 d4 2f 64 74 24 3d  44 24 2b 22 20 22 2b c3  |.../dt$=D$+" "+.|
000009c0  28 44 25 29 2b 74 68 24  2b 22 20 22 2b 6d 6f 6e  |(D%)+th$+" "+mon|
000009d0  74 68 24 2b 22 20 31 39  22 2b c3 28 5a 25 29 0d  |th$+" 19"+.(Z%).|
000009e0  03 de 15 73 70 61 63 65  73 25 3d 33 30 2d a9 28  |...spaces%=30-.(|
000009f0  64 74 24 29 0d 03 e8 58  3d 22 20 20 20 22 2b bd  |dt$)...X="   "+.|
00000a00  31 32 39 2b bd 31 35 37  2b bd 31 33 35 2b c4 73  |129+.157+.135+.s|
00000a10  70 61 63 65 73 25 2f 32  2c 22 20 22 29 2b 64 74  |paces%/2," ")+dt|
00000a20  24 2b c4 73 70 61 63 65  73 25 2d 28 73 70 61 63  |$+.spaces%-(spac|
00000a30  65 73 25 2f 32 29 2b 32  2b 73 70 61 63 65 73 25  |es%/2)+2+spaces%|
00000a40  83 32 2c 22 20 22 29 2b  bd 31 35 36 0d 03 f2 05  |.2," ")+.156....|
00000a50  3a 0d 03 fc 10 dd a4 77  68 69 63 68 5f 75 6e 69  |:......which_uni|
00000a60  74 0d 04 06 24 41 25 3d  26 37 41 3a 58 25 3d 6c  |t...$A%=&7A:X%=l|
00000a70  69 6e 65 20 83 32 35 36  3a 59 25 3d 6c 69 6e 65  |ine .256:Y%=line|
00000a80  20 81 32 35 36 0d 04 10  1f 6c 69 6e 65 3f 30 3d  | .256....line?0=|
00000a90  31 37 3a 6c 69 6e 65 3f  33 3d 26 46 46 3a d6 26  |17:line?3=&FF:.&|
00000aa0  46 46 46 31 0d 04 1a 1e  e7 6c 69 6e 65 3f 33 3d  |FFF1.....line?3=|
00000ab0  26 46 46 20 3d 22 41 54  53 22 20 8b 3d 22 47 49  |&FF ="ATS" .="GI|
00000ac0  53 22 0d 04 24 05 3a 0d  04 2e 0c dd f2 74 75 62  |S"..$.:......tub|
00000ad0  65 6f 6e 0d 04 38 9f f2  68 65 61 64 69 6e 67 28  |eon..8..heading(|
00000ae0  31 2c bd 31 32 37 2b bd  31 35 31 2b c4 33 39 2c  |1,.127+.151+.39,|
00000af0  22 2c 22 29 2b bd 31 32  39 2b bd 31 35 37 2b bd  |",")+.129+.157+.|
00000b00  31 33 35 2b 22 54 68 65  20 27 54 75 62 65 27 20  |135+"The 'Tube' |
00000b10  69 73 20 61 63 74 69 76  65 2e 20 50 6c 65 61 73  |is active. Pleas|
00000b20  65 20 64 69 73 61 62 6c  65 22 2b bd 31 30 2b bd  |e disable"+.10+.|
00000b30  31 33 2b bd 31 32 39 2b  bd 31 35 37 2b bd 31 33  |13+.129+.157+.13|
00000b40  35 2b 22 74 68 65 6e 20  43 48 41 49 4e 20 55 74  |5+"then CHAIN Ut|
00000b50  69 6c 73 20 61 67 61 69  6e 2e 22 2b bd 31 30 2b  |ils again."+.10+|
00000b60  bd 31 33 2b bd 31 35 31  2b c4 33 39 2c 22 2c 22  |.13+.151+.39,","|
00000b70  29 29 0d 04 42 14 ef 32  33 2c 31 2c 30 3b 30 3b  |))..B..23,1,0;0;|
00000b80  30 3b 30 3b 3a f1 0d 04  4c 05 e1 0d 04 56 05 3a  |0;0;:...L....V.:|
00000b90  0d 04 60 0c dd f2 73 65  6c 65 63 74 0d 04 6a 12  |..`...select..j.|
00000ba0  f2 68 65 61 64 69 6e 67  28 31 2c 22 22 29 0d 04  |.heading(1,"")..|
00000bb0  74 0b f1 8a 30 2c 36 29  3b 0d 04 7e 0a f7 20 8d  |t...0,6);..~.. .|
00000bc0  54 6c 46 0d 04 88 0a f3  20 71 74 79 25 0d 04 92  |TlF..... qty%...|
00000bd0  0a f1 a4 64 61 74 65 0d  04 9c 3d e7 4a 44 3e 65  |...date...=.JD>e|
00000be0  78 70 69 72 79 20 f1 22  88 81 4f 55 54 20 4f 46  |xpiry ."..OUT OF|
00000bf0  20 44 41 54 45 20 2d 89  44 6f 77 6e 6c 6f 61 64  | DATE -.Download|
00000c00  20 6e 65 77 20 55 54 49  4c 53 20 66 69 6c 65 22  | new UTILS file"|
00000c10  3b 3a 8b f1 0d 04 a6 0a  f7 20 8d 54 76 46 0d 04  |;:....... .TvF..|
00000c20  b0 0f e3 6e 6f 25 3d 31  b8 71 74 79 25 0d 04 ba  |...no%=1.qty%...|
00000c30  33 f3 66 6e 24 2c 6e 61  6d 65 24 2c 63 6f 6d 6d  |3.fn$,name$,comm|
00000c40  65 6e 74 24 2c 74 79 70  65 24 2c 6c 6f 61 64 25  |ent$,type$,load%|
00000c50  2c 65 78 65 63 25 2c 6d  61 67 25 2c 70 61 67 25  |,exec%,mag%,pag%|
00000c60  0d 04 c4 39 e7 70 61 67  25 3d 26 46 46 20 f1 22  |...9.pag%=&FF ."|
00000c70  20 20 20 20 22 3b 3a 8b  f1 22 83 22 3b c2 22 20  |    ";:..".";." |
00000c80  20 22 2b c3 28 6e 6f 25  29 2c 32 29 3b bd 28 63  | "+.(no%),2);.(c|
00000c90  6f 6c 28 6e 6f 25 29 29  3b 0d 04 ce 4a f1 c0 6e  |ol(no%));...J..n|
00000ca0  61 6d 65 24 2b c4 31 30  2c 22 20 22 29 2c 31 30  |ame$+.10," "),10|
00000cb0  29 3b 22 87 22 3b c0 63  6f 6d 6d 65 6e 74 24 2b  |);".";.comment$+|
00000cc0  c4 31 39 2c 22 20 22 29  2c 31 39 29 3b 22 20 22  |.19," "),19);" "|
00000cd0  3b c0 74 79 70 65 24 2b  c4 35 2c 22 20 22 29 2c  |;.type$+.5," "),|
00000ce0  35 29 3b 0d 04 d8 13 e7  70 61 67 25 3d 26 46 46  |5);.....pag%=&FF|
00000cf0  20 e5 8d 74 7a 44 0d 04  e2 05 ed 0d 04 ec 31 e8  | ..tzD........1.|
00000d00  8a 32 2c 32 33 29 22 81  9d 87 45 6e 74 65 72 20  |.2,23)"...Enter |
00000d10  6e 75 6d 62 65 72 20 6f  66 20 66 69 6c 65 20 72  |number of file r|
00000d20  65 71 75 69 72 65 64 3a  22 6e 6f 25 0d 04 f6 2c  |equired:"no%...,|
00000d30  e7 6e 6f 25 3c 31 20 84  20 6e 6f 25 3e 71 74 79  |.no%<1 . no%>qty|
00000d40  25 20 ef 37 3a f1 8a 31  2c 32 33 29 89 28 33 39  |% .7:..1,23).(39|
00000d50  29 3b 3a e5 8d 64 6c 44  0d 05 00 0a f7 20 8d 54  |);:..dlD..... .T|
00000d60  76 46 0d 05 0a 0d e3 61  25 3d 31 b8 6e 6f 25 0d  |vF.....a%=1.no%.|
00000d70  05 14 33 f3 66 6e 24 2c  6e 61 6d 65 24 2c 63 6f  |..3.fn$,name$,co|
00000d80  6d 6d 65 6e 74 24 2c 74  79 70 65 24 2c 6c 6f 61  |mment$,type$,loa|
00000d90  64 25 2c 65 78 65 63 25  2c 6d 61 67 25 2c 70 61  |d%,exec%,mag%,pa|
00000da0  67 25 0d 05 1e 13 e7 70  61 67 25 3d 26 46 46 20  |g%.....pag%=&FF |
00000db0  e5 8d 54 54 45 0d 05 28  05 ed 0d 05 32 10 63 6f  |..TTE..(....2.co|
00000dc0  6c 28 6e 6f 25 29 3d 31  32 39 0d 05 3c 05 e1 0d  |l(no%)=129..<...|
00000dd0  05 46 05 3a 0d 05 50 11  f4 22 81 45 72 72 6f 72  |.F.:..P..".Error|
00000de0  20 74 72 61 70 0d 05 5a  0f dd f2 65 6e 64 28 65  | trap..Z...end(e|
00000df0  72 72 25 29 0d 05 64 0b  ee 85 e5 8d 74 60 45 0d  |rr%)..d.....t`E.|
00000e00  05 6e 63 e7 65 72 72 25  3d 32 35 34 3a f2 68 65  |.nc.err%=254:.he|
00000e10  61 64 69 6e 67 28 31 2c  22 83 55 6e 72 65 63 6f  |ading(1,".Unreco|
00000e20  67 6e 69 73 65 64 20 63  6f 6d 6d 61 6e 64 20 66  |gnised command f|
00000e30  6f 75 6e 64 22 2b bd 31  30 2b bd 31 33 2b 22 20  |ound"+.10+.13+" |
00000e40  83 49 73 20 74 68 65 20  61 64 61 70 74 6f 72 20  |.Is the adaptor |
00000e50  74 75 72 6e 65 64 20 6f  6e 3f 22 29 3a e5 8d 74  |turned on?"):..t|
00000e60  60 45 0d 05 78 0b 2a 54  54 58 4f 46 46 0d 05 82  |`E..x.*TTXOFF...|
00000e70  07 ef 32 36 0d 05 8c 12  f2 68 65 61 64 69 6e 67  |..26.....heading|
00000e80  28 31 2c 22 22 29 0d 05  96 12 e7 65 72 72 25 3d  |(1,"").....err%=|
00000e90  2d 31 20 e5 8d 64 70 45  0d 05 a0 12 e7 65 72 72  |-1 ..dpE.....err|
00000ea0  25 3d 31 37 20 e5 8d 64  5c 45 0d 05 aa 24 f1 8a  |%=17 ..d\E...$..|
00000eb0  30 2c 31 39 29 89 28 34  30 29 3b bd 31 35 31 3b  |0,19).(40);.151;|
00000ec0  c4 33 39 2c 22 2c 22 29  3b 89 28 34 30 29 0d 05  |.39,",");.(40)..|
00000ed0  b4 24 f1 8a 30 2c 32 31  29 22 83 45 72 72 6f 72  |.$..0,21)".Error|
00000ee0  3a 22 3b bd 31 32 39 3b  bd 31 35 37 3b bd 31 33  |:";.129;.157;.13|
00000ef0  35 3b 0d 05 be 1b 73 74  25 3d 28 28 3f 26 46 45  |5;....st%=((?&FE|
00000f00  29 2a 32 35 36 29 2b 28  3f 26 46 44 29 0d 05 c8  |)*256)+(?&FD)...|
00000f10  47 65 72 72 65 70 25 3d  73 74 25 3a f5 3a 65 72  |Gerrep%=st%:.:er|
00000f20  72 65 70 25 3d 65 72 72  65 70 25 2b 31 3a ef 3f  |rep%=errep%+1:.?|
00000f30  28 65 72 72 65 70 25 29  3a fd 20 3f 65 72 72 65  |(errep%):. ?erre|
00000f40  70 25 3d 30 20 84 20 65  72 72 65 70 25 3d 73 74  |p%=0 . errep%=st|
00000f50  25 2b 33 30 0d 05 d2 23  f1 22 20 20 22 3b bd 31  |%+30...#."  ";.1|
00000f60  35 36 27 bd 31 35 31 3b  c4 33 39 2c 22 2c 22 29  |56'.151;.39,",")|
00000f70  3b 89 28 34 30 29 3b 0d  05 dc 11 f2 72 65 74 75  |;.(40);.....retu|
00000f80  72 6e 5f 6f 73 68 77 6d  0d 05 e6 08 d3 3d 48 25  |rn_oshwm.....=H%|
00000f90  0d 05 f0 1a ef 32 33 2c  31 2c 31 3b 30 3b 30 3b  |.....23,1,1;0;0;|
00000fa0  30 3b 3a f1 8a 30 2c 37  29 3b 0d 05 fa 0c 2a 46  |0;:..0,7);....*F|
00000fb0  58 32 32 39 2c 30 0d 06  04 08 2a 46 58 34 0d 06  |X229,0....*FX4..|
00000fc0  0e 05 e0 0d 06 18 05 3a  0d 06 22 1b f4 22 81 4e  |.......:.."..".N|
00000fd0  6f 2e 20 6f 66 20 41 43  54 55 41 4c 20 66 69 6c  |o. of ACTUAL fil|
00000fe0  65 73 3a 0d 06 2c 08 dc  20 31 32 0d 06 36 1d f4  |es:..,.. 12..6..|
00000ff0  22 81 52 45 53 54 4f 52  45 20 63 6f 6d 65 73 20  |".RESTORE comes |
00001000  74 6f 20 68 65 72 65 21  0d 06 40 36 dc 22 22 2c  |to here!..@6."",|
00001010  22 83 53 61 74 65 6c 6c  69 74 65 22 2c 22 83 53  |".Satellite",".S|
00001020  65 72 76 69 63 65 20 53  6f 66 74 77 61 72 65 3a  |ervice Software:|
00001030  22 2c 22 22 2c 30 2c 30  2c 37 2c 26 46 46 0d 06  |","",0,0,7,&FF..|
00001040  4a 3c dc 22 53 5f 47 75  69 64 65 22 2c 22 53 5f  |J<."S_Guide","S_|
00001050  47 75 69 64 65 22 2c 22  42 72 69 65 66 20 55 73  |Guide","Brief Us|
00001060  65 72 20 47 75 69 64 65  22 2c 22 54 65 78 74 22  |er Guide","Text"|
00001070  2c 30 2c 30 2c 37 2c 26  44 41 0d 06 54 3c dc 22  |,0,0,7,&DA..T<."|
00001080  53 6d 61 6e 75 61 6c 22  2c 22 53 61 74 6d 61 6e  |Smanual","Satman|
00001090  75 61 6c 22 2c 22 53 79  73 74 65 6d 20 4d 61 6e  |ual","System Man|
000010a0  75 61 6c 22 2c 22 56 65  72 2e 32 22 2c 30 2c 30  |ual","Ver.2",0,0|
000010b0  2c 37 2c 26 44 41 0d 06  5e 4a dc 22 53 41 54 6c  |,7,&DA..^J."SATl|
000010c0  6f 61 64 22 2c 22 53 61  74 4c 6f 61 64 65 72 22  |oad","SatLoader"|
000010d0  2c 22 53 61 74 65 6c 6c  69 74 65 20 46 69 6c 65  |,"Satellite File|
000010e0  20 44 27 4c 64 22 2c 22  42 41 53 49 43 22 2c 26  | D'Ld","BASIC",&|
000010f0  31 39 30 30 2c 26 38 30  31 46 2c 37 2c 26 44 41  |1900,&801F,7,&DA|
00001100  0d 06 68 4b dc 22 44 69  73 70 6c 61 79 22 2c 22  |..hK."Display","|
00001110  53 61 74 44 69 73 70 6c  61 79 22 2c 22 53 61 74  |SatDisplay","Sat|
00001120  2e 44 69 73 70 6c 61 79  20 43 72 65 61 74 6f 72  |.Display Creator|
00001130  22 2c 22 42 41 53 49 43  22 2c 26 31 39 30 30 2c  |","BASIC",&1900,|
00001140  26 38 30 32 33 2c 37 2c  26 44 41 0d 06 72 46 dc  |&8023,7,&DA..rF.|
00001150  22 53 41 54 73 65 71 22  2c 22 53 61 74 53 65 71  |"SATseq","SatSeq|
00001160  27 6e 63 65 22 2c 22 49  6d 61 67 65 20 73 65 71  |'nce","Image seq|
00001170  75 65 6e 63 65 72 22 2c  22 56 32 2e 31 38 22 2c  |uencer","V2.18",|
00001180  26 31 39 30 30 2c 26 38  30 31 46 2c 37 2c 26 44  |&1900,&801F,7,&D|
00001190  41 0d 06 86 52 dc 22 41  72 63 4f 76 65 72 22 2c  |A...R."ArcOver",|
000011a0  22 41 72 63 4f 76 65 72  6c 61 79 22 2c 22 41 72  |"ArcOverlay","Ar|
000011b0  63 68 69 6d 65 64 65 73  20 64 69 73 70 6c 61 79  |chimedes display|
000011c0  22 2c 22 42 41 53 49 43  22 2c 26 46 46 46 46 46  |","BASIC",&FFFFF|
000011d0  42 34 31 2c 26 38 37 37  46 31 30 32 41 2c 37 2c  |B41,&877F102A,7,|
000011e0  26 44 41 0d 06 8b 3d dc  22 41 74 6c 4c 6e 64 22  |&DA...=."AtlLnd"|
000011f0  2c 22 41 74 6c 4c 61 6e  64 22 2c 22 41 74 6c 61  |,"AtlLand","Atla|
00001200  6e 74 69 63 20 6c 61 6e  64 20 6d 61 73 73 22 2c  |ntic land mass",|
00001210  22 44 61 74 61 22 2c 30  2c 30 2c 37 2c 26 44 41  |"Data",0,0,7,&DA|
00001220  0d 06 90 1a dc 22 22 2c  22 22 2c 22 22 2c 22 22  |....."","","",""|
00001230  2c 30 2c 30 2c 37 2c 26  46 46 0d 06 9a 2f dc 22  |,0,0,7,&FF.../."|
00001240  22 2c 22 83 41 54 53 20  52 4f 4d 20 26 22 2c 22  |",".ATS ROM &","|
00001250  83 75 74 69 6c 69 74 69  65 73 3a 22 2c 22 22 2c  |.utilities:","",|
00001260  30 2c 30 2c 37 2c 26 46  46 0d 06 c2 48 dc 22 41  |0,0,7,&FF...H."A|
00001270  63 6e 2f 41 54 53 22 2c  22 41 63 6f 72 6e 20 41  |cn/ATS","Acorn A|
00001280  54 53 22 2c 22 41 54 53  20 52 4f 4d 20 66 6f 72  |TS","ATS ROM for|
00001290  20 41 63 6f 72 6e 22 2c  22 56 65 72 2e 33 22 2c  | Acorn","Ver.3",|
000012a0  26 38 30 30 30 2c 26 38  30 30 30 2c 37 2c 26 44  |&8000,&8000,7,&D|
000012b0  42 0d 06 cc 3f dc 22 41  2f 49 6e 66 6f 22 2c 22  |B...?."A/Info","|
000012c0  41 2f 49 6e 66 6f 22 2c  22 41 54 53 20 52 4f 4d  |A/Info","ATS ROM|
000012d0  20 64 65 74 61 69 6c 73  2d 41 63 6e 22 2c 22 54  | details-Acn","T|
000012e0  65 78 74 22 2c 26 30 2c  26 30 2c 37 2c 26 44 42  |ext",&0,&0,7,&DB|
000012f0  0d 06 d6 48 dc 22 47 49  53 2f 41 54 53 22 2c 22  |...H."GIS/ATS","|
00001300  47 49 53 20 41 54 53 22  2c 22 41 54 53 20 52 4f  |GIS ATS","ATS RO|
00001310  4d 20 66 6f 72 20 47 49  53 20 41 54 52 22 2c 22  |M for GIS ATR","|
00001320  56 65 72 2e 32 22 2c 26  38 30 30 30 2c 26 38 30  |Ver.2",&8000,&80|
00001330  30 30 2c 37 2c 26 44 42  0d 06 e0 43 dc 22 47 2f  |00,7,&DB...C."G/|
00001340  49 6e 66 6f 22 2c 22 47  2f 49 6e 66 6f 22 2c 22  |Info","G/Info","|
00001350  41 54 53 20 52 4f 4d 20  64 65 74 61 69 6c 73 2d  |ATS ROM details-|
00001360  47 49 53 20 41 54 52 22  2c 22 54 65 78 74 22 2c  |GIS ATR","Text",|
00001370  26 30 2c 26 30 2c 37 2c  26 44 42 0d 06 ea 42 dc  |&0,&0,7,&DB...B.|
00001380  22 54 54 58 50 72 6e 74  22 2c 22 54 54 58 50 72  |"TTXPrnt","TTXPr|
00001390  69 6e 74 22 2c 22 41 54  53 20 50 61 67 65 20 50  |int","ATS Page P|
000013a0  72 69 6e 74 65 72 22 2c  22 4d 2f 43 22 2c 26 41  |rinter","M/C",&A|
000013b0  30 30 2c 26 41 30 30 2c  37 2c 26 44 41 0d ff     |00,&A00,7,&DA..|
000013bf