\global\newif\ifXVIIIssbierr                                                    
\global\newif\ifXVIIIssccerr                                                    
\global\newif\ifXVIIIsstterr                                                    
\font\cmXVIIIssrm=cmss18 \font\cmXVIIIssit=cmssi18                              
\font\cmXVIIIssbd=cmssbx18 \font\cmXVIIIssmi=cmmi18                             
\font\cmXVIIIsssy=cmsy18 \font\cmXVIIIssex=cmex18                               
\expandafter\newdimen\csname\the\naMEtok ilsxviiiss\endcsname                   
\global\csname\the\naMEtok ilsxviiiss\endcsname=\bAseSkip                       
\ifdim\csname\the\naMEtok ilsxviiiss\endcsname=0pt                              
\csname\the\naMEtok ilsxviiiss\endcsname=20pt\fi%                               
\expandafter\xdef\csname\the\naMEtok\endcsname{%                                
\def\noexpand\rm{\fam0\cmXVIIIssrm}%                                            
\def\noexpand\mi{\fam1\cmXVIIIssmi}%                                            
\def\noexpand\sy{\fam2\cmXVIIIsssy}%                                            
\def\noexpand\ex{\fam3\cmXVIIIssex}%                                            
    \textfont0=\cmXVIIIssrm \textfont1=\cmXVIIIssmi                             
    \textfont2=\cmXVIIIsssy \textfont3=\cmXVIIIssex                             
    \textfont\itfam=\cmXVIIIssit                                                
    \textfont\bffam=\cmXVIIIssbd                                                
\def\noexpand\bd{\fam\bffam\cmXVIIIssbd}%                                       
\def\noexpand\it{\fam\itfam\cmXVIIIssit}%                                       
\def\noexpand\bi{\noexpand\ifXVIIIssbierr\noexpand\it%                          
\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %                  
No bold italic  font in CMSAN18. Will print italic font .}%                     
\noexpand\global\noexpand\XVIIIssbierrtrue \noexpand\fi}%                       
\def\noexpand\tt{\noexpand\ifXVIIIsstterr\noexpand\rm%                          
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No typewriter  font in CMSAN18. Will print roman font .}%                       
\noexpand\global\noexpand\XVIIIsstterrtrue \noexpand\fi}%                       
\def\noexpand\cc{\noexpand\ifXVIIIssccerr\noexpand\rm%                          
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No small caps  font in CMSAN18. Will print roman font .}%                       
\noexpand\global\noexpand\XVIIIssccerrtrue \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 ilsxviiiss\noexpand\endcsname}}%                   
