% myletter.sty 15.8.1991 Alexander Gr”pl, modified 25.6.92, 28.8.92, 6.9.92

\typeout{Document Style `myletter' <28 August 92>.}

\def\@ptsize{0}
\@namedef{ds@11pt}{\def\@ptsize{1}}
\@namedef{ds@12pt}{\def\@ptsize{2}}
\@twosidefalse
\def\ds@draft{\overfullrule 5pt}
\@options

%  ****************************************
%  *               FONTS                  *
%  ****************************************
%

\lineskip 1pt \normallineskip 1pt
\def\baselinestretch{1}
\ifcase \@ptsize\relax   % 10pt option
\def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt  
\abovedisplayskip 10pt plus2pt minus5pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6pt plus3pt minus3pt%
\let\@listi\@listI}

\def\small{\@setsize\small{11pt}\ixpt\@ixpt
\abovedisplayskip 8.5pt plus 3pt minus 4pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus2pt%
\belowdisplayshortskip 4pt plus2pt minus 2pt%
\def\@listi{\leftmargin\leftmargini %% Def of \@list i added 22 Dec 87
\topsep 4pt plus 2pt minus 2pt\parsep 2pt plus 1pt minus 1pt
\itemsep \parsep}}

\def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt
\abovedisplayskip 6pt plus 2pt minus 4pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt%
\belowdisplayshortskip 3pt plus 1pt minus 2pt%
\def\@listi{\leftmargin\leftmargini %% Def of \@list i added 22 Dec 87
\topsep 3pt plus 1pt minus 1pt\parsep 2pt plus 1pt minus 1pt
\itemsep \parsep}}

\def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
\def\large{\@setsize\large{14pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}

\or  % 11pt option
\def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6.5pt plus3.5pt minus3pt%
\let\@listi\@listI}

\def\small{\@setsize\small{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6pt plus3pt minus3pt%
\def\@listi{\leftmargin\leftmargini
\topsep 6pt plus 2pt minus 2pt\parsep 3pt plus 2pt minus 1pt
\itemsep \parsep}}

\def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
\abovedisplayskip 8pt plus 2pt minus 4pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt%
\belowdisplayshortskip 4pt plus 2pt minus 2pt%
\def\@listi{\leftmargin\leftmargini
\topsep 4pt plus 2pt minus 2pt\parsep 2pt plus 1pt minus 1pt
\itemsep \parsep}}

\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{14pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}

\or  % 12pt option
\def\@normalsize{\@setsize\normalsize{15pt}\xiipt\@xiipt
\abovedisplayskip 12pt plus3pt minus7pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6.5pt plus3.5pt minus3pt%
\let\@listi\@listI}

\def\small{\@setsize\small{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6.5pt plus3.5pt minus3pt%
\def\@listi{\leftmargin\leftmargini
\parsep 4.5pt plus 2pt minus 1pt
            \itemsep \parsep
            \topsep 9pt plus 3pt minus 5pt}}

\def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6pt plus3pt minus3pt%
\def\@listi{\leftmargin\leftmargini %% Def of \@list i added 22 Dec 87
\topsep 6pt plus 2pt minus 2pt\parsep 3pt plus 2pt minus 1pt
\itemsep \parsep}}

\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{18pt}\xivpt\@xivpt}
\def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
\def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
\def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
\let\Huge=\huge
\fi

\normalsize  % Choose the normalsize font.


%  ****************************************
%  *            PAGE LAYOUT               *
%  ****************************************
\oddsidemargin   0pt
\evensidemargin  0pt
\marginparwidth  2cm
\marginparsep    3mm
\marginparpush 5pt
\topmargin 0pt
\headheight 12pt
\headsep 0pt      % bei \headings bitte auf etwa 0.7cm setzen
\topskip = 12pt
\footheight 12pt
\footskip 25pt
% DIMENSION OF TEXT:
\message{ <DIN A4 for letters>}%
\textheight 23cm
\textwidth 16cm
\columnsep 10pt
\columnseprule 0pt
\raggedbottom
\footnotesep 12pt
\skip\footins 10pt plus 2pt minus 4pt
%%% FLOATS: The following items must be defined, even though there are no
\floatsep 12pt plus 2pt minus 2pt
\textfloatsep  20pt plus 2pt minus 4pt
\intextsep 12pt plus 2pt minus 2pt
\dblfloatsep 12pt plus 2pt minus 2pt
\dbltextfloatsep 20pt plus 2pt minus 4pt
\@maxsep 20pt
\@dblmaxsep 20pt
\@fptop 0pt plus 1fil
\@fpsep 8pt plus 2fil
\@fpbot 0pt plus 1fil
\@dblfptop 0pt plus 1fil
\@dblfpsep 8pt plus 2fil
\@dblfpbot 0pt plus 1fil
%%%%%

%  ****************************************
%  *  Die zentralen Kommandos             *
%  ****************************************
\def\mylogo#1{\def\@mylogo{#1}}              \mylogo{}
\def\mylargename#1{\def\@mylargename{#1}}    \mylargename{}
\def\myname#1{\def\@myname{#1}}              \myname{Rainer Juhser}
\def\mystreet#1{\def\@mystreet{#1}}          \mystreet{Weichwarenweg 42}
\def\myplz#1{\def\@myplz{#1}}                \myplz{4711}
\def\mytown#1{\def\@mytown{#1}}              \mytown{Hartscheiben}
\def\mycall#1{\def\@mycall{#1}}              \mycall{06142/209129}
\def\myreturn#1{\def\@myreturn{#1}}          \myreturn{\@myname, \@mystreet, \@myplz\ \@mytown}

\def\specialmail#1{\def\@specialmail{#1}}    \specialmail{}
\def\subject#1{\def\@subject{#1}}            \subject{}

\def\date#1{\def\@date{#1}}                  \date{den \today}
\def\@dateline{\@mytown, \@date}
%
% Datum nach oben links, falls noch Platz vorhanden
\newif\ifdatetop
% Faltmarken f�r Fensterbriefumschlag
\def\foldmarks{\bgroup\reversemarginpar\vspace*{6cm}
  \marginpar{\rule{3mm}{.4pt}}\vspace{10.3cm}
  \marginpar{\rule{3mm}{.4pt}}\vspace{-16.3cm}\egroup}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% opening erzeugt den kompletten Briefkopf
%
\def\opening#1{\thispagestyle{firstpage}
 {\tabcolsep0pt\renewcommand{\arraystretch}{1.3} % gr”žere Zeilenabst„nde im Briefkopf
  \ifx\@empty\@date\else  % nachschauen, ob oben links Platz f�r's Datum
    \ifx\@empty\@mylogo
      \ifx\@empty\@mylargename\datetoptrue
  \fi\fi\fi
% Box f�r den Absender
% Absender nur dann, wenn \myname<>{} (toll f�r anonyme Schreiben, Erpresserbriefe etc. )
  \ifx\@empty\@myname
    \ifdatetop\@dateline\par\fi% evtl. trotzdem Datum setzen
  \else% Absender erw�nscht!
    \raisebox{-1cm}[0cm]{% Oberl„nge wegdefiniert, ragt also in die Kopfzeile
    \begin{minipage}[b]{\textwidth}
      \ifdatetop% dann  stinknormaler Briefkopf
        \@dateline\hfill
        \begin{tabular}[t]{l}
          \@myname \\
          \@mystreet \\
          \@myplz\ \@mytown
          \ifx\@empty\@mycall\else\\ Tel.\ \@mycall \fi
        \end{tabular}\par
      \else% ansonsten "gestyleter" Briefkopf
        \sf%                \sf f�r "tolle" Briefk”pfe
        \ifx\@empty\@mylogo\else%
          \begin{tabular}{c}\@mylogo\end{tabular}\hspace{6mm}\fi
        \ifx\@empty\@mylargename\else
          \begin{tabular}{c}\LARGE\sf\@mylargename\\ \\ \end{tabular}\fi
        \hfill
        \begin{tabular}{l}
          \ifx\@empty\@mylargename\@myname\\ \fi% bei \mylargename nicht mehr n”tig
          \@mystreet \\
          \@myplz\ \@mytown
          \ifx\@empty\@mycall\else\\ Tel.\ \@mycall\\ \fi
        \end{tabular}\par
        \vspace{3mm}\hrule\vspace{6mm}
      \fi
    \end{minipage}}\par%Ende von \raisebox
  \fi%Ende des Absenders
% Box f�r den Emf„nger (entf„llt bei \begin{letter}{} )
  \ifx\@empty\toname\else
    \ifx\@empty\@myname\myreturn{}\fi % wenn kein Absender, dann auch keine R�cksendeadresse
    \ifx\@empty\@myreturn
      \begin{tabular}{l}
        \ifx\@empty\@specialmail \\ \toname \\
        \else \\ \underline{\@specialmail} \\ \\ \toname \\
        \fi
      \end{tabular}
    \else
      \foldmarks% Faltmarken relativ zum Adressfenster setzen
      \begin{tabular}{l}
        {\viiipt\sf\underline{\@myreturn}}
        \ifx\@empty\@specialmail \\ [4mm] \toname \\ [4mm] \hline
        \else \\[2mm] \underline{\@specialmail} \\[2mm] \toname \\[2mm] \hline
        \fi
      \end{tabular}
    \fi\par
  \fi
% eventuell hier das Datum ausgeben
  \ifx\@empty\@date\else
    \ifdatetop\else\hfill\@dateline\par
  \fi\fi
% etwas Platz lassen
  \vspace{1.5cm}
% Hier kommt noch der Betreff
  \ifx\@empty\@subject\else\@subject\par\vspace{1cm}\fi
% Hier beginnt nun endlich der Brief
  #1  % #1 = Lieber Emf„nger ...
  \par\nobreak}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\long\def\closing#1{\par\nobreak\vspace{2\parskip}
  \stopbreaks
  \noindent
  \ignorespaces #1 \par\vfill\noindent}

\def\ps{\vfill\par\startbreaks}

\def\cc#1{\vfill\par\noindent
\parbox[t]{\textwidth}{\@hangfrom{\rm  Kopien an: }\ignorespaces #1\strut}\par}

\def\encl#1{\vfill\par\noindent
\parbox[t]{\textwidth}{\@hangfrom{\rm  Anlagen: }\ignorespaces #1\strut}\par}

\def\stopletter{}

% Briefumschl„ge
\def\mlabel#1#2{
  \pagestyle{empty}
  \begin{minipage}{12cm} % Din A5 Briefumschlag
  \renewcommand{\arraystretch}{1.3} % gr”žere Zeilenabst„nde
  \vspace*{-0.7cm} % damit die ganze Sache nach oben rutscht
  \ifx\@empty\@mylogo\else\begin{tabular}{c}\@mylogo\end{tabular}\fi
  \large\sf\begin{tabular}{c}#1\end{tabular}\hfill % #1=Absender
%  \fbox{\parbox{17mm}{\sf 100 \\ % Briefmacke
%  \setlength{\unitlength}{0.2mm}
%  \begin{picture}(80.00,80.00)
%  \thicklines
%  \put(40.00,40.00){\circle{80.00}}
%  \put(40.00,40.00){\oval(50.00,50.00)[b]}
%  \put(30.00,55.00){\circle*{10.00}}
%  \put(50.00,55.00){\circle*{10.00}}
%  \end{picture}}}
  \par
  \vbox to 6cm{\vfill
  \hbox{\Large\rm\hspace*{6cm}\begin{tabular}{l}#2\end{tabular}}\vfill} % #2=M-f„nger
  \end{minipage}
  \newpage}


%  ****************************************
%  *     THE GENERIC LETTER COMMANDS      *
%  ****************************************
%
\long\def\letter#1{\newpage
  \c@page\@ne
  \interlinepenalty=200 % smaller than the TeXbook value
  \def\toname{#1}}

\def\endletter{\stopletter\@@par\pagebreak\@@par
  \if@filesw 
    \begingroup 
      \def\protect{\string}
      \let\\=\relax
      \def\protect##1{\string##1\space}
      \immediate\write\@auxout{\string\mlabel{%
      \ifx\@empty\@myname\else\@myname \\ \@mystreet \\ \@myplz\ \@mytown\fi}%
      {\ifx\@empty\@specialmail \toname \\
       \else \underline{\@specialmail} \\[3mm] \toname \\
       \fi}}
    \endgroup 
  \fi}

\def\stopbreaks{\interlinepenalty \@M
   \def\par{\@@par\nobreak}\let\\=\@nobreakcr
   \let\vspace\@nobreakvspace}

\def\@nobreakvspace{\@ifstar{\@nobreakvspacex}{\@nobreakvspacex}}

\def\@nobreakvspacex#1{\ifvmode\nobreak\vskip #1\relax\else
               \@bsphack\vadjust{\nobreak\vskip #1}\@esphack\fi}

\def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}

\def\startbreaks{\let\\=\@normalcr
   \interlinepenalty 200\def\par{\@@par\penalty 200}}

\def\document{\endgroup
  \@colht\textheight  \@colroom\textheight \vsize\textheight
   \columnwidth\textwidth \@clubpenalty\clubpenalty
   \if@twocolumn \advance\columnwidth -\columnsep 
      \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue 
   \fi
  \hsize\columnwidth \linewidth\hsize
  \begingroup\@floatplacement\@dblfloatplacement\endgroup
  \if@filesw \immediate\openout\@mainaux=\jobname.aux\fi
  \def\do##1{\let ##1\@notprerr}
  \@preamblecmds
  \let\do\noexpand  
  \@normalsize\everypar{}}

\def\enddocument{\@checkend{document}\newpage\begingroup  
\if@filesw \immediate\closeout\@mainaux 
\makeatletter\input \jobname.aux\clearpage
\fi\endgroup\deadcycles\z@\@@end}

\def\makelabels{\@fileswtrue}

%  ****************************************
%  *            PAGE STYLES               *
%  ****************************************
%

% The letter style sets \@texttop to \vskip 0pt plus .00006fil on
% the first page of a letter, which centers a short letter on the page.
% This fil value may have to be changed for other letterheads.

\def\@texttop{\ifnum\c@page=1\vskip 0pt plus .00006fil\relax\fi}

\def\ps@headings{\def\@oddhead{\hfil\@date\hfil Seite\ \thepage}
 \def\@evenhead{Seite\ \thepage\hfil\@date\hfil}
 \def\@oddfoot{}\def\@oddfoot{}}

\def\ps@empty{\def\@oddhead{}\def\@oddfoot{}%
\def\@evenhead{}\def\@evenfoot{}}

\def\ps@firstpage{\def\@oddhead{}\def\@oddfoot{}
 \def\@evenhead{}\def\@evenfoot{}}

\def\ps@plain{\def\@oddhead{}\def\@oddfoot{\rm\hfil\thepage\hfil}
 \def\@evenhead{}\let\@evenfoot\@oddfoot}


%  ****************************************
%  *           PARAGRAPHING               *
%  ****************************************
\parskip .7em
\parindent 0pt
\topsep .4em
\partopsep 0pt
\itemsep .4em
\@lowpenalty   51
\@medpenalty  151
\@highpenalty 301
\@beginparpenalty -\@lowpenalty
\@endparpenalty   -\@lowpenalty
\@itempenalty     -\@lowpenalty

%  ****************************************
%  *                LISTS                 *
%  ****************************************
\leftmargini   2.5em
\leftmarginii  2.2em
\leftmarginiii 1.87em
\leftmarginiv  1.7em
\leftmarginv   1em
\leftmarginvi  1em

\leftmargin\leftmargini
\labelwidth\leftmargini\advance\labelwidth-\labelsep
\labelsep 5pt
\parsep 0pt
\let\@listi\relax

\def\@listii{\leftmargin\leftmarginii
   \labelwidth\leftmarginii\advance\labelwidth-\labelsep}

\def\@listiii{\leftmargin\leftmarginiii
    \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
    \topsep .2em 
    \itemsep \topsep}

\def\@listiv{\leftmargin\leftmarginiv
     \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}

\def\@listv{\leftmargin\leftmarginv
     \labelwidth\leftmarginv\advance\labelwidth-\labelsep}

\def\@listvi{\leftmargin\leftmarginvi
     \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}

\def\labelenumi{\arabic{enumi}.}    
\def\theenumi{\arabic{enumi}}     
 
\def\labelenumii{(\alph{enumii})}
\def\theenumii{\alph{enumii}}
\def\p@enumii{\theenumi}

\def\labelenumiii{\roman{enumiii}.}
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{\theenumi(\theenumii)}

\def\labelenumiv{\Alph{enumiv}.}
\def\theenumiv{\Alph{enumiv}}     
\def\p@enumiv{\p@enumiii\theenumiii}

\def\labelitemi{$\bullet$}
\def\labelitemii{\bf --}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}

\def\verse{\let\\=\@centercr  
  \list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent 
          \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}
\let\endverse\endlist

\def\quotation{\list{}{\listparindent 1.5em
    \itemindent\listparindent
    \rightmargin\leftmargin}\item[]}
\let\endquotation=\endlist

\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist

\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
       \let\makelabel\descriptionlabel}}

\let\enddescription\endlist

%  ****************************************
%  *         OTHER ENVIRONMENTS           *
%  ****************************************
\def\theequation{\arabic{equation}}

\arraycolsep 5pt
\tabcolsep 6pt
\arrayrulewidth .4pt
\doublerulesep 2pt

\tabbingsep \labelsep

\skip\@mpfootins = \skip\footins

\fboxsep = 3pt
\fboxrule = .4pt

%  ****************************************
%  *             FOOTNOTES                *
%  ****************************************
\def\footnoterule{\kern-1\p@   
  \hrule width .4\columnwidth 
  \kern .6\p@}

\long\def\@makefntext#1{\noindent
    \hangindent 5pt\hbox 
    to 5pt{\hss $^{\@thefnmark}$}#1}

%  ****************************************
%  *         FIGURES AND TABLES           *
%  ****************************************
% 
% Float placement parameters set by some commands.  Easier to define
% them than change the commands.

\c@topnumber=2
\def\topfraction{.7}
\c@bottomnumber=1
\def\bottomfraction{.3}
\c@totalnumber=3
\def\textfraction{.2}
\def\floatpagefraction{.5}
\c@dbltopnumber= 2
\def\dbltopfraction{.7}
\def\dblfloatpagefraction{.5}


%  ****************************************
%  *            MISCELLANEOUS             *
%  ****************************************
%
% DATE
%
\def\today{\ifcase\month\or
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\fi
  \space\number\day, \number\year}



%  ****************************************
%  *           INITIALIZATION             *
%  ****************************************
%
% Default initializations

\smallskipamount=.5\parskip  % These values are used by the letter macros.
\medskipamount=\parskip
\bigskipamount=2\parskip

\ps@plain                    % 'plain' page style
\pagenumbering{arabic}       % Arabic page numbers
\onecolumn                   % Single-column
\@fileswfalse                % Inhibits writing of .AUX file.
\message{ <germanTeX on> }%
\ifx\germanTeX\undefined\input german \fi
\germanTeX