?TACL ROUTINE
         #FRAME
         #PUSH time,number
         #PUSH hour,minute,second
         #PUSH charcount

         SINK [#ARGUMENT/TEXT time/NUMBER]

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


         #SET charcount [#CHARCOUNT time]
         [#IF (charcount = 6)
           |THEN|
           |ELSE|
             #OUTPUT Error!  Expecting TIME in the form HHMMSS.
             err
         ]

         #SET hour    [#CHARGET time 1 FOR 2]
         #SET minute  [#CHARGET time 3 FOR 2]
         #SET second  [#CHARGET time 5 FOR 2]

         [#IF ([hour]>23)
           |THEN|
             #OUTPUT Illegal HOUR value!   Must be a number less than 24.
             err
         ]
         [#IF ([minute]>59)
           |THEN|
             #OUTPUT Illegal MINUTE value! Must be a number less than 60.
             err
         ]
         [#IF ([second]>59)
           |THEN|
             #OUTPUT Illegal SECOND value! Must be a number less than 60.
             err
         ]

         #RESULT 0
         #UNFRAME