%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