Re: Reverse SCAN SPLIT

And with 00 for hours and minutes when they are absent
: :t  ( add cnt -- add 2 1 | add1 2 add2 2 2 | add1 2 add2 2 add3 2 3)
  0 -rot bounds dup >r swap do
     i c@ [char] : = if 1+ i 1+ 2 rot then
  1 -loop 1+ r> 2 rot ;
: .t ( n --)
case
     1 of ." 00 hrs"   space ." 00 min" space type space ." sec" endof
     2 of ." 00 hrs"   space type space ." min" space type space ." sec"
endof
     3 of type space ." hrs"   space type space ." min" space type space
" sec" endof
endcase ;
s" 10:20:30" :t .t 10 hrs 20 min 30 sec ok
s" 20:30" :t .t 00 hrs 20 min 30 sec ok
s" 30" :t .t 00 hrs 00 min 30 sec ok
Ahmed