home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG055.ARC / MAPTEST.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  384b  |  16 lines
  1. 100 DEFINT A-Z
  2. 110 PRINT
  3. 120 PRINT "TEST OF DISK SPACE ROUTINE"
  4. 130 PRINT
  5. 140 INPUT "IDENTIFIER OF DRIVE TO REPORT ON (A/B/C/D) :";DRIVE$
  6. 150 PRINT 
  7. 160 PRINT "DRIVE TO BE REPORTED ON WILL BE ";DRIVE$
  8. 170 PRINT
  9. 180 A=0
  10. 190 B=ASC(DRIVE$)
  11. 200 CALL MAP(A,B)
  12. 210 PRINT "THE NUMBER OF KBYTES REMAINING ON DRIVE ";DRIVE$;" IS ";A;"K"
  13. 220 END
  14.  A=0
  15. 190 B=ASC(DRIVE$)
  16. 200 CALL