#!/usr/local/bin/perl -w
#
# Convert ISO Latin 2 from 8-bit to SGML entities
# et 22/4/96
# V.0
#
while (<>) {
#    s/\&/&amp;/go;		# protect dangerous SGML chars
#    s/</&lt;/go;

#    s/\xB0/&ring\;/go;
    s/\xB0/&deg;/go;

    s/\xA0/&unused\;/go;
    s/\xA2/&breve\;/go;
    s/\xA8/&uml\;/go;
    s/\xB2/&ogon\;/go;
    s/\xB4/&acute\;/go;
    s/\xB7/&caron\;/go;
    s/\xB8/&cedil\;/go;
    s/\xBD/&dblac\;/go;
    s/\xFF/&dot\;/go;
    s/\xD7/&times\;/go;
    s/\xF7/&divide\;/go;
    s/\xA4/&circro\;/go;   #??? circle with bars - telephone? microphone?
    s/\xAD/&dash\;/go;     #??? thick short dash / hyphen
    s/\xE1/&aacute\;/go;
    s/\xC1/&Aacute\;/go;
    s/\xB1/&aogon\;/go;
    s/\xA1/&Aogon\;/go;
    s/\xE2/&acirc\;/go;
    s/\xC2/&Acirc\;/go;
    s/\xE3/&abreve\;/go;
    s/\xC3/&Abreve\;/go;
    s/\xE4/&auml\;/go;
    s/\xC4/&Auml\;/go;
    s/\xE6/&cacute\;/go;
    s/\xC6/&Cacute\;/go;
    s/\xE8/&ccaron\;/go;
    s/\xC8/&Ccaron\;/go;
    s/\xE7/&ccedil\;/go;
    s/\xC7/&Ccedil\;/go;
    s/\xEF/&dcaron\;/go;   #Equivalent to small Dcaron, but looks like d'
    s/\xEF/&dmidot\;/go;   #so it dould be 'middle dot', same as as lmidot
    s/\xCF/&Dcaron\;/go;
    s/\xF0/&dstrok\;/go;
    s/\xD0/&Dstrok\;/go;
    s/\xE9/&eacute\;/go;
    s/\xC9/&Eacute\;/go;
    s/\xEC/&ecaron\;/go;
    s/\xCC/&Ecaron\;/go;
    s/\xEA/&eogon\;/go;
    s/\xCA/&Eogon\;/go;
    s/\xEB/&euml\;/go;
    s/\xCB/&Euml\;/go;
    s/\xED/&iacute\;/go;
    s/\xCD/&Iacute\;/go;
    s/\xEE/&icirc\;/go;
    s/\xCE/&Icirc\;/go;
    s/\xE5/&lacute\;/go;
    s/\xC5/&Lacute\;/go;
    s/\xB5/&lmidot\;/go;
    s/\xA5/&Lmidot\;/go;
    s/\xB3/&lstrok\;/go;
    s/\xA3/&Lstrok\;/go;
    s/\xF1/&nacute\;/go;
    s/\xD1/&Nacute\;/go;
    s/\xF2/&ncaron\;/go;
    s/\xD2/&Ncaron\;/go;
    s/\xF3/&oacute\;/go;
    s/\xD3/&Oacute\;/go;
    s/\xF4/&ocirc\;/go;
    s/\xD4/&Ocirc\;/go;
    s/\xF5/&odblac\;/go;
    s/\xD5/&Odblac\;/go;
    s/\xF6/&ouml\;/go;
    s/\xD6/&Ouml\;/go;
    s/\xE0/&racute\;/go;
    s/\xC0/&Racute\;/go;
    s/\xF8/&rcaron\;/go;
    s/\xD8/&Rcaron\;/go;
    s/\xB6/&sacute\;/go;
    s/\xA6/&Sacute\;/go;
    s/\xB9/&scaron\;/go;
    s/\xA9/&Scaron\;/go;
    s/\xBA/&scedil\;/go;
    s/\xAA/&Scedil\;/go;
    s/\xDF/&szlig\;/go;
    s/\xBB/&tcaron\;/go;   #Equivalent to small Tcaron, but looks like t'
    s/\xBB/&tmidot\;/go;   #so it dould be 'middle dot', same as as lmidot
    s/\xAB/&Tcaron\;/go;
    s/\xFE/&tcedil\;/go;
    s/\xDE/&Tcedil\;/go;
    s/\xF9/&uring\;/go;
    s/\xD9/&Uring\;/go;
    s/\xFA/&uacute\;/go;
    s/\xDA/&Uacute\;/go;
    s/\xFB/&udblac\;/go;
    s/\xDB/&Udblac\;/go;
    s/\xFC/&uuml\;/go;
    s/\xDC/&Uuml\;/go;
    s/\xFD/&yacute\;/go;
    s/\xDD/&Yacute\;/go;
    s/\xBC/&zacute\;/go;
    s/\xAC/&Zacute\;/go;
    s/\xBE/&zcaron\;/go;
    s/\xAE/&Zcaron\;/go;
    s/\xBF/&zdot\;/go;
    s/\xAF/&Zdot\;/go;
    print;
}