uses hjwincrt;
var
h,m,s,ms:word;
time1,time2:real;
x:longint;
begin
gettime(h,m,s,ms);
time1:=h*3600+m*60+s+s/100;
for x:=1 to 100000000 do;
gettime(h,m,s,ms);
time2:=h*3600+m*60+s+s/100; {this gives the change in time}
bkcolorRGB(0,0,250); {blue background, red text}
textcolorRGB(250,0,0); {the values must be 0-255}
writeln(time2-time1);
readln;
end.
this is for pascal for windows, but dos should be somewhat similar
