Home » CEEFAX disks » telesoftware14.adl » 01-04-89/Utils

01-04-89/Utils

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware14.adl
Filename: 01-04-89/Utils
Read OK:
File size: 12B4 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10REM"�Utils
   20:
   30REM"�(C) Jeremy Brayshaw
   40REM"�February 1989
   50REM"�V.2a 31 Mar 89
   60REM"�For use with ATS & ATS+
   70:
   80MODE7:H%=HIMEM:HIMEM=&5000
   90:
  100:
  110expiry=47623:REM 07 April 89
  120monthcredit$="April 89":REM exactly 8 characters!
  130:
  140:
  150A%=&EA:X%=0:Y%=-1:IF(USR(&FFF4)AND&FFFF)DIV&100:PROCtubeon:END
  160ON ERROR PROCend(ERR)
  170VDU23,1,0;0;0;0;
  180*TTXON
  190*BBC2
  200T%=TIME
  210*HON
  220PROCmove_oshwm
  230:
  240DIM space 20,name 12,line 15
  250DIM col(20):FORA%=0TO20:col(A%)=134:NEXT
  260unit$=FNwhich_unit
  270REPEAT
  280PROCselect
  290PROCheading(2,"�File:�"+name$+CHR$10+CHR$13+" �"+comment$)
  300PROCdownload(mag%,pag%,fn$,load%,exec%,TRUE,TRUE)
  310MODE7
  320UNTILFALSE
  330PROCend(TRUE)
  340END
  350:
  360DEFPROCmove_oshwm
  370S%=&5000
  380A%=&B4:X%=S%DIV256:Y%=0:CALL&FFF4
  390ENDPROC
  400:
  410DEFPROCdownload(magazine%,page%,filename$,load%,exec%,save%,reset%)
  420PROCoscli("MAGAZINE "+STR$(magazine%))
  430space?0=24
  440space?1=name MOD256:space?2=name DIV256
  450$name=filename$
  460FORf%=name TO name+LEN(filename$)
  470IF?f%>96 AND?f%<123 ?f%=(?f%)AND&DF
  480NEXT
  490space!3=load%
  500space!7=exec%
  510space?11=magazine%
  520space?12=page%
  530IFsave%=TRUE space?13=1 ELSE space?13=0
  540IFreset%=TRUE space?14=0 ELSE space?14=1
  550A%=&7A:X%=space MOD256:Y%=space DIV256
  560CALL&FFF1
  570ENDPROC
  580:
  590DEFPROCoscli(text$)
  600$line=text$:X%=line MOD256:Y%=line DIV256
  610CALL&FFF7
  620ENDPROC
  630:
  640DEFPROCheading(mark%,fname$)
  650CLS:IFmark%=1 GOTO670
  660IFunit$="GIS" PRINT'CHR$151+STRING$(39,",")+CHR$132+CHR$157+CHR$131+"BBC Telesoftware Utilities"'CHR$151+STRING$(39,","):GOTO720
  670PRINT'"��������������������������������������"
  680PRINT"����������������BBC Telesoftware�`����"
  690PRINT"����������������    Utilities    �����"
  700PRINT"����������������(C)BBCtv ";monthcredit$;"�����"
  710PRINT"�����������������������||�������������"
  720PRINTTAB(1,17)fname$
  730ENDPROC
  740:
  750DEFPROCreturn_oshwm
  760A%=&B4:X%=PAGE DIV256:Y%=0:CALL&FFF4
  770ENDPROC
  780:
  790DEFFNdate
  800LOCALZ%,M%,D%
  810REPEAT:UNTILTIME>T%+150
  820A%=&7A:X%=line MOD256:Y%=line DIV256:?line=15:CALL&FFF1
  830BB1$=RIGHT$(STR$~(line?8),1)
  840BB2$=STR$~(line?9):IF LEN(BB2$)=1 BB2$="0"+BB2$
  850BB3$=STR$~(line?10):IF LEN(BB3$)=1 BB3$="0"+BB3$
  860JD=VAL(BB1$+BB2$+BB3$)
  870IFJD<47560 ="   "+CHR$129+CHR$157+CHR$135+"Current date not available      "+CHR$156
  880Y1=(100*(JD-15078.2))DIV36525
  890M1=INT((JD-14956.1-INT(365.25*Y1))/30.6001)
  900D%=JD-14956-INT(365.25*Y1)-INT(30.6*M1):K=INT(0.7+(1/(17-M1)))
  910M%=M1-1-12*K
  920Z%=Y1+K
  930W%=(JD+3)MOD7:RESTORE940:FORday=0TOW%:READD$:NEXT:D$=D$+"day"
  940DATA Sun,Mon,Tues,Wednes,Thurs,Fri,Satur
  950RESTORE960:FORday=1TOM%:READmonth$:NEXT
  960DATA January,February,March,April,May,June,July,August,September,October,November,December
  970IFD%=1ORD%=21ORD%=31 th$="st" ELSEIFD%=2ORD%=22 th$="nd" ELSEIFD%=3ORD%=23 th$="rd" ELSEth$="th"
  980dt$=D$+" "+STR$(D%)+th$+" "+month$+" 19"+STR$(Z%)
  990spaces%=30-LEN(dt$)
 1000="   "+CHR$129+CHR$157+CHR$135+STRING$(spaces%/2," ")+dt$+STRING$(spaces%-(spaces%/2)+2," ")+CHR$156
 1010:
 1020DEFFNwhich_unit
 1030A%=&7A:X%=line MOD256:Y%=line DIV256
 1040line?0=17:line?3=&FF:CALL&FFF1
 1050IFline?3=&FF ="ATS" ELSE="GIS"
 1060:
 1070DEFPROCtubeon
 1080PROCheading(1,CHR$127+CHR$151+STRING$(39,",")+CHR$129+CHR$157+CHR$135+"The 'Tube' is active. Please disable"+CHR$10+CHR$13+CHR$129+CHR$157+CHR$135+"then CHAIN Utils again."+CHR$10+CHR$13+CHR$151+STRING$(39,","))
 1090VDU23,1,0;0;0;0;:PRINT
 1100ENDPROC
 1110:
 1120DEFPROCselect
 1130PROCheading(1,"")
 1140PRINTTAB(0,6);
 1150RESTORE 1580
 1160READ qty%
 1170PRINTFNdate
 1180IFJD>expiry PRINT"��OUT OF DATE -�Download new UTILS file";:ELSEPRINT
 1190RESTORE 1590
 1200FORno%=1TOqty%
 1210READfn$,name$,comment$,type$,load%,exec%,mag%,pag%
 1220IFpag%=&FF PRINT"    ";:ELSEPRINT"�";RIGHT$("  "+STR$(no%),2);CHR$(col(no%));
 1230PRINTLEFT$(name$+STRING$(10," "),10);"�";LEFT$(comment$+STRING$(19," "),19);" ";LEFT$(type$+STRING$(5," "),5);
 1240IFpag%=&FF GOTO1210
 1250NEXT
 1260INPUTTAB(2,23)"���Enter number of file required:"no%
 1270IFno%<1 OR no%>qty% VDU7:PRINTTAB(1,23)SPC(39);:GOTO1260
 1280RESTORE 1590
 1290FORa%=1TOno%
 1300READfn$,name$,comment$,type$,load%,exec%,mag%,pag%
 1310IFpag%=&FF GOTO1300
 1320NEXT
 1330col(no%)=129
 1340ENDPROC
 1350:
 1360REM"�Error trap
 1370DEFPROCend(err%)
 1380ONERRORGOTO1440
 1390IFerr%=254:PROCheading(1,"�Unrecognised command found"+CHR$10+CHR$13+" �Is the adaptor turned on?"):GOTO1440
 1400*TTXOFF
 1410VDU26
 1420PROCheading(1,"")
 1430IFerr%=-1 GOTO1520
 1440IFerr%=17 GOTO1500
 1450PRINTTAB(0,19)SPC(40);CHR$151;STRING$(39,",");SPC(40)
 1460PRINTTAB(0,21)"�Error:";CHR$129;CHR$157;CHR$135;
 1470st%=((?&FE)*256)+(?&FD)
 1480errep%=st%:REPEAT:errep%=errep%+1:VDU?(errep%):UNTIL ?errep%=0 OR errep%=st%+30
 1490PRINT"  ";CHR$156'CHR$151;STRING$(39,",");SPC(40);
 1500PROCreturn_oshwm
 1510HIMEM=H%
 1520VDU23,1,1;0;0;0;:PRINTTAB(0,7);
 1530*FX229,0
 1540*FX4
 1550END
 1560:
 1570REM"�No. of ACTUAL files:
 1580DATA 9
 1590REM"�RESTORE comes to here!
 1600DATA"","�Satellite","�Service Software:","",0,0,7,&FF
 1610DATA"S/Guide","S/Guide","Brief User Guide","Text",0,0,7,&DA
 1620DATA"Smanual","Satmanual","System Manual","Ver.2",0,0,7,&DA
 1630DATA"SATload","SatLoader","Satellite File D'Ld","BASIC",&1900,&801F,7,&DA
 1640DATA"SATseq","SatSeq'nce","Image sequencer","V2.18",&1900,&801F,7,&DA
 1650DATA"Display","SatDisplay","Sat.Display Creator","BASIC",&1900,&8023,7,&DA
 1660DATA"SatShow","SatShow","Read file header","BASIC",&1900,&8023,7,&DA
 1670DATA"ArcOver","ArcOverlay","Archimedes display","BASIC",&FFFFFB41,&877F102A,7,&DA
 1680DATA"","","","",0,0,7,&FF
 1690DATA"","�Others:","","",0,0,7,&FF
 1700DATA"TTXPrnt","TTXPrint","ATS Page Printer","M/C",&A00,&A00,7,&DA
 1710DATA"Shares2","SharUpdate","SHARES prog updates","Text",&0,&0,7,&DA

�"�Utils
:
�"�(C) Jeremy Brayshaw
(�"�February 1989
2�"�V.2a 31 Mar 89
<�"�For use with ATS & ATS+
F:
P�7:H%=�:�=&5000
Z:
d:
nexpiry=47623:� 07 April 89
x3monthcredit$="April 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$)
�N="   "+�129+�157+�135+�spaces%/2," ")+dt$+�spaces%-(spaces%/2)+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:
,� 9
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
hF�"SATseq","SatSeq'nce","Image sequencer","V2.18",&1900,&801F,7,&DA
rK�"Display","SatDisplay","Sat.Display Creator","BASIC",&1900,&8023,7,&DA
|E�"SatShow","SatShow","Read file header","BASIC",&1900,&8023,7,&DA
�R�"ArcOver","ArcOverlay","Archimedes display","BASIC",&FFFFFB41,&877F102A,7,&DA
��"","","","",0,0,7,&FF
�"�"","�Others:","","",0,0,7,&FF
�B�"TTXPrnt","TTXPrint","ATS Page Printer","M/C",&A00,&A00,7,&DA
�D�"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 15 f4 22 82 56 2e  32 61 20 33 31 20 4d 61  |.2..".V.2a 31 Ma|
00000050  72 20 38 39 0d 00 3c 1e  f4 22 85 46 6f 72 20 75  |r 89..<..".For u|
00000060  73 65 20 77 69 74 68 20  41 54 53 20 26 20 41 54  |se with ATS & AT|
00000070  53 2b 0d 00 46 05 3a 0d  00 50 13 eb 37 3a 48 25  |S+..F.:..P..7:H%|
00000080  3d 93 3a d3 3d 26 35 30  30 30 0d 00 5a 05 3a 0d  |=.:.=&5000..Z.:.|
00000090  00 64 05 3a 0d 00 6e 1e  65 78 70 69 72 79 3d 34  |.d.:..n.expiry=4|
000000a0  37 36 32 33 3a f4 20 30  37 20 41 70 72 69 6c 20  |7623:. 07 April |
000000b0  38 39 0d 00 78 33 6d 6f  6e 74 68 63 72 65 64 69  |89..x3monthcredi|
000000c0  74 24 3d 22 41 70 72 69  6c 20 38 39 22 3a f4 20  |t$="April 89":. |
000000d0  65 78 61 63 74 6c 79 20  38 20 63 68 61 72 61 63  |exactly 8 charac|
000000e0  74 65 72 73 21 0d 00 82  05 3a 0d 00 8c 05 3a 0d  |ters!....:....:.|
000000f0  00 96 36 41 25 3d 26 45  41 3a 58 25 3d 30 3a 59  |..6A%=&EA:X%=0:Y|
00000100  25 3d 2d 31 3a e7 28 ba  28 26 46 46 46 34 29 80  |%=-1:.(.(&FFF4).|
00000110  26 46 46 46 46 29 81 26  31 30 30 3a f2 74 75 62  |&FFFF).&100:.tub|
00000120  65 6f 6e 3a e0 0d 00 a0  0f ee 20 85 20 f2 65 6e  |eon:...... . .en|
00000130  64 28 9f 29 0d 00 aa 12  ef 32 33 2c 31 2c 30 3b  |d(.).....23,1,0;|
00000140  30 3b 30 3b 30 3b 0d 00  b4 0a 2a 54 54 58 4f 4e  |0;0;0;....*TTXON|
00000150  0d 00 be 09 2a 42 42 43  32 0d 00 c8 08 54 25 3d  |....*BBC2....T%=|
00000160  91 0d 00 d2 08 2a 48 4f  4e 0d 00 dc 0f f2 6d 6f  |.....*HON.....mo|
00000170  76 65 5f 6f 73 68 77 6d  0d 00 e6 05 3a 0d 00 f0  |ve_oshwm....:...|
00000180  1e de 20 73 70 61 63 65  20 32 30 2c 6e 61 6d 65  |.. space 20,name|
00000190  20 31 32 2c 6c 69 6e 65  20 31 35 0d 00 fa 24 de  | 12,line 15...$.|
000001a0  20 63 6f 6c 28 32 30 29  3a e3 41 25 3d 30 b8 32  | col(20):.A%=0.2|
000001b0  30 3a 63 6f 6c 28 41 25  29 3d 31 33 34 3a ed 0d  |0:col(A%)=134:..|
000001c0  01 04 15 75 6e 69 74 24  3d a4 77 68 69 63 68 5f  |...unit$=.which_|
000001d0  75 6e 69 74 0d 01 0e 05  f5 0d 01 18 0b f2 73 65  |unit..........se|
000001e0  6c 65 63 74 0d 01 22 35  f2 68 65 61 64 69 6e 67  |lect.."5.heading|
000001f0  28 32 2c 22 87 46 69 6c  65 3a 86 22 2b 6e 61 6d  |(2,".File:."+nam|
00000200  65 24 2b bd 31 30 2b bd  31 33 2b 22 20 83 22 2b  |e$+.10+.13+" ."+|
00000210  63 6f 6d 6d 65 6e 74 24  29 0d 01 2c 2c f2 64 6f  |comment$)..,,.do|
00000220  77 6e 6c 6f 61 64 28 6d  61 67 25 2c 70 61 67 25  |wnload(mag%,pag%|
00000230  2c 66 6e 24 2c 6c 6f 61  64 25 2c 65 78 65 63 25  |,fn$,load%,exec%|
00000240  2c b9 2c b9 29 0d 01 36  06 eb 37 0d 01 40 06 fd  |,.,.)..6..7..@..|
00000250  a3 0d 01 4a 0b f2 65 6e  64 28 b9 29 0d 01 54 05  |...J..end(.)..T.|
00000260  e0 0d 01 5e 05 3a 0d 01  68 10 dd f2 6d 6f 76 65  |...^.:..h...move|
00000270  5f 6f 73 68 77 6d 0d 01  72 0c 53 25 3d 26 35 30  |_oshwm..r.S%=&50|
00000280  30 30 0d 01 7c 20 41 25  3d 26 42 34 3a 58 25 3d  |00..| A%=&B4:X%=|
00000290  53 25 81 32 35 36 3a 59  25 3d 30 3a d6 26 46 46  |S%.256:Y%=0:.&FF|
000002a0  46 34 0d 01 86 05 e1 0d  01 90 05 3a 0d 01 9a 42  |F4.........:...B|
000002b0  dd f2 64 6f 77 6e 6c 6f  61 64 28 6d 61 67 61 7a  |..download(magaz|
000002c0  69 6e 65 25 2c 70 61 67  65 25 2c 66 69 6c 65 6e  |ine%,page%,filen|
000002d0  61 6d 65 24 2c 6c 6f 61  64 25 2c 65 78 65 63 25  |ame$,load%,exec%|
000002e0  2c 73 61 76 65 25 2c 72  65 73 65 74 25 29 0d 01  |,save%,reset%)..|
000002f0  a4 24 f2 6f 73 63 6c 69  28 22 4d 41 47 41 5a 49  |.$.oscli("MAGAZI|
00000300  4e 45 20 22 2b c3 28 6d  61 67 61 7a 69 6e 65 25  |NE "+.(magazine%|
00000310  29 29 0d 01 ae 0e 73 70  61 63 65 3f 30 3d 32 34  |))....space?0=24|
00000320  0d 01 b8 27 73 70 61 63  65 3f 31 3d 6e 61 6d 65  |...'space?1=name|
00000330  20 83 32 35 36 3a 73 70  61 63 65 3f 32 3d 6e 61  | .256:space?2=na|
00000340  6d 65 20 81 32 35 36 0d  01 c2 13 24 6e 61 6d 65  |me .256....$name|
00000350  3d 66 69 6c 65 6e 61 6d  65 24 0d 01 cc 20 e3 66  |=filename$... .f|
00000360  25 3d 6e 61 6d 65 20 b8  20 6e 61 6d 65 2b a9 28  |%=name . name+.(|
00000370  66 69 6c 65 6e 61 6d 65  24 29 0d 01 d6 22 e7 3f  |filename$)...".?|
00000380  66 25 3e 39 36 20 80 3f  66 25 3c 31 32 33 20 3f  |f%>96 .?f%<123 ?|
00000390  66 25 3d 28 3f 66 25 29  80 26 44 46 0d 01 e0 05  |f%=(?f%).&DF....|
000003a0  ed 0d 01 ea 11 73 70 61  63 65 21 33 3d 6c 6f 61  |.....space!3=loa|
000003b0  64 25 0d 01 f4 11 73 70  61 63 65 21 37 3d 65 78  |d%....space!7=ex|
000003c0  65 63 25 0d 01 fe 16 73  70 61 63 65 3f 31 31 3d  |ec%....space?11=|
000003d0  6d 61 67 61 7a 69 6e 65  25 0d 02 08 12 73 70 61  |magazine%....spa|
000003e0  63 65 3f 31 32 3d 70 61  67 65 25 0d 02 12 24 e7  |ce?12=page%...$.|
000003f0  73 61 76 65 25 3d b9 20  73 70 61 63 65 3f 31 33  |save%=. space?13|
00000400  3d 31 20 8b 20 73 70 61  63 65 3f 31 33 3d 30 0d  |=1 . space?13=0.|
00000410  02 1c 25 e7 72 65 73 65  74 25 3d b9 20 73 70 61  |..%.reset%=. spa|
00000420  63 65 3f 31 34 3d 30 20  8b 20 73 70 61 63 65 3f  |ce?14=0 . space?|
00000430  31 34 3d 31 0d 02 26 26  41 25 3d 26 37 41 3a 58  |14=1..&&A%=&7A:X|
00000440  25 3d 73 70 61 63 65 20  83 32 35 36 3a 59 25 3d  |%=space .256:Y%=|
00000450  73 70 61 63 65 20 81 32  35 36 0d 02 30 0a d6 26  |space .256..0..&|
00000460  46 46 46 31 0d 02 3a 05  e1 0d 02 44 05 3a 0d 02  |FFF1..:....D.:..|
00000470  4e 12 dd f2 6f 73 63 6c  69 28 74 65 78 74 24 29  |N...oscli(text$)|
00000480  0d 02 58 29 24 6c 69 6e  65 3d 74 65 78 74 24 3a  |..X)$line=text$:|
00000490  58 25 3d 6c 69 6e 65 20  83 32 35 36 3a 59 25 3d  |X%=line .256:Y%=|
000004a0  6c 69 6e 65 20 81 32 35  36 0d 02 62 0a d6 26 46  |line .256..b..&F|
000004b0  46 46 37 0d 02 6c 05 e1  0d 02 76 05 3a 0d 02 80  |FF7..l....v.:...|
000004c0  1b dd f2 68 65 61 64 69  6e 67 28 6d 61 72 6b 25  |...heading(mark%|
000004d0  2c 66 6e 61 6d 65 24 29  0d 02 8a 14 db 3a e7 6d  |,fname$).....:.m|
000004e0  61 72 6b 25 3d 31 20 e5  8d 74 5e 42 0d 02 94 60  |ark%=1 ..t^B...`|
000004f0  e7 75 6e 69 74 24 3d 22  47 49 53 22 20 f1 27 bd  |.unit$="GIS" .'.|
00000500  31 35 31 2b c4 33 39 2c  22 2c 22 29 2b bd 31 33  |151+.39,",")+.13|
00000510  32 2b bd 31 35 37 2b bd  31 33 31 2b 22 42 42 43  |2+.157+.131+"BBC|
00000520  20 54 65 6c 65 73 6f 66  74 77 61 72 65 20 55 74  | Telesoftware Ut|
00000530  69 6c 69 74 69 65 73 22  27 bd 31 35 31 2b c4 33  |ilities"'.151+.3|
00000540  39 2c 22 2c 22 29 3a e5  8d 64 50 42 0d 02 9e 2e  |9,","):..dPB....|
00000550  f1 27 22 9a 91 a0 a0 fc  fc fc fc fc fc fc fc fc  |.'".............|
00000560  fc fc fc fc fc fc fc fc  fc fc fc fc fc fc fc fc  |................|
00000570  fc fc fc fc fc fc fc fc  fc 22 0d 02 a8 2d f1 22  |........."...-."|
00000580  9a 93 a8 af ef ff af af  a1 91 ff ff 9e 81 9d 87  |................|
00000590  42 42 43 20 54 65 6c 65  73 6f 66 74 77 61 72 65  |BBC Telesoftware|
000005a0  91 60 9c ff ff ff 22 0d  02 b2 2d f1 22 9a 93 a0  |.`...."...-."...|
000005b0  a0 fe a7 91 f8 fc ff ff  ff 9e 81 9d 87 20 20 20  |.............   |
000005c0  20 55 74 69 6c 69 74 69  65 73 20 20 20 20 91 9c  | Utilities    ..|
000005d0  ff ff ff 22 0d 02 bc 35  f1 22 9a 93 a0 fa b7 91  |..."...5."......|
000005e0  e8 ff ff ff ff ff 9e 81  9d 83 28 43 29 42 42 43  |..........(C)BBC|
000005f0  74 76 20 22 3b 6d 6f 6e  74 68 63 72 65 64 69 74  |tv ";monthcredit|
00000600  24 3b 22 91 9c ff ff ff  22 0d 02 c6 2d f1 22 9a  |$;"....."...-.".|
00000610  91 a0 a0 fc fc ff ff ff  ff ff ff ff ff ff fc fc  |................|
00000620  fc fc fc fc fc fc 7c 7c  fc fc fc fc fc fc fc fc  |......||........|
00000630  fc fc ff ff ff 22 0d 02  d0 11 f1 8a 31 2c 31 37  |....."......1,17|
00000640  29 66 6e 61 6d 65 24 0d  02 da 05 e1 0d 02 e4 05  |)fname$.........|
00000650  3a 0d 02 ee 12 dd f2 72  65 74 75 72 6e 5f 6f 73  |:......return_os|
00000660  68 77 6d 0d 02 f8 20 41  25 3d 26 42 34 3a 58 25  |hwm... A%=&B4:X%|
00000670  3d 90 20 81 32 35 36 3a  59 25 3d 30 3a d6 26 46  |=. .256:Y%=0:.&F|
00000680  46 46 34 0d 03 02 05 e1  0d 03 0c 05 3a 0d 03 16  |FF4.........:...|
00000690  0a dd a4 64 61 74 65 0d  03 20 0d ea 5a 25 2c 4d  |...date.. ..Z%,M|
000006a0  25 2c 44 25 0d 03 2a 0f  f5 3a fd 91 3e 54 25 2b  |%,D%..*..:..>T%+|
000006b0  31 35 30 0d 03 34 34 41  25 3d 26 37 41 3a 58 25  |150..44A%=&7A:X%|
000006c0  3d 6c 69 6e 65 20 83 32  35 36 3a 59 25 3d 6c 69  |=line .256:Y%=li|
000006d0  6e 65 20 81 32 35 36 3a  3f 6c 69 6e 65 3d 31 35  |ne .256:?line=15|
000006e0  3a d6 26 46 46 46 31 0d  03 3e 17 42 42 31 24 3d  |:.&FFF1..>.BB1$=|
000006f0  c2 c3 7e 28 6c 69 6e 65  3f 38 29 2c 31 29 0d 03  |..~(line?8),1)..|
00000700  48 2d 42 42 32 24 3d c3  7e 28 6c 69 6e 65 3f 39  |H-BB2$=.~(line?9|
00000710  29 3a e7 20 a9 28 42 42  32 24 29 3d 31 20 42 42  |):. .(BB2$)=1 BB|
00000720  32 24 3d 22 30 22 2b 42  42 32 24 0d 03 52 2e 42  |2$="0"+BB2$..R.B|
00000730  42 33 24 3d c3 7e 28 6c  69 6e 65 3f 31 30 29 3a  |B3$=.~(line?10):|
00000740  e7 20 a9 28 42 42 33 24  29 3d 31 20 42 42 33 24  |. .(BB3$)=1 BB3$|
00000750  3d 22 30 22 2b 42 42 33  24 0d 03 5c 18 4a 44 3d  |="0"+BB3$..\.JD=|
00000760  bb 28 42 42 31 24 2b 42  42 32 24 2b 42 42 33 24  |.(BB1$+BB2$+BB3$|
00000770  29 0d 03 66 4b e7 4a 44  3c 34 37 35 36 30 20 3d  |)..fK.JD<47560 =|
00000780  22 20 20 20 22 2b bd 31  32 39 2b bd 31 35 37 2b  |"   "+.129+.157+|
00000790  bd 31 33 35 2b 22 43 75  72 72 65 6e 74 20 64 61  |.135+"Current da|
000007a0  74 65 20 6e 6f 74 20 61  76 61 69 6c 61 62 6c 65  |te not available|
000007b0  20 20 20 20 20 20 22 2b  bd 31 35 36 0d 03 70 1f  |      "+.156..p.|
000007c0  59 31 3d 28 31 30 30 2a  28 4a 44 2d 31 35 30 37  |Y1=(100*(JD-1507|
000007d0  38 2e 32 29 29 81 33 36  35 32 35 0d 03 7a 2b 4d  |8.2)).36525..z+M|
000007e0  31 3d a8 28 28 4a 44 2d  31 34 39 35 36 2e 31 2d  |1=.((JD-14956.1-|
000007f0  a8 28 33 36 35 2e 32 35  2a 59 31 29 29 2f 33 30  |.(365.25*Y1))/30|
00000800  2e 36 30 30 31 29 0d 03  84 3c 44 25 3d 4a 44 2d  |.6001)...<D%=JD-|
00000810  31 34 39 35 36 2d a8 28  33 36 35 2e 32 35 2a 59  |14956-.(365.25*Y|
00000820  31 29 2d a8 28 33 30 2e  36 2a 4d 31 29 3a 4b 3d  |1)-.(30.6*M1):K=|
00000830  a8 28 30 2e 37 2b 28 31  2f 28 31 37 2d 4d 31 29  |.(0.7+(1/(17-M1)|
00000840  29 29 0d 03 8e 10 4d 25  3d 4d 31 2d 31 2d 31 32  |))....M%=M1-1-12|
00000850  2a 4b 0d 03 98 0b 5a 25  3d 59 31 2b 4b 0d 03 a2  |*K....Z%=Y1+K...|
00000860  31 57 25 3d 28 4a 44 2b  33 29 83 37 3a f7 8d 74  |1W%=(JD+3).7:..t|
00000870  6c 43 3a e3 64 61 79 3d  30 b8 57 25 3a f3 44 24  |lC:.day=0.W%:.D$|
00000880  3a ed 3a 44 24 3d 44 24  2b 22 64 61 79 22 0d 03  |:.:D$=D$+"day"..|
00000890  ac 29 dc 20 53 75 6e 2c  4d 6f 6e 2c 54 75 65 73  |.). Sun,Mon,Tues|
000008a0  2c 57 65 64 6e 65 73 2c  54 68 75 72 73 2c 46 72  |,Wednes,Thurs,Fr|
000008b0  69 2c 53 61 74 75 72 0d  03 b6 1d f7 8d 64 40 43  |i,Satur......d@C|
000008c0  3a e3 64 61 79 3d 31 b8  4d 25 3a f3 6d 6f 6e 74  |:.day=1.M%:.mont|
000008d0  68 24 3a ed 0d 03 c0 5b  dc 20 4a 61 6e 75 61 72  |h$:....[. Januar|
000008e0  79 2c 46 65 62 72 75 61  72 79 2c 4d 61 72 63 68  |y,February,March|
000008f0  2c 41 70 72 69 6c 2c 4d  61 79 2c 4a 75 6e 65 2c  |,April,May,June,|
00000900  4a 75 6c 79 2c 41 75 67  75 73 74 2c 53 65 70 74  |July,August,Sept|
00000910  65 6d 62 65 72 2c 4f 63  74 6f 62 65 72 2c 4e 6f  |ember,October,No|
00000920  76 65 6d 62 65 72 2c 44  65 63 65 6d 62 65 72 0d  |vember,December.|
00000930  03 ca 54 e7 44 25 3d 31  84 44 25 3d 32 31 84 44  |..T.D%=1.D%=21.D|
00000940  25 3d 33 31 20 74 68 24  3d 22 73 74 22 20 8b e7  |%=31 th$="st" ..|
00000950  44 25 3d 32 84 44 25 3d  32 32 20 74 68 24 3d 22  |D%=2.D%=22 th$="|
00000960  6e 64 22 20 8b e7 44 25  3d 33 84 44 25 3d 32 33  |nd" ..D%=3.D%=23|
00000970  20 74 68 24 3d 22 72 64  22 20 8b 74 68 24 3d 22  | th$="rd" .th$="|
00000980  74 68 22 0d 03 d4 2f 64  74 24 3d 44 24 2b 22 20  |th".../dt$=D$+" |
00000990  22 2b c3 28 44 25 29 2b  74 68 24 2b 22 20 22 2b  |"+.(D%)+th$+" "+|
000009a0  6d 6f 6e 74 68 24 2b 22  20 31 39 22 2b c3 28 5a  |month$+" 19"+.(Z|
000009b0  25 29 0d 03 de 15 73 70  61 63 65 73 25 3d 33 30  |%)....spaces%=30|
000009c0  2d a9 28 64 74 24 29 0d  03 e8 4e 3d 22 20 20 20  |-.(dt$)...N="   |
000009d0  22 2b bd 31 32 39 2b bd  31 35 37 2b bd 31 33 35  |"+.129+.157+.135|
000009e0  2b c4 73 70 61 63 65 73  25 2f 32 2c 22 20 22 29  |+.spaces%/2," ")|
000009f0  2b 64 74 24 2b c4 73 70  61 63 65 73 25 2d 28 73  |+dt$+.spaces%-(s|
00000a00  70 61 63 65 73 25 2f 32  29 2b 32 2c 22 20 22 29  |paces%/2)+2," ")|
00000a10  2b bd 31 35 36 0d 03 f2  05 3a 0d 03 fc 10 dd a4  |+.156....:......|
00000a20  77 68 69 63 68 5f 75 6e  69 74 0d 04 06 24 41 25  |which_unit...$A%|
00000a30  3d 26 37 41 3a 58 25 3d  6c 69 6e 65 20 83 32 35  |=&7A:X%=line .25|
00000a40  36 3a 59 25 3d 6c 69 6e  65 20 81 32 35 36 0d 04  |6:Y%=line .256..|
00000a50  10 1f 6c 69 6e 65 3f 30  3d 31 37 3a 6c 69 6e 65  |..line?0=17:line|
00000a60  3f 33 3d 26 46 46 3a d6  26 46 46 46 31 0d 04 1a  |?3=&FF:.&FFF1...|
00000a70  1e e7 6c 69 6e 65 3f 33  3d 26 46 46 20 3d 22 41  |..line?3=&FF ="A|
00000a80  54 53 22 20 8b 3d 22 47  49 53 22 0d 04 24 05 3a  |TS" .="GIS"..$.:|
00000a90  0d 04 2e 0c dd f2 74 75  62 65 6f 6e 0d 04 38 9f  |......tubeon..8.|
00000aa0  f2 68 65 61 64 69 6e 67  28 31 2c bd 31 32 37 2b  |.heading(1,.127+|
00000ab0  bd 31 35 31 2b c4 33 39  2c 22 2c 22 29 2b bd 31  |.151+.39,",")+.1|
00000ac0  32 39 2b bd 31 35 37 2b  bd 31 33 35 2b 22 54 68  |29+.157+.135+"Th|
00000ad0  65 20 27 54 75 62 65 27  20 69 73 20 61 63 74 69  |e 'Tube' is acti|
00000ae0  76 65 2e 20 50 6c 65 61  73 65 20 64 69 73 61 62  |ve. Please disab|
00000af0  6c 65 22 2b bd 31 30 2b  bd 31 33 2b bd 31 32 39  |le"+.10+.13+.129|
00000b00  2b bd 31 35 37 2b bd 31  33 35 2b 22 74 68 65 6e  |+.157+.135+"then|
00000b10  20 43 48 41 49 4e 20 55  74 69 6c 73 20 61 67 61  | CHAIN Utils aga|
00000b20  69 6e 2e 22 2b bd 31 30  2b bd 31 33 2b bd 31 35  |in."+.10+.13+.15|
00000b30  31 2b c4 33 39 2c 22 2c  22 29 29 0d 04 42 14 ef  |1+.39,","))..B..|
00000b40  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 3a f1 0d  |23,1,0;0;0;0;:..|
00000b50  04 4c 05 e1 0d 04 56 05  3a 0d 04 60 0c dd f2 73  |.L....V.:..`...s|
00000b60  65 6c 65 63 74 0d 04 6a  12 f2 68 65 61 64 69 6e  |elect..j..headin|
00000b70  67 28 31 2c 22 22 29 0d  04 74 0b f1 8a 30 2c 36  |g(1,"")..t...0,6|
00000b80  29 3b 0d 04 7e 0a f7 20  8d 54 6c 46 0d 04 88 0a  |);..~.. .TlF....|
00000b90  f3 20 71 74 79 25 0d 04  92 0a f1 a4 64 61 74 65  |. qty%......date|
00000ba0  0d 04 9c 3d e7 4a 44 3e  65 78 70 69 72 79 20 f1  |...=.JD>expiry .|
00000bb0  22 88 81 4f 55 54 20 4f  46 20 44 41 54 45 20 2d  |"..OUT OF DATE -|
00000bc0  89 44 6f 77 6e 6c 6f 61  64 20 6e 65 77 20 55 54  |.Download new UT|
00000bd0  49 4c 53 20 66 69 6c 65  22 3b 3a 8b f1 0d 04 a6  |ILS file";:.....|
00000be0  0a f7 20 8d 54 76 46 0d  04 b0 0f e3 6e 6f 25 3d  |.. .TvF.....no%=|
00000bf0  31 b8 71 74 79 25 0d 04  ba 33 f3 66 6e 24 2c 6e  |1.qty%...3.fn$,n|
00000c00  61 6d 65 24 2c 63 6f 6d  6d 65 6e 74 24 2c 74 79  |ame$,comment$,ty|
00000c10  70 65 24 2c 6c 6f 61 64  25 2c 65 78 65 63 25 2c  |pe$,load%,exec%,|
00000c20  6d 61 67 25 2c 70 61 67  25 0d 04 c4 39 e7 70 61  |mag%,pag%...9.pa|
00000c30  67 25 3d 26 46 46 20 f1  22 20 20 20 20 22 3b 3a  |g%=&FF ."    ";:|
00000c40  8b f1 22 83 22 3b c2 22  20 20 22 2b c3 28 6e 6f  |..".";."  "+.(no|
00000c50  25 29 2c 32 29 3b bd 28  63 6f 6c 28 6e 6f 25 29  |%),2);.(col(no%)|
00000c60  29 3b 0d 04 ce 4a f1 c0  6e 61 6d 65 24 2b c4 31  |);...J..name$+.1|
00000c70  30 2c 22 20 22 29 2c 31  30 29 3b 22 87 22 3b c0  |0," "),10);".";.|
00000c80  63 6f 6d 6d 65 6e 74 24  2b c4 31 39 2c 22 20 22  |comment$+.19," "|
00000c90  29 2c 31 39 29 3b 22 20  22 3b c0 74 79 70 65 24  |),19);" ";.type$|
00000ca0  2b c4 35 2c 22 20 22 29  2c 35 29 3b 0d 04 d8 13  |+.5," "),5);....|
00000cb0  e7 70 61 67 25 3d 26 46  46 20 e5 8d 74 7a 44 0d  |.pag%=&FF ..tzD.|
00000cc0  04 e2 05 ed 0d 04 ec 31  e8 8a 32 2c 32 33 29 22  |.......1..2,23)"|
00000cd0  81 9d 87 45 6e 74 65 72  20 6e 75 6d 62 65 72 20  |...Enter number |
00000ce0  6f 66 20 66 69 6c 65 20  72 65 71 75 69 72 65 64  |of file required|
00000cf0  3a 22 6e 6f 25 0d 04 f6  2c e7 6e 6f 25 3c 31 20  |:"no%...,.no%<1 |
00000d00  84 20 6e 6f 25 3e 71 74  79 25 20 ef 37 3a f1 8a  |. no%>qty% .7:..|
00000d10  31 2c 32 33 29 89 28 33  39 29 3b 3a e5 8d 64 6c  |1,23).(39);:..dl|
00000d20  44 0d 05 00 0a f7 20 8d  54 76 46 0d 05 0a 0d e3  |D..... .TvF.....|
00000d30  61 25 3d 31 b8 6e 6f 25  0d 05 14 33 f3 66 6e 24  |a%=1.no%...3.fn$|
00000d40  2c 6e 61 6d 65 24 2c 63  6f 6d 6d 65 6e 74 24 2c  |,name$,comment$,|
00000d50  74 79 70 65 24 2c 6c 6f  61 64 25 2c 65 78 65 63  |type$,load%,exec|
00000d60  25 2c 6d 61 67 25 2c 70  61 67 25 0d 05 1e 13 e7  |%,mag%,pag%.....|
00000d70  70 61 67 25 3d 26 46 46  20 e5 8d 54 54 45 0d 05  |pag%=&FF ..TTE..|
00000d80  28 05 ed 0d 05 32 10 63  6f 6c 28 6e 6f 25 29 3d  |(....2.col(no%)=|
00000d90  31 32 39 0d 05 3c 05 e1  0d 05 46 05 3a 0d 05 50  |129..<....F.:..P|
00000da0  11 f4 22 81 45 72 72 6f  72 20 74 72 61 70 0d 05  |..".Error trap..|
00000db0  5a 0f dd f2 65 6e 64 28  65 72 72 25 29 0d 05 64  |Z...end(err%)..d|
00000dc0  0b ee 85 e5 8d 74 60 45  0d 05 6e 63 e7 65 72 72  |.....t`E..nc.err|
00000dd0  25 3d 32 35 34 3a f2 68  65 61 64 69 6e 67 28 31  |%=254:.heading(1|
00000de0  2c 22 83 55 6e 72 65 63  6f 67 6e 69 73 65 64 20  |,".Unrecognised |
00000df0  63 6f 6d 6d 61 6e 64 20  66 6f 75 6e 64 22 2b bd  |command found"+.|
00000e00  31 30 2b bd 31 33 2b 22  20 83 49 73 20 74 68 65  |10+.13+" .Is the|
00000e10  20 61 64 61 70 74 6f 72  20 74 75 72 6e 65 64 20  | adaptor turned |
00000e20  6f 6e 3f 22 29 3a e5 8d  74 60 45 0d 05 78 0b 2a  |on?"):..t`E..x.*|
00000e30  54 54 58 4f 46 46 0d 05  82 07 ef 32 36 0d 05 8c  |TTXOFF.....26...|
00000e40  12 f2 68 65 61 64 69 6e  67 28 31 2c 22 22 29 0d  |..heading(1,"").|
00000e50  05 96 12 e7 65 72 72 25  3d 2d 31 20 e5 8d 64 70  |....err%=-1 ..dp|
00000e60  45 0d 05 a0 12 e7 65 72  72 25 3d 31 37 20 e5 8d  |E.....err%=17 ..|
00000e70  64 5c 45 0d 05 aa 24 f1  8a 30 2c 31 39 29 89 28  |d\E...$..0,19).(|
00000e80  34 30 29 3b bd 31 35 31  3b c4 33 39 2c 22 2c 22  |40);.151;.39,","|
00000e90  29 3b 89 28 34 30 29 0d  05 b4 24 f1 8a 30 2c 32  |);.(40)...$..0,2|
00000ea0  31 29 22 83 45 72 72 6f  72 3a 22 3b bd 31 32 39  |1)".Error:";.129|
00000eb0  3b bd 31 35 37 3b bd 31  33 35 3b 0d 05 be 1b 73  |;.157;.135;....s|
00000ec0  74 25 3d 28 28 3f 26 46  45 29 2a 32 35 36 29 2b  |t%=((?&FE)*256)+|
00000ed0  28 3f 26 46 44 29 0d 05  c8 47 65 72 72 65 70 25  |(?&FD)...Gerrep%|
00000ee0  3d 73 74 25 3a f5 3a 65  72 72 65 70 25 3d 65 72  |=st%:.:errep%=er|
00000ef0  72 65 70 25 2b 31 3a ef  3f 28 65 72 72 65 70 25  |rep%+1:.?(errep%|
00000f00  29 3a fd 20 3f 65 72 72  65 70 25 3d 30 20 84 20  |):. ?errep%=0 . |
00000f10  65 72 72 65 70 25 3d 73  74 25 2b 33 30 0d 05 d2  |errep%=st%+30...|
00000f20  23 f1 22 20 20 22 3b bd  31 35 36 27 bd 31 35 31  |#."  ";.156'.151|
00000f30  3b c4 33 39 2c 22 2c 22  29 3b 89 28 34 30 29 3b  |;.39,",");.(40);|
00000f40  0d 05 dc 11 f2 72 65 74  75 72 6e 5f 6f 73 68 77  |.....return_oshw|
00000f50  6d 0d 05 e6 08 d3 3d 48  25 0d 05 f0 1a ef 32 33  |m.....=H%.....23|
00000f60  2c 31 2c 31 3b 30 3b 30  3b 30 3b 3a f1 8a 30 2c  |,1,1;0;0;0;:..0,|
00000f70  37 29 3b 0d 05 fa 0c 2a  46 58 32 32 39 2c 30 0d  |7);....*FX229,0.|
00000f80  06 04 08 2a 46 58 34 0d  06 0e 05 e0 0d 06 18 05  |...*FX4.........|
00000f90  3a 0d 06 22 1b f4 22 81  4e 6f 2e 20 6f 66 20 41  |:.."..".No. of A|
00000fa0  43 54 55 41 4c 20 66 69  6c 65 73 3a 0d 06 2c 07  |CTUAL files:..,.|
00000fb0  dc 20 39 0d 06 36 1d f4  22 81 52 45 53 54 4f 52  |. 9..6..".RESTOR|
00000fc0  45 20 63 6f 6d 65 73 20  74 6f 20 68 65 72 65 21  |E comes to here!|
00000fd0  0d 06 40 36 dc 22 22 2c  22 83 53 61 74 65 6c 6c  |..@6."",".Satell|
00000fe0  69 74 65 22 2c 22 83 53  65 72 76 69 63 65 20 53  |ite",".Service S|
00000ff0  6f 66 74 77 61 72 65 3a  22 2c 22 22 2c 30 2c 30  |oftware:","",0,0|
00001000  2c 37 2c 26 46 46 0d 06  4a 3c dc 22 53 2f 47 75  |,7,&FF..J<."S/Gu|
00001010  69 64 65 22 2c 22 53 2f  47 75 69 64 65 22 2c 22  |ide","S/Guide","|
00001020  42 72 69 65 66 20 55 73  65 72 20 47 75 69 64 65  |Brief User Guide|
00001030  22 2c 22 54 65 78 74 22  2c 30 2c 30 2c 37 2c 26  |","Text",0,0,7,&|
00001040  44 41 0d 06 54 3c dc 22  53 6d 61 6e 75 61 6c 22  |DA..T<."Smanual"|
00001050  2c 22 53 61 74 6d 61 6e  75 61 6c 22 2c 22 53 79  |,"Satmanual","Sy|
00001060  73 74 65 6d 20 4d 61 6e  75 61 6c 22 2c 22 56 65  |stem Manual","Ve|
00001070  72 2e 32 22 2c 30 2c 30  2c 37 2c 26 44 41 0d 06  |r.2",0,0,7,&DA..|
00001080  5e 4a dc 22 53 41 54 6c  6f 61 64 22 2c 22 53 61  |^J."SATload","Sa|
00001090  74 4c 6f 61 64 65 72 22  2c 22 53 61 74 65 6c 6c  |tLoader","Satell|
000010a0  69 74 65 20 46 69 6c 65  20 44 27 4c 64 22 2c 22  |ite File D'Ld","|
000010b0  42 41 53 49 43 22 2c 26  31 39 30 30 2c 26 38 30  |BASIC",&1900,&80|
000010c0  31 46 2c 37 2c 26 44 41  0d 06 68 46 dc 22 53 41  |1F,7,&DA..hF."SA|
000010d0  54 73 65 71 22 2c 22 53  61 74 53 65 71 27 6e 63  |Tseq","SatSeq'nc|
000010e0  65 22 2c 22 49 6d 61 67  65 20 73 65 71 75 65 6e  |e","Image sequen|
000010f0  63 65 72 22 2c 22 56 32  2e 31 38 22 2c 26 31 39  |cer","V2.18",&19|
00001100  30 30 2c 26 38 30 31 46  2c 37 2c 26 44 41 0d 06  |00,&801F,7,&DA..|
00001110  72 4b dc 22 44 69 73 70  6c 61 79 22 2c 22 53 61  |rK."Display","Sa|
00001120  74 44 69 73 70 6c 61 79  22 2c 22 53 61 74 2e 44  |tDisplay","Sat.D|
00001130  69 73 70 6c 61 79 20 43  72 65 61 74 6f 72 22 2c  |isplay Creator",|
00001140  22 42 41 53 49 43 22 2c  26 31 39 30 30 2c 26 38  |"BASIC",&1900,&8|
00001150  30 32 33 2c 37 2c 26 44  41 0d 06 7c 45 dc 22 53  |023,7,&DA..|E."S|
00001160  61 74 53 68 6f 77 22 2c  22 53 61 74 53 68 6f 77  |atShow","SatShow|
00001170  22 2c 22 52 65 61 64 20  66 69 6c 65 20 68 65 61  |","Read file hea|
00001180  64 65 72 22 2c 22 42 41  53 49 43 22 2c 26 31 39  |der","BASIC",&19|
00001190  30 30 2c 26 38 30 32 33  2c 37 2c 26 44 41 0d 06  |00,&8023,7,&DA..|
000011a0  86 52 dc 22 41 72 63 4f  76 65 72 22 2c 22 41 72  |.R."ArcOver","Ar|
000011b0  63 4f 76 65 72 6c 61 79  22 2c 22 41 72 63 68 69  |cOverlay","Archi|
000011c0  6d 65 64 65 73 20 64 69  73 70 6c 61 79 22 2c 22  |medes display","|
000011d0  42 41 53 49 43 22 2c 26  46 46 46 46 46 42 34 31  |BASIC",&FFFFFB41|
000011e0  2c 26 38 37 37 46 31 30  32 41 2c 37 2c 26 44 41  |,&877F102A,7,&DA|
000011f0  0d 06 90 1a dc 22 22 2c  22 22 2c 22 22 2c 22 22  |....."","","",""|
00001200  2c 30 2c 30 2c 37 2c 26  46 46 0d 06 9a 22 dc 22  |,0,0,7,&FF..."."|
00001210  22 2c 22 83 4f 74 68 65  72 73 3a 22 2c 22 22 2c  |",".Others:","",|
00001220  22 22 2c 30 2c 30 2c 37  2c 26 46 46 0d 06 a4 42  |"",0,0,7,&FF...B|
00001230  dc 22 54 54 58 50 72 6e  74 22 2c 22 54 54 58 50  |."TTXPrnt","TTXP|
00001240  72 69 6e 74 22 2c 22 41  54 53 20 50 61 67 65 20  |rint","ATS Page |
00001250  50 72 69 6e 74 65 72 22  2c 22 4d 2f 43 22 2c 26  |Printer","M/C",&|
00001260  41 30 30 2c 26 41 30 30  2c 37 2c 26 44 41 0d 06  |A00,&A00,7,&DA..|
00001270  ae 44 dc 22 53 68 61 72  65 73 32 22 2c 22 53 68  |.D."Shares2","Sh|
00001280  61 72 55 70 64 61 74 65  22 2c 22 53 48 41 52 45  |arUpdate","SHARE|
00001290  53 20 70 72 6f 67 20 75  70 64 61 74 65 73 22 2c  |S prog updates",|
000012a0  22 54 65 78 74 22 2c 26  30 2c 26 30 2c 37 2c 26  |"Text",&0,&0,7,&|
000012b0  44 41 0d ff                                       |DA..|
000012b4
01-04-89/Utils.m0
01-04-89/Utils.m1
01-04-89/Utils.m2
01-04-89/Utils.m4
01-04-89/Utils.m5