Для проверки secs:
testsecs: proc options (main);
/* Iron Spring does not support builtin function sces */
dcl (secs, sin) builtin, sysprint file output print, i fixed, x float,
start float bin(53);
start = secs();
x = 5.0e0;
do i = 1, 10000;
x = sin(i*x);
end;
put list (‘time: ‘, decimal(secs()-start), ‘ seconds’);
end testsecs;