DEFINITION MODULE TimeDate;

(* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)


TYPE Time = RECORD
              day, minute, millisec :CARDINAL;
            END;


PROCEDURE GetTime( VAR time :Time );
(*
    get the system time
*)

PROCEDURE SetTime( time :Time );
(*
    set the system time
*)

END TimeDate.