\global\newif\ifcmVIbierr                                                       
\global\newif\ifcmVIccerr                                                       
\global\newif\ifcmVIiterr                                                       
\global\newif\ifcmVItterr                                                       
\font\cmVIrm=cmr6                                                               
\font\cmVIbd=cmbx6 \font\cmVImi=cmmi6                                           
\font\sixsy=cmsy6                                                               
\expandafter\newdimen\csname\the\naMEtok ilsvi\endcsname                        
\global\csname\the\naMEtok ilsvi\endcsname=\bAseSkip                            
\ifdim\csname\the\naMEtok ilsvi\endcsname=0pt                                   
\csname\the\naMEtok ilsvi\endcsname=8pt\fi%                                     
\expandafter\xdef\csname\the\naMEtok\endcsname{%                                
\def\noexpand\rm{\fam0\cmVIrm}%                                                 
\def\noexpand\mi{\fam1\cmVImi}%                                                 
\def\noexpand\sy{\fam2\sixsy}%                                                  
\def\noexpand\ex{\fam3\tenex}%                                                  
    \textfont0=\cmVIrm \textfont1=\cmVImi                                       
    \textfont2=\tensy \textfont3=\tenex                                         
    \textfont\bffam=\cmVIbd                                                     
\def\noexpand\bd{\fam\bffam\cmVIbd}%                                            
\def\noexpand\it{\noexpand\ifcmVIiterr\noexpand\rm%                             
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No italic  font in CM6. Will print roman font.}%                                
\noexpand\global\noexpand\cmVIiterrtrue \noexpand\fi}%                          
\def\noexpand\bi{\noexpand\ifcmVIbierr\noexpand\rm%                             
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No bold italic  font in CM6. Will print roman font.}%                           
\noexpand\global\noexpand\cmVIbierrtrue \noexpand\fi}%                          
\def\noexpand\cc{\noexpand\ifcmVIccerr\noexpand\rm%                             
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No small caps font  in CM6. Will print roman font.}%                            
\noexpand\global\noexpand\cmVIccerrtrue \noexpand\fi}%                          
\def\noexpand\tt{\noexpand\ifcmVItterr\noexpand\rm%                             
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No typewriter font  in CM6. Will print roman font.}%                            
\noexpand\global\noexpand\cmVItterrtrue \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 ilsvi\noexpand\endcsname}}%                        
