( s -- s' )
( This macro strips off the ending spaces of a string.         )
( The algorithm is stolen from auzzie's .del_end_spaces macro. )
( Slightly modified by byte.                                   )
 
: del_end_spaces
dup "" " " subst             ( make copy with all spaces stripped       )
dup "" stringcmp not if      ( if the original only contained spaces    )
  swap pop                   ( we're done                               )
else                         ( if not, the last character of the( Quickie replacement for program recycled by auzzie. )
( Returns hour, minute, second starting at 0, month starting at 1 )
( -- s m h d m y )
: main
systime
dup 60 % swap 60 /
dup 60 % swap 60 /
8 - ( Difference between GMT and Pacific )