%
% open task and helper
%
% stack:  helper-file helper-area-proc helper-name
%            task-area-proc task-name
%
helpoff
subform
6 1 roll
%
% stack:  current-help-subform
%          helper-file helper-area-proc helper-name
%            task-area-proc task-name
%
@@
*treeofsv
%
% push current, start new task level
%
% stack: area-vec pep
%
*persnorm
_@
tuck
%
% stack: prior-owner area-vec pep
%
*treepers
%
% stack: prior-owner
%
% use the task data/tree name as the ownership basis
%
"Task.*Quiet" exch _@
owning
%
% stack:  current-help-subform
%          helper-file helper-area-proc helper-name
*helplopn
%
% stack:  current-help-subform
%
@@
App.Above