%
% watch for overlong Siphoning
%
_Msg.Status _Devc.Siphoned and nonzero
{
%
% properly reached siphoned state
%
 ind)
 "Data has been siphoned to machine." &;
 _Msys.IsTest
 {
%
% tell about siphoned next step
%
  &"Click the stapler for info."
  "Siphoned" true 1000 120000 *machisat
  "Upload:DoneFrom;On" ind@
  "Upload:FromDev;Fade" ind@
 }
 {
  "Upload:DoneFrom;Bright" ind@
  "Reinit" true 1000 25000 *machisat
 } ifelse
 *machcomt
 ind(
}
{
%
% continuing to wait for siphoning to end
%
 _Msg.Status _Devc.Siphoning and nonzero
 {
%
% continuing to siphon
%
  true 1000 25000 *machgaps
 }
 {
%
% Siphoning has stopped, without Siphoned indicator
%
  "Siphon has stopped." &;
  *machcomt
  *macherri
 } ifelse
} ifelse