<code>
: skip  ( addr len c -- addr' len' )
    \ Within the string given by ADDR and LEN skip leading occurances of
    \ character C. Return the remaining string denoted by ADDR' and LEN'.
    >R
    BEGIN ( addr len )
      DUP 
    WHILE ( addr len )  
      OVER C@ R@ =  
    WHILE  
      1 /STRING
    REPEAT THEN 
    R> DROP ; 
</code>

Tags: ANS-Forth string outer-interpreter WORD