%
% edit the content of value Body, Device, Type, and Program
%
sel@?
{
_\ !Edits
\_Program !Program
\_ProgSrc !ProgSrc
"SetVed(true,false);"
fork@)?
{
%
% machine sub-tree
%
 root?
 {
%
% sub-tree at root
%
  &"SetCust(false,true,false);"
 }
 {
%
% sub-tree non-root
%
  &"SetCust(true,false,false);"
 } ifelse
}
{
%
% top machine tree
%
 &"SetCust(true,true,true);"
} ifelse
Help.!
} if