* STARTS? ( str len pattern len2 -- str len flag ) Check start of string. : STARTS? DUP >R 2OVER R> MIN COMPARE 0= ;
STARTS?
( str len pattern len2 -- str len flag )
: STARTS? DUP >R 2OVER R> MIN COMPARE 0= ;
FORTH/DEF toolbelt ordinary primitive