%
% run tree code vectors
%
% perform the descent to the target tree
%
|Via
%
% stack: child-tree-name
%
 pop
 *pshpvias
 true

|Select
 pop
%
% perform Click setting
%
 *taskcise
 {
%
% display node's sub-trees if at top level,
% selected node's run tree if at sub-tree level
%
  *valsrept
  _report *entertre
  Help.!

 } if
 Task.@
 true

|Back
 pop
 -1 !Pshop.Cycler
%%% "Stop" *atopttrg
 false

|Init
 pop
%
% load tree contents if not activated already
%
 *norminiu
 0 !Pshop.Cycler
%
% Atop tree, first time init
%
 "Atop.html" "atoharea" "Atopex"
 *helplopn
 *helpabov
 Task.@
 true

|View
 pop
 Task.@
 true