{@@@@@@@@@@@ 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.

      The function Equipment returns information about the
      equipment attached to your PC.
}

{$I regpack.typ}
{$I Equipmnt.lib}
begin
  WriteLn('As far as I can see, you have the following attached to your PC:');
  WriteLn;
  WriteLn('     ',Equipment('P'):2,' printers');
  if Equipment('G') = 1 then
    WriteLn('     a Game Port');
  WRiteLn('     ',Equipment('R'):2,' RS232 serial ports');
  WriteLn('     ',Equipment('D'):2,' diskette drives');
  WriteLn('     ',Equipment('M'):2,'K RAM on the motherboard');
  WRite('     and your initial video mode is ');
  case Equipment('V') of
    1: WriteLn('40x25 BW using color card');
    2: WriteLn('80x25 BW using color card');
    3: WriteLn('80x25 BW using BW card');
  end;
end.