GETTIM

Portability Subroutine: Returns the time.

Module

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).

All arguments must be of the same integer kind, that is, all must be INTEGER(2) or all must be INTEGER(4).

If INTEGER(2) arguments are passed, you must specify USE IFPORT.

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS DLL LIB

See the example in GETDAT.