%
% upload device configuration
%
% stack: config-text
%
"ccfg" log)(
_Device any?
{
"ccfh" log)(
 text ofconn writeb
 "d" *machclod
}
{
"^^^NO DEVICE for config" log)(
 pop
} ifelse