%
% see if device is in Pulling or Pulled mode
% check for pulling in process or completed
%
 _Msg.Status _Devc.Pulling and
 _Msg.Status _Devc.Pulled and
 or nonzero
 {
%
% properly reached pulling or pulled state
%
  dup term2 "." left$
"pulling" log)(
  !Mach.Puller
  "Puller" true 1000 25000 *machisat
  ind)
  "Download:FromDev;On" ind@
  "Download:DoneTo;Off" ind@
  "Download:DoneFrom;Dim" ind@
  ind(
  "Downloading program from device." &;
  *machcomt
 }
 {
%
% should have pulled or pulling modes by now
%
"*** pull issue" log#
  *macherri
 } ifelse