%
% select cnc program for operations
%
% filename initial-dir filter default-ext title
% ck-file-exists ck-path-exists add-ext show-read-only multi-select
%
_Msys.HasDevice
{
 newedits?
 {
  empty ofmach
 }
 {
  sel@
  \_ProgSrc any?
  {
  }
  {
   empty ofmach
  } ifelse
 } ifelse
 !ProgSrc
 *machqsel
 newedits?
 {
 }
 {
  _Program yml \!Program
  _ProgSrc yml \!ProgSrc
 } ifelse
 *machdevg Help.!
} if