NAME: GetDate

     USE: Procedure to return the current operating system date.
          Valid values can be:

                         Year      =  1980..2099
                         Month     =  1..12
                         Day       =  1..31
                         DayOfWeek =  0..6 (Sunday = 0)

     DEPENDENCY:  The DOS unit must be used placed in the uses section.

     SYNTAX: GetDate(Var Year, Month, Day, DayOfWeek : Word);