%
% siphon to the machine through device if Filled
%
_Msg.Status _Devc.Filled and nonzero
{
%
% can proceed to siphoning
%
 *machsipi
 "Siphoning" true 1000 100000 *machisat
 ind)
 "Upload:FromDev;Quick" ind@
 "Upload:DoneTo;Off" ind@
 "Upload:DoneFrom;Dim" ind@
 "Upload:ToMach;Fade" ind@
 ind(
}
{
%
% device not filled, cannot siphon
%
 "Cannot siphon, unfilled" &;
 *machcomt
 *macherri
} ifelse