DEFINITION MODULE TimeDate ; (* Title : TimeDate Author : Gaius Mulley System : UNIX (gm2) Date : Mon Sep 27 20:52:48 1993 Last edit : Mon Sep 27 20:52:48 1993 Description: provides a method for Modula-2 to access the time in seconds and milliseconds. Written to provide compatability with the N.Wirth M2 library. *) EXPORT QUALIFIED Time, GetTime ; TYPE Time = RECORD seconds, millisec: CARDINAL ; END ; (* GetTime - assigns the record, t, with the time in seconds and millisec. *) PROCEDURE GetTime (VAR t: Time) ; END TimeDate.