\ifx\selectfont\undefined
  \documentstyle[newdoc,twoside]{article}
\else
  \documentstyle[oldlfont,newdoc,twoside]{article}
\fi
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% The next section defines a few font related commands if the
%% new font selection scheme is in force.
%%
%% Additionally you have to use the oldlfont option because this was
%% written for the old LaTeX.
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
\ifx \selectfont\undefined \else
 
\newcommand{\tensl}
  {\family{cmr}\series{m}\shape{sl}\size{10}{12pt}\selectfont}
 
\fi
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%%  The next few lines are for those with a new TeX 3.0 to ensure
%%  that hyphenation etc. is done correctly.
%%
 
\ifx \lefthyphenmin\undefined \else
 \lefthyphenmin=2
 \righthyphenmin=3
 \errorcontextlines=1
\fi
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%%  Now we are changing a few parameters for our own purposes
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%  \onecolumn
\sloppy
\setlength{\columnsep}{1.5pc}        % space between columns
\setlength{\columnwidth}{18.75pc}    % width of each column
\setlength{\parindent}{20pt}         % paragraph indent
\setlength{\parskip}{0pt}            % no inter-paragraph space
\setlength{\leftmargini}{2em}        % unchanged
\setlength{\leftmarginv}{.5em}       % unchanged
\setlength{\leftmarginvi}{.5em}      % unchanged
\setlength{\oddsidemargin}{0pt}      % was 42pt
\setlength{\evensidemargin}{0pt}     % was 84pt
\setlength{\topmargin}{-2.5pc}       % was 0pt
\setlength{\headheight}{12pt}        % height of running head, unchanged
\setlength{\headsep}{20pt}           % distance between header and text
\setlength{\marginparwidth}{48pt}    % don't use marginal notes
\setlength{\marginparsep}{10pt}      %  in TUGboat
\setlength{\textheight}{54pc}        % height of text on page
\setlength{\textwidth}{39pc}         % total width of a page
\twocolumn              % two columns %FMi placed after setting of \textwidth
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%%  And finally some definitions for the doc style
%%  to get this special article right.
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 

\newcommand{\SelfDocumenting}{%
  \setlength{\textwidth}{31pc}
  \onecolumn
  \setlength{\parindent}{0pt}
  \setlength{\parskip}{2pt plus 1pt minus 1pt}
  \setlength{\oddsidemargin}{8pc}
  \setlength{\evensidemargin}{8pc}}

\pagestyle{myheadings}
\setcounter{IndexColumns}{2}               % two column index
%\let\DescribeMacro\SpecialUsageIndex       % \
%\let\DescribeEnv\SpecialEnvIndex           %   > no marginal notes
%\renewcommand{\PrintMacroName}[1]{}        % /
 
\renewcommand{\theCodelineNo}{{\rm\tiny\arabic{CodelineNo}}}

\MakeShortverb{\|}
 
\DisableCrossrefs                         % No Cross references
%\EnableCrossrefs
 
%\OnlyDescription                         % Full article
 
%\RecordChanges                           % Do not print changes
 
\CodelineIndex                            % Code lines numbered
 
 
\begin{document}
  \DocInput{verbatim.doc}
  \setcounter{section}{0}
  \twocolumn                           % two columns
  \setlength{\textwidth}{39pc}         % total width of a page
  \setlength{\parindent}{20pt}         % paragraph indent
  \setlength{\parskip}{0pt}            % no inter-paragraph space
  \setlength{\oddsidemargin}{0pt}      % was 42pt
  \setlength{\evensidemargin}{0pt}     % was 84pt
  \DocInput{vrbinput.doc}
  \newpage
  \PrintIndex
\end{document}