home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / dirutl / dirr.arc / DIRR4.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-01-01  |  637 b   |  18 lines
  1. 10 REM Directory File Space Used
  2. 20 SHELL"dir > dirr.rag"
  3. 30 OPEN "dirr.rag" FOR INPUT AS #1
  4. 40 LINE INPUT #1,A$
  5. 50 LINE INPUT #1,B$
  6. 55 LINE INPUT #1,C$
  7. 57 LINE INPUT #1,D$
  8. 60 PRINT A$:PRINT B$:PRINT C$
  9. 70 PRINT D$:LINE INPUT #1,D$:IF LEFT$(D$,12)="DIRR     RAG" THEN LINE INPUT #1,D$
  10. 75 IF MID$(D$,14,5)="<DIR>" THEN 70
  11. 80 IF LEFT$(D$,1)=" " THEN 92
  12. 90 CNT=CNT+1:SPA=SPA+VAL(MID$(D$,14,8)):GOTO 70
  13. 92 PRINT USING "    ##### File(s) ";VAL(D$)-1;
  14. 93 R$=RIGHT$(D$,LEN(D$)-18):PRINT USING " ######## bytes free";VAL(R$)+4096
  15. 100 PRINT USING"                   ######## bytes used";SPA
  16. 110 CLOSE #1
  17. 120 SHELL"del dirr.rag"
  18.