% \iffalse
%
% Copyright (C) 1996-1998 by Jochen R"utschlin.  All rights reserved.
%
% This file is part of the `jrletter' package.
%
% IMPORTANT NOTICE:
%
% You are not allowed to change this file.
%
% You are NOT ALLOWED to distribute this file alone.  You are NOT
% ALLOWED to take money for the distribution or use of this file (or
% a changed version).
%
% If you receive only some of these files from someone, complain!
%
% \fi
%
% \CheckSum{100}
%
% \CharacterTable
%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%   Digits        \0\1\2\3\4\5\6\7\8\9
%   Exclamation   \!     Double quote  \"     Hash (number) \#
%   Dollar        \$     Percent       \%     Ampersand     \&
%   Acute accent  \'     Left paren    \(     Right paren   \)
%   Asterisk      \*     Plus          \+     Comma         \,
%   Minus         \-     Point         \.     Solidus       \/
%   Colon         \:     Semicolon     \;     Less than     \<
%   Equals        \=     Greater than  \>     Question mark \?
%   Commercial at \@     Left bracket  \[     Backslash     \\
%   Right bracket \]     Circumflex    \^     Underscore    \_
%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%   Right brace   \}     Tilde         \~}
%
% \iffalse
%<*driver>
\documentclass[a4paper,11pt]{ltxdoc}
  \DisableCrossrefs
  \OnlyDescription
  \pagestyle{empty}
\usepackage[german]{babel}
\usepackage{typearea}
  \typearea{15}
\usepackage{multicol,epsfig}

\renewcommand{\meta}[1]{{\normalfont\textit{#1}}}
\renewcommand{\DescribeMacro}[1]{\relax}
\renewcommand{\DescribeEnv}[1]{\relax}
\newcommand*{\Describe}[1]{%
   \bigskip\noindent\fbox{\footnotesize\texttt{\bslash{}#1}}\par\smallskip}
\newcommand*{\DescribE}[1]{%
   \bigskip\noindent\fbox{\parbox{,96\hsize}{\footnotesize\texttt{\bslash{}#1}}}\par\smallskip}
\renewcommand*\descriptionlabel[1]{%
  \hspace\labelsep\normalfont\texttt{#1}:}
\newcommand{\at}{\ifmmode\mbox{\textit{\symbol{"40}}}\else\symbol{"40}\fi}
\begin{document}
   \DocInput{jrletter.dtx}
\end{document}
%</driver>
% \fi
% 
% \title{Das \textsf{jrletter} Paket v2.2b}
% \author{Jochen R"utschlin}
% \date{9.\ Januar 1998}
% \maketitle
%
% \thispagestyle{empty}
%
% \begin{abstract}
%   In diesem Paket habe ich meine Vorstellungen von dem Satzspiegel eines
%   Briefes realisiert, der sich teilweise an den DIN-Richtlinien
%   orientiert. Das Paket baut auf der \textsf{letter}-Klasse der
%   \LaTeXe-Distribution auf und stellt einige erweiternde Makros zur
%   Verf"ugung (z.\,B.\ optionale Erzeugung von Falzmarken). Befehle, die
%   aus dieser Klasse stammen, sind mit $\star$ gekennzeichnet; $(\star)$
%   kennzeichnet Befehle, die zwar in der \textsf{letter}-Klasse definiert
%   sind, allerdings von mir (in ihrer Verwendung) ver"andert wurden.
%
%   Zus"atzlich ist das Paket \textsf{envelope} enthalten, mit dem
%   Briefumschl"age verschiedener Gr"o"sen bedruckt werden k"onnen. Das
%   Paket \textsf{address} stellt die grundlegenden Makros f"ur
%   \textsf{jrletter} und \textsf{envelope} bereit.
% \end{abstract}
%
% \noindent\rule{\hsize}{.4pt}
%
% \begin{multicols}{2}
%   \section*{Der \textsf{address}-Style v1.5d}
%   In diesem Paket wird H"ohe (|\addrheight|) und Breite
%   (|\addrwidth|) eines Adre"sfeldes definiert.
%
%   \Describe{name\marg{Name} $\star$}
%   \DescribeMacro{\name}%
%   Belegt die Variable |\fromname| mit \meta{Name}.
%
%   \Describe{signature\oarg{Datei}\marg{Unterschrift} ($\star$)}
%   \DescribeMacro{\signature}%
%   Belegt die Variable |\fromsig| mit \meta{Unterschrift}. Optional kann
%   eine Postscript-Datei angef"uhrt werden, die
%   die Unterschrift in elektronischer Form enth"alt. Die \meta{Datei} wird
%   (mit Pfad) in der Variablen |\fromsigpath| gespeichert.
%
%   \Describe{department\marg{Abteilung}}
%   \DescribeMacro{\department}%
%   Belegt die Variable |\fromdepartment| mit \meta{Abteilung}.
%
%   \Describe{address\marg{Anschrift} $\star$}
%   \DescribeMacro{\address}%
%   Belegt die Variable |\fromaddress| mit \meta{Anschrift}. Zur Trennung
%   der Zeilen innerhalb eines Namens, sollte |\nl| verwendet werden, da
%   intern alles vor dem ersten |\\| als Name, der Rest als Adresse
%   interpretiert wird.
%
%   \Describe{location\marg{Ort} $\star$}
%   \DescribeMacro{\location}%
%   Belegt die Variable |\fromlocation| mit \meta{Ort}.
%
%   \Describe{telephone\marg{Telefon} $\star$}
%   \DescribeMacro{\telephone}%
%   Belegt die Variable |\telephonenum| mit \meta{Telefon}.
%
%   \Describe{telefax\marg{Telefax}}
%   \DescribeMacro{\telephone}%
%   Belegt die Variable |\telefaxnum| mit \meta{Telefax}.
%
%   \Describe{backaddress\marg{Absender}}
%   \DescribeMacro{\backaddress}%
%   Belegt die Variable |\frombackaddress| mit \meta{Absender}.
%
%   \Describe{specialmail\marg{Versandart}}
%   \DescribeMacro{\specialmail}%
%   Belegt die Variable |\@specialmail| mit \meta{Versandart}.
%
%   \Describe{title\marg{"Uberschrift} $\star$}
%   \DescribeMacro{\title}%
%   Belegt die Variable |\@title| mit \meta{"Uberschrift}.
%
%   \Describe{subject\marg{Betreff}}
%   \DescribeMacro{\subject}%
%   Belegt die Variable |\@subject| mit \meta{Betreff}.
%
%   \Describe{address\at{}field\oarg{Position}\marg{Anschrift}}
%   \DescribeMacro{\address@field}%
%   Erzeugt ein Adre"sfeld der Breite |\addrwidth| und der H"ohe
%   |\addrheight| mit dem Text \meta{Anschrift}. \meta{Position} kann die
%   Werte |s| (zentriert), |t| (top) und |b| (bottom) annehmen, entsprechend
%   derer die Anschrift innerhalb des Adressenfeldes (vertikal)
%   ausgerichtet wird.
%
%   \Describe{addrentry\ $\ldots$}
%   \DescribeMacro{\addrentry}%
%   Zur Verwaltung einer kleinen Adre"sdatei ist dieses Makro
%   gedacht. Damit kann man sich eine Adre"sdatei bestehend aus
%   |\addrentry|-Eintr"agen anlegen, wobei jeder Eintrag acht Argumente mit
%   folgenden Bedeutungen hat:
%
%   \smallskip\noindent\hbox to\hsize{\hfill
%     \begin{tabular}{cl}
%       1 & \meta{Name}\\
%       2 & \meta{Vorname}\\
%       3 & \meta{(Post-) Anschrift}\\
%       4 & \meta{Telefon}\\
%       5 & \meta{Haus-Anschrift}\\
%       6 & \meta{Nummer/Geburtstag}\\
%       7 & \meta{Bemerkungen}\\
%       8 & \meta{K"urzel}\\
%     \end{tabular}
%   \hfill}
%
%   \smallskip Durch eine entsprechende Definition des Makros |\addrentry|
%   kann auf die Daten in verschiedenen Dokumenten unterschiedlich
%   zugegriffen werden.
%
%   \noindent Voreingestellt ist die Anordnung f"ur ein Anschriftenfeld,
%   bei dem die Argumente 1, 2, 3, 5 und 8 Verwendung finden.
%
%   \Describe{addrlabel\marg{Anschrift}}
%   \DescribeMacro{\addrlabel}%
%   Erzeugt ein Feld mit \meta{Name} und \meta{Anschrift}.
%
%   \Describe{nl}
%   \DescribeMacro{\nl}%
%   Es sei noch angemerkt, da"s man Namen, die "uber mehrere Zeilen
%   verlaufen (z.\,B.\ Firmennamen) mit dem eigens f"ur diesen Zweck
%   definierten Befehl |\nl| umbrechen sollte (verh"alt sich gleich wie
%   |\\|), da intern der Befehl |\@processto| (z.\,B.\ im
%   \textsf{letter}-Style) den Teil vor dem ersten Zeilenumbruch -- also
%   vor dem ersten |\\| -- als Namen betrachtet und den Rest als
%   Anschrift.
%
%   \bigskip\hrule\medskip
%
%   \section*{Der \textsf{jrletter}-Style}
%
%   Folgende  Paketoptionen werden unterst"utzt (unterstrichene Werte werden als
%   Voreinstellung verwendet):
%   \begin{description}
%   \item[draft] zieht einen Rahmen um das Anschriftfeld.
%   \item[\underbar{final}] erzeugt die \glqq{}endg"ultige\grqq\ Version des
%     Briefes.
%   \item[american] unterst"utzt die amerikanische Sprache.
%   \item[\underbar{english}] unterst"utzt die englische Sprache.
%   \item[french] unterst"utzt die franz"osische Sprache.
%   \item[german] unterst"utzt die deutsche Sprache.
%   \item[\underbar{postaladdress}] verwendet f"ur die Anschrift von
%     evtl.\ eingelesenen Adressdateien die postalische Anschrift
%     (Postfach).
%   \item[houseaddress] verwendet f"ur die Anschrift von evtl.\
%     eingelesenen Adressdateien die Hausanschrift.
%   \item[copy] erzeugt einen Briefbogen mit einem \glqq{}Kopie\grqq{}-Schriftzug
%     als Hinterlegung.
%     Falls mit |\signature| eine Datei f"ur die Unterschrift angegeben wurde,
%     wird diese verwendet.
%   \item[\underbar{master}] erzeugt den normalen Briefbogen.
%   \end{description}
%
%   \Describe{name\marg{Name}\ \textnormal{oder} \bslash{}signature\oarg{Unterschrift}\marg{Name}}
%   \DescribeMacro{\name}%
%   \DescribeMacro{\fromname}%
%   \DescribeMacro{\signature}%
%   \DescribeMacro{\fromsig}%
%   \DescribeMacro{\fromsigpath}%
%   F"ur die Unterschrift, oder besser gesagt f"ur die Namenswiederholung
%   unterhalb der Unterschrift,
%   mu"s einer der obigen Befehle ausgef"uhrt werden. Der Text von |\name|
%   wird als \glqq{}Unterschrift\grqq\ verwendet, wenn nicht durch
%   |\signature| ein eigener Text bestimmt wird. Die Zuweisung mu"s
%   sp"atestens vor der Verwendung von |\closing| erfolgen. Der Befehl
%   |\signature| wurde um das optionale Argument \meta{Datei} erweitert,
%   welches eine Postscript-Datei (inkl.\ Pfad) f"ur die
%   \meta{Unterschrift} enth"alt. So kann mittels dem Befehl |\autosignature| die
%   Unterschrift oberhalb der Namenswiederholung erzeugt werden.
%
%   \Describe{autosignature\ \textnormal{bzw.}\ \bslash{}nosignature}
%   \DescribeMacro{\autosignature}%
%   \DescribeMacro{\nosignature}%
%   Falls man nicht nur bei der |copy|-Option des Paketes die Datei f"ur die
%   Unterschrift verwenden m"ochte, kann dies mittels |\autosignature|
%   eingestellt werden (Voreinstellung ist |\nosignature|).
%   
%   \Describe{address\marg{Absenderadresse}}
%   \DescribeMacro{\address}%
%   \DescribeMacro{\fromaddress}%
%   Hiermit kann die Adresse des Briefschreibers gespeichert werden. Sie
%   kann "uber die Variable |\fromaddress| weiter verwendet werden.
%
%   \Describe{backaddress\marg{Absender}}
%   \DescribeMacro{\backaddress}%
%   \DescribeMacro{\frombackaddress}%
%   Mit diesem Befehl kann eine Absenderadresse definiert werden, die
%   oberhalb der Anschrift in einer kleinen, serifenlosen Schrift gesetzt
%   wird. Sie ist zusammen mit der Anschrift so angeordnet, da"s sie bei
%   Verwendung von Briefumschl"agen mit einem Sichtfenster bequem von
%   au"sen gelesen werden kann.
%
%   \Describe{location\marg{Ort}}
%   \DescribeMacro{\location}%
%   \DescribeMacro{\fromlocation}%
%   Speichert den \meta{Ort}, an dem der Autor den Brief geschrieben hat
%   in der Variablen |\fromlocation| ab. Ihr Inhalt wird bei der
%   Datumsausgabe verwendet.
%
%   \Describe{telephone\marg{Telefonnummer}}
%   \DescribeMacro{\telephone}%
%   Durch diesen Aufruf wird die \meta{Telefonnummer} des Absenders in die
%   Variable |\telephonenum| geschrieben. (Derzeit wird diese Variablen
%   nicht verwendet.)
%
%   \Describe{firsthead\marg{Kopfzeile}\ \textnormal{und}\ \bslash{}nexthead\marg{Kopfzeile}}
%   \DescribeMacro{\firsthead}%
%   \DescribeMacro{\nexthead}%
%   Diese Makros legen die \meta{Kopfzeile} des Briefes fest. Damit kann
%   man sich unterschiedliche Kopfzeilen f"ur die erste Seite (z.\,B.\ den
%   vollen Briefkopf) und alle folgenden Seiten (z.\,B.\ einen gek"urzten
%   Briefkopf mit zus"atzlichen Empf"angerangaben) definieren.
%
%   \Describe{firstfoot\marg{Fu"szeile}\ \textnormal{und}\ \bslash{}nextfoot\marg{Fu"szeile}}
%   \DescribeMacro{\firstfoot}%
%   \DescribeMacro{\nextfoot}%
%   Analog zu |\firsthead| und |\nexthead| kann mit diesen beiden Makros
%   der Inhalt der \meta{Fu"szeile} auf der ersten Seite und auf allen
%   folgenden Seiten festgelegt werden. Existiert von der aktuellen Seite
%   aus betrachtet noch eine Folgeseite, so werden in der Fu"szeile drei
%   Punkte als Hinweis auf diese ausgegeben.\footnote{Da hierzu ein
%     Seitenz"ahler f"ur die maximal vorhandenen Seiten verwendet wird,
%     mu"s man den Brief einem erneuten \LaTeX-Durchlauf unterziehen.}
%
%   \Describe{blanco\ \textnormal{bzw.}\ \bslash{}noblanco}
%   \DescribeMacro{\blanco}%
%   \DescribeMacro{\noblanco}%
%   Der Befehl |\blanco| erzeugt einen leeren Briefbogen, der nur den
%   Briefkopf enth"alt (sofern der Rumpf der |letter|-Umgebung leer ist).
%
%   \Describe{foldmarkson\ \textnormal{bzw.}\ \bslash{}foldmarksoff}
%   \DescribeMacro{\foldmarkson}%
%   \DescribeMacro{\foldmarksoff}%
%   Hiermit kann die Erzeugung von Faltmarken (Faltung f"ur DIN\,A4 Papier
%   in (fast) Drittelung) erlaubt -- |\foldmarkson| -- und unterdr"uckt
%   -- |\foldmarksoff| -- werden. Per Voreinstellung werden die Faltmarken
%   mitgedruckt.
%
%   \Describe{addrfieldon\ \textnormal{bzw.}\ \bslash{}addrfieldoff}
%   \DescribeMacro{\addrfieldon}%
%   \DescribeMacro{\addrfieldoff}%
%   Mit diesen beiden Schalterbefehlen kann die Empf"angeranschrift
%   gedruckt werden (|\addr|- |fieldon|) -- dies macht z.\,B.\ bei
%   der Verwendung von Briefumschl"agen mit Sichtfernstern Sinn -- oder
%   aber unterdr"uckt werden (|\addrfieldoff|).
%
%   \noindent Voreingestellt ist |\addrfieldon|.
%   \enlargethispage{1pt}
%
%   \DescribE{begin\{letter\}\oarg{Person}\marg{Empf"anger}\\
%     \hspace*{1em}\textnormal{\ldots}\\
%     \bslash{}end\{letter\}}
%   \DescribeEnv{letter}%
%   Der Aufruf beginnt eine neue Seite und belegt die Variablen |\toname|
%   und |\toaddress| mit \meta{Empf"anger}, welcher aus dem Namen und der
%   Anschrift des Empf"angers besteht, wobei die einzelnen Zeilen
%   durch einen Zeilenumbruch (|\\|) getrennt sind. Die erste Zeile wird
%   als Name interpretiert, der Rest als Anschrift; besteht der
%   Name aus mehreren Zeilen, so sind diese mit \texttt{\bslash{}nl}
%   umzubrechen. Das optionale Argument kann verwendet werden, wenn der
%   Brief \glqq{}zu H"anden\grqq{} einer \meta{Person} adressiert
%   ist.\footnote{Das optionale Argument
%     ist bei der \texttt{letter}-Umgebung der Standard-\textsf{letter}-Klasse nicht
%     vorhanden.}
%
%   \DescribE{begin\{fax\}\oarg{Seitenzahl}\marg{Firma}\marg{Ort}\\
%     \hspace*{1em}\marg{Fax-Nummer}\\
%     \hspace*{1em}\marg{Telefon-Nummer}\\
%     \hspace*{2em}\textnormal{\ldots}\\
%     \bslash{}end\{fax\}}
%   \DescribeEnv{fax}%
%   Erzeugt ein Fax-Deckblatt mit einer Mitteilung (im Rumpf der Umgebung).
%   Alle Argumente sind Daten des Empf"angers. Die optionale Seitenzahl gibt die
%   Anzahl der Seiten an, die zus"atzlich zu den durch \LaTeX\ erzeugten Seiten
%   verschickt werden (man braucht also zwei Druchl"aufe, damit die
%   Gesamtseitenzahl berechnet werden kann).
%
%   \Describe{specialmail\marg{Versandart}}
%   \DescribeMacro{\specialmail}%
%   Hiermit kann die Versandart des Briefs festgelegt werden (z.\,B.\
%   \glqq{}Einschreiben\grqq); sie erscheint zwischen Absender und
%   Empf"anger im ggf.\ vorhandenen Sichtfenster des Briefumschlages.
%
%   \Describe{title\marg{Titel}}
%   \DescribeMacro{\title}%
%   |\title| legt eine "Uberschrift f"ur den Brief fest (z.\,B.
%   \glqq{}Rechnung\grqq). Wird kein \meta{Titel} angegeben, so entf"allt
%   automatisch die "Uberschriftzeile.
%
%   \Describe{subject\marg{Betreff}}
%   \DescribeMacro{\subject}%
%   Der \meta{Betreff} erscheint mit einer Zeile Zwischenraum oberhalb der
%   Anrede.
%
%   \Describe{subjecton\ \textnormal{bzw.}\ \bslash{}subjectoff}
%   \DescribeMacro{\subjecton}%
%   \DescribeMacro{\subjectoff}%
%   Seit geraumer Zeit wird vor den Betreff eines Briefes der Begriff
%   \glqq{}Betreff\grqq\ selbst nicht mehr geschrieben (voreingestellt
%   durch |\subjectoff|). M"ochte jemand trotzdem das Wort davorstehen
%   haben, so kann dies mit |\subjecton| erreicht werden. Dabei wird der
%   unter |\subjectname| abgespeicherte Begriff verwendet (h"angt von der
%   gew"ahlten Sprache ab).
%
%   \Describe{opening\marg{Anrede}}
%   \DescribeMacro{\opening}%
%   Mit diesem Makro wird die eigentlich Ausgabe gestartet: zuerst werden die
%   Faltmarken gesetzt, dann der Ort des Schreibens zusammen mit
%   dem Datum\footnote{Das Datum kann auch explizit mit dem Befehl
%     \texttt{\bslash{}date} gesetzt werden.}, die
%     Empf"angeradresse\footnote{Hierbei werden die zuvor ermittelten Daten
%     aus \texttt{\bslash{}toname} und \texttt{\bslash{}toaddress}
%     verwendet.}, ggf.\ eine "Uberschrift,  der Betreff
%   und schlie"slich die durch das Argument festgelegte \meta{Anrede}. 
%
%   \bigskip\noindent Nun folgt der eigentliche Text des Briefs. Hier gilt
%   es zu beachten, da"s die L"ange |\parskip| auf |\baselineskip|
%   erweitert wurde, so da"s zwischen zwei Abs"atzen immer eine Zeile
%   Platz bleibt.
%
%   \Describe{closing\marg{Gru"sformel}}
%   \DescribeMacro{\closing}%
%   Am Ende des Briefes wird mit einer Zeile Zwischenraum die
%   \meta{Gru"sformel} gesetzt, gefolgt von der f"unf Zeilen tiefer
%   stehenden Namenswiederholung  f"ur die Unterschrift (dazwischen evtl.\ 
%   die Unterschrift selbst aus der Postscript-Datei), welche beide um
%   |\longindentation| einger"uckt sind (voreingestellt sind 0pt).
%
%   \bigskip\noindent Nun kommen noch drei Makros, mit denen der
%   \glqq{}Anhang\grqq\ eines Briefes verwaltet werden kann.
%
%   \Describe{encl\oarg{Anlage} \textnormal{bzw.} \bslash{}encl*\oarg{Anlagen}}
%   \DescribeMacro{\encl}%
%   \DescribeMacro{\encl*}%
%   F"uhrt die Anlagen mit dem Begriff \emph{Anlage} (|\encl|) oder
%   \emph{Anlagen} (|\encl*|) am Ende des Briefes auf. Die einzelnen Punkte
%   der optionalen Aufschl"usselung \meta{Anlage(n)} k"onnen mit |\\|
%   umgebrochen werden (eigentlich nur f"ur den Fall |\encl*| sinnvoll).
%
%   \vbox{\vfill\null}
%
%   \Describe{cc\marg{Verteilerliste}}
%   \enlargethispage{.2pt}
%   \DescribeMacro{\cc}%
%   Hiermit kann eine Verteilerliste beigef"ugt werden, deren Eintr"age
%   ebenfalls durch |\\| getrennt werden k"onnen.
%
%   \Describe{ps\marg{Postscriptum}}
%   \DescribeMacro{\ps}%
%   Durch dieses Makro kann ein Nachtrag unter den Brief gesetzt werden.
%
%
%   \Describe{addrentry}
%   F"ur den \textsf{jrletter}-Style sind bei diesem Makro aus dem
%   \textsf{address}-Style (siehe dort) die Argumente 1, 2, 3, 5 und 8
%   relevant. Aus ihnen wird eine Anschrift zusammengesetzt, die mit dem
%   Befehl |\|\meta{K"urzel} als Parameter an die \texttt{letter}-Umgebung
%   "ubergeben werden kann.
%
%   \bigskip\hrule\medskip
%
%   \section*{Der \textsf{envelope}-Style v1.1b}
%   Das im vorherigen Abschnitt beschriebene Paket ist eigentlich auf
%   Briefe ausgelegt, die zusammen mit Umschl"agen verwendet werden, welche
%   ein Sichtfenster haben. Um jedoch auch andere Briefumschl"age zu
%   verwenden (z.\,B.\ DIN\,C5-Umschl"age) und zu beschriften, kann dieses
%   Paket verwendet werden.
%
%   \Describe{makeenvelope\marg{Anschrift}}
%   \DescribeMacro{makeenvelope}%
%   Bei jedem Aufruf dieses Befehls wird eine neue Seite mit der als
%   Argument angegebenen \meta{Anschrift} erzeugt. F"ur den Aufbau der
%   \meta{Anschrift} gilt das Gleiche wie f"ur den
%   \textsf{jrletter}/\textsf{address}-Style, so da"s auch die
%   |\addrentry|-Befehle verwendet werden k"onnen.
%
%   Als Paketoption kann die Umschlaggr"o"se mit angegeben werden. Folgende
%   Optionen werden unterst"utzt (unterstrichene Werte werden als
%   Voreinstellung verwendet):
%   \begin{description}
%   \item[draft] zieht wie auch schon beim \textsf{jrletter}-Style einen
%     Rahmen um das Anschriftfeld.
%   \item[\underbar{final}] erzeugt die \glqq{}endg"ultige\grqq\ Version des
%     Umschlages.
%   \item[c4envelope] nach DIN-Norm der Umschlag f"ur
%     ungefaltetete DIN\,A4-Bl"atter.
%   \item[\underbar{c5envelope}] nach DIN-Norm der Umschlag f"ur
%     ungefaltetete DIN\,A5-Bl"atter.
%   \item[c6envelope] nach DIN-Norm der Umschlag f"ur
%     doppelt gefaltete DIN\,A4-Bl"atter.
%   \item[\underbar{senderfield}] erzeugt ein Absenderfeld
%   \item[nosenderfield] erzeugt kein Absenderfeld
%   \end{description}
%
%   Zus"atzlich m"ussen wie beim \textsf{jrletter}-Style gewisse Variablen
%   mit Werten vorbelegt werden. Dies sind entweder |\frombackaddress|
%   ("uber den Befehl |\backaddress|) oder aber |\fromname| und
%   |\fromaddress| ("uber die Befehle |\name| und |\address|). Im ersten
%   Fall wird der Absender direkt "uber der Anschrift
%   vermerkt\footnote{Dieser Fall tritt ein, falls
%     \texttt{\bslash{}frombackaddress} nicht leer ist.} (analog zu der
%   Verwendung im \textsf{jrletter}-Style), im anderen Fall links oben mit
%   dem Zusatz \meta{Absender}.
%
%   In beiden F"allen kann zus"atzlich der Befehl |\specialmail| f"ur die
%   Angabe einer Versandart benutzt werden.
% \end{multicols}
%
% \medskip\hrule\medskip
%
% Abschlie"send eine "Ubersicht der verwendeten L"angenregister. Es ist zu
% beachten, da"s die hier aufgef"uhrten L"angenangaben teilweise nicht den
% internen L"angenangaben von \LaTeX\ entsprechen, sondern sich auf das
% Layout der gegen"uberliegenden Seite beziehen (beispielsweise gibt
% |\oddsidemargin| nicht den wirklichen Abstand zum linken Papierrand an;
% der wirkliche Abstand ergibt sich aus dem Wert von |\oddsidemargin| plus
% 1\,inch).
%
% \begin{center}
%   \begin{tabular}{lr}
%     |\topmargin| & 10\,mm\\
%     |\headheight| & 20\,mm\\
%     |\headsep| & 5\,mm\\
%     |\textheight| & 232\,mm\\
%     |\textwidht| & 167\,mm\\
%     |\footskip| & 20\,mm\\
%     |\oddsidemargin| & 23\,mm\\
%     |\evensidemargin| & 20\,mm\\
%     |\marginparsep| & 1\,mm\\
%     |\marginparwidth| & 16\,mm\\
%     |\addrtopsep| & 48\,mm\\
%     |\addrindent| & 19\,mm\\
%     |\addrheight| & 40\,mm\\
%     |\addrwidth| & 85\,mm\\
%     |\foldvskipi| & 105\,mm\\
%     |\foldvskipii| & 44\,mm\\
%     |\foldvskipiii| & 60\,mm\\
%     |\longindentation| & 0\,pt\\
%     |\indentedwidth| & |\textwidth|\footnotemark\\
%   \end{tabular}
% \end{center}
% \footnotetext{Das Register \texttt{\bslash{}indentedwidth} berechnet sich
%   zu \texttt{\bslash{}textwidth} -- \texttt{\bslash{}longindentation}.}
%
% \newpage\noindent%
% \begin{center}
%   \epsfig{file=paperfmt,width=\hsize}
% \end{center}
% \StopEventually{\Finale}
%
% \iffalse
%<*package>
% \fi
%    \begin{macrocode}
\NeedsTeXFormat{LaTeX2e} \ProvidesPackage{jrletter} [1998/06/03 v2.2b
extensions for letter writing (jr)]
\RequirePackage{address}
%    \end{macrocode}
%
%  \section{Spracheinstellungen}
%
%    \begin{macrocode}
\def\jrl@excuse#1{%
  \PackageWarningNoLine{jrletter}{Sorry, language `#1'
    not supported\MessageBreak
    by in this version. English strings used by default.}}
\DeclareOption{american}{%
  \addto\extrasamerican{%
    \def\subjectname{Subject}
    \def\loc@date{,}
    \def\topersonname{??}
    \def\enclsname{encl}
    \def\namename{Company}
    \def\personname{Name}
    \def\locationname{Place}
    \def\telephonename{Phone}
    \def\telefaxname{FAX-No.}
    \def\departmentname{Unit}
    \def\pagesname{No.\ of Pages (incl.\ cover)}
    \def\notesname{Informations}
    \def\datename{Date}
    \def\headfromname{From}
    \def\headname{Cover Letter}
    \def\copyname{COPY}
    \def\copysize{250}
    }}
\DeclareOption{english}{%
  \addto\extrasenglish{%
    \def\subjectname{Subject}
    \def\loc@date{,}
    \def\topersonname{??}
    \def\enclsname{encl}
    \def\namename{Company}
    \def\personname{Name}
    \def\locationname{Place}
    \def\telephonename{Phone}
    \def\telefaxname{FAX-No.}
    \def\departmentname{Unit}
    \def\pagesname{No.\ of Pages (incl.\ cover)}
    \def\notesname{Informations}
    \def\datename{Date}
    \def\headfromname{From}
    \def\headname{Cover Letter}
    \def\copyname{COPY}
    \def\copysize{250}
    }}
\DeclareOption{french}{%
  \addto\extrasfrench{%
    \def\subjectname{Concernant}
    \def\loc@date{,}
    \def\topersonname{??}
    \def\enclsname{P.~J.}
    \def\namename{??}
    \def\personname{??}
    \def\locationname{??}
    \def\telephonename{??}
    \def\telefaxname{??}
    \def\departmentname{??}
    \def\pagesname{??}
    \def\notesname{??}
    \def\datename{??}
    \def\headfromname{??}
    \def\headname{??}
    \def\copyname{???}
    \def\copysize{250}
    }}
\DeclareOption{german}{%
  \addto\captionsgerman{%
    \def\enclname{Anlage}}
  \addto\extrasgerman{%%
    \def\subjectname{Betreff}
    \def\loc@date{, den}
    \def\topersonname{z.\,H.\,v.}
    \def\enclsname{Anlagen}
    \def\namename{Firma}
    \def\personname{Name}
    \def\locationname{Ort}
    \def\telephonename{Telefon}
    \def\telefaxname{FAX-Nr.}
    \def\departmentname{Stelle}
    \def\pagesname{Seitenzahl (inkl.\ Deckblatt)}
    \def\notesname{Mitteilungen}
    \def\datename{Datum}
    \def\headfromname{Von}
    \def\headname{Telefax-Deckblatt}
    \def\copyname{KOPIE}
    \def\copysize{250}
    }}
\DeclareOption{francais}{%
  \typeout{Please use `french' instead of `francais'}%
  \ExecuteOptions{french}}
\DeclareOption{germanb}{%
  \typeout{Please use `german' instead of `germanb'}%
  \ExecuteOptions{german}}
\DeclareOption{postaladdress}{\@postaltrue}
\DeclareOption{houseaddress}{\@postalfalse}
\newif\ifjr@signature
\newif\ifjr@copy
\newcommand{\autosignature}{\jr@signaturetrue}
\newcommand{\nosignature}{\jr@signaturefalse}
\DeclareOption{master}{\nosignature\jr@copyfalse}
\DeclareOption{copy}{\autosignature\jr@copytrue}
\ExecuteOptions{english,postaladdress,master}
\ProcessOptions*
%    \end{macrocode}
%
%    \begin{macrocode}
\ifjr@signature
  \RequirePackage{epsfig}
\fi
\ifjr@copy
  \RequirePackage[bottomafter,first,light]{draftcopy}
  \draftcopyName{\copyname}{\copysize}
\fi
%    \end{macrocode}
%
%    \begin{macrocode}
\newif\if@blanco \@blancofalse
\newcommand{\blanco}{\@blancotrue}
\newcommand{\noblanco}{\@blancofalse}
%    \end{macrocode}
%
% \section{Dateneinstellungen}
%
%    \begin{macrocode}
\long\def\firsthead#1{\def\@firsthead{#1}}   \def\@firsthead{}
\long\def\nexthead#1{\def\@nexthead{#1}}     \def\@nexthead{}
\long\def\firstfoot#1{\def\@firstfoot{#1}}   \def\@firstfoot{}
\long\def\nextfoot#1{\def\@firstfoot{#1}}    \def\@nextfoot{}
     \def\title#1{\def\@title{#1}}           \def\@title{}
     \def\subject#1{\def\@subject{#1}}       \def\@subject{}
\newcounter{lastpage}
\newcounter{pages}
%    \end{macrocode}
%
% \section{Seiteneinteilung}
%
%    \begin{macrocode}
\setlength\topmargin{1cm}
  \addtolength{\topmargin}{-1in}
\setlength\headheight{2cm}
\setlength\headsep{0.5cm}
\setlength\topskip{\baselineskip}
\setlength\oddsidemargin{2.3cm}
  \addtolength{\oddsidemargin}{-1in}
\setlength\evensidemargin{2cm}
\setlength\marginparsep{0.1cm}
\setlength\marginparwidth{2.3cm}  % `oddsidemargin'
  \addtolength{\marginparwidth}{-\marginparsep}
  \addtolength{\marginparwidth}{-0.6cm}  % not printable margin (alt: -.34)
\setlength\footskip{2cm}
\setlength\textheight{\paperheight} 
  \addtolength{\textheight}{-1cm}    % `topmargin'
  \addtolength{\textheight}{-\headheight}
  \addtolength{\textheight}{-\headsep}
  \addtolength{\textheight}{-\footskip}
  \addtolength{\textheight}{-1cm}    % `bottommargin'
\setlength\textwidth{\paperwidth}
  \addtolength{\textwidth}{-2.3cm}   % `oddsidemargin'
  \addtolength{\textwidth}{-\evensidemargin}
%    \end{macrocode}
%
% \section{Satzspiegel}
%
%    \begin{macrocode}
\setlength\topsep{0pt}
\setlength{\parindent}{0pt}
%%%%% Folgende Werte wurden in address.sty bereits definiert. %%%%%%%
%\setlength\parskip{\baselineskip}
%\setlength\smallskipamount{0.5\baselineskip}
%\setlength\medskipamount{\baselineskip}
%\setlength\bigskipamount{1.5\baselineskip}
%%%%% Ende %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%    \end{macrocode}
%
% \section{Kopf- und Fu"szeilen}
%
%    \begin{macrocode}
\def\ps@empty{%
  \let\@oddhead\@empty%
  \let\@oddfoot\@empty%
  \let\@evenhead\@empty%
  \let\@evenfoot\@empty}
\def\ps@plain{%
  \def\@oddhead{\@nexthead}%
  \def\@oddfoot{%
    \@tempdima\footskip\advance\@tempdima-0.5cm%
    \vbox to\@tempdima{\normalfont%
      \ifnum\thepage<\thelastpage%
        \hbox to\textwidth{\hfil\bfseries\ldots}%
      \else
        \hbox to\textwidth{\hfil}
      \fi
      \vfill
      \@nextfoot}}%
  \let\@evenhead\@oddhead%
  \let\@evenfoot\@oddfoot}
\def\ps@firstpage{%
  \def\@oddhead{\@firsthead}%
  \def\@oddfoot{%
    \@tempdima\footskip\advance\@tempdima-0.5cm%
    \vbox to\@tempdima{\normalfont%
      \ifnum\thepage<\thelastpage%
        \hbox to\textwidth{\hfil\bfseries\ldots}%
      \else
        \hbox to\textwidth{\hfil}
      \fi%
      \vfill
      \@firstfoot}}%
  \let\@evenhead\@oddhead%
  \let\@evenfoot\@oddfoot}
\renewcommand{\stopletter}{%
  \immediate\write\@mainaux{\string\setcounter{lastpage}{\thepage}}}
%    \end{macrocode}
%
% \section{Briefkopf der ersten Seite}
%
% \begin{macro}{\opening}
%    \begin{macrocode}
\renewcommand*{\opening}[1]{%
  \thispagestyle{firstpage}%
  \@closingfalse%
  \if@letter
    \@foldmarks%
    \@letterheader%
  \else
    \@telefaxheader%
  \fi%
  \@maketitle%
  \@subjectfield%
  \ifx#1\@empty
  \else
    #1\par\nobreak%
  \fi}
%    \end{macrocode}
% \end{macro}
%
% \subsection{Faltmarken}
%
%    \begin{macrocode}
\newif\if@foldmarks \@foldmarkstrue
\newcommand{\foldmarkson}{\@foldmarkstrue}
\newcommand{\foldmarksoff}{\@foldmarksfalse}
\newlength{\foldvskipi}   \setlength\foldvskipi{10.5cm}
  \addtolength\foldvskipi{-1cm}% `\topmargin'
  \addtolength\foldvskipi{-\headheight}
  \addtolength\foldvskipi{-\headsep}
  \addtolength\foldvskipi{-\topskip}
\newlength{\foldvskipii}  \setlength\foldvskipii{4.4cm}
\newlength{\foldvskipiii} \setlength\foldvskipiii{6cm}
\newcommand*{\@foldmarks}{%
  \if@foldmarks%
    \reversemarginpar%
      \vspace*{\foldvskipi}%
    \marginpar{\rule{2mm}{.2pt}}%
      \vspace{\foldvskipii}%
    \marginpar{\rule{4mm}{.2pt}}%
      \vspace{\foldvskipiii}%
    \marginpar{\rule{2mm}{.2pt}}%
      \vspace{-\foldvskipiii}%
      \vspace{-\foldvskipii}%
      \vspace{-\foldvskipi}%
      \vspace{-\baselineskip}%
  \fi}
%    \end{macrocode}
%
% \subsection{Adre"sfeld (Anschrift) und Datum}
%
%    \begin{macrocode}
\newbox\jrl@box
\newif\if@addrfield \@addrfieldtrue
\def\addrfieldon{\@addrfieldtrue}
\def\addrfieldoff{\@addrfieldfalse}
\newdimen\addrindent  \setlength\addrindent{1.9cm}
\newdimen\addrtopsep  \setlength\addrtopsep{4.8cm}
\def\@letterheader{%
  \ifx\@date\@empty
    \hbox to\hsize{\hfill\phantom{\fromlocation\loc@date\ \today}}%
  \else
    \hbox to\hsize{\hfill\fromlocation\loc@date\ \@date}%
  \fi%
  \if@addrfield%
    \@tempdima\addrtopsep%
    \advance\@tempdima-1.1mm%     Korrekturwert
    \advance\@tempdima-\baselineskip%
    \advance\@tempdima-1cm% `\topmargin'
    \advance\@tempdima-\headheight%
    \advance\@tempdima-\headsep%
    \advance\@tempdima-\topskip%
    \vspace*{\@tempdima}%
    \@tempdima\oddsidemargin%
    \advance\@tempdima 1in%
    \advance\@tempdima-\addrindent%
    \hspace*{-\@tempdima}%
    \address@field[s]{\parskip\smallskipamount%
      \toname\\%
      \ifx\toperson\@empty
      \else
        \topersonname\ \toperson\\%
      \fi
      \toaddress}%
    \vspace{4\smallskipamount}
  \fi\par}
%    \end{macrocode}
%
%    \begin{macrocode}
\newcommand{\@telefaxheader}{%
  \addtocounter{pages}{\thelastpage}%
  \begin{minipage}{\hsize}
    \if@blanco
      \begin{minipage}[t]{.47\hsize}
        ~\textbf{\headtoname}\\[.5\baselineskip]
      \end{minipage}
    \else
      \begin{minipage}[t]{.47\hsize}
        ~\textbf{\headtoname}\\[.5\baselineskip]
        \@telefaxheaderline[\totelefax]{\telefaxname}{2}
        \@telefaxheaderline[\thepages]{\pagesname}{2}
        \@telefaxheaderline[\toperson]{\personname}{4}
        \@telefaxheaderline[\toname]{\namename}{2}
        \@telefaxheaderline[\toaddress]{\locationname}{2}
        \@telefaxheaderline[\totelephone]{\telephonename}{2}
      \end{minipage}
    \fi%
    \hfill%
    \begin{minipage}[t]{.47\hsize}
      ~\textbf{\headfromname}\\[.5\baselineskip]
      \@telefaxheaderline[\fromname]{\personname}{2}
      \@telefaxheaderline[\fromdepartment]{\departmentname}{2}
      \@telefaxheaderline[\fromaddress]{\locationname}{4}
      \@telefaxheaderline[\telefaxnum]{\telefaxname}{2}
      \@telefaxheaderline[\telephonenum]{\telephonename}{2}
      \if@blanco
        \@telefaxheaderline{\datename}{2}
      \else
        \@telefaxheaderline[\today]{\datename}{2}
      \fi
    \end{minipage}
  \end{minipage}
  \@telefaxheaderline{\notesname}{1}
  \par}
%    \end{macrocode}
%
%    \begin{macrocode}
\newcommand{\@telefaxheaderline}[3][\@empty]{%
  \hbox to\hsize{%
    \vbox{%
      \hrule
      \vspace{1mm}
      \hbox to\hsize{~\scriptsize#2\phantom{Op}\hfill}
      \vbox to#3\baselineskip{%
        \vfill%
        \@tempdima=\hsize%
        \advance\@tempdima by -2em%
        \hbox to\hsize{\hfill%
          \parbox[t]{\@tempdima}{%
            \ifx#1\@empty
              \null
            \else
              #1
            \fi}}%
        \vfill%
        }%
      }%
    }%
  }
%    \end{macrocode}
%
% \subsection{Titel}
%
%    \begin{macrocode}
\def\@maketitle{%
  \ifx\@title\@empty
  \else
    \hbox to\hsize{\hfill\normalfont\sffamily\bfseries\LARGE\@title\hfill}\par
  \fi}
%    \end{macrocode}
%
% \subsection{Betreff}
%
%    \begin{macrocode}
\newif\if@subject \@subjectfalse
\def\subjecton{\@subjecttrue}
\def\subjectoff{\@subjectfalse}
\def\@subjectfield{%
  \if@subject
    \def\subjectlabel{\subjectname:~}
  \else
    \def\subjectlabel{}
  \fi%
  \ifx\@subject\@empty
  \else
    \parbox[t]{\textwidth}{\bfseries\@hangfrom{\subjectlabel}\@subject}\par
  \fi}
%    \end{macrocode}
%
% \section{Schlu"s}
%
% \begin{macro}{\closing}
%    \begin{macrocode}
\setlength\longindentation{0cm}
\renewcommand{\closing}[1]{%
  \if@blanco
  \else
    \par\nobreak%
    \stopbreaks\noindent%
    \indentedwidth=\textwidth%
    \advance\indentedwidth -\longindentation%
    \hspace*{\longindentation}%
    \parbox{\indentedwidth}{\raggedright\ignorespaces #1%
      \ifx\@empty\fromsig
        \\[4\baselineskip]\fromname
      \else
        \ifjr@signature
          \\[.5\baselineskip]
          \epsfig{file=\fromsigpath,height=4\baselineskip}\\[-.5\baselineskip]
        \else
          \\[4\baselineskip]
        \fi
        \fromsig
      \fi\strut}%
    \par
  \fi}
%    \end{macrocode}
% \end{macro}
%
% \subsection{Anlagen}
%
% \begin{macro}{\encl}
%    \begin{macrocode}
\newif\if@closing \@closingfalse
\def\encl{\@ifstar{\@encl{\enclsname}}{\@encl{\enclname}}}
\def\@encl#1{\@ifnextchar[{\@@encl{#1}}{\@@encl{#1}[\@empty]}}
\def\@@encl#1[#2]{
  \if@closing
  \else
    \bigskip
    \@closingtrue
  \fi%
  \ifx#1\@empty
    \noindent\parbox[t]{\textwidth}{\normalfont\emph{#1}}
  \else
    \noindent\parbox[t]{\textwidth}{\normalfont\emph{#1}\\
      \ignorespaces #2\strut}
  \fi\par}
%    \end{macrocode}
% \end{macro}
%
% \subsection{Verteiler}
%
% \begin{macro}{\cc}
%    \begin{macrocode}
\renewcommand*{\cc}[1]{%
  \if@closing
  \else
    \bigskip
    \@closingtrue
  \fi
  \noindent\parbox[t]{\textwidth}{\normalfont\underbar{\ccname}\\
    \ignorespaces #1\strut}\par}
%    \end{macrocode}
% \end{macro}
%
% \subsection{Postscriptum}
%
% \begin{macro}{\ps}
%    \begin{macrocode}
\renewcommand{\ps}[1]{%
  \if@closing
  \else
    \bigskip
    \@closingtrue
  \fi
  \noindent\parbox[t]{\textwidth}{\@hangfrom{\normalfont p.\,s.: }%
    \ignorespaces #1\strut}\par}
%    \end{macrocode}
% \begin{macro}
%
% \begin{environment}{letter}
%    \begin{macrocode}
\newif\if@letter
\renewenvironment{letter}[2][]{%
  \newpage%
  \@lettertrue%
  \if@twoside
    \ifodd\c@page
    \else
      \thispagestyle{empty}%
      \hbox{}%
      \newpage%
    \fi%
  \fi%
  \c@page\@ne\interlinepenalty=200%
  \def\toperson{#1}%
  \@processto{#2}}%
{\stopletter}
%    \end{macrocode}
% \end{environment}
%
% \begin{environment}{fax}
%    \begin{macrocode}
\newenvironment{fax}[6][0]{%
  \newpage%
  \@letterfalse%
  \sffamily%
  \if@twoside
    \ifodd\c@page
    \else
      \thispagestyle{empty}%
      \hbox{}%
      \newpage%
    \fi%
  \fi%
  \c@page\@ne\interlinepenalty=200%
  \setcounter{pages}{#1}%
  \def\toperson{#2}%
  \def\toname{#3}%
  \def\toaddress{#4}%
  \def\totelefax{#5}%
  \def\totelephone{#6}%
  }
{\stopletter}
%    \end{macrocode}
% \end{environment}
% \iffalse
%</package>
%
% \section{Briefumschlag}
%
%<*envelope>
% \fi
%    \begin{macrocode}
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{envelope}
         [1998/06/03 v1.1b envelopes printing (jr)]
\RequirePackage{address}
%    \end{macrocode}
%
%    \begin{macrocode}
\newlength{\bottommargin}
\newif\ifsender
%    \end{macrocode}
%
%    \begin{macrocode}
\DeclareOption{c4envelope}
   {\setlength{\paperheight}   {21cm}%
    \setlength{\paperwidth}    {29.7cm}%
    \setlength{\topmargin}     {.5cm}%
    \setlength{\bottommargin}  {4cm}%
    \setlength{\oddsidemargin} {2.5cm}%
    \setlength{\evensidemargin}{2.7cm}}
\DeclareOption{c5envelope}
   {\setlength{\paperheight}   {162mm}%
    \setlength{\paperwidth}    {228mm}%
    \setlength{\topmargin}     {1.5cm}%
    \setlength{\bottommargin}  {2.0cm}%
    \setlength{\oddsidemargin} {1.5cm}%
    \setlength{\evensidemargin}{1.5cm}}
\DeclareOption{c6envelope}
   {\setlength{\paperheight}   {114mm}%
    \setlength{\paperwidth}    {162mm}%
    \setlength{\topmargin}     {1.0cm}%
    \setlength{\bottommargin}  {1.5cm}%
    \setlength{\oddsidemargin} {1.0cm}%
    \setlength{\evensidemargin}{1.0cm}%
    \setlength{\addrwidth}     {7.7cm}}
\DeclareOption{german}{%
  \addto\extrasgerman{%%
    \def\topersonname{z.\,H.\,v.}
    \def\sendername{Absender}
  }}
\DeclareOption{senderfield}
   {\sendertrue}
\DeclareOption{nosenderfield}
   {\senderfalse}
\ExecuteOptions{c5envelope,senderfield}
\ProcessOptions
\pagestyle{empty}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\toperson{}
%    \end{macrocode}
%
%    \begin{macrocode}
\setlength{\parskip}{\baselineskip}
\setlength{\smallskipamount}{.5\baselineskip}
\setlength{\medskipamount}{\baselineskip}
\setlength{\bigskipamount}{1.5\baselineskip}
%    \end{macrocode}
%
%    \begin{macrocode}
\setlength\headheight{0pt}
\setlength\headsep{0pt}
\setlength{\footskip}{0pt}
\setlength{\topskip}{0pt}
\setlength{\parindent}{0pt}
%    \end{macrocode}
%
%    \begin{macrocode}
\setlength{\textheight}{\paperheight}
  \addtolength{\textheight}{-\topmargin}
  \addtolength{\textheight}{-\bottommargin}
  \addtolength{\topmargin}{-1in}
%    \end{macrocode}
%
%    \begin{macrocode}
\setlength{\textwidth}{\paperwidth}
  \addtolength{\textwidth}{-\oddsidemargin}
  \addtolength{\textwidth}{-\evensidemargin}
  \addtolength{\oddsidemargin}{-1in}
%    \end{macrocode}
%
% \begin{macro}{\makeenvelope}
%    \begin{macrocode}
\newcommand{\makeenvelope}[2][]{\newpage%
  \def\toperson{#1}%
  \@processto{#2}%
  \sender@field%
  \vfill
  \hbox to\hsize{\hfill\receiver@field}}
%    \end{macrocode}
% \end{macro}
%
%    \begin{macrocode}
\def\sender@field{%
  \ifsender
    \bgroup%
      \def\@specialmail{}%
      \def\frombackaddress{}%
      \address@field[t]{\parskip1mm\small%
        \emph{\sendername:}\\
        \fromname\\
        \fromaddress}
    \egroup
  \else
    \null
  \fi}
%    \end{macrocode}
%
%    \begin{macrocode}
\def\receiver@field{%
  \parskip=\smallskipamount%
  \address@field[b]{\parskip\smallskipamount\large%
    \toname\\
    \ifx\toperson\@empty
    \else
      \topersonname\ \toperson\\
    \fi
    \toaddress}%
  }
%    \end{macrocode}
% \iffalse
%</envelope>
%
% \section{Adressen-Basis}
%
%<*address>
% \fi
%    \begin{macrocode}
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{address}
         [1998/06/03 v1.5d address base (jr)]
\newif\if@postal\@postaltrue
%    \end{macrocode}
%
%    \begin{macrocode}
\def\providelength#1{%
  {\escapechar\m@ne\xdef\@gtempa{{\string#1}}}%
  \expandafter\@ifundefined\@gtempa
    {\def\reserved@a{\newlength{#1}}}%
    {\def\reserved@a{\relax}}%
   \reserved@a}
\providelength{\DraftRuleWidth}
\newlength{\addrwidth}       \setlength{\addrwidth}{85mm}
\newlength{\addrheight}      \setlength{\addrheight}{40mm}
%    \end{macrocode}
%
%    \begin{macrocode}
\DeclareOption{final}{\setlength\DraftRuleWidth{0pt}}
\DeclareOption{draft}{\setlength\DraftRuleWidth{.4pt}}
\ProcessOptions
%    \end{macrocode}
%
%    \begin{macrocode}
\long\def\name#1{\def\fromname{#1}}               \def\fromname{}
\def\signature{\@ifnextchar[{\@signature}{\@signature[]}}
\long\def\@signature[#1]#2{%
  \def\fromsigpath{#1}%
  \def\fromsig{#2}}                               \def\fromsig{}\def\fromsigpath{}
\long\def\department#1{\def\fromdepartment{#1}}   \def\fromdepartment{}
\long\def\address#1{\def\fromaddress{#1}}         \def\fromaddress{}
\long\def\location#1{\def\fromlocation{#1}}       \def\fromlocation{}
\long\def\telephone#1{\def\telephonenum{#1}}      \def\telephonenum{}
\long\def\telefax#1{\def\telefaxnum{#1}}          \def\telefaxnum{}
\long\def\backaddress#1{\def\frombackaddress{#1}} \def\frombackaddress{}
     \def\specialmail#1{\def\@specialmail{#1}}    \def\@specialmail{}
\long\def\title#1{\def\@title{#1}}                \def\@title{}
\long\def\subject#1{\def\@subject{#1}}            \def\@subject{}
                                                  \def\toname{}
                                                  \def\toperson{}
                                                  \def\toaddress{}
%    \end{macrocode}
%
%    \begin{macrocode}
\long\def\@processto#1{\expandafter\@xproc #1\\@@@\ifx\toaddress\@empty
  \else\expandafter\@yproc #1@@@\fi}
\long\def\@xproc #1\\#2@@@{\def\toname{#1}\def\toaddress{#2}}
\long\def\@yproc #1\\#2@@@{\def\toaddress{#2}}
%    \end{macrocode}
%
%    \begin{macrocode}
\newif\if@jrleader
\newcommand{\address@field}[2][c]{%
  \bgroup%
    \fboxsep=0pt\fboxrule=\DraftRuleWidth%
    \fbox{%
      \parbox[b][\addrheight][#1]{\addrwidth}{\raggedright\normalfont%
        \@jrleaderfalse%
        \ifx\frombackaddress\@empty%
        \else%
          \@jrleadertrue%
          {\sffamily\fontsize{8}{8}\selectfont\underline{\frombackaddress}}%
        \fi%
        \ifx\@specialmail\@empty%
        \else%
          \if@jrleader\vskip1mm\fi%
          \@jrleadertrue%
          {\sffamily\small\MakeUppercase{\@specialmail}}%
        \fi%
        \ifx#1t\if@jrleader\vskip2mm\fi\fi%
        \ifx#1b\vfill\fi%
        \ifx#1s\vfill\fi%
        #2%
        \ifx#1s\vfill\fi%
      }%
    }%
  \egroup}
%    \end{macrocode}
%
% \begin{macro}{\nl}
%    \begin{macrocode}
\DeclareRobustCommand{\nl}{\\}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\addrentry}
%    \begin{macrocode}
\long\def\addrentry#1#2#3#4#5#6#7#8{%
  \def\jrl@tmp{#8}%
  \ifx\jrl@tmp\@empty
  \else
    \def\jrl@tmp{#2}
    \ifx\jrl@tmp\@empty
      \if@postal
        \expandafter\gdef\csname#8\endcsname{#1\\#3}
      \else
        \expandafter\gdef\csname#8\endcsname{#1\\#5}
      \fi
    \else
      \if@postal
        \expandafter\gdef\csname#8\endcsname{#2 #1\\#3}
      \else
        \expandafter\gdef\csname#8\endcsname{#2 #1\\#5}
      \fi%
    \fi%
    \def\jrl@tmp{#6}
    \ifx\jrl@tmp\@empty
    \else
      \expandafter\gdef\csname#8number\endcsname{#6}%
    \fi%
  \fi}
%    \end{macrocode}
% \end{macro}
% \begin{macro}{\addrlabel}
%    \begin{macrocode}
\long\def\addrlabel#1{%
  \@processto{\leavevmode\ignorespaces #1}%
  \address@field[s]{\parskip\smallskipamount\toname\\\toaddress}}
%    \end{macrocode}
% \end{macro}
% \iffalse
%</address>
% \fi
% \Finale