%
%%%  |MakeName

_Xact

*xactmmtx
*tacksubj pop

!Xact

*chekfnam
{
%
% name exists in all fonts
%
 "MoreProd" *shootern
}
{
%
% still need to make name in a font
%
 "Bamboo" *fnamexst
 {
  "NameDoneD" *shootern
 }
 {
  "NameGenD" *shootern
 } ifelse
 
} ifelse