DEFINITION MODULE Clock;                      (* LG 23.04.80 *)

  EXPORT QUALIFIED Time, GetTime;

  TYPE Time = RECORD
                day : CARDINAL;  (* ((y-1900) * 20B + m) * 40B + d *)
                minute : CARDINAL;
                millisecond : CARDINAL;
              END;

  PROCEDURE GetTime(VAR tim : Time);
    (* get computer time *)
    (* 'tim', as a time stamp, is used as a unique module key in compilation *)

END Clock.
.EOR.
**>
