Portability Subroutine: Returns the time.
USE IFPORT
CALL GETTIM (ihr, imin, isec, i100th)
ihr |
(Output) INTEGER(4) or INTEGER(2). Hour (0-23). |
imin |
(Output) INTEGER(4) or INTEGER(2). Minute (0-59). |
isec |
(Output) INTEGER(4) or INTEGER(2). Second (0-59). |
i100th |
(Output) INTEGER(4) or INTEGER(2). Hundredths of a second (0-99). |
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIB
See the example in GETDAT.