(*
    Title: 	TimeDate - Definitions
    LastEdit:	"Mon Sep 17 14:42:27 1984"
    Author: 	Mick Jordan
                Acorn Research Centre
*)

DEFINITION MODULE TimeDate;

EXPORT QUALIFIED 
    Time, TimeString, Date, DateString;

PROCEDURE Time(): CARDINAL;
(*  the time of day in binary in the following format:-
      (hour*64 + min)*64 + sec
*)
PROCEDURE Date(): CARDINAL;
(*  the date in binary in the following format:-
      ((year-1900)*16 + month)*32 + day
*)

PROCEDURE TimeString(t: CARDINAL; VAR ts: ARRAY OF CHAR);
(*  converts a binary time 't' into a string in the following format:-
      hh:mm:ss
*)
PROCEDURE DateString(d: CARDINAL; VAR ds: ARRAY OF CHAR);
(*  converts a binary date 'd' into a string in the following format:-
      dd-mmm-yy
*)
END TimeDate.
