% French Torture Test with AmsLaTeX (main style: book)
%                           Copyright GUTenberg-Bernard Gaulle as in french.doc
%
\advance\hoffset by -10pt% marge droite (chez moi) pas totalement imprimee
%
\ifx\documentclass\undefined
\documentstyle[amstex,mylist,twocolumn,mya4,french]{book}%
\else
\documentclass[twocolumn]{book}
\usepackage{amstex,mylist,mya4,french}
\fi
\setlength{\textwidth}{410pt}%% 
\let\Stop\undefined
\ifx\endfrench\switchtolanguage
                 \typeout{ANOMALIE : french actif.}\Stop\fi
\def\LPLAIN{lplain}
\ifx\fmtname\LPLAIN\else\def\LPLAIN{LaTeX2e}\fi
\ifx\fmtname\LPLAIN\else\relax
                 \typeout{**********************************************}
            \typeout{ANOMALIE : format LaTeX (\fmtname) non standard.}
            \typeout{CORRIGER pour avoir \fmtname=\LPLAIN\space ou ancien nom.}
\Stop% Vous devez avoir  dans ltvers.dtx : \def\fmtname{LaTeX2e} !
\fi
\let\iflatex\iftrue
\def\SmsG{\typeout%
    {\string<\string<--------------------------------------------------------}}
\def\FmsG{\typeout%
    {--------------------------------------------------------\string>\string>}}
{\SmsG\obeyspaces
\typeout{(          Test de torture du style \frenchname}
\typeout{(Ce test genere deliberement quelques messages d'erreur. )}
\typeout{(Pour vous permettre de distinguer les messages d'erreur )}
\typeout{(normaux de ceux qui sont anormaux, j'ai encadre, comme  )}
\typeout{(ici, ces messages ; ne vous en preoccupez pas.  --bg    )}
\FmsG}%
\frenchtest
\ifx\endfrench\switchtolanguage\else
                 \typeout{ANOMALIE : french inactif.}\Stop\fi
\end{document}
%%
%%      checksum        = "58255 42 137 1681"
%%