summaryrefslogtreecommitdiff
path: root/obsolete/macros/blu/fmt.dat
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/blu/fmt.dat')
-rw-r--r--obsolete/macros/blu/fmt.dat1418
1 files changed, 1418 insertions, 0 deletions
diff --git a/obsolete/macros/blu/fmt.dat b/obsolete/macros/blu/fmt.dat
new file mode 100644
index 0000000000..684c4540f2
--- /dev/null
+++ b/obsolete/macros/blu/fmt.dat
@@ -0,0 +1,1418 @@
+%The material is shareware and subject
+%to the separate notes on copyright.
+%
+%File of formats to cooperate with blue.tex
+%To print the formats properly, copy
+%the following 11-lines job and
+%substitute the semicolon token
+%(=escape char) for `semi-col'. (2x)
+% ---Kees---
+%\input blue.tex
+%\hfuzz25pt
+%\title{File: fmt.dat}
+%\issue{Version 1.0}
+%\beginscript
+%\thisverbatim={\catcode`\`semicol'=0
+% \catcode`\!=12
+% \catcode`\|=12
+% \input fmt.dat}
+%\beginverbatim
+%`semi-col'endverbatim
+%\endscript %or use pgfile.tex
+%
+%
+%
+%Contents:
+%- concert
+%- letter
+%- report
+%- transparencies
+%
+\message{fmt.dat browsed (Version March 1996)}
+%
+%
+%
+%begin%%%%%%%%%%%%%%%%%%%%%%%%%%%%concert%
+%cgl@rc.service.rug.nl %;numvrb
+\tool\concertfmt
+\message{ ---Concert format, Jan 95, cgl--- }
+%Concert format TeXbook 409, 412
+%\font\twelverm=cmr12
+%\font\twelvebf=cmbx12
+%\font\twelveit=cmti12 %all in blue.tex
+%\font\twelvesl=cmsl12
+%\font\twelvemus=cmmi12
+%
+\def\bigtype{\let\rm=\twelverm
+ \let\bf=\twelvebf\let\it=\twelveit
+ \let\sl=\twelvesl\let\mus=\twelvemus
+ \baselineskip=14pt minus 1pt \rm}
+\def\medtype{\let\rm=\tenrm
+ \let\bf=\tenbf\let\it=\tenit
+ \let\sl=\tensl\let\mus=\teni
+ \baselineskip=12pt minus 1pt \rm}
+\def\smalltype{\let\rm=\eightrm
+ \let\bf=\eightbf\let\it=\eightit
+ \let\sl=\eightsl\let\mus=\eighti
+ \baselineskip=9.5pt minus .75pt \rm}
+%
+\def\flat{\raise.2ex\hbox{\mus\char"5B}}
+\def\sharp{\raise.4ex\hbox{\mus\char"5D}}
+\let\,=\thinspace
+\def\(#1){{\rm(}#1\/{\rm)}}
+% ;vrblin50
+\def\composition#1{\halign{\bf
+ \quad##\hfil\cr\kern-1em#1\crcr}}
+% use \cr's if more than one line
+\def\composer#1{\rightline{\bf#1}}
+\def\movements#1{\halign{\quad\it##\hfil
+ &&\qquad\it##\hfil\cr#1\crcr}}
+\def\soloists#1{\centerline{\bf
+ \vbox{\halign{##\hfil\cr#1\crcr}}}}
+% ;vrblin100
+\def\tsaologo{\vbox{\bigtype\bf
+ \line{\hrulefill}
+ \kern-.5\baselineskip
+ \line{\hrulefill\phantom
+{ THE ST.\,ANFORD ORCHESTRA }\hrulefill}
+ \kern-.5\baselineskip
+ \line{\hrulefill\hbox
+{ THE ST.\,ANFORD ORCHESTRA }\hrulefill}
+ \kern-.5\baselineskip
+ \line{\hrulefill\phantom
+{ R. J. Drofnats, Conductor }\hrulefill}
+ \kern-.5\baselineskip
+ \line{\hrulefill\hbox
+{ R. J. Drofnats, Conductor }\hrulefill}
+ }}
+%Defaults
+\onecol\hsize=4in\bigtype
+\endinput %;nonum
+%Contents
+%Fonts
+% \bigtype................10-13
+% \medtype................14-17
+% \smalltype..............18-21
+% \flat......................23
+% \sharp.....................24
+% \,.........................25
+% \(...).....................26
+%Layout
+% \composition............51-52
+% \composer..................54
+% \movement..................55
+% \soloists...............57-58
+% \tsalogo..............101-115
+%Defaults
+% \onecol\hsize\bigtype.....117
+%History of changes.
+%Jan 95 Creation.
+%end%%%%%%%%%%%%%%%%%%%%concert%!cgl;newcol
+%
+%
+%
+%begin%%%%%%%%%%%%%%%%%%%letter%;numvrb
+\tool\letterfmt
+%Inspired upon the TeXbook App E
+%\today already in blue.tex
+\message{ ---Letter format,
+ Jan 95, cgl--- }
+%Addresses assumed in address.dat
+%Toks vars: \letterfile\addressesfile
+%Address handling
+\def\beginaddresses#1\endaddresses{%
+ \def\process##1{\ifx\undefined##1
+ \let##1\addresserror
+ \else \message{\Dash\string##1
+ already loaded.\Dash}%
+ \fi\namelst\ea{\the\namelst\lst##1}}
+ \fifo#1\ofif%end defining all names
+ \loadselectivefrom{\the\addressesfile}}
+%with on top the trivial variant
+\def\addresserror{Address not in database,
+ Sorry.\loaderror{Addresses}}
+\def\addresses#1{\beginaddresses
+ #1\endaddresses}
+%
+\def\addressee#1{\ea
+ \splitaddress#1\egroup}%;nonum
+%
+%with at the lower level
+%;numvrb;vrblin50
+\def\splitaddress#1\\#2\\{\addresseename{#1%
+ \unskip}\fullname{#2\unskip}\setbox
+ \affiliationbox\hbox\bgroup#2\\}%;nonum
+%
+%To handle letters
+%;numvrb;vrblin100
+\def\letterto#1{{\everyscript{\notlastscript}
+ \storedvsize\vsize
+ \storedheadline\headline
+ \storedfootline\footline
+ \beginaddresses#1\endaddresses
+ \let\lst\processletter
+ \the\namelst}}
+%
+\def\lettertoall{{\everyscript{\notlastscript}
+ \def\lst##1{\processletter}
+ \input\the\addressesfile.dat\relax}}%;nonum
+%
+\def\makesearchletters{\def\lst{%
+ \thisscript{\notlastscript}
+ \processletter}
+ \the\namelst}
+%with at the lower level
+%;numvrb;vrblin150
+\def\processletter#1{{%#1 name or address
+ \headline\storedheadline
+ \footline\storedfootline
+ \vsize\storedvsize
+ \addressee{#1}
+ \beginscript
+ \input\the\letterfile\relax
+ \endscript}}
+%;vrblin175
+%\def\makelistaddresseetags{\def\lst
+% ##1##2{\namelst\ea{\the\namelst##1}}
+% \input\the\addressesfile\relax}%;nonum
+%
+%`Page makeup'
+%;numvrb;vrblin200
+\headline{\line{\vbox to3cm{%
+\line{\logo\hss
+ \vbox{\hsize.33\hsize\small
+ \the\address\\\the\netaddress\\\the\telephone}
+}\kern3pt\hrule\vss}\hss}%
+\addresseewindow
+%and for follow pages
+\global\headline{\line{\vbox
+ to3cm{\vss%Implicit vspace
+ \line{\tenrm \To: \the\fullname
+ \hss\today/\the\subject/\the\crowner\
+ \oldstyle\the\ourreference}\kern2pt\hrule
+ \vss}}}%end follow \headline
+}%end \headline
+%
+\footline{\line{\vbox{%
+ \kern\baselineskip\hrule\kern.5ex
+ \hbox{\strut\the\businessaccount}}\hss}
+%and for follow pages
+ \global\vsize19cm
+ \global\footline{\line{\null
+ \hss--{\oldstyle\the\count0}--\hss
+ }}%end follow \footline
+}%end \footline
+%;vrblin250
+\def\addresseewindow{\line{%
+\vbox to 4cm{%Window height Dutch
+ %envelopes
+\vskip\vaoffset %To shift address vert.
+\leftskip\haoffset%To shift address hor.
+\unhbox\affiliationbox
+\vss}\hss}%end line
+\line{\hbox to\longindentation
+ {\hbox to11ex{\Subject\hss:}
+ \the\subject\hss}\today\hss}
+\line{\hbox to11ex{\small \Ourref\hss:}
+ \the\crowner\
+ \oldstyle\the\ourreference\hss}
+\line{\hbox to11ex{\small \Yourref\hss:}
+ \the\yourreference\hss}
+}%;nonum
+%
+%Processing labels
+%;numvrb;vrblin300
+\def\makelabels#1{\vsize=26cm%
+ \headline{}\footline{}%
+ \beginaddresses#1\endaddresses
+ \let\lst\processlabel
+ \the\namelst}
+%
+\def\makealllabels{\vsize=28cm
+ \headline{}\footline{}
+ \def\lst##1{\processlabel}
+ \input\the\addressesfile.dat\relax
+}
+%
+\def\makesearchlabels{\vsize=28cm
+ \headline{}\footline{}
+ \let\lst\processlabel
+ \the\namelst}%;nonum
+%
+%with at the lower level
+%;numvrb;vrblin350
+\def\processlabel#1{\addressee{#1}%
+ \boxit{\kern1cm\vbox to3.5cm
+ {\noindent\leftskip.33\hsize
+ \hsize.9\hsize
+ \unhbox\affiliationbox\vss}
+ {\smallskip\small
+ \leftskip\generalindent
+ \the\author\\
+ \the\address\bigskip}
+}\smallskip}%end \processlabel%;nonum
+%
+%general things
+% ;numvrb;vrblin400
+\def\beginscript{%
+ \lastscript\the\everyscript
+ \the\thisscript
+\begingroup\pageno1 \null
+\vskip3\bigskipamount
+}%end \beginscript
+\let\beginletter\beginscript
+%
+\def\endscript{\smallskip
+ \vfil\eject\endgroup
+ \tracingstats1
+ \stop\thisscript{}}
+\let\endletter\endscript
+%;vrblin500
+%To be replaced by your salutation
+\def\sincerely{{\bigskip
+ \parindent\longindentation
+ Sincerely,
+ \medskip
+ \the\author\vskip3\bigskipamount}}
+%
+\def\dear{Dear \the\addresseename,\bigskip}
+%
+\def\ps{\bigskip\small\item{P.S.}}
+\def\cc{\bigskip\small\item{cc.}}
+\def\appendix#1{\newpage\tenpoint
+ \centerline{\bf\the\appendixname\ #1}
+ \bigskip}%;nonum
+\def\enclosures{\bigskip\small}
+%
+%Defaults, Initializations \letter
+% ;numvrb;vrblin900
+%\loadntglogo
+\onecol%Because in blue.tex
+ %\twocol default
+\addressesfile{address}
+\searchfile{address}
+\letterfile{letter}
+\def\email#1{}\def\phone#1{}\def\fax#1{}
+%Separation headline and rest
+\vsize13cm%First page
+\hsize13cm\pagewd\hsize
+\hoffset1cm
+\parindent0pt
+\generalindent2pc
+\interlinepenalty1000
+\longindentation.667\hsize
+\storedvsize\vsize
+\storedheadline\headline
+\storedfootline\footline
+\raggedbottom
+\def\english{
+ \def\To{To}
+ \def\Yourref{Your ref}
+ \def\Ourref{Our ref}
+ \def\Subject{Subject}}
+\def\nederlands{
+ \def\today{\ifcase \month \or Januari\or Februari\or
+ Maart\or April\or Mei\or
+ Juni\or Juli\or Augustus\or September\or October\or
+ November\or December\fi { }{\ea
+ \oldstyle \number \day }, {\ea \oldstyle \number \year }}
+ \def\To{Aan}
+ \def\dear{Beste}
+ \def\Yourref{Uw ref}
+ \def\Ourref{Onze ref}
+ \def\Subject{Subject}
+ \def\sincerely{{\bigskip
+ \parindent\longindentation
+ Hoogachtend,
+ \medskip
+ \the\author\vskip3\bigskipamount}}
+}
+\english
+\endinput %;nonum
+%
+%Contents
+%Address
+% \beginaddresses...........9-19
+% \endaddresses...............21
+% \addresses...............23-24
+% \addressee...............26-27
+%lower level
+% \splitaddress............51-54
+%Letter
+% \letterto..............101-107
+% \lettertoall...........109-110
+% \makesearchletters.....112-115
+%lower level
+% \processletter.........151-158
+% \makelistaddresseetags.176-183
+%Header and footer
+% \headline..............201-214
+% \footline..............216-224
+%lower level
+% \addresseewindow.......251-266
+%Labels
+% \makelabels............301-304
+% \makealllabels.........306-309
+% \makesearchlabels......311-313
+%lower level
+% \processlabel..........351-360
+%Composition
+% \beginscript...........401-406
+% (\beginletter).............407
+% \endscript.............409-412
+% (\endletter)...............413
+% \sincerely.............502-506
+% \dear......................508
+% \ps........................510
+% \cc........................511
+% \appendix..............512-514
+% \enclosures
+% \nederlands
+% \english
+%Defaults.................901-9xx
+%History of changes.
+%May 96 \nederlands (\endlish) added
+%Aug 95 Extended by \makesearchletters
+%Jan 95 Creation.
+%end%%%%%%%%%%%%%%%%%%%%%%letter%!cgl;newcol
+%
+%
+%
+%begin%%%%%%%%%%%%%%%%%%%%report%;numvrb
+\tool\reportfmt
+%Report format Jan 95 ;numvrb
+%cgl@rc.service.rug.nl
+\message{ ---Report format,
+ Jan 95, cgl--- }
+\let\chapterfont\Large
+\font\subtitlefont=cmr12 scaled\magstep2
+%
+\immediate\openout\ans=answers
+\immediate\openout\toe=examples
+\immediate\openout\toc=contents
+%;vrblin100
+%Chapter title matters
+\prechapterhead{\newpage\null
+ \vskip4pc\bgroup\catcode`\^=7
+ \the\everychapterhead
+ \the\thischapterhead
+ \global\advance\chaptercnt1
+% \xdef\chapno{\the\chaptercnt}%
+}
+%;vrblin110
+\postchapterhead{\egroup
+ \headcnt0 \exercisecnt0 \examplecnt0
+ \immediate\write\toc{\nx\separator{\alfanum
+ \the\chaptercnt}{\the\chaptertitle}}
+ %suppress headline first page chapter
+ \global\headline{\global\headline
+ {\hbox to\pagewd
+ {\sl\the\chaptertitle\hfill
+ \the\title}}}%
+ \footline{\hbox to\pagewd{\small
+ \rlap{Draft \today}\hfill\dash
+ {\oldstyle\the\pagenumber}\dash
+ \hfill\llap{\copyright
+ \the\crowner}}}%
+%Example is redefined here such that on
+%first use if ever in the chapter, it
+%redefines itself as the regular macro,
+%while writing the chapter title to the
+%table-of-examples, ToE, file.
+%In this way titles of chapters without
+%examples are suppressed in the ToE.
+ \def\example{\immediate\write\toe{\nx
+ \separator{\alfanum
+ \the\chaptercnt}{\the\chaptertitle}}
+ \let\example\regularexample\example}
+%To get the title of ToC Appendix also in
+%the ToC the \immediate is needed
+ \thischapterhead{}\vskip3pc}
+%
+\def\beginchapterhead{\the\prechapterhead
+ \storechaptertitle}
+%
+\def\storechaptertitle#1\endchapterhead{%
+ \global\chaptertitle{#1}\endchapterhead}
+%
+\def\endchapterhead{\centerline{\chapterfont
+ \the\chapternumbering\the\chaptertitle}
+ \the\postchapterhead\ignorewhitespace}
+%
+\def\chapterhead{\bgroup
+ \def\storechaptertitle##1{\egroup
+ \global\chaptertitle{##1}%
+ \endchapterhead}
+ \beginchapterhead}
+%
+\def\setupappendices{\thischapterhead=
+ {\chaptercnt64 \gdef\alfanum{\char}%
+ \global\chapternumbering
+ {\alfanum\the\chaptercnt: }}}
+%
+\def\pasteupanswers
+{\chapterhead{Answers to the Exercises}
+ \immediate\closeout\ans
+ {\ninepoint\parindent2pc
+ \input answers\relax}}
+%
+\def\pasteuptoe{%
+ \chapterhead{List of Examples}
+\immediate\closeout\toe %Table Of Examples
+{\ninepoint\def\exampleno##1.##2: {\noindent
+ \hbox to\generalindent{{\oldstyle##1}.%
+ {\oldstyle##2}\hss}}%
+ \def\separator##1{\smallbreak\noindent
+ \hbox to\generalindent{{\oldstyle##1}\hss}}
+ \parindent0pt\obeylines\sl
+ \input examples\relax}}
+%
+\def\pasteuptoc{%
+ \chapterhead{Table of \the\contentsname}
+\immediate\closeout\toc%Table Of Contents
+{\ninepoint\def\contentsno##1.##2:
+ {\noindent\hbox to\generalindent
+ {{\oldstyle##1}.{\oldstyle##2}\hss}}
+ \def\separator##1{\smallbreak\noindent
+ \hbox to\generalindent{{\oldstyle##1}\hss}}
+ \def\she{\noindent\hbox
+ to1.5\generalindent{\hss}}
+ \def\sshe{\noindent\hbox
+ to2\generalindent{\hss}}
+ \parindent0pc\obeylines\sl
+ \input contents\relax}}
+%
+\preindex{\chapterhead{\the\indexname}}
+%
+\def\pagenorepresentation#1{\quad\dotfill
+ \hbox to\generalindent{\hfil\oldstyle#1}}
+%
+%;vrblin250
+%Invariant for value \parindent
+\def\beginquote{\endgraf\bgroup
+ \parindent\generalindent
+ \narrower\smallbreak\noindent}
+%;vrblin300
+%Header matters
+\def\beginhead{\the\prehead
+ \global\advance\headcnt1
+ \storeheadtitle}
+%
+\def\storeheadtitle#1\endhead{%
+ \global\headtitle{#1}\endhead}
+%
+\def\endhead{\centerline{\headfont
+ \the\headtitle}\the\posthead}
+%
+\def\head{\bgroup
+ \def\storeheadtitle##1{\egroup
+ \global\headtitle{##1}\endhead}
+ \beginhead}
+%
+\posthead{\egroup\xdef\writetoc{%
+ \write\toc{\contentsno
+ \nx\alfanum\the\chaptercnt.\the\headcnt:
+ \the\headtitle\nx\nx\nx
+ \pagenorepresentation{\nx\number
+ \pageno}}}\writetoc
+ \nobreak\medskip\noindent
+ \ignorewhitespace}
+%;vrblin350
+\def\beginsubhead{\the\presubhead
+ \the\thissubhead
+ \storesubheadtitle}
+%
+\def\storesubheadtitle#1\endsubhead{%
+ \global\subheadtitle{#1}\endsubhead}
+%
+\def\endsubhead{{\subheadfont
+ \the\subheadtitle}\the\postsubhead}
+%
+\def\subhead{\bgroup
+ \def\storesubheadtitle##1{\egroup
+ \global\subheadtitle{##1}\endsubhead}
+ \beginsubhead}
+%
+\postsubhead{\egroup\xdef\writetoc{%
+ \write\toc{\nx\nx\nx\she
+ \the\subheadtitle\nx\nx\nx
+ \pagenorepresentation{\nx\number
+ \pageno}}}\writetoc
+ \ifrunin\ \else\quad\fi\ignorewhitespace}
+%;vrblin400
+\def\beginsubsubhead{\the\presubsubhead
+ \the\thissubsubhead
+ \storesubsubheadtitle}
+%
+\def\storesubsubheadtitle#1%
+ \endsubsubhead{\global
+ \subsubheadtitle{#1}\endsubsubhead}
+%
+\def\endsubsubhead{{\subsubheadfont
+ \the\subsubheadtitle}\the\postsubsubhead}
+%
+\def\subsubhead{\bgroup
+ \def\storesubsubheadtitle##1{%
+ \egroup\global
+ \subsubheadtitle{##1}%
+ \endsubsubhead}
+ \beginsubsubhead}
+%
+\postsubsubhead{\egroup\xdef\writetoc{%
+ \write\toc{\nx\nx\nx\sshe
+ \the\subsubheadtitle\nx\nx\nx
+ \pagenorepresentation{\nx\number
+ \pageno}}}\writetoc
+ \ifrunin\ \else\quad\fi\ignorewhitespace}
+%
+%Inner markup;vrblin500
+%;vrblin525
+\def\beginexample{\vskip0pt plus5ex
+ \penalty-100\vskip0pt plus-5ex
+ \medskip
+ \global\advance\examplecnt1
+ \bgroup\catcode`\^=7 \the\everyexample
+ \the\thisexample\storeexampletitle}
+%
+\def\storeexampletitle#1\endexample{%
+ \global\exampletitle{#1}\endexample}
+%
+\def\endexample{%
+ \xdef\writeexa{\write\toe{\exampleno
+ \alfanum\the\chaptercnt.\the\examplecnt:
+ \the\exampletitle
+ \nx\nx\nx\pagenorepresentation
+ {\the\count0}}}\writeexa
+ {\the\examplename} {\sl(\the\exampletitle)}
+ \egroup
+ \nobreak\endgraf\noindent\ignorewhitespace}
+%
+\def\example{\bgroup
+ \def\storeexampletitle##1{\egroup
+ \global\exampletitle{##1}\endexample}
+ \beginexample}
+%
+%;vrblin550
+%Mod item macros, to prevent hanging out
+%with \parindent=0pt
+\def\hang{\hangindent\generalindent}
+%
+\def\itemitem{\endgraf\leavevmode
+ \hskip\generalindent
+ \hangindent2\generalindent\textindent}
+%
+\def\textindent#1{\leavevmode
+ \hskip\generalindent
+ \llap{#1\enspace}\ignorespaces}
+%;vrblin575
+\def\exercise{\medbreak
+ \global\advance\exercisecnt1
+ \hangindent\generalindent
+ \noindent\hbox to\generalindent{%
+ {\oldstyle\the\chaptercnt}.{\oldstyle
+ \the\exercisecnt}\hfil}}
+%
+\def\answer{\endgraf\medbreak
+ \immediate\write\ans{}
+ \immediate\write\ans{\string\ansno
+ \the\chaptercnt.\the\exercisecnt:}%
+ \copytoblankline}
+%
+\def\ansno#1.#2:{\medbreak\noindent
+ \hbox to\generalindent{{\oldstyle#1}%
+ .{\oldstyle#2}\hss}\hangindent
+ \generalindent\ignorespaces}
+%;vrblin700
+%Preliminary pages matters
+%Markup preliminary pages via \beginscript
+\def\beginscript{\lastscript
+\the\everyscript\begingroup
+\the\thisscript
+\pageno-1 \headline{}\footline{}
+\ifproof\rightline{\rlap{\sl Cover}}\fi
+\kern7\bigskipamount
+\centerline{\chapterfont\the\title}
+\bigskip\if!\the\subtitle!\else
+\centerline{\subtitlefont\Dash
+ \the\subtitle\Dash}\fi
+\vskip\bigskipamount
+\centerline{by}
+\vskip\bigskipamount
+\centerline{\subtitlefont\the\author}
+\vfill
+\ifx\coverpic\undefined
+\else$$\coverpic$$
+\fi
+\vfill
+\if!\the\translator!
+\else\rightline{\subtitlefont
+ Translated by \the\translator}
+\fi
+ \newpage
+\ifproof\rightline{\rlap{\sl Inside
+ Cover}}\fi
+%
+\kern3\bigskipamount
+\pasteupkeywords
+\smallskip
+\the\bibliographydata
+\vfill\vfill
+\pasteupacknowledgements
+%
+ \newpage
+\ifproof\rightline{\rlap{\sl Title
+ Page}}\fi
+\kern7\bigskipamount
+\centerline{\chapterfont\the\title}
+\bigskip
+\centerline{\subtitlefont\Dash
+ \the\subtitle\Dash}
+\vskip\bigskipamount
+\centerline{by}
+\vskip\bigskipamount
+\centerline{\subtitlefont\the\author}
+\vfill\pasteupabstract\vfill\vfill
+%
+\ifvoid\forewordtranslatorbox
+\else \newpage
+ \ifproof\rightline{\rlap
+ {\sl Foreword Translation}}\fi
+ \vfill
+ \unvbox\forewordtranslatorbox
+ \vfill
+ \rightline{\vtop{\hbox{Irina Gorbunova
+ %\the\translator
+ }\hbox{\the\author}}}\vfill
+\fi
+%
+\ifvoid\prefacebox
+\else \newpage
+ \ifproof\rightline{\rlap{\sl Preface
+ Page}}\fi
+ \vfill\pasteuppreface\vfill\vfill
+\fi
+ \newpage
+\ifproof\rightline{\rlap{\sl Contents
+ Page}}\fi
+\vfill\pasteupcontents
+\vfill\eject
+%\immediate\openout\ans=answers
+%\immediate\openout\toe=examples
+%\immediate\openout\toc=contents
+}%end \beginscript
+%
+%;vrblin800
+%Auxiliaries preliminary pages
+\def\beginkeywords{\setbox\keywordsbox
+ \vbox\bgroup{\bf\the\keywordsname: }}
+%
+\preacknowledgements{\leftline{\bf
+ \the\acknowledgementsname}\medskip}
+%
+\def\pasteupacknowledgements{\ifvoid
+ \acknowledgementsbox
+ \else\the\preacknowledgements\unvbox
+ \acknowledgementsbox\bigskip
+ \makesignature\fi}
+%
+\def\beginpreface{\setbox\prefacebox
+ \vbox\bgroup}
+%
+\def\endpreface{\egroup}
+%
+\def\preface#{\beginpreface\bgroup
+ \aftergroup\endpreface
+ \afterassignment\ignorespaces
+ \let\dummy=}
+%
+\def\pasteuppreface{\centerline{\chapterfont
+ \the\prefacename}\bigskip\unvbox\prefacebox}
+%
+\def\beginforewordtranslator{\setbox
+ \forewordtranslatorbox=
+ \vbox\bgroup\begincenter}
+%
+\def\endforewordtranslator{\endcenter\egroup}
+%
+\def\forewordtranslator#{\beginforewordtranslator
+ \bgroup
+ \aftergroup\endforewordtranslator
+ \let\dummy=}
+%
+\def\pasteupforewordtranslator{\unvbox
+ \forewordtranslatorbox\relax}
+%
+\def\begincontents{%
+ \setbox\contentsbox\vbox\bgroup
+ \def\separator{\vbox to.5ex{}}
+ \def\newcol{\cr}
+ \ea\def\csname par\endcsname{&}\obeylines
+ \valign\bgroup&\noindent\strut
+ \hsize=7cm##\cr}
+%
+\def\endcontents{\cr\egroup\egroup}
+%
+\def\pasteupcontents{\unvbox\contentsbox}
+%
+%;vrblin900
+\def\endscript{\xcol=\maxcols
+ \vfill\eject\endgroup\backcover
+ \tracingstats=1 \stop\thisscript{}}
+%
+\def\pwtbackcover{\headline{}\footline{}%
+\begingroup%inside back cover.
+\hsize=12cm \hoffset2cm
+\ifproof\hbox to13cm{\hss\rlap{\sl
+ Inside Back}}%14cm is regular page
+ %width of PWT
+\fi
+\vfill
+\loadntginfo \ntginfo
+\vfill
+%Irina, you can include here another half
+%page about CyrTUG.
+%It should be possible to have both
+%info parts on one page.
+%Adapt eventually the \hsize.
+%---Kees---
+\eject\endgroup
+ \ifproof\rightline{\rlap{\sl Back
+ Cover}}\fi
+ \vskip.75\vsize
+ \pictures{\cglpic}
+ $$\cglpic\vbox{%
+ \hbox to12ex{\hss Thank You\hss}
+ \hbox to12ex{\hss\cs{bye}\hss}}$$
+}%end \pwtbackcover
+%;vrblin1000
+%Defaults
+\def\onecol{\maxcols=1
+ \hsize=14cm%MOD
+ \pagewd=\hsize
+ \colwd=\hsize
+ \vsize=25cm
+ \xcol=1
+\hyphenchar\tentt='055
+\hyphenchar\ninett='055
+\hyphenchar\eighttt='055
+\tolerance500
+\hbadness=499
+\hfuzz=7pt
+}
+\onecol
+\tolerance500\hbadness=499\vbadness=500
+\everychapterhead={\catcode`\^=7 }
+\everyhead\everychapterhead
+\everysubhead\everychapterhead
+\everysubsubhead\everychapterhead
+\hoffset1cm
+\generalindent2pc
+\parindent0pt
+\subsubheadindent0pt
+\parskip\smallskipamount
+\chapternumbering{}
+\let\regularexample\example
+\let\exampleno\relax
+\let\contentsno\relax
+%\let\coverpic\relax
+\let\backcover\relax
+\everyverbatim{\emc}
+\gutter1em
+\def\alfanum{\number}
+\prefacename{Preface}
+\postfil{\hss}
+\def\she{\hskip5em}
+\def\sshe{\hskip6em}
+\endinput %;nonum
+%Table of Contents report format
+%Token vars (declared in blue.tex)
+% \prefacename
+% \bibliographydata
+% \chaptertitle
+% \prechapterhead
+% \postchapterhead
+% \headtitle
+% \subheadtitle
+% \subsubheadtitle
+% \prepoint
+% \prefil
+% \postfil
+%Box vars (declared in blue.tex)
+% \prefacebox
+% \contentsbox
+%New dimens (declared in blue.tex)
+% \generalindent
+% \gutter
+% \xshift
+% \yshift
+% \subsubheadindent
+%New counts (declared in blue.tex)
+% \headcnt
+% \chaptercnt
+% \examplecnt
+% \exercisecnt
+%New writes (declared in blue.tex)
+% (opened in \beginscript)
+% \toc
+% \toe
+%Fonts
+% \chapterfont\Large.........4
+% \subtitlefont..............5
+%Chapter title matters
+% \chapno (manmac)
+% \prechapterhead.......102-109
+% \postchapterhead......111-138
+% \beginchapterhead.....140-141
+% \storechaptertitle....143-144
+% \endchapterhead.......146-148
+% \chapterhead..........150-154
+% \setupappendices......156-159
+% \pasteupanswers.......161-165
+% \pasteuptoe...........167-176
+% \pasteuptoc...........178-191
+% \pagenorepresentation.193-194
+%Summary
+% \beginsummary (blue.tex)
+% \endsummary (blue.tex)
+% \summary (blue.tex)
+% \beginquote...........252-254
+% \endquote (blue.tex)
+%Header matters
+%Head
+% \beginhead............302-304
+% \storeheadtitle.......306-307
+% \endhead..............309-310
+% \head.................312-315
+% \posthead.............317-324
+%Subhead
+% \beginsubhead.........351-353
+% \storesubheadtitle....355-356
+% \endsubhead...........358-359
+% \subhead..............361-364
+% \postsubhead..........366-371
+%Subsubhead
+% \beginsubsubhead......401-403
+% \storesubsubheadtitle.405-407
+% \endsubsubhead........409-410
+% \subsubhead...........412-417
+% \postsubsubhead.......419-424
+%Inner markup
+% \begindemo (blue.tex)
+% <escape char>yields(blue.tex)
+% \enddemo (blue.tex)
+% \beginexample.........526-531
+% \storeexampletitle....533-534
+% \endexample...........536-544
+% \example..............546-549
+% \hang.....................553
+% \itemitem.............555-557
+% \textindent...........559-561
+% \exercise.............576-581
+% \answer...............583-587
+% \ansno................589-592
+%Generalized \samplebox
+% \point (blue.tex)
+% \gbox (blue.tex)
+%Centering verbatims
+% \boxlines (blue.tex)
+% \begincenterverbatim(blue.tex)
+% \endcenterverbatim (blue.tex)
+%Preliminary pages matter
+% \def\beginscript......703-772
+%Closing pages matter
+% \endscript............901-903
+% \pwtbackcover.........905-929
+%Auxiliaries
+% \beginkeywords........802-803
+% \preacknowledgements..805-806
+% \pasteupacknowledgements808/812
+% \beginpreface.........814-815
+% \endpreface...............817
+% \preface..............819-822
+% \pasteuppreface.......824-825
+% \beginforewordtranslator827/9
+% \endforewordtranslator....831
+% \forewordtranslator...833-836
+% \pasteupforewordtranslator838/9
+% \begincontents........841-847
+% \endcontents..............849
+% \pasteupcontents..........851
+% NTG info (tools.dat)
+%Defaults...............1000-10xx
+% (\she....................1037
+% \sshe...................1038)
+%end Table of Contents
+%
+%History of changes
+%July 95 \immediate\openout\toc=contents
+% etc. included in \beginscript
+%Jan 95 Creation
+%end%%%%%%%%%%%%%%%%%%%%%report%!cgl;newcol
+%
+%
+%
+%begin%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%trs%
+%trs.tex from BLUe's Transparencies
+% cgl@rc.service.rug.nl
+%Purpose: Preparing transparencies from
+% TeX marked up copy.
+% ;numvrb
+\tool\transparenciesfmt
+\message{ ---Transparencies format, Jan 95,
+ revision March 1996, cgl--- }
+\catcode`\@=11
+\font\titlefont =cmr12
+ scaled\magstep4\relax
+\font\subheadfont =cmr12
+ scaled\magstep3\relax
+%\font\subsubheadfont=cmr12
+% scaled\magstep2\relax
+\font\headlinefont =cmr12
+ scaled\magstep1\relax
+\let\headfont\titlefont
+\font\ffont=cmr7\relax
+\let\authorfont\titlefont
+\let\subsubheadfont\subheadfont
+%
+%Rest all in blue.tex
+%\font\largerm=cmr12
+% scaled\magstep2
+%etc
+%\def\large{\def\rm{\fam0\largerm}%
+%etc.
+%}
+\let\small\tenpoint
+%
+%Mark up title transparency;vrblin200
+\def\begincontents{\global\setbox
+ \contentsbox\vbox\bgroup
+ \leftskip1.5\leftskiptrs
+ \large\baselineskip3.5ex
+ \everypar{$\bullet$\enspace}
+ \obeylines}
+%
+\def\endcontents{\egroup}
+%;vrblin250
+\def\beginscript{\lastscript
+ \the\everyscript\the\thisscript
+ \pictures\cglpic
+ \begincenter
+ \footline={}\headline={}
+\message{\the\title}
+ {\titlefont\the\title}
+ \medskip
+ {\Dash\the\subtitle\Dash}
+ \bigskip
+ {\authorfont\the\author}
+ \medskip\hfil\the\address
+ \bigskip$$\box\contentsbox$$}
+%
+\def\endscript{\endcenter\vfill
+\rightline{\small\cglpic\vbox{%
+ \hbox to12ex{\hss Thank You\hss}
+ \hbox to12ex{\hss\cs{bye}\hss}}
+}\vfill\eject\stop
+\gdef\bluehead##1\par{\head{##1}}
+\gdef\bluesubhead##1\par{\subhead{##1}}
+\gdef\bluesubsubhead##1\par{\subsubhead{##1}}
+}
+%
+%Mark up regular transparencies;vrblin300
+\prehead{\nxttrs\headline\regularheadline
+ \footline\regularfootline\pageno1
+ \prehead{\nxttrs}}
+%
+\posthead{\medskip}
+%
+\def\beginhead#1\endhead{\the\prehead
+ \headtitle{#1}\subheadtitle{}%
+ \subsubheadtitle{}{\headfont#1}%
+ \the\posthead}
+%
+\def\head#1{\beginhead#1\endhead}
+% ;vrblin350
+\presubhead{\medbreak}
+%
+\postsubhead{\smallskip\nobreak}
+%
+\def\beginsubhead#1\endsubhead{%
+ \subheadtitle{#1}\subsubheadtitle{}%
+ \the\presubhead{\subheadfont#1}%
+ \the\postsubhead\thissubhead{}}
+%
+\def\subhead#1{\beginsubhead#1\endsubhead}
+% ;vrblin400
+\presubsubhead{\smallbreak}
+%
+\postsubsubhead{\smallskip\nobreak}
+%
+\def\beginsubsubhead#1\endsubsubhead{%
+ \subsubheadtitle{#1}
+ \the\presubsubhead{\subsubheadfont#1}
+ \the\postsubsubhead\thissubsubhead{}}
+%added March 1996
+\def\subsubhead#1{%
+ \beginsubsubhead#1\endsubsubhead}
+%
+{\obeylines\gdef\bluehead#1
+ {\head{#1}}%
+\gdef\bluesubhead#1
+ {\subhead{#1}}%
+\gdef\bluesubsubhead#1
+ {\subsubhead{#1}}}
+%;vrblin450
+\preverbatim{\leftskip\leftskiptrs
+ \rightskip0pt plus1fil\relax}
+%;vrblin500
+\def\bitem{\bgroup\leftskip\leftskiptrs
+ \rightskip0pt plus1fil\relax
+ \def\bitem{\item{$\bullet$}\strut}
+ \def\smallbreak{\endgraf\egroup
+ \smallbreak}
+ \let\smallskip\smallbreak
+ \bitem}
+%enumerate item
+\def\eitem{\bgroup\leftskip\leftskiptrs
+ \rightskip0pt plus1fil\relax
+ \def\eitem##1{\item{##1}\strut}
+ \def\smallbreak{\endgraf\egroup
+ \smallbreak}
+ \let\smallskip\smallbreak
+ \eitem}
+%;vrblin550
+\let\bgnsyn\beginsyntax
+\def\beginsyntax{\bgroup
+ \leftskip\leftskiptrs
+ \rightskip0pt plus 1fil\relax\bgnsyn}
+%
+\let\endsyn\endsyntax
+%
+\def\endsyntax{\endsyn\egroup}
+%
+%Header and footer ;vrblin600
+\regularheadline={\line{\vbox to0pt{\vss
+ \centerline{\titlefont
+ \strut\the\title}
+ \vskip2ex
+ \line{\logo\hfill\vbox{%
+ \llap{\strut\the\headtitle}
+ \llap{\strut\the\subheadtitle}
+ \llap{\strut\the\subsubheadtitle}}}
+ \vskip1ex
+ \hrule width\hsize height1pt
+ }}%end hbox
+}%end headline
+% ;vrblin650
+\regularfootline={\vbox to 0pt{%
+\leftskip0pt\rightskip0pt\relax
+ \hrule width\hsize height1pt
+ \vskip.5ex
+ \line{\small
+ \rlap{\the\identification}%
+ \hfil--{\oldstyle\the\pagenumber}--\hfil
+ \llap{\copyright\the\crowner}%
+ }\vss}%end vbox
+}%end footline
+%
+%Auxiliaries ;vrblin700
+\def\nxttrs{\vfill\eject}
+\def\continue{\vfill
+ \rightline{\dots continued}\eject}
+%Defaults;vrblin900
+\identification{\today}
+%\let\small\tenpoint
+\def\begincenter{\leftskip0pt plus1fill
+\rightskip0pt plus 1fill\parfillskip0pt
+\obeylines} \def\endcenter{}
+%
+\onecol
+\hsize=17.5cm \vsize=20cm
+\voffset3.5cm%\hoffset-1truecm
+\pagewd=\hsize
+\pagenumber{\folio}
+\leftskiptrs.2\hsize\relax
+\rightskiptrs.1\hsize\relax
+\overfullrule0pt\parindent0pt
+\large
+\loadntglogo
+\def\logo{\copy\ntglogobox}
+\catcode`\@=11
+\endinput %;nonum
+%Contents transparencies format
+%Fonts
+% \titlefont...................5-6
+% \subheadfont.................7-8
+% \subsubheadfont.............9-10
+% \headlinefont..............11-12
+% \authorfont...................15
+% \largerm..............(blue.tex)
+% \largeit..............(blue.tex)
+% \largesl..............(blue.tex)
+% \largesy..............(blue.tex)
+% \largeex..............(blue.tex)
+% \largebf..............(blue.tex)
+% \largett..............(blue.tex)
+% \large................(blue.tex)
+% \largebig.............(blue.tex)
+% \small.......................124
+%Newtoks
+% \identification.......(blue.tex)
+% \crowner..............(blue.tex)
+% \headtitle............(blue.tex)
+% \subheadtitle.........(blue.tex)
+% \subsubheadtitle......(blue.tex)
+%Newskips
+% \leftskiptrs, \rightskiptrs..908/9
+%Page size
+% \hsize, \vsize...............903
+% offsets......................904
+% \pagewd......................905
+%Markup title
+% \begincontents...........201-206
+% \endcontents.................208
+% \beginscript.............251-263
+% \endscript...................265
+%Markup regular transparencies
+% \prehead.................301-302
+% \beginhead\endhead.......306-309
+% \head........................311
+% \posthead....................304
+% \presubhead..................351
+% \beginsubhead\endsubhead.355-358
+% \subhead.....................360
+% \postsubhead.................353
+% \presubsubhead...............401
+% \beginsubsubhead
+% \endsubsubhead......405-408
+% \subsubhead..............410-411
+% \postsubsubhead..............403
+% \bluehead
+% \bluesubhead
+% \bluesubsubhead
+% \preverbatim.............451-452
+% \bitem...................501-507
+% \beginsyntax.............552-554
+% \endsyntax...................558
+%Header and footer
+% \headline................601-615
+% \footline................651-660
+% \identification..............901
+%Auxiliaries
+% \nxttrs......................701
+% \continue................702-703
+% \begincenter (blue.tex)
+% \endcenter...(blue.tex)
+% \center......(blue.tex)
+%Personalisation (blue.tex)
+%Defaults
+% \logo........................913
+% \pagenumber..................906
+% \onecol......................907
+% \hsize,\vsize................903
+% \leftskiptrs.................908
+% \rightskiptrs................909
+% \large.......................911
+%History of changes
+%March 1996 \bluehad etc. added
+%Jan 1995 As format with blue.tex
+%Aug 1994 Centering markup automated
+%Jul 1994 \contentsbox is used
+% \pagenumber introduced
+%Jun 1994 More consistent with
+% blue.tex.
+% \small is \eightpoint.
+% \begincontents...\endcontents
+%Feb 1994 Release Version 1.0
+%Example of use
+%\bluetitle Manmac BLUes
+%
+%\bluesubtitle how to typeset a book via \TeX
+%
+%\contents{
+%User's guide
+%Coding
+%}
+%
+%\beginscript
+%\bluehead Why?
+%
+%To return to the roots...
+
+%\bluehead User's Guide
+%
+%Relative numbering
+%\pagenumber{U\folio}\pageno=1
+%...
+%\nxttrs %Next transparency
+%\bluesubsubhead Markup paragraphs
+%
+%...
+%\continue%Continuation on next slide
+%...
+%\bluehead Conclusions
+%
+%\pagenumber{--x--}
+%\bitem...
+%\bitem
+%\smallbreak
+%\vfil
+%\rightline{\vtop{\hbox{Thank you}
+% \hbox{\cs{bye}}}}
+%\endscript
+%end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%trs%!cgl
+%
+%
+%
+%begin%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%trs%
+%Preprint for BLUe's Transparencies
+% cgl@rc.service.rug.nl
+%Purpose: Printing transparencies from
+% TeX marked up copy in A6,
+% 4 on each page.
+% ;numvrb
+\tool\transparenciespptfmt
+\message{ ---Transparencies A6 proof format, May 95,
+ cgl--- }
+\hfuzz=25pt \vfuzz=25pt
+\font\titlefont=cmbx10
+\font\headfont=cmr10
+\let\subheadfont\headfont
+\let\headlinefont\titlefont
+\font\ffont=cmr5
+\let\authorfont\headfont
+\let\subsubheadfont\subheadfont
+%
+%Mark up title transparency;vrblin200
+\def\begincontents{\setbox
+ \contentsbox\vbox\bgroup
+ \baselineskip3ex\null\vfil
+ \everypar{$\bullet$\enspace}
+ \obeylines\parindent1em}
+%
+\def\endcontents{\egroup}
+%;vrblin250
+\def\beginscript{\lastscript
+ \the\everyscript\the\thisscript
+ \leavevmode\noindent
+ \setbox\trsppt=\vbox to.475\vsize
+ \bgroup\hsize.475\hsize\parindent2em
+ \null\vfil
+ \titlefont\the\title
+ \smallskip\subtitlefont
+ \Dash\the\subtitle\Dash
+ \medskip\let\\\par
+ \authorfont\the\author
+ \smallskip\the\address
+ \medskip$$\box\contentsbox$$}
+%
+\def\endscript{\vss
+\rightline{\small\cglpic\qquad}
+\vss
+\line{\strut\hss--\the\trsno--\hss}\egroup
+\boxit{\box\trsppt}\endgraf
+\vfill\eject\stop}
+%
+\def\nxttrs{\vfil\kern3ex
+\ifnum\trsno>0 \line{\strut\hss
+ --\the\trsno--\hss}\fi
+\egroup
+\boxit{\box\trsppt}\advance\trsno1
+\ifodd\trsno\kern3ex\else
+ \hfil\break\vfil\noindent\fi
+\setbox\trsppt=\vbox to.475\vsize\bgroup
+\hsize.475\hsize\parindent2em\null\par\noindent}
+%
+%Mark up regular transparencies;vrblin300
+\prehead{\nxttrs\trsno1 \medskip\noindent\hfil
+ \global\prehead{\nxttrs\medskip\noindent\hfil}}
+%
+\posthead{\medskip\noindent}
+%
+\def\beginhead#1\endhead{\the\prehead
+ \headtitle{#1}\subheadtitle{}%
+ \subsubheadtitle{}{\headfont#1}%
+ \the\posthead}
+%
+\def\head#1{\beginhead#1\endhead}
+% ;vrblin350
+\presubhead{\medbreak\noindent\hfil}
+%
+\postsubhead{\smallskip\nobreak}
+%
+\def\beginsubhead#1\endsubhead{%
+ \subheadtitle{#1}\subsubheadtitle{}%
+ \the\presubhead{\subheadfont#1}%
+ \the\postsubhead\thissubhead{}}
+%
+\def\subhead#1{\beginsubhead#1\endsubhead}
+% ;vrblin400
+\presubsubhead{\smallbreak\noident\hfil}
+%
+\postsubsubhead{\smallskip\nobreak}
+%
+\def\beginsubsubhead#1\endsubsubhead{%
+ \subsubheadtitle{#1}
+ \the\presubsubhead{\subsubheadfont#1}
+ \the\postsubsubhead\thissubsubhead{}}
+%
+\def\subsubhead#1{%
+ \beginsubsubhead#1\endsubsubhead}
+%;vrblin450
+\preverbatim{}
+%;vrblin550
+%
+%Header and footer ;vrblin600
+\headline={\hbox to\pagewd{\titlefont
+ \hss\the\title\hss}
+}%end headline
+% ;vrblin650
+\footline={\hbox to\pagewd{%
+ \rlap{\fiverm\strut\the\identification}\hss
+ \llap{\fiverm\copyright\the\crowner}}%
+}%end footline
+%
+%Auxiliaries ;vrblin700
+\catcode`\@=11
+\def\fivepoint{\def\rm{\fam0\fiverm}%
+ \textfont0=\fiverm \scriptfont0=\fiverm
+ \scriptscriptfont0=\fiverm
+ \textfont1=\fivei \scriptfont1=\fivei
+ \scriptscriptfont1=\fivei
+ \textfont2=\fivesy \scriptfont2=\fivesy
+ \scriptscriptfont2=\fivesy
+ \textfont3=\tenex \scriptfont3=\tenex
+ \scriptscriptfont3=\tenex
+ \def\it{\fam\itfam\fivei}\def\oldstyle
+ {\fam1 \fivei}\textfont\itfam=\fivei
+ \def\sl{\fam\slfam\fivei}%
+ \textfont\slfam=\fivei
+ \def\bf{\fam\bffam\fivebf}%
+ \textfont\bffam=\fivebf
+ \scriptfont\bffam=\fivebf
+ \scriptscriptfont\bffam=\fivebf
+ \def\tt{\fam\ttfam\fiverm}%
+ \textfont\ttfam=\fiverm
+ \tt \ttglue=.5em plus.25em minus.15em
+ \normalbaselineskip=7pt plus1pt minus1pt
+ \def\MF{{\manual opqr}\-{\manual stuq}}%
+ \let\sc=\fivexrm
+ \let\big=\fivebig
+ \setbox\strutbox=\hbox{\vrule height7pt
+ depth2pt width\z@}%
+ \normalbaselines\rm}
+ \def\fivebig#1{\hbox{$\left#1\vbox to4.5pt{}\right.\n@space$}}
+\catcode`\@=12
+%
+\def\continue{\vss
+ \rightline{\dots continued}\nxttrs}
+%Defaults;vrblin900
+\identification{\today}
+\onecol
+\hsize=18.5cm \vsize=25cm
+\pagewd=\hsize
+%\pagenumber{\folio}
+\let\small\fivepoint
+\overfullrule0pt
+\parindent0pt
+\obeylines
+\endinput