�"�Utils
:
�"�(C) Jeremy Brayshaw
(�"�February 1989
2�"�V.1 27 Feb 89
<�"�For use with ATS & ATS+
F:
P�7:H%=�:�=&5000
Z:
d:
nexpiry=47602:� 18 MAR 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:
�� 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
"J�"SATseq","SatSeq'nce","Image sequencer�***","V2.16",&1900,&801F,7,&DA
,K�"Display","SatDisplay","Sat.Display Creator","BASIC",&1900,&8023,7,&DA
6E�"SatShow","SatShow","Read file header","BASIC",&1900,&8023,7,&DA
@J�"ArcDisp","ArcDisplay","Archimedes display","BASIC",&1900,&8023,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
hJ�"PrntSrc","PrintSrce","TTXPrnt source code","BASIC",&1900,&802B,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  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 05 3a 0d 00  |.:.=&5000..Z.:..|
00000090  64 05 3a 0d 00 6e 1c 65  78 70 69 72 79 3d 34 37  |d.:..n.expiry=47|
000000a0  36 30 32 3a f4 20 31 38  20 4d 41 52 20 38 39 0d  |602:. 18 MAR 89.|
000000b0  00 78 32 6d 6f 6e 74 68  63 72 65 64 69 74 24 3d  |.x2monthcredit$=|
000000c0  22 4d 61 72 63 68 20 38  39 22 3a f4 20 45 78 61  |"March 89":. Exa|
000000d0  63 74 6c 79 20 38 20 63  68 61 72 61 63 74 65 72  |ctly 8 character|
000000e0  73 0d 00 82 05 3a 0d 00  8c 05 3a 0d 00 96 36 41  |s....:....:...6A|
000000f0  25 3d 26 45 41 3a 58 25  3d 30 3a 59 25 3d 2d 31  |%=&EA:X%=0:Y%=-1|
00000100  3a e7 28 ba 28 26 46 46  46 34 29 80 26 46 46 46  |:.(.(&FFF4).&FFF|
00000110  46 29 81 26 31 30 30 3a  f2 74 75 62 65 6f 6e 3a  |F).&100:.tubeon:|
00000120  e0 0d 00 a0 0f ee 20 85  20 f2 65 6e 64 28 9f 29  |...... . .end(.)|
00000130  0d 00 aa 12 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.....23,1,0;0;0;|
00000140  30 3b 0d 00 b4 0a 2a 54  54 58 4f 4e 0d 00 be 09  |0;....*TTXON....|
00000150  2a 42 42 43 32 0d 00 c8  08 2a 48 4f 4e 0d 00 d2  |*BBC2....*HON...|
00000160  0f f2 6d 6f 76 65 5f 6f  73 68 77 6d 0d 00 dc 05  |..move_oshwm....|
00000170  3a 0d 00 e6 1e de 20 73  70 61 63 65 20 32 30 2c  |:..... space 20,|
00000180  6e 61 6d 65 20 31 32 2c  6c 69 6e 65 20 31 35 0d  |name 12,line 15.|
00000190  00 f0 15 75 6e 69 74 24  3d a4 77 68 69 63 68 5f  |...unit$=.which_|
000001a0  75 6e 69 74 0d 00 fa 0b  f2 73 65 6c 65 63 74 0d  |unit.....select.|
000001b0  01 04 35 f2 68 65 61 64  69 6e 67 28 32 2c 22 87  |..5.heading(2,".|
000001c0  46 69 6c 65 3a 86 22 2b  6e 61 6d 65 24 2b bd 31  |File:."+name$+.1|
000001d0  30 2b bd 31 33 2b 22 20  83 22 2b 63 6f 6d 6d 65  |0+.13+" ."+comme|
000001e0  6e 74 24 29 0d 01 0e 2c  f2 64 6f 77 6e 6c 6f 61  |nt$)...,.downloa|
000001f0  64 28 6d 61 67 25 2c 70  61 67 25 2c 66 6e 24 2c  |d(mag%,pag%,fn$,|
00000200  6c 6f 61 64 25 2c 65 78  65 63 25 2c b9 2c b9 29  |load%,exec%,.,.)|
00000210  0d 01 18 06 eb 37 0d 01  22 0b f2 65 6e 64 28 b9  |.....7.."..end(.|
00000220  29 0d 01 2c 05 e0 0d 01  36 05 3a 0d 01 40 10 dd  |)..,....6.:..@..|
00000230  f2 6d 6f 76 65 5f 6f 73  68 77 6d 0d 01 4a 0c 53  |.move_oshwm..J.S|
00000240  25 3d 26 35 30 30 30 0d  01 54 20 41 25 3d 26 42  |%=&5000..T A%=&B|
00000250  34 3a 58 25 3d 53 25 81  32 35 36 3a 59 25 3d 30  |4:X%=S%.256:Y%=0|
00000260  3a d6 26 46 46 46 34 0d  01 5e 05 e1 0d 01 68 05  |:.&FFF4..^....h.|
00000270  3a 0d 01 72 42 dd f2 64  6f 77 6e 6c 6f 61 64 28  |:..rB..download(|
00000280  6d 61 67 61 7a 69 6e 65  25 2c 70 61 67 65 25 2c  |magazine%,page%,|
00000290  66 69 6c 65 6e 61 6d 65  24 2c 6c 6f 61 64 25 2c  |filename$,load%,|
000002a0  65 78 65 63 25 2c 73 61  76 65 25 2c 72 65 73 65  |exec%,save%,rese|
000002b0  74 25 29 0d 01 7c 24 f2  6f 73 63 6c 69 28 22 4d  |t%)..|$.oscli("M|
000002c0  41 47 41 5a 49 4e 45 20  22 2b c3 28 6d 61 67 61  |AGAZINE "+.(maga|
000002d0  7a 69 6e 65 25 29 29 0d  01 86 0e 73 70 61 63 65  |zine%))....space|
000002e0  3f 30 3d 32 34 0d 01 90  27 73 70 61 63 65 3f 31  |?0=24...'space?1|
000002f0  3d 6e 61 6d 65 20 83 32  35 36 3a 73 70 61 63 65  |=name .256:space|
00000300  3f 32 3d 6e 61 6d 65 20  81 32 35 36 0d 01 9a 13  |?2=name .256....|
00000310  24 6e 61 6d 65 3d 66 69  6c 65 6e 61 6d 65 24 0d  |$name=filename$.|
00000320  01 a4 20 e3 66 25 3d 6e  61 6d 65 20 b8 20 6e 61  |.. .f%=name . na|
00000330  6d 65 2b a9 28 66 69 6c  65 6e 61 6d 65 24 29 0d  |me+.(filename$).|
00000340  01 ae 22 e7 3f 66 25 3e  39 36 20 80 3f 66 25 3c  |..".?f%>96 .?f%<|
00000350  31 32 33 20 3f 66 25 3d  28 3f 66 25 29 80 26 44  |123 ?f%=(?f%).&D|
00000360  46 0d 01 b8 05 ed 0d 01  c2 11 73 70 61 63 65 21  |F.........space!|
00000370  33 3d 6c 6f 61 64 25 0d  01 cc 11 73 70 61 63 65  |3=load%....space|
00000380  21 37 3d 65 78 65 63 25  0d 01 d6 16 73 70 61 63  |!7=exec%....spac|
00000390  65 3f 31 31 3d 6d 61 67  61 7a 69 6e 65 25 0d 01  |e?11=magazine%..|
000003a0  e0 12 73 70 61 63 65 3f  31 32 3d 70 61 67 65 25  |..space?12=page%|
000003b0  0d 01 ea 24 e7 73 61 76  65 25 3d b9 20 73 70 61  |...$.save%=. spa|
000003c0  63 65 3f 31 33 3d 31 20  8b 20 73 70 61 63 65 3f  |ce?13=1 . space?|
000003d0  31 33 3d 30 0d 01 f4 25  e7 72 65 73 65 74 25 3d  |13=0...%.reset%=|
000003e0  b9 20 73 70 61 63 65 3f  31 34 3d 30 20 8b 20 73  |. space?14=0 . s|
000003f0  70 61 63 65 3f 31 34 3d  31 0d 01 fe 26 41 25 3d  |pace?14=1...&A%=|
00000400  26 37 41 3a 58 25 3d 73  70 61 63 65 20 83 32 35  |&7A:X%=space .25|
00000410  36 3a 59 25 3d 73 70 61  63 65 20 81 32 35 36 0d  |6:Y%=space .256.|
00000420  02 08 0a d6 26 46 46 46  31 0d 02 12 05 e1 0d 02  |....&FFF1.......|
00000430  1c 05 3a 0d 02 26 12 dd  f2 6f 73 63 6c 69 28 74  |..:..&...oscli(t|
00000440  65 78 74 24 29 0d 02 30  29 24 6c 69 6e 65 3d 74  |ext$)..0)$line=t|
00000450  65 78 74 24 3a 58 25 3d  6c 69 6e 65 20 83 32 35  |ext$:X%=line .25|
00000460  36 3a 59 25 3d 6c 69 6e  65 20 81 32 35 36 0d 02  |6:Y%=line .256..|
00000470  3a 0a d6 26 46 46 46 37  0d 02 44 05 e1 0d 02 4e  |:..&FFF7..D....N|
00000480  05 3a 0d 02 58 1b dd f2  68 65 61 64 69 6e 67 28  |.:..X...heading(|
00000490  6d 61 72 6b 25 2c 66 6e  61 6d 65 24 29 0d 02 62  |mark%,fname$)..b|
000004a0  14 db 3a e7 6d 61 72 6b  25 3d 31 20 e5 8d 44 76  |..:.mark%=1 ..Dv|
000004b0  42 0d 02 6c 60 e7 75 6e  69 74 24 3d 22 47 49 53  |B..l`.unit$="GIS|
000004c0  22 20 f1 27 bd 31 35 31  2b c4 33 39 2c 22 2c 22  |" .'.151+.39,","|
000004d0  29 2b bd 31 33 32 2b bd  31 35 37 2b bd 31 33 31  |)+.132+.157+.131|
000004e0  2b 22 42 42 43 20 54 65  6c 65 73 6f 66 74 77 61  |+"BBC Telesoftwa|
000004f0  72 65 20 55 74 69 6c 69  74 69 65 73 22 27 bd 31  |re Utilities"'.1|
00000500  35 31 2b c4 33 39 2c 22  2c 22 29 3a e5 8d 74 68  |51+.39,","):..th|
00000510  42 0d 02 76 2e f1 27 22  9a 91 a0 a0 fc fc fc fc  |B..v..'"........|
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 fc fc fc fc fc 22 0d  |..............".|
00000540  02 80 2d f1 22 9a 93 a8  af ef ff af af a1 91 ff  |..-."...........|
00000550  ff 9e 81 9d 87 42 42 43  20 54 65 6c 65 73 6f 66  |.....BBC Telesof|
00000560  74 77 61 72 65 91 60 9c  ff ff ff 22 0d 02 8a 2d  |tware.`...."...-|
00000570  f1 22 9a 93 a0 a0 fe a7  91 f8 fc ff ff ff 9e 81  |."..............|
00000580  9d 87 20 20 20 20 55 74  69 6c 69 74 69 65 73 20  |..    Utilities |
00000590  20 20 20 91 9c ff ff ff  22 0d 02 94 35 f1 22 9a  |   ....."...5.".|
000005a0  93 a0 fa b7 91 e8 ff ff  ff ff ff 9e 81 9d 83 28  |...............(|
000005b0  43 29 42 42 43 74 76 20  22 3b 6d 6f 6e 74 68 63  |C)BBCtv ";monthc|
000005c0  72 65 64 69 74 24 3b 22  91 9c ff ff ff 22 0d 02  |redit$;"....."..|
000005d0  9e 2d f1 22 9a 91 a0 a0  fc fc ff ff ff ff ff ff  |.-."............|
000005e0  ff ff ff fc fc fc fc fc  fc fc fc 7c 7c fc fc fc  |...........||...|
000005f0  fc fc fc fc fc fc fc ff  ff ff 22 0d 02 a8 11 f1  |..........".....|
00000600  8a 31 2c 31 37 29 66 6e  61 6d 65 24 0d 02 b2 05  |.1,17)fname$....|
00000610  e1 0d 02 bc 05 3a 0d 02  c6 12 dd f2 72 65 74 75  |.....:......retu|
00000620  72 6e 5f 6f 73 68 77 6d  0d 02 d0 20 41 25 3d 26  |rn_oshwm... A%=&|
00000630  42 34 3a 58 25 3d 90 20  81 32 35 36 3a 59 25 3d  |B4:X%=. .256:Y%=|
00000640  30 3a d6 26 46 46 46 34  0d 02 da 05 e1 0d 02 e4  |0:.&FFF4........|
00000650  05 3a 0d 02 ee 0a dd a4  64 61 74 65 0d 02 f8 0d  |.:......date....|
00000660  ea 5a 25 2c 4d 25 2c 44  25 0d 03 02 34 41 25 3d  |.Z%,M%,D%...4A%=|
00000670  26 37 41 3a 58 25 3d 6c  69 6e 65 20 83 32 35 36  |&7A:X%=line .256|
00000680  3a 59 25 3d 6c 69 6e 65  20 81 32 35 36 3a 3f 6c  |:Y%=line .256:?l|
00000690  69 6e 65 3d 31 35 3a d6  26 46 46 46 31 0d 03 0c  |ine=15:.&FFF1...|
000006a0  17 42 42 31 24 3d c2 c3  7e 28 6c 69 6e 65 3f 38  |.BB1$=..~(line?8|
000006b0  29 2c 31 29 0d 03 16 2d  42 42 32 24 3d c3 7e 28  |),1)...-BB2$=.~(|
000006c0  6c 69 6e 65 3f 39 29 3a  e7 20 a9 28 42 42 32 24  |line?9):. .(BB2$|
000006d0  29 3d 31 20 42 42 32 24  3d 22 30 22 2b 42 42 32  |)=1 BB2$="0"+BB2|
000006e0  24 0d 03 20 2e 42 42 33  24 3d c3 7e 28 6c 69 6e  |$.. .BB3$=.~(lin|
000006f0  65 3f 31 30 29 3a e7 20  a9 28 42 42 33 24 29 3d  |e?10):. .(BB3$)=|
00000700  31 20 42 42 33 24 3d 22  30 22 2b 42 42 33 24 0d  |1 BB3$="0"+BB3$.|
00000710  03 2a 18 4a 44 3d bb 28  42 42 31 24 2b 42 42 32  |.*.JD=.(BB1$+BB2|
00000720  24 2b 42 42 33 24 29 0d  03 34 4b e7 4a 44 3c 34  |$+BB3$)..4K.JD<4|
00000730  37 35 36 30 20 3d 22 20  20 20 22 2b bd 31 32 39  |7560 ="   "+.129|
00000740  2b bd 31 35 37 2b bd 31  33 35 2b 22 43 75 72 72  |+.157+.135+"Curr|
00000750  65 6e 74 20 64 61 74 65  20 6e 6f 74 20 61 76 61  |ent date not ava|
00000760  69 6c 61 62 6c 65 20 20  20 20 20 20 22 2b bd 31  |ilable      "+.1|
00000770  35 36 0d 03 3e 1f 59 31  3d 28 31 30 30 2a 28 4a  |56..>.Y1=(100*(J|
00000780  44 2d 31 35 30 37 38 2e  32 29 29 81 33 36 35 32  |D-15078.2)).3652|
00000790  35 0d 03 48 2b 4d 31 3d  a8 28 28 4a 44 2d 31 34  |5..H+M1=.((JD-14|
000007a0  39 35 36 2e 31 2d a8 28  33 36 35 2e 32 35 2a 59  |956.1-.(365.25*Y|
000007b0  31 29 29 2f 33 30 2e 36  30 30 31 29 0d 03 52 3c  |1))/30.6001)..R<|
000007c0  44 25 3d 4a 44 2d 31 34  39 35 36 2d a8 28 33 36  |D%=JD-14956-.(36|
000007d0  35 2e 32 35 2a 59 31 29  2d a8 28 33 30 2e 36 2a  |5.25*Y1)-.(30.6*|
000007e0  4d 31 29 3a 4b 3d a8 28  30 2e 37 2b 28 31 2f 28  |M1):K=.(0.7+(1/(|
000007f0  31 37 2d 4d 31 29 29 29  0d 03 5c 10 4d 25 3d 4d  |17-M1)))..\.M%=M|
00000800  31 2d 31 2d 31 32 2a 4b  0d 03 66 0b 5a 25 3d 59  |1-1-12*K..f.Z%=Y|
00000810  31 2b 4b 0d 03 70 31 57  25 3d 28 4a 44 2b 33 29  |1+K..p1W%=(JD+3)|
00000820  83 37 3a f7 8d 44 7a 43  3a e3 64 61 79 3d 30 b8  |.7:..DzC:.day=0.|
00000830  57 25 3a f3 44 24 3a ed  3a 44 24 3d 44 24 2b 22  |W%:.D$:.:D$=D$+"|
00000840  64 61 79 22 0d 03 7a 29  dc 20 53 75 6e 2c 4d 6f  |day"..z). Sun,Mo|
00000850  6e 2c 54 75 65 73 2c 57  65 64 6e 65 73 2c 54 68  |n,Tues,Wednes,Th|
00000860  75 72 73 2c 46 72 69 2c  53 61 74 75 72 0d 03 84  |urs,Fri,Satur...|
00000870  1d f7 8d 74 4e 43 3a e3  64 61 79 3d 31 b8 4d 25  |...tNC:.day=1.M%|
00000880  3a f3 6d 6f 6e 74 68 24  3a ed 0d 03 8e 5b dc 20  |:.month$:....[. |
00000890  4a 61 6e 75 61 72 79 2c  46 65 62 72 75 61 72 79  |January,February|
000008a0  2c 4d 61 72 63 68 2c 41  70 72 69 6c 2c 4d 61 79  |,March,April,May|
000008b0  2c 4a 75 6e 65 2c 4a 75  6c 79 2c 41 75 67 75 73  |,June,July,Augus|
000008c0  74 2c 53 65 70 74 65 6d  62 65 72 2c 4f 63 74 6f  |t,September,Octo|
000008d0  62 65 72 2c 4e 6f 76 65  6d 62 65 72 2c 44 65 63  |ber,November,Dec|
000008e0  65 6d 62 65 72 0d 03 98  54 e7 44 25 3d 31 84 44  |ember...T.D%=1.D|
000008f0  25 3d 32 31 84 44 25 3d  33 31 20 74 68 24 3d 22  |%=21.D%=31 th$="|
00000900  73 74 22 20 8b e7 44 25  3d 32 84 44 25 3d 32 32  |st" ..D%=2.D%=22|
00000910  20 74 68 24 3d 22 6e 64  22 20 8b e7 44 25 3d 33  | th$="nd" ..D%=3|
00000920  84 44 25 3d 32 33 20 74  68 24 3d 22 72 64 22 20  |.D%=23 th$="rd" |
00000930  8b 74 68 24 3d 22 74 68  22 0d 03 a2 2f 64 74 24  |.th$="th".../dt$|
00000940  3d 44 24 2b 22 20 22 2b  c3 28 44 25 29 2b 74 68  |=D$+" "+.(D%)+th|
00000950  24 2b 22 20 22 2b 6d 6f  6e 74 68 24 2b 22 20 31  |$+" "+month$+" 1|
00000960  39 22 2b c3 28 5a 25 29  0d 03 ac 32 3d 22 20 20  |9"+.(Z%)...2="  |
00000970  20 22 2b bd 31 32 39 2b  bd 31 35 37 2b bd 31 33  | "+.129+.157+.13|
00000980  35 2b 64 74 24 2b c4 33  32 2d a9 28 64 74 24 29  |5+dt$+.32-.(dt$)|
00000990  2c 22 20 22 29 2b bd 31  35 36 0d 03 b6 05 3a 0d  |," ")+.156....:.|
000009a0  03 c0 10 dd a4 77 68 69  63 68 5f 75 6e 69 74 0d  |.....which_unit.|
000009b0  03 ca 24 41 25 3d 26 37  41 3a 58 25 3d 6c 69 6e  |..$A%=&7A:X%=lin|
000009c0  65 20 83 32 35 36 3a 59  25 3d 6c 69 6e 65 20 81  |e .256:Y%=line .|
000009d0  32 35 36 0d 03 d4 1f 6c  69 6e 65 3f 30 3d 31 37  |256....line?0=17|
000009e0  3a 6c 69 6e 65 3f 33 3d  26 46 46 3a d6 26 46 46  |:line?3=&FF:.&FF|
000009f0  46 31 0d 03 de 1e e7 6c  69 6e 65 3f 33 3d 26 46  |F1.....line?3=&F|
00000a00  46 20 3d 22 41 54 53 22  20 8b 3d 22 47 49 53 22  |F ="ATS" .="GIS"|
00000a10  0d 03 e8 05 3a 0d 03 f2  0c dd f2 74 75 62 65 6f  |....:......tubeo|
00000a20  6e 0d 03 fc 9f f2 68 65  61 64 69 6e 67 28 31 2c  |n.....heading(1,|
00000a30  bd 31 32 37 2b bd 31 35  31 2b c4 33 39 2c 22 2c  |.127+.151+.39,",|
00000a40  22 29 2b bd 31 32 39 2b  bd 31 35 37 2b bd 31 33  |")+.129+.157+.13|
00000a50  35 2b 22 54 68 65 20 27  54 75 62 65 27 20 69 73  |5+"The 'Tube' is|
00000a60  20 61 63 74 69 76 65 2e  20 50 6c 65 61 73 65 20  | active. Please |
00000a70  64 69 73 61 62 6c 65 22  2b bd 31 30 2b bd 31 33  |disable"+.10+.13|
00000a80  2b bd 31 32 39 2b bd 31  35 37 2b bd 31 33 35 2b  |+.129+.157+.135+|
00000a90  22 74 68 65 6e 20 43 48  41 49 4e 20 55 74 69 6c  |"then CHAIN Util|
00000aa0  73 20 61 67 61 69 6e 2e  22 2b bd 31 30 2b bd 31  |s again."+.10+.1|
00000ab0  33 2b bd 31 35 31 2b c4  33 39 2c 22 2c 22 29 29  |3+.151+.39,","))|
00000ac0  0d 04 06 14 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.....23,1,0;0;0;|
00000ad0  30 3b 3a f1 0d 04 10 05  e1 0d 04 1a 05 3a 0d 04  |0;:..........:..|
00000ae0  24 0c dd f2 73 65 6c 65  63 74 0d 04 2e 12 f2 68  |$...select.....h|
00000af0  65 61 64 69 6e 67 28 31  2c 22 22 29 0d 04 38 0b  |eading(1,"")..8.|
00000b00  f1 8a 30 2c 36 29 3b 0d  04 42 0a f7 20 8d 64 5c  |..0,6);..B.. .d\|
00000b10  45 0d 04 4c 0a f3 20 71  74 79 25 0d 04 56 0a f1  |E..L.. qty%..V..|
00000b20  a4 64 61 74 65 0d 04 60  3d e7 4a 44 3e 65 78 70  |.date..`=.JD>exp|
00000b30  69 72 79 20 f1 22 88 81  4f 55 54 20 4f 46 20 44  |iry ."..OUT OF D|
00000b40  41 54 45 20 2d 89 44 6f  77 6e 6c 6f 61 64 20 6e  |ATE -.Download n|
00000b50  65 77 20 55 54 49 4c 53  20 66 69 6c 65 22 3b 3a  |ew UTILS file";:|
00000b60  8b f1 0d 04 6a 0a f7 20  8d 64 66 45 0d 04 74 0f  |....j.. .dfE..t.|
00000b70  e3 6e 6f 25 3d 31 b8 71  74 79 25 0d 04 7e 33 f3  |.no%=1.qty%..~3.|
00000b80  66 6e 24 2c 6e 61 6d 65  24 2c 63 6f 6d 6d 65 6e  |fn$,name$,commen|
00000b90  74 24 2c 74 79 70 65 24  2c 6c 6f 61 64 25 2c 65  |t$,type$,load%,e|
00000ba0  78 65 63 25 2c 6d 61 67  25 2c 70 61 67 25 0d 04  |xec%,mag%,pag%..|
00000bb0  88 31 e7 70 61 67 25 3d  26 46 46 20 f1 22 20 20  |.1.pag%=&FF ."  |
00000bc0  20 20 22 3b 3a 8b f1 22  83 22 3b c2 22 20 20 22  |  ";:..".";."  "|
00000bd0  2b c3 28 6e 6f 25 29 2c  32 29 3b 22 86 22 3b 0d  |+.(no%),2);".";.|
00000be0  04 92 4a f1 c0 6e 61 6d  65 24 2b c4 31 30 2c 22  |..J..name$+.10,"|
00000bf0  20 22 29 2c 31 30 29 3b  22 87 22 3b c0 63 6f 6d  | "),10);".";.com|
00000c00  6d 65 6e 74 24 2b c4 31  39 2c 22 20 22 29 2c 31  |ment$+.19," "),1|
00000c10  39 29 3b 22 20 22 3b c0  74 79 70 65 24 2b c4 35  |9);" ";.type$+.5|
00000c20  2c 22 20 22 29 2c 35 29  3b 0d 04 9c 13 e7 70 61  |," "),5);.....pa|
00000c30  67 25 3d 26 46 46 20 e5  8d 44 7e 44 0d 04 a6 05  |g%=&FF ..D~D....|
00000c40  ed 0d 04 b0 31 e8 8a 32  2c 32 33 29 22 81 9d 87  |....1..2,23)"...|
00000c50  45 6e 74 65 72 20 6e 75  6d 62 65 72 20 6f 66 20  |Enter number of |
00000c60  66 69 6c 65 20 72 65 71  75 69 72 65 64 3a 22 6e  |file required:"n|
00000c70  6f 25 0d 04 ba 2c e7 6e  6f 25 3c 31 20 84 20 6e  |o%...,.no%<1 . n|
00000c80  6f 25 3e 71 74 79 25 20  ef 37 3a f1 8a 31 2c 32  |o%>qty% .7:..1,2|
00000c90  33 29 89 28 33 39 29 3b  3a e5 8d 74 70 44 0d 04  |3).(39);:..tpD..|
00000ca0  c4 0a f7 20 8d 64 66 45  0d 04 ce 0d e3 61 25 3d  |... .dfE.....a%=|
00000cb0  31 b8 6e 6f 25 0d 04 d8  33 f3 66 6e 24 2c 6e 61  |1.no%...3.fn$,na|
00000cc0  6d 65 24 2c 63 6f 6d 6d  65 6e 74 24 2c 74 79 70  |me$,comment$,typ|
00000cd0  65 24 2c 6c 6f 61 64 25  2c 65 78 65 63 25 2c 6d  |e$,load%,exec%,m|
00000ce0  61 67 25 2c 70 61 67 25  0d 04 e2 13 e7 70 61 67  |ag%,pag%.....pag|
00000cf0  25 3d 26 46 46 20 e5 8d  64 58 44 0d 04 ec 05 ed  |%=&FF ..dXD.....|
00000d00  0d 04 f6 05 e1 0d 05 00  05 3a 0d 05 0a 11 f4 22  |.........:....."|
00000d10  81 45 72 72 6f 72 20 74  72 61 70 0d 05 14 0f dd  |.Error trap.....|
00000d20  f2 65 6e 64 28 65 72 72  25 29 0d 05 1e 0b ee 85  |.end(err%)......|
00000d30  e5 8d 44 5a 45 0d 05 28  63 e7 65 72 72 25 3d 32  |..DZE..(c.err%=2|
00000d40  35 34 3a f2 68 65 61 64  69 6e 67 28 31 2c 22 83  |54:.heading(1,".|
00000d50  55 6e 72 65 63 6f 67 6e  69 73 65 64 20 63 6f 6d  |Unrecognised com|
00000d60  6d 61 6e 64 20 66 6f 75  6e 64 22 2b bd 31 30 2b  |mand found"+.10+|
00000d70  bd 31 33 2b 22 20 83 49  73 20 74 68 65 20 61 64  |.13+" .Is the ad|
00000d80  61 70 74 6f 72 20 74 75  72 6e 65 64 20 6f 6e 3f  |aptor turned on?|
00000d90  22 29 3a e5 8d 44 5a 45  0d 05 32 0b 2a 54 54 58  |"):..DZE..2.*TTX|
00000da0  4f 46 46 0d 05 3c 07 ef  32 36 0d 05 46 12 f2 68  |OFF..<..26..F..h|
00000db0  65 61 64 69 6e 67 28 31  2c 22 22 29 0d 05 50 12  |eading(1,"")..P.|
00000dc0  e7 65 72 72 25 3d 2d 31  20 e5 8d 74 60 45 0d 05  |.err%=-1 ..t`E..|
00000dd0  5a 24 f1 8a 30 2c 31 39  29 89 28 34 30 29 3b bd  |Z$..0,19).(40);.|
00000de0  31 35 31 3b c4 33 39 2c  22 2c 22 29 3b 89 28 34  |151;.39,",");.(4|
00000df0  30 29 0d 05 64 24 f1 8a  30 2c 32 31 29 22 83 45  |0)..d$..0,21)".E|
00000e00  72 72 6f 72 3a 22 3b bd  31 32 39 3b bd 31 35 37  |rror:";.129;.157|
00000e10  3b bd 31 33 35 3b 0d 05  6e 1b 73 74 25 3d 28 28  |;.135;..n.st%=((|
00000e20  3f 26 46 45 29 2a 32 35  36 29 2b 28 3f 26 46 44  |?&FE)*256)+(?&FD|
00000e30  29 0d 05 78 47 65 72 72  65 70 25 3d 73 74 25 3a  |)..xGerrep%=st%:|
00000e40  f5 3a 65 72 72 65 70 25  3d 65 72 72 65 70 25 2b  |.:errep%=errep%+|
00000e50  31 3a ef 3f 28 65 72 72  65 70 25 29 3a fd 20 3f  |1:.?(errep%):. ?|
00000e60  65 72 72 65 70 25 3d 30  20 84 20 65 72 72 65 70  |errep%=0 . errep|
00000e70  25 3d 73 74 25 2b 33 30  0d 05 82 23 f1 22 20 20  |%=st%+30...#."  |
00000e80  22 3b bd 31 35 36 27 bd  31 35 31 3b c4 33 39 2c  |";.156'.151;.39,|
00000e90  22 2c 22 29 3b 89 28 34  30 29 3b 0d 05 8c 11 f2  |",");.(40);.....|
00000ea0  72 65 74 75 72 6e 5f 6f  73 68 77 6d 0d 05 96 08  |return_oshwm....|
00000eb0  d3 3d 48 25 0d 05 a0 1a  ef 32 33 2c 31 2c 31 3b  |.=H%.....23,1,1;|
00000ec0  30 3b 30 3b 30 3b 3a f1  8a 30 2c 37 29 3b 0d 05  |0;0;0;:..0,7);..|
00000ed0  aa 0c 2a 46 58 32 32 39  2c 30 0d 05 b4 08 2a 46  |..*FX229,0....*F|
00000ee0  58 34 0d 05 be 05 e0 0d  05 c8 05 3a 0d 05 d2 1b  |X4.........:....|
00000ef0  f4 22 81 4e 6f 2e 20 6f  66 20 41 43 54 55 41 4c  |.".No. of ACTUAL|
00000f00  20 66 69 6c 65 73 3a 0d  05 dc 08 dc 20 31 31 0d  | files:..... 11.|
00000f10  05 e6 1d f4 22 81 52 45  53 54 4f 52 45 20 63 6f  |....".RESTORE co|
00000f20  6d 65 73 20 74 6f 20 68  65 72 65 21 0d 05 f0 36  |mes to here!...6|
00000f30  dc 22 22 2c 22 83 53 61  74 65 6c 6c 69 74 65 22  |."",".Satellite"|
00000f40  2c 22 83 53 65 72 76 69  63 65 20 53 6f 66 74 77  |,".Service Softw|
00000f50  61 72 65 3a 22 2c 22 22  2c 30 2c 30 2c 37 2c 26  |are:","",0,0,7,&|
00000f60  46 46 0d 05 fa 3c dc 22  53 2f 47 75 69 64 65 22  |FF...<."S/Guide"|
00000f70  2c 22 53 2f 47 75 69 64  65 22 2c 22 42 72 69 65  |,"S/Guide","Brie|
00000f80  66 20 55 73 65 72 20 47  75 69 64 65 22 2c 22 54  |f User Guide","T|
00000f90  65 78 74 22 2c 30 2c 30  2c 37 2c 26 44 41 0d 06  |ext",0,0,7,&DA..|
00000fa0  04 3b dc 22 53 6d 61 6e  75 61 6c 22 2c 22 53 61  |.;."Smanual","Sa|
00000fb0  74 6d 61 6e 75 61 6c 22  2c 22 53 79 73 74 65 6d  |tmanual","System|
00000fc0  20 4d 61 6e 75 61 6c 22  2c 22 54 65 78 74 22 2c  | Manual","Text",|
00000fd0  30 2c 30 2c 37 2c 26 44  41 0d 06 0e 3f dc 22 50  |0,0,7,&DA...?."P|
00000fe0  72 6f 74 6f 63 6c 22 2c  22 50 72 6f 74 6f 63 6f  |rotocl","Protoco|
00000ff0  6c 22 2c 22 44 61 74 61  20 66 69 6c 65 20 70 72  |l","Data file pr|
00001000  6f 74 6f 63 6f 6c 22 2c  22 54 65 78 74 22 2c 30  |otocol","Text",0|
00001010  2c 30 2c 37 2c 26 44 41  0d 06 18 4a dc 22 53 41  |,0,7,&DA...J."SA|
00001020  54 6c 6f 61 64 22 2c 22  53 61 74 4c 6f 61 64 65  |Tload","SatLoade|
00001030  72 22 2c 22 53 61 74 65  6c 6c 69 74 65 20 46 69  |r","Satellite Fi|
00001040  6c 65 20 44 27 4c 64 22  2c 22 42 41 53 49 43 22  |le D'Ld","BASIC"|
00001050  2c 26 31 39 30 30 2c 26  38 30 31 46 2c 37 2c 26  |,&1900,&801F,7,&|
00001060  44 41 0d 06 22 4a dc 22  53 41 54 73 65 71 22 2c  |DA.."J."SATseq",|
00001070  22 53 61 74 53 65 71 27  6e 63 65 22 2c 22 49 6d  |"SatSeq'nce","Im|
00001080  61 67 65 20 73 65 71 75  65 6e 63 65 72 81 2a 2a  |age sequencer.**|
00001090  2a 22 2c 22 56 32 2e 31  36 22 2c 26 31 39 30 30  |*","V2.16",&1900|
000010a0  2c 26 38 30 31 46 2c 37  2c 26 44 41 0d 06 2c 4b  |,&801F,7,&DA..,K|
000010b0  dc 22 44 69 73 70 6c 61  79 22 2c 22 53 61 74 44  |."Display","SatD|
000010c0  69 73 70 6c 61 79 22 2c  22 53 61 74 2e 44 69 73  |isplay","Sat.Dis|
000010d0  70 6c 61 79 20 43 72 65  61 74 6f 72 22 2c 22 42  |play Creator","B|
000010e0  41 53 49 43 22 2c 26 31  39 30 30 2c 26 38 30 32  |ASIC",&1900,&802|
000010f0  33 2c 37 2c 26 44 41 0d  06 36 45 dc 22 53 61 74  |3,7,&DA..6E."Sat|
00001100  53 68 6f 77 22 2c 22 53  61 74 53 68 6f 77 22 2c  |Show","SatShow",|
00001110  22 52 65 61 64 20 66 69  6c 65 20 68 65 61 64 65  |"Read file heade|
00001120  72 22 2c 22 42 41 53 49  43 22 2c 26 31 39 30 30  |r","BASIC",&1900|
00001130  2c 26 38 30 32 33 2c 37  2c 26 44 41 0d 06 40 4a  |,&8023,7,&DA..@J|
00001140  dc 22 41 72 63 44 69 73  70 22 2c 22 41 72 63 44  |."ArcDisp","ArcD|
00001150  69 73 70 6c 61 79 22 2c  22 41 72 63 68 69 6d 65  |isplay","Archime|
00001160  64 65 73 20 64 69 73 70  6c 61 79 22 2c 22 42 41  |des display","BA|
00001170  53 49 43 22 2c 26 31 39  30 30 2c 26 38 30 32 33  |SIC",&1900,&8023|
00001180  2c 37 2c 26 44 41 0d 06  4a 1a dc 22 22 2c 22 22  |,7,&DA..J.."",""|
00001190  2c 22 22 2c 22 22 2c 30  2c 30 2c 37 2c 26 46 46  |,"","",0,0,7,&FF|
000011a0  0d 06 54 22 dc 22 22 2c  22 83 4f 74 68 65 72 73  |..T"."",".Others|
000011b0  3a 22 2c 22 22 2c 22 22  2c 30 2c 30 2c 37 2c 26  |:","","",0,0,7,&|
000011c0  46 46 0d 06 5e 42 dc 22  54 54 58 50 72 6e 74 22  |FF..^B."TTXPrnt"|
000011d0  2c 22 54 54 58 50 72 69  6e 74 22 2c 22 41 54 53  |,"TTXPrint","ATS|
000011e0  20 50 61 67 65 20 50 72  69 6e 74 65 72 22 2c 22  | Page Printer","|
000011f0  4d 2f 43 22 2c 26 41 30  30 2c 26 41 30 30 2c 37  |M/C",&A00,&A00,7|
00001200  2c 26 44 41 0d 06 68 4a  dc 22 50 72 6e 74 53 72  |,&DA..hJ."PrntSr|
00001210  63 22 2c 22 50 72 69 6e  74 53 72 63 65 22 2c 22  |c","PrintSrce","|
00001220  54 54 58 50 72 6e 74 20  73 6f 75 72 63 65 20 63  |TTXPrnt source c|
00001230  6f 64 65 22 2c 22 42 41  53 49 43 22 2c 26 31 39  |ode","BASIC",&19|
00001240  30 30 2c 26 38 30 32 42  2c 37 2c 26 44 41 0d 06  |00,&802B,7,&DA..|
00001250  72 44 dc 22 53 68 61 72  65 73 32 22 2c 22 53 68  |rD."Shares2","Sh|
00001260  61 72 55 70 64 61 74 65  22 2c 22 53 48 41 52 45  |arUpdate","SHARE|
00001270  53 20 70 72 6f 67 20 75  70 64 61 74 65 73 22 2c  |S prog updates",|
00001280  22 54 65 78 74 22 2c 26  30 2c 26 30 2c 37 2c 26  |"Text",&0,&0,7,&|
00001290  44 41 0d ff                                       |DA..|
00001294