home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 16-03.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  551b  |  29 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.    i              : integer;
  6.    units_per_tick : integer;
  7.    seconds        : integer;
  8.    key, aux       : byte;
  9.  
  10. begin
  11.   fg_initpm;
  12.   seconds := 0;
  13.   writeln('Benchmarking system speed...');
  14.   units_per_tick := fg_measure;
  15.   writeln('Benchmark completed.');
  16.  
  17.   fg_intkey(key,aux);
  18.  
  19.   repeat
  20.   begin
  21.     for i := 0 to 90 do
  22.       fg_stall(units_per_tick);
  23.     inc(seconds,5);
  24.     writeln(seconds,' seconds have elapsed.');
  25.     fg_intkey(key,aux);
  26.   end;
  27.   until (key+aux > 0);
  28. end.
  29.