Date


Purpose   Returns the system date nicely formatted.

Decln.    Date:string;

Returns   String

Remarks   The format of the returned string is the day followed by the
          month, day of month and year, e.g.

          Monday December 25, 1989

Example

BEGIN
    CLRSCR;
    WRITECENTER(1,YELLOW,BLACK,DATE);
END;