%
%%%  |MakeNameB

_Xact

*xactmmtx
*tacksubj pop

!Xact

*chekfnam
{
%
% name exists in all fonts
%
 "MoreProd" *shootern
}
{
%
% still need to make name in a font
%
 "Bear" *fnamexst
 {
  "NameDoneB" *shootern
 }
 {
  "NameGenB" *shootern
 } ifelse
 
} ifelse