DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T l

⟦c392b81e0⟧ TextFile

    Length: 29928 (0x74e8)
    Types: TextFile
    Names: »lfonts.new«

Derivation

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦e01e283ed⟧ »amstex/amslatex.tar.Z« 
        └─⟦d6381fb14⟧ 
            └─⟦this⟧ »amslatex/fontsel/lfonts.new« 

TextFile

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% LFONTS.NEW						    July 1990      %
%                                                                          %
% This file is part of the AMS-LaTeX Version 1.0 distribution              %
%   American Mathematical Society, Technical Support Group,                %
%   P. O. Box 6248, Providence, RI 02940                                   %
%   800-321-4AMS (321-4267) or 401-455-4080                                %
%   Internet: Tech-Support@Math.AMS.com                                    %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% This is file `lfonts.new' generated
%% on <1990/7/1> with the docstrip utility (v1.1k).
%%
%% The original source files were:
%%
%% fam.doc
%% tracefnt.doc
%% setsize.doc
%% latint.doc
%% lfonts.doc
%%
%% Copyright (C) 1989,1990 by Frank Mittelbach, Rainer Schoepf.
%% All rights reserved.
%%
%% IMPORTANT NOTICE:
%%
%% You are not allowed to change this file. You may however copy this file
%% to a file with a different name and then change the copy.
%%
%% You are allowed to distribute this file under the condition that it is
%% distributed together with all files mentioned in readme.mz3. If you
%% receive only some of these files from someone, complain!
%%
%% You are NOT ALLOWED to distribute this file alone. You are NOT ALLOWED
%% to take money for the distribution or use of either this file or a
%% changed version, except for a nominal charge for copying etc.
%%
%% Error Reports in case of UNCHANGED versions to
%%
%% F. Mittelbach
%% Eichenweg 29
%% D-6500 Mainz 1
%% Federal Republic of Germany
%% Bitnet: <PZF5HZ@DRUEDS2>
%%
%% or:
%% R. Sch\"opf
%% Inst. f. Theor. Physik
%% der Universit\"at Heidelberg
%% Philosophenweg 16
%% D-6900 Heidelberg
%% Federal Republic of Germany
%% Bitnet: <BK4@DHDURZ1>
%%
%%
\def\fileversion{v1.2l}
\def\filedate{90/06/30}
\def\docdate {90/01/28}

%% \CheckSum{520}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
\immediate\write\sixt@@n{File: `fam'
 \space\space\space\space\space\space\space\space
 \space       \fileversion \space <\filedate>  (FMi and RmS)}
\immediate\write\sixt@@n{English Documentation
 \space\space\space\space\space    <\docdate>  (FMi and RmS)}
\def\@spaces{\space\space\space\space}
\def\@gobble#1{}
\def\@empty{}
\def\@height{height}
\def\@depth{depth}
\def\@width{width}
\def\@nomath#1{\relax\ifmmode \font@warning{Don't use \string#1 in
                                           math mode}\fi}
\def\no@alphabet@error#1#2{\relax \ifmmode
    \errhelp\no@alphabet@help
    \errmessage{Math alphabet identifier \string#2 is undefined
                in math version `#1'.} \fi}
\newhelp\no@alphabet@help
   {Your requested math alphabet is undefined in the current
    math version.^^JCheck the spelling or use the
    \string\addtoversion\space command.}
\def\new@mathgroup{\alloc@8\mathgroup\chardef\sixt@@n}
\let\mathgroup\fam
\let\newfam\new@mathgroup
\def\new@fontshape#1#2#3#4#5{\expandafter
     \edef\csname#1/#2/#3\endcsname{\expandafter\noexpand
                                 \csname #4\endcsname}}
\def\subst@fontshape#1#2#3#4#5#6{\expandafter
     \def\csname#1/#2/#3\endcsname{%
       \font@warning{Font/shape `#1/#2/#3' not available}%
       \font@warning{Substituting `#4/#5/#6' instead}
       \global\expandafter\let
         \csname#1/#2/#3\expandafter\endcsname
         \csname#4/#5/#6\endcsname}}
\def\extra@def#1#2#3{%
     \def\@tempa##1{#2}%
     \ifx \@tempa\@gobble
       \expandafter\let\csname +#1\endcsname\@gobble
     \else \expandafter\def\csname +#1\endcsname##1{#2}\fi
     \def\@tempa{#3}%
     \ifx \@tempa\@empty
       \expandafter\def\csname =#1\endcsname{\default@mextra}%
     \else \expandafter\def\csname =#1\endcsname{\default@mextra#3}\fi
}
\let\default@mextra\@empty
\def\preload@sizes#1#2#3#4{{
    \def\next##1,{%
        \if>##1>%
          \let\next\relax
        \else
          \xdef\font@name{\csname#1/#2/#3/##1\endcsname}%
          \pickup@font
          \global\expandafter\let\font@name\relax
        \fi
        \next}%
     \next#4,,}}
\newif\ifdefine@mathfonts \define@mathfontstrue
\def\define@mathsizes#1#2#3{\expandafter \def
    \csname S@#1\endcsname{\gdef\sf@size{#2}\gdef\ssf@size{#3}%
                           \define@mathfontstrue}}
\def\define@nomathsize#1{\expandafter \let
    \csname S@#1\endcsname \define@mathfontsfalse}
\def\family#1{\edef\f@family{#1}}
\def\series#1{\edef\f@series{#1}}
\def\shape#1{\edef\f@shape{#1}}
\def\size#1#2{%
    \edef\f@size{#1}%
    \edef\setnew@baselineskip{\baselineskip #2\relax}%
    \edef\lcl@currsize{#1#2}}
\def\mathversion#1{\@nomath\mathversion
          \expandafter\ifx\csname mv@#1\endcsname\relax
          \font@warning{The requested version `#1' is unknown}\else
          \edef\math@version{#1}\glb@settings\aftergroup\glb@settings
          \fi}
\def\pickup@font{%
    \expandafter \ifx \font@name \relax
       \define@newfont
    \fi}
{\catcode`\/=12
\gdef\split@name#1/#2/#3/#4\@nil{\def\f@family{#1}%
                                    \def\f@series{#2}%
                                    \def\f@shape{#3}%
                                    \def\f@size{#4}}}
\def\define@newfont{%
  \begingroup
    \escapechar\m@ne
    \expandafter\expandafter\expandafter
       \split@name\expandafter\string\font@name\@nil
    \expandafter\ifx
        \csname\f@family/\f@series/\f@shape\endcsname \relax
      \wrong@fontshape\else
      \csname\f@family/\f@series/\f@shape\endcsname
      \extract@font\fi
  \endgroup}
\def\wrong@fontshape{%
    \edef\@tempa{\csname\f@family/\f@series/\f@shape\endcsname}%
    \font@warning{Font/shape `\@tempa' undefined}%
    \let\f@shape\default@shape
    \expandafter\ifx\csname\f@family/\f@series/\f@shape\endcsname\relax
       \let\f@series\default@series
        \expandafter
          \ifx\csname\f@family/\f@series/\f@shape\endcsname\relax
           \let\f@family\default@family
        \fi \fi
    \font@warning{Using `\f@family/\f@series/\f@shape' instead}%
    \global\expandafter\expandafter\expandafter\let\expandafter\@tempa
           \csname\f@family/\f@series/\f@shape\endcsname
    \xdef\font@name{%
      \csname\f@family/\f@series/\f@shape/\f@size\endcsname}%
    \pickup@font}
\def\strip@prefix#1>{}
\newhelp\nofont@help
        {You requested a family/series/shape/size combination that is
         totally^^Junknown. \space
         There are two cases in which this error can occur:^^J\space
         \space 1) You used the \string\size\space macro to select
                   a size that is not available.^^J\space
         \space 2) If you did not do that, go to your local `wizard'
                   and^^J \@spaces complain fiercely that the font
                   selection tables are corrupted!^^J}
\def\addstuffto@version#1#2{%
    \ifx#1\undefined
           \toks@{}%
         \else
           \toks@\expandafter{#1}%
         \fi
    \xdef#1{%
            \the\toks@
             #2}%
    \gdef\glb@currsize{}}
\def\define@mathalphabet#1#2#3#4#5#6{%
    \def\@tempa{#6}%
    \addstuffto@version#1{%
             \gdef\noexpand#2%
             \ifx\@tempa\@empty
                {\noexpand\no@alphabet@error
                 \noexpand\math@version
                 \noexpand#2}%
             \else
                {\noexpand\select@group
                 \noexpand#2#3%
                 \expandafter\noexpand\csname =#4\endcsname
                 \expandafter\noexpand\csname #4/#5/#6\endcsname}%
             \fi}}
\def\define@mathgroup#1#2#3#4#5{%
         \addstuffto@version#1{%\the\toks@ %obsolete FMi
             \noexpand\getanddefine@fonts#2%
             \expandafter\noexpand\csname #3/#4/#5\endcsname}}
\def\select@group#1#2#3#4{\relax\ifmmode
  \begingroup
    \let\math@fonts\@empty  \escapechar\m@ne
    \getanddefine@fonts#2#4%
    \globaldefs\@ne  \math@fonts
  \endgroup
  \gdef#1{\use@mathgroup#3{#2}}%
\expandafter #1\fi}
\let\math@bgroup\begingroup
\def\math@egroup#1{#1\endgroup}
\def\glb@settings{\begingroup
    \let\math@fonts\@empty
    \ifmath@fonts
     \csname S@\f@size\endcsname
      \ifdefine@mathfonts
        \escapechar\m@ne
        \csname mv@\math@version \endcsname \fi
    \fi
    \globaldefs\@ne
    \math@fonts
    \let \glb@currsize \lcl@currsize
  \endgroup}
\newif\ifmath@fonts
\math@fontstrue
\def\default@fontshape{\family\default@family
  \series\default@series\shape\default@shape}
\def\showhyphens#1{\setbox0\vbox{\parfillskip\z@skip\hsize\maxdimen
  \default@fontshape\selectfont
  \pretolerance\m@ne\tolerance\m@ne\hbadness\z@\showboxdepth\z@\ #1}}
\def\addto@hook#1#2{#1\expandafter{\the#1#2}}
\ifx\inputlineno\undefined
  \let\on@line\@empty
\else
  \ifnum\inputlineno=\m@ne
    \let\on@line\@empty
  \else
    \def\on@line{ on input line \the\inputlineno}
  \fi
\fi

\def\fileversion{v1.0p}
\def\filedate{90/06/30}
\def\docdate {90/04/05}

%% \CheckSum{288}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%%
 \immediate\write\sixt@@n{File: `tracefnt' \@spaces
 \fileversion\space <\filedate>  (FMi and RmS)}
\immediate\write\sixt@@n{English Documentation
 \@spaces\space  <\docdate>  (FMi and RmS)}
\def\extract@font{%
    \def\@tempa{\def\extract@fontinfo####1}%
    \edef\@tempb{<\expandafter\strip@prefix\meaning\f@size>}%
    \expandafter\@tempa\@tempb##2##3<##4\@nil{%
      \global\expandafter\font \font@name
           \ifcase0##2##3\relax\or
                   ##3
                    \font@warning{Font/shape
                              `\f@family/\f@series/\f@shape'
                              in size \@tempb\space  not available}%
                    \font@warning{Using external font `##3'
                                    instead}\else
                  \default@errfont \errhelp\nofont@help
                         \errmessage{Font \expandafter
                                    \string\font@name\space
                                    not found}%
               \fi
              }%
    \edef\font@info{\expandafter\expandafter\expandafter\string
        \csname \f@family/\f@series/\f@shape \endcsname\@tempb}%
    \expandafter\extract@fontinfo\font@info 3<\@nil
    \csname +\f@family \expandafter
       \endcsname \font@name \relax}

\def\selectfont{%
    \xdef\font@name{%
      \csname\f@family/\f@series/\f@shape/\f@size\endcsname}%
    \pickup@font
    \font@name
    \ifx \glb@currsize \lcl@currsize
     \else
    \setnew@baselineskip
    \baselineskip\baselinestretch\baselineskip
    \setbox\strutbox\hbox{\vrule\@height.7\baselineskip
        \@depth.3\baselineskip \@width\z@}%
    \normalbaselineskip\baselineskip
     \glb@settings \the\every@size
       \aftergroup\glb@settings \fi
    }
\def\baselinestretch{1}
\newtoks\every@size
\every@size={}
\def\use@mathgroup#1#2{\relax\ifmmode
     \math@bgroup
         #1\mathgroup#2\relax
     \expandafter\math@egroup\fi}%
\def\getanddefine@fonts#1#2{%
  \xdef\font@name{\csname \string#2/\f@size\endcsname}%
  \pickup@font \let\textfont@name\font@name
  \xdef\font@name{\csname \string#2/\sf@size\endcsname}%
  \pickup@font \let\scriptfont@name\font@name
  \xdef\font@name{\csname \string#2/\ssf@size\endcsname}%
  \pickup@font
  \edef\math@fonts{\math@fonts
               \textfont#1\textfont@name
               \scriptfont#1\scriptfont@name
               \scriptscriptfont#1\font@name}%
    }
\def\tracingfonts{\font@warning{\string\tracingfonts\space
                  command not provided.^^J
                  Use `tracefnt' option in \string\documentstyle\space
                  command.^^J Command found:}%
                  \count@}
\def\font@warning#1{%
          \immediate\write\sixt@@n{Warning: #1 \on@line.}%
          }

\def\fileversion{v1.1c}
\def\filedate{90/06/06}
\def\docdate {90/06/06}

%% \CheckSum{53}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%% File `setsize.doc'.
%% Copyright (C) 1989 Frank Mittelbach and Rainer Sch\"opf,
%% all rights reserved.
\immediate\write\sixt@@n{File: `setsize' \space
 \@spaces \fileversion \space <\filedate> (FMi and RmS)}
\immediate\write\sixt@@n{English Documentation
      \space \@spaces <\docdate> (FMi and RmS)}
 \def\normalsize{\@normalsize}
 \def\@vpt{5}
 \def\@vipt{6}
 \def\@viipt{7}
 \def\@viiipt{8}
 \def\@ixpt{9}
 \def\@xpt{10}
 \def\@xipt{11}
 \def\@xiipt{12}
 \def\@xivpt{14}
 \def\@xviipt{17}
 \def\@xxpt{20}
 \def\@xxvpt{25}
 \define@mathsizes{5}{5}{5}
 \define@mathsizes{6}{5}{5}
 \define@mathsizes{7}{6}{5}
 \define@mathsizes{8}{6}{5}
 \define@mathsizes{9}{6}{5}
 \define@mathsizes{10}{7}{5}
 \define@mathsizes{11}{7}{5}
 \define@mathsizes{12}{8}{6}
\define@mathsizes{14}{10}{7}
\define@mathsizes{17}{12}{10}
\define@mathsizes{20}{14}{12}
 \define@mathsizes{25}{20}{17}
\def\fileversion{v1.1h}
\def\filedate{90/06/26}
\def\docdate {90/06/26}

%% \CheckSum{304}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
\immediate\write\sixt@@n{File: `latint' \space\space
 \@spaces\fileversion\space <\filedate>  (FMi and RmS)}
\immediate\write\sixt@@n{English Documentation
 \@spaces\space <\docdate>  (FMi and RmS)}
\newif\if@tempswa
\def\in@#1#2{%
 \def\in@@##1#1##2##3\in@@{%
  \ifx\in@##2\in@false\else\in@true\fi}%
 \in@@#2#1\in@\in@@}
\newif\ifin@
\let\version@list=\@empty
\def\@gobblefour#1#2#3#4{}
\def\new@mathversion#1{%
  \expandafter\in@\expandafter#1\expandafter{\version@list}%
  \ifin@
    \@latexerr{Math version
               `\expandafter\@gobblefour\string#1'
               already defined}\@eha
  \else
     \def\@tempa{\noexpand\@tempa\noexpand}%
     \edef\version@list{\version@list\@tempa#1}%
     \def\@tempc{\noexpand\@tempc\noexpand}%
     \let\@tempe\relax
     \def\@tempb##1##2##3{%
          \edef##1{\expandafter\remove@nil##1%
                   \@tempc
                   #1%
                   \@tempe
                   \noexpand\@nil}}%
     \alpha@list
  \fi}
\def\remove@nil#1#2\@nil{%
  \noexpand#1\noexpand#2}
\def\newmathalphabet{%
  \@ifstar{\newmathalphabet@@@}%
          {\newmathalphabet@@}}
\def\newmathalphabet@@#1{%
  \newmathalphabet@@@#1{}{}{}}
\def\newmathalphabet@@@#1#2#3#4{%
 \edef\group@number{\expandafter
  \noexpand\csname\expandafter\@gobble
  \string #1@group\endcsname}%
   \expandafter\ifx\group@number\relax
     \@tempswafalse
     \ifx\undefined#1\else\@tempswatrue\fi
   \else
     \@tempswatrue
   \fi
   \if@tempswa
     \@latexerr{Math alphabet
                `\string#1' already defined}\@eha
   \else
   \expandafter\new@mathgroup\group@number
   \new@internalmathalphabet{#1}%
      {\group@number}{#2}{#3}{#4}%
  \fi}
\let\alpha@list\@empty
\let\used@alpha@list\@empty
\def\new@internalmathalphabet#1#2#3#4#5{%
    \def\@tempb{\noexpand\@tempb\noexpand}%
    \edef\alpha@list{\alpha@list\@tempb#1%
                              {#2}%
                              {{#3}{#4}{#5}}}%
    \let\@tempe\relax
    \let\@tempc\relax
    \def\@tempa##1{\@tempc
                   \noexpand##1%
                   \@tempe}%
    \edef#1{\noexpand\set@alpha
            \noexpand#1%
            \version@list
            \noexpand\@nil}%
}
\def\addtoversion#1{%
  \expandafter\addtoversion@
    \csname mv@#1\endcsname}
\def\addtoversion@#1#2#3#4#5{%
  \expandafter\in@\expandafter#1\expandafter{\version@list}%
  \ifin@
    \expandafter\in@\expandafter#2\expandafter{\alpha@list}%
    \ifin@
      \def\next##1#1##2##3\@nil{%
        \ifx##2\@tempe
          \def#2{##1#1{{#3}{#4}{#5}}##3\@nil}%
        \else
          \@latexerr{%
             Math alphabet identifier `\string#2' already
             defined for math version `\expandafter
             \@gobblefour\string#1'}%
             {Maybe you typed the same command twice?}%
        \fi}%
     \expandafter\next#2%
    \else
      \expandafter\in@\expandafter#2\expandafter{\used@alpha@list}%
      \ifin@
        \@latexerr{%
           Math alphabet identifier `\string#2' already used
           to produce text}%
           {A math alphabet identifier can only be added to a
            math version^^Jbefore its first use in math.^^J%
            Remedy: Move this \string\addtoversion
            \space declaration up.}%
      \else
        \@latexerr{%
           Math alphabet identifier `\string#2' not defined}%
           {Use \string\newmathalphabet\space to define it.}%
      \fi
    \fi
  \else
    \@latexerr{%
       Math version `\expandafter\@gobblefour\string#1' is not
       defined}{You probably mispelled the name of the math
       version.^^JOr you have to specify another document
       style option^^Jin the \string\documentstyle\space
       command.}%
  \fi
}
\def\process@table{%
    \def\@tempc{\noexpand\@tempc\noexpand}%
    \def\@tempb##1##2##3{\def\@tempe{{##3}}%
                         \edef##1{##1}}%
    \let\set@alpha\@gobble
    \let\@nil\@empty
    \alpha@list
    \def\@tempb##1##2##3{%
      \def\@tempc####1####2{%
        \define@mathalphabet####1##1##2####2}%
      ##1%
      \let ##1\relax}%
    \alpha@list
    \let\used@alpha@list\@empty}
\def\set@alpha#1#2\@nil{%
   \relax\ifmmode
   \expandafter\gdef\expandafter\used@alpha@list\expandafter
     {\used@alpha@list#1}%
   \def\next##1\@tempb#1##2##3##4\@nil{%
       \def\@tempd{##2}%
       \def\@tempe{{##3}}%
       \gdef\alpha@list{##1##4}}%
   \expandafter\next\alpha@list\@nil
   \begingroup
    \def\@tempc{\noexpand\@tempc\noexpand}%
    \let\set@alpha\@gobble
    \let\@nil\@empty
    \xdef#1{#1}%
   \endgroup
   \def\@tempc##1##2{%
          \define@mathalphabet##1#1\@tempd##2}%
   #1%
   \glb@settings
   \expandafter #1\fi}
\def\fileversion{v1.1k}
\def\filedate{90/06/23}
\def\docdate {90/02/17}

%% \CheckSum{743}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%% File `lfonts.doc'.
%% Copyright (C) 1989 Frank Mittelbach and Rainer Sch\"opf,
%% all rights reserved.
\immediate\write\sixt@@n{File: `lfonts' \space\space
 \@spaces\fileversion\space <\filedate> (FMi and RmS)}
\immediate\write\sixt@@n{English Documentation
             \@spaces\space  <\docdate> (FMi and RmS)}
\input fontdef.tex
\input preload.tex
\let\p@family=\family
\def\family{\protect\p@family}
\let\p@series=\series
\def\series{\protect\p@series}
\let\p@shape=\shape
\def\shape{\protect\p@shape}
\let\p@size=\size
\def\size{\protect\p@size}
\let\p@selectfont=\selectfont
\def\selectfont{\protect\p@selectfont}
\let\p@mathversion=\mathversion
\def\mathversion{\protect\p@mathversion}
\new@mathversion\mv@normal
\new@mathversion\mv@bold
\define@mathgroup\mv@normal{0}
                 {cmr}{m}{n}
\define@mathgroup\mv@normal{1}
                 {cmm}{m}{it}
\define@mathgroup\mv@normal{2}
                 {cmsy}{m}{n}

\define@mathgroup\mv@bold{0}
                 {cmr}{bx}{n}
\define@mathgroup\mv@bold{1}
                 {cmm}{b}{it}
\define@mathgroup\mv@bold{2}
                 {cmsy}{b}{n}
\textfont 3 = \csname cmex/m/n/10\endcsname
\scriptfont 3 = \csname cmex/m/n/10\endcsname
\scriptscriptfont 3 = \csname cmex/m/n/10\endcsname
\expandafter\let\expandafter\tenex \the\textfont 3
{\catcode`\= 11
\gdef\mathrm{\use@mathgroup \=cmr \z@}
\gdef\mit{\use@mathgroup \=cmm \@ne}
\gdef\cal{\use@mathgroup \=cmsy \tw@}
}
\def\rm{\protect\prm}
\def\sf{\protect\psf}
\def\tt{\protect\ptt}
\def\bf{\protect\pbf}
\def\sl{\protect\psl}
\def\sc{\protect\psc}
\def\it{\protect\pit}
\def\rmdefault{cmr}
\def\sfdefault{cmss}
\def\ttdefault{cmtt}
\def\bfdefault{bx}
\def\itdefault{it}
\def\sldefault{sl}
\def\scdefault{sc}
\def\mediumseriesdefault{m}
\def\normalshapedefault{n}
\def\mediumseries{\protect\pmediumseries}
\def\pmediumseries{\series\mediumseriesdefault\selectfont}
\def\normalshape{\protect\pnormalshape}
\def\pnormalshape{\shape\normalshapedefault\selectfont}
\def\boldmath{\@nomath\boldmath
              \mathversion{bold}}
\def\unboldmath{\@nomath\unboldmath
                \mathversion{normal}}
\def\math@version{normal}
\def\hexnumber@#1{\ifcase#1 \z@
 \or \@ne \or \tw@ \or \thr@@
 \or 4\or 5\or 6\or 7\or 8\or
 9\or A\or B\or C\or D\or E\or F\fi}
\def\operator@font{\mathgroup\z@}
\def\log{\mathop{\operator@font log}\nolimits}
\def\lg{\mathop{\operator@font lg}\nolimits}
\def\ln{\mathop{\operator@font ln}\nolimits}
\def\lim{\mathop{\operator@font lim}}
\def\limsup{\mathop{\operator@font lim\,sup}}
\def\liminf{\mathop{\operator@font lim\,inf}}
\def\sin{\mathop{\operator@font sin}\nolimits}
\def\arcsin{\mathop{\operator@font arcsin}\nolimits}
\def\sinh{\mathop{\operator@font sinh}\nolimits}
\def\cos{\mathop{\operator@font cos}\nolimits}
\def\arccos{\mathop{\operator@font arccos}\nolimits}
\def\cosh{\mathop{\operator@font cosh}\nolimits}
\def\tan{\mathop{\operator@font tan}\nolimits}
\def\arctan{\mathop{\operator@font arctan}\nolimits}
\def\tanh{\mathop{\operator@font tanh}\nolimits}
\def\cot{\mathop{\operator@font cot}\nolimits}
\def\coth{\mathop{\operator@font coth}\nolimits}
\def\sec{\mathop{\operator@font sec}\nolimits}
\def\csc{\mathop{\operator@font csc}\nolimits}
\def\max{\mathop{\operator@font max}}
\def\min{\mathop{\operator@font min}}
\def\sup{\mathop{\operator@font sup}}
\def\inf{\mathop{\operator@font inf}}
\def\arg{\mathop{\operator@font arg}\nolimits}
\def\ker{\mathop{\operator@font ker}\nolimits}
\def\dim{\mathop{\operator@font dim}\nolimits}
\def\hom{\mathop{\operator@font hom}\nolimits}
\def\det{\mathop{\operator@font det}}
\def\exp{\mathop{\operator@font exp}\nolimits}
\def\Pr{\mathop{\operator@font Pr}}
\def\gcd{\mathop{\operator@font gcd}}
\def\deg{\mathop{\operator@font deg}\nolimits}

\def\bmod{\mskip-\medmuskip\mkern5mu
  \mathbin{\operator@font mod}\penalty900\mkern5mu\mskip-\medmuskip}
\def\pmod#1{\allowbreak\mkern18mu({\operator@font mod}\,\,#1)}
\def\${\protect\pdollar}
\def\pdollar{\text{\ifdim \fontdimen\@ne\font >\z@
              \sl \else \normalshape \fi\char`\$}}
\def\pounds{\protect\ppounds}
\def\ppounds{\text{\ifdim \fontdimen\@ne\font >\z@
    \it \else \shape u\selectfont \fi \char'44}}
\def\text{\mbox}

\def\copyright{\protect\pcopyright}
\def\pcopyright{{\ooalign{\hfil
     \raise.07ex\hbox{\mediumseries\normalshape c}\hfil\crcr
     \mathhexbox20D}}}
\input xxxlfont.sty
\def\xpt{{\def\do{\noexpand\do\noexpand}%
   \xdef\@preamblecmds{\@preamblecmds
              \do\addtoversion
              \do\addtoversion@
              \do\addstuffto@version
              \do\define@mathalphabet
              \do\define@mathgroup
              \do\define@mathsizes
              \do\define@nomathsize
              \do\extra@def
              \do\hexnumber@
              \do\new@fontshape
              \do\new@internalmathalphabet
              \do\new@mathgroup
              \do\new@mathversion
              \do\newmathalphabet
              \do\newmathalphabet@@
              \do\newmathalphabet@@@
              \do\preload@sizes
              \do\process@table
              \do\remove@nil
              \do\set@alpha
              \do\subst@fontshape
              }}%
   \def\@tabclassz{\ifcase \@lastchclass
          \@acolampacol \or \@ampacol \or
          \or \or \@addamp \or
          \@acolampacol \or
          \@firstampfalse \@acol \fi
    \edef\@preamble{\@preamble{%
      \ifcase \@chnum
        \hfil\ignorespaces\@sharp\unskip\hfil
       \or \ignorespaces\@sharp\unskip\hfil
       \or \hfil\hskip\z@
          \ignorespaces\@sharp\unskip\fi}}}%
  \def\@ishortstack##1{\halign{\mb@l {####}%
           \unskip\mb@r\cr ##1\crcr}\egroup}%
  \def\cases##1{\left\{\,\vcenter{%
      \normalbaselines\m@th\ialign{%
         $####\hfil$&\quad{####}\hfil\crcr
         ##1\crcr}}\right.}%
\def\document{\endgroup
  \@colht\textheight  \@colroom\textheight \vsize\textheight
   \columnwidth\textwidth \@clubpenalty\clubpenalty
   \if@twocolumn \advance\columnwidth -\columnsep
      \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue
   \fi
  \hsize\columnwidth \linewidth\hsize
  \begingroup\@floatplacement\@dblfloatplacement
   \makeatletter\let\@writefile\@gobbletwo
   \@input{\jobname.aux}\endgroup
  \if@filesw \immediate\openout\@mainaux=\jobname.aux
    \immediate\write\@mainaux{\relax}\fi
  \process@table
  \def\do####1{\let ####1\@notprerr}%
  \@preamblecmds
  \let\do\noexpand
  \@normalsize\everypar{}}%
  \def\@begintheorem##1##2{\trivlist
    \item[\hskip \labelsep{\bf ##1\ ##2}]\it}%
  \def\@opargbegintheorem##1##2##3{\trivlist
      \item[\hskip \labelsep{\bf ##1\ ##2\ (##3)}]\it}%
  \def\@outputpage{\begingroup %\catcode`\ =10
     \let\-\@dischyph \let\'\@acci \let\`\@accii \let\=\@acciii
    \if@specialpage
     \global\@specialpagefalse
          \csname ps@\@specialstyle\endcsname\fi
     \if@twoside
       \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
            \let\@themargin\oddsidemargin
          \else \let\@thehead\@evenhead
          \let\@thefoot\@evenfoot \let\@themargin\evensidemargin
     \fi\fi
     \shipout\vbox{%
           \rm \mediumseries \normalshape
           \normalsize
           \baselineskip\z@ \lineskip\z@
           \let\par\@@par %% 15 Sep 87
           \vskip \topmargin \moveright\@themargin
           \vbox{\setbox\@tempboxa
                   \vbox to\headheight{\vfil \hbox to\textwidth
                                       {\let\label\@gobble \let\index\@gobble
                                         \@thehead}}%% 22 Feb 87
                 \dp\@tempboxa\z@
                 \box\@tempboxa
                 \vskip \headsep
                 \box\@outputbox
                 \baselineskip\footskip
                 \hbox to\textwidth{\let\label\@gobble
                           \let\index\@gobble  %% 22 Feb 87
                           \@thefoot}}}\global\@colht\textheight
           \endgroup\stepcounter{page}\let\firstmark\botmark}%
        \def\xpt{\size{10}{12pt}\selectfont}}

\endinput
%%
%% End of file `lfonts.new'.