home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 10 / dfreedem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-07-30  |  283 b   |  14 lines
  1. PROGRAM DiskFrei;
  2.  
  3. (*$I DFREECPM.PAS *)
  4.  
  5. VAR  DriveSpec : CHAR;
  6.  
  7. BEGIN
  8.   REPEAT
  9.     Write ('Drive (Q beendet) ? ');  ReadLn(DriveSpec);
  10.     IF NOT (DriveSpec IN ['Q','q']) THEN
  11.       WriteLn(DiskFree(DriveSpec):10:0, ' Bytes frei');
  12.   UNTIL DriveSpec IN ['Q','q'];
  13. END.
  14.