% H:\TEX\TEXINPUT\STDINPUT\DATENSCH.TEX 28.2.1991 18:55
%
% von spirou Februar/Maerz 91
% geaendert und aufgeraeumt von pirx Mai 91
% Fraktur installiert Juni 91 pirx
%
% Macrosatz fuer Datenschleuderproduktion.
% zweispaltiger Satz aus TeXbook fuer Datenschleuder modifiziert durch CM
% headline und footline ein bzw. ausschaltbar
% 


%	Fontdefinitionen
%
%	Standard-Font ist 9pt (auch wenn der ``\tenrm'' hei\ss{}t)
%
%	Umschalten auf klein (7pt) fuer Impressum etc. mit \klein
%	Zurueck mit \normal
%	\klein und \normal setzen auch \strut und \baselineskip um.

\font\hlf cmss10 at 10pt
\font\hlfk cmss10 at 10pt
\font\titlefont cmssbx10 at 30pt
\font\titlesmall cmssbx10 at 15pt
\font\titfont cmbx10 at 12pt

\font\datenschleuder fraktur at 9pt

\font\ninerm cmr9
\font\ninesl cmsl9
\font\ninebf cmbx9
\font\ninett cmtt9
\font\nineit cmti9
\font\eightrm cmr8

\font\sevenrm cmr7
\font\sevensl cmsl8 at 7pt
\font\sevenbf cmbx8 at 7pt
\font\seventt cmtt8 at 7pt
\font\sevenit cmti8 at 7pt

\def\normal{
	\def\tenrm{\ninerm}\def\tenbf{\ninebf}\def\tensl{\ninesl}
	\def\tentt{\ninett}\def\tenit{\nineit}
	\baselineskip=10pt
	\def\strut{\vrule height 9pt depth 1pt width 0pt}
}

\def\klein{
	\def\tenrm{\sevenrm}\def\tenbf{\sevenbf}\def\tensl{\sevensl}
	\def\tentt{\seventt}\def\tenit{\sevenit}
	\baselineskip=8pt
	\def\strut{\vrule height 8.5pt depth 0.5pt width 0pt}
}
% macros fuer saetzer titel und untertitel
\def\sat#1{[{\it #1\/}]}	
\def\tit#1{\centerline{\titfont #1}}
\def\untit#1{\strut\centerline{\it #1\/}}
\normal
\tenrm

% rausgenommen fuer ds 37\font\endtext knoten at 9pt	% chaosknoten

%
%	\parskip, \parindent & co.
%	
%	Bei schmalen Spalten sieht Absatzeinzug bl\"od aus
%

\parindent 0pt
\frenchspacing
\def\em{\bf}
%
%	Layout Parameter
% 

\hoffset -0cm
\voffset -0cm

\tolerance=10000
\hbadness=5000
\pageno=1
\newdimen\fullhsize
\newdimen\dummysize
\def\doublesize{	% Parameter f\"ur Spaltensatz
\fullhsize=13cm \hsize=6.2cm

%
% Definition des Zweispaltensatzes aus TeXbook modifiziert auf Datenschleuder
% anforderungen CM
%

\vsize=19cm
\output={\datenoutput}
}
\def\singlesize{
\fullhsize=13cm \hsize=6.2cm
\vsize=19cm
\output={\dummyout}
}
\def\fullline{\hbox to\fullhsize}

\def\einspaltig{\singlesize}
\def\zweispaltig{\doublesize}

\let\lr=L \newbox\leftcolumn

\def\dummyout{\shipout\box255}
\output={\datenoutput}
\def\datenoutput{\if L\lr
	\global\setbox\leftcolumn=\columnbox \global\let\lr=R
\else
	\doubleformat \global\let\lr=L
\fi}
\def\doubleformat{\shipout\vbox{\makeheadline
	\fullline{\box\leftcolumn\hfil\columnbox}
	\makefootline}
	\advancepageno}
\def\columnbox{\leftline{\pagebody}}
%
% head bzw. footline definitionen
%
\def\fullline{\hbox to\fullhsize}
% definiert die MAcros makeheadline bzw. makefootline
%wird zum ein und ausschalten der head- footline benoetigt.
\def\doheadline{\def\makeheadline{\vbox to 0pt{\vskip-22.5pt
	\fullline{\vbox to8.5pt{}\the\headline}\vskip -9pt
	\fullline{\hrulefill}\vss}\nointerlineskip}}
	
\def\dofootline{\def\makefootline{\baselineskip=24pt\fullline{\hrulefill}\vskip -10pt\fullline{\the\footline}}}

\headline={\ifodd\pageno\rightheadline\else\leftheadline\fi}
\def\rightheadline{\hlf{Die DATENSCHLEUDER \hlfk Das wissenschaftliche Fachblatt f\"ur Datenreisende}\hfill
\hlf Nummer \nnn\  \jjj}

\def\leftheadline{\hlf\ Nummer \nnn\ \jjj
\hfil{{\hlfk Das wissenschaftliche Fachblatt f\"ur Datenreisende }\hlf Die DATENSCHLEUDER }}
\footline={\hlf\hfil Seite \folio \hfil}
%
% handlayout schaltet die head- und footlines aus
% autolayout schaltet sie wieder ein.
% durch handlayout + doheadline bzw dofootline lassen sich auch selektiv
% head oder footline ausschalten.
\def\handlayout{\def\makeheadline{}\def\makefootline{}}
\def\autolayout{\doheadline\dofootline}
%
% einschalten der default einstellung handlayout
%
\handlayout
%
% definitionen wie jahr nummer etc.
%
% ausgelagert in dsparam.tex

\input dsparam
% \def\jahr#1{\def\jjj{#1}}
% \def\nummer#1{\def\nnn{#1}}
% \def\jjj{1990}
% \def\nnn{0}
%
% definitionen zum setzen der Titelseite
%
\def\fullcenter#1{\fullline{\hfil #1\hfil}}
\singlesize
\def\titlepage{	% setzt header f\"ur die Titelseite
				\singlesize\settitle
				\vfil\eject\advancepageno\doublesize
				}
% hier setzen wir die titelseite
\countdef\babel=0
\def\settitle{
	\fullcenter{\titlefont Die Datenschleuder}\medskip
	\fullcenter{\titlesmall Das Fachblatt f\"ur Datenreisende}\smallskip
	\fullcenter{\titlesmall Ein Organ des Chaos Computer Club e.V.}\medskip
	\fullcenter{\titlesmall Schwenckestra\ss e 85}\medskip
	\fullcenter{\titlesmall 2000 Hamburg 20}\medskip
	\fullcenter{\titlesmall Tel.: 040 490 37 57}\medskip
	\fullcenter{\titlesmall Fax.: 040 491 76 89}\medskip
	\fullcenter{\titlesmall Box : 040 491 10 85}\medskip
	%\ifnum\babel=1{\input\jobname.toc}\else{\begincontens}\fi
}

\def\gettext#1{\input#1\endartic{#1}\eject}
\def\endchar{\hfill}
\countdef\autorl=0
\autorl=0
\def\center#1{\hfill#1\hfill}
\def\contline#1#2#3{{#1}&{#2}\dotfill&\center{#3}\cr}
\def\autor#1{\hfill#1\quad\let\autorl=1}
\def\babel{a}
\def\tautor#1{\def\t1{#1}\if\t1\babel\hfill{kleiner Wirrkopf}\else\hfill#1\fi
	\quad\ninerm{C}\let\autorl=1}
\def\af#1#2{\sl#2\hfill\rm#1\quad\let\autorl=1}

% \def\draft{
    \def\endartic#1{\par\eightrm{#1}\quad % \day {} \month {} \year {} 
                   % \quad{} \time{} 
                   \rm \hskip1cm}
% }
% \def\final{\def\endartic#1{\par}}
\def\final{}
\def\draft{\raggedbottom}

\draft

\def\Datenschleuder{{\datenschleuder Datenschleuder }}
\def\DieDatenschleuder{{\datenschleuder Die Datenschleuder }}






