blob: 4e07207f9dd7ce6cf266ed36e8039d2872792de5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
% 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
|