LFILES.BA works with POWR-DISK and TDD2. Shows 40 files on screen at once
without filesize info. Shows how many files you have on disk, how many
empty filename slots you have, the number of free sectors on disk and
how many bytes that is. Exits to basic after running.
-------------------
0 'LFILES.BA by Harvey Chrisley
1 L$="ˆ.DO":GOSUB5:ONERRORGOTO4:LFILESTOL$:OPENL$FORINPUTAS1:CLS
2 INPUT#1,N$:IFINSTR(N$,".")<>0THENPRINTMID$(N$,1,9);"é";:F=F+1:IFNOTEOF(1)THEN2
3 FORX=1TO40-F:PRINT"ññññññññ é";:NEXT:PRINTSTRING$(39,"ç");"á";:CLOSE:KILLL$:PRINTF;"Files,";1280*VAL(MID$(N$,1,3));"bytes ";N$:LINE(0,97)-(239,97):PRINT@520,;:END
4 BEEP:PRINT@81,"éNot ready":FORX=1TO500:NEXT:RUN
5 PRINT@41,"ëçççççççççì":PRINT@81,"é Working ê":PRINT@121,"íèèèèèèèèèî":RETURN