( 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 )