1 DAY
 The function of this program is to determine the current day of the 
 week and return this information in the local symbol 'DAY_OF_THE_WEEK'
 (numeric value) and 'DAY_OF_THE_WEEK_C' (character value).

 Syntax:
	  DAY :== $disk:[directory]DAY
          DAY [dd-mmm-yyyy]

 The local symbol 'DAY_OF_THE_WEEK' will be returned from the program 
 upon completion.  It will contain a value between 1 and 7.  The values
 represent the following:

    1 = Sunday, 2 = Monday, 3 = Tuesday, 4 = Wednesday, 5 = Thursday,
    6 = Friday, 7 = Saturday

 The local symbol 'DAY_OF_THE_WEEK_C' will be returned from the program 
 upon completion.  It will contain the day of the week as an Upper/lower
 case character string.

 Optionally the program will calculate the day of the week for an 
 explicit date in the format dd-mmm-yyyy.  If omitted then the current 
 date is used.
