10DEFFNS="READER"
20MODE0
30PRINT"ADFS Directory Reader By C.J.
Richardson."
40PRINT"Useful if you have a disc ful
l of text files."
50PRINT"This program will *TYPE a who
le ADFS directory."
60PRINT"If the present file is unread
able press ESCAPE to move on to the next
file"
70PRINT"Press shift to scroll text"
80PRINT"Insert an ADFS disc and press
a key."
90REPEATUNTILGET
100OSCLI"ADFS":VDU21:OSCLI".":VDU6
110?&70=0
120VDU14
130PROCass
140L%=-1
150ONERROR IFERR=17:IFL%<>42:IF?&75<>0
ELSE REPORT:PRINTERL:END
160REPEAT:L%=L%+1
170?&70=L%
180CALLA%:IF ?&75<>0 PRINT'$&A01;
190IF?&75=1PRINT" *TYPEing":OSCLI"TYP
E "+$&A01
200IF?&75=2PRINT"=DIRECTORY"''
210UNTILL%>41OR ?&75=0:END
220DEFPROCass:M%=&921
230FORL%=0TO2STEP2
240P%=M%
250[:OPTL%:.A%
260LDY#&20:LDA#0:.B%:STA&900,Y:DEY:BNE
B%:.F% ½ BLANK OUT
270LDA#&A:STA&902:LDA#&0:STA&901 ½ REA
D TO &A00
280LDA#1:STA&905 ½ READ ONE FILE
290LDA&70:STA&909 ½ NEXT FILE TO READ
300LDX#&00:LDY#&09:LDA#08:CLC:JSR&FFD1
½ READ FILES
310BCCok:LDA#0:STA&75:RTS:.ok
320LDY#0:.C%:INY:CPY#11:BEQD%:LDA&A00,
Y:CMP#32:BNEC%:.D%:LDA#13:STA&A00,Y
330LDA#&1:STA&90D:LDA#&A:STA&90E:LDX#&
0D:LDY#&9:LDA#&5:JSR&FFDD ½ IS IT A DIRE
CTORY? A=2=directory
340STA&75:RTS
350]:NEXT:ENDPROC