%
%%%  |MakeName


_Xact

*xactmmtx
*tacksubj pop
 "TacRv.html" ofsrc read

 *tackmman

%
% stack: xact tacyh
%
*tackmkaf

!Xact

*chekfnam
{
%
% name exists in all fonts
%
 "MoreProd" *shootern
}
{
%
% still need to make name in a font
%
 "Dolphin" *fnamexst
"dolphinname" log)(
 {
  "NameDone" *shootern
 }
 {
  _Xact catcr
  "NewName.txt" ofxact
  write
  "NameGen" *shootern
 } ifelse
 
} ifelse