(************************************************************************
*                                                                       *
*                  D E F I N I T I O N   M O D U L                      *
*                                                                       *
*    Projekt     :   Modula Einpass Compiler  (m1pc)                    *
*    Hauptmodul  :                                                      *
*    Modul       :   Clock                                              *
*    Beginn      :   15.02.87                                           *
*                                                                       *
*    Bearbeitung                                                        *
*    Freigegeben     <----                                              *
*                                                                       *
************************************************************************)


DEFINITION MODULE Clock;  (* W. Heiz, 23-Dec-85 / 23-Dec-85 *)

  TYPE

    Time = RECORD
             day:         CARDINAL; (* ((year-1900)*20B + month)*40B + day *)
             minute:      CARDINAL; (* hour*60 + minute *)
             millisecond: CARDINAL; (* second*1000 + millisecond *)
           END;

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

END Clock.