%
%%%  |MakeName

_Xact

*xactmmtx
*tacksubj pop

!Xact

*chekfnam
{
%
% name exists in all fonts
%
 "MoreProd" *shootern
}
{
%
% still need to make name in a font
%
 "Clown" *fnamexst
 {
  "NameDoneC" *shootern
 }
 {
  "NameGenC" *shootern
 } ifelse

 } ifelse