%
% subject vars must exist
%
% implant the Subject stake in the xact
%
*tacksubj
{
}
{
%
% must create new Tack for subject
%
 *tackinit
} ifelse
%
% the subject has a proper Tack
%
empty
"Shooter.Subject" sval
%
% implant the tack in the xact directory for subject
%
"Tack" sval

dup "Subject" text!xact
%
% implant this xact in the Tack directory for subject
%
_Xact exch
second ^"xact_" text oftack write
!Xact

%
% stack:
%