\ string 05.1.21 NAB

: /STRING  2dup - >r  nip +  r> ;

: BLANK  bl fill ;

: -TRAILING
( c-addr1 u1 -- c-addr2 u2 )
  begin
    dup 1 < if  exit  then
    2dup  1- chars +  c@ bl = while  1-
  repeat ;
