" �"�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