%% 
%% This is file `scraddr.sty',
%% generated with the docstrip utility.
%% 
%% The original source files were:
%% 
%% scrlettr.dtx  (with options: `scraddr')
%% 
%% Copyright 1994-1996 Axel Kielhorn, Markus Kohm and Frank Neukam. 
%% 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-1996. 
%% ------------------------------------------------------------- 
%% 
%% 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. 
%% 
\ProvidesPackage{scraddr}
              [1996/01/22 v1.0 LaTeX2e KOMA package]
\ExecuteOptions\relax
\ProcessOptions\relax
\newcommand{\InputAddressFile}[1]{\begingroup
  \def\adrentry##1##2##3##4##5##6##7##8{%
    \def\@tempa{##8}\ifx\@tempa\@empty\else
      \expandafter\gdef\csname ##8.LN\endcsname{##1}
      \expandafter\gdef\csname ##8.FN\endcsname{##2}
      \expandafter\gdef\csname ##8.A\endcsname{##3}
      \expandafter\gdef\csname ##8.P\endcsname{##4}
      \expandafter\gdef\csname ##8.FI\endcsname{##5}
      \expandafter\gdef\csname ##8.FII\endcsname{##6}
      \expandafter\gdef\csname ##8.C\endcsname{##7}
    \fi}
  \InputIfFileExists{#1.adr}
                    {\typeout{Load addressfile: #1.adr.}}
                    {\PackageError{scraddr}
                                  {File #1.adr not found}
                                  {The addressfile you wanted is not
                                   available}}
  \endgroup}
\newcommand*{\Name}[1]{\FirstName{#1}\ \LastName{#1}}
\newcommand*{\FirstName}[1]{\csname #1.FN\endcsname}
\newcommand*{\LastName}[1]{\csname #1.LN\endcsname}
\newcommand*{\Address}[1]{\csname #1.A\endcsname}
\newcommand*{\Telephone}[1]{\csname #1.P\endcsname}
\newcommand*{\FreeI}[1]{\csname #1.FI\endcsname}
\newcommand*{\FreeII}[1]{\csname #1.FII\endcsname}
\newcommand*{\Comment}[1]{\csname #1.C\endcsname}
\endinput
%% 
%% End of file `scraddr.sty'.
