%
% check for Filled status
%
_Msg.Status _Devc.Filled and nonzero
{
 "Device has the program now, stapler and Siphon showing." &;
 &"Press the Siphon button to the right of the stapler when machine ready."
 *machcomt
%
% device has been filled with uploaded data
%
 ind)
 "Upload:DoneTo,ToMach;On" ind@
 "Upload:ToDev;Off" ind@
 ind(
 "Uploaded" true 1000 25000 *machisat
}
{
%
% check for a block process transaction
%
 "Block" <_Msg.Lookup>
 {
%
% have a block
% blocks are uploading to device
%
  true 2000 50000 *machgaps
  "Uploaded block " &_Msg.Block &;
  *machcomt
 }
 {
%
% no block report
%
  *machretn
  {
%
% see if device is still in Fill mode
%
   _Msg.Status _Devc.Filling and nonzero
   {
    true 1000 50000 *machgaps
   }
   {
    "Device has stopped filling." &;
    *machcomt
    *macherri
   } ifelse
  } if
 } ifelse
} ifelse