% phone.tex -- by Frank Neukam (01 Dec 1993)

% phone.tex -- by Frank Neukam (01 Dec 1993)
% Generates a list of phone numbers from given .ADR file
% Remove `german' two lines below if german.sty is unavailable or useless

\documentstyle[german,12pt]{script_s}

\def\empty{}
\def\adrfile{}
\def\adrtitle{}

\typeout{}
\typeout{*** phone.tex v2.0 by Frank Neukam <01 Dec 1993> ***}
\typeout{}
\typein[\adrfile]{Name of .ADR file (without .ADR): }
\typeout{}
\typein[\adrtitle]{Title of the list of phone numbers: }
\typeout{}

\parindent 0pt
\pagestyle{empty}
\begin{document}
{\LARGE \sfb \null\hfill\adrtitle\hfill\null\par \vspace{3ex}}
\def\adrchar#1{\vspace{1ex}}
\def\adrentry#1#2#3#4#5#6#7#8{\setbox0\hbox{#4}
{\sc #1}%
\ifx #2\empty \else , #2\fi%
\ifx #7\empty \else \ (#7)\fi%
\ \dotfill\ \unhbox0\par}
\ifx\adrfile\empty \else \input\adrfile.adr\relax \fi
\end{document}