%to be invoked for doing 2-column output.
% lines have almost the same width as single-column pages
%  done with \magnification=\magstep1
%  Width of figures must be reduced 10 percent or so to be guaranteed to fit.
\newdimen\fullsize
\fullsize=\vsize \vsize=\hsize  
\advance\fullsize by 1truein  \advance \hoffset by -.5truein
\hsize=\fullsize \multiply \hsize by 12 \divide\hsize by 25
\advance \vsize by .25 truein \advance \voffset by -.2 truein
\let\lr=L \newbox\leftcolumn

\output={\if L\lr
    \global\setbox\leftcolumn=\columnbox \global\let\lr=R
   \else \doubleformat \global\let\lr=L\fi
   \ifnum\outputpenalty>-20000\else\dosupereject\fi}
   \def\doubleformat{\shipout
         \hbox to\fullsize{\box\leftcolumn\hfil\columnbox}  }
  
\def\columnbox{\leftline{\vbox{\makeheadline\pagebody\makefootline}}
               \advancepageno}
\outer\def\bye{\vfill\supereject\if R\lr \null\vfill\eject\fi\end}
\multiply \tolerance by 2