Re: Parsing timestamps?

My solution is rather straightforward:
1 VARIABLE C6
1 VARIABLE C1
: TIMESTRSCAN ( addr count -- d )
  >R >R 0 0 R> R>
  OVER + 1-
  DO
    I C@ DUP 58 =
    IF
      DROP
      C6 @ 60 * C6 !
      1 C1 !
    ELSE
      48 - C1 @ * C6 @ M* D+
      10 C1 !
    THEN
  -1 +LOOP
  1 C6 !  1 C1 !
;
Now the seconds can be multiplied by 100
to get centi-seconds - and/or they can
be used to show the time since midnight
usual way:
: XX ( u -- )  # 6 BASE ! # DECIMAL 58 HOLD ;
: PRINTTIME ( d -- )
  SWAP OVER DABS <# XX XX #S #> TYPE ."  o'clock" CR ;
Did I win something? A coffee mug, anything?
--