%
% in the process of draining from machine to device
%
 _Msg.Status _Devc.Drained and nonzero
 {
%
% properly finished draining, keep checking for collected rx
%
  "Drained" true 1000 25000 *machisat
  ind)
  "Download:FromMach,DoneTo;On" ind@
  "Download:DoneFrom;Fade" ind@
  "Download:ToDev;Off" ind@
  ind(
  "Machine has delivered program to device." &;
  &"Program will now download from device."
  *machcomt
 }
 {
  *machretn
  {
%
% no major error, check draining is still underway
%
   _Msg.Status _Devc.Draining and nonzero
   {
   }
   {
%
% device has stopped draining, must declare problem
%
    "Device has stopped receiving program from machine." &;
    &"Resetting device."
    *machcomt
    *macherri
   } ifelse
  } if
 } ifelse