[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]

    Program DriveID;
    Uses
      Dos;
    Const
      First : Boolean = True;
    Var
      Count : Integer;
    begin
      Write('You have the following Drives: ');
      For Count := 3 to 26 do
      if DiskSize(Count) > 0 then
      begin
        if not First then
          Write(', ');
        First := False;
        Write(UpCase(Chr(ord('a') - 1 + Count)),':')
      end;
      WriteLn;
    end.

[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]