(********************************************************************************

Name         : Clock.DEF
Version      : 1.0
Purpose      : TimeStamp for Modula-2 compiler
Authors      : cn/jr/ms/red
Modified     : 12.3.86  19:47  cn
State        : should be ok
Requirements : 

********************************************************************************)

DEFINITION MODULE Clock;

  TYPE
    Time = RECORD
             day:         CARDINAL; (* ??? *)
             minute:      CARDINAL; (* hour*60 + minute *)
             millisecond: CARDINAL; (* second*1000 + millisecond *)
           END;

  PROCEDURE SetTime(t: Time);
  PROCEDURE GetTime(VAR t: Time);

END Clock.