%
% no flag for this xact
% check for ability to process
%
"phase.txt" ofxact
"phaseda" log)(
exists
"phasedb" log)(
{
 *xactninf
%
% the A machine checks for what can be flagged for other
% builders
%
_Camera.Phase
any?
{
<
 |Make           *xactflag
 |Building
 |Built          *xactflag
 |Temed             *xactflag
 |Products       *xactflag
 |Proding
 |Prebuilt       *xactflag
 |PresDone       *xactflag
 |Presing
 |PrdDone           *xactflag
 |ProdFill           *xactflag
 |ProdFilling
 |PrfDone           *xactflag
 |Post
   "phase.txt" ofxact ".xtx" overext
> not
{
%
% if it is not for other builders, we take care of it
%
 "xact" *atoptick
} if
} if
} if
"phasck" log#