T = " ValidationResult
    DISPLAY "DATE IS NOW = " InputDateIn
    EVALUATE TRUE
       WHEN DateIsValid           DISPLAY "Date is valid."
       WHEN DateNotNumeric        DISPLAY "Date is not numeric."
       WHEN YearContainsZeros     DISPLAY "Year contains all zeros."
       WHEN MonthContainsZeros    DISPLAY "Month contains all zeros."
       WHEN DayContainsZeros      DISPLAY "Day contains all zeros."
       WHEN MonthGreaterThan12    DISPLAY "Month too great."
       WHEN DayTooGreatForMon