% S_Verbatim.TeX Macro 
% 
% macros for verbatim scanning 
\chardef\other=12 
\newskip\ttglue 
\ttglue=.5em plus.25em minus.15em 
\def\ttverbatim{\begingroup 
  \catcode`\\=\other 
  \catcode`\{=\other 
  \catcode`\}=\other 
  \catcode`\$=\other 
  \catcode`\&=\other 
  \catcode`\#=\other 
  \catcode`\%=\other 
  \catcode`\_=\other 
  \catcode`\^=\other 
  \catcode`\"=\other                   % this line is new stuff 
  \catcode`\|=\other 
  \catcode`\~=\other 
  \obeyspaces \obeylines \tt} 
  
\catcode`\"=\active 
\def"#1{\ttverbatim \spaceskip\ttglue% \let^^M=\ 
\def\readit##1#1{##1\endgroup}\expandafter\readit} 
%