%
% the galleries are implanted with xacts of subject
% for each product
%
% xact-group is "empty xact [ . . . ] 'subject'"
%
*custigal
%
% process this subjects xacts
%
_Xact.Slist
execstr
execstr
!Shooter.Subject

%
% run through the xacts attached to this subject
%
0 !counter
{
 isnull ?
"custic" log)(
 !Xact
 *custinex
} loop
pop

%
% terminate the subject xacts product galleries
%
*custegal

%
% go back through the xacts of this subject
% place the product galleries in each xact of subject
%
_Xact.Slist
execstr
execstr
pop

%
% implant the subject xacts galleries
% into Tack directory
%
{
 isnull ?
 !Xact
 *custiney
} loop
pop