%
% cycle through the blocks of the last downloaded program
%
_Partner.Block
any?
{
dup "*" ne$
{
"mpulb" log)(
*machinsh
 hex2asc ^:Mach.Puller
 "*machpulb" !Mach.Return12
 "next . . ."
 "000007C"
 *machenot
} if
}
{
%
% done with blocks
%
 "Completed program pull."
 *machcomt
 _Mach.Puller "_pulled" text!bin
 "notepad " "_pulled.txt" ofbin &
 *runsnorm
} ifelse