%
% new edits for the machine comm content of value Body
%
newedits
"Program" *finsures 3 right & !Program
empty !ProgSrc
empty
@@
fork@)?
{
%
% machine sub-tree
%
 *enteronm
 &"SetCust(true,false,false);"
 *machdevg &
}
{
%
% top machine tree
%
 *enterall
 &"SetCust(true,true,true);"
} ifelse
Help.!