%
% find items in values variable flags
%
% stack: flags value val-name
%
exch
_\ -1
pull4th
pull5th
%
% stack:
%  search-text
%   start-index
%    end-index
%     value-name
%      match-flags
%
"FindValue" do
%
% stack: next-found-index
%
dup whole
dup
{
 exch !\
}
{
%
% no value of near match
%
 pop2nd
} ifelse
%
% stack: found
%