% ---------------------------------------------------------------------------
% This is an additional set of TeX macros for neat typesetting of METAFONT
% documents produced by PS_CONV utility. It makes use of an archaic
% Frank Mittelbach's multicolumn format adapted to plain TeX.
% Also, PL.MFT from the MeX package should be used instead of PLAIN.MFT
% from the standard TeX distribution. In order to use MFTFORM macros
% you need to insert the following line
% `%%\input mftform'
% in your METAFONT source.
% More information is not needed, as the user is supposed to be familiar with
% Donald E. Knuth's MFT utility.
% ---------------------------------------------------------------------------
% Authors: B. Jackowski and P. Pianowski
% ---------------------------------------------------------------------------
% Version 1.0, Friday, November 3rd, 1995
% ---------------------------------------------------------------------------
% This little product belongs a public domain. No rights reserved.
% ---------------------------------------------------------------------------
\def\TI{\hbox{$\sim$}}
\input mimulcol
% ------------------------- MIMULCOL adjustments ----------------------------
\newcount\COLS \COLS4 % default number of columns
\def\EMU{\vfill\null\endmulticols}
\def\BMU#1{\beginmulticols #1}
{\catcode`\@11
\gdef\adjust@PLAIN{%
\newlinechar=`\^^J
\columnwidth\hsize \textwidth\hsize
\@colht\vsize \@colroom\vsize % NO FLOATs PLEASE!
\def\makefootline{\baselineskip18pt\null\hrule\null\baselineskip12pt
\hbox to \textwidth{\it\oktime\quad \the\day\ \monthnazwa\ \the\year\
\hfill\llap{\tentex page \the\pageno}}}
\headline{\vbox to 0pt{\vss
\rlap{\hbox to \textwidth{\hss\TT\uppercase\expandafter{\jobname.mf}}}
\vskip5mm}\hss}
\def\pagebody{\vbox to\@colht{\boxmaxdepth\maxdepth \pagecontents}}
\def\vfootnote##1{\insert\footins\bgroup
\hsize=\textwidth
\interlinepenalty\interfootnotelinepenalty
\splittopskip\ht\strutbox % top baseline for broken footnotes
\splitmaxdepth\dp\strutbox \floatingpenalty\@MM
\leftskip\z@skip \rightskip\z@skip \spaceskip\z@skip \xspaceskip\z@skip
\textindent{##1}\footstrut\futurelet\next\fo@t}
}
}
\vfuzz5pt \raggedcolumns \columnsep3pt
% ------------------------- B E L M S formatting ----------------------------
\let\ntwo\2
\def\lB{B}\def\lE{E}\def\lL{L}\def\lM{M}\def\lS{S}
\def\2#1{\def\twop{#1}%
\let\NEXT\ntwo
\ifx\twop\lB\let\NEXT\xtwo\fi
\ifx\twop\lE\let\NEXT\xtwo\fi
\ifx\twop\lL\let\NEXT\xtwo\fi
\ifx\twop\lM\let\NEXT\xtwo\fi
\ifx\twop\lS\let\NEXT\xtwo\fi
\NEXT\twop}
\newcount\xtwop
\def\xtwo#1{\afterassignment\XTWO \xtwop = }
\def\XTWO{\ntwo\twop_{\the\xtwop}}
\endinput
