%
% finalized getting program in messages
%
false !Mach.Pulled
_Device &"\" ofconn
empty
{
 "*.pgm" prevof ?
%%% dup term2 "." left$
"checking" log)(
%%% _Mach.Puller gt
%%% {
%
% this is the latest program pulled
% that could be from this download
%
  true !Mach.Pulled
  filing !Mach.Downed
  true ?
%%% } if
} loop
filing)
ind)
_Mach.Pulled
{
 "Configed" true 1000 25000 *machisat
%
% a new program has been received, show just the donefrom icon
%
 "Download:FromDev;Off" ind@
 "Download:DoneFrom;On" ind@
 "Download:Gcode;Bright" ind@
 "Click on the stapler to register the new program." &;
 *machcomt
}
{
 "Download:FromDev;Off" ind@
 "Download:DoneFrom;Fade" ind@
 "Download:Gcode;Fade" ind@
 "Did not seem to download the program to server properly." &;
 *machcomt
 *macherri
} ifelse
ind(