%
% stack: right-str left-str
%
% is there a connecting route established for this node
%
"#" \_
<
|#
%
% link to the relative pep based on current pep
%
 *hierxnod
 true !Xhelp.Descend
%
% stack: right-str extended-pep
%
> not
{
%
% there might be a pep spec in the link value
%
 pop
 "#" \_
} if
%
% stack: right-str possible-extended-pep
%
isnull
{
%
% no extending hierarchy
%
 pop2
 false
}
{
%
% descend into linked pep
%
"(xfine" log)(
 "Xtend" *xhelperx
 {
  "taskarea"
 } if
 exch *taskopen
%
% retain the same help screen for xhelp trees
%
 *helpsame
%
% must travel down to the tree that may have this node reference
%
 !Xhelp.Deferred
 true !Xhelp.Defer
 false
} ifelse
%
% stack: found
%