%% 
%% This is file `phone.tex', generated 
%% on <1995/4/9> with the docstrip utility (2.2i).
%% 
%% The original source files were:
%% 
%% komascr.dtx  (with options: `phone')
%% 
%% Copyright 1994 Markus Kohm, Frank Neukam and the individual authors. 
%% All rights reserved. For further copyright information see the file 
%% readme.txt or liesmich.txt, and any other copyright indicated in this 
%% file. 
%% 
%% This file is part of the LaTeX2e KOMA-Script-bundle. 
%% ---------------------------------------------------- 
%% 
%% The KOMA-Script-bundle bases on the Script-family created by 
%% Frank Neukam 1993 and the standard documents classes created 
%% by the LaTeX3-Team 1994. 
%% ------------------------------------------------------------- 
%% 
%% This system is distributed in the hope that it will be useful, 
%% but WITHOUT ANY WARRANTY; without even the implied warranty of 
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
%% 
%% 
%% IMPORTANT NOTICE: 
%% 
%% For error reports in case of UNCHANGED versions see documentation. 
%% 
%% Please do not request updates from us directly. Distribution is 
%% done through Mail-Servers, Mailboxes and TeX organizations. 
%% 
%% You are not allowed to change this file. 
%% 
%% You are allowed to distribute this file under the condition that 
%% it is distributed together with all files mentioned in readme.txt 
%% and liesmich.txt. 
%% 
%% If you receive only some of these files from someone, complain! 
%% 
%% You are NOT ALLOWED to distribute this file alone. You are NOT 
%% ALLOWED to take money for the distribution or use of either this 
%% file or a changed version, except for a nominal charge for copying 
%% etc. 
%% 
\ProvidesFile{phone.tex}
              [1994/12/31 v2.1b LaTeX2e KOMA
              interactiv phone-number-directory generation]
\documentclass[12pt]{scrartcl}
\newcommand\j  {j}
\newcommand\ja {ja}
\newcommand\y  {y}
\newcommand\yes{yes}
\newcommand\WantKnow[2]{\typein[#2]{#1}}
\newif\ifDecision
\newcommand\adrfile{}
\newcommand\adrtitle{}
\typeout{^^J%
 *** phone.tex v2.0 by Frank Neukam <01 Dec 1993>^^J%
         *** LaTeX2e-changes by Markus Kohm 1994/10/29^^J%
         ^^J%
 To create a phone-number-list just answer the questions:^^J%
         ^^J}
\WantKnow{Use german? [y/n]^^J%
          Mit deutscher Sprachanpassung? [j/n]}{\answer}
\ifx\j  \answer\Decisiontrue\else
\ifx\ja \answer\Decisiontrue\else
\ifx\y  \answer\Decisiontrue\else
\ifx\yes\answer\Decisiontrue\else
               \Decisionfalse\fi\fi\fi\fi
\ifDecision
     \usepackage{german}
\fi
\InputIfFileExists{phone.cfg}{%
     \typeout{Load local configuration-file dir.cfg.}{%
     \typeout{No local configuration-file dir.cfg found.}
\WantKnow{^^J%
          Name of address-file (without .adr)?^^J%
          Name der Adressdatei (ohne .adr)?}{\adrfile}
\WantKnow{^^J%
          Title of directory/list?^^J%
          Titel des Verzeichnisses?}{\adrtitle}
\parindent 0in
\pagestyle{empty}
\begin{document}
\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
     \InputIfFileExists{\adrfile.adr}{%
{\LARGE \sfb \null\hfill\adrtitle\hfill\null\par \vspace{3ex}}
     }{%
     \typeout{^^J%
              *** File \adrfile.adr not found!^^J%
              *** Datei \adrfile.adr nicht gefunden!^^J%
              ^^J}
     }
\fi
\end{document}
\endinput
%% 
%% End of file `phone.tex'.