To get the date in text form. The time given should be the number seconds
since the beginning of 1970.
CHARACTER (LEN=*) FUNCTION TOFDATE@(SECS)
TOFDATE@ returns the date in textual format based on time given in the form:
"Friday January 29, 1993".