%%
%% Für Ausgabe der Adreßlisten
%%

\magnification=\magstep0
\font\ownfont=cmss8
\font\big=cmr12
\font\bigfat=cmbx12
\nopagenumbers

\input german.sty

\hsize=16truecm
\vsize=24truecm
\hoffset=0cm
\voffset=0pt

\chardef\atcode=\catcode`\@
\catcode`\@=11 % \makeatletter

\def\date#1{\def\@date{#1}} \def\@date{\today}

\headline={\vbox{\hbox to \hsize{\bigfat\headname\hfil\@date}\vskip 2mm\hrule}}

\footline={\vbox{\hrule\vskip 2mm\hbox to \hsize{\hfil \pagename\ \folio\hfil}}}

%
% einzeilige Ausgabe für Telefon- und Faxliste
%
\def\phoneline|#1|#2|{\item{}#1\dotfill#2}% Name und Telefonnummer

%
% Überschrift der neuen Kategorie
%
\def\category|#1|{\bigskip\leftline{\big #1}\bigskip}% Kategorie

%
% ganzes Adreßfeld
%
% #1 - Anrede
% #2 - Adresse
% #3 - Adresse
% #4 - Adresse
% #5 - Adresse
% #6 - Kundennummer
% #7 - Telefon
% #8 - Fax
%
\def\addressfield|#1|#2|#3|#4|#5|#6|#7|#8|{%
  #1 (Kundennr. #6)\par #2\par #3\par #4\par #5\par%
    Tel: #7, Fax: #8\par%
\bigskip
}%

%
% einzeilige Ausgabe für Artikelliste
%
\def\articleline|#1|#2|{\item{}#1\dotfill#2}% Bezeichnung und Betrag

\catcode`\@=\atcode % return to previous catcode