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.