summaryrefslogtreecommitdiff
path: root/macros/latex209/contrib/megatape
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex209/contrib/megatape
Initial commit
Diffstat (limited to 'macros/latex209/contrib/megatape')
-rw-r--r--macros/latex209/contrib/megatape/brecht.tex78
-rw-r--r--macros/latex209/contrib/megatape/megademo.tex13
-rw-r--r--macros/latex209/contrib/megatape/megatape.doc178
-rw-r--r--macros/latex209/contrib/megatape/megatape.sty153
-rw-r--r--macros/latex209/contrib/megatape/read.me46
l---------macros/latex209/contrib/megatape/tape.sty1
-rw-r--r--macros/latex209/contrib/megatape/tapedemo.tex12
7 files changed, 481 insertions, 0 deletions
diff --git a/macros/latex209/contrib/megatape/brecht.tex b/macros/latex209/contrib/megatape/brecht.tex
new file mode 100644
index 0000000000..340ae5a519
--- /dev/null
+++ b/macros/latex209/contrib/megatape/brecht.tex
@@ -0,0 +1,78 @@
+% Demo-Input-File for TAPEDEMO.TEX and MEGADEMO.TEX
+% shows the difference between TAPE.STY and MEGATAPE.STY
+%
+%
+\renewcommand{\globaltapeid}{\footnotesize\sf Hope You\\ like it}
+\renewcommand{\baselinestretch}{0.5}
+%
+%
+% --------------------------------------------------------- Side A
+\album{brecht.1} % ---------------------------------------- Album-ID
+{% -------------------------------------------------------- Stuff for the side
+\begin{flushleft}{\bf Side A}\end{flushleft}
+\begin{enumerate}
+{\scriptsize
+\item Intro (Prckner)
+\item Moritate von Mackie Messer \\
+ (Sting)
+\item Die Seer\"auber-Jenny (Nannini)
+\item Der Kanonensong (Bruce)
+\item Das Liebesduett (Sting/Nannini)
+\item Die Ballade von der sexuellen \\
+ H\"origkeit (Sting)
+\item Lieder aus Mahagoni (instr.)
+\item Alabama-Song (Nannini)
+\item Ach bedenken Sie, Herr Jakob \\
+ Schmidt (Nannini)
+\item Wie man sich bettet... (Nannini)
+\item Lost in the stars (Bruce)
+\item Bilbao-Song (Bruce)
+\item Surabaya Johnny (Nannini)
+}%
+\end{enumerate}
+}%
+% ---------------------------------------------------------- Title
+{\footnotesize\sf STING,\\ GIANNA NANNINI,\\ JACK BRUCE\\ \& EBERHARD SCHOENER}%
+% ---------------------------------------------------------- Backflap
+{\footnotesize {\it Recorded live 1.5.1987 at \\
+Deutsches Schauspielhaus, \\
+Hamburg}\\[1mm]
+DOLBY B}
+%
+%
+%
+%
+% --------------------------------------------------------- Side B
+\album{brecht.2} % ---------------------------------------- Album-ID
+{% -------------------------------------------------------- Stuff for the side
+\begin{flushright}{\bf Side B}\end{flushright}
+\begin{enumerate}
+{\scriptsize
+\item Surabaya Johnny (Nannini)
+\item Lonely house (Sting)
+\item September-Song (Bruce)
+\item Lullaby (instr.)
+\item Soldato in amorato (Nannini)
+\item 12-Ton-Serie aus Lost in the stars \\
+ (Schoener)
+\item Wie der Wind weht (Sting)
+\item An meinem kleinen Radio- \\ Apparat (Sting)
+\item Ballad of Mac The Knife (Sting) *
+\item Ballad of the soldier's wife \\
+ (Marianne Faithfull) *
+}%
+\end{enumerate}
+}%
+% ---------------------------------------------------------- Title
+{\normalsize\sf ... machen \\[1mm] BRECHT / WEILL}
+% ---------------------------------------------------------- Backflap
+{\footnotesize {\it except * taken from the album\\ "Lost in the Stars", \\
+The Music of Kurt Weill \\ (c) (p) 1985 A\&M Records
+}}
+
+
+%----------------------------------------------------------- Make the Cassette
+% Optional explicit title
+% Try out and delete the '%'
+\maketape[\sf from \\ TV]{brecht.1}{brecht.2}%[{\bf Sting, G. Nannini, J. Bruce, E. Schoener}\\machen {\large\sc Brecht/Weill}]
+
diff --git a/macros/latex209/contrib/megatape/megademo.tex b/macros/latex209/contrib/megatape/megademo.tex
new file mode 100644
index 0000000000..c3a1c03562
--- /dev/null
+++ b/macros/latex209/contrib/megatape/megademo.tex
@@ -0,0 +1,13 @@
+\documentstyle[megatape]{article}
+\renewcommand{\globaltapeid}{\footnotesize\sf Hope You\\ like it}
+\renewcommand{\baselinestretch}{0.5}
+\parindent0pt
+\begin{document}
+{\bf MEGADEMO, gesetzt mit MEGATAPE.STY:} \\
+\\
+Gengend Platz in den Boxen \\
+
+\vspace{2cm}
+
+\input{brecht}
+\end{document}
diff --git a/macros/latex209/contrib/megatape/megatape.doc b/macros/latex209/contrib/megatape/megatape.doc
new file mode 100644
index 0000000000..01ba282ffa
--- /dev/null
+++ b/macros/latex209/contrib/megatape/megatape.doc
@@ -0,0 +1,178 @@
+% tape document style for LaTeX 2.09
+% podar@sbcs (Sunil Podar) June 20,1986
+% Dept. of Applied Math., SUNY at Stony Brook
+% You may use this file for whatever purpose you wish. Please leave this
+% notice, identifying original author, intact.
+
+\typeout{}
+\typeout{Document Style 'tape'. Released 20 June 1986}
+\typeout{Renamed to 'megatape'. Revised 16 October 1991 by Martin Nickel}
+\typeout{ThanX to Sunil Podar for his basic work !}
+\typeout{}
+% The changes are documented from line 111 to 134
+%
+% This documentstyle is for making casette tape labels. Two labels can be
+% fit on a page with a \newpage command after every two labels.
+% It should be invoked with \documentstyle[tape]{article}.
+% --- should have made a standalone documentstyle, but was lazy; would
+% involve unnecessary dirty work.
+% If more stuff needs to be fit on a label, reduce the \baselinestretch in
+% the document and/or use smaller fonts.
+% Two commands are implemented:
+% \album{album-id}{stuff for the side}{title}{addendum that goes on backflap}
+% \maketape[tape-id]{album-id}{album-id}[optional explicit title]
+%---------------------------------------------------------------------------
+\makeatletter
+\textwidth 5in
+\textheight 9in
+\pagestyle{empty}
+\renewcommand{\baselinestretch}{0.85}
+\parskip 0pt plus 1pt
+%\parindent=0pt %% done inside \maketape
+\hbadness=3000% will not complain about every little underfull hbox.
+%
+\leftmargini 12pt
+\leftmarginii 10pt % more than two level deep not expected!
+\labelsep 3pt
+\leftmargin\leftmargini
+\labelwidth\leftmargini\advance\labelwidth-\labelsep
+\topsep 2pt plus 1pt minus 1pt
+\partopsep 2pt plus 1pt minus 1pt
+\parsep 1pt
+\itemsep 1pt
+
+%% many paragraphing environments use list's and fiddle with the parameter
+%% values, thus need to include them in the \def of \@listi.
+\def\@listi{\leftmargin\leftmargini
+ \labelwidth\leftmargini\advance\labelwidth-\labelsep
+ \topsep 2pt plus 1pt minus 1pt
+ \partopsep 2pt plus 1pt minus 1pt
+ \parsep 1pt
+ \itemsep 1pt}
+
+%%removed the \def of \@listi from \small and \footnotesize
+%% --- causes problems when used in center environment.
+\def\small{\@setsize\small{11pt}\ixpt\@ixpt
+\abovedisplayskip 8.5pt plus 3pt minus 4pt%
+\belowdisplayskip \abovedisplayskip
+\abovedisplayshortskip \z@ plus2pt%
+\belowdisplayshortskip 4pt plus2pt minus 2pt}
+
+\def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt%------
+\abovedisplayskip 6pt plus 2pt minus 4pt%
+\belowdisplayskip \abovedisplayskip
+\abovedisplayshortskip \z@ plus 1pt%
+\belowdisplayshortskip 3pt plus 1pt minus 2pt}
+%
+%% following two redefined to get the label flushleft.
+\def\enumerate{\ifnum \@enumdepth >3 \@toodeep\else
+ \advance\@enumdepth \@ne
+ \edef\@enumctr{enum\romannumeral\the\@enumdepth}\list
+ {\csname label\@enumctr\endcsname}{\usecounter
+ {\@enumctr}\def\makelabel##1{\rlap{##1}\hss}}\fi}
+
+\def\itemize{\ifnum \@itemdepth >3 \@toodeep\else \advance\@itemdepth \@ne
+\edef\@itemitem{labelitem\romannumeral\the\@itemdepth}%
+\list{\csname\@itemitem\endcsname}{\def\makelabel##1{\rlap{##1}\hss}}\fi}
+
+%----------------
+\setlength{\doublerulesep}{1mm}
+\setlength{\arrayrulewidth}{0.8pt}
+\newdimen\tapeidwidth
+\newdimen\@titlewidth
+%------------------------------------------------------------------------
+% Here are the user controllable parameters, specific to \makelabel:
+% \globaltapeid goes on the little box on the left side of title. Typical
+% thing to put there would be name. e.g.
+% \renewcommand{\globaltapeid}{\footnotesize\sf Sunil\\Podar}
+\def\globaltapeid{} %changed via a \renewcommand
+\def\tapeidmarker{\vline} %changed via a \renewcommand
+\tapeidwidth=0.35in %changed via a \setlength{\tapeidwidth}{..} command
+% We put a \rule of 0in width and appropriate height along with the
+% \tapeidmarker for the \vline to work since it is in a makebox[0in].
+%-----------------------------------------------------------------------
+% \album{5}{side}{title}{addendum} => defines \album@v@s = side and
+% \album@v@t = title and \album@v@a = addendum
+% the title is the one used by \maketape as default.
+%
+\long\def\album#1#2#3#4{%
+\@namedef{album.#1.s}{#2}% side
+\@namedef{album.#1.t}{#3}% title
+\@namedef{album.#1.a}{#4}}% addendum
+%------------------------------------------------------------------
+%\maketape[tape-id]{album-id1}{album-id2}[explicit title formatted as a centered one entry]
+% -- makes a tape label of albums identified by album-id1 andalbum-id2. The
+% titles are picked up from the \album definition; if an explicit centered
+% label is desired then specify it as the third (optional) argument.
+%
+\def\maketape{\@ifnextchar[{\@maketape}{\@maketape[]}}
+\def\@maketape[#1]#2#3{\@ifnextchar[%
+{\@imaketape[#1]{#2}{#3}}{\@imaketape[#1]{#2}{#3}[@]}}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% I've made the following changes: %
+% %
+% old 'tape.sty' new 'megatape.sty' %
+% %
+%ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ %
+%³ ³ ³ 1 ³ %
+%³ ³ ÃÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄ´ %
+%³ 5 ³ ³ 2 ³ 3 ³ 4 ³ %
+%³ ³ ÃÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄ´ %
+%³ ³ ÄÄÄÄÄÄÄ> ³ ³ %
+%ÃÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄ´ ³ ³ %
+%³ 2 ³ 3 ³ 4 ³ ³ 5 ³ %
+%ÃÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄ´ ³ ³ %
+%³ 1 ³ ³ ³ %
+%ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ %
+% ³ ³ %
+% ³ ³ %
+% ³ 6 ³ %
+% ³ ³ %
+% ³ ³ %
+% ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ %
+% %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\@imaketape[#1]#2#3[#4]{{\parindent=0pt
+\tabcolsep=1pt %want explicit control on spacing
+\begin{tabular}{|l@{\hspace{0.1in}}|@{\hspace{0.1in}}l|}
+%%%%%%%%%%%
+% field 1 %
+%%%%%%%%%%%
+\hline
+%\makebox[0in][l]{\hskip-2mm\rule[-0.72in]{0.4mm}{0.9in}}%
+\makebox[0in][l]{\hskip-2mm\rule[-0.45in]{0.4mm}{0.55in}}%
+\ \minipage[t]{1.84in}\@nameuse{album.#2.a}\ \endminipage &%
+% need \ in minipage to enforce size in case any of the minipage args are null
+\minipage[t]{1.84in}\@nameuse{album.#3.a}\endminipage\ \\
+\hline
+%%%%%%%%%%%%%%%%%%%%%
+% Fields 2, 3 and 4 %
+%%%%%%%%%%%%%%%%%%%%%
+\hline
+\multicolumn{2}{|@{}l@{}|}{%
+\makebox[0in][l]{\hskip-1.8mm\rule[-0.2in]{0.4mm}{0.46in}}%
+\,\parbox{\tapeidwidth}{\raggedright\globaltapeid\ }%
+\makebox[0in]{\tapeidmarker\rule[-0.2in]{0in}{0.46in}}%
+\@titlewidth=1.97in \advance\@titlewidth by-\tapeidwidth%
+\ifx#4@%
+\parbox{\@titlewidth}{\centering \@nameuse{album.#2.t}\ }%
+\parbox{\@titlewidth}{\centering \@nameuse{album.#3.t}\ }%
+\else\@titlewidth=2\@titlewidth\parbox{\@titlewidth}{\centering #4\ }%
+\fi%
+\makebox[0in]{\tapeidmarker\rule[-0.2in]{0in}{0.46in}}%
+\parbox{\tapeidwidth}{\raggedleft #1\ }\,}\\
+\hline
+%
+%%%%%%%%%%%%%%%%%%
+% Fields 5 and 6 %
+%%%%%%%%%%%%%%%%%%
+\hline
+\makebox[0in][l]{\hskip-2mm\rule[-4.88in]{0.4mm}{5in}\hskip1.2mm\rule[-2.5in]{4in}{0.4mm}}%
+\ \minipage[t]{1.84in}\@nameuse{album.#2.s}\endminipage &%
+\minipage[t]{1.84in}\@nameuse{album.#3.s}\endminipage\ \\
+\hline
+%
+\end{tabular}%
+\par\vspace*{0.2in}}}
+%------------------------------------------------------------------
+\makeatother
diff --git a/macros/latex209/contrib/megatape/megatape.sty b/macros/latex209/contrib/megatape/megatape.sty
new file mode 100644
index 0000000000..f512c9fd7c
--- /dev/null
+++ b/macros/latex209/contrib/megatape/megatape.sty
@@ -0,0 +1,153 @@
+% tape document style for LaTeX 2.09
+% podar@sbcs (Sunil Podar) June 20,1986
+% Dept. of Applied Math., SUNY at Stony Brook
+% You may use this file for whatever purpose you wish. Please leave this
+% notice, identifying original author, intact.
+
+\typeout{}
+\typeout{Document Style 'tape'. Released 20 June 1986}
+\typeout{Renamed to 'megatape'. Revised 16 October 1991 by Martin Nickel}
+\typeout{ThanX to Sunil Podar for his basic work !}
+\typeout{}
+%
+% This documentstyle is for making casette tape labels. Two labels can be
+% fit on a page with a \newpage command after every two labels.
+% It should be invoked with \documentstyle[tape]{article}.
+% --- should have made a standalone documentstyle, but was lazy; would
+% involve unnecessary dirty work.
+% If more stuff needs to be fit on a label, reduce the \baselinestretch in
+% the document and/or use smaller fonts.
+% Two commands are implemented:
+% \album{album-id}{stuff for the side}{title}{addendum that goes on backflap}
+% \maketape[tape-id]{album-id}{album-id}[optional explicit title]
+%---------------------------------------------------------------------------
+\makeatletter
+\textwidth 5in
+\textheight 9in
+\pagestyle{empty}
+\renewcommand{\baselinestretch}{0.85}
+\parskip 0pt plus 1pt
+%\parindent=0pt %% done inside \maketape
+\hbadness=3000% will not complain about every little underfull hbox.
+%
+\leftmargini 12pt
+\leftmarginii 10pt % more than two level deep not expected!
+\labelsep 3pt
+\leftmargin\leftmargini
+\labelwidth\leftmargini\advance\labelwidth-\labelsep
+\topsep 2pt plus 1pt minus 1pt
+\partopsep 2pt plus 1pt minus 1pt
+\parsep 1pt
+\itemsep 1pt
+
+%% many paragraphing environments use list's and fiddle with the parameter
+%% values, thus need to include them in the \def of \@listi.
+\def\@listi{\leftmargin\leftmargini
+ \labelwidth\leftmargini\advance\labelwidth-\labelsep
+ \topsep 2pt plus 1pt minus 1pt
+ \partopsep 2pt plus 1pt minus 1pt
+ \parsep 1pt
+ \itemsep 1pt}
+
+%%removed the \def of \@listi from \small and \footnotesize
+%% --- causes problems when used in center environment.
+\def\small{\@setsize\small{11pt}\ixpt\@ixpt
+\abovedisplayskip 8.5pt plus 3pt minus 4pt%
+\belowdisplayskip \abovedisplayskip
+\abovedisplayshortskip \z@ plus2pt%
+\belowdisplayshortskip 4pt plus2pt minus 2pt}
+
+\def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt%------
+\abovedisplayskip 6pt plus 2pt minus 4pt%
+\belowdisplayskip \abovedisplayskip
+\abovedisplayshortskip \z@ plus 1pt%
+\belowdisplayshortskip 3pt plus 1pt minus 2pt}
+%
+%% following two redefined to get the label flushleft.
+\def\enumerate{\ifnum \@enumdepth >3 \@toodeep\else
+ \advance\@enumdepth \@ne
+ \edef\@enumctr{enum\romannumeral\the\@enumdepth}\list
+ {\csname label\@enumctr\endcsname}{\usecounter
+ {\@enumctr}\def\makelabel##1{\rlap{##1}\hss}}\fi}
+
+\def\itemize{\ifnum \@itemdepth >3 \@toodeep\else \advance\@itemdepth \@ne
+\edef\@itemitem{labelitem\romannumeral\the\@itemdepth}%
+\list{\csname\@itemitem\endcsname}{\def\makelabel##1{\rlap{##1}\hss}}\fi}
+
+%----------------
+\setlength{\doublerulesep}{1mm}
+\setlength{\arrayrulewidth}{0.8pt}
+\newdimen\tapeidwidth
+\newdimen\@titlewidth
+%------------------------------------------------------------------------
+% Here are the user controllable parameters, specific to \makelabel:
+% \globaltapeid goes on the little box on the left side of title. Typical
+% thing to put there would be name. e.g.
+% \renewcommand{\globaltapeid}{\footnotesize\sf Sunil\\Podar}
+\def\globaltapeid{} %changed via a \renewcommand
+\def\tapeidmarker{\vline} %changed via a \renewcommand
+\tapeidwidth=0.35in %changed via a \setlength{\tapeidwidth}{..} command
+% We put a \rule of 0in width and appropriate height along with the
+% \tapeidmarker for the \vline to work since it is in a makebox[0in].
+%-----------------------------------------------------------------------
+% \album{5}{side}{title}{addendum} => defines \album@v@s = side and
+% \album@v@t = title and \album@v@a = addendum
+% the title is the one used by \maketape as default.
+%
+\long\def\album#1#2#3#4{%
+\@namedef{album.#1.s}{#2}% side
+\@namedef{album.#1.t}{#3}% title
+\@namedef{album.#1.a}{#4}}% addendum
+%------------------------------------------------------------------
+%\maketape[tape-id]{album-id1}{album-id2}[explicit title formatted as a centered one entry]
+% -- makes a tape label of albums identified by album-id1 andalbum-id2. The
+% titles are picked up from the \album definition; if an explicit centered
+% label is desired then specify it as the third (optional) argument.
+%
+\def\maketape{\@ifnextchar[{\@maketape}{\@maketape[]}}
+\def\@maketape[#1]#2#3{\@ifnextchar[%
+{\@imaketape[#1]{#2}{#3}}{\@imaketape[#1]{#2}{#3}[@]}}
+\def\@imaketape[#1]#2#3[#4]{{\parindent=0pt
+\tabcolsep=1pt %want explicit control on spacing
+\begin{tabular}{|l@{\hspace{0.1in}}|@{\hspace{0.1in}}l|}
+%%%%%%%%%%%
+% field 1 %
+%%%%%%%%%%%
+\hline
+%\makebox[0in][l]{\hskip-2mm\rule[-0.72in]{0.4mm}{0.9in}}%
+\makebox[0in][l]{\hskip-2mm\rule[-0.45in]{0.4mm}{0.55in}}%
+\ \minipage[t]{1.84in}\@nameuse{album.#2.a}\ \endminipage &%
+% need \ in minipage to enforce size in case any of the minipage args are null
+\minipage[t]{1.84in}\@nameuse{album.#3.a}\endminipage\ \\
+\hline
+%%%%%%%%%%%%%%%%%%%%%
+% Fields 2, 3 and 4 %
+%%%%%%%%%%%%%%%%%%%%%
+\hline
+\multicolumn{2}{|@{}l@{}|}{%
+\makebox[0in][l]{\hskip-1.8mm\rule[-0.2in]{0.4mm}{0.46in}}%
+\,\parbox{\tapeidwidth}{\raggedright\globaltapeid\ }%
+\makebox[0in]{\tapeidmarker\rule[-0.2in]{0in}{0.46in}}%
+\@titlewidth=1.97in \advance\@titlewidth by-\tapeidwidth%
+\ifx#4@%
+\parbox{\@titlewidth}{\centering \@nameuse{album.#2.t}\ }%
+\parbox{\@titlewidth}{\centering \@nameuse{album.#3.t}\ }%
+\else\@titlewidth=2\@titlewidth\parbox{\@titlewidth}{\centering #4\ }%
+\fi%
+\makebox[0in]{\tapeidmarker\rule[-0.2in]{0in}{0.46in}}%
+\parbox{\tapeidwidth}{\raggedleft #1\ }\,}\\
+\hline
+%
+%%%%%%%%%%%%%%%%%%
+% Fields 5 and 6 %
+%%%%%%%%%%%%%%%%%%
+\hline
+\makebox[0in][l]{\hskip-2mm\rule[-4.88in]{0.4mm}{5in}\hskip1.2mm\rule[-2.5in]{4in}{0.4mm}}%
+\ \minipage[t]{1.84in}\@nameuse{album.#2.s}\endminipage &%
+\minipage[t]{1.84in}\@nameuse{album.#3.s}\endminipage\ \\
+\hline
+%
+\end{tabular}%
+\par\vspace*{0.2in}}}
+%------------------------------------------------------------------
+\makeatother
diff --git a/macros/latex209/contrib/megatape/read.me b/macros/latex209/contrib/megatape/read.me
new file mode 100644
index 0000000000..e06e73afa8
--- /dev/null
+++ b/macros/latex209/contrib/megatape/read.me
@@ -0,0 +1,46 @@
+This is the complete release of the MEGATAPE-package
+----------------------------------------------------
+
+
+The FTP-server 129.69.1.12 (Uni Stuttgart) contains an incomplete version
+of this package ! To run the demos you also need BRECHT.TEX.
+
+The contents of the package:
+----------------------------
+MEGATAPE.DOC Documented version of the MEGATAPE-Style
+MEGATAPE.STY Undocumented version of the MEGATAPE-Style
+TAPE.STY Original TAPE-Style from Sunil Podar
+MEGADEMO.TEX Demo for MEGATAPE.STY, needs BRECHT.TEX
+TAPEDEMO.TEX Demo for TAPE.STY, needs BRECHT.TEX
+BRECHT.TEX Input-File for MEGADEMO.TEX and TAPEDEMO.TEX
+READ.ME This file
+
+
+To compare the output of TAPE.STY and MEGATAPE.STY, tex' the demos:
+
+ glatex tapedemo
+ glatex megademo
+
+Both use the same input-file (BRECHT.TEX) but with different style-files.
+
+Take a look at the output:
+
+ v tapedemo
+ v megademo
+
+Do You see the differences ? I hope You see them ...
+
+
+
+Nevertheless thanks to Sunil Podar for his basic works on TAPE.STY.
+
+
+
+
+Martin Nickel
+Seminar fr Wirtschafts- und Sozialstatistik
+Universit„t zu K”ln
+Albertus-Magnus-Platz
+W-5000 K”ln 41
+
+e-mail: nickel@mx500.wiso.uni-koeln.de
diff --git a/macros/latex209/contrib/megatape/tape.sty b/macros/latex209/contrib/megatape/tape.sty
new file mode 120000
index 0000000000..9f035590f1
--- /dev/null
+++ b/macros/latex209/contrib/megatape/tape.sty
@@ -0,0 +1 @@
+../tape/tape.sty \ No newline at end of file
diff --git a/macros/latex209/contrib/megatape/tapedemo.tex b/macros/latex209/contrib/megatape/tapedemo.tex
new file mode 100644
index 0000000000..62e3cadb4e
--- /dev/null
+++ b/macros/latex209/contrib/megatape/tapedemo.tex
@@ -0,0 +1,12 @@
+\documentstyle[tape]{article}
+\renewcommand{\globaltapeid}{\footnotesize\sf Hope You\\ like it}
+\renewcommand{\baselinestretch}{0.5}
+\parindent0pt
+\begin{document}
+{\bf TAPEDEMO, gesetzt mit TAPE.STY:} \\
+\\
+Hoffnungslos berfllte Boxen, Falten zwecklos \\
+\vspace{1cm}
+
+\input{brecht}
+\end{document}