%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%% fe-ams.dmp % for amstex version 2.1
 %%  available from ftp e-MATH.ams.com [130.44.1.100]
 %%  part of fe-format-dumper-cm directory
 %%  L. Siebenmann, 6-92
 %%  Documentation in fe-dump.doc

 \input fe-plain.tex %% calls standard Plain

 \catcode`\@=11

 %%%%% Next a proceedure for loading a lean and 
  %% efficient version of AmSTeX suitable  
  %% as a basis for printing a monograph of high quality.
  %% Lines around \input are
  %% present because we liberate two math families (out of 16).
  %% You can comment out these three lines
  %% and restore related lines of pfonts-math.tex
  %%
 \toks0={%
  \def\itfam{15}\def\slfam{15} 
  \input amstex.tex %% standard AmSTeX
  \let\italic\relax \let\slanted\relax
  \let\itfam\undefined \let\slfam\undefined
  }

 %%%%% Next a proceedure for making our economical
  %% font family choice more standard (but wasteful)
  %% when pptsty used
 \toks2={%
 \let\sevenrm\sevenmr
 \let\fiverm\fivemr
 \let\sevenbf\sevenmb
 \let\fivebf\fivemb
 \font\sevenit=cmti7 
 %\font\fiveit=cmti5 
 %
 \csname newfam\endcsname\ttfam
 %\def\tt{\tentt} %% before
 \def\tt{\fam\ttfam\tentt} 
 \textfont\ttfam=\tentt
 %
 \csname newfam\endcsname\itfam
 %\def\it{\tenit} %% before
 \def\it{\fam\itfam\tenit} 
 \textfont\itfam=\tenit
 %
 \csname newfam\endcsname\slfam
 %\def\sl{\tensl} %% before
 \def\sl{\fam\slfam\tensl} 
 \textfont\slfam=\tensl
 %
 \input amstex.tex \input amsppt.sty  
 }

 %%%%%%%% load AmSppt.sty with AmSTeX??
  %%
  \immediate\write16{} 
  \immediate\write16{ 
   ** Hit return to load AmSppt.sty with AmSTeX}
  \immediate\write16{
  --- recommended for portability (only).}
  \immediate\write16{ 
  * Hit  x  (or any letter) and return to skip it.}
 %
  \def\temp{\par}
  \read16 to \YourChoice
  \ifx\YourChoice\temp
   \def\Temp{\the\toks2}
  \else 
   \def\Temp{\the\toks0}
  \fi
 
  \Temp \toks0={}\toks2={}
 
 
 %%%%%%%% load amssym.def ??
 \expandafter\ifx\csname amsppt.sty\endcsname\relax
  \immediate\write16{} 
  \immediate\write16{ 
  ** Hit return to load main AmS math fonts}
  \immediate\write16{ 
  * Hit  x  (or any letter) and return to omit them.}
  \def\temp{\par}
  \read16 to \YourChoice
  \ifx\YourChoice\temp
    \def\Temp{\input amssym.def}%%modify??
  %%{\loadmsam\loadmsbm\loadeufm}% does not work
  \else 
    \let\Temp\relax
  \fi
  \Temp
 \fi
 
 %%%%%%%% load amssym.tex ??
 \ifx\msbfam\undefined
 \else
 \expandafter\ifx\csname amsppt.sty\endcsname\relax
  \immediate\write16{}
  \immediate\write16{ 
  ** Hit return to load AmS symbol names.}
  \immediate\write16{ 
  * Hit  x  (or any letter) and return to omit them.}
  \immediate\write16{ 
  (You can load them later one by one to save capacity.)}
  \def\temp{\par}
  \read16 to \YourChoice
  \ifx\YourChoice\temp
    \def\Temp{\input amssym.tex }
  \else 
    \let\Temp\relax
  \fi
  \Temp
 \fi\fi
 
 \catcode`\@=11
 
 \expandafter\ifx\csname amsppt.sty\endcsname\relax
  \immediate\write16{}
  \immediate\write16{ 
  ** Hit return to load eightpoint font system.}
  \immediate\write16{ 
  * Hit  x  (or any letter) and return to omit.}
  \def\temp{\par}
  \read16 to \YourChoice
  \ifx\YourChoice\temp
    \def\Temp{\input 8-point.ams}
  \else 
    \let\Temp\relax
  \fi
  \Temp
 \fi
 
 \input fe-punct.tex %% punctuation, spacing
 \input gllmts.tex

 \catcode`\@=11

 %% The use of \semicolon@ and its companions here and in
 %% ams-act.tex is explained in a note from June 1990 
 %% by L. Siebenmann concerning active punctuation
 %% posted on ftp rsovax.ups.circe.fr  [130.84.128.100].

 \frpunctactive@ %% Now redefinition for amstex
 \def\frpunctactive@{\def\do##1{\catcode`##1=13}\dofrenchpunct@
   \let\semicolon@;
   \let\colon@:
   \let\exclamationmark@!
   \let\questionmark@?
   }

 \frpunctother@ %% Now redefinition for amstex
 \def\frpunctother@{\def\do##1{\catcode`##1=12}\dofrenchpunct@
   \let\semicolon@;
   \let\colon@:
   \let\exclamationmark@!
   \let\questionmark@?
   }

 \input ams-act.tex 
  %% French-English-German patch for amstex.tex vers 2.1

 \catcode`\@=13

 \Francais

 \dump