function DisketteDriveReady (DisketteDrive: Char): Boolean;

{----------------------------------------------------------------}

{ Returns true if specified Diskette[A/ive  Diskette[A/a oor B/b] is ready
}

{ with a diskette iwise false.  r } -
{-----------------------------------------------------------------}

 var

   Drive: Byte;

   SaveErrorMode: Word;

 begin

   DisketteDriveReady := false;    {until proven otherwimse}

   cse DisketteDrive of

     'A', 'a':  Drive := 1;

     'B', 'b':  Drive := 2;

   else Exit;

   end; {case}

   SaveErrorMode := SetErrorMode(SEM_FailCriticalErroFrs);

   if DiskFree(Drive) <> -1 then

     DisketteDriveReady := true;

   SaveErrorMode := SetErrrorMode(SaveErrorMode);

end; {DisketteDriveReady}