\def\filedate{1995/02/22}
\def\fileversion{1.4b}
%
%
%\iffalse
% class `g-brief' to be used with LaTeX 2e
% Copyright (C) 1991-1995 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: <michael@theory.cs.uni-bonn.de>
%                          <michael_lenzen@zaphod.rhein.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
%\parskip3mm
%\title{ Gesch"aftsbriefe mit \LaTeXe\
%        -- der g-brief\,\thanks {Diese Datei
%        hat die Versionsnummer \fileversion\ --\
%        letzte "Uberarbeitung \filedate.} --}
%
%\author{ Michael Lenzen\\
%         Zur Belsm"uhle 15\\
%         D--53347 Alfter\\
%         {\tt michael@theory.cs.uni-bonn.de}}
%
%\date{Version~\fileversion}
%
%\maketitle
%
%\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 f"ur \LaTeXe.
%
%\section{System-Voraussetzungen}
%
%Erstellt wurde der g-brief f"ur \LaTeXe\ und den Kompabilit"ats-Modus
%vom 1.~Dezember~1994 (patchlevel~1). Das \verb/.cls-/File ist f"ur die
%Benutzung unter \LaTeXe und das \verb/.sty-/File f"ur die Benutzung unter
%dem Kompabilit"atsmodus.  F"ur Briefe in deutscher Sprache wird entweder
%\textsl{Babel} ab der Version 3.4d (patchlevel~1) vom 5.~Juni~1994 oder
%der %\verb/german.sty/ ab der Version 2.4a vom 12.~April~1992 ben"otigt
%und %vorausgesetzt. Sollte beides auf Ihrem System installiert sein, wird
%automatisch \textsl{Babel} verwendet.
%
%Die Marken f"ur Sichtfensterh"ullen werden nicht mehr durch
%\AmS-Fonts, sondern durch eine \verb/picture/-Umgebung realisiert. Die
%Verwendung der \AmS-Fonts ist daher nicht mehr zwingend erforderlich.
%
%\newpage
%
%\section{Benutzung des g-brief}
%\subsection{Aufruf}
%
%f"ur \LaTeXe\,:\par \hspace{5mm}
%\verb/\documentclass[<optionen>]{g-brief}/
%
%\vspace{5mm}
%
%f"ur den \LaTeX\ 2.09~Kompabilit"atsmodus\,:\par \hspace{5mm}
%\verb/\documentstyle[<optionen>]{g-brief}/
%
%
%\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/usenglish/ \> 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
%  das US-englische Trenn- \\ \> muster, das britische Datumsformat und
%  defi- \\ \> niert die "Uberschriften in englischer Sprache; \\ \>
%  \verb/usenglish/ verh"alt sich wie \verb/english/,\ jedoch \\ \>
%  wird das US-englische 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
%\end{tabbing}
%
%\newpage
%
%\begin{tabbing}
%  AAAAAAAAAAAAAAAAA\=\kill
%  \verb/\Ort{ }/ \> \textsl {einzeilig} Ihre Postleitzahl und Ihre
%  Stadt \\[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 Adresse anzugeben. Wie oben schon
%beschrieben, werden leere Befehle nicht ausgegeben. Die
%BTX-Teilnehmernummer wird nur in Briefen mit der Option \verb/german/
%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/\BTX{ }/ \> \textsl{einzeilig} Ihre BTX-Teilnehmernummer \\[2ex]
%  \verb/\EMail{ }/ \> \textsl{einzeilig} Ihre EMail-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.
%\end{tabbing}
%
%\newpage
%\enlargethispage{5mm}
%\begin{tabbing}
%  AAAAAAAAAAAAAAAAA\=\kill
%  \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]
%  \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/\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{ }/ zur\"uckzuschalten \\ [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}
%\newpage
%\enlargethispage{5mm}
%
%\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-brief 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{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.
%
%\newpage
%\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.
%   
%\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.
%\end{description}
%\vspace{1cm}
%
%\unitlength1mm
%\begin{picture}(0,0)
%  \put(-9, 0){\rule{145mm}{1pt}}
%\end{picture} \enddocument
%
%
%
%\begin{macrocode}
%<*class>
\def\filename{g-brief.cls}
\NeedsTeXFormat{LaTeX2e}[1994/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\btxtext{{\footnotesize BTX\/:}}
   \def\emailtext{{\footnotesize E--Mail\/:}}
   \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\telefontex{{\footnotesize Phone\/:}}
   \def\telefaxtext{{\footnotesize Fax\/:}}
   \def\telextext{{\footnotesize Telex\/:}}
   \def\emailtext{{\footnotesize E--Mail\/:}}
   \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}}
   \def\datum{\number\day
     \ifcase\day \or
     st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or %  1..10
     th\or th\or th\or th\or th\or th\or th\or th\or th\or th\or % 11..20
     st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or % 21..30
     st\fi
     \space \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\year}
   \def\sprache{english}}
\DeclareOption{usenglish}
  {\def\telefontex{{\footnotesize Phone\/:}}
   \def\telefaxtext{{\footnotesize Fax\/:}}
   \def\telextext{{\footnotesize Telex\/:}}
   \def\emailtext{{\footnotesize E--Mail\/:}}
   \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}}
   \def\datum{\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}
   \def\sprache{usenglish}}

\ExecuteOptions{11pt,german}
\ProcessOptions

\LoadClass[1\@schrift pt, a4paper, oneside, draft]{letter}[1994/06/01]

\normalsize

%
% SEITENLAYOUT
%
\newdimen\ZA
\ZA=4.23mm

\setlength\oddsidemargin{0\p@}
\setlength\evensidemargin{\oddsidemargin}
\setlength\marginparwidth{90\p@}
\setlength\marginparsep{11\p@}
\setlength\marginparpush{5\p@}
\setlength\topmargin{-3\ZA}
\setlength\headheight{1\ZA}
\setlength\headsep{1.5\ZA}
\setlength\topskip{0.8\ZA}
\addtolength\footskip{1\ZA}

\setlength\textheight{56\ZA}
\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\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\BTX#1{\def\btx{#1}} \def\btx{}
\def\EMail#1{\def\email{#1}} \def\email{}

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

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

 \begin{picture}(0,0)
   \iffaltmarken \put(-15,- 64.16){\line(1,0){3}}
   \put(-15,-170.16){\line(1,0){3}} \fi

   \put( -7, -11.00){\makebox(85,4)
     {\scriptsize \ifx \retouradresse\empty
      \textrm{\name\ $\cdot$\ \strasse\ 
      $\cdot$\ \ort} \else \textrm{
      \retouradresse} \fi }}

   \iftrennlinien \put( -7, -11.10){\line(1,0){85}} \fi

   \put(0,-17.15){\parbox[t]{3in}{\ifx \postvermerk\empty \hfill \par
       \else \textbf{\postvermerk} \par \vspace{2mm} \fi \adresse}}

   \iffenstermarken
   \put(-7,-7.15){\line( 1, 0){1}}
   \put(-7,-7.15){\line( 0,-1){1}}
   \put(78,-7.15){\line(-1, 0){1}}
   \put(78,-7.15){\line( 0,-1){1}}
   \put(-7,-50.0){\line( 1, 0){1}}
   \put(-7,-50.0){\line( 0, 1){1}}
   \put(78,-50.0){\line(-1, 0){1}}
   \put(78,-50.0){\line( 0, 1){1}}
   \fi

 \end{picture}

 \vspace{11.5\ZA}

 \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 \betrefftext \space \space \betreff \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
 }
 {
 \vspace{\grussskip} \par \nobreak \stopbreaks \noindent
 \parbox[t]{3.5in}{\raggedright \ignorespaces {\normalsize \ifx
     \gruss\empty \else \gruss \mbox{} \\[4\ZA] \fi \ifx
     \empty\unterschrift \relax \else \textsl{(\unterschrift)}}
   \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{ \headheight16pt \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 \end{tabular}} \else \textsc{
       \begin{tabular}{r} \strasse \quad \\ \ifx \zusatz\empty \else
       \zusatz \quad \\ \fi \ort \quad \end{tabular}} \fi}}
     \iftrennlinien \put(-9,-7){\rule{180mm}{0.5pt}} \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
       \sprache\istsprache \ifx \btx\empty \else \btxtext & \btx \\ 
       \fi \fi \ifx \email\empty \else \emailtext & \email \\ \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,0){\makebox(180,15){\normalsize \ifklassisch \textsl{
       \quad\name\hfill\datum\hfill\pagename\ \thepage\quad} \else
       \textsc{\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[german]{babel}[1994/06/05] }
    {\IfFileExists{german.sty}
      {\RequirePackage{german}}
        {\ClassError{g-brief}
          {Neither babel nor german.sty installed !!!}
          {Get babel or german.sty !!!}}}
\fi

%</class>
%
%<*style>
\def\filename{g-brief.sty}
\NeedsTeXFormat{LaTeX2e}[1994/06/01]
\@obsoletefile{g-brief.cls}{g-brief.sty}
\LoadClass{g-brief}
%</style>
%
%<*driver>
\documentclass[11pt,a4paper]{article}
\IfFileExists{babel.sty}
  {\usepackage[german]{babel}[1994/06/05] }
  {\IfFileExists{german.sty}
    {\usepackage{german}}
      {\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}

\faltmarken
\fenstermarken
\trennlinien
%% \klassisch

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

\Telefon             {+49--(0)000--00000}
\Telefax             {+49--(0)000--00000}
\Telex               {}
\BTX                 {}
\EMail               {}

\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"sen}{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

