% DOCUMENT OPTION STYLE -- Released 15-FEB-1992
%
% This style has to be used as an style only
% in connection with the stbrief.sty to define
% all variables nescessary for this style.
%
% THE STYLE IS INCLUDED BY THE STBRIEF.STY BY ITSELF.
% DON'T TRY TO MENTION IT AS A OPTION STYLE IN \DOCUMENTSTYLE[]{}.
%
% Copyright (c) 1991,1991 by Steffen Steinhaeuser
% Permission to copy all or part of this work is granted, provided
% that the copies are not made or distributed for resale, and that
% the copyright notice and this notice are retained.
%
% THIS WORK IS PROVIDED ON AN "AS IS" BASIS.  THE AUTHOR PROVIDES NO
% WARRANTY WHATSOEVER, EITHER EXPRESS OR IMPLIED, REGARDING THE WORK,
% INCLUDING WARRANTIES WITH RESPECT TO ITS MERCHANTABILITY OR FITNESS
% FOR ANY PARTICULAR PURPOSE.
%
% If you make any improvements, I'd like to hear about them.
%
% Steffen Steinh\"auser
% Landwehrstr. 47
% 6100 Darmstadt
% Federal Republic of Germany
% steinhaeuser@ddagsi5.bitnet
% steffen_steinhaeuser@mz.maus.de
%
\def~{ }
\typeout{-------------------------------------------------------}
\typeout{| DefUser.STY V1.1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|}
\typeout{| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~c'15-Feb-91 Stone |}
\typeout{-------------------------------------------------------}
\typeout{}
\typeout{Achtung:}
\typeout{Auf den IBM (Komp.) und Atari Rechnern ist auf Umlaute und 'sz' nicht}
\typeout{speziell zu achten. Falls es doch Probleme mit ihnen gibt, gilt:}
\typeout{Alle Umlaute mit \string\"~ und das 'sz' mit \string\ss\string~{}~ angeben!!!}
%
% eigene Definitionen
%
\newif\ifdefault
\defaultfalse
\def\@empty{ }

\newif\ifempty
\def\look#1#2@@@{
\if #1\@empty
    \emptytrue
\else
    \emptyfalse
\fi
}

\def\firstonly#1#2@@@{\def\antwort{#1}}
%
% Erstellen des neuen Benutzerdefinitionsfiles
%
\openin1\filename.sty 
\ifeof1
    \closein1\relax
\else
    \closein1\relax
    \defaulttrue
    \typeout{}
    \typeout{Die Angaben der Datei \filename.sty~werden als Defaulteingaben}
    \typeout{angezeigt und koennen mit <RETURN> bestaetigt und uebernommen werden.}
    \typeout{}
    \input{\filename.sty}
\fi
%
% Erstellen eines BackUpFiles der alten Daten
%
\ifdefault
\newwrite\datafile
\immediate\openout\datafile=\filename.bak
%
% Erstellen eines Headers fuer den Defuser.Bak-Datei
%
\immediate\write\datafile{\string\message{-- Benutzerspezifische Daten fuer den STBrief.STY}}
\immediate\write\datafile{\string\defusertrue}
\immediate\write\datafile{\string\name{\fromname}}
\immediate\write\datafile{\string\signature{\fromsig}}
\immediate\write\datafile{\string\strasse{\fromstreet}}
\immediate\write\datafile{\string\stadt{\fromcity}}
\immediate\write\datafile{\string\telefon{\telephonenum}}
\immediate\write\datafile{\string\faxnummer{\faxnum}}
\immediate\write\datafile{\string\bank{\bankname}}
\immediate\write\datafile{\string\kontonr{\kontono}}
\immediate\write\datafile{\string\bankleitzahl{\bankzahl}}
\immediate\write\datafile{\string\logo{\fromlogo}}
\immediate\write\datafile{\string\smallogo{\sfromlogo}}
\iftoplogo
    \immediate\write\datafile{\string\toplogotrue}
\else
    \immediate\write\datafile{\string\toplogofalse}
\fi
\iftoprule
    \immediate\write\datafile{\string\topruletrue}
\else
    \immediate\write\datafile{\string\toprulefalse}
\fi
\ifsmallfrom
    \immediate\write\datafile{\string\smallfromtrue}
\else
    \immediate\write\datafile{\string\smallfromfalse}
\fi
\iffrom
    \immediate\write\datafile{\string\fromtrue}
\else
    \immediate\write\datafile{\string\fromfalse}
\fi
\ifbottomrule
    \immediate\write\datafile{\string\bottomruletrue}
\else
    \immediate\write\datafile{\string\bottomrulefalse}
\fi
\ifbankv
    \immediate\write\datafile{\string\bankvtrue}
\else
    \immediate\write\datafile{\string\bankvfalse}
\fi
%
% Schliessen und Ende des BackUps
%
\immediate\closeout\datafile
\fi
%
% Oeffnen des Ausgabefiles
%
\newwrite\datafile
\immediate\openout\datafile=\filename.sty
%
% Keine Reaktionen auf Umlaute, d.h. keine voreilige Expansion
%
\originalTeX
%
% Erstellen eines Headers fuer den Defuser.Sty-Datei
%
\immediate\write\datafile{\string\message{-- Benutzerspezifische Daten fuer den STBrief.STY}}
\immediate\write\datafile{\string\defusertrue}
%
% Abspeichern der ggf. alten Daten in eine .bak-Datei
%
%(in Vorbereitung)
%
%
% Abfrage der Benutzerdaten und -wuensche
%
\typeout{}
\typeout{Vor- und Nachnamen~:}
\ifdefault
    \let\antwort\fromname
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN > belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\fromname
    \fi
\else
    \typein[\antwort]{(Hier muss eine Texteingabe erfolgen!)}
\fi
\expandafter\look\antwort~~@@@
\ifempty
    \def\antwort{?!?}
\fi
\immediate\write\datafile{\string\name{\antwort}}

\typeout{}
\typeout{Unterschrift~~~~~~~:}
\ifdefault
    \let\antwort\fromsig
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN > belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\fromsig
    \fi
\else
    \typein[\antwort]{}
\fi
\expandafter\look\antwort~~@@@
\ifempty\else
    \immediate\write\datafile{\string\signature{\antwort}}
\fi

\typeout{}
\typeout{Name der Strasse~~~:}
\ifdefault
    \let\antwort\fromstreet
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN> belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\fromstreet
    \fi
\else
    \typein[\antwort]{(Hier muss eine Texteingabe erfolgen!)}
\fi
\expandafter\look\antwort~~@@@
\ifempty
    \def\antwort{?!?}
\fi
\immediate\write\datafile{\string\strasse{\antwort}}

\typeout{}
\typeout{Name des Ortes~~~~~:}
\ifdefault
    \let\antwort\fromcity
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN> belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\fromcity
    \fi
\else
    \typein[\antwort]{(Hier muss eine Texteingabe erfolgen!)}
\fi
\expandafter\look\antwort~~@@@
\ifempty
    \def\antwort{?!?}
\fi
\immediate\write\datafile{\string\stadt{\antwort}}

\typeout{}
\typeout{Telefonnummer~~~~~~:}
\ifdefault
    \let\antwort\telephonenum
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN> belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\telephonenum
    \fi
\else
    \typein[\antwort]{(Hier muss eine Texteingabe erfolgen!)}
\fi
\expandafter\look\antwort~~@@@
\ifempty
    \def\antwort{?!?}
\fi
\immediate\write\datafile{\string\telefon{\antwort}}

\typeout{}
\typeout{Telefaxnummer~~~~~~:}
\ifdefault
    \let\antwort\faxnum
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN> belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\faxnum
    \fi
\else
    \typein[\antwort]{(Keine Eingabe ignoriert Faxnummereintrag im STBrief.)}
\fi
\immediate\write\datafile{\string\faxnummer{\antwort}}

\typeout{}
\typeout{Die Angaben zur Bank koennen weggelassen werden. Aber dann sollten}
\typeout{Sie auch das Bankflag im folgenden auf 'AUS' (=Nein) schalten!}
\typeout{}

\typeout{Name der Bank~~~~~~:}
\ifdefault
    \let\antwort\bankname
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN> belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\bankname
    \fi
\else
    \typein[\antwort]{(Keine Eingabe schaltet Bankverbindung im STBrieffuss aus.)}
\fi
\expandafter\look\antwort~~@@@
\ifempty
    \bankvfalse
\else
    \bankvtrue
\fi
\immediate\write\datafile{\string\bank{\antwort}}

\typeout{}
\typeout{Kontonummer~~~~~~~~:}
\ifdefault
    \let\antwort\kontono
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN> belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\kontono
    \fi
\else
    \typein[\antwort]{(Keine Eingabe schaltet Bankverbindung im STBrieffuss aus.)}
\fi
\expandafter\look\antwort~~@@@
\ifempty
    \bankvfalse
\fi
\immediate\write\datafile{\string\kontonr{\antwort}}

\typeout{}
\typeout{Bankleitzahl~~~~~~~:}
\ifdefault
    \let\antwort\bankzahl
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN> belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\bankzahl
    \fi
\else
    \typein[\antwort]{(Keine Eingabe schaltet Bankverbindung im STBrieffuss aus.)}
\fi
\expandafter\look\antwort~~@@@
\ifempty
    \bankvfalse
\fi
\immediate\write\datafile{\string\bankleitzahl{\antwort}}

\typeout{}
\typeout{Im folgenden koennen zwei Arten von Logos definiert werden. Sie}
\typeout{erscheinen ggf. als Kopf des Briefes und ueber dem Adressfeld. }
\typeout{Sind sie nicht definiert, so wird der Vor- und Nachname des}
\typeout{Absenders dort eingesetzt.}
\typeout{}

\typeout{}
\typeout{Kopflogo~~~~~~~~~~~:}
\ifdefault
    \let\antwort\fromlogo
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN> belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\fromlogo
    \fi
\else
    \typein[\antwort]{}
\fi
\immediate\write\datafile{\string\logo{\antwort}}

\typeout{}
\typeout{Absenderlogo~~~~~~~:}
\ifdefault
    \let\antwort\sfromlogo
    \typeout{Defaulteingabe~~~~~: \antwort}
    \typein[\antwort]{(<RETURN> belaesst diese Angabe.)}
    \expandafter\look\antwort~~@@@
    \ifempty
        \let\antwort\sfromlogo
    \fi
\else
    \typein[\antwort]{}
\fi
\immediate\write\datafile{\string\smallogo{\antwort}}

\def\nein{n}
\def\ja{j}
\def\Nein{N}
\def\Ja{J}

\typeout{}
\typeout{Achtung:}
\typeout{}
\typeout{Die folgenden Fragen sind so gehalten, dass ein einfaches}
\typeout{<Return> die Defaulteinstellung als gewuenschte uebernimmt.}
\typeout{}

\typeout{}
\iftoplogo
    \let\antwort\Ja
\else
    \let\antwort\Nein
\fi
\typeout{Soll das Logo oben auf den Seiten erscheinen (J/N)? [\antwort]}
\typein[\antwort]{}
\expandafter\look\antwort~~@@@
\ifempty
    \iftoplogo
        \let\antwort\Ja
    \else
        \let\antwort\Nein
    \fi
\else
    \expandafter\firstonly\antwort~~@@@
\fi
\ifx\antwort\nein\let\antwort\Nein\fi
\ifx\antwort\Nein
    \immediate\write\datafile{\string\toplogofalse}
\else
    \immediate\write\datafile{\string\toplogotrue}
\fi

\typeout{}
\iftoprule
    \let\antwort\Ja
\else
    \let\antwort\Nein
\fi
\typeout{Soll oben eine horizontale Linie erscheinen (J/N)? [\antwort]}
\typein[\antwort]{}
\expandafter\look\antwort~~@@@
\ifempty
    \iftoprule
        \let\antwort\Ja
    \else
        \let\antwort\Nein
    \fi
\else
    \expandafter\firstonly\antwort~~@@@
\fi
\ifx\antwort\nein\let\antwort\Nein\fi
\ifx\antwort\Nein
    \immediate\write\datafile{\string\toprulefalse}
\else
    \immediate\write\datafile{\string\topruletrue}
\fi

\typeout{}
\ifsmallfrom
    \let\antwort\Ja
\else
    \let\antwort\Nein
\fi
\typeout{Soll ihr Absender klein ueber der Adresse erscheinen (J/N)? [\antwort]}
\typein[\antwort]{}
\expandafter\look\antwort~~@@@
\ifempty
    \ifsmallfrom
        \let\antwort\Ja
    \else
        \let\antwort\Nein
    \fi
\else
    \expandafter\firstonly\antwort~~@@@
\fi
\ifx\antwort\nein\let\antwort\Nein\fi
\ifx\antwort\Nein
    \immediate\write\datafile{\string\smallfromfalse}
\else
    \immediate\write\datafile{\string\smallfromtrue}
\fi

\typeout{}
\iffrom
    \let\antwort\Ja
\else
    \let\antwort\Nein
\fi
\typeout{Soll ihr Absender oben rechts erscheinen (J/N)? [\antwort]}
\typein[\antwort]{}
\expandafter\look\antwort~~@@@
\ifempty
    \iffrom
        \let\antwort\Ja
    \else
        \let\antwort\Nein
    \fi
\else
    \expandafter\firstonly\antwort~~@@@
\fi
\ifx\antwort\nein\let\antwort\Nein\fi
\ifx\antwort\Nein
    \immediate\write\datafile{\string\fromfalse}
\else
    \immediate\write\datafile{\string\fromtrue}
\fi

\typeout{}
\ifbottomrule
    \let\antwort\Ja
\else
    \let\antwort\Nein
\fi
\typeout{Soll unten eine horizontale Linie erscheinen (J/N)? [\antwort]}
\typein[\antwort]{}
\expandafter\look\antwort~~@@@
\ifempty
    \ifbottomrule
        \let\antwort\Ja
    \else
        \let\antwort\Nein
    \fi
\else
    \expandafter\firstonly\antwort~~@@@
\fi
\ifx\antwort\nein\let\antwort\Nein\fi
\ifx\antwort\Nein
    \immediate\write\datafile{\string\bottomrulefalse}
\else
    \immediate\write\datafile{\string\bottomruletrue}
\fi

\typeout{}
\ifbankv
    \let\antwort\Ja
\else
    \let\antwort\Nein
\fi
\typeout{Soll die Bankverbindung unten eingeblendet werden (J/N)? [\antwort]}
\typein[\antwort]{}
\expandafter\look\antwort~~@@@
\ifempty
    \ifbankv
        \let\antwort\Ja
    \else
        \let\antwort\Nein
    \fi
\else
    \expandafter\firstonly\antwort~~@@@
\fi
\ifx\antwort\nein\let\antwort\Nein\fi
\ifx\antwort\Nein
    \immediate\write\datafile{\string\bankvfalse}
\else
    \immediate\write\datafile{\string\bankvtrue}
\fi

\typeout{}
\typeout{Soll der Brief als FAX verschickt werden (J/N)? [N]}
\typein[\antwort]{}
\expandafter\look\antwort~~@@@
\ifempty
    \let\antwort\Nein
\fi
\ifx\antwort\nein\let\antwort\Nein\fi
\ifx\antwort\Nein
\else
    \immediate\write\datafile{\string\fax}
\fi
%
% Ende der Benutzer-Definitionen
%
\immediate\closeout\datafile
%
% Zur�ckschalten auf Umlautempfindlichkeit
%
\germanTeX
%
% Einbinden des selbst erstellten Userfiles
%
\input{\filename.sty}
