CREATE bsearch.txt  \ Leo Wong 26 March 02003 fyj +
\ bcomp bsearch bsearch.txt

\ See: fans.txt  squabble.txt

DEFER bcomp  ( key array index -- flag )

: bsearch ( key array lo hi -- index flag )
   2SWAP 2>R
   BEGIN 2DUP < WHILE
     2DUP + 2/ DUP 2R@ ROT bcomp
     0> IF 1+ ROT ROT THEN NIP
   REPEAT
   2R> ROT bcomp 0= ;