% Macros to make cassette box labels
% - Morgan Besson 7/92 (besson@ucis.vill.edu)

\hsize=286pt
\font\rm=cmr9
\font\bf=cmbx9
\font\it=cmti9
\font\sl=cmsl9

\nopagenumbers
\parskip=0pt
\parindent=0pt
\baselineskip=9.5pt
\let\fullhsize=\hsize

\catcode`|=\active
\def|{\par\indent\kern12pt}
\catcode`>=\active
\def>{\hfill}

\newbox\titlebox
\newbox\leftbox
\newbox\rightbox

\def\title{\begingroup\obeylines
    \global\setbox\titlebox=\vbox\bgroup
    \hsize=.97\fullhsize \bf}

\def\sideA{\egroup\endgroup
    \begingroup\obeylines
    \global\setbox\leftbox=\vtop\bgroup
    \hsize=.47\fullhsize
	\centerline{\bf Side A}\smallskip}

\def\sideB{\egroup\endgroup\begingroup\obeylines
    \global\setbox\rightbox=\vtop\bgroup
    \hsize=.47\fullhsize
	\centerline{\bf Side B}\smallskip}

\def\finish{\egroup\endgroup
\line{\vrule\strut\hfill\vrule}
\bigskip
\hrule\vbox to48pt{\vfill\line{\hfil\copy\titlebox\hfil}\vfill}
\hrule\vbox to36pt{\vfill\line{\hfil\box\titlebox\hfil}\vfill}\hrule
\smallskip
\vbox to184truept{
	\line{\hfil\box\leftbox\hfil\vrule\hfil\box\rightbox\hfil}
	\vfill\hrule}
\bigskip
\line{\vrule\strut\hfill\vrule}
\vfill\eject}

\rm