home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GEARS.ZIP / DISKSTAT.DOC < prev    next >
Encoding:
Text File  |  1980-01-01  |  721 b   |  27 lines
  1. (*****************************************************************************)
  2. (* Unit DiskStat: Disk Status Routines                         DOCUMENTATION *)
  3. (*                                                                           *)
  4. (* Copyright 1988, Escape Technologies                                       *)
  5. (*****************************************************************************)
  6.  
  7. Unit DiskStat;
  8.  
  9. Interface
  10.  
  11. Uses Dos;
  12.  
  13. Const DSDD=360;
  14.       DSSD=320;
  15.       SSDD=180;
  16.       SSSD=160;
  17.       BadDrive=0;
  18.       BadFormat=1;
  19.       DriveA = 1;
  20.       DriveB = 2;
  21.       DriveC = 3;
  22.       DriveD = 4;
  23.       DriveE = 5;
  24.       CurrentDrive = 0;
  25.  
  26. Function DiskType(Drive:Word):Integer;
  27.