% ---------------------------------------------------------------------------
% 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