
%::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%                          Labels -- TeX Procedure
%::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%                          Author: E. V. Bell, II
%                    Department of Physics and Astronomy
%                           University of Kansas
%::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%                                   V1.0
%       This TeX file is designed to take a file with a list of of names
%       process a label for each name.
%::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

\input labform

\message{+----------------------------------------+}
\message{| Labels Version 1.0 -- 29 December 1986 |}
\message{+----------------------------------------+}

\newread\addressfile

\message{Enter name of file containing the addresses:}
\read-1 to\addfile
\openin\addressfile=\addfile

%::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%       Now read in an entry containing the person to whom to send the letter
%::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

\endlinechar=-1
\read\addressfile to\text \let\nickname=\text

\loop
    \read\addressfile to\text \let\fullname=\text
        \endlinechar='015
    \message{Now processing label for \addressee.}
    \getaddress
    \dolabel
        \endlinechar=-1
    \read\addressfile to\text \let\nickname=\text
    \ifeof\addressfile\endfalse\else\endtrue\fi
    \ifend
\repeat

\end

