NB not quite right at present!!! And the code below is messed up! Contact me if interested...

Standard English

abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZs.s,s ckeechkhphrhthchoopsEeChKhPhRhThChOoPs

The quick brown fox jumped over the lazy dog.

I was looking at some rhododendrons in my back garden, dressed in my khaki shorts, when the telephone rang. As I answered

it, I cheerfully glimpsed that the July sun caused a fragment of black pine wax to ooze on the velvet quilt laying in my patio.

Sphinx of black quartz, judge my vow.


Pre-parsed to find the special cases

abcdefghiiklmnopkrstubwxuzABCDEFGHIIKLMNOPKRSTUBWXUZ@.@,@ k!{£$^&{()1}3467}90

7e kuik brown fox iumped ober &e lazu dog.

I wa@ l(king at some ^ododendron@ in mu bak garden, dressed in mu £aki short@, when &e tele$one rang. A@ I answered it,

I {!rfullu glim)ed &at &e Iulu sun caused a fragment of blak pine wax to (ze on &e belbet kuilt lauing in mu patio.

S$inx of blak kuartz, iudge mu bow.


'Greek' transliteration

αβχδεφγηιικλμνοπκρσθυβξυζΑΒΧΔΕΦΓΗΙΙΚΛΜΝΟΠΚΡΣΘΥΒΞΥΖς,ςς κΗΧΚΦΡΘΧΩΨχκφρθωκψ.

ωε κυικ

βρον φοξ ιυμπεδ οβερ Θε λαζυ δογ,

Ι ας λΩκινγ αθ σομε Ροδοδενδρονς ιν μυ βακ γαρδεν δρεσσεδ ιν μυ Κακι σηορθς ηεν

Θε θελεΦονε ρανγ, Ας Ι ανσερεδ ιθ Ι ΧΗρφυλλυ γλιμΨεδ Θαθ Θε Ιυλυ συν χαυσεδ α φραγμενθ οφ βλακ πινε αξ θο Ωζε ον Θε βελβεθ

κυιλθ λαυινγ ιν μυ παθιο,

ΣΦινξ οφ βλακ κυαρθζ ιυδγε μυ βο,


LB code


'   **********************************************************************************************************
'   **                                                                                                      **
    
    
'   **********************************************************************************************************
    
    nomainwin

    dim lookUp$( 200)

    for i =1 to 64
        read a$
        lookUp$( i) =a$
    next i

    lookUp$( 69)    =chr$( 13)
    lookUp$( 70)    =chr$( 10)

    lookUp$( 65)    ="."
    lookUp$( 66)    ="."
    lookUp$( 67)    =","
    lookUp$( 68)    =" "


    '   in the case of lower-case sigma, use sigmaf when s is the final letter of an English word or sigma otherwise.

    'text$ = "Sphinx of black quartz, judge my vow."
    'GOTO [HERE]
    text$ = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZs.s,s ckeechkhphrhthchoopsEeChKhPhRhThChOoPs" +_
            chr$( 13) +chr$( 10)+_
            "The quick brown fox jumped over the lazy dog. "+_
            chr$( 13) +chr$( 10) +_
            "I was looking at some rhododendrons in my back garden, " +_
            "dressed in my khaki shorts, when the telephone rang. " +_
            "As I answered it, I cheerfully glimpsed that the July sun " +_
            "caused a fragment of black pine wax to ooze on the velvet quilt laying in my patio." +_
            chr$( 13) +chr$( 10) +_
            "Sphinx of black quartz, judge my vow."
[HERE]
    'print "Original", text$

    '   __________________________________________________________________________

    L   =len( text$)
    htmlSub$ =""

    for i =1 to L   '   Check all two-character special cases....
        a$      =mid$( text$, i   , 1)
        b$      =mid$( text$, i +1, 1)
        ab$     =a$ +b$
        if instr( "ck/ee/ch/kh/ph/rh/th/ch/oo/ps/Ee/Ch/Kh/Ph/Rh/Th/Ch/Oo/Ps/s./s,/s /, /. /./ /./" +chr$( 13) +"/" , ab$ +"/") then
            select case ab$
                'case left$( ab$, 1) ="q"
                '    dataN$ =dataN$ +"k"
                '    htmlSub$ =htmlSub$ +"κ"
                '    i   =i +1
                case "ck"
                    dataN$ =dataN$ +"k"
                    htmlSub$ =htmlSub$ +"k"
                    i   =i +1
                case "." +chr$( 13)
                    dataN$ =dataN$ +"." +chr$( 13)
                    htmlSub$ =htmlSub$ +".

" i =i +1 case ". " dataN$ =dataN$ +". " htmlSub$ =htmlSub$ +"." +"

" i =i +1 case ", " dataN$ =dataN$ +", " htmlSub$ =htmlSub$ +", " i =i +1 case "ee" dataN$ =dataN$ +"!" htmlSub$ =htmlSub$ +"η" i =i +1 case "Ee" dataN$ =dataN$ +"1" htmlSub$ =htmlSub$ +"Η" i =i +1 case "ch" dataN$ =dataN$ +"{" htmlSub$ =htmlSub$ +"χ" i =i +1 case "Ch" dataN$ =dataN$ +"}" htmlSub$ =htmlSub$ +"Χ" i =i +1 'case "q" ' dataN$ =dataN$ +"k" ' htmlSub$ =htmlSub$ +"κ" case "kh" dataN$ =dataN$ +"£" htmlSub$ =htmlSub$ +"χ" i =i +1 case "Kh" dataN$ =dataN$ +"3" htmlSub$ =htmlSub$ +"Χ" i =i +1 case "ph" dataN$ =dataN$ +"$" htmlSub$ =htmlSub$ +"φ" i =i +1 case "Ph" dataN$ =dataN$ +"4" htmlSub$ =htmlSub$ +"Φ" i =i +1 case "rh" dataN$ =dataN$ +"^" htmlSub$ =htmlSub$ +"ρ" i =i +1 case "Rh" dataN$ =dataN$ +"6" htmlSub$ =htmlSub$ +"Ρ" i =i +1 case "th" dataN$ =dataN$ +"&" htmlSub$ =htmlSub$ +"θ" i =i +1 case "Th" dataN$ =dataN$ +"7" htmlSub$ =htmlSub$ +"Θ" i =i +1 case "oo" dataN$ =dataN$ +"(" htmlSub$ =htmlSub$ +"ω" i =i +1 case "Oo" dataN$ =dataN$ +"9" htmlSub$ =htmlSub$ +"Ω" i =i +1 case "ps" dataN$ =dataN$ +")" htmlSub$ =htmlSub$ +"ψ" i =i +1 case "Ps" dataN$ =dataN$ +"0" htmlSub$ =htmlSub$ +"Ψ" i =i +1 case "s." dataN$ =dataN$ +"@" 'i =i +1 case "s," dataN$ =dataN$ +"@" htmlSub$ =htmlSub$ +"ς" 'i =i +1 case "s " dataN$ =dataN$ +"@" htmlSub$ =htmlSub$ +"ς" 'i =i +1 case else dataN$ =dataN$ +a$ htmlSub$ =htmlSub$ +a$ end select else if a$ ="q" then dataN$ =dataN$ +"k": htmlSub$ =htmlSub$ +"k" if a$ ="w" then dataN$ =dataN$ +"w": htmlSub$ =htmlSub$ +"" if a$ ="j" then dataN$ =dataN$ +"i": htmlSub$ =htmlSub$ +"i" if a$ ="y" then dataN$ =dataN$ +"u": htmlSub$ =htmlSub$ +"u" if a$ ="v" then dataN$ =dataN$ +"b": htmlSub$ =htmlSub$ +"b" if a$ ="Q" then dataN$ =dataN$ +"K": htmlSub$ =htmlSub$ +"K" if a$ ="W" then dataN$ =dataN$ +"W": htmlSub$ =htmlSub$ +"" if a$ ="J" then dataN$ =dataN$ +"I": htmlSub$ =htmlSub$ +"I" if a$ ="Y" then dataN$ =dataN$ +"U": htmlSub$ =htmlSub$ +"U" if a$ ="V" then dataN$ =dataN$ +"B": htmlSub$ =htmlSub$ +"B" if instr( "qwjyvQWJYV", a$) =0 then dataN$ =dataN$ +a$: htmlSub$ =htmlSub$ +a$ end if next i dataN$ =dataN$ +right$( data$, 1) htmlSub$ =htmlSub$ +right$( data$, 1) open "dataN.txt" for output as #fO2 #fO2 dataN$; close #fO2 ' __________________________________________________________ 'print "" 'print "Pre-parsed", dataN$ cnt =0 open "Page.html" for output as #fOut #fOut "" #fOut "" #fOut "" #fOut "" #fOut "" #fOut "" '#fOut "Courier New" #fOut "

" '#fOut "

. . . it's all Greek to me! ! !

" #fOut "

" #fOut "

" #fOut "
"
    #fOut "

Standard English

" for d =1 to len( text$) m$ =mid$( text$, d, 1) if cnt >120 and m$ =" " then #fOut "

": cnt =0: chCnt =0 else cnt =cnt +1 if m$ <>chr$( 10) then #fOut m$; else cnt =0: #fOut "

" next d #fOut "

" #fOut "


" #fOut "

Pre-parsed to find the special cases

" chCnt =1 for i =1 to len( dataN$) ch$ =mid$( dataN$, i, 1) if ch$ =chr$( 13) or ch$ =chr$( 10) then #fOut "

": chCnt =0 else #fOut ch$; chCnt =chCnt +1 if chCnt >120 and ch$ =" " then chCnt =0: #fOut "

" next i ' ________________________________________________________ #fOut "

" #fOut "


" #fOut "

'Greek' transliteration

" j =1 open "dataN.txt" for output as #fOut2: #fOut2 dataN$;: close #fOut2 [readChars] a$ =mid$( dataN$, j, 1) In =instr( "ABGDEZHTIKLMNXOPRSTUFCPOabgdezhtiklmnxoprstufcpo@!1{}£3$4^6&7(9)0@., " +chr$( 13) +chr$( 10), a$) out$ =lookUp$( In) if ( ( In <>0) and ( out$ <>chr$( 10)) and ( out$ <>chr$( 13)) and ( out$ <>" ") and ( In <>49) ) then #fOut out$; if In =49 then #fOut "ς"; ' "@" if In =69 then #fOut " "; if ( ( a$ =chr$( 10)) or ( a$ =chr$( 13))) then #fOut "

"; j =j +1 cnt =cnt +1 if cnt >120 and a$ =" " then cnt =0: #fOut "

" if j <=L then [readChars] #fOut "


" #fOut "" close #fOut 'run "Notepad.exe Page.html" run "explorer.exe Page.html" end Data "Α" Data "Β" Data "Γ" Data "Δ" Data "Ε" Data "Ζ" Data "Η" Data "Θ" Data "Ι" Data "Κ" Data "Λ" Data "Μ" Data "Ν" Data "Ξ" Data "Ο" Data "Π" Data "Ρ" Data "Σ" Data "Τ" Data "Υ" Data "Φ" Data "Χ" Data "Ψ" Data "Ω" Data "α" Data "β" Data "γ" Data "δ" Data "ε" Data "ζ" Data "η" Data "θ" Data "ι" Data "κ" Data "λ" Data "μ" Data "ν" Data "ξ" Data "ο" Data "π" Data "ρ" Data "σ" Data "τ" Data "υ" Data "φ" Data "χ" Data "ψ" Data "ω" Data "η" Data "Η" Data "χ" Data "Χ" Data "κ" Data "Κ" Data "φ" Data "Φ" Data "ρ" Data "Ρ" Data "θ" Data "Θ" Data "ω" Data "Ω" Data "ψ" Data "Ψ" Data "ς"