%
%%%  |NameGen


%%% *xactninf
 Vm.*Anchor

%
% insure building process does not hang up
%
 "Naming" *shootern
%
% check for the font to make
%
%%% file in xact is "Make_" &_Tem.FontName text ofxact write
/*
 "Dolphin" !Tem.FontName
 "Make_" textwild
 empty ofxact
 empty
 {
  nextfile ?
  dup noext "_" 1 1 1 parse
  !Tem.FontName
  true ?
 } loop
 filing)

_Tem.FontName
<
|Bamboo "A" !Tem.FontLetter
|Bear "B" !Tem.FontLetter
|Clown "C" !Tem.FontLetter
|Dolphin "D" !Tem.FontLetter
|Elf "E" !Tem.FontLetter
> pop
*/


/*
_Arching.Vm
{
 "p:\___Work\_____Names\"
}
{
 "c:\___Work\_____Names\"
} ifelse
*/

*xlinkiot


!Tem.NameSrc

*trantccm