%  %%%%%%%%%%%%%%%%%%% RUM-Aenderungen vom 12.6.89 (Gr) %%%%%%%%%%%%%%%%%%%%%
%  %%                                                                      %%
%  %%        1)   'Letter'-Style des Herrn D. Heinrich in                  %%
%  %%             'Letterg' umbenannt.                                     %%
%  %%        2)    entsprechende '\typeout{..}'-Meldungen ausgeschaltet.   %%
%  %%                                                                      %%
%  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
% This is LETTER.STY in text format, as of April, 14, 1988,
% by D. Heinrich (TH Karlsruhe).
%
% Last modified May, 04, 1988.
%
% According to the german DIN.
% It gives the possibility to add a backaddress to the information
% given in the window and to include a huge address (sender).
% \windowrules and \nowindowrules are possible.
% It's also possible to adapt captions to other languages.
%
% It is based on A4LETTER.STY in text format, as of June 16, 1987.
% letter.sty 17-Jan-86 with modifications
% for DIN-A4 paper + window envelopes, by H.Partl (Wien)
%

% modified by jk, with great help from H. Kopka: Einf"uhrung in LaTeX
\typeout{newletter.sty: 1 March 1992}

{\catcode`\_=12 \gdef\jobname@aux{\jobname.aux}} % .aux or _aux or ...

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

\newif\if@german \@germanfalse
%\def\ds@german{\@germantrue}

\@options

\lineskip 1pt \normallineskip 1pt
\def\baselinestretch{1}

\ifcase \@ptsize\relax
 \def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt
  \abovedisplayskip 10pt plus2pt minus5pt
  \belowdisplayskip \abovedisplayskip
  \abovedisplayshortskip \z@ plus3pt
  \belowdisplayshortskip 6pt plus3pt minus3pt}
 \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\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\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
 \def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
  \abovedisplayskip 11pt plus3pt minus6pt
  \belowdisplayskip \abovedisplayskip
  \abovedisplayshortskip \z@ plus3pt
  \belowdisplayshortskip 6.5pt plus3.5pt minus3pt}
 \def\small{\@setsize\small{12pt}\xpt\@xpt
  \abovedisplayskip 10pt plus2pt minus5pt
  \belowdisplayskip \abovedisplayskip
  \abovedisplayshortskip \z@ plus3pt
  \belowdisplayshortskip 6pt plus3pt minus3pt}
 \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\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
 \def\@normalsize{\@setsize\normalsize{15pt}\xiipt\@xiipt
  \abovedisplayskip 12pt plus3pt minus7pt
  \belowdisplayskip \abovedisplayskip
  \abovedisplayshortskip \z@ plus3pt
  \belowdisplayshortskip 6.5pt plus3.5pt minus3pt}
 \def\small{\@setsize\small{13.6pt}\xipt\@xipt
  \abovedisplayskip 11pt plus3pt minus6pt
  \belowdisplayskip \abovedisplayskip
  \abovedisplayshortskip \z@ plus3pt
  \belowdisplayshortskip 6.5pt plus3.5pt minus3pt}
 \def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
  \abovedisplayskip 10pt plus2pt minus5pt
  \belowdisplayskip \abovedisplayskip
  \abovedisplayshortskip \z@ plus3pt
  \belowdisplayshortskip 6pt plus3pt minus3pt}
 \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

% \oddsidemargin 53pt \evensidemargin 53pt
% \marginparwidth 90pt \marginparsep 11pt
% \marginparpush 5pt \topmargin 27pt
% \headheight 12pt \headsep 45pt
% \footheight 12pt \footskip 25pt
% \textheight 505pt \textwidth 365pt
% \columnsep 10pt \columnseprule 0pt
% The above values (letter.sty) are replaced by the following values:

\oddsidemargin 0in
\evensidemargin 0in
\marginparwidth .08in
\marginparsep .01in
\marginparpush 5pt

%\topmargin -35pt
%\headheight 12pt
%\headsep 25pt
\topmargin -35pt
\headheight 27pt
\headsep 20pt

%\footheight 12pt
%\footskip 25pt
\footheight 19pt
\footskip 20pt

\textwidth 6.5in
%\textheight 8.9in
\textheight 9.3in
\columnsep 10pt
\columnseprule 0pt

% (Note that these new values use all of the paper, like in Plain TeX,
% but disable the writing of marginpar's.
\newlength{\leftfield}  \leftfield 3.3in
\newlength{\rightfield} \rightfield 3.2in   % sum must be \textwidth
% \leftfield changed from 4.0in to 3.3in and \rightfield from 2.5in to
% 3.2in on 9.9.1992 by J"orn Clausen

\raggedbottom

\footnotesep 12pt
\skip\footins 10pt plus 2pt minus 4pt

\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

\def\backaddress#1{\gdef\@backaddress{#1}}
%\def\@backaddress{}
\backaddress{}
\def\date#1{\def\@date{#1}}
\def\@date{\today}

\def\opening#1{\thispagestyle{firstpage}%
\vspace*{1.3cm}
\parbox[t]{\leftfield}{
  \sloppy
  \unitlength1cm
  \begin{picture}(8.5,4.4)(0.5,0)
      \thinlines
      \put(-1.5,-1.5){\line(1,0){0.2}} % fold mark

      \put(0,3.9){\line(0,-1){0.1}}
      \put(0,3.9){\line(1,0){0.1}}

      \put(8.5,3.9){\line(-1,0){0.1}}
      \put(8.5,3.9){\line(0,-1){0.1}}

      \put(8.5,0){\line(0,1){0.1}}
      \put(8.5,0){\line(-1,0){0.1}}

      \put(0,0){\line(0,1){0.1}}
      \put(0,0){\line(1,0){0.1}}

      \put(0.1,3.5){\makebox(8.3,0.4){\underline{\viiipt \sf  \@backaddress }}}
      \put(1,2.5){\parbox[t]{7.5cm}{\ifx\@empty\toname \ \else
                                  \fi \toname \\ \toaddress }}
%                                  \Toname\\ \fi \toname \\ \toaddress }}
  \end{picture}
} % end \parbox
%
\parbox[b]{\rightfield}{\ %
    \sloppy
    \raggedleft
%    \raggedright
%    \fromname
    \ifx\@empty\@firmname    \else \\ {\sf \xiipt \@firmname} \vspace{0.5cm} \fi
    \ifx\@empty\telephonenum \else \\ Tel.: \@precode\telephonenum \fi
    \ifx\@empty\@fax         \else \\ Fax:  \@precode\@fax \fi
    \ifx\@empty\@bitnet      \else \\ BitNet: \@bitnet\@BITNET \fi
    \ifx\@empty\@email       \else \\ Email: \@email\@EMAIL \fi
    \\[5mm] \@date
} % end parbox
%
\par
%
\rule{\textwidth}{0.6pt}
\makebox[\textwidth][l]{\vspace{0.3cm} \ifx\@empty\@yref \@ymail
                          \else \@yref\hfill\@ymail\hfill\fi\@myref}\par
\ifx\@empty\@subject \else \@subject \par \fi
\vspace{2\parskip} #1 \par\nobreak
} % end of opening

\long\def\closing#1{\par\nobreak\vspace{\parskip}
 \stopbreaks
 {\raggedright
  \ignorespaces #1\\[6\parskip]
  \ifx\@empty\fromsig
  \fromname
  \else \fromsig \fi\strut}
  \par\bigskip}

%\def\ps{\par\startbreaks}
\def\ps#1{\par\noindent
 \parbox[t]{\textwidth}{\@hangfrom{\rm P.S.: }%
 \ignorespaces #1\strut}\par}
\def\cc#1{\par\noindent
 \parbox[t]{\textwidth}{\@hangfrom{\rm \ccname }% <-----
 \ignorespaces #1\strut}\par}
\def\ccname{cc: } % <-----
\def\Toname{To }
\def\encl#1{\par\noindent
 \parbox[t]{\textwidth}{\@hangfrom{\rm \enclname }% <-----
 \ignorespaces #1\strut}\par}
\def\enclname{encl: } % <-----
% jk16Oct91
\def\subject#1{\def\@subject{\subjectname #1}} \def\@subject{}
\def\subjectname{\sl Subject\/:}
\def\BITNET#1{\def\@BITNET{#1}}                \def\@BITNET{}
\def\bitnet#1{\def\@bitnet{#1}}                \def\@bitnet{}
\def\EMAIL#1{\def\@EMAIL{#1}}                  \def\@EMAIL{}
\def\email#1{\def\@email{#1}}                  \def\@email{}
\def\precode#1{\def\@precode{#1}}              \def\@precode{}
\def\fax#1{\def\@fax{#1}}                      \def\@fax{}
\def\bank#1{\def\@bank{#1}}                    \def\@bank{} %  \bank{Bank Default}
\def\bankname{Bank-Connection\/:\ }
\def\firmname#1{\def\@firmname{#1}}            \def\@firmname{}
\def\yref#1{\def\@yref{\yrefname #1}} \def\@yref{}
\def\yrefname{{\sl Your Ref.}: }
\def\ymail#1{\def\@ymail{\ymailname #1}} \def\@ymail{}
\def\ymailname{{\sl Your letter from\/}: }
\def\myref#1{\def\@myref{\myrefname #1}} \def\@myref{}
\def\myrefname{{\sl Our Ref.}: }
\def\Pagename{p.\ }

\if@german \else
  \def\enclname{Anlage:\, }
  \def\ccname{Kopien an: }
  \def\Toname{An }
%  \def\subjectname{\underline{Betr.}\,:}
  \def\subjectname{}
  \def\bankname{Bankverbindung\/:\ }
  \def\headtoname{An}
  \def\myrefname{{\sl Unser Zeichen\/ }: }
  \def\ymailname{{\sl Ihr Schreiben vom\/ }: }
  \def\yrefname{{\sl Ihr Zeichen\/ }: }
  \def\Pagename{S.\ }
\fi


 % JWE Verteiler
\def\vert#1{\par\noindent
 \parbox[t]{\textwidth}{\@hangfrom{\rm \vertname: }% <-----
 \ignorespaces #1\strut}\par}
\def\vertname{Verteiler} % <-----



\def\stopletter{}

\def\returnaddress{}
\newcount\labelcount
\def\place#1{\gdef\@place{#1,}}
\def\@place{}
\def\startlabels{
 \labelcount=0 \baselineskip=0pt \lineskip=0pt
 \pagestyle{empty}
 \let\@texttop=\relax
 \topmargin -50pt
 \headsep 0pt
 \oddsidemargin -35pt
 \evensidemargin -35pt
 \textheight 10in
 \@colht\textheight \@colroom\textheight \vsize\textheight
 \textwidth 550pt
 \columnsep 25pt
 \xpt
 \baselineskip=0pt
 \lineskip=0pt
 \boxmaxdepth=0pt
 \twocolumn\relax}
\def\mlabel#1#2{\setbox0\vbox{\parbox[b]{3.6in}{%
 \strut\ignorespaces #2}}
 \vbox to 2in{\vss \box0 \vss}}



\long\def\letter#1{\clearpage
 \c@page\@ne
 \interlinepenalty=200 \@processto{#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{\returnaddress}{\toname
 \\\toaddress}}
 \endgroup
 \fi}
\long\def\@processto#1{\@xproc #1\\@@@\ifx\toaddress\@empty
 \else \@yproc #1@@@\fi}
\long\def\@xproc #1\\#2@@@{\def\toname{#1}\def\toaddress{#2}}
\long\def\@yproc #1\\#2@@@{\def\toaddress{#2}}
\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\name#1{\def\fromname{#1}}
\def\fromname{}
\def\signature#1{\def\fromsig{#1}}
\def\fromsig{}
\long\def\address#1{\def\fromaddress{#1}}
\def\fromaddress{}
\def\location#1{\def\fromlocation{#1}}
\def\fromlocation{}
\def\telephone#1{\def\telephonenum{#1}}
\def\telephonenum{}

\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
 \immediate\write\@mainaux{\string\startlabels\string\@startlabels}\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}
\def\@startlabels{}



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

\def\ps@headings{
  \def\@oddhead{\parbox{\textwidth}{\xpt \sf \fromname \hfill
%    { \sl \Toname\toname } \hfill \@date\\[1pt]
      \ifx\@empty\toname    \else {\sl \Toname\toname} \hfill \fi
     \@date\\[1pt]
    \rule{\textwidth}{0.5pt} }
  }
%  \def\@oddhead{}
  \def\@oddfoot{\parbox{\textwidth}{\sf \rule{\textwidth}{0.5pt}
                                    \centerline{\thepage}}}
%  \def\@oddfoot{}
%  \let\@evenhead\@oddhead
%  \let\@evenfoot\@oddfoot
  }

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

\def\ps@firstpage{
  \headheight24pt
  \def\@oddhead{\xviipt \sf \fromname \hfill \fromaddress}
  \def\@oddfoot{\parbox{\textwidth}{\sf \rule{\textwidth}{0.5pt}
                 \centerline{ \ifx\@empty\@bank \thepage
                     \else \bankname \@bank \fi} }
  }
  \def\@evenhead{}\def\@evenfoot{}}

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

\parskip .7em
\parindent 0pt
\topsep .4em
\partopsep 0pt
\itemsep .4em

\@lowpenalty 51 \@medpenalty 151 \@highpenalty 301
\@beginparpenalty -\@lowpenalty
\@endparpenalty -\@lowpenalty
\@itempenalty -\@lowpenalty



\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


\def\theequation{\arabic{equation}}

\arraycolsep 5pt
\tabcolsep 6pt
\arrayrulewidth .4pt
\doublerulesep 2pt
\tabbingsep \labelsep
\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = .4pt

\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}


\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}

\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}


\smallskipamount=.5\parskip
\medskipamount=\parskip
\bigskipamount=2\parskip

\ps@headings
\pagenumbering{arabic}
\onecolumn
\@fileswfalse