%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                       %
% cassette.sty --- 8. November 1992 by Yellow Foot Software             %
%                                                                       %
% Folgende Befehle stehen zur Verf"ugung:                               %
%                                                                       %
% \position{Bandsorte}       --- Bandsorte angeben (Ferro, Chrom,       %
%                                Metall usw.)                           %
% \eq{Equalizer-Einstellung}                                            %
% \nr{Rauschunterdr"uckung}  --- Rauschunterdr"uckungssystem angeben    %
%                                (Dolby B, Dolby C usw.)                %
% \len{Bandl"ange}        --- Spieldauer des Bandes (60, 90, 120)       %
% \dateA{Datum}           --- Datum der Aufnahme Seite A, voreinge-     %
%                             stellt: \today                            %
% \dateB{Datum}           --- Datum der Aufnahme Seite B, voreinge-     %
%                             stellt: \today                            %
% \interpretA{Name}       --- Interpret Seite A                         %
% \interpretB{Name}       --- Interpret Seite B                         %
% \titelA{Name}           --- Titel von Seite A                         %
% \titelB{Name}           --- Titel von Seite B                         %
%                                                                       %
% \songsA{...}         --- Lieder auf Seite A                           %
% \songsB{...}         --- Lieder auf Seite B                           %
%                                                                       %
% Die LaTeX-Quelldatei mu"s wie folgt aufgebaut sein:                   %
% \documentstyle[...,cassette]{article}                                 %
% \begin{document}                                                      %
%      ... oben genannte Befehle ...                                    %
% \songsA{...}                                                          %
% \songsB{...}                                                          %
%      Die einzelnen Songs m"ussen durch \\ getrennt werden.            %
% \cassette                                                             %
% \end{document}                                                        %
%                                                                       %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\typeout{Document Style Option 'cassette'. Released Nov 8, 1992 by Yellow Foot
Soft}


\newdimen\casswidth
\casswidth100mm

\pagestyle{empty}

\def\posname{{\bf POS:} }
\def\position#1{\def\@position{\posname #1}}
\def\@position{\posname}

\def\eqname{{\bf EQ:} }
\def\eq#1{\def\@eq{\eqname #1$\mu$s}}
\def\@eq{\eqname}

\def\nrname{{\bf NR:} }
\def\nr#1{\def\@nr{\nrname #1}}
\def\@nr{\nrname}

\def\lenname{{\bf LEN:} }
\def\len#1{\def\@len{\lenname #1}}
\def\@len{\lenname}

\def\sideAname{{\bf Seite 1}}    
\def\sideBname{{\bf Seite 2}}

\def\dateA#1{\def\@dateA{#1}}
\def\@dateA{\today}
\def\dateB#1{\def\@dateB{#1}}
\def\@dateB{\today}

\def\interpretA#1{\def\@interpretA{\xiipt\bf #1}}
\def\interpretB#1{\def\@interpretB{\xiipt\bf #1}}

\def\titelA#1{\def\@titelA{\xiipt\bf #1}}
\def\titelB#1{\def\@titelB{\xiipt\bf #1}}

\def\songsA#1{\def\@songsA{\parbox[t]{0.45\casswidth}{#1}}}
\def\songsB#1{\def\@songsB{\parbox[t]{0.45\casswidth}{#1}}}

\def\cassette{
\begin{tabular*}{\casswidth}{|l@{\extracolsep\fill}l|} \hline
& \\
& \\
& \\
& \\
& \\ \hline
\@interpretA & \hfill\@titelA\\
& \\
\@interpretB & \hfill\@titelB\\ \hline
\@position\hfill\@eq          & \@nr\hfill\@len\\
\sideAname\hspace{1em}\@dateA & \sideBname\hspace{1em}\@dateB\\ \hline
\@songsA & \hfill\@songsB\\ \hline
\end{tabular*}
}