home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol073 / maptest.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  349 b   |  14 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.