��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%(30),fname$(30),load%(30),exec%(30),pages$(30),mag%(30),D(5),type$(30)
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%,"CATALOG",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 33 30 29 2c 66  6e 61 6d 65 24 28 33 30  |e%(30),fname$(30|
00000090  29 2c 6c 6f 61 64 25 28  33 30 29 2c 65 78 65 63  |),load%(30),exec|
000000a0  25 28 33 30 29 2c 70 61  67 65 73 24 28 33 30 29  |%(30),pages$(30)|
000000b0  2c 6d 61 67 25 28 33 30  29 2c 44 28 35 29 2c 74  |,mag%(30),D(5),t|
000000c0  79 70 65 24 28 33 30 29  0d 00 64 1f f2 68 65 61  |ype$(30)..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 26 f2 64 6f 77 6e 6c  6f 61 64 28 4d 25 2c 4e  |.&.download(M%,N|
000001c0  25 2c 22 43 41 54 41 4c  4f 47 22 2c 30 2c 30 2c  |%,"CATALOG",0,0,|
000001d0  a3 2c b9 29 0d 00 aa 0e  f2 69 6e 74 65 72 70 72  |.,.).....interpr|
000001e0  65 74 0d 00 b4 3c e7 5a  25 3d 30 20 eb 37 3a f2  |et...<.Z%=0 .7:.|
000001f0  68 65 61 64 69 6e 67 28  22 81 4e 6f 20 66 69 6c  |heading(".No fil|
00000200  65 73 20 62 72 6f 61 64  63 61 73 74 20 74 68 69  |es broadcast thi|
00000210  73 20 77 65 65 6b 22 29  3a e5 8d 54 62 41 0d 00  |s week"):..TbA..|
00000220  b9 0e eb 37 3a f2 73 65  6c 65 63 74 0d 00 be 0c  |...7:.select....|
00000230  e3 57 25 3d 31 b8 5a 25  0d 00 c3 1d e7 c0 74 79  |.W%=1.Z%......ty|
00000240  70 65 24 28 57 25 29 2c  31 29 3c 3e 22 59 22 20  |pe$(W%),1)<>"Y" |
00000250  e5 8d 64 7a 40 0d 00 c8  16 eb 37 3a ef 32 33 3b  |..dz@.....7:.23;|
00000260  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 d2 51 f2  |8202;0;0;0;...Q.|
00000270  68 65 61 64 69 6e 67 28  22 46 69 6c 65 3a 86 22  |heading("File:."|
00000280  2b 66 6e 61 6d 65 24 28  57 25 29 2b c4 28 31 32  |+fname$(W%)+.(12|
00000290  2d a9 28 66 6e 61 6d 65  24 28 57 25 29 29 29 2c  |-.(fname$(W%))),|
000002a0  22 20 22 29 2b 22 87 4c  65 6e 67 74 68 3a 86 22  |" ")+".Length:."|
000002b0  2b 70 61 67 65 73 24 28  57 25 29 29 0d 00 dc 2e  |+pages$(W%))....|
000002c0  f1 8a 30 2c 30 29 3b 22  50 22 3b 6d 61 67 25 28  |..0,0);"P";mag%(|
000002d0  57 25 29 3b c2 22 30 30  22 2b c3 7e 28 70 61 67  |W%);."00"+.~(pag|
000002e0  65 25 28 57 25 29 29 2c  32 29 0d 00 e6 44 f2 64  |e%(W%)),2)...D.d|
000002f0  6f 77 6e 6c 6f 61 64 28  6d 61 67 25 28 57 25 29  |ownload(mag%(W%)|
00000300  2c 70 61 67 65 25 28 57  25 29 2c 66 6e 61 6d 65  |,page%(W%),fname|
00000310  24 28 57 25 29 2c 6c 6f  61 64 25 28 57 25 29 2c  |$(W%),load%(W%),|
00000320  65 78 65 63 25 28 57 25  29 2c b9 2c b9 29 0d 00  |exec%(W%),.,.)..|
00000330  f5 1f 74 79 70 65 24 28  57 25 29 3d 22 58 22 2b  |..type$(W%)="X"+|
00000340  c1 74 79 70 65 24 28 57  25 29 2c 32 29 0d 00 fa  |.type$(W%),2)...|
00000350  05 ed 0d 01 0e 25 eb 37  3a f2 68 65 61 64 69 6e  |.....%.7:.headin|
00000360  67 28 22 86 46 69 6c 65  73 20 64 6f 77 6e 6c 6f  |g(".Files downlo|
00000370  61 64 65 64 3a 22 29 0d  01 18 55 f1 3a e3 41 25  |aded:")...U.:.A%|
00000380  3d 31 b8 5a 25 3a e7 c0  74 79 70 65 24 28 41 25  |=1.Z%:..type$(A%|
00000390  29 2c 31 29 3d 22 58 22  20 f1 c1 74 79 70 65 24  |),1)="X" ..type$|
000003a0  28 41 25 29 2c 32 2c 31  29 66 6e 61 6d 65 24 28  |(A%),2,1)fname$(|
000003b0  41 25 29 89 28 31 39 2d  a9 28 66 6e 61 6d 65 24  |A%).(19-.(fname$|
000003c0  28 41 25 29 29 29 3b 3a  ed 20 8b ed 0d 01 1d 14  |(A%)));:. ......|
000003d0  f1 27 3a e7 9e 3e 30 20  80 9f 3e 30 20 f6 3a f1  |.':..>0 ..>0 .:.|
000003e0  0d 01 22 09 2a 48 4f 46  46 0d 01 27 0a 2a 46 58  |..".*HOFF..'.*FX|
000003f0  34 2c 30 0d 01 2c 11 f2  72 65 74 75 72 6e 5f 6f  |4,0..,..return_o|
00000400  73 68 77 6d 0d 01 36 05  e0 0d 01 40 05 3a 0d 01  |shwm..6....@.:..|
00000410  4a 10 dd f2 6d 6f 76 65  5f 6f 73 68 77 6d 0d 01  |J...move_oshwm..|
00000420  54 0c 53 25 3d 26 35 30  30 30 0d 01 5e 20 41 25  |T.S%=&5000..^ A%|
00000430  3d 26 42 34 3a 58 25 3d  53 25 81 32 35 36 3a 59  |=&B4:X%=S%.256:Y|
00000440  25 3d 30 3a d6 26 46 46  46 34 0d 01 68 05 e1 0d  |%=0:.&FFF4..h...|
00000450  01 72 05 3a 0d 01 7c 42  dd f2 64 6f 77 6e 6c 6f  |.r.:..|B..downlo|
00000460  61 64 28 6d 61 67 61 7a  69 6e 65 25 2c 70 61 67  |ad(magazine%,pag|
00000470  65 25 2c 66 69 6c 65 6e  61 6d 65 24 2c 6c 6f 61  |e%,filename$,loa|
00000480  64 25 2c 65 78 65 63 25  2c 73 61 76 65 25 2c 72  |d%,exec%,save%,r|
00000490  65 73 65 74 25 29 0d 01  86 24 f2 6f 73 63 6c 69  |eset%)...$.oscli|
000004a0  28 22 4d 41 47 41 5a 49  4e 45 20 22 2b c3 28 6d  |("MAGAZINE "+.(m|
000004b0  61 67 61 7a 69 6e 65 25  29 29 0d 01 90 0e 73 70  |agazine%))....sp|
000004c0  61 63 65 3f 30 3d 32 34  0d 01 9a 27 73 70 61 63  |ace?0=24...'spac|
000004d0  65 3f 31 3d 6e 61 6d 65  20 83 32 35 36 3a 73 70  |e?1=name .256:sp|
000004e0  61 63 65 3f 32 3d 6e 61  6d 65 20 81 32 35 36 0d  |ace?2=name .256.|
000004f0  01 a4 13 24 6e 61 6d 65  3d 66 69 6c 65 6e 61 6d  |...$name=filenam|
00000500  65 24 0d 01 ae 11 73 70  61 63 65 21 33 3d 6c 6f  |e$....space!3=lo|
00000510  61 64 25 0d 01 b8 11 73  70 61 63 65 21 37 3d 65  |ad%....space!7=e|
00000520  78 65 63 25 0d 01 c2 16  73 70 61 63 65 3f 31 31  |xec%....space?11|
00000530  3d 6d 61 67 61 7a 69 6e  65 25 0d 01 cc 12 73 70  |=magazine%....sp|
00000540  61 63 65 3f 31 32 3d 70  61 67 65 25 0d 01 d6 24  |ace?12=page%...$|
00000550  e7 73 61 76 65 25 3d b9  20 73 70 61 63 65 3f 31  |.save%=. space?1|
00000560  33 3d 31 20 8b 20 73 70  61 63 65 3f 31 33 3d 30  |3=1 . space?13=0|
00000570  0d 01 e0 25 e7 72 65 73  65 74 25 3d b9 20 73 70  |...%.reset%=. sp|
00000580  61 63 65 3f 31 34 3d 30  20 8b 20 73 70 61 63 65  |ace?14=0 . space|
00000590  3f 31 34 3d 31 0d 01 ea  26 41 25 3d 26 37 41 3a  |?14=1...&A%=&7A:|
000005a0  58 25 3d 73 70 61 63 65  20 83 32 35 36 3a 59 25  |X%=space .256:Y%|
000005b0  3d 73 70 61 63 65 20 81  32 35 36 0d 01 f4 0a d6  |=space .256.....|
000005c0  26 46 46 46 31 0d 01 fe  05 e1 0d 02 08 05 3a 0d  |&FFF1.........:.|
000005d0  02 12 12 dd f2 6f 73 63  6c 69 28 74 65 78 74 24  |.....oscli(text$|
000005e0  29 0d 02 1c 29 24 6c 69  6e 65 3d 74 65 78 74 24  |)...)$line=text$|
000005f0  3a 58 25 3d 6c 69 6e 65  20 83 32 35 36 3a 59 25  |:X%=line .256:Y%|
00000600  3d 6c 69 6e 65 20 81 32  35 36 0d 02 26 0a d6 26  |=line .256..&..&|
00000610  46 46 46 37 0d 02 30 05  e1 0d 02 3a 05 3a 0d 02  |FFF7..0....:.:..|
00000620  44 15 dd f2 68 65 61 64  69 6e 67 28 66 6e 61 6d  |D...heading(fnam|
00000630  65 24 29 0d 02 58 46 db  3a f1 3a e3 51 25 3d 31  |e$)..XF.:.:.Q%=1|
00000640  20 b8 32 3a f1 bd 31 33  32 3b bd 31 35 37 3b bd  | .2:..132;.157;.|
00000650  31 34 31 3b 22 83 54 65  6c 65 73 6f 66 74 77 61  |141;".Telesoftwa|
00000660  72 65 20 46 69 6c 65 73  20 41 75 74 6f 20 44 6f  |re Files Auto Do|
00000670  77 6e 6c 6f 61 64 22 3a  ed 0d 02 6c 10 f1 8a 31  |wnload":...l...1|
00000680  2c 35 29 66 6e 61 6d 65  24 0d 02 76 05 e1 0d 02  |,5)fname$..v....|
00000690  80 05 3a 0d 02 8a 12 dd  f2 72 65 74 75 72 6e 5f  |..:......return_|
000006a0  6f 73 68 77 6d 0d 02 94  20 41 25 3d 26 42 34 3a  |oshwm... A%=&B4:|
000006b0  58 25 3d 90 20 81 32 35  36 3a 59 25 3d 30 3a d6  |X%=. .256:Y%=0:.|
000006c0  26 46 46 46 34 0d 02 9e  05 e1 0d 02 a8 05 3a 0d  |&FFF4.........:.|
000006d0  02 b2 0f dd f2 69 6e 74  65 72 70 72 65 74 0d 02  |.....interpret..|
000006e0  bc 10 73 74 61 25 3d 53  25 3a 5a 25 3d 30 0d 02  |..sta%=S%:Z%=0..|
000006f0  c6 27 73 74 61 25 3d 73  74 61 25 2b 31 2b 3f 73  |.'sta%=sta%+1+?s|
00000700  74 61 25 3a 73 74 61 25  3d 73 74 61 25 2b 31 2b  |ta%:sta%=sta%+1+|
00000710  3f 73 74 61 25 0d 02 d0  09 5a 3d 30 3a f5 0d 02  |?sta%....Z=0:...|
00000720  da 0b f4 22 81 6d 2f 63  3a 0d 02 e4 0e 6c 65 6e  |...".m/c:....len|
00000730  25 3d 3f 73 74 61 25 0d  02 ee 26 e3 41 25 3d 73  |%=?sta%...&.A%=s|
00000740  74 61 25 b8 73 74 61 25  2b 6c 65 6e 25 3a 3f 41  |ta%.sta%+len%:?A|
00000750  25 3d 28 3f 41 25 29 80  26 37 46 3a ed 0d 02 f8  |%=(?A%).&7F:....|
00000760  47 54 25 3d 3f 28 73 74  61 25 2b 6c 65 6e 25 2b  |GT%=?(sta%+len%+|
00000770  31 29 3a 3f 28 73 74 61  25 2b 6c 65 6e 25 2b 31  |1):?(sta%+len%+1|
00000780  29 3d 31 33 3a 6d 63 24  3d 24 28 73 74 61 25 2b  |)=13:mc$=$(sta%+|
00000790  31 29 3a 3f 28 73 74 61  25 2b 6c 65 6e 25 2b 31  |1):?(sta%+len%+1|
000007a0  29 3d 54 25 0d 03 02 15  73 74 61 25 3d 73 74 61  |)=T%....sta%=sta|
000007b0  25 2b 31 2b 3f 73 74 61  25 0d 03 0c 14 e7 6d 63  |%+1+?sta%.....mc|
000007c0  24 3d 22 2a 2a 2a 22 20  e5 8d 64 4a 43 0d 03 16  |$="***" ..dJC...|
000007d0  10 f4 22 81 66 69 6c 65  6e 61 6d 65 3a 0d 03 20  |..".filename:.. |
000007e0  0e 6c 65 6e 25 3d 3f 73  74 61 25 0d 03 2a 24 e3  |.len%=?sta%..*$.|
000007f0  41 25 3d 73 74 61 25 b8  73 74 61 25 2b 6c 65 6e  |A%=sta%.sta%+len|
00000800  25 3a 3f 41 25 3d 28 3f  41 25 29 80 26 37 46 0d  |%:?A%=(?A%).&7F.|
00000810  03 34 1a e7 3f 41 25 3e  26 34 30 20 3f 41 25 3d  |.4..?A%>&40 ?A%=|
00000820  28 3f 41 25 29 80 26 44  46 0d 03 3e 05 ed 0d 03  |(?A%).&DF..>....|
00000830  43 1d 74 79 70 65 24 28  30 29 3d bd 28 3f 28 73  |C.type$(0)=.(?(s|
00000840  74 61 25 2b 31 29 2b 26  38 30 29 0d 03 48 48 54  |ta%+1)+&80)..HHT|
00000850  25 3d 3f 28 73 74 61 25  2b 6c 65 6e 25 2b 31 29  |%=?(sta%+len%+1)|
00000860  3a 3f 28 73 74 61 25 2b  6c 65 6e 25 2b 31 29 3d  |:?(sta%+len%+1)=|
00000870  31 33 3a 73 74 61 24 3d  24 28 73 74 61 25 2b 32  |13:sta$=$(sta%+2|
00000880  29 3a 3f 28 73 74 61 25  2b 6c 65 6e 25 2b 31 29  |):?(sta%+len%+1)|
00000890  3d 54 25 0d 03 52 15 73  74 61 25 3d 73 74 61 25  |=T%..R.sta%=sta%|
000008a0  2b 31 2b 3f 73 74 61 25  0d 03 5c 11 f4 22 81 46  |+1+?sta%..\..".F|
000008b0  69 6c 65 20 74 79 70 65  3a 0d 03 66 0e 6c 65 6e  |ile type:..f.len|
000008c0  25 3d 3f 73 74 61 25 0d  03 70 2c e3 41 25 3d 73  |%=?sta%..p,.A%=s|
000008d0  74 61 25 b8 73 74 61 25  2b 6c 65 6e 25 3a 3f 41  |ta%.sta%+len%:?A|
000008e0  25 3d 28 28 3f 41 25 29  80 26 37 46 29 80 26 44  |%=((?A%).&7F).&D|
000008f0  46 3a ed 0d 03 7a 49 54  25 3d 3f 28 73 74 61 25  |F:...zIT%=?(sta%|
00000900  2b 6c 65 6e 25 2b 31 29  3a 3f 28 73 74 61 25 2b  |+len%+1):?(sta%+|
00000910  6c 65 6e 25 2b 31 29 3d  31 33 3a 73 74 61 32 24  |len%+1)=13:sta2$|
00000920  3d 24 28 73 74 61 25 2b  31 29 3a 3f 28 73 74 61  |=$(sta%+1):?(sta|
00000930  25 2b 6c 65 6e 25 2b 31  29 3d 54 25 0d 03 84 15  |%+len%+1)=T%....|
00000940  73 74 61 25 3d 73 74 61  25 2b 31 2b 3f 73 74 61  |sta%=sta%+1+?sta|
00000950  25 0d 03 8e 0e 6c 65 6e  25 3d 3f 73 74 61 25 0d  |%....len%=?sta%.|
00000960  03 98 26 e3 41 25 3d 73  74 61 25 b8 73 74 61 25  |..&.A%=sta%.sta%|
00000970  2b 6c 65 6e 25 3a 3f 41  25 3d 28 3f 41 25 29 80  |+len%:?A%=(?A%).|
00000980  26 37 46 3a ed 0d 03 a2  49 54 25 3d 3f 28 73 74  |&7F:....IT%=?(st|
00000990  61 25 2b 6c 65 6e 25 2b  31 29 3a 3f 28 73 74 61  |a%+len%+1):?(sta|
000009a0  25 2b 6c 65 6e 25 2b 31  29 3d 31 33 3a 73 74 61  |%+len%+1)=13:sta|
000009b0  33 24 3d 24 28 73 74 61  25 2b 31 29 3a 3f 28 73  |3$=$(sta%+1):?(s|
000009c0  74 61 25 2b 6c 65 6e 25  2b 31 29 3d 54 25 0d 03  |ta%+len%+1)=T%..|
000009d0  ac 15 73 74 61 25 3d 73  74 61 25 2b 31 2b 3f 73  |..sta%=sta%+1+?s|
000009e0  74 61 25 0d 03 b6 9f 5a  25 3d 5a 25 2b 31 3a 74  |ta%....Z%=Z%+1:t|
000009f0  79 70 65 24 28 5a 25 29  3d a4 6e 74 73 2b 74 79  |ype$(Z%)=.nts+ty|
00000a00  70 65 24 28 30 29 2b 73  74 61 32 24 3a 66 6e 61  |pe$(0)+sta2$:fna|
00000a10  6d 65 24 28 5a 25 29 3d  73 74 61 24 3a 70 61 67  |me$(Z%)=sta$:pag|
00000a20  65 73 24 28 5a 25 29 3d  73 74 61 33 24 3a 6c 6f  |es$(Z%)=sta3$:lo|
00000a30  61 64 25 28 5a 25 29 3d  a4 61 64 64 72 28 73 74  |ad%(Z%)=.addr(st|
00000a40  61 25 29 3a 65 78 65 63  25 28 5a 25 29 3d a4 61  |a%):exec%(Z%)=.a|
00000a50  64 64 72 28 73 74 61 25  2b 34 29 3a 6d 61 67 25  |ddr(sta%+4):mag%|
00000a60  28 5a 25 29 3d 3f 28 73  74 61 25 2b 38 29 3a 70  |(Z%)=?(sta%+8):p|
00000a70  61 67 65 25 28 5a 25 29  3d 3f 28 73 74 61 25 2b  |age%(Z%)=?(sta%+|
00000a80  39 29 0d 03 c0 10 73 74  61 25 3d 73 74 61 25 2b  |9)....sta%=sta%+|
00000a90  31 30 0d 03 ca 0e fd 6d  63 24 3d 22 2a 2a 2a 22  |10.....mc$="***"|
00000aa0  0d 03 d4 05 e1 0d 03 de  05 3a 0d 03 e8 0f dd a4  |.........:......|
00000ab0  61 64 64 72 28 73 74 25  29 0d 03 f2 5a 47 24 3d  |addr(st%)...ZG$=|
00000ac0  c2 22 30 30 22 2b c3 7e  28 3f 73 74 25 29 2c 32  |."00"+.~(?st%),2|
00000ad0  29 2b c2 22 30 30 22 2b  c3 7e 28 3f 28 73 74 25  |)+."00"+.~(?(st%|
00000ae0  2b 31 29 29 2c 32 29 2b  c2 22 30 30 22 2b c3 7e  |+1)),2)+."00"+.~|
00000af0  28 3f 28 73 74 25 2b 32  29 29 2c 32 29 2b c2 22  |(?(st%+2)),2)+."|
00000b00  30 30 22 2b c3 7e 28 3f  28 73 74 25 2b 33 29 29  |00"+.~(?(st%+3))|
00000b10  2c 32 29 0d 03 f7 0e 3d  a0 28 22 26 22 2b 47 24  |,2)....=.("&"+G$|
00000b20  29 0d 03 fc 0d dd a4 67  65 74 6c 69 6e 6b 0d 04  |)......getlink..|
00000b30  06 38 73 70 61 63 65 3f  30 3d 31 35 3a 41 25 3d  |.8space?0=15:A%=|
00000b40  26 37 41 3a 58 25 3d 73  70 61 63 65 20 83 32 35  |&7A:X%=space .25|
00000b50  36 3a 59 25 3d 73 70 61  63 65 20 81 32 35 36 3a  |6:Y%=space .256:|
00000b60  d6 26 46 46 46 31 0d 04  10 48 e7 28 28 73 70 61  |.&FFF1...H.((spa|
00000b70  63 65 3f 31 29 2a 31 30  30 29 2b 73 70 61 63 65  |ce?1)*100)+space|
00000b80  3f 32 3e 39 39 39 20 f2  68 65 61 64 69 6e 67 28  |?2>999 .heading(|
00000b90  22 81 45 72 72 6f 72 86  2d 20 4e 6f 20 43 61 74  |".Error.- No Cat|
00000ba0  61 6c 6f 67 75 65 22 29  3a e5 8d 54 62 41 0d 04  |alogue"):..TbA..|
00000bb0  1a 1c 3d 28 28 73 70 61  63 65 3f 31 29 2a 31 30  |..=((space?1)*10|
00000bc0  30 29 2b 73 70 61 63 65  3f 32 0d 04 24 05 3a 0d  |0)+space?2..$.:.|
00000bd0  04 2e 11 dd f2 66 69 6e  64 63 61 74 28 4f 25 29  |.....findcat(O%)|
00000be0  0d 04 38 19 f2 6f 73 63  6c 69 28 22 50 41 47 45  |..8..oscli("PAGE|
00000bf0  20 22 2b c3 28 4f 25 29  29 0d 04 42 10 ea 61 25  | "+.(O%))..B..a%|
00000c00  2c 70 6e 24 2c 72 6f 77  25 0d 04 4c 0e 2a 44 41  |,pn$,row%..L.*DA|
00000c10  54 41 20 35 30 30 30 0d  04 56 0f 61 25 3d 26 35  |TA 5000..V.a%=&5|
00000c20  30 30 30 2d 34 32 0d 04  60 05 f5 0d 04 6a 0c 61  |000-42..`....j.a|
00000c30  25 3d 61 25 2b 34 32 0d  04 74 29 fd 28 61 25 3f  |%=a%+42..t).(a%?|
00000c40  31 3d 32 37 20 80 20 a4  64 65 68 61 6d 28 61 25  |1=27 . .deham(a%|
00000c50  3f 32 29 3d 30 29 20 84  61 25 3e 26 35 38 30 30  |?2)=0) .a%>&5800|
00000c60  0d 04 7e 39 e7 61 25 3e  26 35 38 30 30 20 4d 25  |..~9.a%>&5800 M%|
00000c70  3d 30 3a f2 68 65 61 64  69 6e 67 28 22 81 45 72  |=0:.heading(".Er|
00000c80  72 6f 72 86 2d 6e 6f 20  63 61 74 61 6c 6f 67 75  |ror.-no catalogu|
00000c90  65 22 29 3a e5 8d 54 62  41 0d 04 88 0b e3 56 25  |e"):..TbA.....V%|
00000ca0  3d 30 b8 35 0d 04 92 0f  44 28 56 25 29 3d 32 37  |=0.5....D(V%)=27|
00000cb0  2b 56 25 0d 04 9c 1a 44  28 56 25 29 3d a4 64 65  |+V%....D(V%)=.de|
00000cc0  68 61 6d 28 61 25 3f 44  28 56 25 29 29 0d 04 a6  |ham(a%?D(V%))...|
00000cd0  05 ed 0d 04 b0 2a 4d 25  3d 28 28 28 44 28 35 29  |.....*M%=(((D(5)|
00000ce0  20 80 31 32 29 81 32 29  84 28 44 28 33 29 20 81  | .12).2).(D(3) .|
00000cf0  38 29 29 82 28 4f 25 81  31 30 30 29 0d 04 ba 17  |8)).(O%.100)....|
00000d00  4e 25 3d 28 44 28 31 29  2a 31 36 29 2b 28 44 28  |N%=(D(1)*16)+(D(|
00000d10  30 29 29 0d 04 c4 05 e1  0d 04 ce 05 3a 0d 04 d8  |0)).........:...|
00000d20  12 dd a4 64 65 68 61 6d  28 62 79 74 65 25 29 0d  |...deham(byte%).|
00000d30  04 e2 46 73 70 61 63 65  3f 30 3d 32 35 3a 73 70  |..Fspace?0=25:sp|
00000d40  61 63 65 3f 31 3d 62 79  74 65 25 3a 41 25 3d 26  |ace?1=byte%:A%=&|
00000d50  37 41 3a 58 25 3d 73 70  61 63 65 20 83 32 35 36  |7A:X%=space .256|
00000d60  3a 59 25 3d 73 70 61 63  65 20 81 32 35 36 3a d6  |:Y%=space .256:.|
00000d70  26 46 46 46 31 0d 04 ec  11 3d 28 73 70 61 63 65  |&FFF1....=(space|
00000d80  3f 32 29 80 26 46 0d 04  f6 05 3a 0d 05 00 0c dd  |?2).&F....:.....|
00000d90  f2 73 65 6c 65 63 74 0d  05 0a d1 f2 68 65 61 64  |.select.....head|
00000da0  69 6e 67 28 22 55 73 65  85 55 50 20 44 4f 57 4e  |ing("Use.UP DOWN|
00000db0  87 63 75 72 73 6f 72 20  6b 65 79 73 20 74 6f 20  |.cursor keys to |
00000dc0  73 65 6c 65 63 74 20 66  69 6c 65 20 20 54 79 70  |select file  Typ|
00000dd0  65 85 59 87 6f 72 85 4e  87 61 73 20 72 65 71 75  |e.Y.or.N.as requ|
00000de0  69 72 65 64 20 66 6f 72  20 65 61 63 68 20 66 69  |ired for each fi|
00000df0  6c 65 2e 20 20 50 72 65  73 73 85 52 45 54 55 52  |le.  Press.RETUR|
00000e00  4e 87 77 68 65 6e 20 73  65 6c 65 63 74 69 6f 6e  |N.when selection|
00000e10  73 20 63 6f 6d 70 6c 65  74 65 2e 20 83 46 69 6c  |s complete. .Fil|
00000e20  65 6e 61 6d 65 20 20 46  69 6c 65 54 79 70 65 20  |ename  FileType |
00000e30  20 20 46 69 6c 65 53 69  7a 65 20 20 52 65 71 3f  |  FileSize  Req?|
00000e40  59 2f 4e 22 29 3a f1 8a  30 2c 34 29 22 86 54 6f  |Y/N"):..0,4)".To|
00000e50  74 61 6c 20 6e 75 6d 62  65 72 20 6f 66 20 66 69  |tal number of fi|
00000e60  6c 65 73 20 3d 22 5a 25  0d 05 14 19 ef 32 38 2c  |les ="Z%.....28,|
00000e70  30 2c 32 34 2c 33 39 2c  31 30 3a 41 25 3d 30 3a  |0,24,39,10:A%=0:|
00000e80  f5 0d 05 1e 25 41 25 3d  41 25 2b 31 3a f2 64 73  |....%A%=A%+1:.ds|
00000e90  70 28 41 25 2d 31 29 3a  fd 28 41 25 3d 5a 25 84  |p(A%-1):.(A%=Z%.|
00000ea0  41 25 3d 31 35 29 0d 05  28 11 ef 33 31 2c 33 35  |A%=15)..(..31,35|
00000eb0  2c 30 3a 41 25 3d 31 0d  05 32 09 f5 3a 41 3d a5  |,0:A%=1..2..:A=.|
00000ec0  0d 05 3c 1d e7 41 3d 26  34 45 20 84 41 3d 26 36  |..<..A=&4E .A=&6|
00000ed0  45 20 f2 61 6d 65 6e 64  28 22 4e 22 29 0d 05 46  |E .amend("N")..F|
00000ee0  1d e7 41 3d 26 35 39 20  84 41 3d 26 37 39 20 f2  |..A=&59 .A=&79 .|
00000ef0  61 6d 65 6e 64 28 22 59  22 29 0d 05 50 0f e7 41  |amend("Y")..P..A|
00000f00  3d 26 38 42 20 f2 72 75  70 0d 05 5a 0f e7 41 3d  |=&8B .rup..Z..A=|
00000f10  26 38 41 20 f2 72 64 6e  0d 05 64 0a fd 41 3d 26  |&8A .rdn..d..A=&|
00000f20  30 44 0d 05 6e 05 e1 0d  05 78 05 3a 0d 05 82 10  |0D..n....x.:....|
00000f30  dd f2 61 6d 65 6e 64 28  79 6e 24 29 0d 05 8c 2e  |..amend(yn$)....|
00000f40  f1 79 6e 24 bd 38 3b 3a  74 79 70 65 24 28 41 25  |.yn$.8;:type$(A%|
00000f50  29 3d 79 6e 24 2b c1 74  79 70 65 24 28 41 25 29  |)=yn$+.type$(A%)|
00000f60  2c 32 29 3a f2 72 64 6e  3a e1 0d 05 96 05 3a 0d  |,2):.rdn:.....:.|
00000f70  05 a0 0d dd f2 64 73 70  28 79 25 29 0d 05 aa 62  |.....dsp(y%)...b|
00000f80  f1 8a 30 2c 79 25 29 c1  74 79 70 65 24 28 41 25  |..0,y%).type$(A%|
00000f90  29 2c 32 2c 31 29 66 6e  61 6d 65 24 28 41 25 29  |),2,1)fname$(A%)|
00000fa0  8a 31 31 2c 79 25 29 c1  74 79 70 65 24 28 41 25  |.11,y%).type$(A%|
00000fb0  29 2c 33 29 8a 32 32 2c  79 25 29 70 61 67 65 73  |),3).22,y%)pages|
00000fc0  24 28 41 25 29 8a 33 35  2c 79 25 29 c0 74 79 70  |$(A%).35,y%).typ|
00000fd0  65 24 28 41 25 29 2c 31  29 bd 38 3b 3a e1 0d 05  |e$(A%),1).8;:...|
00000fe0  b4 05 3a 0d 05 be 09 dd  f2 72 75 70 0d 05 c8 0b  |..:......rup....|
00000ff0  e7 41 25 3d 31 20 e1 0d  05 d2 1e e7 bc 3d 30 20  |.A%=1 .......=0 |
00001000  ef 31 31 3a 41 25 3d 41  25 2d 31 3a f2 64 73 70  |.11:A%=A%-1:.dsp|
00001010  28 30 29 3a e1 0d 05 dc  11 ef 31 31 3a 41 25 3d  |(0):......11:A%=|
00001020  41 25 2d 31 3a e1 0d 05  e6 05 3a 0d 05 f0 09 dd  |A%-1:.....:.....|
00001030  f2 72 64 6e 0d 05 fa 0c  e7 41 25 3d 5a 25 20 e1  |.rdn.....A%=Z% .|
00001040  0d 06 04 20 e7 bc 3d 31  34 20 ef 31 30 3a 41 25  |... ..=14 .10:A%|
00001050  3d 41 25 2b 31 3a f2 64  73 70 28 31 34 29 3a e1  |=A%+1:.dsp(14):.|
00001060  0d 06 0e 11 ef 31 30 3a  41 25 3d 41 25 2b 31 3a  |.....10:A%=A%+1:|
00001070  e1 0d 0b b8 24 dd a4 6e  74 73 3a e7 73 74 61 32  |....$..nts:.sta2|
00001080  24 3d 22 4e 4f 54 45 53  22 20 3d 22 4e 22 20 8b  |$="NOTES" ="N" .|
00001090  20 3d 22 59 22 0d ff                              | ="Y"..|
00001097