BL_Cut

: BL_Cut ( str len -- str2 len2 str1 len1 )  

  2dup drop >r

  bl scan 

  bl SKIP 2dup drop 

  r@

  r> swap

  bl -TRAILCHARS    

 ;

\s

[測試]

s" 123 456 " BL_Cut

dump 

 10EB924 | 31 32 33                                         |123| ok..

dump 

 10EB928 | 34 35 36 20                                      |456 | ok