Home » CEEFAX disks » telesoftware14.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 » telesoftware14.adl
Filename: Auto_Load
Read OK:
File size: 1093 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 3 duplicate copies of this file in the archive:

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%,"CAT",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%,"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 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 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
Auto_Load.m0
Auto_Load.m1
Auto_Load.m2
Auto_Load.m4
Auto_Load.m5