%
% insure device folders exist and relevant cnc program info
%
sel@
empty !Program
fork@)?
"devisub" _\ & log)(
{
 \_DevType 
"devisubtype" _\ & log)(
 !DevType
 root?
"devisubroot" log)(
 {
%
% sub-tree and root node
%
  _\\ !Mach.Machine
  true !Msys.HasMachine
  empty !Device
  \_Partner !Mach.Partner
  *machdevd
 }
 {
%
% sub-tree and not root
% check current program and indicator changes
%
  \_Program dup !Program any)? !Msys.HasProgram
 } ifelse
 ind)
 *machprgm
 ind(
}
{
%
% this is master tree
%
 false !Msys.HasMachine
 empty !Mach.Machine
 empty !Mach.Partner
} ifelse
*machdevf
@@