��TNA
�7:@%=3:*FX4,1
�23;8202;0;0;0;
(
*TTXON
2	*BBC2
<*HON
F�move_oshwm
P� space 20,name 12,line 15
ZP�page%(50),fname$(50),load%(50),exec%(50),pages$(50),mag%(50),D(5),type$(50)
d�heading("File:�Catalogue")
nA%=�:�:��>A%+200
x�findcat(�getlink)
�9�M%>9 �N%>&FE �heading("�Error�- No Catalogue"):�TbA
�@�heading("File:�Catalogue    �Page:�"+�(M%)+�"00"+�~(N%),2))
�$�0,0);"P";�(M%);�"00"+�~(N%),2)
�"�download(M%,N%,"CAT",0,0,�,�)
��interpret
�<�Z%=0 �7:�heading("�No files broadcast this week"):�TbA
��7:�select
��W%=1�Z%
��type$(W%),1)<>"Y" �dz@
��7:�23;8202;0;0;0;
�Q�heading("File:�"+fname$(W%)+�(12-�(fname$(W%)))," ")+"�Length:�"+pages$(W%))
�.�0,0);"P";mag%(W%);�"00"+�~(page%(W%)),2)
�D�download(mag%(W%),page%(W%),fname$(W%),load%(W%),exec%(W%),�,�)
�type$(W%)="X"+�type$(W%),2)
��

%�7:�heading("�Files downloaded:")

U�:�A%=1�Z%:�type$(A%),1)="X" �type$(A%),2,1)fname$(A%)�(19-�(fname$(A%)));:� ��

�':�>0 ��>0 �:�

"	*HOFF

'
*FX4,0

,�return_oshwm

6�

@:

J��move_oshwm

TS%=&5000

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

h�

r:

|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$

�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
&
�&FFF7
0�
::
D��heading(fname$)
XF�:�:�Q%=1 �2:�132;�157;�141;"�Telesoftware Files Auto Download":�
l�1,5)fname$
v�
�:
���return_oshwm
� A%=&B4:X%=� �256:Y%=0:�&FFF4
��
�:
���interpret
�sta%=S%:Z%=0
�'sta%=sta%+1+?sta%:sta%=sta%+1+?sta%
�	Z=0:�
��"�m/c:
�len%=?sta%
�&�A%=sta%�sta%+len%:?A%=(?A%)�&7F:�
�GT%=?(sta%+len%+1):?(sta%+len%+1)=13:mc$=$(sta%+1):?(sta%+len%+1)=T%
sta%=sta%+1+?sta%
�mc$="***" �dJC
�"�filename:
 len%=?sta%
*$�A%=sta%�sta%+len%:?A%=(?A%)�&7F
4�?A%>&40 ?A%=(?A%)�&DF
>�
Ctype$(0)=�(?(sta%+1)+&80)
HHT%=?(sta%+len%+1):?(sta%+len%+1)=13:sta$=$(sta%+2):?(sta%+len%+1)=T%
Rsta%=sta%+1+?sta%
\�"�File type:
flen%=?sta%
p,�A%=sta%�sta%+len%:?A%=((?A%)�&7F)�&DF:�
zIT%=?(sta%+len%+1):?(sta%+len%+1)=13:sta2$=$(sta%+1):?(sta%+len%+1)=T%
�sta%=sta%+1+?sta%
�len%=?sta%
�&�A%=sta%�sta%+len%:?A%=(?A%)�&7F:�
�IT%=?(sta%+len%+1):?(sta%+len%+1)=13:sta3$=$(sta%+1):?(sta%+len%+1)=T%
�sta%=sta%+1+?sta%
��Z%=Z%+1:type$(Z%)=�nts+type$(0)+sta2$:fname$(Z%)=sta$:pages$(Z%)=sta3$:load%(Z%)=�addr(sta%):exec%(Z%)=�addr(sta%+4):mag%(Z%)=?(sta%+8):page%(Z%)=?(sta%+9)
�sta%=sta%+10
��mc$="***"
��
�:
�ݤaddr(st%)
�ZG$=�"00"+�~(?st%),2)+�"00"+�~(?(st%+1)),2)+�"00"+�~(?(st%+2)),2)+�"00"+�~(?(st%+3)),2)
�=�("&"+G$)
�
ݤgetlink
8space?0=15:A%=&7A:X%=space �256:Y%=space �256:�&FFF1
H�((space?1)*100)+space?2>999 �heading("�Error�- No Catalogue"):�TbA
=((space?1)*100)+space?2
$:
.��findcat(O%)
8�oscli("PAGE "+�(O%))
B�a%,pn$,row%
L*DATA 5000
Va%=&5000-42
`�
ja%=a%+42
t)�(a%?1=27 � �deham(a%?2)=0) �a%>&5800
~9�a%>&5800 M%=0:�heading("�Error�-no catalogue"):�TbA
��V%=0�5
�D(V%)=27+V%
�D(V%)=�deham(a%?D(V%))
��
�*M%=(((D(5) �12)�2)�(D(3) �8))�(O%�100)
�N%=(D(1)*16)+(D(0))
��
�:
�ݤdeham(byte%)
�Fspace?0=25:space?1=byte%:A%=&7A:X%=space �256:Y%=space �256:�&FFF1
�=(space?2)�&F
�:
��select

��heading("Use�UP DOWN�cursor keys to select file  Type�Y�or�N�as required for each file.  Press�RETURN�when selections complete. �Filename  FileType   FileSize  Req?Y/N"):�0,4)"�Total number of files ="Z%
�28,0,24,39,10:A%=0:�
%A%=A%+1:�dsp(A%-1):�(A%=Z%�A%=15)
(�31,35,0:A%=1
2	�:A=�
<�A=&4E �A=&6E �amend("N")
F�A=&59 �A=&79 �amend("Y")
P�A=&8B �rup
Z�A=&8A �rdn
d
�A=&0D
n�
x:
���amend(yn$)
�.�yn$�8;:type$(A%)=yn$+�type$(A%),2):�rdn:�
�:
�
��dsp(y%)
�b�0,y%)�type$(A%),2,1)fname$(A%)�11,y%)�type$(A%),3)�22,y%)pages$(A%)�35,y%)�type$(A%),1)�8;:�
�:
�	��rup
��A%=1 �
��=0 �11:A%=A%-1:�dsp(0):�
��11:A%=A%-1:�
�:
�	��rdn
��A%=Z% �
 �=14 �10:A%=A%+1:�dsp(14):�
�10:A%=A%+1:�
�$ݤnts:�sta2$="NOTES" ="N" � ="Y"
�

00000000  0d 00 0a 0b ee 85 e5 8d  54 4e 41 0d 00 14 12 eb  |........TNA.....|
00000010  37 3a 40 25 3d 33 3a 2a  46 58 34 2c 31 0d 00 1e  |7:@%=3:*FX4,1...|
00000020  13 ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |..23;8202;0;0;0;|
00000030  0d 00 28 0a 2a 54 54 58  4f 4e 0d 00 32 09 2a 42  |..(.*TTXON..2.*B|
00000040  42 43 32 0d 00 3c 08 2a  48 4f 4e 0d 00 46 0f f2  |BC2..<.*HON..F..|
00000050  6d 6f 76 65 5f 6f 73 68  77 6d 0d 00 50 1e de 20  |move_oshwm..P.. |
00000060  73 70 61 63 65 20 32 30  2c 6e 61 6d 65 20 31 32  |space 20,name 12|
00000070  2c 6c 69 6e 65 20 31 35  0d 00 5a 50 de 70 61 67  |,line 15..ZP.pag|
00000080  65 25 28 35 30 29 2c 66  6e 61 6d 65 24 28 35 30  |e%(50),fname$(50|
00000090  29 2c 6c 6f 61 64 25 28  35 30 29 2c 65 78 65 63  |),load%(50),exec|
000000a0  25 28 35 30 29 2c 70 61  67 65 73 24 28 35 30 29  |%(50),pages$(50)|
000000b0  2c 6d 61 67 25 28 35 30  29 2c 44 28 35 29 2c 74  |,mag%(50),D(5),t|
000000c0  79 70 65 24 28 35 30 29  0d 00 64 1f f2 68 65 61  |ype$(50)..d..hea|
000000d0  64 69 6e 67 28 22 46 69  6c 65 3a 86 43 61 74 61  |ding("File:.Cata|
000000e0  6c 6f 67 75 65 22 29 0d  00 6e 14 41 25 3d 91 3a  |logue")..n.A%=.:|
000000f0  f5 3a fd 91 3e 41 25 2b  32 30 30 0d 00 78 16 f2  |.:..>A%+200..x..|
00000100  66 69 6e 64 63 61 74 28  a4 67 65 74 6c 69 6e 6b  |findcat(.getlink|
00000110  29 0d 00 82 39 e7 4d 25  3e 39 20 84 4e 25 3e 26  |)...9.M%>9 .N%>&|
00000120  46 45 20 f2 68 65 61 64  69 6e 67 28 22 81 45 72  |FE .heading(".Er|
00000130  72 6f 72 86 2d 20 4e 6f  20 43 61 74 61 6c 6f 67  |ror.- No Catalog|
00000140  75 65 22 29 3a e5 8d 54  62 41 0d 00 8c 40 f2 68  |ue"):..TbA...@.h|
00000150  65 61 64 69 6e 67 28 22  46 69 6c 65 3a 86 43 61  |eading("File:.Ca|
00000160  74 61 6c 6f 67 75 65 20  20 20 20 87 50 61 67 65  |talogue    .Page|
00000170  3a 86 22 2b c3 28 4d 25  29 2b c2 22 30 30 22 2b  |:."+.(M%)+."00"+|
00000180  c3 7e 28 4e 25 29 2c 32  29 29 0d 00 96 24 f1 8a  |.~(N%),2))...$..|
00000190  30 2c 30 29 3b 22 50 22  3b c3 28 4d 25 29 3b c2  |0,0);"P";.(M%);.|
000001a0  22 30 30 22 2b c3 7e 28  4e 25 29 2c 32 29 0d 00  |"00"+.~(N%),2)..|
000001b0  a0 22 f2 64 6f 77 6e 6c  6f 61 64 28 4d 25 2c 4e  |.".download(M%,N|
000001c0  25 2c 22 43 41 54 22 2c  30 2c 30 2c a3 2c b9 29  |%,"CAT",0,0,.,.)|
000001d0  0d 00 aa 0e f2 69 6e 74  65 72 70 72 65 74 0d 00  |.....interpret..|
000001e0  b4 3c e7 5a 25 3d 30 20  eb 37 3a f2 68 65 61 64  |.<.Z%=0 .7:.head|
000001f0  69 6e 67 28 22 81 4e 6f  20 66 69 6c 65 73 20 62  |ing(".No files b|
00000200  72 6f 61 64 63 61 73 74  20 74 68 69 73 20 77 65  |roadcast this we|
00000210  65 6b 22 29 3a e5 8d 54  62 41 0d 00 b9 0e eb 37  |ek"):..TbA.....7|
00000220  3a f2 73 65 6c 65 63 74  0d 00 be 0c e3 57 25 3d  |:.select.....W%=|
00000230  31 b8 5a 25 0d 00 c3 1d  e7 c0 74 79 70 65 24 28  |1.Z%......type$(|
00000240  57 25 29 2c 31 29 3c 3e  22 59 22 20 e5 8d 64 7a  |W%),1)<>"Y" ..dz|
00000250  40 0d 00 c8 16 eb 37 3a  ef 32 33 3b 38 32 30 32  |@.....7:.23;8202|
00000260  3b 30 3b 30 3b 30 3b 0d  00 d2 51 f2 68 65 61 64  |;0;0;0;...Q.head|
00000270  69 6e 67 28 22 46 69 6c  65 3a 86 22 2b 66 6e 61  |ing("File:."+fna|
00000280  6d 65 24 28 57 25 29 2b  c4 28 31 32 2d a9 28 66  |me$(W%)+.(12-.(f|
00000290  6e 61 6d 65 24 28 57 25  29 29 29 2c 22 20 22 29  |name$(W%)))," ")|
000002a0  2b 22 87 4c 65 6e 67 74  68 3a 86 22 2b 70 61 67  |+".Length:."+pag|
000002b0  65 73 24 28 57 25 29 29  0d 00 dc 2e f1 8a 30 2c  |es$(W%))......0,|
000002c0  30 29 3b 22 50 22 3b 6d  61 67 25 28 57 25 29 3b  |0);"P";mag%(W%);|
000002d0  c2 22 30 30 22 2b c3 7e  28 70 61 67 65 25 28 57  |."00"+.~(page%(W|
000002e0  25 29 29 2c 32 29 0d 00  e6 44 f2 64 6f 77 6e 6c  |%)),2)...D.downl|
000002f0  6f 61 64 28 6d 61 67 25  28 57 25 29 2c 70 61 67  |oad(mag%(W%),pag|
00000300  65 25 28 57 25 29 2c 66  6e 61 6d 65 24 28 57 25  |e%(W%),fname$(W%|
00000310  29 2c 6c 6f 61 64 25 28  57 25 29 2c 65 78 65 63  |),load%(W%),exec|
00000320  25 28 57 25 29 2c b9 2c  b9 29 0d 00 f5 1f 74 79  |%(W%),.,.)....ty|
00000330  70 65 24 28 57 25 29 3d  22 58 22 2b c1 74 79 70  |pe$(W%)="X"+.typ|
00000340  65 24 28 57 25 29 2c 32  29 0d 00 fa 05 ed 0d 01  |e$(W%),2).......|
00000350  0e 25 eb 37 3a f2 68 65  61 64 69 6e 67 28 22 86  |.%.7:.heading(".|
00000360  46 69 6c 65 73 20 64 6f  77 6e 6c 6f 61 64 65 64  |Files downloaded|
00000370  3a 22 29 0d 01 18 55 f1  3a e3 41 25 3d 31 b8 5a  |:")...U.:.A%=1.Z|
00000380  25 3a e7 c0 74 79 70 65  24 28 41 25 29 2c 31 29  |%:..type$(A%),1)|
00000390  3d 22 58 22 20 f1 c1 74  79 70 65 24 28 41 25 29  |="X" ..type$(A%)|
000003a0  2c 32 2c 31 29 66 6e 61  6d 65 24 28 41 25 29 89  |,2,1)fname$(A%).|
000003b0  28 31 39 2d a9 28 66 6e  61 6d 65 24 28 41 25 29  |(19-.(fname$(A%)|
000003c0  29 29 3b 3a ed 20 8b ed  0d 01 1d 14 f1 27 3a e7  |));:. .......':.|
000003d0  9e 3e 30 20 80 9f 3e 30  20 f6 3a f1 0d 01 22 09  |.>0 ..>0 .:...".|
000003e0  2a 48 4f 46 46 0d 01 27  0a 2a 46 58 34 2c 30 0d  |*HOFF..'.*FX4,0.|
000003f0  01 2c 11 f2 72 65 74 75  72 6e 5f 6f 73 68 77 6d  |.,..return_oshwm|
00000400  0d 01 36 05 e0 0d 01 40  05 3a 0d 01 4a 10 dd f2  |..6....@.:..J...|
00000410  6d 6f 76 65 5f 6f 73 68  77 6d 0d 01 54 0c 53 25  |move_oshwm..T.S%|
00000420  3d 26 35 30 30 30 0d 01  5e 20 41 25 3d 26 42 34  |=&5000..^ A%=&B4|
00000430  3a 58 25 3d 53 25 81 32  35 36 3a 59 25 3d 30 3a  |:X%=S%.256:Y%=0:|
00000440  d6 26 46 46 46 34 0d 01  68 05 e1 0d 01 72 05 3a  |.&FFF4..h....r.:|
00000450  0d 01 7c 42 dd f2 64 6f  77 6e 6c 6f 61 64 28 6d  |..|B..download(m|
00000460  61 67 61 7a 69 6e 65 25  2c 70 61 67 65 25 2c 66  |agazine%,page%,f|
00000470  69 6c 65 6e 61 6d 65 24  2c 6c 6f 61 64 25 2c 65  |ilename$,load%,e|
00000480  78 65 63 25 2c 73 61 76  65 25 2c 72 65 73 65 74  |xec%,save%,reset|
00000490  25 29 0d 01 86 24 f2 6f  73 63 6c 69 28 22 4d 41  |%)...$.oscli("MA|
000004a0  47 41 5a 49 4e 45 20 22  2b c3 28 6d 61 67 61 7a  |GAZINE "+.(magaz|
000004b0  69 6e 65 25 29 29 0d 01  90 0e 73 70 61 63 65 3f  |ine%))....space?|
000004c0  30 3d 32 34 0d 01 9a 27  73 70 61 63 65 3f 31 3d  |0=24...'space?1=|
000004d0  6e 61 6d 65 20 83 32 35  36 3a 73 70 61 63 65 3f  |name .256:space?|
000004e0  32 3d 6e 61 6d 65 20 81  32 35 36 0d 01 a4 13 24  |2=name .256....$|
000004f0  6e 61 6d 65 3d 66 69 6c  65 6e 61 6d 65 24 0d 01  |name=filename$..|
00000500  ae 11 73 70 61 63 65 21  33 3d 6c 6f 61 64 25 0d  |..space!3=load%.|
00000510  01 b8 11 73 70 61 63 65  21 37 3d 65 78 65 63 25  |...space!7=exec%|
00000520  0d 01 c2 16 73 70 61 63  65 3f 31 31 3d 6d 61 67  |....space?11=mag|
00000530  61 7a 69 6e 65 25 0d 01  cc 12 73 70 61 63 65 3f  |azine%....space?|
00000540  31 32 3d 70 61 67 65 25  0d 01 d6 24 e7 73 61 76  |12=page%...$.sav|
00000550  65 25 3d b9 20 73 70 61  63 65 3f 31 33 3d 31 20  |e%=. space?13=1 |
00000560  8b 20 73 70 61 63 65 3f  31 33 3d 30 0d 01 e0 25  |. space?13=0...%|
00000570  e7 72 65 73 65 74 25 3d  b9 20 73 70 61 63 65 3f  |.reset%=. space?|
00000580  31 34 3d 30 20 8b 20 73  70 61 63 65 3f 31 34 3d  |14=0 . space?14=|
00000590  31 0d 01 ea 26 41 25 3d  26 37 41 3a 58 25 3d 73  |1...&A%=&7A:X%=s|
000005a0  70 61 63 65 20 83 32 35  36 3a 59 25 3d 73 70 61  |pace .256:Y%=spa|
000005b0  63 65 20 81 32 35 36 0d  01 f4 0a d6 26 46 46 46  |ce .256.....&FFF|
000005c0  31 0d 01 fe 05 e1 0d 02  08 05 3a 0d 02 12 12 dd  |1.........:.....|
000005d0  f2 6f 73 63 6c 69 28 74  65 78 74 24 29 0d 02 1c  |.oscli(text$)...|
000005e0  29 24 6c 69 6e 65 3d 74  65 78 74 24 3a 58 25 3d  |)$line=text$:X%=|
000005f0  6c 69 6e 65 20 83 32 35  36 3a 59 25 3d 6c 69 6e  |line .256:Y%=lin|
00000600  65 20 81 32 35 36 0d 02  26 0a d6 26 46 46 46 37  |e .256..&..&FFF7|
00000610  0d 02 30 05 e1 0d 02 3a  05 3a 0d 02 44 15 dd f2  |..0....:.:..D...|
00000620  68 65 61 64 69 6e 67 28  66 6e 61 6d 65 24 29 0d  |heading(fname$).|
00000630  02 58 46 db 3a f1 3a e3  51 25 3d 31 20 b8 32 3a  |.XF.:.:.Q%=1 .2:|
00000640  f1 bd 31 33 32 3b bd 31  35 37 3b bd 31 34 31 3b  |..132;.157;.141;|
00000650  22 83 54 65 6c 65 73 6f  66 74 77 61 72 65 20 46  |".Telesoftware F|
00000660  69 6c 65 73 20 41 75 74  6f 20 44 6f 77 6e 6c 6f  |iles Auto Downlo|
00000670  61 64 22 3a ed 0d 02 6c  10 f1 8a 31 2c 35 29 66  |ad":...l...1,5)f|
00000680  6e 61 6d 65 24 0d 02 76  05 e1 0d 02 80 05 3a 0d  |name$..v......:.|
00000690  02 8a 12 dd f2 72 65 74  75 72 6e 5f 6f 73 68 77  |.....return_oshw|
000006a0  6d 0d 02 94 20 41 25 3d  26 42 34 3a 58 25 3d 90  |m... A%=&B4:X%=.|
000006b0  20 81 32 35 36 3a 59 25  3d 30 3a d6 26 46 46 46  | .256:Y%=0:.&FFF|
000006c0  34 0d 02 9e 05 e1 0d 02  a8 05 3a 0d 02 b2 0f dd  |4.........:.....|
000006d0  f2 69 6e 74 65 72 70 72  65 74 0d 02 bc 10 73 74  |.interpret....st|
000006e0  61 25 3d 53 25 3a 5a 25  3d 30 0d 02 c6 27 73 74  |a%=S%:Z%=0...'st|
000006f0  61 25 3d 73 74 61 25 2b  31 2b 3f 73 74 61 25 3a  |a%=sta%+1+?sta%:|
00000700  73 74 61 25 3d 73 74 61  25 2b 31 2b 3f 73 74 61  |sta%=sta%+1+?sta|
00000710  25 0d 02 d0 09 5a 3d 30  3a f5 0d 02 da 0b f4 22  |%....Z=0:......"|
00000720  81 6d 2f 63 3a 0d 02 e4  0e 6c 65 6e 25 3d 3f 73  |.m/c:....len%=?s|
00000730  74 61 25 0d 02 ee 26 e3  41 25 3d 73 74 61 25 b8  |ta%...&.A%=sta%.|
00000740  73 74 61 25 2b 6c 65 6e  25 3a 3f 41 25 3d 28 3f  |sta%+len%:?A%=(?|
00000750  41 25 29 80 26 37 46 3a  ed 0d 02 f8 47 54 25 3d  |A%).&7F:....GT%=|
00000760  3f 28 73 74 61 25 2b 6c  65 6e 25 2b 31 29 3a 3f  |?(sta%+len%+1):?|
00000770  28 73 74 61 25 2b 6c 65  6e 25 2b 31 29 3d 31 33  |(sta%+len%+1)=13|
00000780  3a 6d 63 24 3d 24 28 73  74 61 25 2b 31 29 3a 3f  |:mc$=$(sta%+1):?|
00000790  28 73 74 61 25 2b 6c 65  6e 25 2b 31 29 3d 54 25  |(sta%+len%+1)=T%|
000007a0  0d 03 02 15 73 74 61 25  3d 73 74 61 25 2b 31 2b  |....sta%=sta%+1+|
000007b0  3f 73 74 61 25 0d 03 0c  14 e7 6d 63 24 3d 22 2a  |?sta%.....mc$="*|
000007c0  2a 2a 22 20 e5 8d 64 4a  43 0d 03 16 10 f4 22 81  |**" ..dJC.....".|
000007d0  66 69 6c 65 6e 61 6d 65  3a 0d 03 20 0e 6c 65 6e  |filename:.. .len|
000007e0  25 3d 3f 73 74 61 25 0d  03 2a 24 e3 41 25 3d 73  |%=?sta%..*$.A%=s|
000007f0  74 61 25 b8 73 74 61 25  2b 6c 65 6e 25 3a 3f 41  |ta%.sta%+len%:?A|
00000800  25 3d 28 3f 41 25 29 80  26 37 46 0d 03 34 1a e7  |%=(?A%).&7F..4..|
00000810  3f 41 25 3e 26 34 30 20  3f 41 25 3d 28 3f 41 25  |?A%>&40 ?A%=(?A%|
00000820  29 80 26 44 46 0d 03 3e  05 ed 0d 03 43 1d 74 79  |).&DF..>....C.ty|
00000830  70 65 24 28 30 29 3d bd  28 3f 28 73 74 61 25 2b  |pe$(0)=.(?(sta%+|
00000840  31 29 2b 26 38 30 29 0d  03 48 48 54 25 3d 3f 28  |1)+&80)..HHT%=?(|
00000850  73 74 61 25 2b 6c 65 6e  25 2b 31 29 3a 3f 28 73  |sta%+len%+1):?(s|
00000860  74 61 25 2b 6c 65 6e 25  2b 31 29 3d 31 33 3a 73  |ta%+len%+1)=13:s|
00000870  74 61 24 3d 24 28 73 74  61 25 2b 32 29 3a 3f 28  |ta$=$(sta%+2):?(|
00000880  73 74 61 25 2b 6c 65 6e  25 2b 31 29 3d 54 25 0d  |sta%+len%+1)=T%.|
00000890  03 52 15 73 74 61 25 3d  73 74 61 25 2b 31 2b 3f  |.R.sta%=sta%+1+?|
000008a0  73 74 61 25 0d 03 5c 11  f4 22 81 46 69 6c 65 20  |sta%..\..".File |
000008b0  74 79 70 65 3a 0d 03 66  0e 6c 65 6e 25 3d 3f 73  |type:..f.len%=?s|
000008c0  74 61 25 0d 03 70 2c e3  41 25 3d 73 74 61 25 b8  |ta%..p,.A%=sta%.|
000008d0  73 74 61 25 2b 6c 65 6e  25 3a 3f 41 25 3d 28 28  |sta%+len%:?A%=((|
000008e0  3f 41 25 29 80 26 37 46  29 80 26 44 46 3a ed 0d  |?A%).&7F).&DF:..|
000008f0  03 7a 49 54 25 3d 3f 28  73 74 61 25 2b 6c 65 6e  |.zIT%=?(sta%+len|
00000900  25 2b 31 29 3a 3f 28 73  74 61 25 2b 6c 65 6e 25  |%+1):?(sta%+len%|
00000910  2b 31 29 3d 31 33 3a 73  74 61 32 24 3d 24 28 73  |+1)=13:sta2$=$(s|
00000920  74 61 25 2b 31 29 3a 3f  28 73 74 61 25 2b 6c 65  |ta%+1):?(sta%+le|
00000930  6e 25 2b 31 29 3d 54 25  0d 03 84 15 73 74 61 25  |n%+1)=T%....sta%|
00000940  3d 73 74 61 25 2b 31 2b  3f 73 74 61 25 0d 03 8e  |=sta%+1+?sta%...|
00000950  0e 6c 65 6e 25 3d 3f 73  74 61 25 0d 03 98 26 e3  |.len%=?sta%...&.|
00000960  41 25 3d 73 74 61 25 b8  73 74 61 25 2b 6c 65 6e  |A%=sta%.sta%+len|
00000970  25 3a 3f 41 25 3d 28 3f  41 25 29 80 26 37 46 3a  |%:?A%=(?A%).&7F:|
00000980  ed 0d 03 a2 49 54 25 3d  3f 28 73 74 61 25 2b 6c  |....IT%=?(sta%+l|
00000990  65 6e 25 2b 31 29 3a 3f  28 73 74 61 25 2b 6c 65  |en%+1):?(sta%+le|
000009a0  6e 25 2b 31 29 3d 31 33  3a 73 74 61 33 24 3d 24  |n%+1)=13:sta3$=$|
000009b0  28 73 74 61 25 2b 31 29  3a 3f 28 73 74 61 25 2b  |(sta%+1):?(sta%+|
000009c0  6c 65 6e 25 2b 31 29 3d  54 25 0d 03 ac 15 73 74  |len%+1)=T%....st|
000009d0  61 25 3d 73 74 61 25 2b  31 2b 3f 73 74 61 25 0d  |a%=sta%+1+?sta%.|
000009e0  03 b6 9f 5a 25 3d 5a 25  2b 31 3a 74 79 70 65 24  |...Z%=Z%+1:type$|
000009f0  28 5a 25 29 3d a4 6e 74  73 2b 74 79 70 65 24 28  |(Z%)=.nts+type$(|
00000a00  30 29 2b 73 74 61 32 24  3a 66 6e 61 6d 65 24 28  |0)+sta2$:fname$(|
00000a10  5a 25 29 3d 73 74 61 24  3a 70 61 67 65 73 24 28  |Z%)=sta$:pages$(|
00000a20  5a 25 29 3d 73 74 61 33  24 3a 6c 6f 61 64 25 28  |Z%)=sta3$:load%(|
00000a30  5a 25 29 3d a4 61 64 64  72 28 73 74 61 25 29 3a  |Z%)=.addr(sta%):|
00000a40  65 78 65 63 25 28 5a 25  29 3d a4 61 64 64 72 28  |exec%(Z%)=.addr(|
00000a50  73 74 61 25 2b 34 29 3a  6d 61 67 25 28 5a 25 29  |sta%+4):mag%(Z%)|
00000a60  3d 3f 28 73 74 61 25 2b  38 29 3a 70 61 67 65 25  |=?(sta%+8):page%|
00000a70  28 5a 25 29 3d 3f 28 73  74 61 25 2b 39 29 0d 03  |(Z%)=?(sta%+9)..|
00000a80  c0 10 73 74 61 25 3d 73  74 61 25 2b 31 30 0d 03  |..sta%=sta%+10..|
00000a90  ca 0e fd 6d 63 24 3d 22  2a 2a 2a 22 0d 03 d4 05  |...mc$="***"....|
00000aa0  e1 0d 03 de 05 3a 0d 03  e8 0f dd a4 61 64 64 72  |.....:......addr|
00000ab0  28 73 74 25 29 0d 03 f2  5a 47 24 3d c2 22 30 30  |(st%)...ZG$=."00|
00000ac0  22 2b c3 7e 28 3f 73 74  25 29 2c 32 29 2b c2 22  |"+.~(?st%),2)+."|
00000ad0  30 30 22 2b c3 7e 28 3f  28 73 74 25 2b 31 29 29  |00"+.~(?(st%+1))|
00000ae0  2c 32 29 2b c2 22 30 30  22 2b c3 7e 28 3f 28 73  |,2)+."00"+.~(?(s|
00000af0  74 25 2b 32 29 29 2c 32  29 2b c2 22 30 30 22 2b  |t%+2)),2)+."00"+|
00000b00  c3 7e 28 3f 28 73 74 25  2b 33 29 29 2c 32 29 0d  |.~(?(st%+3)),2).|
00000b10  03 f7 0e 3d a0 28 22 26  22 2b 47 24 29 0d 03 fc  |...=.("&"+G$)...|
00000b20  0d dd a4 67 65 74 6c 69  6e 6b 0d 04 06 38 73 70  |...getlink...8sp|
00000b30  61 63 65 3f 30 3d 31 35  3a 41 25 3d 26 37 41 3a  |ace?0=15:A%=&7A:|
00000b40  58 25 3d 73 70 61 63 65  20 83 32 35 36 3a 59 25  |X%=space .256:Y%|
00000b50  3d 73 70 61 63 65 20 81  32 35 36 3a d6 26 46 46  |=space .256:.&FF|
00000b60  46 31 0d 04 10 48 e7 28  28 73 70 61 63 65 3f 31  |F1...H.((space?1|
00000b70  29 2a 31 30 30 29 2b 73  70 61 63 65 3f 32 3e 39  |)*100)+space?2>9|
00000b80  39 39 20 f2 68 65 61 64  69 6e 67 28 22 81 45 72  |99 .heading(".Er|
00000b90  72 6f 72 86 2d 20 4e 6f  20 43 61 74 61 6c 6f 67  |ror.- No Catalog|
00000ba0  75 65 22 29 3a e5 8d 54  62 41 0d 04 1a 1c 3d 28  |ue"):..TbA....=(|
00000bb0  28 73 70 61 63 65 3f 31  29 2a 31 30 30 29 2b 73  |(space?1)*100)+s|
00000bc0  70 61 63 65 3f 32 0d 04  24 05 3a 0d 04 2e 11 dd  |pace?2..$.:.....|
00000bd0  f2 66 69 6e 64 63 61 74  28 4f 25 29 0d 04 38 19  |.findcat(O%)..8.|
00000be0  f2 6f 73 63 6c 69 28 22  50 41 47 45 20 22 2b c3  |.oscli("PAGE "+.|
00000bf0  28 4f 25 29 29 0d 04 42  10 ea 61 25 2c 70 6e 24  |(O%))..B..a%,pn$|
00000c00  2c 72 6f 77 25 0d 04 4c  0e 2a 44 41 54 41 20 35  |,row%..L.*DATA 5|
00000c10  30 30 30 0d 04 56 0f 61  25 3d 26 35 30 30 30 2d  |000..V.a%=&5000-|
00000c20  34 32 0d 04 60 05 f5 0d  04 6a 0c 61 25 3d 61 25  |42..`....j.a%=a%|
00000c30  2b 34 32 0d 04 74 29 fd  28 61 25 3f 31 3d 32 37  |+42..t).(a%?1=27|
00000c40  20 80 20 a4 64 65 68 61  6d 28 61 25 3f 32 29 3d  | . .deham(a%?2)=|
00000c50  30 29 20 84 61 25 3e 26  35 38 30 30 0d 04 7e 39  |0) .a%>&5800..~9|
00000c60  e7 61 25 3e 26 35 38 30  30 20 4d 25 3d 30 3a f2  |.a%>&5800 M%=0:.|
00000c70  68 65 61 64 69 6e 67 28  22 81 45 72 72 6f 72 86  |heading(".Error.|
00000c80  2d 6e 6f 20 63 61 74 61  6c 6f 67 75 65 22 29 3a  |-no catalogue"):|
00000c90  e5 8d 54 62 41 0d 04 88  0b e3 56 25 3d 30 b8 35  |..TbA.....V%=0.5|
00000ca0  0d 04 92 0f 44 28 56 25  29 3d 32 37 2b 56 25 0d  |....D(V%)=27+V%.|
00000cb0  04 9c 1a 44 28 56 25 29  3d a4 64 65 68 61 6d 28  |...D(V%)=.deham(|
00000cc0  61 25 3f 44 28 56 25 29  29 0d 04 a6 05 ed 0d 04  |a%?D(V%)).......|
00000cd0  b0 2a 4d 25 3d 28 28 28  44 28 35 29 20 80 31 32  |.*M%=(((D(5) .12|
00000ce0  29 81 32 29 84 28 44 28  33 29 20 81 38 29 29 82  |).2).(D(3) .8)).|
00000cf0  28 4f 25 81 31 30 30 29  0d 04 ba 17 4e 25 3d 28  |(O%.100)....N%=(|
00000d00  44 28 31 29 2a 31 36 29  2b 28 44 28 30 29 29 0d  |D(1)*16)+(D(0)).|
00000d10  04 c4 05 e1 0d 04 ce 05  3a 0d 04 d8 12 dd a4 64  |........:......d|
00000d20  65 68 61 6d 28 62 79 74  65 25 29 0d 04 e2 46 73  |eham(byte%)...Fs|
00000d30  70 61 63 65 3f 30 3d 32  35 3a 73 70 61 63 65 3f  |pace?0=25:space?|
00000d40  31 3d 62 79 74 65 25 3a  41 25 3d 26 37 41 3a 58  |1=byte%:A%=&7A:X|
00000d50  25 3d 73 70 61 63 65 20  83 32 35 36 3a 59 25 3d  |%=space .256:Y%=|
00000d60  73 70 61 63 65 20 81 32  35 36 3a d6 26 46 46 46  |space .256:.&FFF|
00000d70  31 0d 04 ec 11 3d 28 73  70 61 63 65 3f 32 29 80  |1....=(space?2).|
00000d80  26 46 0d 04 f6 05 3a 0d  05 00 0c dd f2 73 65 6c  |&F....:......sel|
00000d90  65 63 74 0d 05 0a d1 f2  68 65 61 64 69 6e 67 28  |ect.....heading(|
00000da0  22 55 73 65 85 55 50 20  44 4f 57 4e 87 63 75 72  |"Use.UP DOWN.cur|
00000db0  73 6f 72 20 6b 65 79 73  20 74 6f 20 73 65 6c 65  |sor keys to sele|
00000dc0  63 74 20 66 69 6c 65 20  20 54 79 70 65 85 59 87  |ct file  Type.Y.|
00000dd0  6f 72 85 4e 87 61 73 20  72 65 71 75 69 72 65 64  |or.N.as required|
00000de0  20 66 6f 72 20 65 61 63  68 20 66 69 6c 65 2e 20  | for each file. |
00000df0  20 50 72 65 73 73 85 52  45 54 55 52 4e 87 77 68  | Press.RETURN.wh|
00000e00  65 6e 20 73 65 6c 65 63  74 69 6f 6e 73 20 63 6f  |en selections co|
00000e10  6d 70 6c 65 74 65 2e 20  83 46 69 6c 65 6e 61 6d  |mplete. .Filenam|
00000e20  65 20 20 46 69 6c 65 54  79 70 65 20 20 20 46 69  |e  FileType   Fi|
00000e30  6c 65 53 69 7a 65 20 20  52 65 71 3f 59 2f 4e 22  |leSize  Req?Y/N"|
00000e40  29 3a f1 8a 30 2c 34 29  22 86 54 6f 74 61 6c 20  |):..0,4)".Total |
00000e50  6e 75 6d 62 65 72 20 6f  66 20 66 69 6c 65 73 20  |number of files |
00000e60  3d 22 5a 25 0d 05 14 19  ef 32 38 2c 30 2c 32 34  |="Z%.....28,0,24|
00000e70  2c 33 39 2c 31 30 3a 41  25 3d 30 3a f5 0d 05 1e  |,39,10:A%=0:....|
00000e80  25 41 25 3d 41 25 2b 31  3a f2 64 73 70 28 41 25  |%A%=A%+1:.dsp(A%|
00000e90  2d 31 29 3a fd 28 41 25  3d 5a 25 84 41 25 3d 31  |-1):.(A%=Z%.A%=1|
00000ea0  35 29 0d 05 28 11 ef 33  31 2c 33 35 2c 30 3a 41  |5)..(..31,35,0:A|
00000eb0  25 3d 31 0d 05 32 09 f5  3a 41 3d a5 0d 05 3c 1d  |%=1..2..:A=...<.|
00000ec0  e7 41 3d 26 34 45 20 84  41 3d 26 36 45 20 f2 61  |.A=&4E .A=&6E .a|
00000ed0  6d 65 6e 64 28 22 4e 22  29 0d 05 46 1d e7 41 3d  |mend("N")..F..A=|
00000ee0  26 35 39 20 84 41 3d 26  37 39 20 f2 61 6d 65 6e  |&59 .A=&79 .amen|
00000ef0  64 28 22 59 22 29 0d 05  50 0f e7 41 3d 26 38 42  |d("Y")..P..A=&8B|
00000f00  20 f2 72 75 70 0d 05 5a  0f e7 41 3d 26 38 41 20  | .rup..Z..A=&8A |
00000f10  f2 72 64 6e 0d 05 64 0a  fd 41 3d 26 30 44 0d 05  |.rdn..d..A=&0D..|
00000f20  6e 05 e1 0d 05 78 05 3a  0d 05 82 10 dd f2 61 6d  |n....x.:......am|
00000f30  65 6e 64 28 79 6e 24 29  0d 05 8c 2e f1 79 6e 24  |end(yn$).....yn$|
00000f40  bd 38 3b 3a 74 79 70 65  24 28 41 25 29 3d 79 6e  |.8;:type$(A%)=yn|
00000f50  24 2b c1 74 79 70 65 24  28 41 25 29 2c 32 29 3a  |$+.type$(A%),2):|
00000f60  f2 72 64 6e 3a e1 0d 05  96 05 3a 0d 05 a0 0d dd  |.rdn:.....:.....|
00000f70  f2 64 73 70 28 79 25 29  0d 05 aa 62 f1 8a 30 2c  |.dsp(y%)...b..0,|
00000f80  79 25 29 c1 74 79 70 65  24 28 41 25 29 2c 32 2c  |y%).type$(A%),2,|
00000f90  31 29 66 6e 61 6d 65 24  28 41 25 29 8a 31 31 2c  |1)fname$(A%).11,|
00000fa0  79 25 29 c1 74 79 70 65  24 28 41 25 29 2c 33 29  |y%).type$(A%),3)|
00000fb0  8a 32 32 2c 79 25 29 70  61 67 65 73 24 28 41 25  |.22,y%)pages$(A%|
00000fc0  29 8a 33 35 2c 79 25 29  c0 74 79 70 65 24 28 41  |).35,y%).type$(A|
00000fd0  25 29 2c 31 29 bd 38 3b  3a e1 0d 05 b4 05 3a 0d  |%),1).8;:.....:.|
00000fe0  05 be 09 dd f2 72 75 70  0d 05 c8 0b e7 41 25 3d  |.....rup.....A%=|
00000ff0  31 20 e1 0d 05 d2 1e e7  bc 3d 30 20 ef 31 31 3a  |1 .......=0 .11:|
00001000  41 25 3d 41 25 2d 31 3a  f2 64 73 70 28 30 29 3a  |A%=A%-1:.dsp(0):|
00001010  e1 0d 05 dc 11 ef 31 31  3a 41 25 3d 41 25 2d 31  |......11:A%=A%-1|
00001020  3a e1 0d 05 e6 05 3a 0d  05 f0 09 dd f2 72 64 6e  |:.....:......rdn|
00001030  0d 05 fa 0c e7 41 25 3d  5a 25 20 e1 0d 06 04 20  |.....A%=Z% .... |
00001040  e7 bc 3d 31 34 20 ef 31  30 3a 41 25 3d 41 25 2b  |..=14 .10:A%=A%+|
00001050  31 3a f2 64 73 70 28 31  34 29 3a e1 0d 06 0e 11  |1:.dsp(14):.....|
00001060  ef 31 30 3a 41 25 3d 41  25 2b 31 3a e1 0d 0b b8  |.10:A%=A%+1:....|
00001070  24 dd a4 6e 74 73 3a e7  73 74 61 32 24 3d 22 4e  |$..nts:.sta2$="N|
00001080  4f 54 45 53 22 20 3d 22  4e 22 20 8b 20 3d 22 59  |OTES" ="N" . ="Y|
00001090  22 0d ff                                          |"..|
00001093