[original]. encoded in ISO-8859-7, but nothing in this file indicates it, so it's up to your browser's encoding detection. version with <meta charset> specified. posted here 2022-05-24, original code from like 2000, this stuff is obsolete on the modern internet.

/* Κονvερσιον οφ Γρεεκ τεξτ φρομ Λατιν τρανσλιτερατιον, wριττεν ιν ΑΣΚΙΙ, το ρεαλ Γρεεκ ιν ΙΣΟ 8859-7. Ασσυμεσ α σιμπλε τρανσλατιον (wιθουτ διακριτιξ):
αλφα a
βετα b
γαμμα g
δελτα d
εψιλον e
ζετα z
ετα e:
θετα th
ιοτα i
καππα k (or c)
λαμβδα l
μυ m
νυ n
ξι x (or ks)
ομικρον o
πι p
ρο r (or rh)
σιγμα s
ταυ t
υψιλον y (or u)
φι f (or ph)
χι kh (or ph)
ψι ps
ομεγα o:
Το υσε θισ προγραμ, τακε α φιλε κονταινινγ Γρεεκ τεξτ ιν Λατιν τρανσλατιον (πλαιν τεξτ, νο ΤΜΛ μαρκυπ), γιvε ιτ ασ ινπυτ το θισ προγραμ, ανδ θεν ινσερτ θε ρεσυλτινγ φιλε ιντο αν ΤΜΛ δοκυμεντ το αν αππροπριατε πλακε, ανδ αδδ μαρκυπ λικε <p> φορ ινδικατινγ παραγραφσ. Σεε ττπ://www.υτ.φι/υ/ικορπελα/προγ/τστ.τξτ φορ τριvιαλ σαμπλε δατα ανδ ττπ://www.υτ.φι/υ/ικορπελα/προγ/τεστ.τμ7 φορ αν ΤΜΛ φιλε wιχ κονταινσ θε κονvερτεδ δατα. */

#ινκλυδε <στδιο.h>
#ινκλυδε <κτυπε.h>

#δεφινε ΛΕΝΓΘ ':'

ιντ μαιν(vοιδ)
{
ιντ χ, νεξτχ;
wιλε((χ=γετχαρ()) != ΕΟΦ)
    σwιτχ(χ) {
      κασε 'A' : πυτχαρ(0ξΚ1); βρεακ;
      κασε 'B' : πυτχαρ(0ξΚ2); βρεακ;
      κασε 'C' :
      κασε 'K' : ιφ( (νεξτχ=γετχαρ()) == 'H' || νεξτχ == 'h')
                   { πυτχαρ(0ξΔ7); βρεακ; }
                 ελσε ιφ(νεξτχ == 'S' || νεξτχ == 's')
                   { πυτχαρ(0ξΚΕ); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΚΑ); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'D' : πυτχαρ(0ξΚ4); βρεακ;
      κασε 'E' : ιφ( (νεξτχ=γετχαρ()) == ΛΕΝΓΘ )
                   { πυτχαρ(0ξΚ7); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΚ5); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'F' : πυτχαρ(0ξΔ6); βρεακ;
      κασε 'G' : πυτχαρ(0ξΚ3); βρεακ;
      κασε 'H' : βρεακ;
      κασε 'I' :
      κασε 'J' : πυτχαρ(0ξΚ9); βρεακ;
      κασε 'L' : πυτχαρ(0ξΚΒ); βρεακ;
      κασε 'M' : πυτχαρ(0ξΚΚ); βρεακ;
      κασε 'N' : πυτχαρ(0ξΚΔ); βρεακ;
      κασε 'O' : ιφ( (νεξτχ=γετχαρ()) == ΛΕΝΓΘ )
                   { πυτχαρ(0ξΔ9); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΚΦ); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'P' : ιφ( (νεξτχ=γετχαρ()) == 'H' || νεξτχ == 'h')
                   { πυτχαρ(0ξΔ6); βρεακ; }
                 ελσε ιφ(νεξτχ == 'S' || νεξτχ == 's')
                   { πυτχαρ(0ξΔ8); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΔ0); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'R' : πυτχαρ(0ξΔ1); βρεακ;
      κασε 'S' : πυτχαρ(0ξΔ3); βρεακ;
      κασε 'T' : ιφ( (νεξτχ=γετχαρ()) == 'H' || νεξτχ == 'h')
                   { πυτχαρ(0ξΚ8); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΔ4); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'U' :
      κασε 'Y' : πυτχαρ(0ξΔ5); βρεακ;
      κασε 'X' : πυτχαρ(0ξΚΕ); βρεακ;
      κασε 'Z' : πυτχαρ(0ξΚ6); βρεακ;

      κασε 'a' : πυτχαρ(0ξΕ1); βρεακ;
      κασε 'b' : πυτχαρ(0ξΕ2); βρεακ;
      κασε 'c' :
      κασε 'k' : ιφ( (νεξτχ=γετχαρ()) == 'h')
                   { πυτχαρ(0ξΦ7); βρεακ; }
                 ελσε ιφ(νεξτχ == 's')
                   { πυτχαρ(0ξΕΕ); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΕΑ); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'd' : πυτχαρ(0ξΕ4); βρεακ;
      κασε 'e' : ιφ( (νεξτχ=γετχαρ()) == ΛΕΝΓΘ )
                   { πυτχαρ(0ξΕ7); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΕ5); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'f' : πυτχαρ(0ξΦ6); βρεακ;
      κασε 'g' : πυτχαρ(0ξΕ3); βρεακ;
      κασε 'h' : βρεακ;
      κασε 'i' :
      κασε 'j' : πυτχαρ(0ξΕ9); βρεακ;
      κασε 'l' : πυτχαρ(0ξΕΒ); βρεακ;
      κασε 'm' : πυτχαρ(0ξΕΚ); βρεακ;
      κασε 'n' : πυτχαρ(0ξΕΔ); βρεακ;
      κασε 'o' : ιφ( (νεξτχ=γετχαρ()) == ΛΕΝΓΘ )
                   { πυτχαρ(0ξΦ9); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΕΦ); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'p' : ιφ( (νεξτχ=γετχαρ()) == 'h')
                   { πυτχαρ(0ξΦ6); βρεακ; }
                 ελσε ιφ(νεξτχ == 's')
                   { πυτχαρ(0ξΦ8); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΦ0); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'r' : πυτχαρ(0ξΦ1); βρεακ;
      κασε 's' : πυτχαρ(0ξΦ3); βρεακ;
      κασε 't' : ιφ( (νεξτχ=γετχαρ()) == 'h')
                   { πυτχαρ(0ξΕ8); βρεακ; }
                 ελσε
                   { πυτχαρ(0ξΦ4); υνγετκ(νεξτχ, στδιν); βρεακ; }
      κασε 'u' :
      κασε 'y' : πυτχαρ(0ξΦ5); βρεακ;
      κασε 'x' : πυτχαρ(0ξΕΕ); βρεακ;
      κασε 'z' : πυτχαρ(0ξΕ6); βρεακ;

      δεφαυλτ  : πυτχαρ(χ);
    }
}

The test file linked above contains:

Philosophia kai tekhne:.

Passed through this program, it is turned into:

Φιλοσοφια και τεχνη.