Home » CEEFAX disks » telesoftware7.adl » Auto_Load

Auto_Load

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 » telesoftware7.adl
Filename: Auto_Load
Read OK:
File size: 1097 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10ONERRORGOTO270
   20MODE7:@%=3:*FX4,1
   30VDU23;8202;0;0;0;
   40*TTXON
   50*BBC2
   60*HON
   70PROCmove_oshwm
   80DIM space 20,name 12,line 15
   90DIMpage%(30),fname$(30),load%(30),exec%(30),pages$(30),mag%(30),D(5),type$(30)
  100PROCheading("File:�Catalogue")
  110A%=TIME:REPEAT:UNTILTIME>A%+200
  120PROCfindcat(FNgetlink)
  130IFM%>9 ORN%>&FE PROCheading("�Error�- No Catalogue"):GOTO290
  140PROCheading("File:�Catalogue    �Page:�"+STR$(M%)+RIGHT$("00"+STR$~(N%),2))
  150PRINTTAB(0,0);"P";STR$(M%);RIGHT$("00"+STR$~(N%),2)
  160PROCdownload(M%,N%,"CATALOG",0,0,FALSE,TRUE)
  170PROCinterpret
  180IFZ%=0 MODE7:PROCheading("�No files broadcast this week"):GOTO290
  185MODE7:PROCselect
  190FORW%=1TOZ%
  195IFLEFT$(type$(W%),1)<>"Y" GOTO250
  200MODE7:VDU23;8202;0;0;0;
  210PROCheading("File:�"+fname$(W%)+STRING$((12-LEN(fname$(W%)))," ")+"�Length:�"+pages$(W%))
  220PRINTTAB(0,0);"P";mag%(W%);RIGHT$("00"+STR$~(page%(W%)),2)
  230PROCdownload(mag%(W%),page%(W%),fname$(W%),load%(W%),exec%(W%),TRUE,TRUE)
  245type$(W%)="X"+MID$(type$(W%),2)
  250NEXT
  270MODE7:PROCheading("�Files downloaded:")
  280PRINT:FORA%=1TOZ%:IFLEFT$(type$(A%),1)="X" PRINTMID$(type$(A%),2,1)fname$(A%)SPC(19-LEN(fname$(A%)));:NEXT ELSENEXT
  285PRINT':IFERL>0 ANDERR>0 REPORT:PRINT
  290*HOFF
  295*FX4,0
  300PROCreturn_oshwm
  310END
  320:
  330DEFPROCmove_oshwm
  340S%=&5000
  350A%=&B4:X%=S%DIV256:Y%=0:CALL&FFF4
  360ENDPROC
  370:
  380DEFPROCdownload(magazine%,page%,filename$,load%,exec%,save%,reset%)
  390PROCoscli("MAGAZINE "+STR$(magazine%))
  400space?0=24
  410space?1=name MOD256:space?2=name DIV256
  420$name=filename$
  430space!3=load%
  440space!7=exec%
  450space?11=magazine%
  460space?12=page%
  470IFsave%=TRUE space?13=1 ELSE space?13=0
  480IFreset%=TRUE space?14=0 ELSE space?14=1
  490A%=&7A:X%=space MOD256:Y%=space DIV256
  500CALL&FFF1
  510ENDPROC
  520:
  530DEFPROCoscli(text$)
  540$line=text$:X%=line MOD256:Y%=line DIV256
  550CALL&FFF7
  560ENDPROC
  570:
  580DEFPROCheading(fname$)
  600CLS:PRINT:FORQ%=1 TO2:PRINTCHR$132;CHR$157;CHR$141;"�Telesoftware Files Auto Download":NEXT
  620PRINTTAB(1,5)fname$
  630ENDPROC
  640:
  650DEFPROCreturn_oshwm
  660A%=&B4:X%=PAGE DIV256:Y%=0:CALL&FFF4
  670ENDPROC
  680:
  690DEFPROCinterpret
  700sta%=S%:Z%=0
  710sta%=sta%+1+?sta%:sta%=sta%+1+?sta%
  720Z=0:REPEAT
  730REM"�m/c:
  740len%=?sta%
  750FORA%=sta%TOsta%+len%:?A%=(?A%)AND&7F:NEXT
  760T%=?(sta%+len%+1):?(sta%+len%+1)=13:mc$=$(sta%+1):?(sta%+len%+1)=T%
  770sta%=sta%+1+?sta%
  780IFmc$="***" GOTO970
  790REM"�filename:
  800len%=?sta%
  810FORA%=sta%TOsta%+len%:?A%=(?A%)AND&7F
  820IF?A%>&40 ?A%=(?A%)AND&DF
  830NEXT
  835type$(0)=CHR$(?(sta%+1)+&80)
  840T%=?(sta%+len%+1):?(sta%+len%+1)=13:sta$=$(sta%+2):?(sta%+len%+1)=T%
  850sta%=sta%+1+?sta%
  860REM"�File type:
  870len%=?sta%
  880FORA%=sta%TOsta%+len%:?A%=((?A%)AND&7F)AND&DF:NEXT
  890T%=?(sta%+len%+1):?(sta%+len%+1)=13:sta2$=$(sta%+1):?(sta%+len%+1)=T%
  900sta%=sta%+1+?sta%
  910len%=?sta%
  920FORA%=sta%TOsta%+len%:?A%=(?A%)AND&7F:NEXT
  930T%=?(sta%+len%+1):?(sta%+len%+1)=13:sta3$=$(sta%+1):?(sta%+len%+1)=T%
  940sta%=sta%+1+?sta%
  950Z%=Z%+1:type$(Z%)=FNnts+type$(0)+sta2$:fname$(Z%)=sta$:pages$(Z%)=sta3$:load%(Z%)=FNaddr(sta%):exec%(Z%)=FNaddr(sta%+4):mag%(Z%)=?(sta%+8):page%(Z%)=?(sta%+9)
  960sta%=sta%+10
  970UNTILmc$="***"
  980ENDPROC
  990:
 1000DEFFNaddr(st%)
 1010G$=RIGHT$("00"+STR$~(?st%),2)+RIGHT$("00"+STR$~(?(st%+1)),2)+RIGHT$("00"+STR$~(?(st%+2)),2)+RIGHT$("00"+STR$~(?(st%+3)),2)
 1015=EVAL("&"+G$)
 1020DEFFNgetlink
 1030space?0=15:A%=&7A:X%=space MOD256:Y%=space DIV256:CALL&FFF1
 1040IF((space?1)*100)+space?2>999 PROCheading("�Error�- No Catalogue"):GOTO290
 1050=((space?1)*100)+space?2
 1060:
 1070DEFPROCfindcat(O%)
 1080PROCoscli("PAGE "+STR$(O%))
 1090LOCALa%,pn$,row%
 1100*DATA 5000
 1110a%=&5000-42
 1120REPEAT
 1130a%=a%+42
 1140UNTIL(a%?1=27 AND FNdeham(a%?2)=0) ORa%>&5800
 1150IFa%>&5800 M%=0:PROCheading("�Error�-no catalogue"):GOTO290
 1160FORV%=0TO5
 1170D(V%)=27+V%
 1180D(V%)=FNdeham(a%?D(V%))
 1190NEXT
 1200M%=(((D(5) AND12)DIV2)OR(D(3) DIV8))EOR(O%DIV100)
 1210N%=(D(1)*16)+(D(0))
 1220ENDPROC
 1230:
 1240DEFFNdeham(byte%)
 1250space?0=25:space?1=byte%:A%=&7A:X%=space MOD256:Y%=space DIV256:CALL&FFF1
 1260=(space?2)AND&F
 1270:
 1280DEFPROCselect
 1290PROCheading("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"):PRINTTAB(0,4)"�Total number of files ="Z%
 1300VDU28,0,24,39,10:A%=0:REPEAT
 1310A%=A%+1:PROCdsp(A%-1):UNTIL(A%=Z%ORA%=15)
 1320VDU31,35,0:A%=1
 1330REPEAT:A=GET
 1340IFA=&4E ORA=&6E PROCamend("N")
 1350IFA=&59 ORA=&79 PROCamend("Y")
 1360IFA=&8B PROCrup
 1370IFA=&8A PROCrdn
 1380UNTILA=&0D
 1390ENDPROC
 1400:
 1410DEFPROCamend(yn$)
 1420PRINTyn$CHR$8;:type$(A%)=yn$+MID$(type$(A%),2):PROCrdn:ENDPROC
 1430:
 1440DEFPROCdsp(y%)
 1450PRINTTAB(0,y%)MID$(type$(A%),2,1)fname$(A%)TAB(11,y%)MID$(type$(A%),3)TAB(22,y%)pages$(A%)TAB(35,y%)LEFT$(type$(A%),1)CHR$8;:ENDPROC
 1460:
 1470DEFPROCrup
 1480IFA%=1 ENDPROC
 1490IFVPOS=0 VDU11:A%=A%-1:PROCdsp(0):ENDPROC
 1500VDU11:A%=A%-1:ENDPROC
 1510:
 1520DEFPROCrdn
 1530IFA%=Z% ENDPROC
 1540IFVPOS=14 VDU10:A%=A%+1:PROCdsp(14):ENDPROC
 1550VDU10:A%=A%+1:ENDPROC
 3000DEFFNnts:IFsta2$="NOTES" ="N" ELSE ="Y"

��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
Auto_Load.m0
Auto_Load.m1
Auto_Load.m2
Auto_Load.m4
Auto_Load.m5