\global\newif\ifIXssbierr                                                       
\global\newif\ifIXssccerr                                                       
\global\newif\ifIXsstterr                                                       
\font\cmIXssrm=cmss9 \font\cmIXssit=cmssi9                                      
\font\cmIXssbd=cmssbx9 \font\cmIXssmi=cmmi9                                     
\font\cmIXsssy=cmsy9 \font\cmIXssex=cmex10                                      
\expandafter\newdimen\csname\the\naMEtok ilsixss\endcsname                      
\global\csname\the\naMEtok ilsixss\endcsname=\bAseSkip                          
\ifdim\csname\the\naMEtok ilsixss\endcsname=0pt                                 
\csname\the\naMEtok ilsixss\endcsname=11pt\fi%                                  
\expandafter\xdef\csname\the\naMEtok\endcsname{%                                
\def\noexpand\rm{\fam0\cmIXssrm}%                                               
\def\noexpand\mi{\fam1\cmIXssmi}%                                               
\def\noexpand\sy{\fam2\cmIXsssy}%                                               
\def\noexpand\ex{\fam3\cmIXssex}%                                               
    \textfont0=\cmIXssrm \textfont1=\cmIXssmi                                   
    \textfont2=\cmIXsssy \textfont3=\cmIXssex                                   
    \textfont\itfam=\cmIXssit                                                   
    \textfont\bffam=\cmIXssbd                                                   
\def\noexpand\bd{\fam\bffam\cmIXssbd}%                                          
\def\noexpand\it{\fam\itfam\cmIXssit}%                                          
\def\noexpand\bi{\noexpand\ifIXssbierr\noexpand\it%                             
\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %                  
No bold italic  font in CMSAN9. Will print italic font .}%                      
\noexpand\global\noexpand\IXssbierrtrue \noexpand\fi}%                          
\def\noexpand\tt{\noexpand\ifIXsstterr\noexpand\rm%                             
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No typewriter  font in CMSAN9. Will print roman font .}%                        
\noexpand\global\noexpand\IXsstterrtrue \noexpand\fi}%                          
\def\noexpand\cc{\noexpand\ifIXssccerr\noexpand\rm%                             
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No small caps  font in CMSAN9. Will print roman font .}%                        
\noexpand\global\noexpand\IXssccerrtrue \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 ilsixss\noexpand\endcsname}}%                      
