\global\newif\ifcmVIIIssbierr                                                   
\global\newif\ifcmVIIIssccerr                                                   
\global\newif\ifcmVIIIsstterr                                                   
\global\newif\ifcmVIIIssbderr                                                   
\font\cmVIIIssit=cmssi8                                                         
\font\cmVIIIssrm=cmss8 \font\cmVIIIssmi=cmmi8                                   
\font\cmVIIIsssy=cmsy8 \font\cmVIIIssex=cmex10                                  
\expandafter\newdimen\csname\the\naMEtok ilsviiiss\endcsname                    
\global\csname\the\naMEtok ilsviiiss\endcsname=\bAseSkip                        
\ifdim\csname\the\naMEtok ilsviiiss\endcsname=0pt                               
\csname\the\naMEtok ilsviiiss\endcsname=10pt\fi%                                
\expandafter\xdef\csname\the\naMEtok\endcsname{%                                
\def\noexpand\rm{\fam0\cmVIIIssrm}%                                             
\def\noexpand\mi{\fam1\cmVIIIssmi}%                                             
\def\noexpand\sy{\fam2\cmVIIIsssy}%                                             
\def\noexpand\ex{\fam3\cmVIIIssex}%                                             
    \textfont0=\cmVIIIssrm \textfont1=\cmVIIIssmi                               
    \textfont2=\cmVIIIsssy \textfont3=\cmVIIIssex                               
    \textfont\itfam=\cmVIIIssit                                                 
\def\noexpand\it{\fam\itfam\cmVIIIssit}%                                        
\def\noexpand\bd{\noexpand\ifcmVIIIssbderr\noexpand\rm%                         
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No bold font in CMSAN8. Will print roman font .}%                               
\noexpand\global\noexpand\cmVIIIssbderrtrue \noexpand\fi}%                      
\def\noexpand\bi{\noexpand\ifcmVIIIssbierr\noexpand\it%                         
\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %                  
No bold italic  font in CMSAN8. Will print italic font .}%                      
\noexpand\global\noexpand\cmVIIIssbierrtrue \noexpand\fi}%                      
\def\noexpand\tt{\noexpand\ifcmVIIIsstterr\noexpand\rm%                         
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No typewriter  font in CMSAN8. Will print roman font .}%                        
\noexpand\global\noexpand\cmVIIIsstterrtrue \noexpand\fi}%                      
\def\noexpand\cc{\noexpand\ifcmVIIIssccerr\noexpand\rm%                         
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No small caps  font in CMSAN8. Will print roman font .}%                        
\noexpand\global\noexpand\cmVIIIssccerrtrue \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 ilsviiiss\noexpand\endcsname}}%