% This is file `greektex.sty', October 2004
% adapted and updated from the stylefile greek2e.sty
% by Yiannis Moschovakis and Chrisovalantis Sfirakis
%
% A compilation and adaptation to LaTeX2e
% of the greektex files, by Yiannis Moschovakis and George Spiliotis
% using the ywcl series of Levy fonts, which is exactly
% the same as the cl series, recoded in the Windows encoding
% rather than the old IBM 437
%
% This file contains all of greektex except for hyphenation,
% so that if the .tfm and .pk files for the ywcl fonts are available,
% then \usepackage{greektex} makes possible the typesetting of
% greeklish text by any LaTeX2e system, without hyphenation.
%
% Hyphenation is fully contained in the accompanying file
% gehyphw.gr. For LaTeX to use it, initex must be run in
% an environment which looks for it and can find it.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{greektex}
     [2004/10/24 v1.0 greektex standard setup file]

%%%%%%%%%%%%%%%%%%%%%%%%% % lccodes and uccodes reassigned
% Originally assigned in gehyphw.gr, because the lccodes are
% needed for the hyphenation tables.

% lc vowels have lccode 1

\lccode`�=1
\lccode`�=1
\lccode`^^a1=1  % .�
\lccode`^^a5=1  % �`
\lccode`^^a6=1  % �=
\lccode`^^a7=1  % >�
\lccode`^^a8=1  % <�
\lccode`^^a9=1  % >�'
\lccode`^^aa=1  % <�'
\lccode`�=1
\lccode`�=1
\lccode`^^ab=1  % �`
\lccode`^^80=1  % >�
\lccode`^^81=1  % <�
\lccode`^^82=1  % >�'
\lccode`^^83=1  % <�'
\lccode`�=1
\lccode`�=1
\lccode`^^bb=1  % .�
\lccode`^^84=1  % �`
\lccode`^^85=1  % �=
\lccode`^^86=1  % >�
\lccode`^^87=1  % <�
\lccode`^^88=1  % >�'
\lccode`^^a0=1  % <�'
\lccode`�=1
\lccode`�=1
\lccode`�=1
\lccode`^^c0=1  % � with diairesis and oxeia
\lccode`^^89=1  % �`
\lccode`^^8a=1  % �=
\lccode`^^8b=1  % >�
\lccode`^^8c=1  % <�
\lccode`^^8d=1  % >�'
\lccode`^^8e=1  % <�'
\lccode`^^b6=1  % >=�
\lccode`^^bd=1  % <=�
\lccode`�=1
\lccode`�=1
\lccode`^^8f=1  % �`
\lccode`^^90=1  % >�
\lccode`^^91=1  % <�
\lccode`^^92=1  % >�'
\lccode`^^93=1  % <�'
\lccode`�=1
\lccode`�=1
\lccode`�=1
\lccode`^^e0=1  % � with diaer and oxeia
\lccode`^^94=1  % �`
\lccode`^^95=1  % �=
\lccode`^^96=1  % >�
\lccode`^^97=1  % <�
\lccode`^^98=1  % >�'
\lccode`^^99=1  % <�'
\lccode`�=1
\lccode`�=1
\lccode`^^ff=1  % .�
\lccode`^^9a=1  % �`
\lccode`^^9b=1  % �=
\lccode`^^9c=1  % >�
\lccode`^^9d=1  % <�
\lccode`^^9e=1  % >�'
\lccode`^^9f=1  % <�'

% Consonants and capitals
% Capital vowels get 1 to ensure hyphenation of all-capital text

\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=1
\lccode`^^a2=1 % '�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=1
\lccode`^^b8=1 % 'E
\lccode`�=`�
\lccode`�=1
\lccode`^^b9=1 % '�
\lccode`�=`�
\lccode`�=1
\lccode`^^ba=1 % '�
\lccode`^^da=1 % "�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=1
\lccode`^^bc=1 % '�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`^^be=1 % '�
\lccode`^^db=1 % "�
\lccode`�=`�
\lccode`�=`�
\lccode`�=`�
\lccode`�=1
\lccode`^^bf=1 % '�
%%===================================================

% uccodes forget the accents and iota subscripts
% they preserve the diaeresis
% this cannot handle ligatures
% including the initial, accented cap ligatures
% but it makes \uppercase work when accented, initial capitals
% are entered in hexagesimal notation
% '�=^^a2, '�=^^b8, '�=^^b9, '�=^^ba, '�=^^bc, '�=^^be, '�=^^bf
% or using the appropriate extended keyboard program

\uccode`�=`�
\uccode`�=`�
\uccode`^^a1=`�  % �|
\uccode`^^a5=`�  % �`
\uccode`^^a6=`�  % �=
\uccode`^^a7=`�  % >�
\uccode`^^a8=`�  % <�
\uccode`^^a9=`�  % >�'
\uccode`^^aa=`�  % <�'
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`^^ab=`�  % �`
\uccode`^^80=`�  % >�
\uccode`^^81=`�  % <�
\uccode`^^82=`�  % >�'
\uccode`^^83=`�  % <�'
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`^^bb=`�  % �
\uccode`^^84=`�  % �`
\uccode`^^85=`�  % �=
\uccode`^^86=`�  % >�
\uccode`^^87=`�  % <�
\uccode`^^88=`�  % >�'
\uccode`^^a0=`�  % <�'
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`^^da
\uccode`^^c0=`^^da    % "'�
\uccode`^^89=`�  % �`
\uccode`^^8a=`�  % �=
\uccode`^^8b=`�  % >�
\uccode`^^8c=`�  % <�
\uccode`^^8d=`�  % >�'
\uccode`^^8e=`�  % <�'
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`^^8f=`�  % �`
\uccode`^^90=`�  % >�
\uccode`^^91=`�  % <�
\uccode`^^92=`�  % >�'
\uccode`^^93=`�  % <�'
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`^^db
\uccode`^^e0=`^^db       % "'�
\uccode`^^94=`�  % �`
\uccode`^^95=`�  % �=
\uccode`^^96=`�  % >�
\uccode`^^97=`�  % <�
\uccode`^^98=`�  % >�'
\uccode`^^99=`�  % <�'
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`^^ff=`�  % .�
\uccode`^^9a=`�  % �`
\uccode`^^9b=`�  % �=
\uccode`^^9c=`�  % >�
\uccode`^^9d=`�  % <�
\uccode`^^9e=`�  % >�'
\uccode`�=`�
\uccode`^^a2=`^^a2  % 'A
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`^^b8=`^^b8  % 'E
\uccode`�=`�
\uccode`�=`�
\uccode`^^b9=`^^b9  % 'H
\uccode`�=`�
\uccode`�=`�
\uccode`^^ba=`^^ba  % 'I
\uccode`^^da=`^^da  % "I
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`^^bc=`^^bc  % 'O
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`^^be=`^^be  % 'Y
\uccode`^^db=`^^db  % "Y
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode`�=`�
\uccode `^^bf=`^^bf  % '�
% =============================================================

% From geletcatw.gr     % make Greek letters letters

% catcodes =========================================

% The vowels

\catcode`�=11
\catcode`�=11
\catcode`^^a1=11  % .�
\catcode`^^a5=11  % �`
\catcode`^^a6=11  % �=
\catcode`^^a7=11  % >�
\catcode`^^a8=11  % <�
\catcode`^^a9=11  % >�'
\catcode`^^aa=11  % <�'
\catcode`�=11
\catcode`�=11
\catcode`^^ab=11  % �`
\catcode`^^80=11  % >�
\catcode`^^81=11  % <�
\catcode`^^82=11  % >�'
\catcode`^^83=11  % <�'
\catcode`�=11
\catcode`�=11
\catcode`^^bb=11  % .�
\catcode`^^84=11  % �`
\catcode`^^85=11  % �=
\catcode`^^86=11  % >�
\catcode`^^87=11  % <�
\catcode`^^88=11  % >�'
\catcode`^^a0=11  % <�'
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`^^c0=11  % � with diairesis and oxeia
\catcode`^^89=11  % �`
\catcode`^^8a=11  % �=
\catcode`^^8b=11  % >�
\catcode`^^8c=11  % <�
\catcode`^^8d=11  % >�'
\catcode`^^8e=11  % <�'
\catcode`^^b6=11  % >=�
\catcode`^^bd=11  % <=�
\catcode`�=11
\catcode`�=11
\catcode`^^8f=11  % �`
\catcode`^^90=11  % >�
\catcode`^^91=11  % <�
\catcode`^^92=11  % >�'
\catcode`^^93=11  % <�'
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`^^e0=11  % � with diaer and oxeia
\catcode`^^94=11  % �`
\catcode`^^95=11  % �=
\catcode`^^96=11  % >�
\catcode`^^97=11  % <�
\catcode`^^98=11  % >�'
\catcode`^^99=11  % <�'
\catcode`�=11
\catcode`�=11
\catcode`^^ff=11  % .�
\catcode`^^9a=11  % �`
\catcode`^^9b=11  % �=
\catcode`^^9c=11  % >�
\catcode`^^9d=11  % <�
\catcode`^^9e=11  % >�'
\catcode`^^9f=11  % <�'
\catcode`^^b7=12 % anw telia

% Consonants and capitals

\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`^^a2=11 % '�
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`^^b8=11
\catcode`�=11
\catcode`�=11
\catcode`^^b9=11 % '�
\catcode`�=11
\catcode`�=11
\catcode`^^ba=11 % '�
\catcode`^^da=11 % "�
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`^^bc=11 % '�
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`^^be=11 % '�
\catcode`^^db=11 % "�
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`�=11
\catcode`^^bf=11 % '�

% this leaves the accents of category "other"

% only the unaccented letters get mathcodes
% ynm and the anv teleia, added

%\mathcode`^^b7="71F5 % anv teleia,
\mathcode`^^b7="71B7 % anv teleia,
\mathcode`�="7198
\mathcode`�="7199
\mathcode`�="719A
\mathcode`�="719B
\mathcode`�="719C
\mathcode`�="719D
\mathcode`�="719E
\mathcode`�="719F
\mathcode`�="71A0
\mathcode`�="71A1
\mathcode`�="71A2
\mathcode`�="71A3
\mathcode`�="71A4
\mathcode`�="71A5
\mathcode`�="71A6
\mathcode`�="71A7
\mathcode`�="71A8
\mathcode`�="71A9
\mathcode`�="71AA
\mathcode`�="71AB
\mathcode`�="71AC
\mathcode`�="71AD
\mathcode`�="71AE
\mathcode`�="71AF
\mathcode`�="71E0
\mathcode`�="7180
\mathcode`�="7181
\mathcode`�="7182
\mathcode`�="7183
\mathcode`�="7184
\mathcode`�="7185
\mathcode`�="7186
\mathcode`�="7187
\mathcode`�="7188
\mathcode`�="7189
\mathcode`�="718A
\mathcode`�="718B
\mathcode`�="718C
\mathcode`�="718D
\mathcode`�="718E
\mathcode`�="718F
\mathcode`�="7190
\mathcode`�="7191
\mathcode`�="7192
\mathcode`�="7193
\mathcode`�="7194
\mathcode`�="7195
\mathcode`�="7196
\mathcode`�="7197

% sfcodes ========================================================

\sfcode`�=1000
\sfcode`�=1000
\sfcode`^^a1=1000  % .�
\sfcode`^^a5=1000  % �`
\sfcode`^^a6=1000  % �=
\sfcode`^^a7=1000  % >�
\sfcode`^^a8=1000  % <�
\sfcode`^^a9=1000  % >�'
\sfcode`^^aa=1000  % <�'
\sfcode`�=1000
\sfcode`�=1000
\sfcode`^^ab=1000  % �`
\sfcode`^^80=1000  % >�
\sfcode`^^81=1000  % <�
\sfcode`^^82=1000  % >�'
\sfcode`^^83=1000  % <�'
\sfcode`�=1000
\sfcode`�=1000
\sfcode`^^bb=1000  % .�
\sfcode`^^84=1000  % �`
\sfcode`^^85=1000  % �=
\sfcode`^^86=1000  % >�
\sfcode`^^87=1000  % <�
\sfcode`^^88=1000  % >�'
\sfcode`^^a0=1000  % <�'
\sfcode`�=1000
\sfcode`�=1000
\sfcode`�=1000
\sfcode`^^c0=1000  % � with diairesis and oxeia
\sfcode`^^89=1000  % �`
\sfcode`^^8a=1000  % �=
\sfcode`^^8b=1000  % >�
\sfcode`^^8c=1000  % <�
\sfcode`^^8d=1000  % >�'
\sfcode`^^8e=1000  % <�'
\sfcode`^^b6=1000  % >=�
\sfcode`^^bd=1000  % <=�
\sfcode`�=1000
\sfcode`�=1000
\sfcode`^^8f=1000  % �`
\sfcode`^^90=1000  % >�
\sfcode`^^91=1000  % <�
\sfcode`^^92=1000  % >�'
\sfcode`^^93=1000  % <�'
\sfcode`�=1000
\sfcode`�=1000
\sfcode`�=1000
\sfcode`^^e0=1000  % � with diaer and oxeia
\sfcode`^^94=1000  % �`
\sfcode`^^95=1000  % �=
\sfcode`^^96=1000  % >�
\sfcode`^^97=1000  % <�
\sfcode`^^98=1000  % >�'
\sfcode`^^99=1000  % <�'
\sfcode`�=1000
\sfcode`�=1000
\sfcode`^^ff=1000  % .�
\sfcode`^^9a=1000  % �`
\sfcode`^^9b=1000  % �=
\sfcode`^^9c=1000  % >�
\sfcode`^^9d=1000  % <�
\sfcode`^^9e=1000  % >�'
\sfcode`^^9f=1000  % <�'

\sfcode`^^b7=1500  % ano teleia

\sfcode`�=999
\sfcode`^^a2=999 % '�
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`^^b8=999 % 'E
\sfcode`�=999
\sfcode`�=999
\sfcode`^^b9=999 % '�
\sfcode`�=999
\sfcode`�=999
\sfcode`^^ba=999 % '�
\sfcode`^^da=999 % "�
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`^^bc=999 % '�
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`^^be=999 % '�
\sfcode`^^db=999 % "�
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999
\sfcode`�=999

% ===========================================================

\def\��{^^b7 } % anw teleia
\def\������{\number\day~\ifcase\month\or%
����������\or �����������\or �������\or ��������\or �����\or �������\or%
�������\or ���������\or �����������\or ���������\or ���������\or%
����������\fi,~\number\year}

% ywclabbr.gr
% the windows-fonts version of the 1994 geabbr
% September 2001, Yiannis N. Moschovakis
%
% macros for classical Greek under ygreektex

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%%%%%%%%%%%%% Constants

% Code the accent constants with category 11

\def\@��{\char18}     % we use the Knuth grave for the ������
\def\@��{^^ad}        % �����������
\def\@��{^^ae}        % ����
\def\@��{^^af}        % ������
\def\@���{^^b0}       % ����-�����
\def\@���{^^b1}       % ������-�����
\def\@���{^^b2}       % ����-������
\def\@���{^^b3}       % ������-������
\def\@���{^^b4}       % ����-�����������
\def\@���{^^b5}       % ������-�����������
\def\@���{^^d2}       % �����������

\def\��{^^a1}   % the three vowels with the iota subscript
\def\��{^^bb}
\def\��{^^ff}
\def\�����������{^^d2}

% Accents, aspiration marks and the greek parens get category other.
\catcode`^^ac=12%
\catcode`^^ad=12%
\catcode`^^ae=12%
\catcode`^^af=12%
\catcode`^^b0=12%
\catcode`^^b1=12%
\catcode`^^b2=12%
\catcode`^^b3=12%
\catcode`^^b4=12%
\catcode`^^b5=12%
\catcode`^^b7=12%       % anv teleia
\catcode`^^a3=12%       % <<
\catcode`^^a4=12        % >>


%%%%%%%%%%%%%%%%%% The accenting tables

\def\�#1{%
\if#1�^^a7%
\else\if#1�^^a9%
\else\if#1^^a1\accent174 ^^a1%      % |�
\else\if#1^^b6\accent176 ^^a1%      % |'�
\else\if#1�^^80%
\else\if#1�^^82%
\else\if#1�^^86%
\else\if#1�^^88%
\else\if#1^^a1\accent174 ^^bb%      % |�
\else\if#1^^aa\accent176 ^^bb%      % |'�
\else\if#1�^^8b%
\else\if#1�^^8d%
\else\if#1�^^90%
\else\if#1�^^92%
\else\if#1�^^96%
\else\if#1�^^98%
\else\if#1�^^9c%
\else\if#1�^^9e%
\else\if#1^^ff\accent174 ^^ff%      % |�
\else\if#1^^fe\accent176 ^^f3%      % |'�
\else\@��#1%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}

\def\��#1{%
\if#1�^^a9%
\else\if#1^^a1\accent176 ^^a1%      % |�
\else\if#1�^^82%
\else\if#1�^^88%
\else\if#1^^bb\accent176 ^^bb%      % |�
\else\if#1�^^8d%
\else\if#1�^^92%
\else\if#1�^^98%
\else\if#1�^^9e%
\else\if#1^^ff\accent176 ^^ff%      % |�
\else\@���#1%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}


\def\��#1{%
\if#1�\accent178 �%
\else\if#1^^a1\accent178 ^^a1%      % |�
\else\if#1�\accent178 �%
\else\if#1�\accent178 �%
\else\if#1^^bb\accent178 ^^bb%      % |�
\else\if#1�\accent178 �%
\else\if#1�\accent178 �%
\else\if#1�\accent178 �%
\else\if#1�\accent178 �%
\else\if#1^^ff\accent178 ^^ff%      % |�
\else\@���#1%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}

\def\��#1{%
\if#1�\accent180 �%
\else\if#1^^a1\accent180 ^^a1%      % |�
\else\if#1�\accent180 �%
\else\if#1^^b1\accent180 ^^b1%      % |�
\else\if#1�\accent180 �%
\else\if#1�\accent180 �%
\else\if#1�\accent180 �%
\else\if#1^^ff\accent180 ^^ff%      % |�
\else\@���#1%
\fi\fi\fi\fi\fi\fi\fi\fi}

\def\�#1{%
\if#1�^^a8%
\else\if#1�^^aa%
\else\if#1^^a1\accent175 ^^a1%      % |�
\else\if#1^^a5\accent177 ^^a5%           % |'�
\else\if#1�^^81%
\else\if#1�^^83%
\else\if#1�^^87%
\else\if#1�^^a0%
\else\if#1^^bb\accent175 ^^bb%      % |�
\else\if#1^^ce\accent177 ^^e7%      % |'�
\else\if#1�^^8c%
\else\if#1�^^8e%
\else\if#1�^^91%
\else\if#1�^^93%
\else\if#1�^^97%
\else\if#1�^^99%
\else\if#1�^^9d%
\else\if#1�^^9f%
\else\if#1^^ff\accent175 ^^ff%      % |�
\else\if#1^^da\accent177 ^^ff%      % |'�
\else\if#1�\accent175 �%
\else\@��#1%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}

\def\��#1{%
\if#1�^^aa%
\else\if#1^^a1\accent177 ^^a1%      % |�
\else\if#1�^^83%
\else\if#1�^^a0%
\else\if#1^^bb\accent177 ^^bb%      % |�
\else\if#1�^^8e%
\else\if#1�^^93%
\else\if#1�^^99%
\else\if#1�^^9f%
\else\if#1^^ff\accent177 ^^ff%      % |�
\else\@���#1%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}

\def\��#1{%
\if#1�\accent179 �%
\else\if#1^^a1\accent179 ^^a1%      % |�
\else\if#1�\accent179 �%
\else\if#1�\accent179 �%
\else\if#1^^bb\accent179 ^^bb%      % |�
\else\if#1�\accent179 �%
\else\if#1�\accent179 �%
\else\if#1�\accent179 �%
\else\if#1�\accent179 �%
\else\if#1^^ff\accent179 ^^ff%      % |�
\else\@���#1%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}

\def\��#1{%
\if#1�\accent181 �%
\else\if#1^^a1\accent181 ^^a1%      % |�
\else\if#1�\accent181 �%
\else\if#1^^bb\accent181 ^^bb%      % |�
\else\if#1�\char180%
\else\if#1�\accent181 �%
\else\if#1�\accent181 �%
\else\if#1^^b2\accent181 ^^b2%      % |�
\else\@���#1%
\fi\fi\fi\fi\fi\fi\fi\fi}

\def\�#1{%
\if#1�^^a5%
\else\if#1^^a1\accent18 ^^a1%      % |�
\else\if#1�^^ab%
\else\if#1�^^84%
\else\if#1^^bb\accent18 ^^bb%      % |�
\else\if#1�^^89%
\else\if#1^^fa\accent172 �%         % "�
\else\if#1�^^8f%
\else\if#1�^^94%
\else\if#1^^fb\accent172 �%         % "�
\else\if#1�^^9a%
\else\if#1^^ff\accent18 ^^ff%      % |�
\else\@��#1%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
\fi\fi}

\def\�#1{%
\if#1�^^a6%
\else\if#1^^a1\accent173 ^^a1%      % |�
\else\if#1�^^85%
\else\if#1^^bb\accent173 ^^bb%      % |�
\else\if#1�^^8a%
\else\if#1�^^95%
\else\if#1�^^9b%
\else\if#1^^ff\accent173 ^^ff%      % |�
\else\@��#1%
\fi\fi\fi\fi\fi\fi\fi\fi}

%%%%%%%%%%%%%%%%%%  End Greek commands

%%%%%%%%%%%%%%%%%%%%%%%%%% Basic Greek encoding (OT1 extension)
%% This is by Spiliotis, with very few adjustments
%% and translated to the windows coding

% \input LG1enc.def
\DeclareFontEncoding{LG1}{}{}
\DeclareTextAccent{\"}{LG1}{127}
\DeclareTextAccent{\'}{LG1}{19}
\DeclareTextAccent{\.}{LG1}{95}
\DeclareTextAccent{\=}{LG1}{22}
\DeclareTextAccent{\^}{LG1}{94}
\DeclareTextAccent{\`}{LG1}{18}
\DeclareTextAccent{\~}{LG1}{126}
\DeclareTextAccent{\H}{LG1}{125}
\DeclareTextAccent{\u}{LG1}{21}
\DeclareTextAccent{\v}{LG1}{20}
\DeclareTextAccent{\r}{LG1}{23}
\DeclareTextCommand{\b}{LG1}[1]
   {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{29}%
     \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}}
\DeclareTextCommand{\c}{LG1}[1]
   {\leavevmode\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent24 #1%
    \else{\ooalign{\unhbox\z@\crcr\hidewidth\char24\hidewidth}}\fi}
\DeclareTextCommand{\d}{LG1}[1]
   {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{10}.\hidewidth}}}
\DeclareTextSymbol{\AE}{LG1}{29}
\DeclareTextSymbol{\OE}{LG1}{30}
\DeclareTextSymbol{\O}{LG1}{31}
\DeclareTextSymbol{\ae}{LG1}{26}
\DeclareTextSymbol{\i}{LG1}{16}
\DeclareTextSymbol{\j}{LG1}{17}
\DeclareTextSymbol{\oe}{LG1}{27}
\DeclareTextSymbol{\o}{LG1}{28}
\DeclareTextSymbol{\ss}{LG1}{25}
\DeclareTextSymbol{\textemdash}{LG1}{124}
\DeclareTextSymbol{\textendash}{LG1}{123}
\DeclareTextSymbol{\textexclamdown}{LG1}{60}
\DeclareTextSymbol{\textquestiondown}{LG1}{62}
\DeclareTextSymbol{\textquotedblleft}{LG1}{92}
\DeclareTextSymbol{\textquotedblright}{LG1}{`\"}
\DeclareTextSymbol{\textquoteleft}{LG1}{`\`}
\DeclareTextSymbol{\textquoteright}{LG1}{`\'}
\DeclareTextCommand{\aa}{LG1}
   {{\accent23a}}
\DeclareTextCommand{\L}{LG1}
   {\leavevmode\setbox\z@\hbox{L}\hb@xt@\wd\z@{\hss\@xxxii L}}
\DeclareTextCommand{\l}{LG1}
   {{\@xxxii l}}
\DeclareTextCommand{\AA}{LG1}
   {\leavevmode\setbox\z@\hbox{h}\dimen@\ht\z@\advance\dimen@-1ex%
    \rlap{\raise.67\dimen@\hbox{\char23}}A}
\DeclareTextCommand{\textdollar}{LG1}{{%
   \ifdim \fontdimen\@ne\font >\z@
      \slshape
   \else
      \upshape
   \fi
   \char`\$}}
\DeclareTextCommand{\textsterling}{LG1}{{%
   \ifdim \fontdimen\@ne\font >\z@
      \itshape
   \else
      \fontencoding{OT1}\fontfamily{cmr}\fontshape{ui}\selectfont
   \fi
   \char`\$}}

\DeclareFontSubstitution{LG1}{ywclr}{m}{n}
\DeclareSymbolFont{letters}{OML}{ywclm}{m}{it}
\SetSymbolFont{letters}{bold}{OML}{ywclm}{b}{it}
\let\oldencdef=\encodingdefault
\let\oldrmdef=\rmdefault
\let\oldttdef=\ttdefault
\let\oldsfdef=\sfdefault
\def\setupgreek{%
        \renewcommand{\encodingdefault}{LG1}%
        \renewcommand{\rmdefault}{ywclr}%
        \renewcommand{\ttdefault}{ywcltt}%
        \renewcommand{\sfdefault}{ywclss}%
}\setupgreek
\newcommand{\nogreek}[1]{{%
        \renewcommand{\encodingdefault}{\oldencdef}%
        \renewcommand{\rmdefault}{\oldrmdef}%
        \renewcommand{\ttdefault}{\oldttdef}%
        \renewcommand{\sfdefault}{\oldsfdef}\fontencoding\oldencdef
        \fontfamily\oldrmdef\selectfont#1\setupgreek}}

% Make unaccented lc and uc Greek letters available in math
% lc
%%%%%%%%%%%%%%%%%%%%  try mathfont assignments (these were missing in hammer
%\DeclareSymbolFont{operators}   {LG1}{ywclr} {m}{n}
%\DeclareSymbolFont{letters}     {OML}{ywclm} {m}{it}
%\DeclareSymbolFont{symbols}     {OMS}{cmsy}{m}{n}
%\DeclareSymbolFont{largesymbols}{OMX}{cmex}{m}{n}
%\SetSymbolFont{operators}{bold}{LG1}{ywclr} {bx}{n}
%\SetSymbolFont{letters}  {bold}{LG1}{ywclm} {b}{it}
%\SetSymbolFont{symbols}  {bold}{OMS}{cmsy}{b}{n}
%\DeclareSymbolFontAlphabet{\mathrm}    {operators}
%\DeclareSymbolFontAlphabet{\mathnormal}{letters}
%\DeclareSymbolFontAlphabet{\mathcal}   {symbols}
\DeclareMathAlphabet      {\mathrm}{LG1}{ywclr}{m}{n}
\DeclareMathAlphabet      {\mathbf}{LG1}{ywclr}{bx}{n}
\DeclareMathAlphabet      {\mathsf}{LG1}{ywclss}{m}{n}
\DeclareMathAlphabet      {\mathit}{LG1}{ywclr}{m}{it}
\DeclareMathAlphabet      {\mathtt}{LG1}{ywcltt}{m}{n}
\SetMathAlphabet\mathsf{bold}{OT1}{cmss}{bx}{n}
\SetMathAlphabet\mathit{bold}{OT1}{cmr}{bx}{it}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\DeclareMathSymbol{^^e1}{\mathalpha}{letters}{`^^e1}
\DeclareMathSymbol{^^e2}{\mathalpha}{letters}{`^^e2}
\DeclareMathSymbol{^^e3}{\mathalpha}{letters}{`^^e3}
\DeclareMathSymbol{^^e4}{\mathalpha}{letters}{`^^e4}
\DeclareMathSymbol{^^e5}{\mathalpha}{letters}{`^^e5}
\DeclareMathSymbol{^^e6}{\mathalpha}{letters}{`^^e6}
\DeclareMathSymbol{^^e7}{\mathalpha}{letters}{`^^e7}
\DeclareMathSymbol{^^e8}{\mathalpha}{letters}{`^^e8}
\DeclareMathSymbol{^^e9}{\mathalpha}{letters}{`^^e9}
\DeclareMathSymbol{^^ea}{\mathalpha}{letters}{`^^ea}
\DeclareMathSymbol{^^eb}{\mathalpha}{letters}{`^^eb}
\DeclareMathSymbol{^^ec}{\mathalpha}{letters}{`^^ec}
\DeclareMathSymbol{^^ed}{\mathalpha}{letters}{`^^ed}
\DeclareMathSymbol{^^ee}{\mathalpha}{letters}{`^^ee}
\DeclareMathSymbol{^^ef}{\mathalpha}{letters}{`^^ef}
\DeclareMathSymbol{^^f0}{\mathalpha}{letters}{`^^f0}
\DeclareMathSymbol{^^f1}{\mathalpha}{letters}{`^^f1}
\DeclareMathSymbol{^^f2}{\mathalpha}{letters}{`^^f2}
\DeclareMathSymbol{^^f3}{\mathalpha}{letters}{`^^f3}
\DeclareMathSymbol{^^f4}{\mathalpha}{letters}{`^^f4}
\DeclareMathSymbol{^^f5}{\mathalpha}{letters}{`^^f5}
\DeclareMathSymbol{^^f6}{\mathalpha}{letters}{`^^f6}
\DeclareMathSymbol{^^f7}{\mathalpha}{letters}{`^^f7}
\DeclareMathSymbol{^^f8}{\mathalpha}{letters}{`^^f8}
\DeclareMathSymbol{^^f9}{\mathalpha}{letters}{`^^f9}
% uc
\DeclareMathSymbol{^^c1}{\mathalpha}{letters}{`^^c1}
\DeclareMathSymbol{^^c2}{\mathalpha}{letters}{`^^c2}
\DeclareMathSymbol{^^c3}{\mathalpha}{letters}{`^^c3}
\DeclareMathSymbol{^^c4}{\mathalpha}{letters}{`^^c4}
\DeclareMathSymbol{^^c5}{\mathalpha}{letters}{`^^c5}
\DeclareMathSymbol{^^c6}{\mathalpha}{letters}{`^^c6}
\DeclareMathSymbol{^^c7}{\mathalpha}{letters}{`^^c7}
\DeclareMathSymbol{^^c8}{\mathalpha}{letters}{`^^c8}
\DeclareMathSymbol{^^c9}{\mathalpha}{letters}{`^^c9}
\DeclareMathSymbol{^^ca}{\mathalpha}{letters}{`^^ca}
\DeclareMathSymbol{^^cb}{\mathalpha}{letters}{`^^cb}
\DeclareMathSymbol{^^cc}{\mathalpha}{letters}{`^^cc}
\DeclareMathSymbol{^^cd}{\mathalpha}{letters}{`^^cd}
\DeclareMathSymbol{^^ce}{\mathalpha}{letters}{`^^ce}
\DeclareMathSymbol{^^cf}{\mathalpha}{letters}{`^^cf}
\DeclareMathSymbol{^^d0}{\mathalpha}{letters}{`^^d0}
\DeclareMathSymbol{^^d1}{\mathalpha}{letters}{`^^d1}
\DeclareMathSymbol{^^d3}{\mathalpha}{letters}{`^^d3}
\DeclareMathSymbol{^^d4}{\mathalpha}{letters}{`^^d4}
\DeclareMathSymbol{^^d5}{\mathalpha}{letters}{`^^d5}
\DeclareMathSymbol{^^d6}{\mathalpha}{letters}{`^^d6}
\DeclareMathSymbol{^^d7}{\mathalpha}{letters}{`^^d7}
\DeclareMathSymbol{^^d8}{\mathalpha}{letters}{`^^d8}
\DeclareMathSymbol{^^d9}{\mathalpha}{letters}{`^^d9}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Preload the .fd files

% lg1ywclr.fd
\DeclareFontFamily{LG1}{ywclr}{}
\DeclareFontShape{LG1}{ywclr}{m}{n}
   {  <5> <6> <7> <8> <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclr
    }{}
\DeclareFontShape{LG1}{ywclr}{m}{sl}
    { <5> <6> <7> <8> ywclsl8
      <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclsl
    }{}
\DeclareFontShape{LG1}{ywclr}{m}{it}
    { <5> <6> <7> ywclti7
      <8> <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclti
    }{}
\DeclareFontShape{LG1}{ywclr}{m}{sc}
    { <5> <6> ywclcsc6
      <7> <8> ywclcsc8
      <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclcsc
    }{}
%%%%%% bold series
\DeclareFontShape{LG1}{ywclr}{b}{n}
      {<->sub * ywclr/bx/n}{}

%%%%%%% bold extended series
\DeclareFontShape{LG1}{ywclr}{bx}{n}
   {  <5> <6> <7> <8> <9> <10> <11> <12> <14> <17> <20> <25> <32>
<40> gen * ywclbx
   }{}
\DeclareFontShape{LG1}{ywclr}{bx}{sl}
   {  <5> <6> <7> <8> <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclbxsl
   }{}
\DeclareFontShape{LG1}{ywclr}{bx}{it}
      {<->sub * ywclr/bx/n}{}

% lg1clss.fd
\DeclareFontFamily{LG1}{ywclss}{}
\DeclareFontShape{LG1}{ywclss}{m}{n}
   {  <5> <6> <7> <8> ywclss8
      <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclss
   }{}

\DeclareFontShape{LG1}{ywclss}{bx}{n}
   {  <5> <6> <7> <8> ywclssbx8
      <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclssbx
   }{}

\DeclareFontShape{LG1}{ywclss}{m}{it}
      {<->sub*ywclr/m/it}{}
\DeclareFontShape{LG1}{ywclss}{m}{sl}
      {<->sub*ywclr/m/sl}{}
%%%%%% Font/shape undefined, therefore substituted
\DeclareFontShape{LG1}{ywclss}{m}{sc}
      {<->sub*ywclr/m/sc}{}
%%%%%% Font/shape undefined, therefore substituted
\DeclareFontShape{LG1}{ywclss}{m}{ui}
      {<->sub*ywclr/m/n}{}
%%%%%%% semibold condensed series
\DeclareFontShape{LG1}{ywclss}{sbc}{n}
      {<->sub*ywclr/bx/n}{}
%%%%%%%% bold extended series
%\DeclareFontShape{LG1}{ywclss}{bx}{n}
%       {<->sub*ywclss/m/n}{}
%%%%%% Font/shape undefined, therefore substituted
\DeclareFontShape{LG1}{ywclss}{bx}{ui}
       {<->sub*ywclss/m/n}{}

% lg1cltt.fd, corrected cmtt to cltt in first line, ynm
\DeclareFontFamily{LG1}{ywcltt}{\hyphenchar \font\m@ne}
\DeclareFontShape{LG1}{ywcltt}{m}{n}
   {  <5> <6> <7> <8> ywcltt8
      <9> <10> <11> <12> <14> <17> <20> <25> gen * ywcltt
   }{}
%%%%% make sure subst shapes are available
\DeclareFontShape{LG1}{ywcltt}{m}{it}
      {<->sub * ywcltt/m/n}{}
\DeclareFontShape{LG1}{ywcltt}{m}{sl}
      {<->sub * ywcltt/m/n}{}
\DeclareFontShape{LG1}{ywcltt}{m}{sc}
      {<->sub * ywcltt/m/n}{}
\DeclareFontShape{LG1}{ywcltt}{m}{ui}
      {<->sub * ywcltt/m/n}{}
\DeclareFontShape{LG1}{ywcltt}{bx}{n}
      {<->sub * ywcltt/m/n}{}
\DeclareFontShape{LG1}{ywcltt}{bx}{it}
      {<->sub * ywcltt/m/n}{}
\DeclareFontShape{LG1}{ywcltt}{bx}{ui}
      {<->sub * ywcltt/m/n}{}

% omlclm.fd, changed cmm to clm, ynm
\DeclareFontFamily{OML}{ywclm}{\skewchar\font127 }
\DeclareFontShape{OML}{ywclm}{m}{it}%
   {  <5> <6> <7> <8> <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclmi%
    }{}
\DeclareFontShape{OML}{ywclm}{b}{it}{%
      <5> <6> <7> <8> <9> gen * cmmib
      <10> <11> <12> <14> <17> <20> <25> cmmib10
      }{}
\DeclareFontShape{OML}{ywclm}{bx}{it}
   {<-> ssub * ywclm/b/it}{}

% omsclr.fd
\DeclareFontFamily{OMS}{ywclr}{\skewchar\font48 }
\DeclareFontShape{OMS}{ywclr}{m}{n}
   {<-> ssub    * cmsy/m/n}{}
\DeclareFontShape{OMS}{ywclr}{m}{it}
   {<-> ssub * cmsy/m/n}{}
\DeclareFontShape{OMS}{ywclr}{m}{sl}
   {<-> ssub * cmsy/m/n}{}
\DeclareFontShape{OMS}{ywclr}{m}{sc}
   {<-> ssub * cmsy/m/n}{}
\DeclareFontShape{OMS}{ywclr}{bx}{n}
   {<-> ssub * cmsy/b/n}{}
\DeclareFontShape{OMS}{ywclr}{bx}{it}
   {<-> ssub * cmsy/b/n}{}
\DeclareFontShape{OMS}{ywclr}{bx}{sl}
   {<-> ssub * cmsy/b/n}{}
\DeclareFontShape{OMS}{ywclr}{bx}{sc}
   {<-> ssub * cmsy/b/n}{}

% omsclsy.fd
\DeclareFontFamily{OMS}{ywclsy}{\skewchar\font48 }
\DeclareFontShape{OMS}{ywclsy}{m}{n}{%
      <5> <6> <7> <8> <9> <10> gen * cmsy
      <11> <12> <14> <17> <20> <25> cmsy10
      }{}
\DeclareFontShape{OMS}{ywclsy}{b}{n}{%
      <5> <6> <7> <8> <9> gen * cmbsy
      <10> <11> <12> <14> <17> <20> <25>cmbsy10
      }{}

% omxclex.fd
\DeclareFontFamily{OMX}{ywclex}{}{}
\DeclareFontShape{OMX}{ywclex}{m}{n}{
   <-> sfixed * cmex10
   }{}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ProcessOptions \relax % ynm
%%
%% End of file `greektex.sty'.
