SEARCH

: SEARCH ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 flag ) \ 94 STRING

2>R 2DUP BEGIN

DUP 1+ R@ > \ пока длины достаточно

WHILE

OVER 2R@ TUCK COMPARE 0= IF 2RDROP 2SWAP 2DROP TRUE EXIT THEN 1- SWAP 1+ SWAP

REPEAT 2RDROP 2DROP 0

;