NONSTANDARD_DATE_AND_TIME

 These  procedures  write  the  date  and  the  time   to   their
 parameters.   These  procedures  are  VSI Pascal extensions, and
 have the forms:

    DATE( str )

    TIME( str )

 The parameter 'str' must be of type PACKED ARRAY[1..11] OF CHAR.
 After  execution of the procedure, the 'str' contains either the
 date or the time.  If the day of the month is a 1-digit  number,
 the leading zero does not appear in the result; that is, a space
 appears before the date string.  The time is returned in 24-hour
 format.