%
% 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
{
%
% process the selected program
% place it in the devices Program subdir
% add new child of root
%
 @@
 root\
%              SetDesc(dvc,prog,dvct)
% name  description device  prog  type
% wired  wirex      wirex2 wirex3 wirex4 
%
 _Mach.Downed
"pulled" log)(
 wired(
"wired " _\ & log)(
 newchild
 wirex3(
"program " _\ & log)(
 dup !Program
 dup yml \!Program
 second dup !ProgSrc yml \!ProgSrc
 &".pgm" ofpgm
 dup !ProgFl
 second read 0x00 char empty replall
%%% 0x0A char 0x0D char 0x0A char & replall
dup logs
 third writeb
 copyfile
 wirex4( \!DevType
 wirex( \!Body
 select*
 *machdevi
 zerotab
 "notepad " &_ProgFl
 *runsnorm
 @@
 nod@
} if