{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.}

var
  drive : char;

{$I regpack.typ}
{$I disktyp.lib}
begin
  Write('Which drive? ');
  Read(drive);
  writeLn;
  case DiskType(drive) of
      0: WriteLn('Invalid drive letter');
      1: WriteLn('Non-standard format');
    160: WriteLn('Single-sided, 8 sectors');
    180: WriteLn('Single-sided, 9 sectors');
    320: WriteLn('Double-sided, 8 sectors');
    360: WriteLn('Double-sided, 9 sectors');
  end;
end.