#! /usr/local/bin/perl
# 4372elot.pl -- Version 1.00a 98.01.09 10:57
#               (Version 1.00 95.01.06 11:08)
# (c) 1995-1998 Hellenic Resources Institute, Inc.
#
# This script is a filter from CodePage437 Greek to Elot928 Greek.
# Command line: 4372elot.pl < InFile > OutFile
while(<>) {
  tr [\200-\227\230-\257\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356?] [\301-\321\323-\331\341-\361\363\362\364-\371\334\335\336\372\337\374\375\373\376\242\270\271\272\274'] ;
  print;
}
