%
% 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"{\ttverbatim\continueverbatim}
\def\continueverbatim#1{\spaceskip\ttglue
\def\readit##1#1{##1\endgroup}\expandafter\readit}
%
% verbatim input macro, for inputting a complete file verbatim.
% Use \verbatiminput{filename} in much the same way as you would use
% \input filename.
%
\def^^L{\par}
  \def\verbatiminput#1{\begingroup \frenchspacing \raggedbottom
  \def\do##1{\catcode`##1=12 } \dospecials \catcode`\|=12
  \parskip 0pt \parindent 0pt
  \catcode`\ =\active \catcode`\^^M=\active
  \catcode`\^^L=\active \outer\def^^L{\eject}
  \tt \def\par{\ \endgraf} \obeylines \obeyspaces
  \input #1 \endgroup}
%