%
% watch for overlong Pulling
%
 _Msg.Status _Devc.Pulled and nonzero
 {
%
% properly reached pulled state
%
  "Pulled" true 1000 25000 *machisat
  ind)
  "Download:FromDev;On" ind@
  "Download:DoneFrom;Bright" ind@
  ind(
  "Program has downloaded from device." &;
  *machcomt
 }
 {
  *machretn
  {
%
% no major error, check pulling is still underway
%
   _Msg.Status _Devc.Pulling and nonzero
   {
   }
   {
%
% device has stopped draining, must declare problem
%
    "Device has stopped sending program to server." &;
    &"Resetting device."
    *machcomt
    *macherri
   } ifelse
  } if
 } ifelse