home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sampler / 02 / cmos / cmosdemo.pas next >
Encoding:
Pascal/Delphi Source File  |  1988-09-09  |  819 b   |  36 lines
  1. {CMOSDEMO.PAS}
  2. {
  3. Description:  Program to demonstrate the CMOSStuf unit.
  4.  
  5. Author:       Don Taylor
  6. Date:         6/11/88
  7. Last revised: 6/11/88 23:20
  8. Application:  IBM PC/AT and compatible; Turbo Pascal 4.0
  9. }
  10.  
  11.  
  12. PROGRAM CMOSDemo;
  13.  
  14. USES
  15.  Crt, CMOSStuf;
  16.  
  17. VAR
  18.  CMOSRec : CMOSMemRec;
  19.  
  20. BEGIN { CMOSDemo }
  21.  ClrScr;
  22.  GetCMOSMem(CMOSRec);
  23.  IF CMOSError = 0
  24.   THEN BEGIN
  25.         WRITELN('System memory configuration ---------------------');
  26.         WRITELN;
  27.         WRITELN('  Amount of base memory installed is ',
  28.                    CMOSRec.BaseMemory:3, 'K.');
  29.         WRITELN('  Amount of extended memory installed is ',
  30.                    CMOSRec.ExtendedMemory1:3, 'K.')
  31.        END
  32.   ELSE BEGIN
  33.         WRITELN('This machine is not an IBM PC/AT compatible!')
  34.        END
  35. END.  { CMOSDemo }
  36.