%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%
%[email protected]       %;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
%[email protected]
\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
%                   [email protected]
%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
%                   [email protected]
%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