\global\newif\ifcmVIIIbierr                                                     
\font\cmVIIIcc=cmcsc8                                                           
\font\cmVIIIrm=cmr8 \font\cmVIIIit=cmti8                                        
\font\cmVIIIbd=cmbx8 \font\cmVIIImi=cmmi8                                       
\font\cmVIIItt=cmtt8                                                            
\expandafter\newdimen\csname\the\naMEtok ilsviii\endcsname                      
\global\csname\the\naMEtok ilsviii\endcsname=\bAseSkip                          
\ifdim\csname\the\naMEtok ilsviii\endcsname=0pt                                 
\csname\the\naMEtok ilsviii\endcsname=10pt\fi%                                  
\expandafter\xdef\csname\the\naMEtok\endcsname{%                                
\def\noexpand\rm{\fam0\cmVIIIrm}%                                               
\def\noexpand\mi{\fam1\cmVIIImi}%                                               
\def\noexpand\sy{\fam2\tensy}%                                                  
\def\noexpand\ex{\fam3\tenex}%                                                  
    \textfont0=\cmVIIIrm \textfont1=\cmVIIImi                                   
    \textfont2=\tensy \textfont3=\tenex                                         
    \textfont\itfam=\cmVIIIit                                                   
    \textfont\ttfam=\cmVIIItt \textfont\bffam=\cmVIIIbd                         
    \textfont\ccfam=\cmVIIIcc                                                   
\def\noexpand\bd{\fam\bffam\cmVIIIbd}%                                          
\def\noexpand\it{\fam\itfam\cmVIIIit}%                                          
\def\noexpand\tt{\fam\ttfam\cmVIIItt}%                                          
\def\noexpand\cc{\fam\ccfam\cmVIIIcc}%                                          
\def\noexpand\bi{\noexpand\ifcmVIIIbierr\noexpand\it%                           
\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %                  
No bold italic  font in CM8. Will print italic font .}%                         
\noexpand\global\noexpand\cmVIIIbierrtrue \noexpand\fi}%                        
\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 ilsviii\noexpand\endcsname}}%                      
