%
% created the product template presentation
%
% stack: info-file
%
*doneactx

"ProdMMS_1F.psd" ^_Arching.Dest
"ProdMMT" &_Arching.Src psd ^_Arching.Dest
copyfile

"ProdMMT" &_Arching.Src &".html" ofsrc
dup exists
{
 pop
}
{
 "ProdMMS.html" ofsrc read
 "ProdMMT" "ProdMMT" &_Arching.Src replall
 exch write
} ifelse

"prim6" !Atop.Cutton
*atopfirg