\global\newif\ifXssbierr                                                        
\global\newif\ifXssccerr                                                        
\global\newif\ifXsstterr                                                        
\font\cmXssrm=cmss10 \font\cmXssit=cmssi10                                      
\font\cmXssbd=cmssbx10 \font\cmXssmi=cmmi10                                     
\font\cmXsssy=cmsy10 \font\cmXssex=cmex10                                       
\expandafter\newdimen\csname\the\naMEtok ilsxss\endcsname                       
\global\csname\the\naMEtok ilsxss\endcsname=\bAseSkip                           
\ifdim\csname\the\naMEtok ilsxss\endcsname=0pt                                  
\csname\the\naMEtok ilsxss\endcsname=12pt\fi%                                   
\expandafter\xdef\csname\the\naMEtok\endcsname{%                                
\def\noexpand\rm{\fam0\cmXssrm}%                                                
\def\noexpand\mi{\fam1\cmXssmi}%                                                
\def\noexpand\sy{\fam2\cmXsssy}%                                                
\def\noexpand\ex{\fam3\cmXssex}%                                                
    \textfont0=\cmXssrm \textfont1=\cmXssmi                                     
    \textfont2=\cmXsssy \textfont3=\cmXssex                                     
    \textfont\itfam=\cmXssit                                                    
    \textfont\bffam=\cmXssbd                                                    
\def\noexpand\bd{\fam\bffam\cmXssbd}%                                           
\def\noexpand\it{\fam\itfam\cmXssit}%                                           
\def\noexpand\bi{\noexpand\ifXssbierr\noexpand\it%                              
\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %                  
No bold italic  font in CMSAN10. Will print italic font .}%                     
\noexpand\global\noexpand\Xssbierrtrue \noexpand\fi}%                           
\def\noexpand\tt{\noexpand\ifXsstterr\noexpand\rm%                              
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No typewriter  font in CMSAN10. Will print roman font .}%                       
\noexpand\global\noexpand\Xsstterrtrue \noexpand\fi}%                           
\def\noexpand\cc{\noexpand\ifXssccerr\noexpand\rm%                              
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No small caps  font in CMSAN10. Will print roman font .}%                       
\noexpand\global\noexpand\Xssccerrtrue \noexpand\fi}%                           
\noexpand\rm%                                                                   
\noexpand\nonIBM%                                                               
\noexpand\let\noexpand\bolditalic=\noexpand\bi%                                 
\noexpand\let\noexpand\italic=\noexpand\it%                                     
\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 ilsxss\noexpand\endcsname}}%                       
