home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / drives.swg / 0007_DRIVES2.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  351 b   |  20 lines
  1. Program DriveID;
  2. Uses
  3.   Dos;
  4. Const
  5.   First : Boolean = True;
  6. Var
  7.   Count : Integer;
  8. begin
  9.   Write('You have the following Drives: ');
  10.   For Count := 3 to 26 do
  11.   if DiskSize(Count) > 0 then
  12.   begin
  13.     if not First then
  14.       Write(', ');
  15.     First := False;
  16.     Write(UpCase(Chr(ord('a') - 1 + Count)),':')
  17.   end;
  18.   WriteLn;
  19. end.
  20.