home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib31a.dsk / JULY.1987 / FREESPACE.DEMO.bas next >
BASIC Source File  |  2023-02-26  |  749b  |  22 lines
  1. 1  REM  ************************
  2. 2  REM  * FREESPACE.DEMO       *
  3. 3  REM  * BY CHRIS MEYER       *
  4. 4  REM  * COPYRIGHT (C) 1987   *
  5. 5  REM  * BY MICROSPARC, INC.  *
  6. 6  REM  * CONCORD, MA  01742   *
  7. 7  REM  ************************
  8. 10  ONERR  GOTO 150
  9. 20  PRINT  CHR$(4)"BRUN FREESPACER": HOME : INVERSE 
  10. 30  PRINT "FREE SPACE DEMO"
  11. 40  PRINT "BY CHRIS MEYER": PRINT "COPYRIGHT 1987 BY MICROSPARC, INC."
  12. 50  NORMAL : VTAB 5
  13. 60  PRINT "NAME OF VOLUME TO CHECK?"
  14. 70  INPUT "";PR$: IF  LEFT$(PR$,1) < >"/"  THEN PR$ = "/" +PR$
  15. 80  ONERR  GOTO 120
  16. 90  &  SPC( PR$,F): PRINT 
  17. 100  PRINT "THERE ARE ";F;" FREE BLOCKS."
  18. 110  END 
  19. 120  PRINT 
  20. 130  PRINT "INVALID VOLUME NAME."
  21. 140  END 
  22. 150  HOME : VTAB 10: PRINT "COULD NOT FIND THE FILE 'FREESPACER'": END