home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / DISKSTAT.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  2.3 KB  |  58 lines
  1. * Program.: DISKSTAT.PRG
  2. * Author..: Kelly Mc Tiernan
  3. * Date....: 1983
  4. * Notice..: Copyright 1983, Kelly Mc Tiernan, All Rights Reserved.
  5. * Version.: dBASE II, version 2.4
  6. * Notes...: Disk drive status routine.
  7. *
  8. *    IN: drive-C-1       Disk drive letter
  9. *   OUT: storage-N-10    Number of bytes remaining on disk
  10. *        is:error-L-1    Validation flag
  11. *
  12. STORE T TO is:error 
  13. * ---Parameter checking.
  14. STORE !(drive) TO drive
  15. IF LEN(drive) > 1 .OR. drive < "A" .OR. drive > "P"
  16.    RETURN
  17. ENDIF
  18. * -----------0---1---2---3---4---5---6---7---8---9
  19. POKE 56832,  6, 30, 83,177, 25,205,224, 46,162,203,;
  20.            222, 91, 83,138, 87,  1,128,234, 65,128,;
  21.            250, 16,119,  4,177, 14,205
  22. POKE 56859,224,177, 31,205,224, 38,139,119,  2,129,;
  23.            230,255,  0,131,238,  3,209,230, 38,139,;
  24.             71,  5,187,189,222,  3,243
  25. POKE 56886, 30,  7,191,199,222,252,165,177,  3,211,;
  26.            232,  5,  2,  0,171,177, 27,205,224, 46,;
  27.            139, 14,201,222, 75,184,  0
  28. * -----------0---1---2---3---4---5---6---7---8---9
  29. POKE 56913,  0, 81, 89, 67, 73,227, 26, 38,128, 63,;
  30.            255,117,  3,233,243,255, 81,185,  0,  1,;
  31.            209,233,116,234, 38,133, 15
  32. POKE 56940,117,247, 64,233,243,255, 45,  2,  0, 46,;
  33.            139, 14,199,222,247,225,190,204,222, 30,;
  34.              7, 91, 83,139,251, 71,139
  35. POKE 56967,216,185,  9,  0,176,  0, 43, 28, 70, 70,;
  36.             27, 20,114,  7,254,192, 78, 78,233,241,;
  37.            255, 78, 78,  3, 28, 70, 70
  38. POKE 56994, 19, 20,  4, 48,170, 70, 70,226,224,138,;
  39.            195,  4, 48,170, 46,138, 22,203,222,177,;
  40.             14,205,224, 91, 31,  7,195
  41. * -----------0---1---2---3---4---5---6---7---8---9
  42. POKE 57021,  0,  4,  0,  8,  0, 16,  0, 32,  0, 64
  43. POKE 57036,  0,202,154, 54,  0,225,245,  5,128,150,;
  44.            152,  0, 64, 66, 15,  0,160,134,  1,  0,;
  45.             16, 39,  0,  0,232,  3,  0
  46. POKE 57063,  0,100,  0,  0,  0, 10,  0,  0,  0
  47. * -----------0---1---2---3---4---5---6---7---8---9
  48. STORE !(drive)+"000000000" TO t:storage
  49. SET CALL TO  56832
  50. CALL t:storage
  51. STORE ( t:storage = "E" ) TO is:error
  52. IF .NOT. is:error
  53.    STORE VAL(t:storage) TO storage
  54. ENDIF
  55. RELEASE t:storage
  56. RETURN
  57. * EOF: DISKSTAT.PRG
  58.