% briefe.sty
% Abgeleitet aus verein.sty mit einigen neuen Adressen ohne
% das ganze Vereinszeug
%
\usepackage{record}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[german]{babel}
\ifx\xspace\undefined\usepackage{xspace}\else\relax\fi

\usepackage[official,right]{eurosym}
\def\EUR{\,\euro\xspace}

\parindent0pt
\pagestyle{empty}

% Zur Änderung des Layouts von dinbrief.sty
\newif\ifdinbrief
\expandafter\ifx\csname ver@dinbrief.cls\endcsname\relax
   \dinbrieffalse
\else
   \dinbrieftrue
\fi

\newif\ifwindowcircle
\windowcircletrue
\newif\ifonewindowtic
\onewindowtictrue
\newif\ifwindowempty
\windowemptyfalse

% Anfang der Layoutänderung von dinbrief.cls
% \addtolength{\topmargin}{2mm}
\newcommand{\docircle}{\vbox to 0.9mm{\hbox to 0pt{\hss$\circ$\hss}\vss}}

\newcommand{\atwindow}{%
  \vbox to 0pt{\vss%
    \ifwindowcircle\relax\else
       \ifka@db@windowrules
         \hbox to 0pt{\hspace*{-4truemm}\vbox{\hrule width 85truemm}\hss}%
       \else
         \hbox to 0pt{\hss}%
       \fi
    \fi
    \vss
  }%
  \nointerlineskip
  \ifx\@empty\@backaddress
    \vbox to 7.5truemm{%
      \vfill
    }%
    \nointerlineskip
  \else
    \vbox to 7.5truemm{%
      \vskip 2.5truemm
      \vss
      \hbox to 0pt{\hspace*{-4truemm}%
        \vbox{%
          \hbox to 85truemm{\hfill
                            {\ka@db@bafntsel\@backaddress}\hfill}%
          \ifwindowempty\relax\else%
             \hrule width 85truemm%
          \fi%
        }\hss}%
      % \vss % <- removed to get exact layout
    }%
    \nointerlineskip
  \fi
  \vbox to 40truemm{%
    \vss
    \hbox to 0pt{\hskip0pt minus 4truemm%
      \setbox\@tempboxa=\vbox{%
        \if@letterform
          \relax
        \else
          % \typeout{Start dumping \string\@addresslist}%
          \leavevmode
          \ka@db@ifemptyvarlocal{postremark}{}{%
            \ka@db@usevarlocal{postremark}\\[\medskipamount]
          }%
          \raggedright \@addresslist %\toname \\ \toaddress%
          % \typeout{End dumping \string\@addresslist}%
        \fi
      }%
      \ifdim\ht\@tempboxa>40mm
        %\@warning{Receivers address is larger than letter window}%
        \ClassWarning{dinbrief}{%
          Receivers address is larger than letter window}%
      \else
        \setbox\@tempboxa=\vbox{%
          \hbox{%
            \ifdim\ka@db@indadr>0pt
              \else
                \hbox to 0pt{\hskip4in\ka@db@usevarlocal{handling}\hss}%
              \fi
            %\unvbox\@tempboxa
            \box\@tempboxa
          }%
          \if@toadrcenter\relax
            \else\vskip 2.5truemm minus 2.5truemm
          \fi
        }%
      \fi
      \box\@tempboxa
      \hss
    }%
    \if@toadrcenter
      \vss
    \fi
  }\nointerlineskip
  \vskip 2.5truemm
  \ifwindowempty\relax\else%
    \vbox to 0pt{\vss%
      \ifwindowcircle
         \hbox to 0pt{\hspace*{-4truemm}\docircle%
                                        \hbox to 85truemm{\hfil}%
                                        \kern-1mm% sorry for quick and dirty
                                        \hbox{\docircle}\hss}%
      \else
         \ifka@db@windowrules
           \hbox to 0pt{\hspace*{-4truemm}\vbox{\hrule width 85truemm}\hss}%
         \else
           \hbox to 0pt{\hss}%
         \fi
      \fi
      \vss
    }%
  \fi%
  \nointerlineskip
}

\newcommand{\atwintic}{%
    \vbox to 0pt{%  Strich
     \rule{0pt}{81.1truemm}% 62.5truemm > 80.0truemm
     \hbox to 0pt{\hspace*{-24truemm}\vbox{\hrule width 7truemm}\hss}%
     \vss}\nointerlineskip
    \vbox to 0pt{\rule{0pt}{124.6truemm}% leer
     \hbox to 0pt{\vbox{\hrule width 0pt}\hss}%
     \vss}\nointerlineskip
    \vbox to 0pt{\rule{0pt}{186.1truemm}% leer
     \hbox to 0pt{\vbox{\hrule width 0pt}\hss}%
     \vss}\nointerlineskip
}

\ifdinbrief
   \setlength{\topmargin}{-15pt}
   \offlabels
   \let\oldka@db@tstoaddress=\ka@db@tstoaddress
   \renewcommand{\ka@db@tstoaddress}{\ifwindowcircle\atwindow\relax\else
                                                    \oldka@db@tstoaddress\fi}
   \let\oldka@db@tswindowtics=\ka@db@tswindowtics
   \renewcommand{\ka@db@tswindowtics}{\ifonewindowtic\atwintic\relax\else
                                                     \oldka@db@tswindowtics\fi}

   % Ende der Layoutänderung von dinbrief.cls
\else
   \usepackage{a4new}
   \addtolength{\voffset}{-10mm}
   \addtolength{\oddsidemargin}{-5mm}
\fi
% Ende der Layoutänderung von dinbrief.cls

\newif\ifat@ltxtwoe
\newcommand{\at@anrede@satzzeichen}{,}
\newcommand{\AltAnredeStil}{\renewcommand{\at@anrede@satzzeichen}{!}}
\newcommand{\OhneAnrede}{\renewcommand{\at@anrede@satzzeichen}{}}
\newlength\at@platz\at@platz0pt
\newcommand{\Platz}{\at@platz2cm}
\newcommand{\mehrPlatz}[1]{\at@platz#1}

\font\phonefont=phone10
\newcommand{\telefon}{{\phonefont\char0}\xspace}

\ifdinbrief% Falls dinbrief.cls geladen ist:
% privat
   \newcommand{\at@orkt}{Andreas}
   \newcommand{\at@contacts}{Andreas}
   \newcommand{\at@email}{andreas@fam-tille.de}
   \newcommand{\at@web}{http://www.fam-tille.de/}
   \newcommand{\Katrin}{\global\def\at@orkt{Dr.~Katrin}\global\def\at@contacts{Katrin}}
   \newcommand{\Alex}{\global\def\at@orkt{Alexander}\global\def\at@contacts{Alexander}}
   \newcommand{\Debian}{\global\def\at@email{tille@debian.org}\global\def\at@web{http://www.debian.org}}
   \newcommand{\Familie}{\global\def\at@orkt{Andreas und Dr.~Katrin}}
   \newcommand{\at@germany}{\relax}
   \newcommand{\at@phonestring}{\telefon}%{Tel.}
   \newcommand{\at@phone}{03943-47966}
   \newcommand{\at@phone@work}{$\hphantom{\mbox{\scriptsize Tel.}}$ (dienstlich) 03018-754\,4299}
   \newcommand{\Ausland}{\renewcommand{\at@germany}{Germany\\}
                \renewcommand{\at@phone}{: +49\,345\,47966}
                %\renewcommand{\at@phonestring}{phone:\ }
                \renewcommand{\at@phone@work}{$\hphantom{\mbox{\scriptsize \at@phonestring}}$ (work): +49\,3018-754\,4299}
               }
   \newcommand{\at@atorktaddress}{\setbox0=\hbox{\scriptsize\at@phone@work}
               \hbox to \hsize{\hfill
                  \parbox{\wd0}{
                      \vspace*{1cm}
                      \at@orkt{} Tille\\
                      Krausestraße 8\\
                      38855 Wernigerode \\
                      \at@germany
                      \hbox to 1mm{\hfil}\par
                      \scriptsize \at@phonestring
                      \newcommand{\test}{Andreas}%
                      \ifx\test\at@contacts%
                         (privat) \at@phone \\%
                         \box0 \\%
                         {\scriptsize E-Mail: \at@email} \\%
                         {\scriptsize \at@web}
                      \else%
%                         \parbox[t]{2cm}{
%                           (dienstlich) 03941-5674911 \\%
                           (privat) 03943-47966 \\%
                         {\scriptsize E-Mail: TilleK@gmail.com} \\%
%                         }
                      \fi
                      \par%
                  }
               }
   }
   \newcommand{\at@alexaddress}{\setbox0=\hbox{\scriptsize E-Mail: tillealex@googlemail.com}
               \hbox to \hsize{\hfill
                  \parbox{\wd0}{
                      \vspace*{1cm}
                      Alexander Tille\\
                      R.-Zimmermann-Str.\,1\\
                      07747 Jena \\
                      \at@germany
                      \newcommand{\test}{Alex}%
                      \hbox to 1mm{\hfil}\par
                      \scriptsize Tel. 0364-15316727 \\%
                      mobil. 015776425784 \\%
                      \box0 \\%
                      \par%
                  }
               }
   }
   \newcommand{\at@nadjaaddress}{\setbox0=\hbox{\scriptsize E-Mail: nadja.tille90@gmail.com }
               \hbox to \hsize{\hfill
                  \parbox{\wd0}{
                      \vspace*{1cm}
                      Alexander Tille\\
                      R.-Zimmermann-Str.\,1\\
                      07747 Jena \\
                      \at@germany
                      \newcommand{\test}{Nadja}%
                      \hbox to 1mm{\hfil}\par
                      \scriptsize Tel. 0364-15316727 \\%
                      mobil. 015202560508 \\%
                      \box0 \\%
                      \par%
                  }
               }
   }
   \newenvironment{atBrief}[1]{%
      \windowcirclefalse%
      \address{\at@atorktaddress}
      \backaddress{\scriptsize\sf \at@orkt\,Tille,
                   Krausestraße 8, 38855 Wernigerode
                   \rule[-1ex]{0pt}{0pt}\hss}
      \begin{letter}{\Adresse\\\hfill}
      \opening{\Anrede\at@anrede@satzzeichen}
      \newcommand{\at@test}{#1}
   }{
      \ifx\at@test\@empty\relax\else%
      \at@grusz\at@test\fi%
      \ifx\at@ps\@empty\relax\else%
      
      \at@ps\fi%
      \end{letter}
   }
   \newenvironment{atBriefNoStreet}[1]{%
      \windowcirclefalse%
      \address{\at@atorktaddress}
      \backaddress{\scriptsize\sf \at@orkt\,Tille,
                   38855 Wernigerode
                   \rule[-1ex]{0pt}{0pt}\hss}
      \begin{letter}{\Adresse\\\hfill}
      \opening{\Anrede\at@anrede@satzzeichen}
      \newcommand{\at@test}{#1}
   }{
      \ifx\at@test\@empty\relax\else%
      \at@grusz\at@test\fi%
      \ifx\at@ps\@empty\relax\else%
      
      \at@ps\fi%
      \end{letter}
   }
   \newenvironment{AlexBrief}[1]{%
      \windowcirclefalse%
      \address{\at@alexaddress}
      \backaddress{\scriptsize\sf Alexander Tille,
                   Richard-Zimmermann-Str. 1, 07747 Jena
                   \rule[-1ex]{0pt}{0pt}\hss}
      \begin{letter}{\Adresse\\\hfill}
      \opening{\Anrede\at@anrede@satzzeichen}
      \newcommand{\at@test}{#1}
   }{
      \ifx\at@test\@empty\relax\else%
      \at@grusz\at@test\fi%
      \ifx\at@ps\@empty\relax\else%
      
      \at@ps\fi%
      \end{letter}
   }
   \newenvironment{NadjaBrief}[1]{%
      \windowcirclefalse%
      \address{\at@nadjaaddress}
      \backaddress{\scriptsize\sf Naja Tille,
                   Richard-Zimmermann-Str. 1, 07747 Jena
                   \rule[-1ex]{0pt}{0pt}\hss}
      \begin{letter}{\Adresse\\\hfill}
      \opening{\Anrede\at@anrede@satzzeichen}
      \newcommand{\at@test}{#1}
   }{
      \ifx\at@test\@empty\relax\else%
      \at@grusz\at@test\fi%
      \ifx\at@ps\@empty\relax\else%
      
      \at@ps\fi%
      \end{letter}
   }
   \newenvironment{RKIBrief}[1]{%
      \windowcirclefalse%
      \address{\parbox{5.5cm}{
              \vspace*{1cm}Andreas Tille\\
	       Robert Koch-Institut \\
               Burgstraße 37 \\
               38855 Wernigerode}}
      \backaddress{\scriptsize\sf \at@orkt\,Tille, RKI,
                   Burgstr. 37, 38855 Wernigerode
                   \rule[-1ex]{0pt}{0pt}\hss}
      \begin{letter}{\Adresse\\\hfill}
      \opening{\Anrede\at@anrede@satzzeichen}
      \newcommand{\at@test}{#1}
   }{
      \ifx\at@test\@empty\relax\else%
      \at@grusz\at@test\fi%
      \end{letter}
   }
% Elternrat
   \newenvironment{ERatBrief}[1]{%
      \windowcirclefalse%
      \address{\parbox{5.5cm}{
              \vspace*{1cm}Elternvertreter der Klasse 2e \\
               der Diesterwegschule Wernigerode \\
               Herr von Rosenberg \\
               Walther-Rathenau-Straße 14}}
      \backaddress{\scriptsize\sf Eberhard von Rosenberg,
                   Walther-Rathenau-Straße 14, 38855 Wernigerode
                   \rule[-1ex]{0pt}{0pt}\hss}
      \begin{letter}{\Adresse\\\hfill}
      \opening{\Anrede\at@anrede@satzzeichen}
      \newcommand{\at@test}{#1}
   }{
      \ifx\at@test\@empty\relax\else%
      \at@grusz\at@test\fi%
      \end{letter}
   }

% Briefe für irgenwelche anderen Leute (kein Zwitschern, kein Absender, ...)
   \newcommand{\sonstwer}[2]{\def\at@sonstweraddress{#1}
                     \def\at@backsonstweraddress{#2}}
   \newenvironment{sonstwerBrief}[1]{%
      \windowcirclefalse
      \address{\hfill\parbox{6cm}{\at@sonstweraddress}}
      \backaddress{\scriptsize\sf%
                   \at@backsonstweraddress
                   \rule[-1ex]{0pt}{0pt}\hss}
      \begin{letter}{\Adresse\\\hfill}
      \opening{\Anrede\at@anrede@satzzeichen}
      \def\at@test{#1}
   }{
      \ifx\at@test\@empty\relax\else%
      \freundlich\at@test\fi%
      \end{letter}
   }
\else% falls dinbrief.cls nicht geladen ist
   \at@ltxtwoefalse
   \expandafter\ifx\csname documentclass\endcsname\relax\else
       \at@ltxtwoetrue
   \fi
   \newcommand{\bunt}{\typeout{Es existieren nur bunte Kopfbögen im dinbrief Format.}}

% Fußtext betreffender Ausschnitt aus dinbrief.cls
   \ifat@ltxtwoe
       \relax
     \else
       \footheight 4.2truemm
     \fi
   \footskip 8.8truemm
   \raggedbottom

   \newdimen\dbottomtext
   \dbottomtext=251.0truemm
   \newcommand{\ka@db@tsbottomtext}{%
     \ifdim\ht\@@bottomtext>0pt
       \vbox to 0pt{%
         \rule{0pt}{\dbottomtext}% 243.5truemm
         \unhcopy\@@bottomtext
         \vss
       }\nointerlineskip%
     \fi
   }

   \newcommand{\at@fusztext}{%
     \ifat@ltxtwoe
        \enlargethispage{-\ht\@@bottomtext}
     \fi
     \vbox to 0pt{\ka@db@tsbottomtext\vss}\nointerlineskip
   }

   \newbox\@@bottomtext
   \setbox\@@bottomtext=\vbox to 0pt{}
   \long\def\bottomtext#1{%
     \ifat@ltxtwoe \relax \else
         \@@warning{\string\bottomtext \space is reserving space for
                    typesetting its argument only in case of LaTeX 2e.
                    With other LaTeX formats you will have to place a
                    \string\clearpage-command at the appropriate position}%
     \fi
     \setbox\@@bottomtext=\hbox to 0pt{\hskip0pt minus 4truemm%
          \vbox{\raggedright #1}%
          \hss}%
     }
% Ende Fußtext betreffender Ausschnitt aus dinbrief.cls

% Datum betreffender Ausschnitt aus dinbrief.cls
   \renewcommand{\date}[1]{\gdef\@date{#1}\gdef\@ntoday{#1}}
   \renewcommand{\@date}{\today}

   \renewcommand{\today}{\number\day.\space\ifcase\month\or
     Januar\or Februar\or M\"arz\or April\or Mai\or Juni\or
     Juli\or August\or September\or Oktober\or November\or Dezember\fi
     \space\number\year}
   \newcount\yearcnt
   \yearcnt=\year
   \advance\yearcnt-\number1900
   \newcommand{\@znumber}[1]{\ifnum\number#1<10 0\number#1\else\number#1\fi}
   \newcommand{\ntoday}{\@znumber{\number\day}.%
               \@znumber{\number\month}.%
               \@znumber{\the\yearcnt}}
   \newcommand{\@ntoday}{\ntoday}

   \newcommand{\Datum}[1]{%
     \date{#1}%
   }

   \newcommand{\place}[1]{\gdef\@place{#1}}
   \newcommand{\@place}{}
% Ende Datum betreffender Ausschnitt aus dinbrief.cls

   \newcommand{\@concern}{}

   \newbox\@betr
   \long\def\Betreff#1{%
     \setbox\@betr=\hbox{}
     \renewcommand{\@concern}{\hangindent=\wd\@betr
                   \hangafter=1
                   \unhbox\@betr {\bf #1}\par}
   }

\fi% Ende der Definitionen ohne dinbrief.cls

%\place{Halle\,/\,Saale}
\place{Wernigerode}
\let\datum=\date
\long\def\PS#1{\newcommand{\at@ps}{\\[\bigskipamount] PS: #1}}
\newcommand{\at@ps}{}
%% Das geht beides nicht
%\newcommand{\at@ps}{\@empty}
%\long\def\at@ps\@empty
\newcommand{\Empfaenger}[2]{\newcommand{\Adresse}{#1}
                            \newcommand{\Anrede}{#2}}
\newcommand{\Punktlinie}[1]{\hbox to #1{\dotfill}~}

\newcommand{\unterschrift}[2]{\par\vbox to 2.8cm{\vbox to 15mm{\vfil}%
                      \setbox0=\hbox{#1}%
                      \dimen0\wd0\advance\dimen0 by 2cm%
                      \setbox1=\hbox{#2}%
                      \ifdim\dimen0<\wd1\dimen0\wd1\else\relax\fi
                      \vbox{\hbox to \dimen0{\dotfill}%
                      \hbox to \dimen0{\hss\box0\hss}%
                      \hbox to \dimen0{\hss#2\hss}}\vbox to 3mm{\vfil}\vss}}
\newcommand{\Silke}{\unterschrift{Silke Bierbaß}{Schatzmeister}}
\newcommand{\Oberwedler}{\unterschrift{Susanne Horn}{Künstlerische Leitung}}
\newcommand{\LS}{\unterschrift{Susanne Horn}{Vorstand}}
\newcommand{\Obervogel}{\unterschrift{Frank Lünenberger}{Vorstandsvorsitzender}}
\newcommand{\Angela}{\unterschrift{Angela Meyer}{Vorstand}}
\newcommand{\AngelaOA}{\unterschrift{Angela Meyer}{Öffentlichkeitsarbeit}}
\newcommand{\Ich}{\unterschrift{Andreas Tille}{Vorstand}}
\newcommand{\IchSF}{\unterschrift{Andreas Tille}{Schriftführer}}
\newcommand{\prIch}{\unterschrift{Andreas Tille}{}}
\newcommand{\prSusi}{\unterschrift{Susanne Horn}{}}
\newcommand{\KuraIch}{\unterschrift{Andreas Tille}{Vorsitzender des Elternkuratoriums}}
\newcommand{\unterschriften}[2]{\par\hbox to \hsize{#1\hfil #2\hfil}}
\newcommand{\Wichtig}{\unterschriften{\Obervogel}{\LS}}
\newcommand{\FastWichtig}{\unterschriften{\Ich}{\LS}}
\let\Wir\FastWichtig
\newcommand{\wir}{\unterschriften{\prIch}{\prSusi}}

% extra für Frau Hielscher
\newcommand{\sonstwerHielscher}{\sonstwer{Schulleiterin \\
                                 Frau Hielscher \\
                                 \Uli\\ Huttenstraße 40\\[2pt]
                                 06110 Halle / Saale}
                                {\Uli; Huttenstraße 40; 06110 Halle / S.}
}
\newcommand{\sonstwerSusi}{\sonstwer{\Uli \\
                            Susanne Horn \\
                            Huttenstraße 40\\[2pt]
                            06110 Halle / Saale}
                           {\Uli; Huttenstraße 40; 06110 Halle / S.}
}
\newcommand{\Schulleiterin}{\vbox to 2.8cm{
                      \vbox to 15mm{\vfil}%
                      \setbox0=\hbox{\Uli}%
                      \dimen0\wd0\advance\dimen0 by 2cm%
                      \vbox{%
                          \hbox to \dimen0{\dotfill}%
                          \hbox to \dimen0{\hss Hielscher\hss}%
                          \hbox to \dimen0{\hss Schulleiterin\hss}%
                          \hbox to \dimen0{\hss\Uli\hss}%
                      }
                      \vbox to 3mm{\vfil}
                      \vss}
}

% Für das Logo des Dinbriefs:

\newcommand{\atdatum}[1]{\hfill Halle, #1\par\bigskip}
\newcommand{\adresszeile}[1]{\hbox to 70mm{#1\hfil}}

\newcommand{\Brieffusz}{
          \setbox0=\vbox{\footnotesize\sf%
             \hbox to \hsize{\hss Postanschrift: Andreas Tille, %
                             Krausestraße 8, 38855 Wernigerode, \telefon\,(03943)\,47966\hss}
             \hbox to \hsize{\hss Bank: Commerzbank Wernigerode, %
                                  IBAN: DE84\, 8104\, 0000\, 0754\, 8803\, 00;\hss Steuernr.: 109/545/02274\hss}
          }%
          \dimen0\ht0\advance\dimen0 by \dp0%
          \makebox[\textwidth][c]{\vbox to \dimen0{\vspace*{0.6mm}\box0\vss}}
}

\newcommand{\atFenster}[1]{\vbox to 29mm{\vfill}%
                 \par\setbox0=\vbox{\hbox{\parbox[b]{70mm}{#1}}}%
                 \dimen0=\ht0\advance\dimen0 by \dp0%
                 \vtop to 39mm{\vss%
                 \vbox to 35mm{%    so hoch ist das Fenster des Umschlags
                 \adresszeile{\small Andreas Tille; Krausestraße 8}%
                 \adresszeile{\small 38855 Wernigerode}
                 \hbox{\vbox to 1mm{\vss\hbox{\raise3mm\adresszeile{\hrulefill}}\vfil}}%
                 \vfill%
                 \hbox to \hsize{\adresszeile{\hss\box0\hss}\hfill%
                 \hbox{\vbox to \dimen0{\vfil\hbox{Halle, \today}\vfil}}}%
                 }\vspace*{15mm}%   Rand unter dem Fenster
                }
}             

\newcommand{\atFensterNoStreet}[1]{\vbox to 29mm{\vfill}%
                 \par\setbox0=\vbox{\hbox{\parbox[b]{70mm}{#1}}}%
                 \dimen0=\ht0\advance\dimen0 by \dp0%
                 \vtop to 39mm{\vss%
                 \vbox to 35mm{%    so hoch ist das Fenster des Umschlags
                 \adresszeile{\small Andreas Tille}%
                 \adresszeile{\small 38855 Wernigerode}
                 \hbox{\vbox to 1mm{\vss\hbox{\raise3mm\adresszeile{\hrulefill}}\vfil}}%
                 \vfill%
                 \hbox to \hsize{\adresszeile{\hss\box0\hss}\hfill%
                 \hbox{\vbox to \dimen0{\vfil\hbox{Halle, \today}\vfil}}}%
                 }\vspace*{15mm}%   Rand unter dem Fenster
                }
}             

\newcommand{\SchnippelLinie}{\par\bigskip\bigskip%
                    \font\ding=bbding10 scaled 2000
                    \dimen0\hsize\advance\dimen0 by 6cm
                    \hbox to \hsize{\hss
                       \hbox to 4cm{\leaders\hbox to 0.8em{\hss --\hss}\hfill}
                       \lower2.5mm\hbox to 4mm{\hss\ding\char1}
                       \hbox to \dimen0{\leaders\hbox to 0.8em{\hss --\hss}\hfill}
                    \hss}
                    \par\bigskip\bigskip
}

% Serienbriefe

\newcommand{\mergezeile}[1]{\expandafter\ifx\csname#1\endcsname\@empty%
                     \relax% leer  => vergiß es
                  \else%
                     \expandafter\ifx\csname#1\endcsname\relax%
                        \relax%  undefiniert => vergiß es
                     \else%
                        \protect\parbox{7cm}{\protect\raggedright%
                                             \csname#1\endcsname} \\%
                     \fi%
                  \fi}
\newcommand{\mergestadt}{\ifx\Stadt\undefined%
                   \relax% Stadt undefiniert => vergiß es
                \else%
                   \ifx\Stadt\@empty%
                      \PLZ\ Halle / Saale% leer => Halle / Saale
                   \else%
                      \PLZ\ \Stadt%
                   \fi%
                \fi}

\newcommand{\Adressendatei}[1]{%
   \record\relax{\all}{#1}
}

\newcommand{\at@wernoch}{\newcommand{\WerNoch}{\Wer{} \Anhang\xspace}}
\newcommand{\at@mitwem}{\newcommand{\MitWem}{\Wem{} \Anhang\xspace}}
\newcommand{\at@wennoch}{\newcommand{\WenNoch}{\Wen{} \Anhang\xspace}}

\newif\ifprintaddress
\printaddresstrue
\newcommand{\KeineAdresse}{\printaddressfalse}

\newcommand{\at@get@address}{\ifprintaddress
%                      v---- hier nicht einfach \[re]newcommand!!!!!
                       \def\Adresse{\mergezeile{Firma}%
                                    \mergezeile{Funktion}%
                                    \mergezeile{Ges}%
                                    \mergezeile{Name}%
                                    \mergezeile{Strasze}%
                                    \mergestadt}%
                    \else
                       \def\Adresse{}
                    \fi
                    \ifx\Anrede\@empty%
                       \renewcommand{\Anrede}{Sehr geehrte Damen und Herren}\fi%
                    \at@wernoch\at@mitwem\at@wennoch
                    \newcommand{\stest}{Frau Susanne Horn}
                    \ifx\stest\Name\susitrue\else\susifalse\fi
                   }

\newcommand{\uberschrift}[1]{\par\bigskip\medskip%
                   {\Large\bf%
                   \setbox0=\hbox{#1}%
                   \ifdim\wd0<10cm%
                      \hbox to \hsize{\hss #1\hss}
                   \else
                      \hbox to \hsize{\hfil\begin{minipage}{10cm}%
                                      \begin{centering}%
                                      #1%
                                      \end{centering}%
                                      \end{minipage}\hfil}
                   \fi
                   }\par\bigskip\medskip}

\newcommand{\at@m}{M}
\newcommand{\freundlich}{\par\bigskip \at@m it freundlichen Grüßen\par\bigskip}
\newcommand{\at@grusz}{\freundlich}
\newcommand{\ohneGrusz}{\renewcommand{\at@grusz}{}}


% Unterstützung für Serienbriefe
\newcommand{\at@testdu}{Du}
\newcommand{\at@get@du}{\ifx\at@testdu\DU
                  \def\Du{Du\xspace}
                  \def\Dein{Dein\xspace}
                  \def\Deinen{Deinen\xspace}
                  \def\Deine{Deine\xspace}
                  \def\Deiner{Deiner\xspace}
                  \def\Dir{Dir\xspace}
                  \def\Dich{Dich\xspace}
               \else
                  \def\Du{Sie\xspace}
                  \def\Dein{Ihr\xspace}
                  \def\Deinen{Ihren\xspace}
                  \def\Deine{Ihre\xspace}
                  \def\Deiner{Ihrer\xspace}
                  \def\Dir{Ihnen\xspace}
                  \def\Dich{Sie\xspace}
               \fi
}
\newcommand{\ifdu}[2]{\ifx\at@testdu\DU #1\else #2\fi}

% Numerieren ohne zusätzlichen Leerraum zwischen den Einträgen
\newcounter{num}
\newenvironment{Numerieren}%
 {\begin{list}{\arabic{num}.}{%
                              \usecounter{num}%
                              \setlength{\itemsep}{0pt}%
                              \setlength{\parsep}{0pt}%
                              \setlength{\itemindent}{0pt}%
                              \setlength{\topsep}{0pt}%
                             }%
 }%
 {\end{list}}

% Numerieren mit Buchstaben ohne zusätzlichen Leerraum zwischen den Einträgen
\newcounter{pkt}
\newenvironment{Punkte}%
 {\begin{list}{\alph{pkt})}{%
                              \usecounter{pkt}%
                              \setlength{\itemsep}{0pt}%
                              \setlength{\parsep}{0pt}%
                              \setlength{\itemindent}{0pt}%
                              \setlength{\topsep}{0pt}%
                              \setlength{\labelsep}{0.5em}%
                              \setlength{\leftmargin}{2.5em}%
                             }%
 }%
 {\end{list}}

% description mit sf-Marken und ohne Leerraum zwischen den Einträgen
\newcommand{\entrylabel}[1]{\mbox{\textsf{#1\,: }}\hfil}
\newenvironment{entry}%
 {\begin{list}{}%
        {\renewcommand{\makelabel}{\entrylabel}%
         \setlength{\parsep}{0pt}%
         \setlength{\itemindent}{0pt}%
         \setlength{\topsep}{0pt}%
         \setlength{\labelwidth}{40pt}%
         \dimen0=\labelwidth\advance\dimen0 by \labelsep%
         \setlength{\leftmargin}{\dimen0}}}%
 {\end{list}}

% description-Umgebung, wobei Marken so weit eingerückt werden, daß
% der als Argument übergebene längste Eintrag noch vollständig herausragt
\newcommand{\terminlabel}[1]{\mbox{\textbf{#1\,: }}\hfil}
\newenvironment{Termine}[1]%
 {\begin{list}{}%
        {\renewcommand{\makelabel}{\terminlabel}%
         \setlength{\parsep}{0pt}%
         \setlength{\itemsep}{0pt}%
         \setlength{\itemindent}{0pt}%
         \setlength{\topsep}{0pt}%
         \setbox0=\hbox{\terminlabel{#1}}%
         \setlength{\labelwidth}{\wd0}%
         \dimen0=\labelwidth\advance\dimen0 by \labelsep%
         \setlength{\leftmargin}{\dimen0}}}%
 {\end{list}}

% Absätze (Die Absätze sind immer so weit eingerückt, daß die
% Paragraphennummer vollständig herausragt

\newcounter{parac}
\newcounter{absatz}

\let\abs=\item
\font\bsy=cmbsy10
\newcommand{\bS}{{\boldmath\S}}
\newif\ifparagraphlist
\paragraphlistfalse

\newcommand{\XParagraph}[1]{%
  \ifparagraphlist\end{list}\else\leftskip0pt\fi%
  {\bigskip{\bf\bS\arabic{parac}\hspace{0.5em}{#1}}\hfill\par\smallskip}%
}

\newcommand{\eParagraph}[1]{%
  \XParagraph{#1}%
  \setbox0=\hbox{\bf\bS\theparac\hspace{0.5em}}%
  \setlength{\leftskip}{\wd0}%
  \refstepcounter{parac}%
  \paragraphlistfalse
 }

\newcommand{\Paragraph}[1]{%
  \XParagraph{#1}%
  \paragraphlisttrue
  \begin{list}{(\arabic{absatz})}{
     \usecounter{absatz}%
     \setbox0=\hbox{(8)}%
     \setlength{\labelwidth}{\wd0}%
     \setlength{\labelsep}{0.5em}%
     \dimen0\wd0\advance\dimen0 by 0.5em%
     \setbox0=\hbox{\bf\bS\theparac\hspace{0.5em}}%
     \advance\dimen0 by \wd0%
     \setlength{\leftmargin}{\dimen0}%
     \setlength{\itemsep}{5pt}%
     \setlength{\parsep}{0pt}%
     \setlength{\itemindent}{0pt}%
     \setlength{\topsep}{0pt}
   }%
   \refstepcounter{parac}%
 }

\newenvironment{Paragraphen}{%
  \def\@currentlabel{\theparac}
  \setcounter{parac}{1}}%
 {\ifparagraphlist\end{list}\par\else\par\leftskip0pt\fi%
  \bigskip%
}


