% This macro source file is from the four volume series % "TeX in Practice" by Stephan von Bechtolsheim, published % 1993 by Springer-Verlag, New York. % Copyright 1993 Stephan von Bechtolsheim. % No warranty or liability is assumed. % This macro may be copied freely if no fees other than % media cost or shipping charges are charged and as long % as this copyright and the following source code itself % is not changed. Please see the series for further information. % % Version: 1.0 % Date: May 1, 1993 % % % This source code is documented in 37.1.1, p. IV-160. % Original source in file "o4.TEX", starting line 69. \wlog{L: "out2-or.tip" ["o4.TEX," l. 69, p. IV-160]}% % This file DOES NOT belong to format "texip." \catcode`\@ = 11 \newbox\@LeftColumnBox \newbox\@RightColumnBox \newdimen\@PageWidth \def\SetUpDC #1#2#3{% \@PageWidth = #1 \hsize = #2 \vsize = #3 } \def\@PageLine{\hbox to \@PageWidth} \def\Header{% \@PageLine{% \it Some Header Text\hfil \PrintCurrentMonth\space \the\day, \the\year, Page~\the\pageno }% } \topskip = 10pt plus 60pt \let\@ColumnMode = L \def\supereject{% \eject \if\@ColumnMode R \hbox{} \vfill\eject \fi \end } \output = { \if\@ColumnMode L \global\setbox\@LeftColumnBox = \vbox to \vsize{ \unvbox 255 \vfil } \global\wd\@LeftColumnBox = \hsize \global\let\@ColumnMode = R \else \setbox\@RightColumnBox = \vbox to \vsize{ \unvbox 255 \vfil } \wd\@RightColumnBox = \hsize \shipout\vbox{ \Header \vskip 24pt \@PageLine{% \box\@LeftColumnBox \hfil \box\@RightColumnBox } } \advancepageno \global\let\@ColumnMode = L \fi } \catcode`\@ = 12