_Xact
 6 *tacksorc

/*
"'images/" "'/images/" replall
'"images/' '"/images/' replall
 "___Tack___" _Tack replall
 "___Subject___" _Shooter.Subject replall
%%% "css/" "/css/" replall
*/

"<!--Row-->" 0 3 1 parse
%
% stack: xact xlist-pre xlist-ctr xlist-post
%
exch

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

0 !counter
"xact_" textwild
empty oftack
empty
%
% stack:  xact xlist-pre xlist-post xlist-ctr tack-dir seed
%
6 index
"tackwt" log)(
!Xact
{
 prevfile ?
%%% "va.jpg" "ga.jpg" *tackmkaj
dup term2 noext
"tackwtb" log)(
!Xact
*xactninf *xactmmtx
third
%
% stack:  xact xlist-pre xlist-post xlist-ctr tack-dir seed xlist-ctr
%
%%% ___Xact___ ___Alter___ <!--Row-->

 "___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.ProdType *protypes
_Arching.Otype zero
{
 0
}
{
  _Shooter.Color
} ifelse
replall
 "___crop___" _Shooter.Crop replall
 "___ProdType___" _Shooter.ProdType replall

*temarker

 "___Date___" _Msg.msec
"jsutcmsec" log)(
estime
"esdtime" log)(
 " " left$ replall
 "___Time___" _Msg.msec estime " " right$ replall


 6 -1 roll ^
 5 1 roll

} loop
filing)
%
% stack:  xact xlist-pre xlist-post xlist-ctr
%
pop & second
"tackwtc" log)(
!Xact
%
% stack:  xact xlist-html
%
 *custbasu

 "Xacts.html" oftack
 2 copy
 write
 third !Xact
 *tackmkcg
!Xact