%%% _Xact
 9 *tacksorc

"<!--Row-->" 0 3 1 parse
%
% stack: xlist-pre xlist-ctr xlist-post
%
exch
"bodytx" log)(
%
% stack: xlist-pre xlist-post xlist-ctr
%
 _Xact
 ^"xact" &"\incoming.txt" ofsnap
"pselsnap" log)(
 exists
 {
  xactinfo *xactmmtx

  dup
%
% stack:  xlist-pre xlist-post xlist-ctr xlist-ctr
%
%%% ___Xact___ ___Alter___ <!--Row-->

 "___XactId___" _Xact
 replall
 "___Xact___" _Xact
 replall
 "___Alter___" _counter 1 and { "B" } { "A" } ifelse replall
 "___Route___" _Shooter.Twi asc 0x20 and {"N" } { "P" } ifelse replall
 "___Caption___" _Shooter.Caption replall
 "___Color___" _Shooter.Color replall
 "___ProdType___" _Shooter.ProdType replall
 "___Tem___" _Shooter.Tem letter replall
 "___Date___" _Xact
"rcvtime" log)(
 replall
 "___Time___"
 empty
%%% _Msg.msec estime " " right$
 replall

%
% stack:  xlist-pre xlist-post xlist-ctr xlist-ctr
%

 4 -1 roll ^
 3 1 roll

 }
 {
 } ifelse

%
% stack:  xlist-pre xlist-post xlist-ctr
%
pop &
"tackwtd" log)(
%
% stack:  xlist-html
%
"show.html" ofsnap
write