%%
%% This is file `example.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% dinbrief.dtx  (with options: `example')
%% 
%% =======================================================================
%% 
%% Copyright (C) 1993, 96, 97 by University of Karlsruhe (Computing Center).
%% Copyright (C) 1998, 2000   by University of Karlsruhe (Computing Center)
%%                            and Richard Gussmann.
%% All rights reserved.
%% For additional copyright information see further down in this file.
%% 
%% This file is part of the DINBRIEF package
%% -----------------------------------------------------------------------
%% 
%% It may be distributed under the terms of the LaTeX Project Public
%% License (LPPL), as described in lppl.txt in the base LaTeX distribution.
%% Either version 1.1 or, at your option, any later version.
%% 
%% The latest version of this license is in
%% 
%%         http://www.latex-project.org/lppl.txt
%% 
%% LPPL Version 1.1 or later is part of all distributions of LaTeX
%% version 1999/06/01 or later.
%% 
%% 
%% For error reports in case of UNCHANGED versions see readme files.
%% 
%% Please do not request updates from us directly.  Distribution is
%% done through Mail-Servers, TeX organizations and others.
%% 
%% If you receive only some of these files from someone, complain!
%% 
%%
%% \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         \~}
%%

\expandafter\ifx\csname documentclass\endcsname\relax
    \documentstyle[german]{dinbrief}
  \else
    \begin{filecontents*}{signatur.ps}
%%BoundingBox: 0 0 57 32
%%EndComments
/$F2psDict 200 dict def
$F2psDict begin
$F2psDict /mtrx matrix put
/col0 {0.000 0.000 0.000 srgb} bind def
end
save
1.0 30.0 translate
1 -1 scale

/c  {curveto} bind def
/cp {closepath} bind def
/ef {eofill} bind def
/gr {grestore} bind def
/gs {gsave} bind def
/rs {restore} bind def
/l {lineto} bind def
/m {moveto} bind def
/n {newpath} bind def
/s {stroke} bind def
/slw {setlinewidth} bind def
/srgb {setrgbcolor} bind def
/sc {scale} bind def
/tr {translate} bind def
/DrawEllipse {
/endangle exch def
/startangle exch def
/yrad exch def
/xrad exch def
/y exch def
/x exch def
/savematrix mtrx currentmatrix def
x y tr xrad yrad sc 0 0 1 startangle endangle arc
closepath
savematrix setmatrix
} def

/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
/$F2psEnd {$F2psEnteredState restore end} def
%%EndProlog

$F2psBegin
10 setmiterlimit
n -1000 1472 m -1000 -1000 l 1888 -1000 l 1888 1472 l cp clip
 0.06299 0.06299 sc
25.000 slw
n 338 432 10 10 0 360 DrawEllipse gs col0 s gr
n 183 9 m 267 450 l gs col0 s gr
n 273 447 m 273 444 250 427 376 22 c 376 22 400 -40 426 21 c gs col0 s gr
n 9 390 m 9 410 35 480 59 411 c 59 411 150 224 177 3 c gs col0 s gr
n 778 432 10 10 0 360 DrawEllipse gs col0 s gr
n 623 9 m 707 450 l gs col0 s gr
n 713 447 m 713 444 690 427 816 22 c 816 22 840 -40 866 21 c gs col0 s gr
n 449 390 m 449 410 475 480 499 411 c 499 411 590 224 617 3 c gs col0 s gr
$F2psEnd
rs
    \end{filecontents*}
    \documentclass[10pt]{dinbrief}
    \usepackage{german}
    \usepackage{graphicx}
  \fi

\input brfkopf


\pagestyle{contheadings}

\begin{document}

\bottomtext{%
  \makebox[\textwidth][c]{\small\sf
   Bankverbindung $\cdot$ Kreissparkasse Gralsruhe %
   (BLZ~999~500~00) 98~765~4
  }
}

\date{9.~Juli 1999}

\setlength{\topmargin}{-15pt}
\backaddress{\FS}

\begin{letter}{Prof.\ Dr.\ Hans Forschegut\\
               Institut f"ur Abfallbeseitigung\\
               Fachhochschule Waldstadt\\
               Postfach 3322\\[\medskipamount]
               1100 Waldstadt}
\yourmail{\ }
\subject{Bitte um "Uberlassung einer Sammlung von Alka-Seltzer Flaschen}

\opening{Sehr geehrter Herr Prof.\ Forschegut,}

von Kollegen habe ich erfahren, da"s sich bei Ihnen eine gro"se
Anzahl von Alka-Seltzer Flaschen mit nur noch einer Tablette
angesammelt hat, da eine Flasche 25~Tabletten enth"alt, der
Beipackzettel aber angibt, da"s stets 2~Tabletten gleichzeitig
einzunehmen sind.

Ich forsche gerade im Bereich m"oglicher Anwendungen einzelner
Schmerztabletten. Falls Sie so freundlich w"aren, Ihre Alka-Seltzer
Sammlung f"ur unser Projekt zu stiften, w"urde ich Ihnen gerne
Vorabdrucke aller zuk"unftigen Forschungsberichte zur Verf"ugung
stellen, die wir "uber dieses kritische Problem ver"offentlichen.

\expandafter\ifx\csname documentclass\endcsname\relax
    \closing{Mit freundlichen Gr"u"sen}
\else
    \closing[{\includegraphics[height=2\baselineskip]{signatur.ps}}]%
            {Mit freundlichen Gr"u"sen}
\fi

\ps{Falls Sie es w"unschen, lasse ich "uberpr"ufen, ob Sie Ihre
    Schenkung in Verbindung mit unserer Forschung von der Steuer
    absetzen k"onnen.}
\encl{Forschungsbericht Nr.\ 6/99 des IfA}
\cc{Future Pharma\\
    Bundesministerium zur Unterst"utzung der Pharmaindustrie}

\end{letter}

\end{document}
\endinput
%%
%% End of file `example.tex'.
