\global\newif\ifXIIssbierr                                                      
\global\newif\ifXIIssccerr                                                      
\global\newif\ifXIIsstterr                                                      
\font\cmXIIssrm=cmss12 \font\cmXIIssit=cmssi12                                  
\font\cmXIIssbd=cmssbx12 \font\cmXIIssmi=cmmi12                                 
\font\cmXIIsssy=cmsy12 \font\cmXIIssex=cmex12                                   
\expandafter\newdimen\csname\the\naMEtok ilsxiiss\endcsname                     
\global\csname\the\naMEtok ilsxiiss\endcsname=\bAseSkip                         
\ifdim\csname\the\naMEtok ilsxiiss\endcsname=0pt                                
\csname\the\naMEtok ilsxiiss\endcsname=14pt\fi%                                 
\expandafter\xdef\csname\the\naMEtok\endcsname{%                                
\def\noexpand\rm{\fam0\cmXIIssrm}%                                              
\def\noexpand\mi{\fam1\cmXIIssmi}%                                              
\def\noexpand\sy{\fam2\cmXIIsssy}%                                              
\def\noexpand\ex{\fam3\cmXIIssex}%                                              
    \textfont0=\cmXIIssrm \textfont1=\cmXIIssmi                                 
    \textfont2=\cmXIIsssy \textfont3=\cmXIIssex                                 
    \textfont\itfam=\cmXIIssit                                                  
    \textfont\bffam=\cmXIIssbd                                                  
\def\noexpand\bd{\fam\bffam\cmXIIssbd}%                                         
\def\noexpand\it{\fam\itfam\cmXIIssit}%                                         
\def\noexpand\bi{\noexpand\ifXIIssbierr\noexpand\it%                            
\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %                  
No bold italic  font in CMSAN12. Will print italic font .}%                     
\noexpand\global\noexpand\XIIssbierrtrue \noexpand\fi}%                         
\def\noexpand\tt{\noexpand\ifXIIsstterr\noexpand\rm%                            
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No typewriter  font in CMSAN12. Will print roman font .}%                       
\noexpand\global\noexpand\XIIsstterrtrue \noexpand\fi}%                         
\def\noexpand\cc{\noexpand\ifXIIssccerr\noexpand\rm%                            
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No small caps  font in CMSAN12. Will print roman font .}%                       
\noexpand\global\noexpand\XIIssccerrtrue \noexpand\fi}%                         
\noexpand\rm%                                                                   
\noexpand\nonIBM%                                                               
\noexpand\let\noexpand\italic=\noexpand\it%                                     
\noexpand\let\noexpand\bolditalic=\noexpand\bi%                                 
\noexpand\let\noexpand\bold=\noexpand\bd%                                       
\noexpand\let\noexpand\caps=\noexpand\cc%                                       
\noexpand\let\noexpand\typewriter=\noexpand\tt%                                 
\noexpand\let\noexpand\roman=\noexpand\rm%                                      
\noexpand\let\noexpand\symbol=\noexpand\sy%                                     
\noexpand\let\noexpand\mathitalic=\noexpand\mi%                                 
\noexpand\let\noexpand\extension=\noexpand\ex%                                  
\noexpand\interlineskip{%                                                       
\noexpand\csname\the\naMEtok ilsxiiss\noexpand\endcsname}}%                     
