home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASWIZ13.ZIP / EQUIPMT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-11-14  |  2.2 KB  |  99 lines
  1. { This is a demonstration of the equipment routines
  2.   provided by the Pascal Wizard's Library }
  3.  
  4.  
  5.  
  6. PROGRAM Equipmt;
  7.  
  8. USES
  9.    Equipment, Mouse;
  10.  
  11. VAR
  12.    Long1, Long2: LongInt;    { generic variable names for this simple demo }
  13.    Int1, Int2: Integer;
  14.    Bool1: Boolean;
  15.  
  16. BEGIN
  17.    WriteLn('EQUIPMT  Demo for the PasWiz Library equipment unit');
  18.    WriteLn;
  19.  
  20.    Write('CPU type: ');
  21.    CASE Processor OF
  22.       0: WriteLn('NEC V20');
  23.       1: WriteLn('8088 or 8086');
  24.       2: WriteLn('80186');
  25.       3: WriteLn('80286');
  26.       4: WriteLn('80386');
  27.       5: WriteLn('80486');
  28.       ELSE WriteLn('Unknown');
  29.    END;
  30.    WriteLn;
  31.  
  32.    WriteLn('Total extended memory: ', AllExtMem, ' Kb');
  33.    WriteLn('Current extended mem : ', GetExtM, ' Kb');
  34.    GetXMSm(Long1, Long2);
  35.    WriteLn('Available XMS memory : ', Long2, ' Kb');
  36.    WriteLn;
  37.    GetEMSm(Int1, Int2);
  38.    WriteLn('Total EMS memory : ', Int1 * 16, ' Kb');
  39.    WriteLn('Available EMS mem: ', Int2 * 16, ' Kb');
  40.    WriteLn;
  41.  
  42.    IF EnhKbd THEN
  43.       WriteLn('Enhanced (101-key) keyboard')
  44.    ELSE
  45.       WriteLn('Old-style keyboard');
  46.    WriteLn;
  47.  
  48.    FloppyType(Int1, Int2);
  49.    Write('Drive A: ');
  50.    CASE Int1 OF
  51.       0: WriteLn('doesn''t exist');
  52.       1: WriteLn('360K');
  53.       2: WriteLn('1.2M');
  54.       3: WriteLn('720K');
  55.       4: WriteLn('1.44M');
  56.       ELSE WriteLn('unknown type');
  57.    END;
  58.    Write('Drive B: ');
  59.    CASE Int2 OF
  60.       0: WriteLn('doesn''t exist');
  61.       1: WriteLn('360K');
  62.       2: WriteLn('1.2M');
  63.       3: WriteLn('720K');
  64.       4: WriteLn('1.44M');
  65.       ELSE WriteLn('unknown type');
  66.    END;
  67.    IF CDROM > 0 THEN
  68.       WriteLn('CD-ROM attached');
  69.    WriteLn;
  70.  
  71.    GetDisplay(Int1, Bool1);
  72.    Write('Display: ');
  73.    IF Bool1 THEN
  74.       Write('Mono ')
  75.    ELSE
  76.       Write('Color ');
  77.    CASE Int1 OF
  78.       1: WriteLn('MDA');
  79.       2: WriteLn('Hercules');
  80.       3: WriteLn('CGA');
  81.       4: WriteLn('EGA');
  82.       5: WriteLn('MCGA');
  83.       6: WriteLn('VGA');
  84.       ELSE WriteLn('Unknown display type');
  85.    END;
  86.    WriteLn;
  87.  
  88.    WriteLn('COM ports: ', CommPorts);
  89.    WriteLn('LPT ports: ', PrtPorts);
  90.    WriteLn;
  91.  
  92.    Int1 := Mouse.Init;
  93.    IF Int1 > 0 THEN
  94.       WriteLn(Int1, '-button mouse')
  95.    ELSE
  96.       WriteLn('No mouse');
  97.  
  98. END.
  99.