summaryrefslogtreecommitdiff
path: root/obsolete/macros/latex209/contrib/script/phone.tex
blob: e58671e2684bb71dc2478c2b2526c2ca3f34d528 (plain)
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}