?TACL ROUTINE
         #FRAME
         #PUSH date,number
         #PUSH ccyy,year,month,day
         #PUSH charcount

         SINK [#ARGUMENT/TEXT date/NUMBER]

         [#DEF err MACRO |BODY|
               #RESULT -1
               #UNFRAME
               #RETURN
         ]

         #SET charcount [#CHARCOUNT date]
         [#IF (charcount = 6)
           |THEN|
           |ELSE|
             #OUTPUT Error!  Expecting DATE in the form YYMMDD.
             err
         ]

         #SET year    [#CHARGET date 1 FOR 2]
         #SET month   [#CHARGET date 3 FOR 2]
         #SET day     [#CHARGET date 5 FOR 2]

         [#IF ([year]<70)
           |THEN|
             #SET ccyy [#COMPUTE 2000 + [year]]
           |ELSE|
             #SET ccyy [#COMPUTE 1900 + [year]]
         ]

         [#IF ([month]<1) OR ([month] > 12)
           |THEN|
             #OUTPUT Illegal MONTH value!  Must be a number in the range 1 to 12.
             err
         ]
         [#IF ([day]<1) OR ([day] > 31)
           |THEN|
             #OUTPUT Illegal DAY value!    Must be a number in the range 1 to 31.
             err
         ]

         #RESULT 0
         #UNFRAME