%
% 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
%
 empty
 _ProgSrc 
 empty empty "Cnc Program"
 true true false true false
 System.Opener
 System.Opened
"openres" log)(
 <
 |OK
  System.Opening
"open" log)(
%
% process the selected program
% place it in the devices Program subdir
% use the root filename as Program
%
  dup fileroot
  !Program
  dup !ProgSrc
  dup filename ".pgm" reextend ofpgm
  copyfile
 > pop