Home » CEEFAX disks » telesoftware8.adl » 22-07-88/CATDISC

22-07-88/CATDISC

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 » telesoftware8.adl
Filename: 22-07-88/CATDISC
Read OK:
File size: 0894 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 REM"�Disc Catalogue Analyser.�"
   20 REM"�Rob Anderson Nov. '87�"
   30:
   40 DIM param% 18,data% 517,name$(46),dir%(46)
   50 MODE7
   60 name$=FNselect("Catalogue Analyser")
   70 IF name$<>"ErrorErrorError" PRINT"The filename selected is ";name$ ELSE VDU26:CLS:PRINT"There is an error detected by the"'"catalogue read function."
   80 END
   90:
  100 DEFFNselect(T$)
  110 CLS:A$=CHR$141+CHR$132+CHR$157+CHR$131+T$+"  "+CHR$156:FORA%=0TO1:PRINTTAB(19-(LEN(A$)DIV2),A%)A$:NEXT
  120 FORA%=0TO46:dir%(A%)=0:NEXT
  130 PRINTTAB(1,23)CHR$131"Use cursor keys & RETURN to select."
  140 VDU28,0,21,39,3:CLS:*FX4,1
  150 REM find filing system
  160 A%=0:Y%=0:F%=USR(&FFDA)AND&FF:IFF%=8 numfile%=FNgetADFScat ELSEIFF%=4 numfile%=FNgetDFScat ELSE ="ErrorErrorError"
  170 REPEAT
  180 IFnumfile%=0PRINTCHR$7CHR$131CHR$136"NO FILES !":REPEATUNTILGET: ="ErrorErrorError"
  190 X%=1:Y%=0
  200 FORA%=0TOnumfile%-1
  210 IFF%=8ANDdir%(A%)=2A$=CHR$131ELSEA$=CHR$135
  220 PRINTTAB(X%,Y%);A$;name$(A%);CHR$135:X%=X%+13:IFX%=40X%=1:Y%=Y%+1
  230 NEXT
  240 PRINTTAB(0,0)"]"TAB(13,0)"[";:X%=0:Y%=0:OX%=0:OY%=0
  250 REPEAT
  260 K%=GET
  270 IFK%=136ANDX%>0X%=X%-13 ELSE IFK%=137ANDX%<26ANDX%/13+Y%*3+2<=numfile%X%=X%+13
  280 IFK%=139ANDY%>0Y%=Y%-1 ELSEIFK%=138ANDX%/13+3*Y%+4<=numfile%Y%=Y%+1
  290 IFX%<>OX%OROY%<>Y%PRINTTAB(OX%,OY%)" "TAB(OX%+13,OY%)" ";TAB(X%,Y%)"]"TAB(X%+13,Y%)"[";:OX%=X%:OY%=Y%
  300 UNTILK%=13
  310 A$=name$(X%/13+Y%*3)
  320 IFdir%(X%/13+Y%*3)=2 CLS:OSCLI("DIR "+A$):numfile%=FNgetADFScat:A$=""
  330 UNTILA$<>""
  340 VDU26:CLS:*FX4,0
  350 =A$
  360:
  370 DEFFNgetDFScat
  380 LOCAL dr%,numfile%
  390 A%=6:X%=param%MOD256:Y%=param%DIV256:param%!1=data%:CALL&FFD1:dr%=(data%?1)-48
  400 ?param%=dr%:param%!1=data%:param%?5=3:param%?6=&53:param%?7=0:param%?8=0:param%?9=34
  410 X%=param%MOD256:Y%=param%DIV256:A%=&7F:CALL&FFF1
  420 numfile%=(data%?&105)/8:M%=data%+8
  430 FORA%=1TOnumfile%
  440 name$(A%-1)="":FORB%=0TO6:name$(A%-1)=name$(A%-1)+CHR$((M%?B%)AND127):NEXT
  450 name$(A%-1)=CHR$((M%?B%)AND127)+"."+name$(A%-1):M%=M%+8
  460 NEXT
  470 =numfile%
  480:
  490 DEFFNgetADFScat
  500 LOCAL numfile%
  510 FORA%=param%TOparam%+12:?A%=0:NEXT
  520 FORA%=data%TOdata%+516:?A%=32:NEXT
  530 param%!1=data%:param%?5=47:X%=param%MOD256:Y%=param%DIV256:A%=8:CALL&FFD1
  540 C%=0:numfile%=0
  550 FORA%=data%+1TOdata%+515STEP11:A%?10=13:IF$A%<>STRING$(10," ") name$(C%)=$A%:numfile%=C%+1ELSE name$(C%)=""
  560 C%=C%+1:NEXT
  570 IFnumfile%=0 =0
  580 FORB%=0TOnumfile%-1
  590 $data%=name$(B%):param%?0=data%MOD256:param%?1=data%DIV256:X%=param%MOD256:Y%=param%DIV256:A%=5:dir%(B%)=USR(&FFDD)AND&FF
  600 NEXT
  610 =numfile%

" �"�Disc Catalogue Analyser.�"
 �"�Rob Anderson Nov. '87�"
:
(- � param% 18,data% 517,name$(46),dir%(46)
2 �7
<( name$=�select("Catalogue Analyser")
F� � name$<>"ErrorErrorError" �"The filename selected is ";name$ � �26:�:�"There is an error detected by the"'"catalogue read function."
P �
Z:
d ݤselect(T$)
nI �:A$=�141+�132+�157+�131+T$+"  "+�156:�A%=0�1:�19-(�(A$)�2),A%)A$:�
x �A%=0�46:dir%(A%)=0:�
�5 �1,23)�131"Use cursor keys & RETURN to select."
� �28,0,21,39,3:�:*FX4,1
� � find filing system
�i A%=0:Y%=0:F%=�(&FFDA)�&FF:�F%=8 numfile%=�getADFScat ��F%=4 numfile%=�getDFScat � ="ErrorErrorError"
� �
�? �numfile%=0�7�131�136"NO FILES !":���: ="ErrorErrorError"
� X%=1:Y%=0
� �A%=0�numfile%-1
�$ �F%=8�dir%(A%)=2A$=�131�A$=�135
�; �X%,Y%);A$;name$(A%);�135:X%=X%+13:�X%=40X%=1:Y%=Y%+1
� �
�. �0,0)"]"�13,0)"[";:X%=0:Y%=0:OX%=0:OY%=0
� �
	 K%=�
H �K%=136�X%>0X%=X%-13 � �K%=137�X%<26�X%/13+Y%*3+2<=numfile%X%=X%+13
? �K%=139�Y%>0Y%=Y%-1 ��K%=138�X%/13+3*Y%+4<=numfile%Y%=Y%+1
"X �X%<>OX%�OY%<>Y%�OX%,OY%)" "�OX%+13,OY%)" ";�X%,Y%)"]"�X%+13,Y%)"[";:OX%=X%:OY%=Y%
, �K%=13
6 A$=name$(X%/13+Y%*3)
@B �dir%(X%/13+Y%*3)=2 �:�("DIR "+A$):numfile%=�getADFScat:A$=""
J �A$<>""
T �26:�:*FX4,0
^ =A$
h:
r ݤgetDFScat
| � dr%,numfile%
�L A%=6:X%=param%�256:Y%=param%�256:param%!1=data%:�&FFD1:dr%=(data%?1)-48
�Y ?param%=dr%:param%!1=data%:param%?5=3:param%?6=&53:param%?7=0:param%?8=0:param%?9=34
�. X%=param%�256:Y%=param%�256:A%=&7F:�&FFF1
�' numfile%=(data%?&105)/8:M%=data%+8
� �A%=1�numfile%
�D name$(A%-1)="":�B%=0�6:name$(A%-1)=name$(A%-1)+�((M%?B%)�127):�
�7 name$(A%-1)=�((M%?B%)�127)+"."+name$(A%-1):M%=M%+8
� �
� =numfile%
�:
� ݤgetADFScat
� � numfile%
�! �A%=param%�param%+12:?A%=0:�
! �A%=data%�data%+516:?A%=32:�
G param%!1=data%:param%?5=47:X%=param%�256:Y%=param%�256:A%=8:�&FFD1
 C%=0:numfile%=0
&_ �A%=data%+1�data%+515�11:A%?10=13:�$A%<>�10," ") name$(C%)=$A%:numfile%=C%+1� name$(C%)=""
0 C%=C%+1:�
: �numfile%=0 =0
D �B%=0�numfile%-1
Nr $data%=name$(B%):param%?0=data%�256:param%?1=data%�256:X%=param%�256:Y%=param%�256:A%=5:dir%(B%)=�(&FFDD)�&FF
X �
b =numfile%
�
00000000  0d 00 0a 22 20 f4 22 83  44 69 73 63 20 43 61 74  |..." .".Disc Cat|
00000010  61 6c 6f 67 75 65 20 41  6e 61 6c 79 73 65 72 2e  |alogue Analyser.|
00000020  87 22 0d 00 14 1f 20 f4  22 83 52 6f 62 20 41 6e  |.".... .".Rob An|
00000030  64 65 72 73 6f 6e 20 4e  6f 76 2e 20 27 38 37 87  |derson Nov. '87.|
00000040  22 0d 00 1e 05 3a 0d 00  28 2d 20 de 20 70 61 72  |"....:..(- . par|
00000050  61 6d 25 20 31 38 2c 64  61 74 61 25 20 35 31 37  |am% 18,data% 517|
00000060  2c 6e 61 6d 65 24 28 34  36 29 2c 64 69 72 25 28  |,name$(46),dir%(|
00000070  34 36 29 0d 00 32 07 20  eb 37 0d 00 3c 28 20 6e  |46)..2. .7..<( n|
00000080  61 6d 65 24 3d a4 73 65  6c 65 63 74 28 22 43 61  |ame$=.select("Ca|
00000090  74 61 6c 6f 67 75 65 20  41 6e 61 6c 79 73 65 72  |talogue Analyser|
000000a0  22 29 0d 00 46 8a 20 e7  20 6e 61 6d 65 24 3c 3e  |")..F. . name$<>|
000000b0  22 45 72 72 6f 72 45 72  72 6f 72 45 72 72 6f 72  |"ErrorErrorError|
000000c0  22 20 f1 22 54 68 65 20  66 69 6c 65 6e 61 6d 65  |" ."The filename|
000000d0  20 73 65 6c 65 63 74 65  64 20 69 73 20 22 3b 6e  | selected is ";n|
000000e0  61 6d 65 24 20 8b 20 ef  32 36 3a db 3a f1 22 54  |ame$ . .26:.:."T|
000000f0  68 65 72 65 20 69 73 20  61 6e 20 65 72 72 6f 72  |here is an error|
00000100  20 64 65 74 65 63 74 65  64 20 62 79 20 74 68 65  | detected by the|
00000110  22 27 22 63 61 74 61 6c  6f 67 75 65 20 72 65 61  |"'"catalogue rea|
00000120  64 20 66 75 6e 63 74 69  6f 6e 2e 22 0d 00 50 06  |d function."..P.|
00000130  20 e0 0d 00 5a 05 3a 0d  00 64 11 20 dd a4 73 65  | ...Z.:..d. ..se|
00000140  6c 65 63 74 28 54 24 29  0d 00 6e 49 20 db 3a 41  |lect(T$)..nI .:A|
00000150  24 3d bd 31 34 31 2b bd  31 33 32 2b bd 31 35 37  |$=.141+.132+.157|
00000160  2b bd 31 33 31 2b 54 24  2b 22 20 20 22 2b bd 31  |+.131+T$+"  "+.1|
00000170  35 36 3a e3 41 25 3d 30  b8 31 3a f1 8a 31 39 2d  |56:.A%=0.1:..19-|
00000180  28 a9 28 41 24 29 81 32  29 2c 41 25 29 41 24 3a  |(.(A$).2),A%)A$:|
00000190  ed 0d 00 78 1a 20 e3 41  25 3d 30 b8 34 36 3a 64  |...x. .A%=0.46:d|
000001a0  69 72 25 28 41 25 29 3d  30 3a ed 0d 00 82 35 20  |ir%(A%)=0:....5 |
000001b0  f1 8a 31 2c 32 33 29 bd  31 33 31 22 55 73 65 20  |..1,23).131"Use |
000001c0  63 75 72 73 6f 72 20 6b  65 79 73 20 26 20 52 45  |cursor keys & RE|
000001d0  54 55 52 4e 20 74 6f 20  73 65 6c 65 63 74 2e 22  |TURN to select."|
000001e0  0d 00 8c 1b 20 ef 32 38  2c 30 2c 32 31 2c 33 39  |.... .28,0,21,39|
000001f0  2c 33 3a db 3a 2a 46 58  34 2c 31 0d 00 96 19 20  |,3:.:*FX4,1.... |
00000200  f4 20 66 69 6e 64 20 66  69 6c 69 6e 67 20 73 79  |. find filing sy|
00000210  73 74 65 6d 0d 00 a0 69  20 41 25 3d 30 3a 59 25  |stem...i A%=0:Y%|
00000220  3d 30 3a 46 25 3d ba 28  26 46 46 44 41 29 80 26  |=0:F%=.(&FFDA).&|
00000230  46 46 3a e7 46 25 3d 38  20 6e 75 6d 66 69 6c 65  |FF:.F%=8 numfile|
00000240  25 3d a4 67 65 74 41 44  46 53 63 61 74 20 8b e7  |%=.getADFScat ..|
00000250  46 25 3d 34 20 6e 75 6d  66 69 6c 65 25 3d a4 67  |F%=4 numfile%=.g|
00000260  65 74 44 46 53 63 61 74  20 8b 20 3d 22 45 72 72  |etDFScat . ="Err|
00000270  6f 72 45 72 72 6f 72 45  72 72 6f 72 22 0d 00 aa  |orErrorError"...|
00000280  06 20 f5 0d 00 b4 3f 20  e7 6e 75 6d 66 69 6c 65  |. ....? .numfile|
00000290  25 3d 30 f1 bd 37 bd 31  33 31 bd 31 33 36 22 4e  |%=0..7.131.136"N|
000002a0  4f 20 46 49 4c 45 53 20  21 22 3a f5 fd a5 3a 20  |O FILES !":...: |
000002b0  3d 22 45 72 72 6f 72 45  72 72 6f 72 45 72 72 6f  |="ErrorErrorErro|
000002c0  72 22 0d 00 be 0e 20 58  25 3d 31 3a 59 25 3d 30  |r".... X%=1:Y%=0|
000002d0  0d 00 c8 15 20 e3 41 25  3d 30 b8 6e 75 6d 66 69  |.... .A%=0.numfi|
000002e0  6c 65 25 2d 31 0d 00 d2  24 20 e7 46 25 3d 38 80  |le%-1...$ .F%=8.|
000002f0  64 69 72 25 28 41 25 29  3d 32 41 24 3d bd 31 33  |dir%(A%)=2A$=.13|
00000300  31 8b 41 24 3d bd 31 33  35 0d 00 dc 3b 20 f1 8a  |1.A$=.135...; ..|
00000310  58 25 2c 59 25 29 3b 41  24 3b 6e 61 6d 65 24 28  |X%,Y%);A$;name$(|
00000320  41 25 29 3b bd 31 33 35  3a 58 25 3d 58 25 2b 31  |A%);.135:X%=X%+1|
00000330  33 3a e7 58 25 3d 34 30  58 25 3d 31 3a 59 25 3d  |3:.X%=40X%=1:Y%=|
00000340  59 25 2b 31 0d 00 e6 06  20 ed 0d 00 f0 2e 20 f1  |Y%+1.... ..... .|
00000350  8a 30 2c 30 29 22 5d 22  8a 31 33 2c 30 29 22 5b  |.0,0)"]".13,0)"[|
00000360  22 3b 3a 58 25 3d 30 3a  59 25 3d 30 3a 4f 58 25  |";:X%=0:Y%=0:OX%|
00000370  3d 30 3a 4f 59 25 3d 30  0d 00 fa 06 20 f5 0d 01  |=0:OY%=0.... ...|
00000380  04 09 20 4b 25 3d a5 0d  01 0e 48 20 e7 4b 25 3d  |.. K%=....H .K%=|
00000390  31 33 36 80 58 25 3e 30  58 25 3d 58 25 2d 31 33  |136.X%>0X%=X%-13|
000003a0  20 8b 20 e7 4b 25 3d 31  33 37 80 58 25 3c 32 36  | . .K%=137.X%<26|
000003b0  80 58 25 2f 31 33 2b 59  25 2a 33 2b 32 3c 3d 6e  |.X%/13+Y%*3+2<=n|
000003c0  75 6d 66 69 6c 65 25 58  25 3d 58 25 2b 31 33 0d  |umfile%X%=X%+13.|
000003d0  01 18 3f 20 e7 4b 25 3d  31 33 39 80 59 25 3e 30  |..? .K%=139.Y%>0|
000003e0  59 25 3d 59 25 2d 31 20  8b e7 4b 25 3d 31 33 38  |Y%=Y%-1 ..K%=138|
000003f0  80 58 25 2f 31 33 2b 33  2a 59 25 2b 34 3c 3d 6e  |.X%/13+3*Y%+4<=n|
00000400  75 6d 66 69 6c 65 25 59  25 3d 59 25 2b 31 0d 01  |umfile%Y%=Y%+1..|
00000410  22 58 20 e7 58 25 3c 3e  4f 58 25 84 4f 59 25 3c  |"X .X%<>OX%.OY%<|
00000420  3e 59 25 f1 8a 4f 58 25  2c 4f 59 25 29 22 20 22  |>Y%..OX%,OY%)" "|
00000430  8a 4f 58 25 2b 31 33 2c  4f 59 25 29 22 20 22 3b  |.OX%+13,OY%)" ";|
00000440  8a 58 25 2c 59 25 29 22  5d 22 8a 58 25 2b 31 33  |.X%,Y%)"]".X%+13|
00000450  2c 59 25 29 22 5b 22 3b  3a 4f 58 25 3d 58 25 3a  |,Y%)"[";:OX%=X%:|
00000460  4f 59 25 3d 59 25 0d 01  2c 0b 20 fd 4b 25 3d 31  |OY%=Y%..,. .K%=1|
00000470  33 0d 01 36 19 20 41 24  3d 6e 61 6d 65 24 28 58  |3..6. A$=name$(X|
00000480  25 2f 31 33 2b 59 25 2a  33 29 0d 01 40 42 20 e7  |%/13+Y%*3)..@B .|
00000490  64 69 72 25 28 58 25 2f  31 33 2b 59 25 2a 33 29  |dir%(X%/13+Y%*3)|
000004a0  3d 32 20 db 3a ff 28 22  44 49 52 20 22 2b 41 24  |=2 .:.("DIR "+A$|
000004b0  29 3a 6e 75 6d 66 69 6c  65 25 3d a4 67 65 74 41  |):numfile%=.getA|
000004c0  44 46 53 63 61 74 3a 41  24 3d 22 22 0d 01 4a 0c  |DFScat:A$=""..J.|
000004d0  20 fd 41 24 3c 3e 22 22  0d 01 54 11 20 ef 32 36  | .A$<>""..T. .26|
000004e0  3a db 3a 2a 46 58 34 2c  30 0d 01 5e 08 20 3d 41  |:.:*FX4,0..^. =A|
000004f0  24 0d 01 68 05 3a 0d 01  72 10 20 dd a4 67 65 74  |$..h.:..r. ..get|
00000500  44 46 53 63 61 74 0d 01  7c 13 20 ea 20 64 72 25  |DFScat..|. . dr%|
00000510  2c 6e 75 6d 66 69 6c 65  25 0d 01 86 4c 20 41 25  |,numfile%...L A%|
00000520  3d 36 3a 58 25 3d 70 61  72 61 6d 25 83 32 35 36  |=6:X%=param%.256|
00000530  3a 59 25 3d 70 61 72 61  6d 25 81 32 35 36 3a 70  |:Y%=param%.256:p|
00000540  61 72 61 6d 25 21 31 3d  64 61 74 61 25 3a d6 26  |aram%!1=data%:.&|
00000550  46 46 44 31 3a 64 72 25  3d 28 64 61 74 61 25 3f  |FFD1:dr%=(data%?|
00000560  31 29 2d 34 38 0d 01 90  59 20 3f 70 61 72 61 6d  |1)-48...Y ?param|
00000570  25 3d 64 72 25 3a 70 61  72 61 6d 25 21 31 3d 64  |%=dr%:param%!1=d|
00000580  61 74 61 25 3a 70 61 72  61 6d 25 3f 35 3d 33 3a  |ata%:param%?5=3:|
00000590  70 61 72 61 6d 25 3f 36  3d 26 35 33 3a 70 61 72  |param%?6=&53:par|
000005a0  61 6d 25 3f 37 3d 30 3a  70 61 72 61 6d 25 3f 38  |am%?7=0:param%?8|
000005b0  3d 30 3a 70 61 72 61 6d  25 3f 39 3d 33 34 0d 01  |=0:param%?9=34..|
000005c0  9a 2e 20 58 25 3d 70 61  72 61 6d 25 83 32 35 36  |.. X%=param%.256|
000005d0  3a 59 25 3d 70 61 72 61  6d 25 81 32 35 36 3a 41  |:Y%=param%.256:A|
000005e0  25 3d 26 37 46 3a d6 26  46 46 46 31 0d 01 a4 27  |%=&7F:.&FFF1...'|
000005f0  20 6e 75 6d 66 69 6c 65  25 3d 28 64 61 74 61 25  | numfile%=(data%|
00000600  3f 26 31 30 35 29 2f 38  3a 4d 25 3d 64 61 74 61  |?&105)/8:M%=data|
00000610  25 2b 38 0d 01 ae 13 20  e3 41 25 3d 31 b8 6e 75  |%+8.... .A%=1.nu|
00000620  6d 66 69 6c 65 25 0d 01  b8 44 20 6e 61 6d 65 24  |mfile%...D name$|
00000630  28 41 25 2d 31 29 3d 22  22 3a e3 42 25 3d 30 b8  |(A%-1)="":.B%=0.|
00000640  36 3a 6e 61 6d 65 24 28  41 25 2d 31 29 3d 6e 61  |6:name$(A%-1)=na|
00000650  6d 65 24 28 41 25 2d 31  29 2b bd 28 28 4d 25 3f  |me$(A%-1)+.((M%?|
00000660  42 25 29 80 31 32 37 29  3a ed 0d 01 c2 37 20 6e  |B%).127):....7 n|
00000670  61 6d 65 24 28 41 25 2d  31 29 3d bd 28 28 4d 25  |ame$(A%-1)=.((M%|
00000680  3f 42 25 29 80 31 32 37  29 2b 22 2e 22 2b 6e 61  |?B%).127)+"."+na|
00000690  6d 65 24 28 41 25 2d 31  29 3a 4d 25 3d 4d 25 2b  |me$(A%-1):M%=M%+|
000006a0  38 0d 01 cc 06 20 ed 0d  01 d6 0e 20 3d 6e 75 6d  |8.... ..... =num|
000006b0  66 69 6c 65 25 0d 01 e0  05 3a 0d 01 ea 11 20 dd  |file%....:.... .|
000006c0  a4 67 65 74 41 44 46 53  63 61 74 0d 01 f4 0f 20  |.getADFScat.... |
000006d0  ea 20 6e 75 6d 66 69 6c  65 25 0d 01 fe 21 20 e3  |. numfile%...! .|
000006e0  41 25 3d 70 61 72 61 6d  25 b8 70 61 72 61 6d 25  |A%=param%.param%|
000006f0  2b 31 32 3a 3f 41 25 3d  30 3a ed 0d 02 08 21 20  |+12:?A%=0:....! |
00000700  e3 41 25 3d 64 61 74 61  25 b8 64 61 74 61 25 2b  |.A%=data%.data%+|
00000710  35 31 36 3a 3f 41 25 3d  33 32 3a ed 0d 02 12 47  |516:?A%=32:....G|
00000720  20 70 61 72 61 6d 25 21  31 3d 64 61 74 61 25 3a  | param%!1=data%:|
00000730  70 61 72 61 6d 25 3f 35  3d 34 37 3a 58 25 3d 70  |param%?5=47:X%=p|
00000740  61 72 61 6d 25 83 32 35  36 3a 59 25 3d 70 61 72  |aram%.256:Y%=par|
00000750  61 6d 25 81 32 35 36 3a  41 25 3d 38 3a d6 26 46  |am%.256:A%=8:.&F|
00000760  46 44 31 0d 02 1c 14 20  43 25 3d 30 3a 6e 75 6d  |FD1.... C%=0:num|
00000770  66 69 6c 65 25 3d 30 0d  02 26 5f 20 e3 41 25 3d  |file%=0..&_ .A%=|
00000780  64 61 74 61 25 2b 31 b8  64 61 74 61 25 2b 35 31  |data%+1.data%+51|
00000790  35 88 31 31 3a 41 25 3f  31 30 3d 31 33 3a e7 24  |5.11:A%?10=13:.$|
000007a0  41 25 3c 3e c4 31 30 2c  22 20 22 29 20 6e 61 6d  |A%<>.10," ") nam|
000007b0  65 24 28 43 25 29 3d 24  41 25 3a 6e 75 6d 66 69  |e$(C%)=$A%:numfi|
000007c0  6c 65 25 3d 43 25 2b 31  8b 20 6e 61 6d 65 24 28  |le%=C%+1. name$(|
000007d0  43 25 29 3d 22 22 0d 02  30 0e 20 43 25 3d 43 25  |C%)=""..0. C%=C%|
000007e0  2b 31 3a ed 0d 02 3a 13  20 e7 6e 75 6d 66 69 6c  |+1:...:. .numfil|
000007f0  65 25 3d 30 20 3d 30 0d  02 44 15 20 e3 42 25 3d  |e%=0 =0..D. .B%=|
00000800  30 b8 6e 75 6d 66 69 6c  65 25 2d 31 0d 02 4e 72  |0.numfile%-1..Nr|
00000810  20 24 64 61 74 61 25 3d  6e 61 6d 65 24 28 42 25  | $data%=name$(B%|
00000820  29 3a 70 61 72 61 6d 25  3f 30 3d 64 61 74 61 25  |):param%?0=data%|
00000830  83 32 35 36 3a 70 61 72  61 6d 25 3f 31 3d 64 61  |.256:param%?1=da|
00000840  74 61 25 81 32 35 36 3a  58 25 3d 70 61 72 61 6d  |ta%.256:X%=param|
00000850  25 83 32 35 36 3a 59 25  3d 70 61 72 61 6d 25 81  |%.256:Y%=param%.|
00000860  32 35 36 3a 41 25 3d 35  3a 64 69 72 25 28 42 25  |256:A%=5:dir%(B%|
00000870  29 3d ba 28 26 46 46 44  44 29 80 26 46 46 0d 02  |)=.(&FFDD).&FF..|
00000880  58 06 20 ed 0d 02 62 0e  20 3d 6e 75 6d 66 69 6c  |X. ...b. =numfil|
00000890  65 25 0d ff                                       |e%..|
00000894
22-07-88/CATDISC.m0
22-07-88/CATDISC.m1
22-07-88/CATDISC.m2
22-07-88/CATDISC.m4
22-07-88/CATDISC.m5