%
%%% |PfontDone
%
%
 *chekfnam
 {
%
% all the name versions are done
%
  *chekfprd
  {
%
% all names/products accounted for
% send the return message for the customer
%
%
% inform the subject of delay, product creation
%
"These are the fine products available for you,
and we will create more with your special name!
%2"

"msgtx" log)(
%
% stack: message-template
%
   "%2" empty chained *custsrvr ^
/*
 &"?stamp="
 jsnow &
*/
   replall
   !Customer.Message
   "L1" !Customer.Mailer
   "Prod" *custvirz

   "Post" *shootern
  }
  {
%
% make the products that are incomplete
%
   "MoreProd" *shootern
  } ifelse
 }
 {
%
% the first default name version complete
%
  "NewName.txt" ofxact exists
  {
%
% inform the subject of delay, product creation
%
"We are creating more items to match your unique name.
This is one of the fine products available for you,
and we will create more with your special name!
%2"

"msgtx" log)(
%
% stack: message-template
%
  "%2" empty chained *custsrvr ^
/*
 &"?stamp="
 jsnow &
*/
  replall
  !Customer.Message
  "L2" !Customer.Mailer
  "First" *custvirz
%
% for later passes through here
%
  "NewName.txt" ofxact del
 }
 {
%
% not a new name creation, make the rest of name plates
% in the remaining font styles
%
 } ifelse
%
% make the rest of the name font style versions
%
 "MakeNameB" *shootern
} ifelse