�"�Utils
:
�"�(C) Jeremy Brayshaw
(�"�February 1989
2�"�V.1 27 Feb 89
<�"�For use with ATS & ATS+
F:
P�7:H%=�:�=&5000
Z6A%=&EA:X%=0:Y%=-1:�(�(&FFF4)�&FFFF)�&100:�tubeon:�
d� � �end(�)
n�23,1,0;0;0;0;
x
*TTXON
�	*BBC2
�*HON
��move_oshwm
�:
�:
�expiry=47602:� 18 MAR 89
�2monthcredit$="March 89":� Exactly 8 characters
�:
�:
�� 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

@S%=&5000

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

T�

^:

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

r$�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$)
&)$line=text$:X%=line �256:Y%=line �256
0
�&FFF7
:�
D:
N��heading(mark%,fname$)
X�:�mark%=1 �DlB
b`�unit$="GIS" �'�151+�39,",")+�132+�157+�131+"BBC Telesoftware Utilities"'�151+�39,","):�t^B
l.�'"��������������������������������������"
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$)
*K�JD<47560 ="   "+�129+�157+�135+"Current date not available      "+�156
4Y1=(100*(JD-15078.2))�36525
>+M1=�((JD-14956.1-�(365.25*Y1))/30.6001)
H<D%=JD-14956-�(365.25*Y1)-�(30.6*M1):K=�(0.7+(1/(17-M1)))
RM%=M1-1-12*K
\Z%=Y1+K
f1W%=(JD+3)�7:��DpC:�day=0�W%:�D$:�:D$=D$+"day"
p)� Sun,Mon,Tues,Wednes,Thurs,Fri,Satur
z��tDC:�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 SatLoad again."+�10+�13+�151+�39,","))
��23,1,0;0;0;0;:�
�
:
��select
$�heading(1,"")
.�0,6);
8
� �dRE
B
� qty%
L
�date
V=�JD>expiry �"��OUT OF DATE -�Download new UTILS file";:��
`
� �d\E
j�no%=1�qty%
t3�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 �DtD
��
�1�2,23)"���Enter number of file required:"no%
�,�no%<1 � no%>qty% �7:�1,23)�(39);:�tfD
�
� �d\E
�
�a%=1�no%
�3�fn$,name$,comment$,type$,load%,exec%,mag%,pag%
��pag%=&FF �dND
��
��
�:
�"�Error trap

��end(err%)
��DPE
c�err%=254:�heading(1,"�Unrecognised command found"+�10+�13+" �Is the adaptor turned on?"):�DPE
(*TTXOFF
2�26
<�heading(1,"")
F�err%=-1 �tVE
P$�0,19)�(40);�151;�39,",");�(40)
Z$�0,21)"�Error:";�129;�157;�135;
dst%=((?&FE)*256)+(?&FD)
nGerrep%=st%:�:errep%=errep%+1:�?(errep%):� ?errep%=0 � errep%=st%+30
x#�"  ";�156'�151;�39,",");�(40);
��return_oshwm
��=H%
��23,1,1;0;0;0;:�0,7);
�*FX229,0
�*FX4
��
�:
��"�No. of ACTUAL files:
�� 11
��"�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","Text",0,0,7,&DA
?�"Protocl","Protocol","Data file protocol","Text",0,0,7,&DA
J�"SATload","SatLoader","Satellite File D'Ld","BASIC",&1900,&801F,7,&DA
F�"SATseq","SatSeq'nce","Image sequencer","BASIC",&1900,&801F,7,&DA
"K�"Display","SatDisplay","Sat.Display Creator","BASIC",&1900,&8023,7,&DA
,E�"SatShow","SatShow","Read file header","BASIC",&1900,&8023,7,&DA
6J�"ArcDisp","ArcDisplay","Archimedes display","BASIC",&1900,&8023,7,&DA
@�"","","","",0,0,7,&FF
J"�"","�Others:","","",0,0,7,&FF
TB�"TTXPrnt","TTXPrint","ATS Page Printer","M/C",&A00,&A00,7,&DA
^J�"PrntSrc","PrintSrce","TTXPrnt source code","BASIC",&1900,&802B,7,&DA
hD�"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  31 20 32 37 20 46 65 62  |.2..".V.1 27 Feb|
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 36 41 25 3d  |.:.=&5000..Z6A%=|
00000090  26 45 41 3a 58 25 3d 30  3a 59 25 3d 2d 31 3a e7  |&EA:X%=0:Y%=-1:.|
000000a0  28 ba 28 26 46 46 46 34  29 80 26 46 46 46 46 29  |(.(&FFF4).&FFFF)|
000000b0  81 26 31 30 30 3a f2 74  75 62 65 6f 6e 3a e0 0d  |.&100:.tubeon:..|
000000c0  00 64 0f ee 20 85 20 f2  65 6e 64 28 9f 29 0d 00  |.d.. . .end(.)..|
000000d0  6e 12 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |n..23,1,0;0;0;0;|
000000e0  0d 00 78 0a 2a 54 54 58  4f 4e 0d 00 82 09 2a 42  |..x.*TTXON....*B|
000000f0  42 43 32 0d 00 8c 08 2a  48 4f 4e 0d 00 96 0f f2  |BC2....*HON.....|
00000100  6d 6f 76 65 5f 6f 73 68  77 6d 0d 00 a0 05 3a 0d  |move_oshwm....:.|
00000110  00 aa 05 3a 0d 00 b4 1c  65 78 70 69 72 79 3d 34  |...:....expiry=4|
00000120  37 36 30 32 3a f4 20 31  38 20 4d 41 52 20 38 39  |7602:. 18 MAR 89|
00000130  0d 00 be 32 6d 6f 6e 74  68 63 72 65 64 69 74 24  |...2monthcredit$|
00000140  3d 22 4d 61 72 63 68 20  38 39 22 3a f4 20 45 78  |="March 89":. Ex|
00000150  61 63 74 6c 79 20 38 20  63 68 61 72 61 63 74 65  |actly 8 characte|
00000160  72 73 0d 00 c8 05 3a 0d  00 d2 05 3a 0d 00 dc 1e  |rs....:....:....|
00000170  de 20 73 70 61 63 65 20  32 30 2c 6e 61 6d 65 20  |. space 20,name |
00000180  31 32 2c 6c 69 6e 65 20  31 35 0d 00 e6 15 75 6e  |12,line 15....un|
00000190  69 74 24 3d a4 77 68 69  63 68 5f 75 6e 69 74 0d  |it$=.which_unit.|
000001a0  00 f0 0b f2 73 65 6c 65  63 74 0d 00 fa 35 f2 68  |....select...5.h|
000001b0  65 61 64 69 6e 67 28 32  2c 22 87 46 69 6c 65 3a  |eading(2,".File:|
000001c0  86 22 2b 6e 61 6d 65 24  2b bd 31 30 2b bd 31 33  |."+name$+.10+.13|
000001d0  2b 22 20 83 22 2b 63 6f  6d 6d 65 6e 74 24 29 0d  |+" ."+comment$).|
000001e0  01 04 2c f2 64 6f 77 6e  6c 6f 61 64 28 6d 61 67  |..,.download(mag|
000001f0  25 2c 70 61 67 25 2c 66  6e 24 2c 6c 6f 61 64 25  |%,pag%,fn$,load%|
00000200  2c 65 78 65 63 25 2c b9  2c b9 29 0d 01 0e 06 eb  |,exec%,.,.).....|
00000210  37 0d 01 18 0b f2 65 6e  64 28 b9 29 0d 01 22 05  |7.....end(.)..".|
00000220  e0 0d 01 2c 05 3a 0d 01  36 10 dd f2 6d 6f 76 65  |...,.:..6...move|
00000230  5f 6f 73 68 77 6d 0d 01  40 0c 53 25 3d 26 35 30  |_oshwm..@.S%=&50|
00000240  30 30 0d 01 4a 20 41 25  3d 26 42 34 3a 58 25 3d  |00..J A%=&B4:X%=|
00000250  53 25 81 32 35 36 3a 59  25 3d 30 3a d6 26 46 46  |S%.256:Y%=0:.&FF|
00000260  46 34 0d 01 54 05 e1 0d  01 5e 05 3a 0d 01 68 42  |F4..T....^.:..hB|
00000270  dd f2 64 6f 77 6e 6c 6f  61 64 28 6d 61 67 61 7a  |..download(magaz|
00000280  69 6e 65 25 2c 70 61 67  65 25 2c 66 69 6c 65 6e  |ine%,page%,filen|
00000290  61 6d 65 24 2c 6c 6f 61  64 25 2c 65 78 65 63 25  |ame$,load%,exec%|
000002a0  2c 73 61 76 65 25 2c 72  65 73 65 74 25 29 0d 01  |,save%,reset%)..|
000002b0  72 24 f2 6f 73 63 6c 69  28 22 4d 41 47 41 5a 49  |r$.oscli("MAGAZI|
000002c0  4e 45 20 22 2b c3 28 6d  61 67 61 7a 69 6e 65 25  |NE "+.(magazine%|
000002d0  29 29 0d 01 7c 0e 73 70  61 63 65 3f 30 3d 32 34  |))..|.space?0=24|
000002e0  0d 01 86 27 73 70 61 63  65 3f 31 3d 6e 61 6d 65  |...'space?1=name|
000002f0  20 83 32 35 36 3a 73 70  61 63 65 3f 32 3d 6e 61  | .256:space?2=na|
00000300  6d 65 20 81 32 35 36 0d  01 90 13 24 6e 61 6d 65  |me .256....$name|
00000310  3d 66 69 6c 65 6e 61 6d  65 24 0d 01 9a 20 e3 66  |=filename$... .f|
00000320  25 3d 6e 61 6d 65 20 b8  20 6e 61 6d 65 2b a9 28  |%=name . name+.(|
00000330  66 69 6c 65 6e 61 6d 65  24 29 0d 01 a4 22 e7 3f  |filename$)...".?|
00000340  66 25 3e 39 36 20 80 3f  66 25 3c 31 32 33 20 3f  |f%>96 .?f%<123 ?|
00000350  66 25 3d 28 3f 66 25 29  80 26 44 46 0d 01 ae 05  |f%=(?f%).&DF....|
00000360  ed 0d 01 b8 11 73 70 61  63 65 21 33 3d 6c 6f 61  |.....space!3=loa|
00000370  64 25 0d 01 c2 11 73 70  61 63 65 21 37 3d 65 78  |d%....space!7=ex|
00000380  65 63 25 0d 01 cc 16 73  70 61 63 65 3f 31 31 3d  |ec%....space?11=|
00000390  6d 61 67 61 7a 69 6e 65  25 0d 01 d6 12 73 70 61  |magazine%....spa|
000003a0  63 65 3f 31 32 3d 70 61  67 65 25 0d 01 e0 24 e7  |ce?12=page%...$.|
000003b0  73 61 76 65 25 3d b9 20  73 70 61 63 65 3f 31 33  |save%=. space?13|
000003c0  3d 31 20 8b 20 73 70 61  63 65 3f 31 33 3d 30 0d  |=1 . space?13=0.|
000003d0  01 ea 25 e7 72 65 73 65  74 25 3d b9 20 73 70 61  |..%.reset%=. spa|
000003e0  63 65 3f 31 34 3d 30 20  8b 20 73 70 61 63 65 3f  |ce?14=0 . space?|
000003f0  31 34 3d 31 0d 01 f4 26  41 25 3d 26 37 41 3a 58  |14=1...&A%=&7A:X|
00000400  25 3d 73 70 61 63 65 20  83 32 35 36 3a 59 25 3d  |%=space .256:Y%=|
00000410  73 70 61 63 65 20 81 32  35 36 0d 01 fe 0a d6 26  |space .256.....&|
00000420  46 46 46 31 0d 02 08 05  e1 0d 02 12 05 3a 0d 02  |FFF1.........:..|
00000430  1c 12 dd f2 6f 73 63 6c  69 28 74 65 78 74 24 29  |....oscli(text$)|
00000440  0d 02 26 29 24 6c 69 6e  65 3d 74 65 78 74 24 3a  |..&)$line=text$:|
00000450  58 25 3d 6c 69 6e 65 20  83 32 35 36 3a 59 25 3d  |X%=line .256:Y%=|
00000460  6c 69 6e 65 20 81 32 35  36 0d 02 30 0a d6 26 46  |line .256..0..&F|
00000470  46 46 37 0d 02 3a 05 e1  0d 02 44 05 3a 0d 02 4e  |FF7..:....D.:..N|
00000480  1b dd f2 68 65 61 64 69  6e 67 28 6d 61 72 6b 25  |...heading(mark%|
00000490  2c 66 6e 61 6d 65 24 29  0d 02 58 14 db 3a e7 6d  |,fname$)..X..:.m|
000004a0  61 72 6b 25 3d 31 20 e5  8d 44 6c 42 0d 02 62 60  |ark%=1 ..DlB..b`|
000004b0  e7 75 6e 69 74 24 3d 22  47 49 53 22 20 f1 27 bd  |.unit$="GIS" .'.|
000004c0  31 35 31 2b c4 33 39 2c  22 2c 22 29 2b bd 31 33  |151+.39,",")+.13|
000004d0  32 2b bd 31 35 37 2b bd  31 33 31 2b 22 42 42 43  |2+.157+.131+"BBC|
000004e0  20 54 65 6c 65 73 6f 66  74 77 61 72 65 20 55 74  | Telesoftware Ut|
000004f0  69 6c 69 74 69 65 73 22  27 bd 31 35 31 2b c4 33  |ilities"'.151+.3|
00000500  39 2c 22 2c 22 29 3a e5  8d 74 5e 42 0d 02 6c 2e  |9,","):..t^B..l.|
00000510  f1 27 22 9a 91 a0 a0 fc  fc fc fc fc fc fc fc fc  |.'".............|
00000520  fc fc fc fc fc fc fc fc  fc fc fc fc fc fc fc fc  |................|
00000530  fc fc fc fc fc fc fc fc  fc 22 0d 02 76 2d f1 22  |........."..v-."|
00000540  9a 93 a8 af ef ff af af  a1 91 ff ff 9e 81 9d 87  |................|
00000550  42 42 43 20 54 65 6c 65  73 6f 66 74 77 61 72 65  |BBC Telesoftware|
00000560  91 60 9c ff ff ff 22 0d  02 80 2d f1 22 9a 93 a0  |.`...."...-."...|
00000570  a0 fe a7 91 f8 fc ff ff  ff 9e 81 9d 87 20 20 20  |.............   |
00000580  20 55 74 69 6c 69 74 69  65 73 20 20 20 20 91 9c  | Utilities    ..|
00000590  ff ff ff 22 0d 02 8a 35  f1 22 9a 93 a0 fa b7 91  |..."...5."......|
000005a0  e8 ff ff ff ff ff 9e 81  9d 83 28 43 29 42 42 43  |..........(C)BBC|
000005b0  74 76 20 22 3b 6d 6f 6e  74 68 63 72 65 64 69 74  |tv ";monthcredit|
000005c0  24 3b 22 91 9c ff ff ff  22 0d 02 94 2d f1 22 9a  |$;"....."...-.".|
000005d0  91 a0 a0 fc fc ff ff ff  ff ff ff ff ff ff fc fc  |................|
000005e0  fc fc fc fc fc fc 7c 7c  fc fc fc fc fc fc fc fc  |......||........|
000005f0  fc fc ff ff ff 22 0d 02  9e 11 f1 8a 31 2c 31 37  |....."......1,17|
00000600  29 66 6e 61 6d 65 24 0d  02 a8 05 e1 0d 02 b2 05  |)fname$.........|
00000610  3a 0d 02 bc 12 dd f2 72  65 74 75 72 6e 5f 6f 73  |:......return_os|
00000620  68 77 6d 0d 02 c6 20 41  25 3d 26 42 34 3a 58 25  |hwm... A%=&B4:X%|
00000630  3d 90 20 81 32 35 36 3a  59 25 3d 30 3a d6 26 46  |=. .256:Y%=0:.&F|
00000640  46 46 34 0d 02 d0 05 e1  0d 02 da 05 3a 0d 02 e4  |FF4.........:...|
00000650  0a dd a4 64 61 74 65 0d  02 ee 0d ea 5a 25 2c 4d  |...date.....Z%,M|
00000660  25 2c 44 25 0d 02 f8 34  41 25 3d 26 37 41 3a 58  |%,D%...4A%=&7A:X|
00000670  25 3d 6c 69 6e 65 20 83  32 35 36 3a 59 25 3d 6c  |%=line .256:Y%=l|
00000680  69 6e 65 20 81 32 35 36  3a 3f 6c 69 6e 65 3d 31  |ine .256:?line=1|
00000690  35 3a d6 26 46 46 46 31  0d 03 02 17 42 42 31 24  |5:.&FFF1....BB1$|
000006a0  3d c2 c3 7e 28 6c 69 6e  65 3f 38 29 2c 31 29 0d  |=..~(line?8),1).|
000006b0  03 0c 2d 42 42 32 24 3d  c3 7e 28 6c 69 6e 65 3f  |..-BB2$=.~(line?|
000006c0  39 29 3a e7 20 a9 28 42  42 32 24 29 3d 31 20 42  |9):. .(BB2$)=1 B|
000006d0  42 32 24 3d 22 30 22 2b  42 42 32 24 0d 03 16 2e  |B2$="0"+BB2$....|
000006e0  42 42 33 24 3d c3 7e 28  6c 69 6e 65 3f 31 30 29  |BB3$=.~(line?10)|
000006f0  3a e7 20 a9 28 42 42 33  24 29 3d 31 20 42 42 33  |:. .(BB3$)=1 BB3|
00000700  24 3d 22 30 22 2b 42 42  33 24 0d 03 20 18 4a 44  |$="0"+BB3$.. .JD|
00000710  3d bb 28 42 42 31 24 2b  42 42 32 24 2b 42 42 33  |=.(BB1$+BB2$+BB3|
00000720  24 29 0d 03 2a 4b e7 4a  44 3c 34 37 35 36 30 20  |$)..*K.JD<47560 |
00000730  3d 22 20 20 20 22 2b bd  31 32 39 2b bd 31 35 37  |="   "+.129+.157|
00000740  2b bd 31 33 35 2b 22 43  75 72 72 65 6e 74 20 64  |+.135+"Current d|
00000750  61 74 65 20 6e 6f 74 20  61 76 61 69 6c 61 62 6c  |ate not availabl|
00000760  65 20 20 20 20 20 20 22  2b bd 31 35 36 0d 03 34  |e      "+.156..4|
00000770  1f 59 31 3d 28 31 30 30  2a 28 4a 44 2d 31 35 30  |.Y1=(100*(JD-150|
00000780  37 38 2e 32 29 29 81 33  36 35 32 35 0d 03 3e 2b  |78.2)).36525..>+|
00000790  4d 31 3d a8 28 28 4a 44  2d 31 34 39 35 36 2e 31  |M1=.((JD-14956.1|
000007a0  2d a8 28 33 36 35 2e 32  35 2a 59 31 29 29 2f 33  |-.(365.25*Y1))/3|
000007b0  30 2e 36 30 30 31 29 0d  03 48 3c 44 25 3d 4a 44  |0.6001)..H<D%=JD|
000007c0  2d 31 34 39 35 36 2d a8  28 33 36 35 2e 32 35 2a  |-14956-.(365.25*|
000007d0  59 31 29 2d a8 28 33 30  2e 36 2a 4d 31 29 3a 4b  |Y1)-.(30.6*M1):K|
000007e0  3d a8 28 30 2e 37 2b 28  31 2f 28 31 37 2d 4d 31  |=.(0.7+(1/(17-M1|
000007f0  29 29 29 0d 03 52 10 4d  25 3d 4d 31 2d 31 2d 31  |)))..R.M%=M1-1-1|
00000800  32 2a 4b 0d 03 5c 0b 5a  25 3d 59 31 2b 4b 0d 03  |2*K..\.Z%=Y1+K..|
00000810  66 31 57 25 3d 28 4a 44  2b 33 29 83 37 3a f7 8d  |f1W%=(JD+3).7:..|
00000820  44 70 43 3a e3 64 61 79  3d 30 b8 57 25 3a f3 44  |DpC:.day=0.W%:.D|
00000830  24 3a ed 3a 44 24 3d 44  24 2b 22 64 61 79 22 0d  |$:.:D$=D$+"day".|
00000840  03 70 29 dc 20 53 75 6e  2c 4d 6f 6e 2c 54 75 65  |.p). Sun,Mon,Tue|
00000850  73 2c 57 65 64 6e 65 73  2c 54 68 75 72 73 2c 46  |s,Wednes,Thurs,F|
00000860  72 69 2c 53 61 74 75 72  0d 03 7a 1d f7 8d 74 44  |ri,Satur..z...tD|
00000870  43 3a e3 64 61 79 3d 31  b8 4d 25 3a f3 6d 6f 6e  |C:.day=1.M%:.mon|
00000880  74 68 24 3a ed 0d 03 84  5b dc 20 4a 61 6e 75 61  |th$:....[. Janua|
00000890  72 79 2c 46 65 62 72 75  61 72 79 2c 4d 61 72 63  |ry,February,Marc|
000008a0  68 2c 41 70 72 69 6c 2c  4d 61 79 2c 4a 75 6e 65  |h,April,May,June|
000008b0  2c 4a 75 6c 79 2c 41 75  67 75 73 74 2c 53 65 70  |,July,August,Sep|
000008c0  74 65 6d 62 65 72 2c 4f  63 74 6f 62 65 72 2c 4e  |tember,October,N|
000008d0  6f 76 65 6d 62 65 72 2c  44 65 63 65 6d 62 65 72  |ovember,December|
000008e0  0d 03 8e 54 e7 44 25 3d  31 84 44 25 3d 32 31 84  |...T.D%=1.D%=21.|
000008f0  44 25 3d 33 31 20 74 68  24 3d 22 73 74 22 20 8b  |D%=31 th$="st" .|
00000900  e7 44 25 3d 32 84 44 25  3d 32 32 20 74 68 24 3d  |.D%=2.D%=22 th$=|
00000910  22 6e 64 22 20 8b e7 44  25 3d 33 84 44 25 3d 32  |"nd" ..D%=3.D%=2|
00000920  33 20 74 68 24 3d 22 72  64 22 20 8b 74 68 24 3d  |3 th$="rd" .th$=|
00000930  22 74 68 22 0d 03 98 2f  64 74 24 3d 44 24 2b 22  |"th".../dt$=D$+"|
00000940  20 22 2b c3 28 44 25 29  2b 74 68 24 2b 22 20 22  | "+.(D%)+th$+" "|
00000950  2b 6d 6f 6e 74 68 24 2b  22 20 31 39 22 2b c3 28  |+month$+" 19"+.(|
00000960  5a 25 29 0d 03 a2 32 3d  22 20 20 20 22 2b bd 31  |Z%)...2="   "+.1|
00000970  32 39 2b bd 31 35 37 2b  bd 31 33 35 2b 64 74 24  |29+.157+.135+dt$|
00000980  2b c4 33 32 2d a9 28 64  74 24 29 2c 22 20 22 29  |+.32-.(dt$)," ")|
00000990  2b bd 31 35 36 0d 03 ac  05 3a 0d 03 b6 10 dd a4  |+.156....:......|
000009a0  77 68 69 63 68 5f 75 6e  69 74 0d 03 c0 24 41 25  |which_unit...$A%|
000009b0  3d 26 37 41 3a 58 25 3d  6c 69 6e 65 20 83 32 35  |=&7A:X%=line .25|
000009c0  36 3a 59 25 3d 6c 69 6e  65 20 81 32 35 36 0d 03  |6:Y%=line .256..|
000009d0  ca 1f 6c 69 6e 65 3f 30  3d 31 37 3a 6c 69 6e 65  |..line?0=17:line|
000009e0  3f 33 3d 26 46 46 3a d6  26 46 46 46 31 0d 03 d4  |?3=&FF:.&FFF1...|
000009f0  1e e7 6c 69 6e 65 3f 33  3d 26 46 46 20 3d 22 41  |..line?3=&FF ="A|
00000a00  54 53 22 20 8b 3d 22 47  49 53 22 0d 03 de 05 3a  |TS" .="GIS"....:|
00000a10  0d 03 e8 0c dd f2 74 75  62 65 6f 6e 0d 03 f2 a1  |......tubeon....|
00000a20  f2 68 65 61 64 69 6e 67  28 31 2c bd 31 32 37 2b  |.heading(1,.127+|
00000a30  bd 31 35 31 2b c4 33 39  2c 22 2c 22 29 2b bd 31  |.151+.39,",")+.1|
00000a40  32 39 2b bd 31 35 37 2b  bd 31 33 35 2b 22 54 68  |29+.157+.135+"Th|
00000a50  65 20 27 54 75 62 65 27  20 69 73 20 61 63 74 69  |e 'Tube' is acti|
00000a60  76 65 2e 20 50 6c 65 61  73 65 20 64 69 73 61 62  |ve. Please disab|
00000a70  6c 65 22 2b bd 31 30 2b  bd 31 33 2b bd 31 32 39  |le"+.10+.13+.129|
00000a80  2b bd 31 35 37 2b bd 31  33 35 2b 22 74 68 65 6e  |+.157+.135+"then|
00000a90  20 43 48 41 49 4e 20 53  61 74 4c 6f 61 64 20 61  | CHAIN SatLoad a|
00000aa0  67 61 69 6e 2e 22 2b bd  31 30 2b bd 31 33 2b bd  |gain."+.10+.13+.|
00000ab0  31 35 31 2b c4 33 39 2c  22 2c 22 29 29 0d 03 fc  |151+.39,","))...|
00000ac0  14 ef 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 3a  |..23,1,0;0;0;0;:|
00000ad0  f1 0d 04 06 05 e1 0d 04  10 05 3a 0d 04 1a 0c dd  |..........:.....|
00000ae0  f2 73 65 6c 65 63 74 0d  04 24 12 f2 68 65 61 64  |.select..$..head|
00000af0  69 6e 67 28 31 2c 22 22  29 0d 04 2e 0b f1 8a 30  |ing(1,"")......0|
00000b00  2c 36 29 3b 0d 04 38 0a  f7 20 8d 64 52 45 0d 04  |,6);..8.. .dRE..|
00000b10  42 0a f3 20 71 74 79 25  0d 04 4c 0a f1 a4 64 61  |B.. qty%..L...da|
00000b20  74 65 0d 04 56 3d e7 4a  44 3e 65 78 70 69 72 79  |te..V=.JD>expiry|
00000b30  20 f1 22 88 81 4f 55 54  20 4f 46 20 44 41 54 45  | ."..OUT OF DATE|
00000b40  20 2d 89 44 6f 77 6e 6c  6f 61 64 20 6e 65 77 20  | -.Download new |
00000b50  55 54 49 4c 53 20 66 69  6c 65 22 3b 3a 8b f1 0d  |UTILS file";:...|
00000b60  04 60 0a f7 20 8d 64 5c  45 0d 04 6a 0f e3 6e 6f  |.`.. .d\E..j..no|
00000b70  25 3d 31 b8 71 74 79 25  0d 04 74 33 f3 66 6e 24  |%=1.qty%..t3.fn$|
00000b80  2c 6e 61 6d 65 24 2c 63  6f 6d 6d 65 6e 74 24 2c  |,name$,comment$,|
00000b90  74 79 70 65 24 2c 6c 6f  61 64 25 2c 65 78 65 63  |type$,load%,exec|
00000ba0  25 2c 6d 61 67 25 2c 70  61 67 25 0d 04 7e 31 e7  |%,mag%,pag%..~1.|
00000bb0  70 61 67 25 3d 26 46 46  20 f1 22 20 20 20 20 22  |pag%=&FF ."    "|
00000bc0  3b 3a 8b f1 22 83 22 3b  c2 22 20 20 22 2b c3 28  |;:..".";."  "+.(|
00000bd0  6e 6f 25 29 2c 32 29 3b  22 86 22 3b 0d 04 88 4a  |no%),2);".";...J|
00000be0  f1 c0 6e 61 6d 65 24 2b  c4 31 30 2c 22 20 22 29  |..name$+.10," ")|
00000bf0  2c 31 30 29 3b 22 87 22  3b c0 63 6f 6d 6d 65 6e  |,10);".";.commen|
00000c00  74 24 2b c4 31 39 2c 22  20 22 29 2c 31 39 29 3b  |t$+.19," "),19);|
00000c10  22 20 22 3b c0 74 79 70  65 24 2b c4 35 2c 22 20  |" ";.type$+.5," |
00000c20  22 29 2c 35 29 3b 0d 04  92 13 e7 70 61 67 25 3d  |"),5);.....pag%=|
00000c30  26 46 46 20 e5 8d 44 74  44 0d 04 9c 05 ed 0d 04  |&FF ..DtD.......|
00000c40  a6 31 e8 8a 32 2c 32 33  29 22 81 9d 87 45 6e 74  |.1..2,23)"...Ent|
00000c50  65 72 20 6e 75 6d 62 65  72 20 6f 66 20 66 69 6c  |er number of fil|
00000c60  65 20 72 65 71 75 69 72  65 64 3a 22 6e 6f 25 0d  |e required:"no%.|
00000c70  04 b0 2c e7 6e 6f 25 3c  31 20 84 20 6e 6f 25 3e  |..,.no%<1 . no%>|
00000c80  71 74 79 25 20 ef 37 3a  f1 8a 31 2c 32 33 29 89  |qty% .7:..1,23).|
00000c90  28 33 39 29 3b 3a e5 8d  74 66 44 0d 04 ba 0a f7  |(39);:..tfD.....|
00000ca0  20 8d 64 5c 45 0d 04 c4  0d e3 61 25 3d 31 b8 6e  | .d\E.....a%=1.n|
00000cb0  6f 25 0d 04 ce 33 f3 66  6e 24 2c 6e 61 6d 65 24  |o%...3.fn$,name$|
00000cc0  2c 63 6f 6d 6d 65 6e 74  24 2c 74 79 70 65 24 2c  |,comment$,type$,|
00000cd0  6c 6f 61 64 25 2c 65 78  65 63 25 2c 6d 61 67 25  |load%,exec%,mag%|
00000ce0  2c 70 61 67 25 0d 04 d8  13 e7 70 61 67 25 3d 26  |,pag%.....pag%=&|
00000cf0  46 46 20 e5 8d 64 4e 44  0d 04 e2 05 ed 0d 04 ec  |FF ..dND........|
00000d00  05 e1 0d 04 f6 05 3a 0d  05 00 11 f4 22 81 45 72  |......:.....".Er|
00000d10  72 6f 72 20 74 72 61 70  0d 05 0a 0f dd f2 65 6e  |ror trap......en|
00000d20  64 28 65 72 72 25 29 0d  05 14 0b ee 85 e5 8d 44  |d(err%)........D|
00000d30  50 45 0d 05 1e 63 e7 65  72 72 25 3d 32 35 34 3a  |PE...c.err%=254:|
00000d40  f2 68 65 61 64 69 6e 67  28 31 2c 22 83 55 6e 72  |.heading(1,".Unr|
00000d50  65 63 6f 67 6e 69 73 65  64 20 63 6f 6d 6d 61 6e  |ecognised comman|
00000d60  64 20 66 6f 75 6e 64 22  2b bd 31 30 2b bd 31 33  |d found"+.10+.13|
00000d70  2b 22 20 83 49 73 20 74  68 65 20 61 64 61 70 74  |+" .Is the adapt|
00000d80  6f 72 20 74 75 72 6e 65  64 20 6f 6e 3f 22 29 3a  |or turned on?"):|
00000d90  e5 8d 44 50 45 0d 05 28  0b 2a 54 54 58 4f 46 46  |..DPE..(.*TTXOFF|
00000da0  0d 05 32 07 ef 32 36 0d  05 3c 12 f2 68 65 61 64  |..2..26..<..head|
00000db0  69 6e 67 28 31 2c 22 22  29 0d 05 46 12 e7 65 72  |ing(1,"")..F..er|
00000dc0  72 25 3d 2d 31 20 e5 8d  74 56 45 0d 05 50 24 f1  |r%=-1 ..tVE..P$.|
00000dd0  8a 30 2c 31 39 29 89 28  34 30 29 3b bd 31 35 31  |.0,19).(40);.151|
00000de0  3b c4 33 39 2c 22 2c 22  29 3b 89 28 34 30 29 0d  |;.39,",");.(40).|
00000df0  05 5a 24 f1 8a 30 2c 32  31 29 22 83 45 72 72 6f  |.Z$..0,21)".Erro|
00000e00  72 3a 22 3b bd 31 32 39  3b bd 31 35 37 3b bd 31  |r:";.129;.157;.1|
00000e10  33 35 3b 0d 05 64 1b 73  74 25 3d 28 28 3f 26 46  |35;..d.st%=((?&F|
00000e20  45 29 2a 32 35 36 29 2b  28 3f 26 46 44 29 0d 05  |E)*256)+(?&FD)..|
00000e30  6e 47 65 72 72 65 70 25  3d 73 74 25 3a f5 3a 65  |nGerrep%=st%:.:e|
00000e40  72 72 65 70 25 3d 65 72  72 65 70 25 2b 31 3a ef  |rrep%=errep%+1:.|
00000e50  3f 28 65 72 72 65 70 25  29 3a fd 20 3f 65 72 72  |?(errep%):. ?err|
00000e60  65 70 25 3d 30 20 84 20  65 72 72 65 70 25 3d 73  |ep%=0 . errep%=s|
00000e70  74 25 2b 33 30 0d 05 78  23 f1 22 20 20 22 3b bd  |t%+30..x#."  ";.|
00000e80  31 35 36 27 bd 31 35 31  3b c4 33 39 2c 22 2c 22  |156'.151;.39,","|
00000e90  29 3b 89 28 34 30 29 3b  0d 05 82 11 f2 72 65 74  |);.(40);.....ret|
00000ea0  75 72 6e 5f 6f 73 68 77  6d 0d 05 8c 08 d3 3d 48  |urn_oshwm.....=H|
00000eb0  25 0d 05 96 1a ef 32 33  2c 31 2c 31 3b 30 3b 30  |%.....23,1,1;0;0|
00000ec0  3b 30 3b 3a f1 8a 30 2c  37 29 3b 0d 05 a0 0c 2a  |;0;:..0,7);....*|
00000ed0  46 58 32 32 39 2c 30 0d  05 aa 08 2a 46 58 34 0d  |FX229,0....*FX4.|
00000ee0  05 b4 05 e0 0d 05 be 05  3a 0d 05 c8 1b f4 22 81  |........:.....".|
00000ef0  4e 6f 2e 20 6f 66 20 41  43 54 55 41 4c 20 66 69  |No. of ACTUAL fi|
00000f00  6c 65 73 3a 0d 05 d2 08  dc 20 31 31 0d 05 dc 1d  |les:..... 11....|
00000f10  f4 22 81 52 45 53 54 4f  52 45 20 63 6f 6d 65 73  |.".RESTORE comes|
00000f20  20 74 6f 20 68 65 72 65  21 0d 05 e6 36 dc 22 22  | to here!...6.""|
00000f30  2c 22 83 53 61 74 65 6c  6c 69 74 65 22 2c 22 83  |,".Satellite",".|
00000f40  53 65 72 76 69 63 65 20  53 6f 66 74 77 61 72 65  |Service Software|
00000f50  3a 22 2c 22 22 2c 30 2c  30 2c 37 2c 26 46 46 0d  |:","",0,0,7,&FF.|
00000f60  05 f0 3c dc 22 53 2f 47  75 69 64 65 22 2c 22 53  |..<."S/Guide","S|
00000f70  2f 47 75 69 64 65 22 2c  22 42 72 69 65 66 20 55  |/Guide","Brief U|
00000f80  73 65 72 20 47 75 69 64  65 22 2c 22 54 65 78 74  |ser Guide","Text|
00000f90  22 2c 30 2c 30 2c 37 2c  26 44 41 0d 05 fa 3b dc  |",0,0,7,&DA...;.|
00000fa0  22 53 6d 61 6e 75 61 6c  22 2c 22 53 61 74 6d 61  |"Smanual","Satma|
00000fb0  6e 75 61 6c 22 2c 22 53  79 73 74 65 6d 20 4d 61  |nual","System Ma|
00000fc0  6e 75 61 6c 22 2c 22 54  65 78 74 22 2c 30 2c 30  |nual","Text",0,0|
00000fd0  2c 37 2c 26 44 41 0d 06  04 3f dc 22 50 72 6f 74  |,7,&DA...?."Prot|
00000fe0  6f 63 6c 22 2c 22 50 72  6f 74 6f 63 6f 6c 22 2c  |ocl","Protocol",|
00000ff0  22 44 61 74 61 20 66 69  6c 65 20 70 72 6f 74 6f  |"Data file proto|
00001000  63 6f 6c 22 2c 22 54 65  78 74 22 2c 30 2c 30 2c  |col","Text",0,0,|
00001010  37 2c 26 44 41 0d 06 0e  4a dc 22 53 41 54 6c 6f  |7,&DA...J."SATlo|
00001020  61 64 22 2c 22 53 61 74  4c 6f 61 64 65 72 22 2c  |ad","SatLoader",|
00001030  22 53 61 74 65 6c 6c 69  74 65 20 46 69 6c 65 20  |"Satellite File |
00001040  44 27 4c 64 22 2c 22 42  41 53 49 43 22 2c 26 31  |D'Ld","BASIC",&1|
00001050  39 30 30 2c 26 38 30 31  46 2c 37 2c 26 44 41 0d  |900,&801F,7,&DA.|
00001060  06 18 46 dc 22 53 41 54  73 65 71 22 2c 22 53 61  |..F."SATseq","Sa|
00001070  74 53 65 71 27 6e 63 65  22 2c 22 49 6d 61 67 65  |tSeq'nce","Image|
00001080  20 73 65 71 75 65 6e 63  65 72 22 2c 22 42 41 53  | sequencer","BAS|
00001090  49 43 22 2c 26 31 39 30  30 2c 26 38 30 31 46 2c  |IC",&1900,&801F,|
000010a0  37 2c 26 44 41 0d 06 22  4b dc 22 44 69 73 70 6c  |7,&DA.."K."Displ|
000010b0  61 79 22 2c 22 53 61 74  44 69 73 70 6c 61 79 22  |ay","SatDisplay"|
000010c0  2c 22 53 61 74 2e 44 69  73 70 6c 61 79 20 43 72  |,"Sat.Display Cr|
000010d0  65 61 74 6f 72 22 2c 22  42 41 53 49 43 22 2c 26  |eator","BASIC",&|
000010e0  31 39 30 30 2c 26 38 30  32 33 2c 37 2c 26 44 41  |1900,&8023,7,&DA|
000010f0  0d 06 2c 45 dc 22 53 61  74 53 68 6f 77 22 2c 22  |..,E."SatShow","|
00001100  53 61 74 53 68 6f 77 22  2c 22 52 65 61 64 20 66  |SatShow","Read f|
00001110  69 6c 65 20 68 65 61 64  65 72 22 2c 22 42 41 53  |ile header","BAS|
00001120  49 43 22 2c 26 31 39 30  30 2c 26 38 30 32 33 2c  |IC",&1900,&8023,|
00001130  37 2c 26 44 41 0d 06 36  4a dc 22 41 72 63 44 69  |7,&DA..6J."ArcDi|
00001140  73 70 22 2c 22 41 72 63  44 69 73 70 6c 61 79 22  |sp","ArcDisplay"|
00001150  2c 22 41 72 63 68 69 6d  65 64 65 73 20 64 69 73  |,"Archimedes dis|
00001160  70 6c 61 79 22 2c 22 42  41 53 49 43 22 2c 26 31  |play","BASIC",&1|
00001170  39 30 30 2c 26 38 30 32  33 2c 37 2c 26 44 41 0d  |900,&8023,7,&DA.|
00001180  06 40 1a dc 22 22 2c 22  22 2c 22 22 2c 22 22 2c  |.@.."","","","",|
00001190  30 2c 30 2c 37 2c 26 46  46 0d 06 4a 22 dc 22 22  |0,0,7,&FF..J".""|
000011a0  2c 22 83 4f 74 68 65 72  73 3a 22 2c 22 22 2c 22  |,".Others:","","|
000011b0  22 2c 30 2c 30 2c 37 2c  26 46 46 0d 06 54 42 dc  |",0,0,7,&FF..TB.|
000011c0  22 54 54 58 50 72 6e 74  22 2c 22 54 54 58 50 72  |"TTXPrnt","TTXPr|
000011d0  69 6e 74 22 2c 22 41 54  53 20 50 61 67 65 20 50  |int","ATS Page P|
000011e0  72 69 6e 74 65 72 22 2c  22 4d 2f 43 22 2c 26 41  |rinter","M/C",&A|
000011f0  30 30 2c 26 41 30 30 2c  37 2c 26 44 41 0d 06 5e  |00,&A00,7,&DA..^|
00001200  4a dc 22 50 72 6e 74 53  72 63 22 2c 22 50 72 69  |J."PrntSrc","Pri|
00001210  6e 74 53 72 63 65 22 2c  22 54 54 58 50 72 6e 74  |ntSrce","TTXPrnt|
00001220  20 73 6f 75 72 63 65 20  63 6f 64 65 22 2c 22 42  | source code","B|
00001230  41 53 49 43 22 2c 26 31  39 30 30 2c 26 38 30 32  |ASIC",&1900,&802|
00001240  42 2c 37 2c 26 44 41 0d  06 68 44 dc 22 53 68 61  |B,7,&DA..hD."Sha|
00001250  72 65 73 32 22 2c 22 53  68 61 72 55 70 64 61 74  |res2","SharUpdat|
00001260  65 22 2c 22 53 48 41 52  45 53 20 70 72 6f 67 20  |e","SHARES prog |
00001270  75 70 64 61 74 65 73 22  2c 22 54 65 78 74 22 2c  |updates","Text",|
00001280  26 30 2c 26 30 2c 37 2c  26 44 41 0d ff           |&0,&0,7,&DA..|
0000128d