16 lines
401 B
Plaintext
16 lines
401 B
Plaintext
declare (start_time, finish_time) float (18);
|
|
|
|
start_time = secs();
|
|
|
|
do i = 1 to 10000000;
|
|
/* something to be repeated goes here. */
|
|
end;
|
|
finish_time = secs();
|
|
|
|
put skip edit ('elapsed time=', finish_time - start_time, ' seconds')
|
|
(A, F(10,3), A);
|
|
/* gives the result to thousandths of a second. */
|
|
|
|
/* Note: using the SECS function takes into account the clock */
|
|
/* going past midnight. */
|