IMPLEMENTATION MODULE TimeAndDate;


PROCEDURE BinaryTime (VAR ts: TimeStamp): INTEGER;
  BEGIN
  END BinaryTime;

PROCEDURE SetBinaryTime (ts: TimeStamp): INTEGER;
  BEGIN
  END SetBinaryTime;

PROCEDURE BinaryTimeOfStandardTime (VAR ts: TimeStamp;
				    stime: ARRAY OF CHAR): INTEGER;
  BEGIN
  END BinaryTimeOfStandardTime;

PROCEDURE BinaryTimeOfTextualTime (VAR ts: TimeStamp;
				   ttime: ARRAY OF CHAR): INTEGER;
  BEGIN
  END BinaryTimeOfTextualTime;

PROCEDURE StandardTimeOfBinaryTime (VAR stime	   : ARRAY OF CHAR;
				    VAR stimelength: CARDINAL;
				    ts		   : TimeStamp): INTEGER;
  BEGIN
  END StandardTimeOfBinaryTime;

PROCEDURE TextualTimeOfBinaryTime (VAR stime	  : ARRAY OF CHAR;
				   VAR stimelength: CARDINAL;
				   ts		  : TimeStamp): INTEGER;
  BEGIN
  END TextualTimeOfBinaryTime;

PROCEDURE Time (VAR thetime: ARRAY OF CHAR;
		VAR length : CARDINAL): INTEGER;
  BEGIN
  END Time;

PROCEDURE StandardTime (VAR thetime: ARRAY OF CHAR;
			VAR length : CARDINAL): INTEGER;
  BEGIN
  END StandardTime;

PROCEDURE Date (VAR thedate: ARRAY OF CHAR;
		VAR length : CARDINAL): INTEGER;
  BEGIN
  END Date;

PROCEDURE TimeAndDate (VAR thetimeanddate: ARRAY OF CHAR;
		       VAR length	 : CARDINAL): INTEGER;
  BEGIN
  END TimeAndDate;


(* ========================================================================= *)


PROCEDURE XBinaryTime (VAR ts: TimeStamp);
  BEGIN
  END XBinaryTime;

PROCEDURE XSetBinaryTime (ts: TimeStamp);
  BEGIN
  END XSetBinaryTime;

PROCEDURE XBinaryTimeOfStandardTime (VAR ts: TimeStamp;
				     stime: ARRAY OF CHAR);
  BEGIN
  END XBinaryTimeOfStandardTime;

PROCEDURE XBinaryTimeOfTextualTime (VAR ts: TimeStamp;
				    ttime: ARRAY OF CHAR);
  BEGIN
  END XBinaryTimeOfTextualTime;

PROCEDURE XStandardTimeOfBinaryTime (VAR stime: ARRAY OF CHAR;
				     ts        : TimeStamp): CARDINAL;
  BEGIN
  END XStandardTimeOfBinaryTime;

PROCEDURE XTextualTimeOfBinaryTime (VAR stime: ARRAY OF CHAR;
				    ts	      : TimeStamp): CARDINAL;
  BEGIN
  END XTextualTimeOfBinaryTime;

PROCEDURE XTime (VAR thetime: ARRAY OF CHAR): CARDINAL;
  BEGIN
  END XTime;

PROCEDURE XStandardTime (VAR thetime: ARRAY OF CHAR): CARDINAL;
  BEGIN
  END XStandardTime;

PROCEDURE XDate (VAR thedate: ARRAY OF CHAR): CARDINAL;
  BEGIN
  END XDate;

PROCEDURE XTimeAndDate (VAR thetimeanddate: ARRAY OF CHAR): CARDINAL;
  BEGIN
  END XTimeAndDate;


END TimeAndDate.