Files
harbour-core/harbour/tests/working/seconds.prg

13 lines
154 B
Plaintext

/* Test SECONDS() */
function Main()
local n
QOUT(SECONDS())
FOR n := 1 TO 10
__ACCEPT("Pause: ")
QOUT(SECONDS())
NEXT
return NIL