CODE _find  ( cur w -- a f )
    HL POPqq,       ( w )
    DE POPqq,       ( cur )
    chkPS,
    ( 3 == find )
    3 BCALL,
    IFNZ,
        ( not found )
        HL PUSHqq,
        PUSH0,
        JPNEXT,
    THEN,
    ( found )
    DE PUSHqq,
    PUSH1,
;CODE