%
% stack: xact tacyh
%
*custbasu

*temarker

"___color___"
_Shooter.ProdType *protypes
_Arching.Otype zero
{
 0
}
{
  _Shooter.Color
} ifelse
replall

"___crop___"  _Shooter.Crop replall
second !Xact
"prodpric.js" ofxact exists
{
 "results/prodpric.js"
 "results/xact" &_Xact &"/prodpric.js"
 replall
} if

%
% write to the xact
%
"TacZv.html" ofxact
%
% stack: xact tacyh
%
"taczpath" log)(
2 copy
write
second "index.html" ofxact write
third !Xact
*tackmkcg
%
% stack: xact
%