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