�"�Utils
:
�"�(C) Jeremy Brayshaw
(�"�February 1989
2�"�V.2 17 Mar 89
<�"�For use with ATS & ATS+
F:
P�7:H%=�:�=&5000
Z:
d:
nexpiry=47616:� 31 March 89
x2monthcredit$="March 89":� Exactly 8 characters
�:
�:
�6A%=&EA:X%=0:Y%=-1:�(�(&FFF4)�&FFFF)�&100:�tubeon:�
�� � �end(�)
��23,1,0;0;0;0;
�
*TTXON
�	*BBC2
�*HON
��move_oshwm
�:
�� space 20,name 12,line 15
�unit$=�which_unit
��select

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

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

�7

"�end(�)

,�

6:

@��move_oshwm

JS%=&5000

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

^�

h:

rB��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

�&FFF1
�
:
&��oscli(text$)
0)$line=text$:X%=line �256:Y%=line �256
:
�&FFF7
D�
N:
X��heading(mark%,fname$)
b�:�mark%=1 �DvB
l`�unit$="GIS" �'�151+�39,",")+�132+�157+�131+"BBC Telesoftware Utilities"'�151+�39,","):�thB
v.�'"��������������������������������������"
�-�"��������������BBC Telesoftware�`����"
�-�"����������������    Utilities    �����"
�5�"��������������(C)BBCtv ";monthcredit$;"�����"
�-�"�����������������������||�������������"
��1,17)fname$
��
�:
���return_oshwm
� A%=&B4:X%=� �256:Y%=0:�&FFF4
��
�:
�
ݤdate
�
�Z%,M%,D%
4A%=&7A:X%=line �256:Y%=line �256:?line=15:�&FFF1
BB1$=��~(line?8),1)
-BB2$=�~(line?9):� �(BB2$)=1 BB2$="0"+BB2$
 .BB3$=�~(line?10):� �(BB3$)=1 BB3$="0"+BB3$
*JD=�(BB1$+BB2$+BB3$)
4K�JD<47560 ="   "+�129+�157+�135+"Current date not available      "+�156
>Y1=(100*(JD-15078.2))�36525
H+M1=�((JD-14956.1-�(365.25*Y1))/30.6001)
R<D%=JD-14956-�(365.25*Y1)-�(30.6*M1):K=�(0.7+(1/(17-M1)))
\M%=M1-1-12*K
fZ%=Y1+K
p1W%=(JD+3)�7:��DzC:�day=0�W%:�D$:�:D$=D$+"day"
z)� Sun,Mon,Tues,Wednes,Thurs,Fri,Satur
���tNC:�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%)
�2="   "+�129+�157+�135+dt$+�32-�(dt$)," ")+�156
�:
�ݤwhich_unit
�$A%=&7A:X%=line �256:Y%=line �256
�line?0=17:line?3=&FF:�&FFF1
��line?3=&FF ="ATS" �="GIS"
�:
���tubeon
���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,","))
�23,1,0;0;0;0;:�
�
:
$��select
.�heading(1,"")
8�0,6);
B
� �d\E
L
� qty%
V
�date
`=�JD>expiry �"��OUT OF DATE -�Download new UTILS file";:��
j
� �dfE
t�no%=1�qty%
~3�fn$,name$,comment$,type$,load%,exec%,mag%,pag%
�1�pag%=&FF �"    ";:��"�";�"  "+�(no%),2);"�";
�J�name$+�10," "),10);"�";�comment$+�19," "),19);" ";�type$+�5," "),5);
��pag%=&FF �D~D
��
�1�2,23)"���Enter number of file required:"no%
�,�no%<1 � no%>qty% �7:�1,23)�(39);:�tpD
�
� �dfE
�
�a%=1�no%
�3�fn$,name$,comment$,type$,load%,exec%,mag%,pag%
��pag%=&FF �dXD
��
��
:

�"�Error trap
��end(err%)
��DZE
(c�err%=254:�heading(1,"�Unrecognised command found"+�10+�13+" �Is the adaptor turned on?"):�DZE
2*TTXOFF
<�26
F�heading(1,"")
P�err%=-1 �t`E
Z$�0,19)�(40);�151;�39,",");�(40)
d$�0,21)"�Error:";�129;�157;�135;
nst%=((?&FE)*256)+(?&FD)
xGerrep%=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:
�� 9
��"�RESTORE comes to here!
�6�"","�Satellite","�Service Software:","",0,0,7,&FF
�<�"S/Guide","S/Guide","Brief User Guide","Text",0,0,7,&DA
<�"Smanual","Satmanual","System Manual","Ver.2",0,0,7,&DA
J�"SATload","SatLoader","Satellite File D'Ld","BASIC",&1900,&801F,7,&DA
"F�"SATseq","SatSeq'nce","Image sequencer","V2.18",&1900,&801F,7,&DA
,K�"Display","SatDisplay","Sat.Display Creator","BASIC",&1900,&8023,7,&DA
1E�"SatShow","SatShow","Read file header","BASIC",&1900,&8023,7,&DA
6R�"ArcOver","ArcOverlay","Archimedes display","BASIC",&FFFFFB41,&877F102A,7,&DA
J�"","","","",0,0,7,&FF
T"�"","�Others:","","",0,0,7,&FF
^B�"TTXPrnt","TTXPrint","ATS Page Printer","M/C",&A00,&A00,7,&DA
rD�"Shares2","SharUpdate","SHARES prog updates","Text",&0,&0,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  32 20 31 37 20 4d 61 72  |.2..".V.2 17 Mar|
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 1e 65  78 70 69 72 79 3d 34 37  |d.:..n.expiry=47|
000000a0  36 31 36 3a f4 20 33 31  20 4d 61 72 63 68 20 38  |616:. 31 March 8|
000000b0  39 0d 00 78 32 6d 6f 6e  74 68 63 72 65 64 69 74  |9..x2monthcredit|
000000c0  24 3d 22 4d 61 72 63 68  20 38 39 22 3a f4 20 45  |$="March 89":. E|
000000d0  78 61 63 74 6c 79 20 38  20 63 68 61 72 61 63 74  |xactly 8 charact|
000000e0  65 72 73 0d 00 82 05 3a  0d 00 8c 05 3a 0d 00 96  |ers....:....:...|
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 2a 48 4f 4e 0d  |..*BBC2....*HON.|
00000160  00 d2 0f f2 6d 6f 76 65  5f 6f 73 68 77 6d 0d 00  |....move_oshwm..|
00000170  dc 05 3a 0d 00 e6 1e de  20 73 70 61 63 65 20 32  |..:..... space 2|
00000180  30 2c 6e 61 6d 65 20 31  32 2c 6c 69 6e 65 20 31  |0,name 12,line 1|
00000190  35 0d 00 f0 15 75 6e 69  74 24 3d a4 77 68 69 63  |5....unit$=.whic|
000001a0  68 5f 75 6e 69 74 0d 00  fa 0b f2 73 65 6c 65 63  |h_unit.....selec|
000001b0  74 0d 01 04 35 f2 68 65  61 64 69 6e 67 28 32 2c  |t...5.heading(2,|
000001c0  22 87 46 69 6c 65 3a 86  22 2b 6e 61 6d 65 24 2b  |".File:."+name$+|
000001d0  bd 31 30 2b bd 31 33 2b  22 20 83 22 2b 63 6f 6d  |.10+.13+" ."+com|
000001e0  6d 65 6e 74 24 29 0d 01  0e 2c f2 64 6f 77 6e 6c  |ment$)...,.downl|
000001f0  6f 61 64 28 6d 61 67 25  2c 70 61 67 25 2c 66 6e  |oad(mag%,pag%,fn|
00000200  24 2c 6c 6f 61 64 25 2c  65 78 65 63 25 2c b9 2c  |$,load%,exec%,.,|
00000210  b9 29 0d 01 18 06 eb 37  0d 01 22 0b f2 65 6e 64  |.).....7.."..end|
00000220  28 b9 29 0d 01 2c 05 e0  0d 01 36 05 3a 0d 01 40  |(.)..,....6.:..@|
00000230  10 dd f2 6d 6f 76 65 5f  6f 73 68 77 6d 0d 01 4a  |...move_oshwm..J|
00000240  0c 53 25 3d 26 35 30 30  30 0d 01 54 20 41 25 3d  |.S%=&5000..T A%=|
00000250  26 42 34 3a 58 25 3d 53  25 81 32 35 36 3a 59 25  |&B4:X%=S%.256:Y%|
00000260  3d 30 3a d6 26 46 46 46  34 0d 01 5e 05 e1 0d 01  |=0:.&FFF4..^....|
00000270  68 05 3a 0d 01 72 42 dd  f2 64 6f 77 6e 6c 6f 61  |h.:..rB..downloa|
00000280  64 28 6d 61 67 61 7a 69  6e 65 25 2c 70 61 67 65  |d(magazine%,page|
00000290  25 2c 66 69 6c 65 6e 61  6d 65 24 2c 6c 6f 61 64  |%,filename$,load|
000002a0  25 2c 65 78 65 63 25 2c  73 61 76 65 25 2c 72 65  |%,exec%,save%,re|
000002b0  73 65 74 25 29 0d 01 7c  24 f2 6f 73 63 6c 69 28  |set%)..|$.oscli(|
000002c0  22 4d 41 47 41 5a 49 4e  45 20 22 2b c3 28 6d 61  |"MAGAZINE "+.(ma|
000002d0  67 61 7a 69 6e 65 25 29  29 0d 01 86 0e 73 70 61  |gazine%))....spa|
000002e0  63 65 3f 30 3d 32 34 0d  01 90 27 73 70 61 63 65  |ce?0=24...'space|
000002f0  3f 31 3d 6e 61 6d 65 20  83 32 35 36 3a 73 70 61  |?1=name .256:spa|
00000300  63 65 3f 32 3d 6e 61 6d  65 20 81 32 35 36 0d 01  |ce?2=name .256..|
00000310  9a 13 24 6e 61 6d 65 3d  66 69 6c 65 6e 61 6d 65  |..$name=filename|
00000320  24 0d 01 a4 20 e3 66 25  3d 6e 61 6d 65 20 b8 20  |$... .f%=name . |
00000330  6e 61 6d 65 2b a9 28 66  69 6c 65 6e 61 6d 65 24  |name+.(filename$|
00000340  29 0d 01 ae 22 e7 3f 66  25 3e 39 36 20 80 3f 66  |)...".?f%>96 .?f|
00000350  25 3c 31 32 33 20 3f 66  25 3d 28 3f 66 25 29 80  |%<123 ?f%=(?f%).|
00000360  26 44 46 0d 01 b8 05 ed  0d 01 c2 11 73 70 61 63  |&DF.........spac|
00000370  65 21 33 3d 6c 6f 61 64  25 0d 01 cc 11 73 70 61  |e!3=load%....spa|
00000380  63 65 21 37 3d 65 78 65  63 25 0d 01 d6 16 73 70  |ce!7=exec%....sp|
00000390  61 63 65 3f 31 31 3d 6d  61 67 61 7a 69 6e 65 25  |ace?11=magazine%|
000003a0  0d 01 e0 12 73 70 61 63  65 3f 31 32 3d 70 61 67  |....space?12=pag|
000003b0  65 25 0d 01 ea 24 e7 73  61 76 65 25 3d b9 20 73  |e%...$.save%=. s|
000003c0  70 61 63 65 3f 31 33 3d  31 20 8b 20 73 70 61 63  |pace?13=1 . spac|
000003d0  65 3f 31 33 3d 30 0d 01  f4 25 e7 72 65 73 65 74  |e?13=0...%.reset|
000003e0  25 3d b9 20 73 70 61 63  65 3f 31 34 3d 30 20 8b  |%=. space?14=0 .|
000003f0  20 73 70 61 63 65 3f 31  34 3d 31 0d 01 fe 26 41  | space?14=1...&A|
00000400  25 3d 26 37 41 3a 58 25  3d 73 70 61 63 65 20 83  |%=&7A:X%=space .|
00000410  32 35 36 3a 59 25 3d 73  70 61 63 65 20 81 32 35  |256:Y%=space .25|
00000420  36 0d 02 08 0a d6 26 46  46 46 31 0d 02 12 05 e1  |6.....&FFF1.....|
00000430  0d 02 1c 05 3a 0d 02 26  12 dd f2 6f 73 63 6c 69  |....:..&...oscli|
00000440  28 74 65 78 74 24 29 0d  02 30 29 24 6c 69 6e 65  |(text$)..0)$line|
00000450  3d 74 65 78 74 24 3a 58  25 3d 6c 69 6e 65 20 83  |=text$:X%=line .|
00000460  32 35 36 3a 59 25 3d 6c  69 6e 65 20 81 32 35 36  |256:Y%=line .256|
00000470  0d 02 3a 0a d6 26 46 46  46 37 0d 02 44 05 e1 0d  |..:..&FFF7..D...|
00000480  02 4e 05 3a 0d 02 58 1b  dd f2 68 65 61 64 69 6e  |.N.:..X...headin|
00000490  67 28 6d 61 72 6b 25 2c  66 6e 61 6d 65 24 29 0d  |g(mark%,fname$).|
000004a0  02 62 14 db 3a e7 6d 61  72 6b 25 3d 31 20 e5 8d  |.b..:.mark%=1 ..|
000004b0  44 76 42 0d 02 6c 60 e7  75 6e 69 74 24 3d 22 47  |DvB..l`.unit$="G|
000004c0  49 53 22 20 f1 27 bd 31  35 31 2b c4 33 39 2c 22  |IS" .'.151+.39,"|
000004d0  2c 22 29 2b bd 31 33 32  2b bd 31 35 37 2b bd 31  |,")+.132+.157+.1|
000004e0  33 31 2b 22 42 42 43 20  54 65 6c 65 73 6f 66 74  |31+"BBC Telesoft|
000004f0  77 61 72 65 20 55 74 69  6c 69 74 69 65 73 22 27  |ware Utilities"'|
00000500  bd 31 35 31 2b c4 33 39  2c 22 2c 22 29 3a e5 8d  |.151+.39,","):..|
00000510  74 68 42 0d 02 76 2e f1  27 22 9a 91 a0 a0 fc fc  |thB..v..'"......|
00000520  fc fc fc fc fc fc fc fc  fc fc fc fc fc fc fc fc  |................|
*
00000540  22 0d 02 80 2d f1 22 9a  93 a8 af ef ff af af a1  |"...-.".........|
00000550  91 ff ff 9e 81 9d 87 42  42 43 20 54 65 6c 65 73  |.......BBC Teles|
00000560  6f 66 74 77 61 72 65 91  60 9c ff ff ff 22 0d 02  |oftware.`...."..|
00000570  8a 2d f1 22 9a 93 a0 a0  fe a7 91 f8 fc ff ff ff  |.-."............|
00000580  9e 81 9d 87 20 20 20 20  55 74 69 6c 69 74 69 65  |....    Utilitie|
00000590  73 20 20 20 20 91 9c ff  ff ff 22 0d 02 94 35 f1  |s    ....."...5.|
000005a0  22 9a 93 a0 fa b7 91 e8  ff ff ff ff ff 9e 81 9d  |"...............|
000005b0  83 28 43 29 42 42 43 74  76 20 22 3b 6d 6f 6e 74  |.(C)BBCtv ";mont|
000005c0  68 63 72 65 64 69 74 24  3b 22 91 9c ff ff ff 22  |hcredit$;"....."|
000005d0  0d 02 9e 2d f1 22 9a 91  a0 a0 fc fc ff ff ff ff  |...-."..........|
000005e0  ff ff ff ff ff fc fc fc  fc fc fc fc fc 7c 7c fc  |.............||.|
000005f0  fc fc fc fc fc fc fc fc  fc ff ff ff 22 0d 02 a8  |............"...|
00000600  11 f1 8a 31 2c 31 37 29  66 6e 61 6d 65 24 0d 02  |...1,17)fname$..|
00000610  b2 05 e1 0d 02 bc 05 3a  0d 02 c6 12 dd f2 72 65  |.......:......re|
00000620  74 75 72 6e 5f 6f 73 68  77 6d 0d 02 d0 20 41 25  |turn_oshwm... A%|
00000630  3d 26 42 34 3a 58 25 3d  90 20 81 32 35 36 3a 59  |=&B4:X%=. .256:Y|
00000640  25 3d 30 3a d6 26 46 46  46 34 0d 02 da 05 e1 0d  |%=0:.&FFF4......|
00000650  02 e4 05 3a 0d 02 ee 0a  dd a4 64 61 74 65 0d 02  |...:......date..|
00000660  f8 0d ea 5a 25 2c 4d 25  2c 44 25 0d 03 02 34 41  |...Z%,M%,D%...4A|
00000670  25 3d 26 37 41 3a 58 25  3d 6c 69 6e 65 20 83 32  |%=&7A:X%=line .2|
00000680  35 36 3a 59 25 3d 6c 69  6e 65 20 81 32 35 36 3a  |56:Y%=line .256:|
00000690  3f 6c 69 6e 65 3d 31 35  3a d6 26 46 46 46 31 0d  |?line=15:.&FFF1.|
000006a0  03 0c 17 42 42 31 24 3d  c2 c3 7e 28 6c 69 6e 65  |...BB1$=..~(line|
000006b0  3f 38 29 2c 31 29 0d 03  16 2d 42 42 32 24 3d c3  |?8),1)...-BB2$=.|
000006c0  7e 28 6c 69 6e 65 3f 39  29 3a e7 20 a9 28 42 42  |~(line?9):. .(BB|
000006d0  32 24 29 3d 31 20 42 42  32 24 3d 22 30 22 2b 42  |2$)=1 BB2$="0"+B|
000006e0  42 32 24 0d 03 20 2e 42  42 33 24 3d c3 7e 28 6c  |B2$.. .BB3$=.~(l|
000006f0  69 6e 65 3f 31 30 29 3a  e7 20 a9 28 42 42 33 24  |ine?10):. .(BB3$|
00000700  29 3d 31 20 42 42 33 24  3d 22 30 22 2b 42 42 33  |)=1 BB3$="0"+BB3|
00000710  24 0d 03 2a 18 4a 44 3d  bb 28 42 42 31 24 2b 42  |$..*.JD=.(BB1$+B|
00000720  42 32 24 2b 42 42 33 24  29 0d 03 34 4b e7 4a 44  |B2$+BB3$)..4K.JD|
00000730  3c 34 37 35 36 30 20 3d  22 20 20 20 22 2b bd 31  |<47560 ="   "+.1|
00000740  32 39 2b bd 31 35 37 2b  bd 31 33 35 2b 22 43 75  |29+.157+.135+"Cu|
00000750  72 72 65 6e 74 20 64 61  74 65 20 6e 6f 74 20 61  |rrent date not a|
00000760  76 61 69 6c 61 62 6c 65  20 20 20 20 20 20 22 2b  |vailable      "+|
00000770  bd 31 35 36 0d 03 3e 1f  59 31 3d 28 31 30 30 2a  |.156..>.Y1=(100*|
00000780  28 4a 44 2d 31 35 30 37  38 2e 32 29 29 81 33 36  |(JD-15078.2)).36|
00000790  35 32 35 0d 03 48 2b 4d  31 3d a8 28 28 4a 44 2d  |525..H+M1=.((JD-|
000007a0  31 34 39 35 36 2e 31 2d  a8 28 33 36 35 2e 32 35  |14956.1-.(365.25|
000007b0  2a 59 31 29 29 2f 33 30  2e 36 30 30 31 29 0d 03  |*Y1))/30.6001)..|
000007c0  52 3c 44 25 3d 4a 44 2d  31 34 39 35 36 2d a8 28  |R<D%=JD-14956-.(|
000007d0  33 36 35 2e 32 35 2a 59  31 29 2d a8 28 33 30 2e  |365.25*Y1)-.(30.|
000007e0  36 2a 4d 31 29 3a 4b 3d  a8 28 30 2e 37 2b 28 31  |6*M1):K=.(0.7+(1|
000007f0  2f 28 31 37 2d 4d 31 29  29 29 0d 03 5c 10 4d 25  |/(17-M1)))..\.M%|
00000800  3d 4d 31 2d 31 2d 31 32  2a 4b 0d 03 66 0b 5a 25  |=M1-1-12*K..f.Z%|
00000810  3d 59 31 2b 4b 0d 03 70  31 57 25 3d 28 4a 44 2b  |=Y1+K..p1W%=(JD+|
00000820  33 29 83 37 3a f7 8d 44  7a 43 3a e3 64 61 79 3d  |3).7:..DzC:.day=|
00000830  30 b8 57 25 3a f3 44 24  3a ed 3a 44 24 3d 44 24  |0.W%:.D$:.:D$=D$|
00000840  2b 22 64 61 79 22 0d 03  7a 29 dc 20 53 75 6e 2c  |+"day"..z). Sun,|
00000850  4d 6f 6e 2c 54 75 65 73  2c 57 65 64 6e 65 73 2c  |Mon,Tues,Wednes,|
00000860  54 68 75 72 73 2c 46 72  69 2c 53 61 74 75 72 0d  |Thurs,Fri,Satur.|
00000870  03 84 1d f7 8d 74 4e 43  3a e3 64 61 79 3d 31 b8  |.....tNC:.day=1.|
00000880  4d 25 3a f3 6d 6f 6e 74  68 24 3a ed 0d 03 8e 5b  |M%:.month$:....[|
00000890  dc 20 4a 61 6e 75 61 72  79 2c 46 65 62 72 75 61  |. January,Februa|
000008a0  72 79 2c 4d 61 72 63 68  2c 41 70 72 69 6c 2c 4d  |ry,March,April,M|
000008b0  61 79 2c 4a 75 6e 65 2c  4a 75 6c 79 2c 41 75 67  |ay,June,July,Aug|
000008c0  75 73 74 2c 53 65 70 74  65 6d 62 65 72 2c 4f 63  |ust,September,Oc|
000008d0  74 6f 62 65 72 2c 4e 6f  76 65 6d 62 65 72 2c 44  |tober,November,D|
000008e0  65 63 65 6d 62 65 72 0d  03 98 54 e7 44 25 3d 31  |ecember...T.D%=1|
000008f0  84 44 25 3d 32 31 84 44  25 3d 33 31 20 74 68 24  |.D%=21.D%=31 th$|
00000900  3d 22 73 74 22 20 8b e7  44 25 3d 32 84 44 25 3d  |="st" ..D%=2.D%=|
00000910  32 32 20 74 68 24 3d 22  6e 64 22 20 8b e7 44 25  |22 th$="nd" ..D%|
00000920  3d 33 84 44 25 3d 32 33  20 74 68 24 3d 22 72 64  |=3.D%=23 th$="rd|
00000930  22 20 8b 74 68 24 3d 22  74 68 22 0d 03 a2 2f 64  |" .th$="th".../d|
00000940  74 24 3d 44 24 2b 22 20  22 2b c3 28 44 25 29 2b  |t$=D$+" "+.(D%)+|
00000950  74 68 24 2b 22 20 22 2b  6d 6f 6e 74 68 24 2b 22  |th$+" "+month$+"|
00000960  20 31 39 22 2b c3 28 5a  25 29 0d 03 ac 32 3d 22  | 19"+.(Z%)...2="|
00000970  20 20 20 22 2b bd 31 32  39 2b bd 31 35 37 2b bd  |   "+.129+.157+.|
00000980  31 33 35 2b 64 74 24 2b  c4 33 32 2d a9 28 64 74  |135+dt$+.32-.(dt|
00000990  24 29 2c 22 20 22 29 2b  bd 31 35 36 0d 03 b6 05  |$)," ")+.156....|
000009a0  3a 0d 03 c0 10 dd a4 77  68 69 63 68 5f 75 6e 69  |:......which_uni|
000009b0  74 0d 03 ca 24 41 25 3d  26 37 41 3a 58 25 3d 6c  |t...$A%=&7A:X%=l|
000009c0  69 6e 65 20 83 32 35 36  3a 59 25 3d 6c 69 6e 65  |ine .256:Y%=line|
000009d0  20 81 32 35 36 0d 03 d4  1f 6c 69 6e 65 3f 30 3d  | .256....line?0=|
000009e0  31 37 3a 6c 69 6e 65 3f  33 3d 26 46 46 3a d6 26  |17:line?3=&FF:.&|
000009f0  46 46 46 31 0d 03 de 1e  e7 6c 69 6e 65 3f 33 3d  |FFF1.....line?3=|
00000a00  26 46 46 20 3d 22 41 54  53 22 20 8b 3d 22 47 49  |&FF ="ATS" .="GI|
00000a10  53 22 0d 03 e8 05 3a 0d  03 f2 0c dd f2 74 75 62  |S"....:......tub|
00000a20  65 6f 6e 0d 03 fc 9f f2  68 65 61 64 69 6e 67 28  |eon.....heading(|
00000a30  31 2c bd 31 32 37 2b bd  31 35 31 2b c4 33 39 2c  |1,.127+.151+.39,|
00000a40  22 2c 22 29 2b bd 31 32  39 2b bd 31 35 37 2b bd  |",")+.129+.157+.|
00000a50  31 33 35 2b 22 54 68 65  20 27 54 75 62 65 27 20  |135+"The 'Tube' |
00000a60  69 73 20 61 63 74 69 76  65 2e 20 50 6c 65 61 73  |is active. Pleas|
00000a70  65 20 64 69 73 61 62 6c  65 22 2b bd 31 30 2b bd  |e disable"+.10+.|
00000a80  31 33 2b bd 31 32 39 2b  bd 31 35 37 2b bd 31 33  |13+.129+.157+.13|
00000a90  35 2b 22 74 68 65 6e 20  43 48 41 49 4e 20 55 74  |5+"then CHAIN Ut|
00000aa0  69 6c 73 20 61 67 61 69  6e 2e 22 2b bd 31 30 2b  |ils again."+.10+|
00000ab0  bd 31 33 2b bd 31 35 31  2b c4 33 39 2c 22 2c 22  |.13+.151+.39,","|
00000ac0  29 29 0d 04 06 14 ef 32  33 2c 31 2c 30 3b 30 3b  |)).....23,1,0;0;|
00000ad0  30 3b 30 3b 3a f1 0d 04  10 05 e1 0d 04 1a 05 3a  |0;0;:..........:|
00000ae0  0d 04 24 0c dd f2 73 65  6c 65 63 74 0d 04 2e 12  |..$...select....|
00000af0  f2 68 65 61 64 69 6e 67  28 31 2c 22 22 29 0d 04  |.heading(1,"")..|
00000b00  38 0b f1 8a 30 2c 36 29  3b 0d 04 42 0a f7 20 8d  |8...0,6);..B.. .|
00000b10  64 5c 45 0d 04 4c 0a f3  20 71 74 79 25 0d 04 56  |d\E..L.. qty%..V|
00000b20  0a f1 a4 64 61 74 65 0d  04 60 3d e7 4a 44 3e 65  |...date..`=.JD>e|
00000b30  78 70 69 72 79 20 f1 22  88 81 4f 55 54 20 4f 46  |xpiry ."..OUT OF|
00000b40  20 44 41 54 45 20 2d 89  44 6f 77 6e 6c 6f 61 64  | DATE -.Download|
00000b50  20 6e 65 77 20 55 54 49  4c 53 20 66 69 6c 65 22  | new UTILS file"|
00000b60  3b 3a 8b f1 0d 04 6a 0a  f7 20 8d 64 66 45 0d 04  |;:....j.. .dfE..|
00000b70  74 0f e3 6e 6f 25 3d 31  b8 71 74 79 25 0d 04 7e  |t..no%=1.qty%..~|
00000b80  33 f3 66 6e 24 2c 6e 61  6d 65 24 2c 63 6f 6d 6d  |3.fn$,name$,comm|
00000b90  65 6e 74 24 2c 74 79 70  65 24 2c 6c 6f 61 64 25  |ent$,type$,load%|
00000ba0  2c 65 78 65 63 25 2c 6d  61 67 25 2c 70 61 67 25  |,exec%,mag%,pag%|
00000bb0  0d 04 88 31 e7 70 61 67  25 3d 26 46 46 20 f1 22  |...1.pag%=&FF ."|
00000bc0  20 20 20 20 22 3b 3a 8b  f1 22 83 22 3b c2 22 20  |    ";:..".";." |
00000bd0  20 22 2b c3 28 6e 6f 25  29 2c 32 29 3b 22 86 22  | "+.(no%),2);"."|
00000be0  3b 0d 04 92 4a f1 c0 6e  61 6d 65 24 2b c4 31 30  |;...J..name$+.10|
00000bf0  2c 22 20 22 29 2c 31 30  29 3b 22 87 22 3b c0 63  |," "),10);".";.c|
00000c00  6f 6d 6d 65 6e 74 24 2b  c4 31 39 2c 22 20 22 29  |omment$+.19," ")|
00000c10  2c 31 39 29 3b 22 20 22  3b c0 74 79 70 65 24 2b  |,19);" ";.type$+|
00000c20  c4 35 2c 22 20 22 29 2c  35 29 3b 0d 04 9c 13 e7  |.5," "),5);.....|
00000c30  70 61 67 25 3d 26 46 46  20 e5 8d 44 7e 44 0d 04  |pag%=&FF ..D~D..|
00000c40  a6 05 ed 0d 04 b0 31 e8  8a 32 2c 32 33 29 22 81  |......1..2,23)".|
00000c50  9d 87 45 6e 74 65 72 20  6e 75 6d 62 65 72 20 6f  |..Enter number o|
00000c60  66 20 66 69 6c 65 20 72  65 71 75 69 72 65 64 3a  |f file required:|
00000c70  22 6e 6f 25 0d 04 ba 2c  e7 6e 6f 25 3c 31 20 84  |"no%...,.no%<1 .|
00000c80  20 6e 6f 25 3e 71 74 79  25 20 ef 37 3a f1 8a 31  | no%>qty% .7:..1|
00000c90  2c 32 33 29 89 28 33 39  29 3b 3a e5 8d 74 70 44  |,23).(39);:..tpD|
00000ca0  0d 04 c4 0a f7 20 8d 64  66 45 0d 04 ce 0d e3 61  |..... .dfE.....a|
00000cb0  25 3d 31 b8 6e 6f 25 0d  04 d8 33 f3 66 6e 24 2c  |%=1.no%...3.fn$,|
00000cc0  6e 61 6d 65 24 2c 63 6f  6d 6d 65 6e 74 24 2c 74  |name$,comment$,t|
00000cd0  79 70 65 24 2c 6c 6f 61  64 25 2c 65 78 65 63 25  |ype$,load%,exec%|
00000ce0  2c 6d 61 67 25 2c 70 61  67 25 0d 04 e2 13 e7 70  |,mag%,pag%.....p|
00000cf0  61 67 25 3d 26 46 46 20  e5 8d 64 58 44 0d 04 ec  |ag%=&FF ..dXD...|
00000d00  05 ed 0d 04 f6 05 e1 0d  05 00 05 3a 0d 05 0a 11  |...........:....|
00000d10  f4 22 81 45 72 72 6f 72  20 74 72 61 70 0d 05 14  |.".Error trap...|
00000d20  0f dd f2 65 6e 64 28 65  72 72 25 29 0d 05 1e 0b  |...end(err%)....|
00000d30  ee 85 e5 8d 44 5a 45 0d  05 28 63 e7 65 72 72 25  |....DZE..(c.err%|
00000d40  3d 32 35 34 3a f2 68 65  61 64 69 6e 67 28 31 2c  |=254:.heading(1,|
00000d50  22 83 55 6e 72 65 63 6f  67 6e 69 73 65 64 20 63  |".Unrecognised c|
00000d60  6f 6d 6d 61 6e 64 20 66  6f 75 6e 64 22 2b bd 31  |ommand found"+.1|
00000d70  30 2b bd 31 33 2b 22 20  83 49 73 20 74 68 65 20  |0+.13+" .Is the |
00000d80  61 64 61 70 74 6f 72 20  74 75 72 6e 65 64 20 6f  |adaptor turned o|
00000d90  6e 3f 22 29 3a e5 8d 44  5a 45 0d 05 32 0b 2a 54  |n?"):..DZE..2.*T|
00000da0  54 58 4f 46 46 0d 05 3c  07 ef 32 36 0d 05 46 12  |TXOFF..<..26..F.|
00000db0  f2 68 65 61 64 69 6e 67  28 31 2c 22 22 29 0d 05  |.heading(1,"")..|
00000dc0  50 12 e7 65 72 72 25 3d  2d 31 20 e5 8d 74 60 45  |P..err%=-1 ..t`E|
00000dd0  0d 05 5a 24 f1 8a 30 2c  31 39 29 89 28 34 30 29  |..Z$..0,19).(40)|
00000de0  3b bd 31 35 31 3b c4 33  39 2c 22 2c 22 29 3b 89  |;.151;.39,",");.|
00000df0  28 34 30 29 0d 05 64 24  f1 8a 30 2c 32 31 29 22  |(40)..d$..0,21)"|
00000e00  83 45 72 72 6f 72 3a 22  3b bd 31 32 39 3b bd 31  |.Error:";.129;.1|
00000e10  35 37 3b bd 31 33 35 3b  0d 05 6e 1b 73 74 25 3d  |57;.135;..n.st%=|
00000e20  28 28 3f 26 46 45 29 2a  32 35 36 29 2b 28 3f 26  |((?&FE)*256)+(?&|
00000e30  46 44 29 0d 05 78 47 65  72 72 65 70 25 3d 73 74  |FD)..xGerrep%=st|
00000e40  25 3a f5 3a 65 72 72 65  70 25 3d 65 72 72 65 70  |%:.:errep%=errep|
00000e50  25 2b 31 3a ef 3f 28 65  72 72 65 70 25 29 3a fd  |%+1:.?(errep%):.|
00000e60  20 3f 65 72 72 65 70 25  3d 30 20 84 20 65 72 72  | ?errep%=0 . err|
00000e70  65 70 25 3d 73 74 25 2b  33 30 0d 05 82 23 f1 22  |ep%=st%+30...#."|
00000e80  20 20 22 3b bd 31 35 36  27 bd 31 35 31 3b c4 33  |  ";.156'.151;.3|
00000e90  39 2c 22 2c 22 29 3b 89  28 34 30 29 3b 0d 05 8c  |9,",");.(40);...|
00000ea0  11 f2 72 65 74 75 72 6e  5f 6f 73 68 77 6d 0d 05  |..return_oshwm..|
00000eb0  96 08 d3 3d 48 25 0d 05  a0 1a ef 32 33 2c 31 2c  |...=H%.....23,1,|
00000ec0  31 3b 30 3b 30 3b 30 3b  3a f1 8a 30 2c 37 29 3b  |1;0;0;0;:..0,7);|
00000ed0  0d 05 aa 0c 2a 46 58 32  32 39 2c 30 0d 05 b4 08  |....*FX229,0....|
00000ee0  2a 46 58 34 0d 05 be 05  e0 0d 05 c8 05 3a 0d 05  |*FX4.........:..|
00000ef0  d2 1b f4 22 81 4e 6f 2e  20 6f 66 20 41 43 54 55  |...".No. of ACTU|
00000f00  41 4c 20 66 69 6c 65 73  3a 0d 05 dc 07 dc 20 39  |AL files:..... 9|
00000f10  0d 05 e6 1d f4 22 81 52  45 53 54 4f 52 45 20 63  |.....".RESTORE c|
00000f20  6f 6d 65 73 20 74 6f 20  68 65 72 65 21 0d 05 f0  |omes to here!...|
00000f30  36 dc 22 22 2c 22 83 53  61 74 65 6c 6c 69 74 65  |6."",".Satellite|
00000f40  22 2c 22 83 53 65 72 76  69 63 65 20 53 6f 66 74  |",".Service Soft|
00000f50  77 61 72 65 3a 22 2c 22  22 2c 30 2c 30 2c 37 2c  |ware:","",0,0,7,|
00000f60  26 46 46 0d 05 fa 3c dc  22 53 2f 47 75 69 64 65  |&FF...<."S/Guide|
00000f70  22 2c 22 53 2f 47 75 69  64 65 22 2c 22 42 72 69  |","S/Guide","Bri|
00000f80  65 66 20 55 73 65 72 20  47 75 69 64 65 22 2c 22  |ef User Guide","|
00000f90  54 65 78 74 22 2c 30 2c  30 2c 37 2c 26 44 41 0d  |Text",0,0,7,&DA.|
00000fa0  06 04 3c dc 22 53 6d 61  6e 75 61 6c 22 2c 22 53  |..<."Smanual","S|
00000fb0  61 74 6d 61 6e 75 61 6c  22 2c 22 53 79 73 74 65  |atmanual","Syste|
00000fc0  6d 20 4d 61 6e 75 61 6c  22 2c 22 56 65 72 2e 32  |m Manual","Ver.2|
00000fd0  22 2c 30 2c 30 2c 37 2c  26 44 41 0d 06 18 4a dc  |",0,0,7,&DA...J.|
00000fe0  22 53 41 54 6c 6f 61 64  22 2c 22 53 61 74 4c 6f  |"SATload","SatLo|
00000ff0  61 64 65 72 22 2c 22 53  61 74 65 6c 6c 69 74 65  |ader","Satellite|
00001000  20 46 69 6c 65 20 44 27  4c 64 22 2c 22 42 41 53  | File D'Ld","BAS|
00001010  49 43 22 2c 26 31 39 30  30 2c 26 38 30 31 46 2c  |IC",&1900,&801F,|
00001020  37 2c 26 44 41 0d 06 22  46 dc 22 53 41 54 73 65  |7,&DA.."F."SATse|
00001030  71 22 2c 22 53 61 74 53  65 71 27 6e 63 65 22 2c  |q","SatSeq'nce",|
00001040  22 49 6d 61 67 65 20 73  65 71 75 65 6e 63 65 72  |"Image sequencer|
00001050  22 2c 22 56 32 2e 31 38  22 2c 26 31 39 30 30 2c  |","V2.18",&1900,|
00001060  26 38 30 31 46 2c 37 2c  26 44 41 0d 06 2c 4b dc  |&801F,7,&DA..,K.|
00001070  22 44 69 73 70 6c 61 79  22 2c 22 53 61 74 44 69  |"Display","SatDi|
00001080  73 70 6c 61 79 22 2c 22  53 61 74 2e 44 69 73 70  |splay","Sat.Disp|
00001090  6c 61 79 20 43 72 65 61  74 6f 72 22 2c 22 42 41  |lay Creator","BA|
000010a0  53 49 43 22 2c 26 31 39  30 30 2c 26 38 30 32 33  |SIC",&1900,&8023|
000010b0  2c 37 2c 26 44 41 0d 06  31 45 dc 22 53 61 74 53  |,7,&DA..1E."SatS|
000010c0  68 6f 77 22 2c 22 53 61  74 53 68 6f 77 22 2c 22  |how","SatShow","|
000010d0  52 65 61 64 20 66 69 6c  65 20 68 65 61 64 65 72  |Read file header|
000010e0  22 2c 22 42 41 53 49 43  22 2c 26 31 39 30 30 2c  |","BASIC",&1900,|
000010f0  26 38 30 32 33 2c 37 2c  26 44 41 0d 06 36 52 dc  |&8023,7,&DA..6R.|
00001100  22 41 72 63 4f 76 65 72  22 2c 22 41 72 63 4f 76  |"ArcOver","ArcOv|
00001110  65 72 6c 61 79 22 2c 22  41 72 63 68 69 6d 65 64  |erlay","Archimed|
00001120  65 73 20 64 69 73 70 6c  61 79 22 2c 22 42 41 53  |es display","BAS|
00001130  49 43 22 2c 26 46 46 46  46 46 42 34 31 2c 26 38  |IC",&FFFFFB41,&8|
00001140  37 37 46 31 30 32 41 2c  37 2c 26 44 41 0d 06 4a  |77F102A,7,&DA..J|
00001150  1a dc 22 22 2c 22 22 2c  22 22 2c 22 22 2c 30 2c  |.."","","","",0,|
00001160  30 2c 37 2c 26 46 46 0d  06 54 22 dc 22 22 2c 22  |0,7,&FF..T"."","|
00001170  83 4f 74 68 65 72 73 3a  22 2c 22 22 2c 22 22 2c  |.Others:","","",|
00001180  30 2c 30 2c 37 2c 26 46  46 0d 06 5e 42 dc 22 54  |0,0,7,&FF..^B."T|
00001190  54 58 50 72 6e 74 22 2c  22 54 54 58 50 72 69 6e  |TXPrnt","TTXPrin|
000011a0  74 22 2c 22 41 54 53 20  50 61 67 65 20 50 72 69  |t","ATS Page Pri|
000011b0  6e 74 65 72 22 2c 22 4d  2f 43 22 2c 26 41 30 30  |nter","M/C",&A00|
000011c0  2c 26 41 30 30 2c 37 2c  26 44 41 0d 06 72 44 dc  |,&A00,7,&DA..rD.|
000011d0  22 53 68 61 72 65 73 32  22 2c 22 53 68 61 72 55  |"Shares2","SharU|
000011e0  70 64 61 74 65 22 2c 22  53 48 41 52 45 53 20 70  |pdate","SHARES p|
000011f0  72 6f 67 20 75 70 64 61  74 65 73 22 2c 22 54 65  |rog updates","Te|
00001200  78 74 22 2c 26 30 2c 26  30 2c 37 2c 26 44 41 0d  |xt",&0,&0,7,&DA.|
00001210  ff                                                |.|
00001211