summaryrefslogtreecommitdiff
path: root/macros/lamstex/inputs/book.stb
diff options
context:
space:
mode:
Diffstat (limited to 'macros/lamstex/inputs/book.stb')
-rw-r--r--macros/lamstex/inputs/book.stb560
1 files changed, 560 insertions, 0 deletions
diff --git a/macros/lamstex/inputs/book.stb b/macros/lamstex/inputs/book.stb
new file mode 100644
index 0000000000..ccce9b3c3b
--- /dev/null
+++ b/macros/lamstex/inputs/book.stb
@@ -0,0 +1,560 @@
+% BOOK.STB VERSION 2.0
+% COPYRIGHT (C) 1989, 1990, 1991 BY THE TEXPLORATORS CORPORATION
+% ALL RIGHTS RESERVED
+
+% IF THIS FILE IS MODIFIED IN ANY WAY, IT SHOULD BE GIVEN A DIFFERENT NAME !
+
+\catcode`\@=11
+\let\alloc@\alloc@@
+
+\hsize=29pc
+\advance\hoffset 42pt
+\vsize=40pc
+\advance\voffset 90pt
+\normallineskiplimit=1pt
+\parindent=10pt
+
+\font@\ninerm=cmr9
+\font@\eightrm=cmr8
+\font@\sixrm=cmr6
+\font@\eighti=cmmi8 \skewchar\eighti='177
+\font@\sixi=cmmi6 \skewchar\sixi='177
+\font@\ninesy=cmsy9 \skewchar\ninesy='60
+\font@\eightsy=cmsy8 \skewchar\eightsy='60
+\font@\sixsy=cmsy6 \skewchar\sixsy='60
+\font@\eightbf=cmbx8
+\font@\sixbf=cmbx6
+\font@\eightit=cmti8
+\font@\eightsl=cmsl8
+\font@\eighttt=cmtt8
+
+\ifmsamloaded@
+ \font@\eightmsa=msam8
+ \font@\sixmsa=msam6
+\fi
+
+\ifmsbmloaded@
+ \font@\eightmsb=msbm8
+ \font@\sixmsb=msbm6
+\fi
+
+\ifeufmloaded@
+ \font@\eighteufm=eufm8
+ \font@\sixeufm=eufm6
+\fi
+
+\ifcmmibloaded@
+ \font@\eightcmmib=cmmib8 \skewchar\eightcmmib='177
+ \font@\sixcmmib=cmmib6 \skewchar\sixcmmib='177
+\fi
+
+\ifcmbsyloaded@
+ \font@\eightcmbsy=cmbsy8 \skewchar\eightcmbsy='60
+ \font@\sixcmbsy=cmbsy6 \skewchar\sixcmbsy='60
+\fi
+
+\newskip\ttglue@
+
+\def\tenpoint{\def\pointsize@{10}%
+ \normalbaselineskip12\p@
+ \abovedisplayskip12\p@ plus3\p@ minus9\p@
+ \belowdisplayskip12\p@ plus3\p@ minus9\p@
+ \abovedisplayshortskip\z@ plus3\p@
+ \belowdisplayshortskip7\p@ plus3\p@ minus4\p@
+ \textonlyfont@\rm\tenrm
+ \textonlyfont@\it\tenit
+ \textonlyfont@\sl\tensl
+ \textonlyfont@\bf\tenbf
+ \ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else
+ \let\big\tenbig@
+ \textfont\z@\tenrm \scriptfont\z@\sevenrm \scriptscriptfont\z@\fiverm
+ \textfont\@ne\teni \scriptfont\@ne\seveni \scriptscriptfont\@ne\fivei
+ \textfont\tw@\tensy \scriptfont\tw@\sevensy \scriptscriptfont\tw@\fivesy
+ \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
+ \textfont\itfam\tenit
+ \textfont\slfam\tensl
+ \textfont\bffam\tenbf \scriptfont\bffam\sevenbf
+ \scriptscriptfont\bffam\fivebf
+ \ifmsamloaded@
+ \textfont\msafam=\tenmsa \scriptfont\msafam=\sevenmsa
+ \scriptscriptfont\msafam=\fivemsa
+ \fi
+ \ifmsbmloaded@
+ \textfont\msbfam=\tenmsb \scriptfont\msbfam=\sevenmsb
+ \scriptscriptfont\msbfam=\fivemsb
+ \fi
+ \ifeufmloaded@
+ \textfont\eufmfam=\teneufm \scriptfont\eufmfam=\seveneufm
+ \scriptscriptfont\eufmfam=\fiveeufm
+ \fi
+ \ifcmmibloaded@
+ \textfont\cmmibfam=\tencmmib \scriptfont\cmmibfam=\sevencmmib
+ \scriptscriptfont\cmmibfam=\fivecmmib
+ \fi
+ \ifcmbsyloaded@
+ \textfont\cmbsyfam=\tencmbsy \scriptfont\cmbsyfam=\sevencmbsy
+ \scriptscriptfont\cmbsyfam=\fivecmbsy
+ \fi
+ \fi
+ \let\tt\tentt
+ \tt\ttglue@=.5em minus .15em\relax
+ \setbox\strutbox\hbox{\vrule\height8.5\p@\depth3.5\p@\width\z@}%
+ \setbox\strutbox@\hbox{\vrule\height8\p@\depth3\p@\width\z@}%
+ \ex@=.2326ex\normalbaselines\ifmmode\else\rm\fi}
+
+\def\tenbig@#1{{\hbox{$\left#1\vbox to8.5\p@{}\right.\n@space$}}}
+
+\tenpoint
+
+\def\eightpoint{\def\pointsize@{8}%
+ \normalbaselineskip10\p@
+ \abovedisplayskip10\p@ plus2.4\p@ minus7.2\p@
+ \belowdisplayskip10\p@ plus2.4\p@ minus7.2\p@
+ \abovedisplayshortskip\z@ plus2.4\p@
+ \belowdisplayshortskip5.6\p@ plus2.4\p@ minus3.2\p@
+ \textonlyfont@\rm\eightrm
+ \textonlyfont@\it\eightit
+ \textonlyfont@\sl\eightsl
+ \textonlyfont@\bf\eightbf
+ \ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else
+ \let\big\eightbig@
+ \textfont\z@\eightrm \scriptfont\z@\sixrm \scriptscriptfont\z@\fiverm
+ \textfont\@ne\eighti \scriptfont\@ne\sixi \scriptscriptfont\@ne\fivei
+ \textfont\tw@\eightsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivesy
+ \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
+ \textfont\itfam\eightit
+ \textfont\slfam\eightsl
+ \textfont\bffam\eightbf \scriptfont\bffam\sixbf
+ \scriptscriptfont\bffam\fivebf
+ \ifmsamloaded@
+ \textfont\msafam=\eightmsa \scriptfont\msafam=\sixmsa
+ \scriptscriptfont\msafam=\fivemsa
+ \fi
+ \ifmsbmloaded@
+ \textfont\msbfam=\eightmsb \scriptfont\msbfam=\sixmsb
+ \scriptscriptfont\msbfam=\fivemsb
+ \fi
+ \ifeufmloaded@
+ \textfont\eufmfam=\eighteufm \scriptfont\eufmfam=\sixeufm
+ \scriptscriptfont\eufmfam=\fiveeufm
+ \fi
+ \ifcmmibloaded@
+ \textfont\cmmibfam=\eightcmmib \scriptfont\cmmibfam=\sixcmmib
+ \scriptscriptfont\cmmibfam=\fivecmmib
+ \fi
+ \ifcmbsyloaded@
+ \textfont\cmbsyfam=\eightcmbsy \scriptfont\cmbsyfam=\sixcmbsy
+ \scriptscriptfont\cmbsyfam=\fivecmbsy
+ \fi
+ \fi
+ \let\tt\eighttt
+ \tt\ttglue@=.4em minus .12em
+ \setbox\strutbox\hbox{\vrule\height7\p@\depth3\p@\width\z@}%
+ \setbox\strutbox@\hbox{\vrule\height6.5\p@\depth2.5\p@\width\z@}%
+ \ex@=.2326ex\normalbaselines\ifmmode\else\rm\fi}
+
+\def\eightbig@#1{{\hbox{$\textfont\z@\ninerm\textfont\tw@\ninesy
+ \left#1\vbox to6.5\p@{}\right.\n@space$}}}
+
+{\catcode` =\active
+\gdef\litcodes@@{\def {\penalty\z@\hskip\ttglue@}}}
+
+\def\LamSTeX{L\kern-.4em\raise.3ex\hbox{$\ssize\Cal A$}%
+ \DN@{10}\ifx\next@\pointsize@\kern-.25em\else\kern-.3em\fi
+ \lower.4ex\hbox{\if\pointsize@ t\eightsy\else\sixsy\fi M}%
+ \kern-.1em{$\Cal S$}-\TeX}
+
+\def\adjustpunct@#1{\count@\lastkern
+ \ifnum\count@=\z@#1\else
+ \ifnum\count@>\tw@#1\else
+ \ifnum\count@<-\tw@#1\else
+ \unkern\unkern\setboxzl@
+ \skip@\lastskip\unskip
+ \count@@\lastpenalty\unpenalty
+ \ifnum\count@=\tw@\unskip\setboxzl@\fi
+ \ifdim\skip@=\z@\else\hskip\skip@\fi
+ #1%
+ \ifnum\count@=\tw@\null\hfill\fi
+ \penalty\count@@
+ \fi\fi\fi}
+\def\ignorepars@{\FNSS@\ignorepars@@}
+\def\ignorepars@@{\ifx\next\par\DN@\par{\FN@\ignorepars@@}\else
+ \let\next@\relax\fi\next@}
+\newcount\ctype@
+\newcount\Ctype@
+\newif\ifleftcolbreak@
+\def\cbreak@#1#2{\ifcase\ctype@#1\or\nobreak#2\else
+ \global\leftcolbreak@true
+ \ifdim\pagetotal>\pageheight@\global\leftcolbreak@false\fi
+ \global\Ctype@\ctype@\break\fi\ctype@\z@}
+\newif\ifletter@
+\newtoks\marktoks@i
+\newtoks\marktoks@ii
+\newtoks\marktoks@iii
+\newtoks\marktoks@iv
+\newtoks\marktoks@v
+\newif\ifentry@
+\newcount\dii@
+\def\Topage@#1#2{\DN@{#2}\ifx\next@\frompage@{\pagecs@{\frompage@}}%
+ \else{\pagecs@{{\frompage@}\hbox{--}#2}}\fi\egroup\ignorepars@}
+\newdimen\pageheight@
+\pageheight@\vsize
+\newdimen\doublepageheight@
+\doublepageheight@2\pageheight@
+\advance\doublepageheight@1pc
+\newdimen\pagewidth@
+\pagewidth@\hsize
+\def\makeheadline{%
+ \hbox{\botsmash{\hbox to\pagewidth@{\vbox to8.5pt{}\the\headline}}}%
+ \nointerlineskip\vskip26pt}
+\def\makefootline{\baselineskip=2.5pc\relax
+ \hbox to \pagewidth@{\the\footline}}
+\newif\iffirstindexpage@
+\def\makeindex@W{Index}
+\font\Bf=cmbx10 scaled \magstep1
+\def\combinecolumns@{%
+ \setbox\outbox@\vbox{\makeheadline
+ \vbox to\pageheight@{\boxmaxdepth\maxdepth
+ \iffirstindexpage@
+ \vbox to30\p@{%
+ \hbox to\pagewidth@{\hfil\Bf\uppercase\expandafter{\makeindex@W}\hfil}%
+ \vfil}%
+ \nointerlineskip
+ \fi
+ \wd\z@\hsize\wd\tw@\hsize
+ \setboxz@h to\pagewidth@{\box\z@\kern1pc\box\tw@}%
+ \dimen@\dp\z@\box\z@\kern-\dimen@\vfill}%
+ \makefootline}%
+ {\noexpands@\let\style=\relax
+ \shipout@\box\outbox@
+ }%
+ \global\vsize\doublepageheight@
+ \global\firstindexpage@false
+ \advancepageno}
+\newdimen\prevcoldepth@
+\def\doublecolumns@{%
+ \dimen@\pageheight@\iffirstindexpage@\advance\dimen@-30\p@\fi
+ \ifleftcolbreak@
+ \global\leftcolbreak@false
+ \vbox to\dimen@{\dimen@\dp\@cclv\unvbox\@cclv
+ \ifnum\Ctype@=\thr@@\kern-\dimen@\vfill\fi}%
+ \allowbreak
+ \else
+ \splittopskip\topskip\splitmaxdepth\maxdepth
+ \setbox\z@\vsplit\@cclv to\dimen@
+ \ifnum\Ctype@=\z@\global\Ctype@\@ne\fi
+ \ifcase\Ctype@\or
+ \setbox\tw@\vsplit\@cclv to\dimen@\global\prevcoldepth@\dp\tw@
+ \else
+ \global\prevcoldepth@\dp\@cclv
+ \setbox\tw@\vbox to\dimen@{\unvbox\@cclv
+ \ifnum\Ctype@=\thr@@\kern-\prevcoldepth@\vfill\fi}%
+ \fi
+ \combinecolumns@
+ \ifcase\Ctype@\or
+ \expandafter\continue@\splitbotmark{}\relax\relax\relax\relax
+ \relax\relax\continue@
+ \else\expandafter\continue@\botmark{}\relax\relax\relax\relax
+ \relax\relax\continue@
+ \fi
+ \ifvoid\@cclv\else\unvbox\@cclv\penalty\outputpenalty\fi
+ \fi
+ \global\Ctype@\z@}
+\def\continue@#1#2#3#4#5#6#7#8\continue@{\def\next@{#1}\ifx\next@\empty
+ \else
+ \noindent@#3 ({\it continued\/})\par
+ \ifnum#1>\@ne\noindent@\enspace(#4 {\it continued\/})\par\fi
+ \ifnum#1>\tw@\noindent@\enspace(#5 {\it continued\/})\par\fi
+ \ifnum#1>\thr@@\noindent@\enspace(#6 {\it continued\/})\par\fi
+ \ifnum#1>4 \noindent@\enspace(#7 {\it continued\/})\par\fi
+ \ifvoid\@cclv
+ \global\advance\prevcoldepth@-\prevdepth\kern\prevcoldepth@
+ \else
+ \skip@\baselineskip\advance\skip@\parskip
+ \advance\skip@-\topskip\advance\skip@-\prevdepth
+ \vskip\skip@
+ \fi
+ \fi}
+\newif\ifshortlastcolumn@
+\def\balancecolumns@{\setbox\z@\vbox{\unvbox\@cclv\unskip}%
+ \dimen@\ht\z@\advance\dimen@\topskip\advance\dimen@-\baselineskip
+ \divide\dimen@\tw@
+ \splittopskip\topskip
+ \global\dimen@i\dimen@
+ {\vbadness\@M
+ \loop
+ \global\setbox\thr@@\copy\z@
+ \global\setbox\@ne\vsplit\thr@@ to\dimen@i
+ \ifdim\ht\thr@@>\dimen@i\global\advance\dimen@i\p@
+ \repeat}%
+ \setbox\z@\vbox to\dimen@i{\unvbox\@ne}%
+ \setbox\tw@\vbox to\dimen@i{\dimen@\dp\thr@@\unvbox\thr@@
+ \ifshortlastcolumn@\kern-\dimen@\vfill\fi}%
+ \combinecolumns@}
+
+\newif\ifspecialpage@
+
+\let\heading
+
+\def\makebib{\par\vfill\break
+ \global\specialpage@true
+ \gdef\headline@{\makebib@W}%
+ \begingroup
+ \eightpoint\sfcode`\.=\@m\everypar{}\parindent\z@
+ \def\nopunct{\nopunct@true}\def\nospace{\nospace@true}%
+ \nopunct@false\nospace@false
+ \def\lkerns@{\null\kern\m@ne sp\kern\@ne sp}%
+ \def\nkerns@{\null\kern-\tw@ sp\kern\tw@ sp}%
+ \hbox to\pagewidth@{\hfil\Bf\uppercase\expandafter{\makebib@W}\hfil}%
+ \iftoc@
+ \expandafter\unmacro@\meaning\makebib@W\unmacro@
+ {\noexpands@
+ \edef\next@{\write\toc@{\noexpand\noexpand\noexpand\makebib
+ {\macdef@}}}\next@}%
+ \write\toc@{\noexpand\Page{\number\pageno}{\page@N}{\page@P}{\page@Q}^^J}%
+ \fi
+ \nobreak\bigskip}
+
+\def\bibliography@W{Bibliography}
+
+\def\bibliography{\checkmainfile@
+ \immediate\openin\bbl@=\mainfile@.bbl
+ \ifeof\bbl@
+ \W@{No .bbl file}%
+ \else
+ \immediate\closein\bbl@
+ \begingroup\input bibtex \input\mainfile@.bbl \endgroup
+ \fi}%
+
+\def\beginthebibliography@#1{\par\vfill\break
+ \global\specialpage@true\gdef\headline@{\makebib@W}%
+ \eightpoint\setboxz@h{#1\ }\bibindent@\wdz@
+ \sfcode`\.=\@m\everypar{}\parindent\z@
+ \hbox to\pagewidth@{\hfil\Bf\uppercase\expandafter{\bibliography@W}\hfil}%
+ \iftoc@
+ \expandafter\unmacro@\meaning\makebib@W\unmacro@
+ {\noexpands@
+ \edef\next@{\write\toc@{\noexpand\noexpand\noexpand\bibliography
+ {\macdef@}}}\next@}%
+ \write\toc@{\noexpand\Page{\number\pageno}{\page@N}{\page@P}{\page@Q}^^J}%
+ \fi
+ \nobreak\bigskip}
+
+\def\makeindex{\checkmainfile@\par\vfill\break
+ \iftoc@
+ \expandafter\unmacro@\meaning\makeindex@W\unmacro@
+ {\noexpands@
+ \edef\next@{\write\toc@{\noexpand\noexpand\noexpand\makeindex
+ {\macdef@}}}\next@}%
+ \write\toc@{\noexpand\Page{\number\pageno}{\page@N}{\page@P}{\page@Q}^^J}%
+ \fi
+ \global\specialpage@true
+ \global\firstindexpage@true
+ \gdef\headline@{\makeindex@W}%
+ \begingroup
+ \let\asterisk*%
+ \def\lkerns@{\null\kern\m@ne sp\kern\@ne sp}
+ \def\nkerns@{\null\kern-\tw@ sp\kern\tw@ sp}
+ \def\nocolumnbreak{\ctype@\@ne}
+ \def\columnbreak{\ctype@\tw@}
+ \def\newcolumn{\ctype@\thr@@}
+ \def\LETTER##1{\par
+ \mark{}%
+ \cbreak@{\penalty-200 \bigskip}\bigskip
+ \letter@true\centerline{\bf##1}\nobreak\medskip}%
+ \def\Entry##1##2##3##4##5##6##7{\par\entry@true
+ \marktoks@i{##3}\marktoks@ii{##4}\marktoks@iii{##5}%
+ \marktoks@iv{##6}\marktoks@v{##7}%
+ \ifcase##1%
+ \or
+ \ifletter@\else\mark{}\fi
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{10{\the\marktoks@i}}%
+ \hangafter\@ne\hangindent.5em{##3}%
+ \or
+ \ifcase##2%
+ \ifletter@\else\mark{}\fi
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{20{\the\marktoks@i}{\the\marktoks@ii}}%
+ \hangafter\@ne\hangindent.5em{##3}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}%
+ \or
+ \mark{10{\the\marktoks@i}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{21{\the\marktoks@i}{\the\marktoks@ii}}%
+ \hangafter\@ne\hangindent1.5em\quad{##4}%
+ \fi
+ \or
+ \ifcase##2%
+ \ifletter@\else\mark{}\fi
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{30{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}}%
+ \hangafter\@ne\hangindent.5em{##3}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}%
+ \or
+ \mark{10{\the\marktoks@i}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{31{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}}%
+ \hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}%
+ \or
+ \mark{2\number\dii@{\the\marktoks@i}{\the\marktoks@ii}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{32{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}}%
+ \hangafter\@ne\hangindent2.5em\qquad{##5}%
+ \fi
+ \or
+ \ifcase##2%
+ \ifletter@\else\mark{}\fi
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{40{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}%
+ {\the\marktoks@iv}}%
+ \hangafter\@ne\hangindent.5em{##3}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}%
+ \or
+ \mark{10{\the\marktoks@i}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{41{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}%
+ {\the\marktoks@iv}}%
+ \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}%
+ \or
+ \mark{2\number\dii@{\the\marktoks@i}{\the\marktoks@ii}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{42{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}%
+ {\the\marktoks@iv}}%
+ \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}%
+ \or
+ \mark{3\number\dii@{\the\marktoks@i}{\the\marktoks@ii}%
+ {\the\marktoks@iii}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{43{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}%
+ {\the\marktoks@iv}}%
+ \hangafter\@ne\hangindent3.5em\qquad\quad{##6}%
+ \fi
+ \or
+ \ifcase##2%
+ \ifletter@\else\mark{}\fi
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{50{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}%
+ {\the\marktoks@iv}{\the\marktoks@v}}%
+ \hangafter\@ne\hangindent.5em{##3}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent4.5em\qquad\qquad{##7}%
+ \or
+ \mark{10{\the\marktoks@i}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{51{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}%
+ {\the\marktoks@iv}{\the\marktoks@v}}%
+ \hangafter\@ne\hangindent1.5em\quad{##4}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent4.5em\qquad\qquad{##7}%
+ \or
+ \mark{2\number\dii@{\the\marktoks@i}{\the\marktoks@ii}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{52{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}%
+ {\the\marktoks@iv}{\the\marktoks@v}}%
+ \hangafter\@ne\hangindent2.5em\qquad{##5}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent3.5em\qquad\quad{##6}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent4.5em\qquad\qquad{##7}%
+ \or
+ \mark{3\number\dii@{\the\marktoks@i}{\the\marktoks@ii}%
+ {\the\marktoks@iii}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{53{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}%
+ {\the\marktoks@iv}{\the\marktoks@v}}%
+ \hangafter\@ne\hangindent3.5em\qquad\quad{##6}\par\nobreak
+ \noindent@\hangafter\@ne\hangindent4.5em\qquad\qquad{##7}%
+ \or
+ \mark{4\number\dii@{\the\marktoks@i}{\the\marktoks@ii}%
+ {\the\marktoks@iii}{\the\marktoks@iv}}%
+ \cbreak@\relax\relax
+ \noindent@
+ \mark{54{\the\marktoks@i}{\the\marktoks@ii}{\the\marktoks@iii}%
+ {\the\marktoks@iv}{\the\marktoks@v}}%
+ \hangafter\@ne\hangindent4.5em\qquad\qquad{##7}%
+ \fi
+ \fi
+ \dii@##2\relax
+ \letter@false
+ \ignorepars@}%
+ \def\Page##1{\ifentry@\adjustpunct@,\enspace\else\adjustpunct@, \fi
+ \entry@false{##1}\ignorepars@}%
+ \def\Pagespan##1{\ifentry@\adjustpunct@,\enspace\else\adjustpunct@, \fi
+ \entry@false\def\frompage@{##1}{##1}\ignorepars@}%
+ \def\Topage##1{\DN@{##1}\ifx\next@\frompage@
+ \else\hbox{--}{##1}\fi\ignorepars@}%
+ \def\PageSpan##1##2{\ifentry@\adjustpunct@,\enspace\else\adjustpunct@, \fi
+ \entry@false\def\pagecs@{##1}\def\frompage@{##2}%
+ \bgroup\let\Topage\Topage@\ignorepars@}%
+ \def\Xref##1{\ifentry@\else
+ \def\See####1{\adjustpunct@\semicolon@\space
+ {\it see~also\/}~####1}{##1}\fi\ignorepars@}%
+ \def\Morexref##1{\ifentry@\else
+ \def\See####1{\adjustpunct@, ####1}{##1}\fi\ignorepars@}%
+ \def\Entryxref##1##2##3##4##5##6##7##8{%
+ \Entry{##1}{##2}{##3}{##4}{##5}{##6}{##7}%
+ \def\See####1{\adjustpunct@, {\it see\/}~####1}{##8}\ignorepars@}%
+ \def\shortlastcolumn{\shortlastcolumn@true}
+ \hsize14pc
+ \global\vsize\doublepageheight@
+ \maxdepth\maxdimen
+ \global\firstindexpage@true
+ \global\advance\vsize-60\p@
+ \everypar{}\parindent\z@
+ \eightpoint
+ \rightskip\z@ plus3em \spaceskip.3333em \xspaceskip.5em
+ \output{\doublecolumns@}%
+ \input\mainfile@.xdx
+ \mark{}%
+ \output{\balancecolumns@}\vfil\break\endgroup
+ \global\vsize\pageheight@}
+
+\footline={\ifspecialpage@\hfil\ninerm\page@S{\page@P\page@N{\number\page@C}%
+ \page@Q}\hfil\fi
+ \global\specialpage@false}
+
+\headline={\unlabel@\noset@\def\\{\unskip\space\ignorespaces}%
+ \ifspecialpage@\hfil
+ \else
+ \ifodd\pageno
+ \hfil
+ \smc\headline@
+ \hfil
+ \llap{\tenpoint\folio}%
+ \else
+ \rlap{\tenpoint\folio}%
+ \hfil
+ \smc\headline@
+ \hfil
+ \fi
+ \fi}
+
+\def\alloc@#1#2#3#4#5{\global\advance\count1#1by\@ne
+ \ch@ck#1#4#2\allocationnumber=\count1#1
+ \global#3#5=\allocationnumber
+ \wlog{\string#5=\string#2\the\allocationnumber}}
+
+\catcode`\@=\active