home *** CD-ROM | disk | FTP | other *** search
/ C++ Games Programming / CPPGAMES.ISO / fgl / fglight / expas.arj / TEMP / 16-02.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-20  |  394b  |  25 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. const
  5.   ESC = 27;
  6.  
  7. var
  8.   start, ticks : longint;
  9.   key, aux     : byte;
  10.  
  11. begin
  12.   fg_initpm;
  13.   start := fg_getclock;
  14.  
  15.   repeat
  16.   begin
  17.     ticks := fg_getclock;
  18.     writeln(ticks,' ticks since midnight');
  19.     writeln(ticks-start,' ticks since start of program.');
  20.     writeln;
  21.     fg_getkey(key,aux);
  22.   end;
  23.   until (key = ESC);
  24. end.
  25.