%%
%% This is file `code850.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% codepage.dtx  (with options: `codepage850')
%%     This package provides some commands to handle different code pages in the same
%%     document. It works with TeX and LaTeX, but his documentation should be produced
%%     with the docstrip package.
%% 
%%     Disclaimer:
%%        This package is provided 'as is' without any warranty.
%% 
%%     Author:
%%        Alain Aubord
%%        Geneva
%%        Switzerland
%% 
%%     E-mail: aubord@uni2a.unige.ch
\def\fileversion{1.2}%
\def\filedate{2 January 1995}%
\def\docdate{2 January 1995}%
\def\CheckSum{4615}%
\chardef\atcatcode=\catcode`\@
\catcode`\@=11\relax
   {%
      \catcode`\Y=\active
      \gdef Y{\string Y}%
   }%
\begingroup
\input initcar %
\ifcase\CurrentEncoding
   \input shapecm %
\or
   \input shapedc %
\fi
\Ccedilla{^^80}{"80}{"87}%
\udieresis{^^81}{"9A}{"81}%
\eacute{^^82}{"90}{"82}%
\acircumflex{^^83}{"B6}{"83}%
\adieresis{^^84}{"8E}{"84}%
\agrave{^^85}{"B7}{"85}%
\aring{^^86}{"8F}{"86}%
\ccedilla{^^87}{"80}{"87}%
\ecircumflex{^^88}{"D2}{"88}%
\edieresis{^^89}{"D3}{"89}%
\egrave{^^8a}{"D4}{"8A}%
\idieresis{^^8b}{"D8}{"8B}%
\icircumflex{^^8c}{"D7}{"8C}%
\igrave{^^8d}{"DE}{"8D}%
\Adieresis{^^8e}{"8E}{"84}%
\Aring{^^8f}{"8F}{"86}%
\Eacute{^^90}{"90}{"82}%
\ae{^^91}{"92}{"91}%
\AE{^^92}{"92}{"91}%
\ocircumflex{^^93}{"E2}{"93}%
\odieresis{^^94}{"99}{"94}%
\ograve{^^95}{"E3}{"95}%
\ucircumflex{^^96}{"EA}{"96}%
\ugrave{^^97}{"EB}{"97}%
\ydieresis{^^98}{"59}{"98}%
\Odieresis{^^99}{"99}{"94}%
\Udieresis{^^9a}{"9A}{"81}%
\oslash{^^9b}{"9D}{"9B}%
\pounds{^^9c}{"9C}{"9C}%
\Oslash{^^9d}{"9D}{"9B}%
\times{^^9e}{"9E}{"9E}%
\florin{^^9f}{"9F}{"9F}%
\aacute{^^a0}{"B5}{"A0}%
\iacute{^^a1}{"D6}{"A1}%
\oacute{^^a2}{"E0}{"A2}%
\uacute{^^a3}{"E9}{"A3}%
\ntilde{^^a4}{"A5}{"A4}%
\Ntilde{^^a5}{"A5}{"A4}%
\ordfeminine{^^a6}{"A6}{"A6}%
\ordmasculine{^^a7}{"A7}{"A7}%
\questiondown{^^a8}{"A8}{"A8}%
\register{^^a9}{"A9}{"A9}%
\neg{^^aa}{"AA}{"AA}%
\OneHalf{^^ab}{"AB}{"AB}%
\OneQuarter{^^ac}{"AC}{"AC}%
\exclamdown{^^ad}{"AD}{"AD}%
\guilletmotleft{^^ae}{"AE}{"AE}%
\guillemeotright{^^af}{"AF}{"AF}%
\Aacute{^^b5}{"B5}{"A0}%
\Acircumflex{^^b6}{"B6}{"83}%
\Agrave{^^b7}{"B7}{"85}%
\copyright{^^b8}{"B8}{"B8}%
\cent{^^bd}{"BD}{"BD}%
\yen{^^be}{"BE}{"BE}%
\atilde{^^c6}{"C7}{"C6}%
\Atilde{^^c7}{"C7}{"C6}%
\currency{^^cf}{"CF}{"CF}%
\dBar{^^d0}{"D1}{"D0}%
\DBar{^^d1}{"D1}{"D0}%
\Ecircumflex{^^d2}{"D2}{"88}%
\Edieresis{^^d3}{"D3}{"89}%
\Egrave{^^d4}{"D4}{"8A}%
\powerone{^^d5}{"D5}{"D5}%
\Iacute{^^d6}{"D6}{"A1}%
\Icircumflex{^^d7}{"D7}{"8C}%
\Idieresis{^^d8}{"D8}{"8B}%
\splitbar{^^dd}{"DD}{"DD}%
\Igrave{^^de}{"DE}{"8D}%
\Oacute{^^e0}{"E0}{"A2}%
\beta{^^e1}{"E1}{"E1}%
\Ocircumflex{^^e2}{"E2}{"93}%
\Ograve{^^e3}{"E3}{"95}%
\otilde{^^e4}{"E5}{"E4}%
\Otilde{^^e5}{"E5}{"E4}%
\mu{^^e6}{"E6}{"E6}%
\thorn{^^e7}{"E8}{"E7}%
\Thorn{^^e8}{"E8}{"E7}%
\Uacute{^^e9}{"E9}{"A3}%
\Ucircumflex{^^ea}{"EA}{"96}%
\Ugrave{^^eb}{"EB}{"97}%
\yacute{^^ec}{"ED}{"EC}%
\Yacute{^^ed}{"ED}{"EC}%
\pm{^^f1}{"F1}{"F1}%
\threequarter{^^f3}{"F3}{"F3}%
\ParagraphSign{^^f4}{"F4}{"F4}%
\section{^^f5}{"F5}{"F5}%
\div{^^f6}{"F6}{"F6}%
\cedilla{^^f7}{"F7}{"F7}%
\degree{^^f8}{"F8}{"F8}%
\dieresis{^^f9}{"F9}{"F9}%
\bullet{^^fa}{"FA}{"FA}%
\powerone{^^fb}{"FB}{"FB}%
\powerthree{^^fc}{"FC}{"FC}%
\powertwo{^^fd}{"FD}{"FD}%
\endgroup
\ifnum\CurrentEncoding=\DC\relax
\def\@MakeHyphenationEightFiveZero#1{%
  \catcode`#1=12% make character given in parameter other which is
                % a legal catcode for \hyphenation
  \ifnum`#1="80
     %C cedilla translated in DC encoding to "D7 (which is A tilde)
     %with a tilde ("d6) as lowercase
     \lccode`#1="D6%
  \else\ifnum`#1="81
     %u dieresis --> "FC
     \lccode`#1="FC%
  \else\ifnum`#1="82
     %e acute --> "E9 (U acute) --> u acute
     \lccode`#1="A3%
  \else\ifnum`#1="83
     %a circumflex --> "E2 O circumflex --> o circumflex
     \lccode`#1="93%
  \else\ifnum`#1="84
     %a dieresis --> "E4 o tilde
     \lccode`#1="E4%
     \@ConflictHyphenCarMsg{a dieresis ("84)}{a ring ("86)}
  \else\ifnum`#1="85
     %a grave --> "E O acute --> "A2 (o acute in code page 850)
     \lccode`#1="A2%
  \else\ifnum`#1="86
     %a ring --> "E5 O tilde --> "E4
     \lccode`#1="E4%
     \@ConflictHyphenCarMsg{a ring ("86)}{a dieresis ("84)}
  \else\ifnum`#1="87
     %c cedilla --> "E7  --> "E7
     \lccode`#1="E7%
     \@ConflictHyphenCarMsg{c cedilla ("87)}{e grave ("8A)}
 \else\ifnum`#1="88
     %e circumflex --> "EA (U circumflex ---> "96
     \lccode`#1="96%
  \else\ifnum`#1="89
     %e dieresis --> "EB U grave --> "97
     \lccode`#1="97%
  \else\ifnum`#1="8A
     %e grave --> "E8 Thorn --> "E7
     \lccode`#1="E7%
     \@ConflictHyphenCarMsg{e grave ("8A)}{c cedilla ("87)}
  \else\ifnum`#1="8B
     %i dieresis --> "EF (acute accent)
     \lccode`#1="EF%
  \else\ifnum`#1="8C
     %i circumflex --> "EE (BAR Accent)
     \lccode`#1="EE%
  \else\ifnum`#1="8D
     %i grave --> "EC (y acute)
     \lccode`#1="EC%
     \@ConflictHyphenCarMsg{i grave ("8D)}{i acute ("A1)}
  \else\ifnum`#1="8E
     %A dieresis --> "C4 (semi graphical character)
     \lccode`#1="C4%
  \else\ifnum`#1="8F
     %A ring --> "C5 (semi graphical character)
     \lccode`#1="C5%
  \else\ifnum`#1="90
     %E acute --> "C9 (semi graphical character)
     \lccode`#1="C9%
  \else\ifnum`#1="91
     %ae ligature --> "E6 (mu sign)
     \lccode`#1="E6%
  \else\ifnum`#1="92
     %AE ligature --> "C6 (a tilde)
     \lccode`#1="C6%
  \else\ifnum`#1="93
     %o circumflex --> "F4 (Paragraph Sign)
     \lccode`#1="F4%
  \else\ifnum`#1="94
     %o dieresis --> "F6 (divide sign)
     \lccode`#1="F6%
  \else\ifnum`#1="95
     %O grave --> "F2 (equal sign)
     \lccode`#1="F2%
  \else\ifnum`#1="96
     %u circumflex --> "FB (Power one sign)
     \lccode`#1="FB%
  \else\ifnum`#1="97
     %u grave --> "F9 (dieresis accent)
     \lccode`#1="F9%
  \else\ifnum`#1="98
     %y dieresis --> "B8 (Copyright sign)
     \lccode`#1="B8%
  \else\ifnum`#1="99
     %O dieresis --> "D6 (I acute) --> i acute
     \lccode`#1="A1%
  \else\ifnum`#1="9A
     %U dieresis --> "DC (semi graphical sign)
     \lccode`#1="DC%
  \else\ifnum`#1="9B
     %o slash --> "F8 (Degree sign)
     \lccode`#1="F8%
  \else\ifnum`#1="9D
     %O slash --> "D8 (I dieresis) --> i dieresis
     \lccode`#1="8B%
  \else\ifnum`#1="A0
     %a acute --> "E1 (Beta sign)
     \lccode`#1="E1%
  \else\ifnum`#1="A1
     %i acute --> "ED (Y acute) --> y acute
     \lccode`#1="EC%
     \@ConflictHyphenCarMsg{i acute ("A1)}{i grave ("8D)}
  \else\ifnum`#1="A2
     %o acute --> "F3 (three quarter sign)
     \lccode`#1="F3%
  \else\ifnum`#1="A3
     %u acute --> "FA (Bullet sign)
     \lccode`#1="FA%
  \else\ifnum`#1="A4
     %n tilde --> "F1 (Plus minus sign)
     \lccode`#1="F1%
  \else\ifnum`#1="A5
     %N tilde --> "D1 (D bar) --> d bar
     \lccode`#1="D0%
     \@ConflictHyphenCarMsg{N tilde ("A5)}{D bar ("D1)}
  \else\ifnum`#1="B5
     %A acute --> "C1 (semi graphical sign)
     \lccode`#1="C1%
  \else\ifnum`#1="B6
     %A circumflex --> "C2 (semi graphical sign)
     \lccode`#1="C2%
  \else\ifnum`#1="B7
     %A grave --> "C0 (Semi graphical sign)
     \lccode`#1="C0%
  \else\ifnum`#1="D0
     %d bar --> "F0 (minus sign)
     \lccode`#1="F0%
  \else\ifnum`#1="D1
     %D bar --> "D0 (d bar)
     \lccode`#1="D0%
     \@ConflictHyphenCarMsg{D bar ("D1)}{N tilde ("A5}
  \else\ifnum`#1="D2
     %E circumflex --> "CA (semi-graphical sign)
     \lccode`#1="CA%
  \else\ifnum`#1="D3
     %E dieresis --> "CB (semi graphical sign)
     \lccode`#1="CB%
  \else\ifnum`#1="D4
     %E grave --> "C8 (semi graphical sign)
     \lccode`#1="C8%
  \else\ifnum`#1="D6
     %I acute --> "CD (semi graphical sign)
     \lccode`#1="CD%
  \else\ifnum`#1="D7
     %I circumflex --> "CE (semi-graphical sign)
     \lccode`#1="CE%
  \else\ifnum`#1="D8
     %I dieresis --> "CF (currency sign)
     \lccode`#1="CF%
  \else\ifnum`#1="E0
     %O acute --> "D3 (E dieresis) --> e dieresis
     \lccode`#1="89%
  \else\ifnum`#1="E2
     %O circumflex --> "D4 (E grave) --> e grave
     \lccode`#1="8A%
  \else\ifnum`#1="E3
     %O grave --> "D2 (E circumflex) --> e circumflex
     \lccode`#1="88%
  \else\ifnum`#1="E4
     %o tilde --> "F5 (End of flow sign)
     \lccode`#1="F5%
  \else\ifnum`#1="E5
     %O tilde --> "D5 (Power One sign)
     \lccode`#1="D5%
  \else\ifnum`#1="E7
     %thorn --> "FE (semi graphical sign)
     \lccode`#1="FE%
  \else\ifnum`#1="E8
     %P like letter --> "DE (I acute) --> i acute
     \lccode`#1="8D%
  \else\ifnum`#1="E9
     %U acute --> "DA (semi graphical sign)
     \lccode`#1="DA%
  \else\ifnum`#1="EA
     %U circumflex --> "DB (semi graphical sign)
     \lccode`#1="DB%
  \else\ifnum`#1="EB
     %U grave --> "D9 (semi graphical sign)
     \lccode`#1="D9%
  \else\ifnum`#1="EC
     %y acute --> "FD (Power two sign)
     \lccode`#1="FD%
  \else\ifnum`#1="ED
     %Y acute --> "DD (Slit vertical bar sign)
     \lccode`#1="DD%
  \else
    %we don't have a letter (a character to form word)
    \@BadHyphenCarMsg{#1}
    \catcode`#1=15% make this character invalid
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
  \fi\fi\fi\fi\fi\fi\fi\fi
}%\@MakeHyphenationEightFiveZero
\fi % \ifx\CurrentEncoding...
\catcode`\@=\atcatcode \let\atcatcode\relax

\endinput
%%
%% End of file `code850.tex'.
