home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib01.dsk / FREE?.int < prev    next >
Text File  |  2023-02-26  |  279b  |  11 lines
  1. 10 REM  HIMEM:-27392
  2. 30 REM  RUN 100
  3. 100 PRINT "<CTRL-D>MON CIO"
  4. 200 PRINT "<CTRL-D>BLOAD FREE?.OBJ"
  5. 250 CALL 919
  6. 260 PRINT "<CTRL-D>CATALOG"
  7. 300 FREE= PEEK (917)+256* PEEK (918)
  8. 400 PRINT "SECTORS: ";FREE;" FREE, ";
  9. 410 PRINT 496-FREE;" USED"
  10. 420 INPUT "NEXT DISK?",A$:GOTO 250
  11.