%
%  \output hack for programmes (4-column rotated output)
%  Originally written by Andrew Greene, then completely rewritten
%  to do column balancing by Barr3y Jaspan.  Minor bug-fixing and
%  a few comments by Kevin Iga.
%  Re-adapted for R/O tours schedule by Kevin Iga

\def\vtalign#1{\setbox#1=\vbox to \vsize{\unvbox#1\vfill}}
\def\balance{\global\forcebalance=1}

\hsize=2.3in\vsize=8in\overfullrule=0pt\tolerance=10000\hbadness=5000%
%\hoffset=-0.7in\voffset=-0.5in%
\baselineskip=12pt
\newcount\col\col=0\newcount\forcebalance\forcebalance=0%
\newdimen\colheight\colheight=0pt%
\newbox\colA\newbox\colB\newbox\colC\newbox\colD\newbox\crapa\newbox\crapb
\newbox\colE
% The colA, colB, colC and colD are the 4 columns, and crapa and crapb
% are to balance the height of the last two if \balance is used.
%
\output={%
%\ifnum\outputpenalty=-'10000000000{} 
%\global\advance\col by 3\fi
\ifnum\forcebalance=1{}
\global\advance\col by 4\fi   % Do these separately in the ifcase statement

%---
%
\ifcase\col{}%
%
% Left column, left page
%
\global\setbox\colA=\vbox to 7.55in{\hbox{\box255}}
\global\col=1
\or
%
% Right column, left page
%
\global\setbox\colB=\vbox to 7.55in{\hbox{\box255}}
\global\col=2%
\or
%
% Left column, right page
%
\global\setbox\colC=\vbox to \vsize{\hbox{\box255}}
\global\col=3
\or
%
% Right column, right page
%
\global\setbox\colD=\vbox to \vsize{\hbox{\box255}}
\global\col=4
\or
%
% Bottom section
%
\shipout\vbox{\hbox{\box\colA\intercol\box\colB\intercol\box\colC\intercol\box\colD}\box255}
\global\advance\count0 by 1%
\global\col=0%  Repeat for the next page
\fi%
}%

%
%   Now for the info
%
\def\intercol{\hbox{\kern.1in\vrule height\vsize \kern.1in}}
\def\begincenter{\begingroup\leftskip=0pt plus 1fill \rightskip=0pt plus 1fill%
\obeylines}
\def\endcenter{\endgroup}

\font\ninerm=cmr9
\font\twelverm=cmr12
\font\seventeenrm=cmr17

\def\go#1#2#3#4#5#6{\vfil\vbox{{\twelverm\begincenter {\bf #1}\endcenter}

{#2\hfil}\break
{#3\hfil}\break
{#4\hfil}\break
{#5\hfil}\break
{\bf #6}}
\vskip 12pt
}
\ninerm
\baselineskip=9pt
\parskip\medskipamount
\parindent0pt
\hsize=1.7in\vsize=7.55in\hoffset=-.4in\voffset=1in
\special{psfile=tours-frame.ps}
