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