\def\filedate{1997/10/23}
\def\fileversion{2.4}
%
%
%\iffalse
% class `g-brief' to be used with LaTeX 2e
% Copyright (C) 1991-1997 Michael Lenzen. All rights reserved.
%
% Copying of this file is authorized only if either
% (1) you make absolutely no changes to your copy, including name, or
% (2) if you do make changes, you name it something other than
%     g-brief.* .
% This restriction helps ensure that all files developed
% are identical.
%
% Error reports for UNCHANGED versions please to:
%                          Michael Lenzen
%                          Zur Belsmuehle 15
%                          53347 Alfter
%                          Germany
%
%                  E-Mail: <lenzen@vivienne.shw.com
%                          <michael@theory.cs.uni-bonn.de>
%
%\fi
%
%\def\AmS{{\protect\the\textfont2 A}\kern-.1667em\lower
%  .5ex\hbox{\protect\the\textfont2 M}\kern
%  -.125em{\protect\the\textfont2 S}}
%
%\flushbottom
%
%\parindent0mm
%
%\begin{center}
%  \parskip3mm
%  {\LARGE\textbf{Gesch"aftsbriefe mit \LaTeXe}}\par
%  {\LARGE\textbf{-- der g-brief\,\footnote {Diese Datei hat die
%    Versionsnummer \fileversion\ --\ letzte "Uberarbeitung \filedate.} --}} 
%  \par\vspace{10mm}\par
%  {\LARGE Version~\fileversion}
%  \par\vspace{10mm}\par
%  \parskip1mm
%  {\large Michael Lenzen}\par
%  {\large Zur Belsm"uhle 15}\par
%  {\large D--53347 Alfter}\par
%  \par\vspace{7mm}\par
%  {\large\texttt{lenzen@vivienne.shw.com}}\par
%  {\large\texttt{michael@theory.cs.uni-bonn.de}}
%\end{center}
%
%\vspace{12mm}
%\parskip0mm
%\setcounter{tocdepth}{1}
%\tableofcontents
%\parskip3mm
%
%\clearpage
%\section{Kurzinformation}
%
%Der g-brief dient zur Formatierung vordruckloser Briefe im A4-Format
%unter \LaTeXe und dem \LaTeX\ 2.09~Kompabilit"atsmodus von \LaTeXe.
%Unterst"utzt werden dabei sowohl die deutsche als auch die englische
%Sprache.\\ Soweit in dieser Beschreibung nicht anders angegeben,
%gelten die im \textsl{\LaTeX-Manual} von Lamport beschriebenen Regeln und
%Befehle f"ur \LaTeX bzw. die im \textsl{"\LaTeXe\ for authors"} vom
%\LaTeX~3 Project Team oder \textsl{"Der \LaTeX\ Begleiter"} von
%M.\,Goossens/F.\,Mittelbach/A.\,Samarin f"ur \LaTeXe.
%
%\vspace{5mm}
%\section{Systemvoraussetzungen}
%
%Erstellt wurde der g-brief f"ur \LaTeXe\ vom 16.~Juni~1997 und dessen
%Kompabilit"ats-Modus. Das \verb/.cls-/File ist f"ur die Benutzung unter
%\LaTeXe und das \verb/.sty-/File f"ur die Benutzung unter dem
%Kompatibilit"atsmodus vorgesehen.\\
%F"ur alle Sprachen wird \textsl{Babel} ab der Ver\-sion 3.6h vom
%23.~Januar~1997 vorausgesetzt. Ausschlie"slich Briefe in deutscher Sprache
%k"onnen aus Kompatibilit"atsgr"unden ohne \textsl{Babel} mit dem
%\verb/german.sty/ ab der Version 2.5d vom 1.~Mai~1997 benutzt werden.
%Sollte beides auf Ihrem System installiert sein, wird automatisch
%\textsl{Babel} verwendet.
%
%\vspace{5mm}
%\section{Benutzung des g-briefs}
%\subsection{Aufruf}
%
%f"ur \LaTeXe\,:\par \hspace{5mm}
%\verb/\documentclass[<optionen>]{g-brief}/
%
%\vspace{5mm}
%
%f"ur den \LaTeX\ 2.09~Kompatibilit"atsmodus\,:\par \hspace{5mm}
%\verb/\documentstyle[<optionen>]{g-brief}/
%
%\newpage
%
%\subsection{Optionen f"ur \texttt{documentclass} und \texttt{documentstyle}}
%
%\begin{tabbing}
%  AAAAAAAAAAAAAAAAA\=\kill \verb/10pt/, \verb/11pt/, \verb/12pt/
%  \>\verb/11pt/ entspricht einer Schreibmaschinenschrift \\ \> mit
%  Zeilenschaltung 1 und ist voreingestellt\\[2ex]
%  \verb/german, english,/ \> \verb/german/ veranla"st \LaTeX, die
%  deutschen Trenn- \\ \verb/american/ \> muster zu verwenden, l\"adt
%  \textsl{Babel} oder den \\ \> \verb/german.sty/, definert die
%  deutschen "Uberschrif- \\ \> ten wie z.B. {\footnotesize \textsc{Ihr
%      Zeichen}} und ist voreingestellt;\\ \> \verb/english/ aktiviert
%  die englischen Trennmuster, \\ \>das britische Datumsformat und
%  definiert die \\ \> "Uberschriften in englischer Sprache; \\ \>
%  \verb/american/ verh"alt sich wie \verb/english/,\ jedoch \\ \>
%  wird das amerikanische Datumsformat ver- \\ \>  wendet
%\end{tabbing}
%
%\subsection{Befehle}
%
%Befehle, die leer sind, d.h. auch keine Leerzeichen enthalten, werden
%vom g-brief so behandelt, als w"aren sie nicht benutzt.  Nicht
%benutzte Befehle sind grunds"atzlich als leer definiert.
%
%\begin{tabbing}
%  AAAAAAAAAAAAAAAAA\=\kill
%  \verb/\Name{ }/ \> \textsl{einzeilig} Ihr Vorname und Name \\[2ex]
%  \verb/\Strasse{ }/ \> \textsl{einzeilig} Ihre Stra"se und Ihre
%  Hausnummer \\[2ex]
%  \verb/\Zusatz{ }/ \> \textsl{einzeilig} ein f\"ur einen Zusatz zur
%  Adresse \\[2ex]
%  \verb/\Ort{ }/ \> \textsl{einzeilig} Ihre Postleitzahl und Ihr
%  Ort \\[2ex]
%  \verb/\Land{ }/ \> \textsl{einzeilig} Ihr Land; bei Verwendung
%  dieses Be- \\ \> fehles sollten Sie Ihre Adresse im Sichtfenster \\
%  \> mit \verb/\RetourAdresse{ }/ festlegen, um eine \\ \>
%  L\"angen\"uberschreitung im Sichtfensterbereich \\ \> zu
%  vermeiden.\\[2ex]
%  \verb/\RetourAdresse{ }/ \> \textsl {einzeilig} f"ur ihre Adresse im
%  Sichtfenster; \\ \> bleibt dieser Befehl leer, wird die Retour- \\ \>
%  adresse aus den Angaben aus \verb/\Name{ }/, \\ \> \verb/\Strasse{ }/
%  und  \verb/\Ort{ }/ zusammengesetzt \\[2ex]
%  \verb/\Unterschrift{ }/ \> \textsl{einzeilig} Ihr Name, wie er am
%  Ende des \\ \> Briefes unter Ihrer Unterschrift stehen soll
%\end{tabbing}
%
%Die nachfolgenden f"unf Befehle dienen dazu, Ihre fernm"undliche,
%fernschriftliche und elektronische Adressen anzugeben. Wie oben schon
%beschrieben, werden leere Befehle nicht ausgegeben.
%
%\begin{tabbing}
%  AAAAAAAAAAAAAAAAA\=\kill
%  \verb/\Telefon{ }/ \> \textsl{einzeilig} Ihre Telefonnummer \\[2ex]
%  \verb/\Telefax{ }/ \> \textsl{einzeilig} Ihre Telefaxnummer \\[2ex]
%  \verb/\Telex{ }/ \> \textsl{einzeilig} Ihre Telexnummer \\[2ex]
%  \verb/\EMail{ }/ \> \textsl{einzeilig} Ihre EMail-Adresse \\[2ex]
%  \verb/\HTTP{ }/ \> \textsl{einzeilig} Ihre HTTP-Adresse
%\end{tabbing}
%
%Die nachfolgenden Angaben m"ussen vollst"andig ausgef"ullt sein, damit
%die Bankverbindung erscheint. Entf\"allt eine Angabe oder bleibt sie
%leer, wird keine Bankverbindung ausgegeben.
%
%\begin{tabbing}
%  AAAAAAAAAAAAAAAAA\=\kill
%  \verb/\Bank{ }/ \> \textsl{einzeilig} der Name Ihrer Bank \\[2ex]
%  \verb/\BLZ{ }/ \> \textsl{einzeilig} die Bankleitzahl Ihrer Bank
%  \\[2ex]
%  \verb/\Konto{ }/ \>\textsl {einzeilig} Ihre Kontonummer
%\end{tabbing}
%
%"Uberschriften f"ur Referenzen wie z.B.~\textsc{Ihr Zeichen}, auf die
%sich Ihr Schreiben bezieht, werden nur dann ausgegeben, wenn
%mindestens ein Befehl aus \verb/\IhrZeichen/,\ \verb/\IhrSchreiben/
%oder \verb/\MeinZeichen/ verwendet wurde.  Ausgenommen davon ist die
%"Uberschrift des Datums.
%
%\begin{tabbing}
%  AAAAAAAAAAAAAAAAA\=\kill
%  \verb/\Postvermerk{ }/ \>f"ur postalische Vermerke wie
%  Einschreiben,\\ \> Drucksache, etc. \\[2ex]
%  \verb/\Adresse{ }/ \> \textsl{mehrzeilig} die Anschrift des
%  Empf"angers \\[2ex]
%  \verb/\Datum{ }/ \> \textsl{einzeilig} f"ur das Datum Ihres
%  Schreibens (vor- \\ \>eingestellt ist das Tagesdatum in der gew"ahl-
%  \\ \>ten Sprache) \\[2ex]
%  \verb/\IhrZeichen{ }/ \>\textsl {einzeilig} f"ur das Zeichen des
%  Adressaten, auf \\ \>das Sie sich beziehen. \\[2ex]
%  \verb/\IhrSchreiben{ }/ \>\textsl {einzeilig} f"ur das Datum des
%  Schreibens, auf \\ \> das Sie sich beziehen \\[2ex]
%  \verb/\MeinZeichen{ }/ \> \textsl{einzeilig} f"ur Ihr Zeichen
%  \\[2ex]
%\end{tabbing}
%\begin{tabbing}
%  AAAAAAAAAAAAAAAAA\=\kill
%  \verb/\unserzeichen/ \> logischer Schalter, um die "Uberschrift
%  der\\ \> \verb/\MeinZeichen{ }-/Angabe von \textsc{Mein Zeichen} \\ 
%  \> auf \textsc{Unser Zeichen} umzuschalten \\[2ex]
%  \verb/\trennlinien/ \> logischer Schalter, um die Trennlinien zwischen
%  \\ \> Kopf und Textrumpf bzw. Textrumpf und Fu"s \\ \> zu
%  setzen; die Retouradresse im Sichtfenster wird \\ \> durch
%  eine Unterstreichung von der Empf\"anger- \\ \>adresse abgehoben \\[2ex]
%  \verb/\lochermarke/ \> logischer Schalter, um die Lochermarke auf dem \\
%  \> linken Rand der ersten Seite zu setzen \\[2ex]
%  \verb/\faltmarken/ \> logischer Schalter, um die Faltmarken auf der \\
%  \> ersten Seite zu setzen \\[2ex]
%  \verb/\fenstermarken/ \>logischer Schalter, um die Begrenzungsmarken \\
%  \> des Sichtfensters auf der ersten Seite zu setzen \\[2ex]
%  \verb/\klassisch/ \> logischer Schalter, um auf das alte Kopfzeilen- \\
%  \> format in \verb/\textrm{ }/, das \textsl{Betr.:} in der Betreff- \\
%  \>zeile und den Namen unter der Unterschrift in \\ \> kursiver
%  Darstellung mit Klammern zur\"uckzu- \\ \> schalten \\ [2ex]
%  \verb/\Betreff{ }/ \> \textsl{einzeilig} f"ur Betreff; ist kein
%  Betreff definiert, \\ \> beginnt die Anrede in dieser Zeile \\[2ex]
%  \verb/\Anrede{ }/ \> \textsl{einzeilig} f"ur die Anrede im Brief
%  \\[2ex]
%  \verb/\Gruss{ }{ }/ \> \textsl{einzeilig} f"ur die Gru"sformel am
%  Ende des Briefes;\\ \> der zweite Parameter gibt den horizontalen
%  Vor-\\ \> schub zwischen Text und Gru"sformel mit einer\\ \> Einheit
%  an (z.B.  \texttt{ \{1.5cm\}}) \\[2ex]
%  \verb/\Anlagen{ }/ \> \textsl{ein- oder mehrzeilig} f"ur Anlagen
%  (erzeugt selbst \\ \> keinen Text) \\[2ex]
%  \verb/\Verteiler{ }/ \> \textsl{ein- oder mehrzeilig} f"ur
%  Verteiler (erzeugt selbst \\ \> keinen Text)
%\end{tabbing}
%
%\clearpage
%\section{Druckeranpassung}
%
%Stimmt der anhand der Faltmarken gefaltete Brief nicht mit dem
%Sichtfenster des Fensterumschlages "uberein, so sollte die
%Nullpunkteinstellung des Druckers bzw. des DVI-Treibers mit Hilfe des
%Files \texttt{testpage.tex}, welches Bestandteil der
%\LaTeXe\/-Distribution ist, "uberpr"uft und gegebenfalls justiert
%werden.\\ Steht Ihnen dieser Weg nicht offen, dann sollten Sie in dem
%\textsl{Class-File} des g-briefs den Parametern \verb/\VorschubH/ und
%\verb/\VorschubV/ die geeigneten Werte zuweisen: Unter Verwendung von
%\verb/\VorschubH=/$x$, \verb/\VorschubV=/$y$ wird der Ausdruck um $x$
%nach rechts und $y$ nach unten verschoben.
%
%\section{Beschreibung der Dateien}
%
%\begin{tabbing}
% AAAAAAAAAAAAAAAAA\=\kill
% \verb/g-brief.ins/ \> Installationsskript f"ur \LaTeXe \\[1ex]
% \verb/g-brief.dtx/ \> g-brief Archiv \\[2ex]
% \verb/g-brief.drv/ \> Dokumentation \\[1ex]
% \verb/g-brief.cls/ \> Class-File f"ur \LaTeXe \\[1ex]
% \verb/g-brief.sty/ \> Package-File f"ur den Kompabilit"atsmodus \\[1ex]
% \verb/beispiel.tex/ \> Beispiel-Datei
%\end{tabbing}
%
%\section{Installation}
%
%Kopieren Sie die Dateien \verb/g-brief.cls/ und \verb/g-brief.sty/ in
%ein Verzeichnis, in dem \TeX\ automatisch nach Input-Dateien sucht.
%
%\section{Mailing-Listen}
%
%Mit der Version 2.0 wurden die drei folgenden Mailing-Listen eingerichtet:
%
%\begin{description}
%\item[g-brief:]
%
%Die g-brief Mailing-Liste dient zur Diskussion \"uber die Anwendung
%des g-brief Paketes. Inhalte sind unter anderem Features,
%Erweiterungen, Bug Reports und \textsl{Tips und Tricks}.
%
%\clearpage
%\item[g-brief-announce:]
%
%Die g-brief-announce Mailing-Liste dient ausschlie"slich zur
%Ank\"undigung neuer Versionen dieses Paketes.
%
%\item[g-brief-digest:]
%Die g-brief-digest Mailing-Liste ist die Zusammenfassung der
%beiden oben angef\"uhrten Listen in Form eines monatlichen
%Digest. Die gesammelten und archivierten Nachrichten werden
%jeweils am 1. eines Monats f\"ur den vorausgehenden Monat
%zusammengestellt und verschickt. 
%
%\end{description}
%
%Zur Bestellung einer der oben angef\"uhrten Listen schreiben Sie
%bitte eine Mail an \verb/majordomo@vivienne.shw.com/ mit einem leeren
%\textsl{Subject} und dem Inhalt \verb/subscribe <Listenname>/. Dabei
%steht \verb/<Listenname>/ f\"ur \textsl{g-brief},
%\textsl{g-brief-announce} oder \textsl{g-brief-digest}. F\"ur weitere
%Informationen wenden Sie sich bitte an \verb/lenzen@vivienne.shw.com/.
%
%\section{Bugs}
%
%Wird bei \verb/\Adresse{ }/ eine Leerzeile eingef"ugt, gibt \LaTeX~
%eine \verb/Underfull/ \verb/\hbox (badness 10000)/ -Warnung aus. Diese
%Warnung kann ignoriert werden.
%
%\section{Bugfixes}
%
%\begin{description}
%\item[Version 1.4b:] Bei Briefen mit einer L\"ange von \"uber einer
%   Seite wurde auf den folgenden Seiten der Stil der ersten Seite
%   beibehalten. Der Stil f\"ur Folgeseiten findet jetzt ab der
%   zweiten Seite Anwendung.\\
%   Auf der ersten Seite wurde kein Abstand zwischen Textrumpf und
%   Fu"szeilen gelassen. Der Abstand betr\"agt jetzt eine Zeile, wodurch
%   sich jedoch der Textrumpf von 57 auf 56 Zeilen verk\"urzt.
%
%\item[Version 2.0:] Wurde innerhalb der g-brief-Umgebung  eine "Anderung
%   des \verb/\baselinestretch/ vorgenommen, so hatte das Auswirkungen auf
%   statische Textelemente wie Adressfenster und Fu"szeilen. Eine "Anderung
%   des \verb/\baselinestretch/ wirkt sich jetzt ausschlie"slich auf den
%   Text\-rumpf aus.
%
%\item[Version 2.1:] Wurde in einem g-brief \verb/\Datum{\today}/
%   kommentiert, so f"uhrte dies zu einer endlosen Rekursion.\\
%   Die Option \verb/english/ verwendete statt dem englischen das
%   amerika\-nische Datumsformat.
%
%\item[Version 2.2:] Bei Angabe der Option \verb/english/ oder
%  \verb/american/ wurden die deutschen \"Uberschriften gedruckt.
%\end{description}
%
%\section{\"Anderungen}
%
%\begin{description}
%\item[Version 1.4b:] Trennlinien, Faltmarken und Sichtfenstermarken
%  werden nur noch gesetzt, wenn die entsprechenden Schalter
%  \verb/\trennlinien/, \verb/\faltmarken/ und \verb/\fenstermarken/
%  benutzt werden.\\
%  Das Layout der Kopfzeilen wurde von \verb/\textrm/ auf \verb/\textsc/
%  ge\"andert. Das alte klassische Layout ist nach wie vor \"uber den
%  logischen Schalter \verb/\klassisch/ erreichbar.
%
%\item[Version 2.0:] Mit dem Schalter \verb/\lochermarke/ wird eine 
%  Lochermarke auf der ersten Seite gedruckt, um das Abheften zu
%  erleichtern.\\
%  In Anlehnung an die DIN wird die Betreffzeile jetzt in fetter
%  Schrift\-serie und ohne f"uhrendes \textsl{Betr.:} gedruckt. Die
%  bisherige Darstellung ist weiterhin "uber den Schalter
%  \verb/\klassisch/ verf"ugbar.\\
%  Ebenfalls in Anlehnung an die DIN wird der Name, der unter der 
%  Unterschrift stehen soll, nicht mehr kursiv und in Klammern
%  gesetzt. Die bisherige Darstellung ist weiterhin "uber den Schalter
%  \verb/\klassisch/ verf"ugbar.
%
%  Weiter wurden die oben angef\"uhrten Mailing-Listen eingerichtet.
%
%\item[Version 2.1:] In Anpassung an \textsl{Babel} wurde die Option 
%  \verb/usenglish/ durch \verb/american/ ersetzt.\\
%  Ab sofort wird \textsl{Babel} auch f"ur Briefe mit der Option
%  \verb/english/ oder \verb/american/ zwingend ben"otigt und
%  vorausgesetzt.
%
%\item[Version 2.2:] Der Befehl \verb/\BTX{}/ zur Angabe der BTX-Adresse
%  wurde ersatzlos entfernt.\\
%  Neu hinzugef"ugt wurde der Befehl \verb/\HTTP{}/ zur Angabe der 
%  Adresse einer Homepage.
%
%\item[Version 2.4:] Der Befehl \verb/\Land{}/ zur optionalen Angabe
%  des Landes wurde neu eingef"uhrt. Bitte beachten Sie bei Verwendung
%  dieses Befehls den unter 3.3 angef"uhrten Hinweis.
%
%\end{description}
%
%\vspace{5mm}
%\unitlength1mm
%\begin{picture}(0,0)
%  \put(-9, 0){\rule{145mm}{1pt}}
%\end{picture} \enddocument
%
%
%
%\begin{macrocode}
%<*class>
\def\filedate{1997/10/23}
\def\fileversion{2.4}
\def\filename{g-brief.cls}
\NeedsTeXFormat{LaTeX2e}[1997/06/01]

\ProvidesClass{g-brief}[\filedate\space v\fileversion\space g-brief class]

\newdimen\VorschubH
\newdimen\VorschubV
\VorschubH = 0.0mm
\VorschubV = 0.0mm

%
% OPTIONEN
%
\DeclareOption{10pt}{\def\@schrift{0}}
\DeclareOption{11pt}{\def\@schrift{1}}
\DeclareOption{12pt}{\def\@schrift{2}}
\DeclareOption{german}{
  \def\sprache{german}
  \def\telefontex{{\footnotesize Telefon\/:}}
  \def\telefaxtext{{\footnotesize Telefax\/:}}
  \def\telextext{{\footnotesize Telex\/:}}
  \def\emailtext{{\footnotesize E--Mail\/:}}
  \def\httptext{{\footnotesize HTTP\/:}}
  \def\banktext{{\footnotesize Bankverbindung\/:}}
  \def\blztext{{\footnotesize BLZ}}
  \def\kontotext{{\footnotesize Kto.}}
  \def\betrefftext{{\normalsize Betr.:}}
  \def\ihrzeichentext{\footnotesize\textsc{Ihr Zeichen}}
  \def\ihrschreibentext{\footnotesize\textsc{Ihr Schreiben vom}}
  \def\meinzeichentext{\footnotesize\textsc{Mein Zeichen}}
  \def\unserzeichentext{\footnotesize\textsc{Unser Zeichen}}
  \def\datumtext{\footnotesize\textsc{Datum}}
  \def\datum{\number\day.~\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}}
\DeclareOption{english}{
  \def\sprache{english}
  \def\telefontex{{\footnotesize Phone\/:}}
  \def\telefaxtext{{\footnotesize Fax\/:}}
  \def\telextext{{\footnotesize Telex\/:}}
  \def\emailtext{{\footnotesize E--Mail\/:}}
  \def\httptext{{\footnotesize HTTP\/:}}
  \def\banktext{{\footnotesize Bank\/:}} \def\blztext{{\footnotesize
      code}} \def\kontotext{{\footnotesize acct}}
  \def\betrefftext{{\normalsize Subj.:}}
  \def\ihrzeichentext{\footnotesize\textsc{Your Ref.}}
  \def\ihrschreibentext{\footnotesize\textsc{Your Mail}}
  \def\meinzeichentext{\footnotesize\textsc{My Ref.}}
  \def\unserzeichentext{\footnotesize\textsc{Our Ref.}}
  \def\datumtext{\footnotesize\textsc{Date}}}
\DeclareOption{american}{
  \def\sprache{american}
  \def\telefontex{{\footnotesize Phone\/:}}
  \def\telefaxtext{{\footnotesize Fax\/:}}
  \def\telextext{{\footnotesize Telex\/:}}
  \def\emailtext{{\footnotesize E--Mail\/:}}
  \def\httptext{{\footnotesize HTTP\/:}}
  \def\banktext{{\footnotesize Bank\/:}} \def\blztext{{\footnotesize
      code}} \def\kontotext{{\footnotesize acct}}
  \def\betrefftext{{\normalsize Subj.:}}
  \def\ihrzeichentext{\footnotesize\textsc{Your Ref.}}
  \def\ihrschreibentext{\footnotesize\textsc{Your Mail}}
  \def\meinzeichentext{\footnotesize\textsc{My Ref.}}
  \def\unserzeichentext{\footnotesize\textsc{Our Ref.}}
  \def\datumtext{\footnotesize\textsc{Date}}}

\ExecuteOptions{11pt,@sprache} \ProcessOptions

\LoadClass[1\@schrift pt, a4paper, oneside, final]{letter}[1997/04/16]

\normalsize

%
% SEITENLAYOUT
%
\setlength\oddsidemargin{0\p@}
\setlength\evensidemargin{\oddsidemargin}
\setlength\marginparwidth{90\p@}
\setlength\marginparsep{11\p@}
\setlength\marginparpush{5\p@}
\setlength\topmargin{-12.69mm}
\setlength\headheight{4.23mm}
\setlength\headsep{6.35mm}
\setlength\topskip{3.38mm}
\addtolength\footskip{4.23mm}

\setlength\textheight{178.88mm}
\setlength\textwidth{165mm}

\setlength\lineskip{1\p@}
\setlength\normallineskip{1\p@}

\renewcommand\baselinestretch{1}

\advance\topmargin by \VorschubV
\advance\oddsidemargin by \VorschubH
\setlength\evensidemargin{\oddsidemargin}

\AtEndOfClass{\pagestyle{regularpage}}

%
%  G-BRIEF BEFEHLE
%
\def\Name#1{\def\name{#1}} \def\name{}
\def\Strasse#1{\def\strasse{#1}} \def\strasse{}
\def\Zusatz#1{\def\zusatz{#1}} \def\zusatz{}
\def\Ort#1{\def\ort{#1}} \def\ort{}
\def\Land#1{\def\land{#1}} \def\land{}
\def\RetourAdresse#1{\def\retouradresse{#1}} \def\retouradresse{}

\def\Telefon#1{\def\telefon{#1}} \def\telefon{}
\def\Telefax#1{\def\telefax{#1}} \def\telefax{}
\def\Telex#1{\def\telex{#1}} \def\telex{}
\def\EMail#1{\def\email{#1}} \def\email{}
\def\HTTP#1{\def\http{#1}} \def\http{}

\def\Bank#1{\def\bank{#1}} \def\bank{}
\def\BLZ#1{\def\blz{#1}} \def\blz{}
\def\Konto#1{\def\konto{#1}} \def\konto{}

\def\Postvermerk#1{\def\postvermerk{#1}} \def\postvermerk{}
\def\Adresse#1{\def\adresse{#1}} \def\adresse{}

\def\IhrZeichen#1{\def\ihrzeichen{#1}} \def\ihrzeichen{}
\def\IhrSchreiben#1{\def\ihrschreiben{#1}} \def\ihrschreiben{}
\def\MeinZeichen#1{\def\meinzeichen{#1}} \def\meinzeichen{}
\def\Datum#1{\def\datum{#1}} \def\datum{\today}

\def\Betreff#1{\def\betreff{#1}} \def\betreff{}

\def\Anrede#1{\def\anrede{#1}} \def\anrede{}
\def\Gruss#1#2{\def\gruss{#1} \def\grussskip{#2}}
    \def\gruss{} \def\grussskip{}

\def\Unterschrift#1{\def\unterschrift{#1}} \def\unterschrift{}

\def\Anlagen#1{\def\anlagen{#1}} \def\anlagen{}
\def\Verteiler#1{\def\verteiler{#1}} \def\verteiler{}

\long\def\Einrueckung#1{\par\begin{tabular}{@{\hspace{1in}}p{5in}@{}}
    #1\end{tabular}\par}

\newif\ifklassisch\klassischfalse
\def\klassisch{\klassischtrue}

\newif\iftrennlinien\trennlinienfalse
\def\trennlinien{\trennlinientrue}

\newif\iflochermarke\lochermarkefalse
\def\lochermarke{\lochermarketrue}

\newif\iffaltmarken\faltmarkenfalse
\def\faltmarken{\faltmarkentrue}
  
\newif\iffenstermarken\fenstermarkenfalse
\def\fenstermarken{\fenstermarkentrue}

\newif\ifunserzeichen\unserzeichenfalse
\def\unserzeichen{\unserzeichentrue}

%
%  G-BRIEF ENVIRONMENT
%
\newenvironment{g-brief}{
  \thispagestyle{firstpage}
  \setlength\unitlength{1mm}
  
  \c@page\@ne
  \interlinepenalty=200
  \clearpage
  
  \ifx \ihrzeichen\empty \ifx \ihrschreiben\empty \ifx
  \meinzeichen\empty \makebox[45.5mm][l]{} \makebox[55.0mm][l]{}
  \makebox[20.0mm][l]{} \else \makebox[45.5mm][l]{\ihrzeichentext}
  \makebox[55.0mm][l]{\ihrschreibentext} \ifunserzeichen
  \makebox[20.0mm][l]{\unserzeichentext} \else
  \makebox[20.0mm][l]{\meinzeichentext} \fi \fi \else
  \makebox[45.5mm][l]{\ihrzeichentext}
  \makebox[55.0mm][l]{\ihrschreibentext} \ifunserzeichen
  \makebox[20.0mm][l]{\unserzeichentext} \else
  \makebox[20.0mm][l]{\meinzeichentext} \fi \fi \else
  \makebox[45.5mm][l]{\ihrzeichentext}
  \makebox[55.0mm][l]{\ihrschreibentext} \ifunserzeichen
  \makebox[20.0mm][l]{\unserzeichentext} \else
  \makebox[20.0mm][l]{\meinzeichentext} \fi \fi
  \makebox[37.0mm][r]{\datumtext} \\
  \makebox[45.5mm][l]{\ihrzeichen}
  \makebox[55.0mm][l]{\ihrschreiben}
  \makebox[20.0mm][l]{\meinzeichen}
  \makebox[37.0mm][r]{\datum} \par
  
  \vspace{8mm}

  \ifcase\@ptsize\vspace{0.045pt}\or \vspace{-1.555pt}\or
  \vspace{-2.955pt} \fi

  \ifx \betreff\empty \else \ifklassisch \betrefftext \space \space
  \betreff \else \textbf{\betreff} \fi \mbox{}
  \par \vspace{-1\parskip} \vspace{8mm} \fi

  \ifcase\@ptsize\vspace{0.045pt}\or \vspace{-1.555pt}\or
  \vspace{-2.955pt} \fi

  \ifx \anrede\empty \else \anrede \par \fi\nobreak
  \addtolength\textheight{63mm}
  }
{
  \renewcommand{\baselinestretch}{1.0}
  \ifcase \@ptsize\relax \normalsize \or \small \or \footnotesize \fi
 
  \vspace{\grussskip} \par \nobreak \stopbreaks \noindent
  \parbox[t]{3.5in}{\raggedright \ignorespaces {\normalsize \ifx
      \gruss\empty \else \gruss \mbox{} \\[16.92mm] \fi \ifx
      \empty\unterschrift \relax \else \ifklassisch
      \textsl{(\unterschrift)} \else \unterschrift \fi}
    \fi\strut} \ifx \anlagen\empty \else \vspace{4mm} \par \anlagen
  \par \fi \ifx \verteiler\empty \else \ifx \anlagen\empty
  \vspace{4mm}\par \fi \verteiler \fi }

%
%  PAGE STYLES
%
\def\ps@firstpage{
  \renewcommand{\baselinestretch}{1.0}
  \ifcase \@ptsize\relax \normalsize \or \small \or \footnotesize \fi
  \headheight16pt\headsep63mm
  \def\@oddhead{
    \unitlength1mm
    \begin{picture}(0,0)
      \put(-9, 3){\parbox{180mm}{\Large \ifklassisch \textsl{\quad\name}
          \else \textsc{\quad\name} \fi}}
      \put(-9, 4){\parbox{180mm}{\hfill \normalsize \ifklassisch \textsl{
            \begin{tabular}{r} \strasse \quad \\ \ifx \zusatz\empty \else
              \zusatz \quad \\ \fi \ort \quad \ifx \land\empty \else \\
              \land \quad \fi \end{tabular}} \else \textsc{
            \begin{tabular}{r} \strasse \quad \\ \ifx \zusatz\empty \else
              \zusatz \quad \\ \fi \ort \quad \ifx \land\empty \else \\
              \land \quad \fi \end{tabular}} \fi}}
      \iftrennlinien \put(-9,-7){\rule{180mm}{0.5pt}} \fi
      \iflochermarke \put(-20,- 130.50){\line(1,0){4}} \fi
      \iffaltmarken \put(-15,- 75.16){\line(1,0){3}}
      \put(-15,-182.16){\line(1,0){3}} \fi
      \put( -9, -22.00){\makebox(85,4)
        {\scriptsize \ifx \retouradresse\empty
          \textrm{\name\ $\cdot$\ \strasse\ $\cdot$\ \ort \ifx
              \land\empty \else \ $\cdot$\ \land \fi } \else
            \textrm{\retouradresse} \fi}}
      \iftrennlinien \put( -9, -22.10){\line(1,0){85}} \fi
      \put(-1,-28.15){\parbox[t]{3in}{\ifx \postvermerk\empty \hfill \par
          \else \textbf{\postvermerk} \par \vspace{2mm} \fi \adresse}}
      \iffenstermarken
      \put(-9,-18.15){\line( 1, 0){1}} \put(-9,-18.15){\line( 0,-1){1}}
      \put(76,-18.15){\line(-1, 0){1}} \put(76,-18.15){\line( 0,-1){1}}
      \put(-9,-61.00){\line( 1, 0){1}} \put(-9,-61.00){\line( 0, 1){1}}
      \put(76,-61.00){\line(-1, 0){1}} \put(76,-61.00){\line( 0, 1){1}}
      \fi
    \end{picture}
    \hfill}
  \def\@oddfoot{\unitlength1mm
    \def\istsprache{german}
    \begin{picture}(0,0)
      \put(-9,0){\parbox{180mm}{\footnotesize \iftrennlinien
          \rule{180mm}{0.5pt} \fi
          \begin{tabular}{ll}
            \ifx \telefon\empty \else \telefontex & \telefon \\ \fi \ifx
            \telefax\empty \else \telefaxtext & \telefax \\ \fi \ifx
            \telex\empty \else \telextext & \telex \\ \fi \ifx
            \email\empty \else \emailtext & \email \\ \fi \ifx
            \http\empty \else \httptext & \http \\ \fi \
          \end{tabular}\hfill
          \begin{tabular}{ll}
            \ifx \bank\empty \else \ifx \blz\empty \else \ifx
            \konto\empty \else \banktext & \bank \\ & \blztext \space \blz
            \\ & \kontotext \space \konto \\ \ \fi \fi \fi
          \end{tabular}}}
    \end{picture} \hfill}
  \def\@evenhead{\@oddhead} \def\@evenfoot{\@oddfoot}}

\def\ps@regularpage{ \headheight36pt\def\@oddhead{\unitlength1mm
    \begin{picture}(0,0)
      \put(-9,3){\makebox(180,15){\normalsize \ifklassisch \textsl{
        {\Large\quad}\name\hfill\datum\hfill\pagename\ \thepage\quad}
        \else \textsc{{\Large\quad}\name\hfill\datum\hfill\pagename\
        \thepage\quad} \fi}}
      \iftrennlinien \put(-9,0){\rule{180mm}{0.5pt}} \fi
    \end{picture}\hfill}
  \def\@oddfoot{\empty} \def\@evenhead{\@oddhead}
  \def\@evenfoot{\@oddfoot}}

%
%  INITIALISIERUNG DER SPRACHE
%
\def\istsprache{german}
\ifx \sprache\istsprache
\IfFileExists{babel.sty}
{\RequirePackage[\sprache]{babel}[1997/01/23] }
{\IfFileExists{german.sty}
  {\RequirePackage{german}[1997/05/01]}
  {\ClassError{g-brief}
    {Neither babel nor german.sty installed !!!}
    {Get babel or german.sty !!!}}}
\else
\IfFileExists{babel.sty}
  {\RequirePackage[\sprache]{babel}[1997/01/23]}
  {\ClassError{g-brief}
    {Babel not installed !!!}
    {Get babel package !!!}}
\fi
%</class>
%
%<*style>
\def\filename{g-brief.sty}
\NeedsTeXFormat{LaTeX2e}[1997/06/01]
\@obsoletefile{g-brief.cls}{g-brief.sty}
\LoadClass{g-brief}
%</style>
%
%<*driver>
\documentclass[11pt,a4paper]{article}
\IfFileExists{babel.sty}
  {\usepackage[german]{babel}[1997/01/23] }
  {\IfFileExists{german.sty}
    {\usepackage{german[1997/05/01]}}
      {\PackageError{german.sty}
        {Neither babel nor german.sty installed !!!}
        {Get babel or german.sty !!!}}}
\usepackage{doc}
%\docstart
\begin{document}
\DocInput{g-brief.dtx}
\end{document}
%</driver>
%
%<*sample>
\documentclass[11pt,german]{g-brief}

\lochermarke
\faltmarken
\fenstermarken
\trennlinien
%% \klassisch

\Name                {Otto Raffzahn}
\Strasse             {Wiesenacker 25a}
\Zusatz              {}
\RetourAdresse       {}
\Ort                 {D-99533 Weitewelt}
\Land                {}

\Telefon             {+49--000--00000}
\Telefax             {+49--000--00000}
\Telex               {}
\HTTP                {http://www.raffzahn.com}
\EMail               {otto@mail.raffzahn.com}

\Bank                {Bankhaus Skrupellos \& Co.}
\BLZ                 {000.000.00}
\Konto               {000.000.000}

\Unterschrift        {Otto Raffzahn}

\Postvermerk         {E I N S C H R E I B E N}
\Adresse             {Frau\\
                      Else Mittellos\\
                      Finsterweg 12\\
                      \\
                      D-93456 Tiefeschlucht
                      }

\Betreff             {Zahlung Ihrer Miete}

\Datum               {\today}
\IhrZeichen          {}
\IhrSchreiben        {}
\MeinZeichen         {OR}

\Anrede              {Sehr geehrte Frau Mittellos,}
\Gruss               {Mit freundlichen Gr\"u\ss{}en}{1cm}

\Anlagen             {}
\Verteiler           {}

\begin{document}
\begin{g-brief}

seit der siebten Mieterh\"ohung im laufenden Jahr konnte ich keinen
Zahlungseingang von Ihnen mehr verbuchen. Ich bitte Sie Ihren
Verpflichtungen schnellstens nachzukommen, da ich mich sonst gezwungen sehe,
Ihre Miete ein weiteres mal anzuheben.

\end{g-brief}
\end{document}
%</sample>
%
%\end{macrocode}

\endinput
