home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / GETSP1.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  1.0 KB  |  32 lines
  1. 50 KEY OFF
  2. 60 DEF SEG
  3. 70 SUBRT$=STRING$(244,32)
  4. 80 SUBLC%=VARPTR(SUBRT$)
  5. 90 GOSUB 420
  6. 100 BLOAD "GETSPACE",GETSPAC%
  7. 140 RETSPACE$=STRING$(8,32)
  8. 150 CLS
  9. 190 LOCATE 1,17
  10. 200 PRINT "* * *  DEMONSTRATION GET SPACE SUBROUTINE  * * * "
  11. 210 LOCATE 3,10,1
  12. 220 PRINT "SPECIFY DRIVE LETTER FOR GETSPACE INQUIRY :";
  13. 230 GOSUB 480: DRV$=KY$: PRINT DRV$
  14. 270 LOCATE ,,0: GOSUB 420
  15. 280 CALL ABSOLUTE(DRV$,RETSPACE$,GETSPAC%)
  16. 320 LOCATE 5,10
  17. 330 IF RETSPACE$<> STRING$(8,32) THEN 350
  18. 340 SOUND 50,7: PRINT "INVALID DRIVE LETTER FOR SYSTEM SPECIFIED!": GOTO 380
  19. 350 RETSPC# = VAL(RETSPACE$)
  20. 360 PRINT "DISK ON DRIVE"DRV$":HAS "RETSPC#" BYTES FREE"
  21. 370 BEEP: PRINT
  22. 380 PRINT: PRINT "PRESS SPACE BAR TO CONTINUE OR (S) TO STOP "
  23. 390 GOSUB 480: CN$=KY$
  24. 400 IF CN$="S" OR CN$="s" THEN END
  25. 410 GOTO 150
  26. 420 ' RETRIEVE LOCATION OF SUBROUTINE
  27. 450 GETSPAC% = PEEK(SUBLC% + 2) + PEEK(SUBLC%+3) * 256
  28. 460 RETURN
  29. 480 ' KEYIN ROUTINE
  30. 500 KY$=INKEY$: IF KY$="" THEN 500
  31. 510 RETURN
  32. C% = PEEK(SUBLC% + 2) + PEEK(SUBLC%+3) *