Паскаль / do11 / tmtp390d / SAMPLES / ZENTIMER / Lztest

(***********************************************)
(* *)
(* Demo Program for ZenTimer Unit *)
(* Copyright (c) 1997 by TMT Development Corp. *)
(* Author: Vadim Bodrov, TMT Development Corp. *)
(* *)
(* Targets: *)
(* MS-DOS 32-bit protected mode *)
(* OS/2 console application *)
(* WIN32 console application *)
(* *)
(***********************************************)

{$ifndef __CON__}
This program must be compiled for MS-DOS, OS/2 or Win32 console mode
{$endif}

program LZTest;

uses ZenTimer;

function lu06(val: Longint): String;
var
i: Longint;
s: String;
begin
Str(val:6,s);
for i := 1 to 6 do if s[i] = ' ' then
s[i] := '0';
lu06 := s;
end;

procedure ReportTime(count: Longint);
var
secs: Longint;
begin
secs := count div 1000000;
count := count - secs * 1000000;
Writeln('Time taken: ', secs, '.', lu06(count), ' seconds');
end;

var
i, j, a: DWORD;

begin
LZTimerOn;
for j := 0 to 9 do
for i := 0 to 19999 do
a := i;
LZTimerOff;
ReportTime(LZTimerCount);
end.