DEFINITION MODULE Clock;

  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 *)

END Clock.
