string.txt


\ string 00.3.18 6:57 pm 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 ;


  HTMLized by Forth2HTML