Re: Parsing timestamps?

On 8/06/2025 3:07 am, LIT wrote:

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 !
;

Not bad.  The 1 C6 ! 1 C1 ! should be moved to the start.
 

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?

Virtue is its own reward.