0 ' DDIR.TDD by Phil Wheeler [71266,125] Based on DFILES.TDD by Don Zeikel. Requires Powr-Dos by Acroatix 30 CLS:LFILESV:PRINT@127,"Press ANY Key When Done":CLEAR256,HIMEM-1292:DEFSTRA-E:DEFINTJ,L:H=HIMEM:E=CHR$(27):ONERRORGOTO60 35 DSKO$0,0,H:CLS:FORL=0TO39:I=H+31*L:IFPEEK(I)=0ORPEEK(I)=170THEN45 38 IFL>35THENPOKE63038,1 40 FORJ=0TO5:PRINTCHR$(PEEK(I+J));:NEXT:J=J+1:PRINTCHR$(PEEK(I+J)+32);:J=J+1:PRINTE"p"CHR$(PEEK(I+J)+32)E"q";:NEXT 45 A=INKEY$:IFA=""THEN45 50 S=79-PEEK(H+1260):CLS:IFS=1THENB=""ELSEB="s" 55 PRINT@133,S"Sector"B" Free":FORI=1TO1000:NEXT 60 POKE63038,0:CLEAR256,H+1292:MENU