DEFINITION MODULE TimeDate;


   PROCEDURE GetTime () : CARDINAL;


   PROCEDURE GetDate () : CARDINAL;


END TimeDate.
( VAR Source : (* IN *) ARRAY OF CHAR ) : CARDINAL;

   VAR Count : CARDINAL;

   BEGIN
      Count := 0;

      (*--- 