%
% sever the tree branch
% save it as the pep address of this node
% this is the current tree pep, using the node parentage
% as the local pep filename within the current tree pep
%
% create pep address
%
  _@ &"#"
  _\ hier
  "\" Str.Right
  "\" "#" replall &
%
% save the branch copy
%
  _\ "CopyItem" do
  _\ Tree./Below
  "#" "#" \!
  "*xhelthru" "Click" \!
  nod@
"Sever " log)(
  true exch *treeacts  
  Mep.Clear
  -1 "LoadItem" do
  "_Xhelp.tlt" ofbin Tree.Save pop
  nod@
  helpoff
  *unxhelps
  *nodebacr