\ time     10/17/97    gwj
\ access the Palm OS Time/Date 
\ functions
require systraputil

\ TimGetTicks - ticks since counter
\    was last reset
: @Ticks  ( -- ud )  41207 SysTrap>d ;

\ TimGetSeconds - seconds since
\ Jan 1, 1904
: @TimeSecs    ( -- ud )
     41205 SysTrap>d ;

1440 constant min/day
\ Number of minutes since Midnight
\ and number of seconds since then
: @sec&min  ( -- sec min )
     @TimeSecs 60 m/mod -rot 
     min/day m/mod nip nip 
  ;
\ Number of seconds since Midnight
: @Second     ( -- ud )
   @sec&min 60 m* rot m+ ;

\ Number of minutes since Midnight
: @Minute    ( -- min )
    @sec&min nip ;

: minute>str    ( min -- c-addr cnt )
    60 /mod 100 * +
    0 <# # #  [char] : hold #s #> ;

: .minute ( min -- ) minute>str type ;