1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
% 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}
|
