home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tjock / tot / demo / demsy1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  2.4 KB  |  81 lines
  1. Program DemoSystemOne;
  2. {DEMSY1}
  3.  
  4. USES DOS,CRT, TOTSYS;
  5.  
  6. var
  7.    Equip: EquipObj;
  8.    Mem: MemObj;
  9.    OS: OSObj;
  10.    Lines: byte;
  11. begin
  12.   ClrScr;
  13.   Monitor^.SetCondensed;
  14.   if Monitor^.ColorOn then
  15.      writeln('This system is color')
  16.   else
  17.      writeln('This system is monochrome');
  18.   with Equip do
  19.   begin
  20.      Init;
  21.      Writeln('Machine ID: ',ComputerID);
  22.      Writeln('Parallel Ports: ',ParallelPorts);
  23.      Writeln('Serial Ports: ',SerialPorts);
  24.      Writeln('Floppy Drives: ',Floppydrives);
  25.      Writeln('ROM date: ',RomDate);
  26.      Writeln('Game Adapter: ',GameAdapter);
  27.      Writeln('Serial printer: ',Serialprinter);
  28.      Writeln('Math Coprocessor: ',MathChip);
  29.      Writeln;
  30.   end;
  31.  
  32.   with Mem do
  33.   begin
  34.      Init;
  35.      Writeln('Base memory: ',Basememory,'k');
  36.      Writeln('Avail Extended memory: ',ExtMemAvail,'k');
  37.      if EMMInstalled then
  38.      begin
  39.         Writeln('Total Expanded memory: ',MaxExpMem,'k');
  40.         Writeln('Avail Expanded memory: ',ExpMemAvail,'k');
  41.         Writeln('Expanded memory manager version: '+EMMversion);
  42.      end
  43.      else
  44.         Writeln('Expanded memory not installed: ');
  45.      writeln;
  46.   end;
  47.  
  48.   with OS do
  49.   begin
  50.      Init;
  51.      Writeln('Operating System Version: '+OSversion);
  52.      Writeln('Country Code: ',Country);
  53.      write('Currency String: ',Currency,' ');
  54.      case CurrencyFmt of
  55.         0: writeln('(String leads currency, no space)');
  56.         1: writeln('(String follows currency, no space)');
  57.         2: writeln('(String leads currency, one space)');
  58.         3: writeln('(String follows currency, one space)');
  59.         4: writeln('(String replaces decimal separator)');
  60.      end; {case}
  61.      writeln('Currency Decimal Places: ',CurrencyDecPlaces);
  62.      write('Thousands Separator: ','''',ThousandsSep,'''');
  63.      writeln(' Decimal Separator: ','''',DecimalSep,'''');
  64.      case DateFmt of
  65.         USA: writeln('Date Format: MM DD YY');
  66.         Europe: writeln('Date Format: DD MM YY');
  67.         Japan: writeln('Date Format: YY MM DD');
  68.      end; {case}
  69.      write('Date separator: ','''',DateSep,'''');
  70.      writeln(' Time separator: ','''',TimeSep,'''');
  71.      if TimeFmt = 0 then
  72.         writeln('Time is displayed on a 12 hour clock')
  73.      else
  74.         writeln('Time is displayed on a 24 hour clock');
  75.   end;
  76.   write('                            press any key ...');
  77.   Repeat until keypressed;
  78.   if Lines > 25 then
  79.      Monitor^.Set25;
  80. end.
  81.