<*+ CSTDLIB *> <*- NOHEADER *> <*+ M2EXTENSIONS *> DEFINITION MODULE ["C"] timehires; TYPE TIMEHR=RECORD sec, nsec:CARDINAL; END; PROCEDURE gettime(VAR secns:TIMEHR); END timehires.