home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tequip.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-28  |  987 b   |  28 lines
  1. Program TEquip;
  2.  
  3. Uses
  4.  
  5.   VEquipu;
  6.  
  7.  
  8. BEGIN
  9.  
  10.   WriteLn;
  11.   WriteLn('TEQUIP; VisionTools VEQUIPu tester; Version 0.5');
  12.   WriteLn;
  13.   WriteLn('Bios Name Byte ............. ', BiosNameByte          );
  14.   WriteLN('Bios Date .................. ', BiosDate              );
  15.   WriteLn('Floppy Installed? .......... ', FloppyPresent         );
  16.   WriteLn('Math Chip Present? ......... ', MathChipPresent       );
  17.   WriteLn('Pointing Device Present? ... ', PointingDevicePresent );
  18.   WriteLn('Number of floppies ......... ', NumFloppies           );
  19.   WriteLn('NumRS232Cards .............. ', NumRS232Cards         );
  20.   WriteLN('Game Port Present? ......... ', GamePortPresent       );
  21.   WriteLn('Serial Printer Present? .... ', SerialPrinterPresent  );
  22.   WriteLn('Internal Modem Present? .... ', InternalModemPresent  );
  23.   WriteLn('Number of printers ......... ', NumPrinters           );
  24.   WriteLn('CPU Type ................... ', GetCPUTypeStr         );
  25.   WriteLn;
  26.  
  27. END.
  28.