%
% read the source page text for xact commerce ops
%
 "TacXv.html" ofsrc read
 second
"tsubmk" log)(
 !Xact
%
% stack: xact tacyh
%
 *custbasu

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

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