\font\cmXVIIIbi=cmbxti18                                                        
\font\cmXVIIIcc=cmcsc18 \font\cmXVIIIex=cmex18                                  
\font\cmXVIIIrm=cmr18 \font\cmXVIIIit=cmti18                                    
\font\cmXVIIIbd=cmbx18 \font\cmXVIIImi=cmmi18                                   
\font\cmXVIIItt=cmtt18 \font\cmXVIIIsy=cmsy18                                   
\expandafter\newdimen\csname\the\naMEtok ilsxviii\endcsname                     
\global\csname\the\naMEtok ilsxviii\endcsname=\bAseSkip                         
\ifdim\csname\the\naMEtok ilsxviii\endcsname=0pt                                
\csname\the\naMEtok ilsxviii\endcsname=20pt\fi%                                 
\expandafter\xdef\csname\the\naMEtok\endcsname{%                                
\def\noexpand\rm{\fam0\cmXVIIIrm}%                                              
\def\noexpand\mi{\fam1\cmXVIIImi}%                                              
\def\noexpand\sy{\fam2\cmXVIIIsy}%                                              
\def\noexpand\ex{\fam3\cmXVIIIex}%                                              
    \textfont0=\cmXVIIIrm \textfont1=\cmXVIIImi                                 
    \textfont2=\cmXVIIIsy \textfont3=\cmXVIIIex                                 
    \textfont\itfam=\cmXVIIIit                                                  
    \textfont\ttfam=\cmXVIIItt \textfont\bffam=\cmXVIIIbd                       
    \textfont\ccfam=\cmXVIIIcc                                                  
\def\noexpand\bd{\fam\bffam\cmXVIIIbd}%                                         
\def\noexpand\it{\fam\itfam\cmXVIIIit}%                                         
\def\noexpand\tt{\fam\ttfam\cmXVIIItt}%                                         
\def\noexpand\cc{\fam\ccfam\cmXVIIIcc}%                                         
\def\noexpand\bi{\fam\bifam\cmXVIIIbi}%                                         
\noexpand\rm%                                                                   
\noexpand\nonIBM%                                                               
\noexpand\let\noexpand\italic=\noexpand\it%                                     
\noexpand\let\noexpand\bold=\noexpand\bd%                                       
\noexpand\let\noexpand\bolditalic=\noexpand\bi%                                 
\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 ilsxviii\noexpand\endcsname}}%