\relax
\documentclass[twocolumn]{article}
\usepackage{fontdoc}
\begin{document}
\newcommand{\bgreek}{\texttt{Beta Code}}
\ProvidesFile{bgreek.etx}[2004/07/31 v0.2 bgreek.etx (Greek Beta Encoding File)]

\title{Beta Code Greek Font Encoding}
\author{Luis Rivera\thanks{\textt{jlrn77 at gmail com}.}
\date{December 2004}
\maketitle

\tableofcontents

\section{What is this for}

This file implements a dialect of the Beta encoding (henceforth, \bgreek) used by the
Perseus Project at the University of California, Irvine, and implemented by several vendors,
like the Silver Greek fonts developed and commercialized by Silver Mountain Software,
or the fonts published by Scholar's Press.

The purpose of this file is to provide some interface to make accesible to \LaTeX\
a document composed in a word processor capable of using the \bgreek\ fonts.
This encoding file may be used to produce virtual fonts to and from the \bgreek\ font encoding.
At present it is distributed with the virtual fonts that map \bgreek\ into Claudio Beccari's
Greek fonts, which are part of the standard distribution of the \textsf{Greek} option of the
\texttt{Babel} package, maintained by Apostolos Syropoulos.

\section{Caveats}

At present, the encoding only maps \bgreek\ to the accompanying \texttt{cbgreek.etx} encoding
file.
The production of this software has been partly supported by a grant from the Consejo
Nacional de Ciencia y Tecnologia, Mexico. 

\encoding

\comment{\section{Preliminaries}}

\comment{The following code has been freely borrowed fromt the original \textsf{fontinst}
sources, to adjust some metrics in the file.  This feature may be adjusted or removed
in newer versions.}

\setint{italicslant}{0}

\ifisglyph{x}\then
   \setint{xheight}{\height{x}}
\else
   \setint{xheight}{500}
\fi

\ifisglyph{space}\then
   \setint{interword}{\width{space}}
\else\ifisglyph{i}\then
   \setint{interword}{\width{i}}
\else
   \setint{interword}{333}
\fi\fi

\setint{fontdimen(1)}{\int{italicslant}}              % italic slant
\setint{fontdimen(2)}{\int{interword}}                % interword space
\ifisint{monowidth}\then
   \setint{fontdimen(3)}{0}                           % interword stretch
   \setint{fontdimen(4)}{0}                           % interword shrink
\else
   \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
   \setint{fontdimen(4)}{\scale{\int{interword}}{240}}% interword shrink
\fi
\setint{fontdimen(5)}{\int{xheight}}                  % x-height
\setint{fontdimen(6)}{1000}                           % quad
\ifisint{monowidth}\then
   \setint{fontdimen(7)}{\int{interword}}             % extra space after .
\else
   \setint{fontdimen(7)}{\scale{\int{interword}}{240}}% extra space after .
\fi

\comment{David M.~Jones defined the following dummy characters to implement a wider range
of characters from the Beta Code.}

\setglyph{dicolon}
    \glyph{colon}{1000}
\endsetglyph

\setglyph{latinquestionmark}
    \glyph{dummy}{1000}
\endsetglyph

\setglyph{caseshift}
    \glyph{dummy}{1000}
\endsetglyph

\setglyph{percentshift}
    \glyph{dummy}{1000}
\endsetglyph

\setglyph{hashshift}
    \glyph{dummy}{1000}
\endsetglyph

\setglyph{quoteshift}
    \glyph{dummy}{1000}
\endsetglyph

\setglyph{casehashshift}
    \glyph{dummy}{1000}
\endsetglyph

\setglyph{medialsigma}
    \glyph{sigma}{1000}
\endsetglyph

\setglyph{capsmooth}
    \glyph{smooth}{1000}
\endsetglyph

\setkern{capsmooth}{Alpha}{-138}
\setkern{capsmooth}{Omicron}{-55}
\setkern{capsmooth}{Omega}{-27}

\setglyph{caprough}
    \glyph{rough}{1000}
\endsetglyph

\setkern{caprough}{Alpha}{-166}
\setkern{caprough}{Omicron}{-55}
\setkern{caprough}{Omega}{-27}

\setglyph{capacute}
    \glyph{acute}{1000}
\endsetglyph

\setkern{capacute}{Alpha}{-111}
\setkern{capacute}{Omicron}{-55}
\setkern{capacute}{Omega}{-27}

\setglyph{capsmoothacute}
    \glyph{smoothacute}{1000}
\endsetglyph

\setkern{capsmoothacute}{Alpha}{-83}
\setkern{capsmoothacute}{Omicron}{-27}

\setglyph{caproughacute}
    \glyph{roughacute}{1000}
\endsetglyph

\setkern{caproughacute}{Alpha}{-83}
\setkern{caproughacute}{Omicron}{-27}

\setglyph{capgrave}
    \glyph{grave}{1000}
\endsetglyph

\setkern{capgrave}{Alpha}{-111}
\setkern{capgrave}{Omicron}{-55}
\setkern{capgrave}{Omega}{-27}

\setglyph{capsmoothgrave}
    \glyph{smoothgrave}{1000}
\endsetglyph

\setkern{capsmoothgrave}{Alpha}{-83}
\setkern{capsmoothgrave}{Omicron}{-27}

\setglyph{caproughgrave}
    \glyph{roughgrave}{1000}
\endsetglyph

\setkern{caproughgrave}{Alpha}{-83}
\setkern{caproughgrave}{Omicron}{-27}

\setglyph{capcirc}
    \glyph{circ}{1000}
\endsetglyph

\setkern{capcirc}{Alpha}{-111}

\setglyph{capsmoothcirc}
    \glyph{smoothcirc}{1000}
\endsetglyph

\setkern{capsmoothcirc}{Alpha}{-111}

\setglyph{caproughcirc}
    \glyph{roughcirc}{1000}
\endsetglyph

\setkern{caproughcirc}{Alpha}{-111}

\comment{\section{The Lower Table}}

\comment{The following part of the font occupies the lower part of the table (positions
00 to 31).  These are usually unaccesible from standard Latin keyboards, so they have to be
reached to from ligatures and \TeX\ commands.}

\nextslot{'000}
\setslot{endash}
    \ligature{LIG}{hyphen}{emdash}
\endsetslot

%%  Dummy char to implement *# ligatures from Table 2 of section
%%  1.1.1 of the Beta Code manual.

\nextslot{'001}
\setslot{casehashshift}
    \ligature{LIG}{one}{varqoppa}
    \ligature{LIG}{two}{stigma}
    \ligature{LIG}{three}{Qoppa}
    \ligature{LIG}{four}{stigma}
    \ligature{LIG}{five}{Sampi}
\endsetslot

\nextslot{'002}
\setslot{BoxedLambda}
\endsetslot

\nextslot{'003}
\setslot{BoxedEta}
\endsetslot

\nextslot{'004}
\setslot{BoxedXi}
\endsetslot

\nextslot{'005}
\setslot{BoxedMu}
\endsetslot

\nextslot{'006}
\setslot{stigma}
\endsetslot

\nextslot{'007}
\setslot{vardigamma}
\endsetslot

\nextslot{'010}
\setslot{Ios}
\endsetslot

\nextslot{'011}
\setslot{AlphaIos}
\endsetslot

\nextslot{'012}
\setslot{EtaIos}
\endsetslot

\nextslot{'013}
\setslot{OmegaIos}
\endsetslot

\nextslot{'014}
\setslot{acutedieresis}
\endsetslot

\nextslot{'015}
\setslot{gravedieresis}
\endsetslot

\nextslot{'016}
\setslot{smoothcirc}
\endsetslot

\nextslot{'017}
\setslot{roughcirc}
\endsetslot

\nextslot{'020}
\setslot{roughacute}
\endsetslot

\nextslot{'021}
\setslot{roughgrave}
\endsetslot

\nextslot{'022}
\setslot{varqoppa}
\endsetslot

\nextslot{'023}
\setslot{qoppa}
\endsetslot

\nextslot{'024}
\setslot{capsmooth}
    \ligature{LIG}{acute}{capsmoothacute}
    \ligature{LIG}{grave}{capsmoothgrave}
    \ligature{LIG}{circ}{capsmoothcirc}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'025}
\setslot{caprough}
    \ligature{LIG}{acute}{caproughacute}
    \ligature{LIG}{grave}{caproughgrave}
    \ligature{LIG}{circ}{caproughcirc}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'026}
\setslot{capacute}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'027}
\setslot{capsmoothacute}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'030}
\setslot{plus}
\endsetslot

\nextslot{'031}
\setslot{Sampi}
\endsetslot

\nextslot{'032}
\setslot{caproughacute}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'033}
\setslot{sampi}
\endsetslot

\nextslot{'034}
\setslot{asterisk}
\endsetslot

\nextslot{'035}
\setslot{equal}
\endsetslot

\nextslot{'036}
\setslot{breve}
\endsetslot

\nextslot{'037}
\setslot{Qoppa}
%\setslot{macron}
\endsetslot

%% Beginning of ASCII printable characters

\nextslot{'040}
\setslot{circdieresis}
\endsetslot

\nextslot{'041}
\setslot{exclamationmark}
\endsetslot

\nextslot{'042} %% aka "
\setslot{quoteshift}
    \ligature{LIG}{three}{openquote}
%    \ligature{LIG}{six}{leftguillemot}
\endsetslot

\nextslot{'043} %% aka #
\setslot{hashshift}
    \ligature{LIG}{one}{varqoppa}
    \ligature{LIG}{two}{stigma}
    \ligature{LIG}{three}{qoppa}
    \ligature{LIG}{four}{stigma}
    \ligature{LIG}{five}{sampi}
\endsetslot

\nextslot{'044}
\setslot{caproughgrave}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'045} %% aka %
\setslot{percentshift}
    \ligature{LIG}{one}{latinquestionmark}
    \ligature{LIG}{two}{asterisk}
    \ligature{LIG}{three}{slash}
    \ligature{LIG}{four}{exclamationmark}
    %%  \ligature{LIG}{five}{longverticalbar}
    \ligature{LIG}{six}{equal}
    \ligature{LIG}{seven}{plus}
    \ligature{LIG}{eight}{percent}
    %%  \ligature{LIG}{nine}{ampersand}
\endsetslot

\nextslot{'046}
\setslot{dot}
\endsetslot

\nextslot{'047}
\setslot{closequote}
\endsetslot

\comment{\section{The \bgreek\ font encoding itself}}
\comment{Here is the \bgreek\ font encoding from positions 32 to 128.}

\nextslot{'050}
\setslot{rough}
    \ligature{LIG}{acute}{roughacute}
    \ligature{LIG}{grave}{roughgrave}
    \ligature{LIG}{circ}{roughcirc}
\endsetslot

\nextslot{'051}
\setslot{smooth}
    \ligature{LIG}{acute}{smoothacute}
    \ligature{LIG}{grave}{smoothgrave}
    \ligature{LIG}{circ}{smoothcirc}
\endsetslot

\nextslot{'052} %% aka *
\setslot{caseshift}
    \ligature{LIG}{hashshift}{casehashshift}
    \ligature{LIG}{smooth}{capsmooth}
    \ligature{LIG}{rough}{caprough}
    \ligature{LIG}{circ}{capcirc}
    \ligature{LIG}{alpha}{Alpha}
    \ligature{LIG}{beta}{Beta}
    \ligature{LIG}{xi}{Xi}
    \ligature{LIG}{delta}{Delta}
    \ligature{LIG}{epsilon}{Epsilon}
    \ligature{LIG}{phi}{Phi}
    \ligature{LIG}{gamma}{Gamma}
    \ligature{LIG}{eta}{Eta}
    \ligature{LIG}{iota}{Iota}
    \ligature{LIG}{varsigma}{Sigma}
    \ligature{LIG}{kappa}{Kappa}
    \ligature{LIG}{lambda}{Lambda}
    \ligature{LIG}{mu}{Mu}
    \ligature{LIG}{nu}{Nu}
    \ligature{LIG}{omicron}{Omicron}
    \ligature{LIG}{pi}{Pi}
    \ligature{LIG}{theta}{Theta}
    \ligature{LIG}{rho}{Rho}
    \ligature{LIG}{sigma}{Sigma}
    \ligature{LIG}{tau}{Tau}
    \ligature{LIG}{upsilon}{Upsilon}
    \ligature{LIG}{digamma}{Digamma}
    \ligature{LIG}{omega}{Omega}
    \ligature{LIG}{chi}{Chi}
    \ligature{LIG}{psi}{Psi}
    \ligature{LIG}{zeta}{Zeta}
\endsetslot

\nextslot{'053}
\setslot{dieresis}
\endsetslot

\nextslot{'054}
\setslot{comma}
\endsetslot

\nextslot{'055}
\setslot{hyphen}
    \ligature{LIG}{hyphen}{endash}
\endsetslot

\nextslot{'056}
\setslot{period}
\endsetslot

\nextslot{'057}
\setslot{acute}
\endsetslot

\nextslot{'060}
\setslot{zero}
\endsetslot

\nextslot{'061}
\setslot{one}
\endsetslot

\nextslot{'062}
\setslot{two}
\endsetslot

\nextslot{'063}
\setslot{three}
\endsetslot

\nextslot{'064}
\setslot{four}
\endsetslot

\nextslot{'065}
\setslot{five}
\endsetslot

\nextslot{'066}
\setslot{six}
\endsetslot

\nextslot{'067}
\setslot{seven}
\endsetslot

\nextslot{'070}
\setslot{eight}
\endsetslot

\nextslot{'071}
\setslot{nine}
\endsetslot

\nextslot{'072}
\setslot{semicolon}
\endsetslot

\nextslot{'073}
\setslot{questionmark}
\endsetslot

\nextslot{'074}
\setslot{capgrave}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'075}
\setslot{circ}
\endsetslot

\nextslot{'076}
\setslot{capsmoothgrave}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'077}
\setslot{latinquestionmark}
    \ligature{LIG}{zero}{dicolon}
\endsetslot

\nextslot{'100}
\setslot{medialsigma}
\endsetslot

\nextslot{'101}
\setslot{Alpha}
    \ligature{LIG}{Ios}{AlphaIos}
\endsetslot

\nextslot{'102}
\setslot{Beta}
\endsetslot

\nextslot{'103}
\setslot{Xi}
\endsetslot

\nextslot{'104}
\setslot{Delta}
\endsetslot

\nextslot{'105}
\setslot{Epsilon}
\endsetslot

\nextslot{'106}
\setslot{Phi}
\endsetslot

\nextslot{'107}
\setslot{Gamma}
\endsetslot

\nextslot{'110}
\setslot{Eta}
    \ligature{LIG}{Ios}{EtaIos}
\endsetslot

\nextslot{'111}
\setslot{Iota}
    \ligature{LIG}{dieresis}{Iotadieresis}
\endsetslot

\nextslot{'112}
\setslot{percent}
\endsetslot

\nextslot{'113}
\setslot{Kappa}
\endsetslot

\nextslot{'114}
\setslot{Lambda}
\endsetslot

\nextslot{'115}
\setslot{Mu}
\endsetslot

\nextslot{'116}
\setslot{Nu}
\endsetslot

\nextslot{'117}
\setslot{Omicron}
\endsetslot

\nextslot{'120}
\setslot{Pi}
   %%  \ligature{LIG}{Sigma}{Psi} %% ?
   %%  \ligature{LIG}{sigma}{Psi} %% ?
\endsetslot

\nextslot{'121}
\setslot{Theta}
\endsetslot

\nextslot{'122}
\setslot{Rho}
\endsetslot

\nextslot{'123}
\setslot{Sigma}
    \ligature{LIG}{one}{Sigma}
    \ligature{LIG}{two}{Sigma}
    \ligature{LIG}{three}{Sigma} %% ?
\endsetslot

\nextslot{'124}
\setslot{Tau}
\endsetslot

\nextslot{'125}
\setslot{Upsilon}
    \ligature{LIG}{dieresis}{Upsilondieresis}
\endsetslot

\nextslot{'126}
\setslot{Digamma}
\endsetslot

\nextslot{'127}
\setslot{Omega}
    \ligature{LIG}{Ios}{OmegaIos}
\endsetslot

\nextslot{'130}
\setslot{Chi}
\endsetslot

\nextslot{'131}
\setslot{Psi}
\endsetslot

\nextslot{'132}
\setslot{Zeta}
\endsetslot

\nextslot{'133}
\setslot{leftsqbracket}
    \ligature{LIG}{one}{parenleft}
\endsetslot

\nextslot{'134}
\setslot{grave}
\endsetslot

\nextslot{'135}
\setslot{rightsqbracket}
    \ligature{LIG}{one}{parenright}
\endsetslot

\nextslot{'136}
\setslot{smoothacute}
\endsetslot

\nextslot{'137}
\setslot{smoothgrave}
\endsetslot

\nextslot{'140}
\setslot{openquote}
%    \ligature{LIG/}{boundarychar}{closequote}
\endsetslot

\nextslot{'141}
\setslot{alpha}
    \ligature{LIG}{acute}{alphaacute}
    \ligature{LIG}{grave}{alphagrave}
    \ligature{LIG}{circ}{alphacirc}

    \ligature{LIG}{rough}{alpharough}
    \ligature{LIG}{smooth}{alphasmooth}

    \ligature{LIG}{ios}{alphaios}
\endsetslot

\nextslot{'142}
\setslot{beta}
\endsetslot

\nextslot{'143}
\setslot{xi}
\endsetslot

\nextslot{'144}
\setslot{delta}
\endsetslot

\nextslot{'145}
\setslot{epsilon}
    \ligature{LIG}{acute}{epsilonacute}
    \ligature{LIG}{grave}{epsilongrave}

    \ligature{LIG}{rough}{epsilonrough}
    \ligature{LIG}{smooth}{epsilonsmooth}
\endsetslot

\nextslot{'146}
\setslot{phi}
\endsetslot

\nextslot{'147}
\setslot{gamma}
\endsetslot

\nextslot{'150}
\setslot{eta}
    \ligature{LIG}{acute}{etaacute}
    \ligature{LIG}{grave}{etagrave}
    \ligature{LIG}{circ}{etacirc}

    \ligature{LIG}{rough}{etarough}
    \ligature{LIG}{smooth}{etasmooth}

    \ligature{LIG}{ios}{etaios}
\endsetslot

\nextslot{'151}
\setslot{iota}
    \ligature{LIG}{acute}{iotaacute}
    \ligature{LIG}{grave}{iotagrave}
    \ligature{LIG}{circ}{iotacirc}
    \ligature{LIG}{dieresis}{iotadieresis}

    \ligature{LIG}{rough}{iotarough}
    \ligature{LIG}{smooth}{iotasmooth}
\endsetslot

\nextslot{'152}
\setslot{varsigma}
\endsetslot

\nextslot{'153}
\setslot{kappa}
\endsetslot

\nextslot{'154}
\setslot{lambda}
\endsetslot

\nextslot{'155}
\setslot{mu}
\endsetslot

\nextslot{'156}
\setslot{nu}
\endsetslot

\nextslot{'157}
\setslot{omicron}
    \ligature{LIG}{acute}{omicronacute}
    \ligature{LIG}{grave}{omicrongrave}

    \ligature{LIG}{rough}{omicronrough}
    \ligature{LIG}{smooth}{omicronsmooth}
\endsetslot

\nextslot{'160}
\setslot{pi}
   %% \ligature{LIG}{sigma}{psi} %% ?
\endsetslot

\nextslot{'161}
\setslot{theta}
\endsetslot

\nextslot{'162}
\setslot{rho}
    \ligature{LIG}{rough}{rhorough}
    \ligature{LIG}{smooth}{rhosmooth}
\endsetslot

\nextslot{'163}
\setslot{sigma}
    \ligature{LIG}{one}{medialsigma}
    \ligature{LIG}{two}{varsigma}
    \ligature{LIG}{three}{varsigma} %% ?

    \ligature{LIG/}{period}{varsigma}
    \ligature{LIG/}{comma}{varsigma}
    \ligature{LIG/}{semicolon}{varsigma}
    \ligature{LIG/}{exclamationmark}{varsigma}
    \ligature{LIG/}{questionmark}{varsigma}
    \ligature{LIG/}{acute}{varsigma}
    \ligature{LIG/}{rightsqbracket}{varsigma}
    \ligature{LIG/}{boundarychar}{varsigma}
    \ligature{LIG/}{closequote}{varsigma}
    \ligature{LIG/}{asterisk}{varsigma}

    \ligature{LIG/}{quoteshift}{varsigma}
    \ligature{LIG/}{percentshift}{varsigma}
\endsetslot

\nextslot{'164}
\setslot{tau}
\endsetslot

\nextslot{'165}
\setslot{upsilon}
    \ligature{LIG}{acute}{upsilonacute}
    \ligature{LIG}{grave}{upsilongrave}
    \ligature{LIG}{circ}{upsiloncirc}
    \ligature{LIG}{dieresis}{upsilondieresis}

    \ligature{LIG}{rough}{upsilonrough}
    \ligature{LIG}{smooth}{upsilonsmooth}
\endsetslot

\nextslot{'166}
\setslot{digamma}
\endsetslot

\nextslot{'167}
\setslot{omega}
    \ligature{LIG}{acute}{omegaacute}
    \ligature{LIG}{grave}{omegagrave}
    \ligature{LIG}{circ}{omegacirc}

    \ligature{LIG}{rough}{omegarough}
    \ligature{LIG}{smooth}{omegasmooth}

    \ligature{LIG}{ios}{omegaios}
\endsetslot

\nextslot{'170}
\setslot{chi}
\endsetslot

\nextslot{'171}
\setslot{psi}
\endsetslot

\nextslot{'172}
\setslot{zeta}
\endsetslot

\nextslot{'173}
\setslot{leftguillemot}
%    \ligature{LIG/}{boundarychar}{rightguillemot}
\endsetslot

\nextslot{'174}
\setslot{ios}
\endsetslot

\nextslot{'175}
\setslot{rightguillemot}
\endsetslot

\nextslot{'176}
\setslot{dicolon}
\endsetslot

%% End of ASCII printable characters.

\nextslot{'177}
\setslot{emdash}
\endsetslot

\comment{\section{The Upper Table}}
\comment{The encoding in the upper table follows closely the encoding of
Claudio Beccari's fonts, save for two or three characters that had to be moved up to 
allocate the ligatures in the lower table.}

\nextslot{'200}
\setslot{alphagrave}
    \ligature{LIG}{ios}{alphagraveios}
\endsetslot

\nextslot{'201}
\setslot{alpharough}
    \ligature{LIG}{acute}{alpharoughacute}
    \ligature{LIG}{grave}{alpharoughgrave}
    \ligature{LIG}{circ}{alpharoughcirc}

    \ligature{LIG}{ios}{alpharoughios}
\endsetslot

\nextslot{'202}
\setslot{alphasmooth}
    \ligature{LIG}{acute}{alphasmoothacute}
    \ligature{LIG}{grave}{alphasmoothgrave}
    \ligature{LIG}{circ}{alphasmoothcirc}

    \ligature{LIG}{ios}{alphasmoothios}
\endsetslot

\nextslot{'203}
\setslot{alpharoughgrave}
    \ligature{LIG}{ios}{alpharoughgraveios}
\endsetslot

\nextslot{'204}
\setslot{alphagraveios}
\endsetslot

\nextslot{'205}
\setslot{alpharoughios}
\endsetslot

\nextslot{'206}
\setslot{alphasmoothios}
\endsetslot

\nextslot{'207}
\setslot{alpharoughgraveios}
\endsetslot

\nextslot{'210}
\setslot{alphaacute}
    \ligature{LIG}{ios}{alphaacuteios}
\endsetslot

\nextslot{'211}
\setslot{alpharoughacute}
    \ligature{LIG}{ios}{alpharoughacuteios}
\endsetslot

\nextslot{'212}
\setslot{alphasmoothacute}
    \ligature{LIG}{ios}{alphasmoothacuteios}
\endsetslot

\nextslot{'213}
\setslot{alphasmoothgrave}
    \ligature{LIG}{ios}{alphasmoothgraveios}
\endsetslot

\nextslot{'214}
\setslot{alphaacuteios}
\endsetslot

\nextslot{'215}
\setslot{alpharoughacuteios}
\endsetslot

\nextslot{'216}
\setslot{alphasmoothacuteios}
\endsetslot

\nextslot{'217}
\setslot{alphasmoothgraveios}
\endsetslot

\nextslot{'220}
\setslot{alphacirc}
    \ligature{LIG}{ios}{alphacircios}
\endsetslot

\nextslot{'221}
\setslot{alpharoughcirc}
    \ligature{LIG}{ios}{alpharoughcircios}
\endsetslot

\nextslot{'222}
\setslot{alphasmoothcirc}
    \ligature{LIG}{ios}{alphasmoothcircios}
\endsetslot

\nextslot{'223}
\setslot{alphaios}
\endsetslot

\nextslot{'224}
\setslot{alphacircios}
\endsetslot

\nextslot{'225}
\setslot{alpharoughcircios}
\endsetslot

\nextslot{'226}
\setslot{alphasmoothcircios}
\endsetslot

\nextslot{'227}
\setslot{capcirc}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'230}
\setslot{etagrave}
    \ligature{LIG}{ios}{etagraveios}
\endsetslot

\nextslot{'231}
\setslot{etarough}
    \ligature{LIG}{acute}{etaroughacute}
    \ligature{LIG}{grave}{etaroughgrave}
    \ligature{LIG}{circ}{etaroughcirc}

    \ligature{LIG}{ios}{etaroughios}
\endsetslot

\nextslot{'232}
\setslot{etasmooth}
    \ligature{LIG}{acute}{etasmoothacute}
    \ligature{LIG}{grave}{etasmoothgrave}
    \ligature{LIG}{circ}{etasmoothcirc}

    \ligature{LIG}{ios}{etasmoothios}
\endsetslot

\nextslot{'233}
\setslot{etaios}
\endsetslot

\nextslot{'234}
\setslot{etagraveios}
\endsetslot

\nextslot{'235}
\setslot{etaroughios}
\endsetslot

\nextslot{'236}
\setslot{etasmoothios}
\endsetslot

\nextslot{'237}
\setslot{capsmoothcirc}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'240}
\setslot{etaacute}
    \ligature{LIG}{ios}{etaacuteios}
\endsetslot

\nextslot{'241}
\setslot{etaroughacute}
    \ligature{LIG}{ios}{etaroughacuteios}
\endsetslot

\nextslot{'242}
\setslot{etasmoothacute}
    \ligature{LIG}{ios}{etasmoothacuteios}
\endsetslot

\nextslot{'243}
\setslot{etaroughgrave}
    \ligature{LIG}{ios}{etaroughgraveios}
\endsetslot

\nextslot{'244}
\setslot{etaacuteios}
\endsetslot

\nextslot{'245}
\setslot{etaroughacuteios}
\endsetslot

\nextslot{'246}
\setslot{etasmoothacuteios}
\endsetslot

\nextslot{'247}
\setslot{etaroughgraveios}
\endsetslot

\nextslot{'250}
\setslot{etacirc}
    \ligature{LIG}{ios}{etacircios}
\endsetslot

\nextslot{'251}
\setslot{etaroughcirc}
    \ligature{LIG}{ios}{etaroughcircios}
\endsetslot

\nextslot{'252}
\setslot{etasmoothcirc}
    \ligature{LIG}{ios}{etasmoothcircios}
\endsetslot

\nextslot{'253}
\setslot{etasmoothgrave}
    \ligature{LIG}{ios}{etasmoothgraveios}
\endsetslot

\nextslot{'254}
\setslot{etacircios}
\endsetslot

\nextslot{'255}
\setslot{etaroughcircios}
\endsetslot

\nextslot{'256}
\setslot{etasmoothcircios}
\endsetslot

\nextslot{'257}
\setslot{etasmoothgraveios}
\endsetslot

\nextslot{'260}
\setslot{omegagrave}
    \ligature{LIG}{ios}{omegagraveios}
\endsetslot

\nextslot{'261}
\setslot{omegarough}
    \ligature{LIG}{acute}{omegaroughacute}
    \ligature{LIG}{grave}{omegaroughgrave}
    \ligature{LIG}{circ}{omegaroughcirc}

    \ligature{LIG}{ios}{omegaroughios}
\endsetslot

\nextslot{'262}
\setslot{omegasmooth}
    \ligature{LIG}{acute}{omegasmoothacute}
    \ligature{LIG}{grave}{omegasmoothgrave}
    \ligature{LIG}{circ}{omegasmoothcirc}

    \ligature{LIG}{ios}{omegasmoothios}
\endsetslot

\nextslot{'263}
\setslot{omegaroughgrave}
    \ligature{LIG}{ios}{omegaroughgraveios}
\endsetslot

\nextslot{'264}
\setslot{omegagraveios}
\endsetslot

\nextslot{'265}
\setslot{omegaroughios}
\endsetslot

\nextslot{'266}
\setslot{omegasmoothios}
\endsetslot

\nextslot{'267}
\setslot{omegaroughgraveios}
\endsetslot

\nextslot{'270}
\setslot{omegaacute}
    \ligature{LIG}{ios}{omegaacuteios}
\endsetslot

\nextslot{'271}
\setslot{omegaroughacute}
    \ligature{LIG}{ios}{omegaroughacuteios}
\endsetslot

\nextslot{'272}
\setslot{omegasmoothacute}
    \ligature{LIG}{ios}{omegasmoothacuteios}
\endsetslot

\nextslot{'273}
\setslot{omegasmoothgrave}
    \ligature{LIG}{ios}{omegasmoothgraveios}
\endsetslot

\nextslot{'274}
\setslot{omegaacuteios}
\endsetslot

\nextslot{'275}
\setslot{omegaroughacuteios}
\endsetslot

\nextslot{'276}
\setslot{omegasmoothacuteios}
\endsetslot

\nextslot{'277}
\setslot{omegasmoothgraveios}
\endsetslot

\nextslot{'300}
\setslot{omegacirc}
    \ligature{LIG}{ios}{omegacircios}
\endsetslot

\nextslot{'301}
\setslot{omegaroughcirc}
    \ligature{LIG}{ios}{omegaroughcircios}
\endsetslot

\nextslot{'302}
\setslot{omegasmoothcirc}
    \ligature{LIG}{ios}{omegasmoothcircios}
\endsetslot

\nextslot{'303}
\setslot{omegaios}
\endsetslot

\nextslot{'304}
\setslot{omegacircios}
\endsetslot

\nextslot{'305}
\setslot{omegaroughcircios}
\endsetslot

\nextslot{'306}
\setslot{omegasmoothcircios}
\endsetslot

\nextslot{'307}
\setslot{caproughcirc}
    \ligature{/LIG}{alpha}{Alpha}
    \ligature{/LIG}{epsilon}{Epsilon}
    \ligature{/LIG}{eta}{Eta}
    \ligature{/LIG}{iota}{Iota}
    \ligature{/LIG}{omicron}{Omicron}
    \ligature{/LIG}{upsilon}{Upsilon}
    \ligature{/LIG}{omega}{Omega}
\endsetslot

\nextslot{'310}
\setslot{iotagrave}
    \ligature{LIG}{dieresis}{iotagravedieresis}
\endsetslot

\nextslot{'311}
\setslot{iotarough}
    \ligature{LIG}{acute}{iotaroughacute}
    \ligature{LIG}{grave}{iotaroughgrave}
    \ligature{LIG}{circ}{iotaroughcirc}
\endsetslot

\nextslot{'312}
\setslot{iotasmooth}
    \ligature{LIG}{acute}{iotasmoothacute}
    \ligature{LIG}{grave}{iotasmoothgrave}
    \ligature{LIG}{circ}{iotasmoothcirc}
\endsetslot

\nextslot{'313}
\setslot{iotaroughgrave}
\endsetslot

\nextslot{'314}
\setslot{upsilongrave}
    \ligature{LIG}{dieresis}{upsilongravedieresis}
\endsetslot

\nextslot{'315}
\setslot{upsilonrough}
    \ligature{LIG}{acute}{upsilonroughacute}
    \ligature{LIG}{grave}{upsilonroughgrave}
    \ligature{LIG}{circ}{upsilonroughcirc}
\endsetslot

\nextslot{'316}
\setslot{upsilonsmooth}
    \ligature{LIG}{acute}{upsilonsmoothacute}
    \ligature{LIG}{grave}{upsilonsmoothgrave}
    \ligature{LIG}{circ}{upsilonsmoothcirc}
\endsetslot

\nextslot{'317}
\setslot{upsilonroughgrave}
\endsetslot

\nextslot{'320}
\setslot{iotaacute}
    \ligature{LIG}{dieresis}{iotaacutedieresis}
\endsetslot

\nextslot{'321}
\setslot{iotaroughacute}
\endsetslot

\nextslot{'322}
\setslot{iotasmoothacute}
\endsetslot

\nextslot{'323}
\setslot{iotasmoothgrave}
\endsetslot

\nextslot{'324}
\setslot{upsilonacute}
    \ligature{LIG}{dieresis}{upsilonacutedieresis}
\endsetslot

\nextslot{'325}
\setslot{upsilonroughacute}
\endsetslot

\nextslot{'326}
\setslot{upsilonsmoothacute}
\endsetslot

\nextslot{'327}
\setslot{upsilonsmoothgrave}
\endsetslot

\nextslot{'330}
\setslot{iotacirc}
    \ligature{LIG}{dieresis}{iotacircdieresis}
\endsetslot

\nextslot{'331}
\setslot{iotaroughcirc}
\endsetslot

\nextslot{'332}
\setslot{iotasmoothcirc}
\endsetslot

\nextslot{'333}
\setslot{Iotadieresis}
\endsetslot

\nextslot{'334}
\setslot{upsiloncirc}
    \ligature{LIG}{dieresis}{upsiloncircdieresis}
\endsetslot

\nextslot{'335}
\setslot{upsilonroughcirc}
\endsetslot

\nextslot{'336}
\setslot{upsilonsmoothcirc}
\endsetslot

\nextslot{'337}
\setslot{Upsilondieresis}
\endsetslot

\nextslot{'340}
\setslot{epsilongrave}
\endsetslot

\nextslot{'341}
\setslot{epsilonrough}
    \ligature{LIG}{acute}{epsilonroughacute}
    \ligature{LIG}{grave}{epsilonroughgrave}
\endsetslot

\nextslot{'342}
\setslot{epsilonsmooth}
    \ligature{LIG}{acute}{epsilonsmoothacute}
    \ligature{LIG}{grave}{epsilonsmoothgrave}
\endsetslot

\nextslot{'343}
\setslot{epsilonroughgrave}
\endsetslot

\nextslot{'344}
\setslot{omicrongrave}
\endsetslot

\nextslot{'345}
\setslot{omicronrough}
    \ligature{LIG}{acute}{omicronroughacute}
    \ligature{LIG}{grave}{omicronroughgrave}
\endsetslot

\nextslot{'346}
\setslot{omicronsmooth}
    \ligature{LIG}{acute}{omicronsmoothacute}
    \ligature{LIG}{grave}{omicronsmoothgrave}
\endsetslot

\nextslot{'347}
\setslot{omicronroughgrave}
\endsetslot

\nextslot{'350}
\setslot{epsilonacute}
\endsetslot

\nextslot{'351}
\setslot{epsilonroughacute}
\endsetslot

\nextslot{'352}
\setslot{epsilonsmoothacute}
\endsetslot

\nextslot{'353}
\setslot{epsilonsmoothgrave}
\endsetslot

\nextslot{'354}
\setslot{omicronacute}
\endsetslot

\nextslot{'355}
\setslot{omicronroughacute}
\endsetslot

\nextslot{'356}
\setslot{omicronsmoothacute}
\endsetslot

\nextslot{'357}
\setslot{omicronsmoothgrave}
\endsetslot

\nextslot{'360}
\setslot{iotadieresis}
    \ligature{LIG}{acute}{iotaacutedieresis}
    \ligature{LIG}{grave}{iotagravedieresis}
\endsetslot

\nextslot{'361}
\setslot{iotagravedieresis}
\endsetslot

\nextslot{'362}
\setslot{iotaacutedieresis}
\endsetslot

\nextslot{'363}
\setslot{iotacircdieresis}
\endsetslot

\nextslot{'364}
\setslot{upsilondieresis}
    \ligature{LIG}{acute}{upsilonacutedieresis}
    \ligature{LIG}{grave}{upsilongravedieresis}
\endsetslot

\nextslot{'365}
\setslot{upsilongravedieresis}
\endsetslot

\nextslot{'366}
\setslot{upsilonacutedieresis}
\endsetslot

\nextslot{'367}
\setslot{upsiloncircdieresis}
\endsetslot

\nextslot{'370}
\setslot{parenleft}
\endsetslot

\nextslot{'371}
\setslot{parenright}
\endsetslot

\nextslot{'372}
\setslot{slash}
\endsetslot

\nextslot{'373}
\setslot{rhorough}
\endsetslot

\nextslot{'374}
\setslot{rhosmooth}
\endsetslot

\nextslot{'375}
\setslot{boundarychar}
\endsetslot

\nextslot{'376}
\setslot{anwtonos}
\endsetslot

\nextslot{'377}
\setslot{katwtonos}
\endsetslot

\endencoding
\end{document}
