%
% stack: xact
%
*vendings
"tackmkan" log)(
<

|Quick
 "TacVvQ.html" ofsrc read
 "___Updating__" "true" replall

|Single
 _Arching.Itype
 <
 |L
  _Arching.Atype
  <
   |FirstOf
    "TacRv.html" ofsrc read
    *tackmman
  > not
  {
   _Arching.Stype
   <
   |C "TacMv.html"
   > not
   {
    "TacTv.html"
   } if
   ofsrc read
   *tackmlan
  } if
 > not
 {
  _Arching.Stype
  <
  |C "TacMv.html"
  > not
  {
   "TacTv.html"
  } if
  ofsrc read
  *tackmlan
 } if

> not
{
 "TacVv.html" ofsrc read
 "___Updating__" "true" replall
 "___ProdType___" _Shooter.ProdType replall
} if
second
"tsubmk" log)(
!Xact
%
% stack: xact tacyh
%
*tackmkaf

%
% stack: xact
%