new plain package fontch (9dec05)

git-svn-id: svn://tug.org/texlive/trunk@2066 c570f23f-e606-0410-a88d-b1316a301751

7 files changed, 1166 insertions, 0 deletions

diff --git a/Build/cdbuild/ctan2tds.pl b/Build/cdbuild/ctan2tds.pl
index 1ce8dab4ddf..e27bd08e40c 100755
--- a/Build/cdbuild/ctan2tds.pl
+++ b/Build/cdbuild/ctan2tds.pl
@@ -430,6 +430,7 @@ $standardsourcefmt='latex';
  'epsf',	'generic',
  'esint-type1',	'plain',
  'fltpoint',	'generic',
+ 'fontch',	'plain',
  'fontspec',	'xetex',
  'genmisc',	'generic',
  'ifxetex',	'generic',
@@ -485,6 +486,7 @@ $standardfmt='latex';
  'exteps',	'metapost',
  'fc',		'fonts',
  'featpost',	'metapost',
+ 'fontch',	'plain',
  'fontspec',	'xetex',
  'fourier',	'fonts',
  'frcursive',	'fonts',
@@ -600,6 +602,7 @@ $standardtex='\.cfg|\.sty|\.clo|\.ldf|\.cls|\.def|\.fd$';
  'esint-type1',	'esint.tex',
  'europecv',	'EuropeFlag|europasslogo|\.cls|\.def',
  'fltpoint',	'\.sty|\.tex',
+ 'fontch',	'\.tex',
  'footnpag',	'footnpag\.sty',
  'genmisc',	'\.sty|\.tex',
  'ginpenc',	'\.gie|\.sty',
diff --git a/Master/texmf-dist/doc/plain/fontch/README b/Master/texmf-dist/doc/plain/fontch/README
new file mode 120000
index 00000000000..c3ca07460ab
--- /dev/null
+++ b/Master/texmf-dist/doc/plain/fontch/README
@@ -0,0 +1 @@
+README.txt
\ No newline at end of file
diff --git a/Master/texmf-dist/doc/plain/fontch/README.txt b/Master/texmf-dist/doc/plain/fontch/README.txt
new file mode 100644
index 00000000000..4d893ea9f33
--- /dev/null
+++ b/Master/texmf-dist/doc/plain/fontch/README.txt
@@ -0,0 +1,225 @@
+README File of the package fontch.tex   V1.1  2006/02/16
+
+ fontch.tex:  Macros for changing fonts and sizes in plain TeX 
+ 
+ Rodrigo Medina (IVIC) rmedina@ivic.ve
+
+ Suggested locations: .../texmf/tex/plain/fontch/fontch.tex
+ 			.../texmf/doc/tex/fontch/README.txt
+ Licence: LPPL
+
+Purpose
+-------
+	This package allows, in plain TeX, to change with a single
+command the size of all fonts that are used for text input and math input.
+Main text fonts of sizes 8, 10, 12, 14, 20 and 24 points are available.
+ The package also permits to load the Latin Modern fonts with T1 encoding
+and the corresponding companion symbol fonts TS1.
+
+Installation
+------------
+	You have only to put the file fontch.tex in any sensible place
+in the texmf tree, like
+
+       .../texmf/tex/plain/fontch/fontch.tex.
+
+  It is also commendable to put this README file in a proper place such as
+
+       .../texmf/doc/tex/fontch/README.txt
+
+  In order to use the T1 option you need to have installed the Latin Modern
+fonts.
+ 
+Usage
+-----
+
+	For using fonts.tex with OT1 fonts (Computer Modern) put at the
+beginning of the document:
+
+	\input fontch.tex
+
+  For activating T1 fonts (Latin Modern) put at the beginning:
+
+	\let\LMTone\relax
+	\input fontch.tex
+
+  If you want also activating support for the TS1 companion symbol font
+put at the beginning of the document:
+
+	\let\LMTSone\relax
+	\let\LMTone\relax
+	\input fontch.tex
+
+  If you want TS1 but you don't need T1 you may also activate TS1 alone:
+
+	\let\LMTSone\relax
+	\input fontch.tex
+
+  If you are using the T1 option it is commendable the use of encoding file
+il1-t1.tcx (or il2-t1.tcx depending on the language). You have to put as the
+first line of your TeX document
+	%& --translate-file=il1-t1.tcx
+
+and then you can write your document with ISOlatin1 encoding.
+
+General Commands
+------------------
+The package fontch defines the following commands valid for any option.
+
+Commands for changing font size:
+	\eightpoint      -- Change to small type
+	\tenpoint        -- Change to normal type
+	\twelvepoint     -- Change to large type
+	\fourteenpoint   -- Change to very large type
+	\twentypoint     -- Change to huge type
+	\twentyfourpoint -- Change to immense type
+
+Commands for changing family, already in plain TeX (except for \sf)
+	\rm	  -- Roman
+	\it	  -- Italic
+	\bf	  -- Boldface
+	\tt	  -- Teletype
+	\sf	  -- Sans Serif (new)
+	\sc	  -- Small Caps
+	\cal	  -- Calligraphic
+	\mit	  -- Math Italic
+	\oldstyle -- Old style digits
+
+Command for changing line spacing
+	\doublespace   -- Double Space for ten & twelve points
+
+Commands of the LMT1 option
+---------------------------
+
+Redefined Plain TeX Commands:
+  \i , \j , \ae , \AE, \oe , \OE , \o , \O ,
+  \ss , \SS , \aa , \AA , \l , \L ,
+  \Gamma , \Delta , \Theta , \Lambda , \Xi , \Pi ,
+  \Sigma , \Upsilon , \Phi , \Psi , \Omega
+
+New T1 Commands for non-latin1 characters
+
+	\lh  -- l'
+	\Lh  -- L'
+	\dh  -- d'
+	\th  -- t'
+	\dbar -- d slash
+	\Edh
+	\edh
+	\ij
+	\IJ
+	\nj
+	\NJ
+	\thorn
+	\Thorn
+	\smallzero
+	\lguille   -- left guillemot (does not appear in il1-t1.tcx)
+	\rguille   -- right guillemot (does not appear in il1-t1.tcx)
+	\vispace   -- visible space
+
+Redefined plain TeX accents
+
+  \` , \' , \^ , \~ , \" , \H , \v , \u , \= , \. , \b , \c
+
+New T1 accents
+	\r   -- ring accent
+	\k   -- ogonek
+
+
+Commands of the LMTS1 option 
+----------------------------
+
+TS1 symbols 
+	\tcchar{#1} -- Character of TS1 table
+
+Redefined plain TeX commands
+	\t{#1} --  tie-after-accent
+	\P     --  pilcrow
+	\S     --  section
+	\dag   --  dagger
+	\ddag  --  double dagger
+	\copyright
+
+Most TS1 symbols (in increasing charcode order)
+Some are text versions of symbols of the math mode.
+
+	\arrowl      -- left arrow
+	\arrowr      -- right arrow
+	\blank
+	\dollar
+	\caster      -- centered asterisk
+	\sequals     -- short equals
+	\anglel
+	\angler
+	\mho
+	\bigcircle
+	\Ohm
+	\bbracketl   -- left double square bracket
+	\bbracketr   -- right double square bracket
+	\arrowu      -- up arrow
+	\arrowd      -- down arrow
+	\textstar    -- star
+	\born
+	\died
+	\leaf
+	\married
+	\music
+	\doublevert  -- Double vertical bar
+	\perthousand
+	\bull        -- bullet (is in manmac)
+	\centigrade
+	\olddollar
+	\oldcent
+	\florin
+	\Colon
+	\won
+	\naira
+	\guarani
+	\peso
+	\lira
+	\recipe
+	\interrobang -- Question+Exclamation
+	\gnaborretni -- Question+Exclamation upside-down
+	\dong
+	\TM
+	\pertenth    -- per ten thousand
+	\npilcrow    -- narrow pilcrow
+	\baht
+	\numero
+	\abzueglich
+	\aestimated  -- Big e
+	\openbull
+	\SM
+	\qbrackl     -- left quill bracket
+	\qbrackr     -- right quill bracket
+	\cent
+	\sterling
+	\currency
+	\yen
+	\brokenvert  -- broken vertical bar
+	\feminine
+	\copyleft
+	\lognot      -- logical not
+	\circledP
+	\registered
+	\degree
+	\plusminus
+	\twoup
+	\threeup
+	\micro
+	\centereddot
+	\reference
+	\oneup
+	\masculine
+	\root
+	\onequarter
+	\onehalf
+	\threequarters
+	\euro
+	\texttimes
+	\textdiv
+
+Bugs
+----
+  Comments and bug reports are welcome at rmedina@ivic.ve
+
diff --git a/Master/texmf-dist/tex/plain/fontch/fontch.tex b/Master/texmf-dist/tex/plain/fontch/fontch.tex
new file mode 100644
index 00000000000..84cee410cf1
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/fontch/fontch.tex
@@ -0,0 +1,904 @@
+%% fontch.tex Macros for easily changing fonts and sizes in plain TeX %%
+%% V1.1  2006/02/16 
+%% Rodrigo Medina (IVIC) rmedina@ivic.ve
+%% Suggested location: .../texmf/tex/plain/fontch/
+%% Licence: LPPL
+%%
+%% For using fonts.tex with OT1 fonts (Computer Modern)
+%% put at the beginning of the document:
+%% \input fontch.tex
+%% For activating T1 fonts (Latin Modern)
+%% put before the fontch.tex call:
+%% \let\LMTone\relax
+%% For activating support for the TS1 companion symbol font
+%% put before the fontch.tex call:
+%% \let\LMTSone\relax
+%%
+%% The use of files il1-t1.tcx or il2-t1.tcx is recommended
+%%
+%% General Commands
+%  \rm  -- Roman
+%  \it  -- Italic
+%  \bf  -- Boldface
+%  \tt  -- Teletype
+%  \sf  -- Sans Serif
+%  \sc  -- Small Caps
+%  \cal -- Calligraphic
+%  \mit -- Math Italic
+%  \oldstyle      -- Old style digits
+%  \eightpoint    -- Change to small type
+%  \tenpoint      -- Change to normal type
+%  \twelvepoint   -- Change to large type
+%  \fourteenpoint -- Change to very large type
+%  \twentypoint   -- Change to huge type
+%  \twentyfourpoint -- Change to immense type
+%  \doublespace   -- Double Space for ten & twelve points
+%
+%%%%%%   Commands of the LMT1 option
+%% Redefined Plain TeX Commands
+%  \i , \j , \ae , \AE, \oe , \OE , \o , \O ,
+%  \ss , \SS , \aa , \AA , \l , \L ,
+%  \Gamma , \Delta , \Theta , \Lambda , \Xi , \Pi ,
+%  \Sigma , \Upsilon , \Phi , \Psi , \Omega
+%%
+%% New T1 Commands for non-latin1 characters
+%  \lh  -- l'
+%  \Lh  -- L'
+%  \dh  -- d'
+%  \th  -- t'
+%  \dbar -- d slash
+%  \Edh
+%  \edh
+%  \ij
+%  \IJ
+%  \nj
+%  \NJ
+%  \thorn
+%  \Thorn
+%  \smallzero
+%  \lguille   -- left guillemot (does not appear in il1-t1.tcx)
+%  \rguille   -- right guillemot (does not appear in il1-t1.tcx)
+%  \vispace   -- visible space
+%%
+%% Redefined plain TeX accents
+%  \` , \' , \^ , \~ , \" , \H , \v , \u , \= , \. , \b , \c
+%% New T1 accents
+%  \r   -- ring accent
+%  \k   -- ogonek
+%%
+%%%%% Commands of the LMTS1 option %%
+%% Text companion symbols TS1 %%
+%  \tcchar{#1} -- Character of TS1 table
+%% Redefined plain TeX commands
+%  \t{#1} --  tie-after-accent
+%  \P     --  pilcrow
+%  \S     --  section
+%  \dag   --  dagger
+%  \ddag  --  double dagger
+%  \copyright
+%% Most TS1 symbols (in increasing charcode order)
+%  \arrowl      -- left arrow
+%  \arrowr      -- right arrow
+%  \blank
+%  \dollar
+%  \caster      -- centered asterisk
+%  \sequals     -- short equals
+%  \anglel
+%  \angler
+%  \mho
+%  \bigcircle
+%  \Ohm
+%  \bbracketl   -- left double square bracket
+%  \bbracketr   -- right double square bracket
+%  \arrowu      -- up arrow
+%  \arrowd      -- down arrow
+%  \textstar    -- star
+%  \born
+%  \died
+%  \leaf
+%  \married
+%  \music
+%  \doublevert  -- Double vertical bar
+%  \perthousand
+%  \bull        -- bullet (is in manmac)
+%  \centigrade
+%  \olddollar
+%  \oldcent
+%  \florin
+%  \Colon
+%  \won
+%  \naira
+%  \guarani
+%  \peso
+%  \lira
+%  \recipe
+%  \interrobang -- Question+Exclamation
+%  \gnaborretni -- Question+Exclamation upsidedown
+%  \dong
+%  \TM
+%  \pertenth    -- per ten thousand
+%  \npilcrow    -- narrow pilcrow
+%  \baht
+%  \numero
+%  \abzueglich
+%  \aestimated  -- Big e
+%  \openbull
+%  \SM
+%  \qbrackl     -- left quill bracket
+%  \qbrackr     -- right quill bracket
+%  \cent
+%  \sterling
+%  \currency
+%  \yen
+%  \brokenvert  -- broken vertical bar
+%  \feminine
+%  \copyleft
+%  \lognot      -- logical not
+%  \circledP
+%  \registered
+%  \degree
+%  \plusminus
+%  \twoup
+%  \threeup
+%  \micro
+%  \centereddot
+%  \reference
+%  \oneup
+%  \masculine
+%  \root
+%  \onequarter
+%  \onehalf
+%  \threequarters
+%  \euro
+%  \texttimes
+%  \textdiv
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\wlog{File: fontch.tex
+        [v1.1 (2006/02/16) font package for plain TeX]}
+%
+%% Math fonts, valid for both options
+%% five points fonts (defined in plain.tex) %%
+%% six points fonts %%
+\font\sixi=cmmi6
+\font\sixsy=cmsy6
+\skewchar\sixi='177
+\skewchar\sixsy='60
+%% seven points fonts (defined in plain.tex) %%
+%% eight points fonts %%
+\font\eighti=cmmi8
+\font\eightsy=cmsy8
+\font\eightex=cmex10 at 8pt
+\skewchar\eighti='177
+\skewchar\eightsy='60
+%% nine points fonts %%
+\font\ninei=cmmi9
+\font\ninesy=cmsy9
+\skewchar\ninei='177
+\skewchar\ninesy='60
+%% ten points fonts (defined in plain.tex) %%
+%% twelve points fonts %%
+\font\twelvei=cmmi12
+\font\twelvesy=cmsy10 scaled\magstep1
+\font\twelveex=cmex10 scaled\magstep1
+\skewchar\twelvei='177
+\skewchar\twelvesy='60
+%% fourteen points fonts %%
+\font\fourteeni=cmmi12 scaled\magstep1
+\font\fourteensy=cmsy10 scaled\magstep2
+\font\fourteenex=cmex10 scaled\magstep2
+\skewchar\fourteeni='177
+\skewchar\fourteensy='60
+%% twenty points fonts %%
+\font\twentyi=cmmi10 scaled 2000
+\font\twentysy=cmsy10 scaled 2000
+\font\twentyex=cmex10 scaled 2000
+\skewchar\twentyi='177
+\skewchar\twentysy='60
+%% twentyfour  points fonts %%
+\font\twentyfouri=cmmi12 scaled 2000
+\font\twentyfoursy=cmsy10 scaled 2400
+\font\twentyfourex=cmex10 scaled 2400
+\skewchar\twentyfouri='177
+\skewchar\twentyfoursy='60
+%%
+%% big... operators
+\newdimen\bigsize
+\newdimen\Bigsize
+\newdimen\biggsize
+\newdimen\Biggsize
+%% Initial values for ten points
+\bigsize=8.5pt
+\Bigsize=11.5pt
+\biggsize=14.5pt
+\Biggsize=17.5pt
+%% Make @ visible
+\catcode`\@=11
+\def\big#1{{\hbox{$\left#1\vbox to \bigsize{}\right.\n@space$}}}
+\def\Big#1{{\hbox{$\left#1\vbox to \Bigsize{}\right.\n@space$}}}
+\def\bigg#1{{\hbox{$\left#1\vbox to \biggsize{}\right.\n@space$}}}
+\def\Bigg#1{{\hbox{$\left#1\vbox to \Biggsize{}\right.\n@space$}}}
+%%
+\ifx\LMTone\@undefined%
+{}
+\else
+\let\ifLMT=\relax
+\fi
+\ifx\LMTSone\@undefined%
+{}
+\else
+\let\ifLMTS=\relax
+\fi
+%%
+%% Make @ invisible
+\catcode`\@=12
+%%
+\ifx\ifLMT\relax%
+%% T1 option activated %%
+\immediate\write16{*** T1 option activated. cork-LM fonts are used ***}
+%% Replace CM text fonts already defined %%
+%% five points fonts %%
+\font\fiverm=cork-lmr5
+\font\fivebf=cork-lmbx5
+%% seven points fonts %%
+\font\sevenrm=cork-lmr7
+\font\sevenbf=cork-lmbx7
+%% ten points fonts %%
+\font\tenrm=cork-lmr10
+\font\tenbf=cork-lmbx10
+\font\tensl=cork-lmro10
+\font\tentt=cork-lmtt10
+\font\tenit=cork-lmri10
+%% Non defined textfonts %%
+%% six poi:nts fonts %%
+\font\sixrm=cork-lmr6
+\font\sixbf=cork-lmbx6
+%% eight points fonts %%
+\font\eightrm=cork-lmr8
+\font\eightbf=cork-lmbx8
+\font\eightsl=cork-lmro8
+\font\eighttt=cork-lmtt8
+\font\eightit=cork-lmri8
+\font\eightss=cork-lmss8
+%% nine points fonts %%
+\font\ninerm=cork-lmr9
+\font\ninebf=cork-lmbx9
+%% ten points fonts %%
+\font\tenss=cork-lmss10
+%% twelve points fonts %%
+\font\twelverm=cork-lmr12
+\font\twelvebf=cork-lmbx12
+\font\twelvesl=cork-lmro12
+\font\twelvett=cork-lmtt12
+\font\twelveit=cork-lmri12
+\font\twelvess=cork-lmss12
+%% fourteen points fonts %%
+\font\fourteenrm=cork-lmr12 scaled\magstep1
+\font\fourteenbf=cork-lmbx12 scaled\magstep1
+\font\fourteensl=cork-lmro12 scaled\magstep1
+\font\fourteentt=cork-lmtt12 scaled\magstep1
+\font\fourteenit=cork-lmri12 scaled\magstep1
+\font\fourteenss=cork-lmss12 scaled\magstep1
+%% twenty points fonts %%
+\font\twentyrm=cork-lmr10 scaled 2000
+\font\twentybf=cork-lmbx10 scaled 2000
+\font\twentysl=cork-lmro10 scaled 2000
+\font\twentytt=cork-lmtt10 scaled 2000
+\font\twentyit=cork-lmri10 scaled 2000
+\font\twentyss=cork-lmss10 scaled 2000
+%% twentyfour  points fonts %%
+\font\twentyfourrm=cork-lmr12 scaled 2000
+\font\twentyfourbf=cork-lmbx12 scaled 2000
+\font\twentyfoursl=cork-lmro12 scaled 2000
+\font\twentyfourtt=cork-lmtt12 scaled 2000
+\font\twentyfourit=cork-lmri12 scaled 2000
+\font\twentyfourss=cork-lmss12 scaled 2000
+%%
+%% Redefinition of character commands %%
+\chardef\i="19 \chardef\j="1A
+\chardef\ae="E6 \chardef\AE="C6
+\chardef\oe="F7 \chardef\OE="D7
+\chardef\o="F8 \chardef\O="D8
+\chardef\ss="FF \chardef\SS="DF
+\chardef\aa="E5 \chardef\AA="C5
+\chardef\l="AA \chardef\L="8A
+\mathchardef\Gamma="0100
+\mathchardef\Delta="0101
+\mathchardef\Theta="0102
+\mathchardef\Lambda="0103
+\mathchardef\Xi="0104
+\mathchardef\Pi="0105
+\mathchardef\Sigma="0106
+\mathchardef\Upsilon="0107
+\mathchardef\Phi="0108
+\mathchardef\Psi="0109
+\mathchardef\Omega="010A
+
+%% New character commands %%
+\chardef\lh="A9 \chardef\Lh="89
+\chardef\dh="A4 \chardef\th="B4
+\chardef\dbar="9E
+\chardef\Edh="D0 \chardef\edh="F0
+\chardef\ij="BC \chardef\IJ="9C
+\chardef\nj="AD \chardef\NJ="8D
+\chardef\thorn="FE \chardef\Thorn="DE
+\chardef\smallzero="18
+\chardef\lguille="E \chardef\rguille="F
+\chardef\vispace="20
+%% Redefinition of accents and new accents%%
+\def\`#1{{\accent0 #1}}
+\def\'#1{{\accent1 #1}}
+\def\^#1{{\accent2 #1}}
+\def\~#1{{\accent3 #1}}
+\def\"#1{{\accent4 #1}}
+\def\H#1{{\accent5 #1}}
+%New ring accent
+\def\r#1{{\accent6 #1}}
+\def\v#1{{\accent7 #1}}
+\def\u#1{{\accent8 #1}}
+\def\=#1{{\accent9 #1}}
+\def\.#1{{\accent10 #1}}
+\def\b#1{\oalign{#1\crcr\hidewidth
+    \vbox to.2ex{\hbox{\char9}\vss}\hidewidth}}
+\def\c#1{\setbox0=\hbox{#1}\ifdim\ht0=1ex \accent"B #1%
+     \else{\ooalign{\unhbox0\crcr\hidewidth\char"B\hidewidth}}\fi}
+%New ogonek accent
+\def\k#1{\setbox0=\hbox{#1}\ifdim\ht0=1ex \accent"C #1%
+     \else{\ooalign{\unhbox0\crcr\hidewidth\char"C\hidewidth}}\fi}
+\def\textdiv{{\tcchar{"F6}}}
+%% Activate non-ascii letters %%
+% upper case 
+\catcode`\^^80=11 \uccode`\^^80=`\^^80 \lccode`\^^80=`\^^a0
+\catcode`\^^81=11 \uccode`\^^81=`\^^81 \lccode`\^^81=`\^^a1
+\catcode`\^^82=11 \uccode`\^^82=`\^^82 \lccode`\^^82=`\^^a2
+\catcode`\^^83=11 \uccode`\^^83=`\^^83 \lccode`\^^83=`\^^a3
+\catcode`\^^84=11 \uccode`\^^84=`\^^84 \lccode`\^^84=`\^^a4
+\catcode`\^^85=11 \uccode`\^^85=`\^^85 \lccode`\^^85=`\^^a5
+\catcode`\^^86=11 \uccode`\^^86=`\^^86 \lccode`\^^86=`\^^a6
+\catcode`\^^87=11 \uccode`\^^87=`\^^87 \lccode`\^^87=`\^^a7
+\catcode`\^^88=11 \uccode`\^^88=`\^^88 \lccode`\^^88=`\^^a8
+\catcode`\^^89=11 \uccode`\^^89=`\^^89 \lccode`\^^89=`\^^a9
+\catcode`\^^8a=11 \uccode`\^^8a=`\^^8a \lccode`\^^8a=`\^^aa
+\catcode`\^^8b=11 \uccode`\^^8b=`\^^8b \lccode`\^^8b=`\^^ab
+\catcode`\^^8c=11 \uccode`\^^8c=`\^^8c \lccode`\^^8c=`\^^ac
+\catcode`\^^8d=11 \uccode`\^^8d=`\^^8d \lccode`\^^8d=`\^^ad
+\catcode`\^^8e=11 \uccode`\^^8e=`\^^8e \lccode`\^^8e=`\^^ae
+\catcode`\^^8f=11 \uccode`\^^8f=`\^^8f \lccode`\^^8f=`\^^af
+\catcode`\^^90=11 \uccode`\^^90=`\^^90 \lccode`\^^90=`\^^b0
+\catcode`\^^91=11 \uccode`\^^91=`\^^91 \lccode`\^^91=`\^^b1
+\catcode`\^^92=11 \uccode`\^^92=`\^^92 \lccode`\^^92=`\^^b2
+\catcode`\^^93=11 \uccode`\^^93=`\^^93 \lccode`\^^93=`\^^b3
+\catcode`\^^94=11 \uccode`\^^94=`\^^94 \lccode`\^^94=`\^^b4
+\catcode`\^^95=11 \uccode`\^^95=`\^^95 \lccode`\^^95=`\^^b5
+\catcode`\^^96=11 \uccode`\^^96=`\^^96 \lccode`\^^96=`\^^b6
+\catcode`\^^97=11 \uccode`\^^97=`\^^97 \lccode`\^^97=`\^^b7
+\catcode`\^^98=11 \uccode`\^^98=`\^^98 \lccode`\^^98=`\^^b8
+\catcode`\^^99=11 \uccode`\^^99=`\^^99 \lccode`\^^99=`\^^b9
+\catcode`\^^9a=11 \uccode`\^^9a=`\^^9a \lccode`\^^9a=`\^^ba
+\catcode`\^^9b=11 \uccode`\^^9b=`\^^9b \lccode`\^^9b=`\^^bb
+\catcode`\^^9c=11 \uccode`\^^9c=`\^^9c \lccode`\^^9c=`\^^bc
+\catcode`\^^c0=11 \uccode`\^^c0=`\^^c0 \lccode`\^^c0=`\^^e0
+\catcode`\^^c1=11 \uccode`\^^c1=`\^^c1 \lccode`\^^c1=`\^^e1
+\catcode`\^^c2=11 \uccode`\^^c2=`\^^c2 \lccode`\^^c2=`\^^e2
+\catcode`\^^c3=11 \uccode`\^^c3=`\^^c3 \lccode`\^^c3=`\^^e3
+\catcode`\^^c4=11 \uccode`\^^c4=`\^^c4 \lccode`\^^c4=`\^^e4
+\catcode`\^^c5=11 \uccode`\^^c5=`\^^c5 \lccode`\^^c5=`\^^e5
+\catcode`\^^c6=11 \uccode`\^^c6=`\^^c6 \lccode`\^^c6=`\^^e6
+\catcode`\^^c7=11 \uccode`\^^c7=`\^^c7 \lccode`\^^c7=`\^^e7
+\catcode`\^^c8=11 \uccode`\^^c8=`\^^c8 \lccode`\^^c8=`\^^e8
+\catcode`\^^c9=11 \uccode`\^^c9=`\^^c9 \lccode`\^^c9=`\^^e9
+\catcode`\^^ca=11 \uccode`\^^ca=`\^^ca \lccode`\^^ca=`\^^ea
+\catcode`\^^cb=11 \uccode`\^^cb=`\^^cb \lccode`\^^cb=`\^^eb
+\catcode`\^^cc=11 \uccode`\^^cc=`\^^cc \lccode`\^^cc=`\^^ec
+\catcode`\^^cd=11 \uccode`\^^cd=`\^^cd \lccode`\^^cd=`\^^ed
+\catcode`\^^ce=11 \uccode`\^^ce=`\^^ce \lccode`\^^ce=`\^^ee
+\catcode`\^^cf=11 \uccode`\^^cf=`\^^cf \lccode`\^^cf=`\^^ef
+\catcode`\^^d0=11 \uccode`\^^d0=`\^^d0 \lccode`\^^d0=`\^^f0
+\catcode`\^^d1=11 \uccode`\^^d1=`\^^d1 \lccode`\^^d1=`\^^f1
+\catcode`\^^d2=11 \uccode`\^^d2=`\^^d2 \lccode`\^^d2=`\^^f2
+\catcode`\^^d3=11 \uccode`\^^d3=`\^^d3 \lccode`\^^d3=`\^^f3
+\catcode`\^^d4=11 \uccode`\^^d4=`\^^d4 \lccode`\^^d4=`\^^f4
+\catcode`\^^d5=11 \uccode`\^^d5=`\^^d5 \lccode`\^^d5=`\^^f5
+\catcode`\^^d6=11 \uccode`\^^d6=`\^^d6 \lccode`\^^d6=`\^^f6
+\catcode`\^^d7=11 \uccode`\^^d7=`\^^d7 \lccode`\^^d7=`\^^f7
+\catcode`\^^d8=11 \uccode`\^^d8=`\^^d8 \lccode`\^^d8=`\^^f8
+\catcode`\^^d9=11 \uccode`\^^d9=`\^^d9 \lccode`\^^d9=`\^^f9
+\catcode`\^^da=11 \uccode`\^^da=`\^^da \lccode`\^^da=`\^^fa
+\catcode`\^^db=11 \uccode`\^^db=`\^^db \lccode`\^^db=`\^^fb
+\catcode`\^^dc=11 \uccode`\^^dc=`\^^dc \lccode`\^^dc=`\^^fc
+\catcode`\^^dd=11 \uccode`\^^dd=`\^^dd \lccode`\^^dd=`\^^fd
+\catcode`\^^de=11 \uccode`\^^de=`\^^de \lccode`\^^de=`\^^fe
+\catcode`\^^df=11 \uccode`\^^df=`\^^df \lccode`\^^df=`\^^ff
+% Lower case
+\catcode`\^^a0=11 \uccode`\^^a0=`\^^80 \lccode`\^^a0=`\^^a0
+\catcode`\^^a1=11 \uccode`\^^a1=`\^^81 \lccode`\^^a1=`\^^a1
+\catcode`\^^a2=11 \uccode`\^^a2=`\^^82 \lccode`\^^a2=`\^^a2
+\catcode`\^^a3=11 \uccode`\^^a3=`\^^83 \lccode`\^^a3=`\^^a3
+\catcode`\^^a4=11 \uccode`\^^a4=`\^^84 \lccode`\^^a4=`\^^a4
+\catcode`\^^a5=11 \uccode`\^^a5=`\^^85 \lccode`\^^a5=`\^^a5
+\catcode`\^^a6=11 \uccode`\^^a6=`\^^86 \lccode`\^^a6=`\^^a6
+\catcode`\^^a7=11 \uccode`\^^a7=`\^^87 \lccode`\^^a7=`\^^a7
+\catcode`\^^a8=11 \uccode`\^^a8=`\^^88 \lccode`\^^a8=`\^^a8
+\catcode`\^^a9=11 \uccode`\^^a9=`\^^89 \lccode`\^^a9=`\^^a9
+\catcode`\^^aa=11 \uccode`\^^aa=`\^^8a \lccode`\^^aa=`\^^aa
+\catcode`\^^ab=11 \uccode`\^^ab=`\^^8b \lccode`\^^ab=`\^^ab
+\catcode`\^^ac=11 \uccode`\^^ac=`\^^8c \lccode`\^^ac=`\^^ac
+\catcode`\^^ad=11 \uccode`\^^ad=`\^^8d \lccode`\^^ad=`\^^ad
+\catcode`\^^ae=11 \uccode`\^^ae=`\^^8e \lccode`\^^ae=`\^^ae
+\catcode`\^^af=11 \uccode`\^^af=`\^^8f \lccode`\^^af=`\^^af
+\catcode`\^^b0=11 \uccode`\^^b0=`\^^90 \lccode`\^^b0=`\^^b0
+\catcode`\^^b1=11 \uccode`\^^b1=`\^^91 \lccode`\^^b1=`\^^b1
+\catcode`\^^b2=11 \uccode`\^^b2=`\^^92 \lccode`\^^b2=`\^^b2
+\catcode`\^^b3=11 \uccode`\^^b3=`\^^93 \lccode`\^^b3=`\^^b3
+\catcode`\^^b4=11 \uccode`\^^b4=`\^^94 \lccode`\^^b4=`\^^b4
+\catcode`\^^b5=11 \uccode`\^^b5=`\^^95 \lccode`\^^b5=`\^^b5
+\catcode`\^^b6=11 \uccode`\^^b6=`\^^96 \lccode`\^^b6=`\^^b6
+\catcode`\^^b7=11 \uccode`\^^b7=`\^^97 \lccode`\^^b7=`\^^b7
+\catcode`\^^b8=11 \uccode`\^^b8=`\^^98 \lccode`\^^b8=`\^^b8
+\catcode`\^^b9=11 \uccode`\^^b9=`\^^99 \lccode`\^^b9=`\^^b9
+\catcode`\^^ba=11 \uccode`\^^ba=`\^^9a \lccode`\^^ba=`\^^ba
+\catcode`\^^bb=11 \uccode`\^^bb=`\^^9b \lccode`\^^bb=`\^^bb
+\catcode`\^^e0=11 \uccode`\^^e0=`\^^c0 \lccode`\^^e0=`\^^e0
+\catcode`\^^e1=11 \uccode`\^^e1=`\^^c1 \lccode`\^^e1=`\^^e1
+\catcode`\^^e2=11 \uccode`\^^e2=`\^^c2 \lccode`\^^e2=`\^^e2
+\catcode`\^^e3=11 \uccode`\^^e3=`\^^c3 \lccode`\^^e3=`\^^e3
+\catcode`\^^e4=11 \uccode`\^^e4=`\^^c4 \lccode`\^^e4=`\^^e4
+\catcode`\^^e5=11 \uccode`\^^e5=`\^^c5 \lccode`\^^e5=`\^^e5
+\catcode`\^^e6=11 \uccode`\^^e6=`\^^c6 \lccode`\^^e6=`\^^e6
+\catcode`\^^e7=11 \uccode`\^^e7=`\^^c7 \lccode`\^^e7=`\^^e7
+\catcode`\^^e8=11 \uccode`\^^e8=`\^^c8 \lccode`\^^e8=`\^^e8
+\catcode`\^^e9=11 \uccode`\^^e9=`\^^c9 \lccode`\^^e9=`\^^e9
+\catcode`\^^ea=11 \uccode`\^^ea=`\^^ca \lccode`\^^ea=`\^^ea
+\catcode`\^^eb=11 \uccode`\^^eb=`\^^cb \lccode`\^^eb=`\^^eb
+\catcode`\^^ec=11 \uccode`\^^ec=`\^^cc \lccode`\^^ec=`\^^ec
+\catcode`\^^ed=11 \uccode`\^^ed=`\^^cd \lccode`\^^ed=`\^^ed
+\catcode`\^^ee=11 \uccode`\^^ee=`\^^ce \lccode`\^^ee=`\^^ee
+\catcode`\^^ef=11 \uccode`\^^ef=`\^^cf \lccode`\^^ef=`\^^ef
+\catcode`\^^f0=11 \uccode`\^^f0=`\^^d0 \lccode`\^^f0=`\^^f0
+\catcode`\^^f1=11 \uccode`\^^f1=`\^^d1 \lccode`\^^f1=`\^^f1
+\catcode`\^^f2=11 \uccode`\^^f2=`\^^d2 \lccode`\^^f2=`\^^f2
+\catcode`\^^f3=11 \uccode`\^^f3=`\^^d3 \lccode`\^^f3=`\^^f3
+\catcode`\^^f4=11 \uccode`\^^f4=`\^^d4 \lccode`\^^f4=`\^^f4
+\catcode`\^^f5=11 \uccode`\^^f5=`\^^d5 \lccode`\^^f5=`\^^f5
+\catcode`\^^f6=11 \uccode`\^^f6=`\^^d6 \lccode`\^^f6=`\^^f6
+\catcode`\^^f7=11 \uccode`\^^f7=`\^^d7 \lccode`\^^f7=`\^^f7
+\catcode`\^^f8=11 \uccode`\^^f8=`\^^d8 \lccode`\^^f8=`\^^f8
+\catcode`\^^f9=11 \uccode`\^^f9=`\^^d9 \lccode`\^^f9=`\^^f9
+\catcode`\^^fa=11 \uccode`\^^fa=`\^^da \lccode`\^^fa=`\^^fa
+\catcode`\^^fb=11 \uccode`\^^fb=`\^^db \lccode`\^^fb=`\^^fb
+\catcode`\^^fc=11 \uccode`\^^fc=`\^^dc \lccode`\^^fc=`\^^fc
+\catcode`\^^fd=11 \uccode`\^^fd=`\^^dd \lccode`\^^fd=`\^^fd
+\catcode`\^^fe=11 \uccode`\^^fe=`\^^de \lccode`\^^fe=`\^^fe
+\catcode`\^^ff=11 \uccode`\^^ff=`\^^df \lccode`\^^ff=`\^^ff
+%%End of LMTone option %%
+\else
+%%
+%% Other CM fonts
+%% five points fonts (defined in plain TeX)
+%% six points fonts %%
+\font\sixrm=cmr6
+\font\sixbf=cmbx6
+%% seven points fonts (defined in plain.tex) %%
+%% eight points fonts %%
+\font\eightrm=cmr8
+\font\eightbf=cmbx8
+\font\eightsl=cmsl8
+\font\eighttt=cmtt8
+\font\eightit=cmti8
+\font\eightss=cmss8
+%% nine points fonts %%
+\font\ninerm=cmr9
+\font\ninebf=cmbx9
+%% ten points fonts (not defined in plain.tex)%%
+\font\tenss=cmss10
+%% twelve points fonts %%
+\font\twelverm=cmr12
+\font\twelvebf=cmbx12
+\font\twelvesl=cmsl12
+\font\twelvett=cmtt12
+\font\twelveit=cmti12
+\font\twelvess=cmss12
+%% fourteen points fonts %%
+\font\fourteenrm=cmr12 scaled\magstep1
+\font\fourteenbf=cmbx12 scaled\magstep1
+\font\fourteensl=cmsl12 scaled\magstep1
+\font\fourteentt=cmtt12 scaled\magstep1
+\font\fourteenit=cmti12 scaled\magstep1
+\font\fourteenss=cmss12 scaled\magstep1
+%% twenty points fonts %%
+\font\twentyrm=cmr10 scaled 2000
+\font\twentybf=cmbx10 scaled 2000
+\font\twentysl=cmsl10 scaled 2000
+\font\twentytt=cmtt10 scaled 2000
+\font\twentyit=cmti10 scaled 2000
+\font\twentyss=cmss10 scaled 2000
+%% twentyfour  points fonts %%
+\font\twentyfourrm=cmr12 scaled 2000
+\font\twentyfourbf=cmbx12 scaled 2000
+\font\twentyfoursl=cmsl12 scaled 2000
+\font\twentyfourtt=cmtt12 scaled 2000
+\font\twentyfourit=cmti12 scaled 2000
+\font\twentyfourss=cmss12 scaled 2000
+\fi
+%% Support of TS1 fonts
+\ifx\ifLMTS\relax%
+\immediate\write16{*** TS1 option activated. ts1-LM fonts are used ***}
+%% eight points fonts %%
+\font\eightcrm=ts1-lmr8
+\font\eightcbf=ts1-lmbx8
+\font\eightcsl=ts1-lmro8
+\font\eightctt=ts1-lmtt8
+\font\eightcit=ts1-lmri8
+\font\eightcss=ts1-lmss8
+%% ten points fonts %%
+\font\tencrm=ts1-lmr10
+\font\tencbf=ts1-lmbx10
+\font\tencsl=ts1-lmro10
+\font\tenctt=ts1-lmtt10
+\font\tencit=ts1-lmri10
+\font\tencss=ts1-lmss10
+%% twelve points fonts %%
+\font\twelvecrm=ts1-lmr12
+\font\twelvecbf=ts1-lmbx12
+\font\twelvecsl=ts1-lmro12
+\font\twelvectt=ts1-lmtt12
+\font\twelvecit=ts1-lmri12
+\font\twelvecss=ts1-lmss12
+%% fourteen points fonts %%
+\font\fourteencrm=ts1-lmr12 scaled\magstep1
+\font\fourteencbf=ts1-lmbx12 scaled\magstep1
+\font\fourteencsl=ts1-lmro12 scaled\magstep1
+\font\fourteenctt=ts1-lmtt12 scaled\magstep1
+\font\fourteencit=ts1-lmri12 scaled\magstep1
+\font\fourteencss=ts1-lmss12 scaled\magstep1
+%% twenty points fonts %%
+\font\twentycrm=ts1-lmr10 scaled 2000
+\font\twentycbf=ts1-lmbx10 scaled 2000
+\font\twentycsl=ts1-lmro10 scaled 2000
+\font\twentyctt=ts1-lmtt10 scaled 2000
+\font\twentycit=ts1-lmri10 scaled 2000
+\font\twentycss=ts1-lmss10 scaled 2000
+%% twentyfour  points fonts %%
+\font\twentyfourcrm=ts1-lmr12 scaled 2000
+\font\twentyfourcbf=ts1-lmbx12 scaled 2000
+\font\twentyfourcsl=ts1-lmro12 scaled 2000
+\font\twentyfourctt=ts1-lmtt12 scaled 2000
+\font\twentyfourcit=ts1-lmri12 scaled 2000
+\font\twentyfourcss=ts1-lmss12 scaled 2000
+%% Text companion symbols TS1 %%
+%% Redefinition of tie-accent
+\def\t#1{{\edef\next{\the\font}\tcfont\accent"1B\next#1}}
+%% TC character
+\def\tcchar#1{{\edef\next{\the\font}\tcfont\char#1\next}}
+%% TC symbols
+\def\arrowl{{\tcchar{"18}}}
+\def\arrowr{{\tcchar{"19}}}
+\def\blank{{\tcchar{"20}}}
+\def\dollar{{\tcchar{"24}}}
+\def\caster{{\tcchar{"2A}}}
+\def\sequals{{\tcchar{"2D}}}
+\def\anglel{{\tcchar{"3C}}}
+\def\angler{{\tcchar{"3E}}}
+\def\mho{{\tcchar{"4D}}}
+\def\bigcircle{{\tcchar{"4F}}}
+\def\Ohm{{\tcchar{"57}}}
+\def\bbracketl{{\tcchar{"5B}}}
+\def\bbracketr{{\tcchar{"5D}}}
+\def\arrowu{{\tcchar{"5E}}}
+\def\arrowd{{\tcchar{"5F}}}
+\def\textstar{{\tcchar{"62}}}
+\def\born{{\tcchar{"63}}}
+\def\died{{\tcchar{"64}}}
+\def\leaf{{\tcchar{"6C}}}
+\def\married{{\tcchar{"6D}}}
+\def\music{{\tcchar{"6E}}}
+\def\dag{{\tcchar{"84}}}%% Redefined
+\def\ddag{{\tcchar{"85}}}%% Redefined
+\def\doublevert{{\tcchar{"86}}}
+\def\perthousand{{\tcchar{"87}}}
+\def\bull{{\tcchar{"88}}}
+\def\centigrade{{\tcchar{"89}}}
+\def\olddollar{{\tcchar{"8A}}}
+\def\oldcent{{\tcchar{"8B}}}
+\def\florin{{\tcchar{"8C}}}
+\def\Colon{{\tcchar{"8D}}}
+\def\won{{\tcchar{"8E}}}
+\def\naira{{\tcchar{"8F}}}
+\def\guarani{{\tcchar{"90}}}
+\def\peso{{\tcchar{"91}}}
+\def\lira{{\tcchar{"92}}}
+\def\recipe{{\tcchar{"93}}}
+\def\interrobang{{\tcchar{"94}}}
+\def\gnaborretni{{\tcchar{"95}}}
+\def\dong{{\tcchar{"96}}}
+\def\TM{{\tcchar{"97}}}
+\def\pertenth{{\tcchar{"98}}}
+\def\npilcrow{{\tcchar{"99}}}
+\def\baht{{\tcchar{"9A}}}
+\def\numero{{\tcchar{"9B}}}
+\def\abzueglich{{\tcchar{"9C}}}
+\def\aestimated{{\tcchar{"9D}}}
+\def\openbull{{\tcchar{"9E}}}
+\def\SM{{\tcchar{"9F}}}
+\def\qbrackl{{\tcchar{"A0}}}
+\def\qbrackr{{\tcchar{"A1}}}
+\def\cent{{\tcchar{"A2}}}
+\def\sterling{{\tcchar{"A3}}}
+\def\currency{{\tcchar{"A4}}}
+\def\yen{{\tcchar{"A5}}}
+\def\brokenvert{{\tcchar{"A6}}}
+\def\S{{\tcchar{"A7}}}%% Redefined
+\def\copyright{{\tcchar{"A9}}}
+\def\feminine{{\tcchar{"AA}}}
+\def\copyleft{{\tcchar{"AB}}}
+\def\lognot{{\tcchar{"AC}}}
+\def\circledP{{\tcchar{"AD}}}
+\def\registered{{\tcchar{"AE}}}
+\def\degree{{\tcchar{"B0}}}
+\def\plusminus{{\tcchar{"B1}}}
+\def\twoup{{\tcchar{"B2}}}
+\def\threeup{{\tcchar{"B3}}}
+\def\micro{{\tcchar{"B5}}}
+\def\P{{\tcchar{"B6}}}%% Redefined
+\def\centereddot{{\tcchar{"B7}}}
+\def\reference{{\tcchar{"B8}}}
+\def\oneup{{\tcchar{"B9}}}
+\def\masculine{{\tcchar{"BA}}}
+\def\root{{\tcchar{"BB}}}
+\def\onequarter{{\tcchar{"BC}}}
+\def\onehalf{{\tcchar{"BD}}}
+\def\threequarters{{\tcchar{"BE}}}
+\def\euro{{\tcchar{"BF}}}
+\def\texttimes{{\tcchar{"D6}}}
+%% End of LMTSone option %%
+\fi
+%% New family sans serif  %%
+\newfam\ssfam
+\textfont\ssfam=\tenss
+%% Initial tenpoint definitions
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \tenrm \let\tcfont=\tencrm}
+\def\it{\fam\itfam\tenit \let\tcfont=\tencit}
+\def\sl{\fam\slfam\tensl \let\tcfont=\tencsl}
+\def\tt{\fam\ttfam\tentt \let\tcfont=\tenctt}
+\def\sf{\fam\ssfam\tenss \let\tcfont=\tencss}
+\def\bf{\fam\bffam\tenbf \let\tcfont=\tencbf}
+\let\tcfont=\tencrm
+\else
+\def\sf{\fam\ssfam\tenss}
+\fi
+%%
+%% Change to tenpoint fonts %%
+\def\tenpoint{
+\textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
+\textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
+\def\mit{\fam1 } \def\oldstyle{\fam1 \teni}
+\textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
+\def\cal{\fam2 }
+\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+\textfont\itfam=\tenit
+\textfont\slfam=\tensl
+\textfont\ttfam=\tentt
+\textfont\ssfam=\tenss
+\textfont\bffam=\tenbf
+\scriptfont\bffam=\sevenbf \scriptscriptfont\bffam=\fivebf
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \tenrm \let\tcfont=\tencrm}
+\def\it{\fam\itfam\tenit \let\tcfont=\tencit}
+\def\sl{\fam\slfam\tensl \let\tcfont=\tencsl}
+\def\tt{\fam\ttfam\tentt \let\tcfont=\tenctt}
+\def\sf{\fam\ssfam\tenss \let\tcfont=\tencss}
+\def\bf{\fam\bffam\tenbf \let\tcfont=\tencbf}
+\else
+\def\rm{\fam0 \tenrm}
+\def\it{\fam\itfam\tenit}
+\def\sl{\fam\slfam\tensl}
+\def\tt{\fam\ttfam\tentt}
+\def\sf{\fam\ssfam\tenss}
+\def\bf{\fam\bffam\tenbf}
+\fi
+\normalbaselineskip=12pt minus 1pt
+\setbox\strutbox=\hbox{\vrule height8.5pt depth3.5pt width0pt}
+\bigsize=8.5pt
+\Bigsize=11.5pt
+\biggsize=14.5pt
+\Biggsize=17.5pt
+\let\sc=\eightrm
+\normalbaselines\rm}
+%%
+%% Change to twelve points fonts %%
+\def\twelvepoint{
+\textfont0=\twelverm \scriptfont0=\eightrm \scriptscriptfont0=\sixrm
+\textfont1=\twelvei \scriptfont1=\eighti \scriptscriptfont1=\sixi
+\def\mit{\fam1 } \def\oldstyle{\fam1 \twelvei}
+\textfont2=\twelvesy \scriptfont2=\eightsy \scriptscriptfont2=\sixsy
+\def\cal{\fam2 }
+\textfont3=\twelveex \scriptfont3=\twelveex \scriptscriptfont3=\twelveex
+\textfont\itfam=\twelveit
+\textfont\slfam=\twelvesl
+\textfont\ttfam=\twelvett
+\textfont\ssfam=\twelvess
+\textfont\bffam=\twelvebf
+\scriptfont\bffam=\eightbf \scriptscriptfont\bffam=\sixbf
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \twelverm \let\tcfont=\twelvecrm}
+\def\it{\fam\itfam\twelveit \let\tcfont=\twelvecit}
+\def\sl{\fam\slfam\twelvesl \let\tcfont=\twelvecsl}
+\def\tt{\fam\ttfam\twelvett \let\tcfont=\twelvectt}
+\def\sf{\fam\ssfam\twelvess \let\tcfont=\twelvecss}
+\def\bf{\fam\bffam\twelvebf \let\tcfont=\twelvecss}
+\else
+\def\rm{\fam0 \twelverm}
+\def\it{\fam\itfam\twelveit}
+\def\sl{\fam\slfam\twelvesl}
+\def\tt{\fam\ttfam\twelvett}
+\def\sf{\fam\ssfam\twelvess}
+\def\bf{\fam\bffam\twelvebf}
+\fi
+\normalbaselineskip=14pt minus 1pt
+\setbox\strutbox=\hbox{\vrule height10pt depth4pt width0pt}
+\bigsize=10.2pt
+\Bigsize=13.8pt
+\biggsize=17.4pt
+\Biggsize=21pt
+\let\sc=\tenrm
+\normalbaselines\rm}
+%%
+%% Change to eight points fonts %%
+\def\eightpoint{
+\textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
+\textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei
+\def\mit{\fam1 } \def\oldstyle{\fam1 \eighti}
+\textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
+\def\cal{\fam2 }
+\textfont3=\eightex \scriptfont3=\eightex \scriptscriptfont3=\eightex
+\textfont\itfam=\eightit
+\textfont\slfam=\eightsl
+\textfont\ttfam=\eighttt
+\textfont\ssfam=\eightss
+\textfont\bffam=\eightbf
+\scriptfont\bffam=\sixbf \scriptscriptfont\bffam=\fivebf
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \eightrm \let\tcfont=\eightcrm}
+\def\it{\fam\itfam\eightit \let\tcfont=\eightcit}
+\def\sl{\fam\slfam\eightsl \let\tcfont=\eightcsl}
+\def\tt{\fam\ttfam\eighttt \let\tcfont=\eightctt}
+\def\sf{\fam\ssfam\eightss \let\tcfont=\eightcss}
+\def\bf{\fam\bffam\eightbf \let\tcfont=\eightcbf}
+\else
+\def\rm{\fam0 \eightrm}
+\def\it{\fam\itfam\eightit}
+\def\sl{\fam\slfam\eightsl}
+\def\tt{\fam\ttfam\eighttt}
+\def\sf{\fam\ssfam\eightss}
+\def\bf{\fam\bffam\eightbf}
+\fi
+\normalbaselineskip=9pt
+\setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}
+\bigsize=6.8pt
+\Bigsize=9.2pt
+\biggsize=11.6pt
+\Biggsize=14pt
+\let\sc=\sixrm
+\normalbaselines\rm}
+%%
+%% Change to fourteen points fonts %%
+\def\fourteenpoint{
+\textfont0=\fourteenrm \scriptfont0=\ninerm \scriptscriptfont0=\sevenrm
+\textfont1=\fourteeni \scriptfont1=\ninei \scriptscriptfont1=\seveni
+\def\mit{\fam1 } \def\oldstyle{\fam1 \fourteeni}
+\textfont2=\fourteensy \scriptfont2=\ninesy \scriptscriptfont2=\sevensy
+\def\cal{\fam2 }
+\textfont3=\fourteenex \scriptfont3=\fourteenex \scriptscriptfont3=\fourteenex
+\textfont\itfam=\fourteenit
+\textfont\slfam=\fourteensl
+\textfont\ttfam=\fourteentt
+\textfont\ssfam=\fourteenss
+\textfont\bffam=\fourteenbf
+\scriptfont\bffam=\ninebf \scriptscriptfont\bffam=\sevenbf
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \fourteenrm \let\tcfont=\fourteencrm}
+\def\it{\fam\itfam\fourteenit \let\tcfont=\fourteencit}
+\def\sl{\fam\slfam\fourteensl \let\tcfont=\fourteencsl}
+\def\tt{\fam\ttfam\fourteentt \let\tcfont=\fourteenctt}
+\def\bf{\fam\bffam\fourteenbf \let\tcfont=\fourteencbf}
+\def\sf{\fam\ssfam\fourteenss \let\tcfont=\fourteencss}
+\else
+\def\rm{\fam0 \fourteenrm}
+\def\it{\fam\itfam\fourteenit}
+\def\sl{\fam\slfam\fourteensl}
+\def\tt{\fam\ttfam\fourteentt}
+\def\bf{\fam\bffam\fourteenbf}
+\def\sf{\fam\ssfam\fourteenss}
+\fi
+\normalbaselineskip=17pt minus 1pt
+\setbox\strutbox=\hbox{\vrule height12pt depth5pt width0pt}
+\bigsize=11.9pt
+\Bigsize=16.1pt
+\biggsize=20.3pt
+\Biggsize=24.5pt
+\let\sc=\twelverm
+\normalbaselines\rm}
+%%
+%% Change to twentypoint fonts %%
+\def\twentypoint{
+\textfont0=\twentyrm \scriptfont0=\fourteenrm \scriptscriptfont0=\tenrm
+\textfont1=\twentyi \scriptfont1=\fourteeni \scriptscriptfont1=\teni
+\def\mit{\fam1 } \def\oldstyle{\fam1 \twentyi}
+\textfont2=\twentysy \scriptfont2=\fourteensy \scriptscriptfont2=\tensy
+\def\cal{\fam2 }
+\textfont3=\twentyex \scriptfont3=\twentyex \scriptscriptfont3=\twentyex
+\textfont\itfam=\twentyit
+\textfont\slfam=\twentysl
+\textfont\ttfam=\twentytt
+\textfont\ssfam=\twentyss
+\textfont\bffam=\twentybf
+\scriptfont\bffam=\fourteenbf \scriptscriptfont\bffam=\tenbf
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \twentyrm \let\tcfont=\twentycrm}
+\def\it{\fam\itfam\twentyit \let\tcfont=\twentycit}
+\def\sl{\fam\slfam\twentysl \let\tcfont=\twentycsl}
+\def\tt{\fam\ttfam\twentytt \let\tcfont=\twentyctt}
+\def\sf{\fam\ssfam\twentyss \let\tcfont=\twentycss}
+\def\bf{\fam\bffam\twentybf \let\tcfont=\twentycbf}
+\else
+\def\rm{\fam0 \twentyrm}
+\def\it{\fam\itfam\twentyit}
+\def\sl{\fam\slfam\twentysl}
+\def\tt{\fam\ttfam\twentytt}
+\def\sf{\fam\ssfam\twentyss}
+\def\bf{\fam\bffam\twentybf}
+\fi
+\normalbaselineskip=24pt minus 2pt
+\setbox\strutbox=\hbox{\vrule height17pt depth7pt width0pt}
+\bigsize=17pt
+\Bigsize=23pt
+\biggsize=29pt
+\Biggsize=35pt
+%\let\sc=\sixteenrm?
+\let\sc=\fourteenrm
+\normalbaselines\rm}
+%%
+%% Change to twentyfour points fonts %%
+\def\twentyfourpoint{
+\textfont0=\twentyfourrm \scriptfont0=\fourteenrm \scriptscriptfont0=\twelverm
+\textfont1=\twentyfouri \scriptfont1=\fourteeni \scriptscriptfont1=\twelvei
+\def\mit{\fam1 } \def\oldstyle{\fam1 \twentyfouri}
+\textfont2=\twentyfoursy \scriptfont2=\fourteensy \scriptscriptfont2=\twelvesy
+\def\cal{\fam2 }
+\textfont3=\twentyfourex \scriptfont3=\twentyfourex \scriptscriptfont3=\twentyfourex
+\textfont\itfam=\twentyfourit
+\textfont\slfam=\twentyfoursl
+\textfont\ttfam=\twentyfourtt
+\textfont\ssfam=\twentyfourss
+\textfont\bffam=\twentyfourbf
+\ifx\ifLMTS\relax%
+\def\rm{\fam0 \twentyfourrm \let\tcfont=\twentyfourcrm}
+\def\it{\fam\itfam\twentyfourit \let\tcfont=\twentyfourcit}
+\def\sl{\fam\itfam\twentyfoursl \let\tcfont=\twentyfourcsl}
+\def\tt{\fam\ttfam\twentyfourtt \let\tcfont=\twentyfourctt}
+\def\sf{\fam\ssfam\twentyfourss \let\tcfont=\twentyfourcss}
+\def\bf{\fam\bffam\twentyfourbf \let\tcfont=\twentyfourcbf}
+\else
+\def\rm{\fam0 \twentyfourrm}
+\def\it{\fam\itfam\twentyfourit}
+\def\sl{\fam\itfam\twentyfoursl}
+\def\tt{\fam\ttfam\twentyfourtt}
+\def\sf{\fam\ssfam\twentyfourss}
+\def\bf{\fam\bffam\twentyfourbf}
+\fi
+\normalbaselineskip=28pt minus 2pt
+\setbox\strutbox=\hbox{\vrule height20pt depth8pt width0pt}
+\bigsize=20.4pt
+\Bigsize=27.6pt
+\biggsize=34.8pt
+\Biggsize=42pt
+\let\sc=\twentyrm
+\normalbaselines\rm}
+%%
+%% double space
+\def\doublespace{
+\normalbaselineskip=24pt minus 1pt
+\setbox\strutbox=\hbox{\vrule height17pt depth 7pt width0pt}
+\normalbaselines}
+%%                                                                                                                                                       
diff --git a/Master/texmf-dist/tpm/fontch.tpm b/Master/texmf-dist/tpm/fontch.tpm
new file mode 100644
index 00000000000..7043a32b993
--- /dev/null
+++ b/Master/texmf-dist/tpm/fontch.tpm
@@ -0,0 +1,25 @@
+<!DOCTYPE rdf:RDF SYSTEM "../../support/tpm.dtd">
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:TPM="http://texlive.dante.de/">
+  <rdf:Description about="http://texlive.dante.de/texlive/Package/fontch.zip">
+    <TPM:Name>fontch</TPM:Name>
+    <TPM:Type>Package</TPM:Type>
+    <TPM:Date>2006/02/16 06:43:00</TPM:Date>
+    <TPM:Version></TPM:Version>
+    <TPM:Creator>karl</TPM:Creator>
+    <TPM:Title>The fontch package.</TPM:Title>
+    <TPM:Description></TPM:Description>
+    <TPM:Author></TPM:Author>
+    <TPM:Size>40175</TPM:Size>
+    <TPM:Build/>
+    <TPM:RunFiles size="31209">
+texmf-dist/tex/plain/fontch/fontch.tex
+texmf-dist/tpm/fontch.tpm
+    </TPM:RunFiles>
+    <TPM:DocFiles size="9830">
+texmf-dist/doc/plain/fontch/README
+texmf-dist/doc/plain/fontch/README.txt
+    </TPM:DocFiles>
+    <TPM:Provides>Package/fontch</TPM:Provides>
+  </rdf:Description>
+</rdf:RDF>
+
diff --git a/Master/texmf/lists/fontch b/Master/texmf/lists/fontch
new file mode 100644
index 00000000000..cccbd8c8fa1
--- /dev/null
+++ b/Master/texmf/lists/fontch
@@ -0,0 +1,7 @@
+texmf-dist/doc/plain/fontch/README
+texmf-dist/doc/plain/fontch/README.txt
+
+texmf-dist/tex/plain/fontch/fontch.tex
+texmf-dist/tpm/fontch.tpm
+
+texmf/lists/fontch
diff --git a/Master/texmf/tpm/collection-plainextra.tpm b/Master/texmf/tpm/collection-plainextra.tpm
index a2006303ceb..cee8ac79f29 100644
--- a/Master/texmf/tpm/collection-plainextra.tpm
+++ b/Master/texmf/tpm/collection-plainextra.tpm
@@ -19,6 +19,7 @@ A collection of add-on packages and macros for plain TeX.
     <TPM:Requires>
       <TPM:Package name="cellular"/>
       <TPM:Package name="colortab"/>
+      <TPM:Package name="fontch"/>
       <TPM:Package name="jsmisc"/>
       <TPM:Package name="newsletr"/>
       <TPM:Package name="pdcmac"/>