XProfan

Nico
Müller

Schreib time mere what your schoolmistress moreover said has.

WinXP, 2200MHz, 256MBRAM, Nvidia Geforce4 MX 440 with AGP8x, Profan8.0a

Das ist Matschaugeneule. Kopiere Matschaugeneule in deine Signatur und hilf ihr so auf ihrem Weg zur Weltherrschaft. Gegen Hase

Clemens
Meier

this is so but not correctly.. In many Make can itself the word of course just as reading, but in many Make but neither. particularly Legastenikern (How me), is it only heavy possible, derartige Texts To reading. many normal written Wörter must I character for character reading, circa schlußendlich To understand, which word meant is. at that athwart reading, have I with derartigen Texten at all no chance.

with such Texten How supra is it How with pictures, everybody can with Mosaik verfremdet has. Unknown or less well known faces can not or only very heavy discern.

alone already at word Krsas have I two sec long consider must, what the hot should. thereby is with this word straight once one character on the incorrect place.

XProfan 9.1; XP SP2; FF; Editpad

this is so but nihct rhiticg. In vleein Fleäln lsäst itself the word of course gsanueo reading, aebr in veelin Fäleln aebr acuh nhcit. Iseeobndnsre Leiasnregtekn (How mri), is it only sehcwr mglöich, dgriaetre Ttexe To leesn. Vliee nroaml gecebrhisene Wrteör msus I Butashbce for Btchsuabe lseen, circa sluneihlßdcch To vetreehsn, which Wrot geienmt is. at that athwart leesn, hbae I with drratigeen Txeten übhrupeat no Canhce.

with selhocn Tteexn How oebn is it How with Bidlren, everybody can with Mskaoi veremredft has. Uabnknetne oedr wngeier well bknnetae Gcteieshr knan one nhcit or only very swehcr eenernkn.

Shcon at word rassK hbae I zewi Sneedukn lnag üglereebn mesüsn, what the heeßin should. Deabi is with dieesm Wrot gdeare once one Butashcbe on the flsacehn Stlele.

<hr>
and here have I the program the this nonsense verzappt time hingepinselt:
Compile Mark Separation

// app.hirnwort
Set(FastMode,1)
Def $apptitle Hirnwort V1.iF
Def Swp(7) !USER32,SetWindowPos
Def invrec(3) !USER32,InvalidateRect
Def updwin(1) !USER32,UpdateWindow
Def Cwp(5) !user32,CallWindowProcA
Def Swl(3) !USER32,SetWindowLongA
declare app.hirnwort.hwnd&,
app.hirnwort.sbarH&,
app.hirnwort.inpH&,
app.hirnwort.outpH&,
app.hirnwort.ex&,
app.hirnwort.owp&
app.hirnwort.init
app.hirnwort.main
app.hirnwort.kill
end

Proc app.hirnwort.wProc

    Parameters Wnd&, Msg&, Wparam&, Lparam&

    if (msg&==5)

        app.hirnwort.reDrw

    elseif (msg&==16)

        app.hirnwort.ex&=1

    endif

    Return Cwp(app.hirnwort.owp&,Wnd&, Msg&, Wparam&, Lparam&)

endproc

proc app.hirnwort.init

    windowstyle ( 1 | 2 | 4 | 8 | 16 | 512 | 1024 )/*80 |*/
    windowtitle $apptitle
    window 0,0 - 0,0
    showwindow (%hwnd,0)
    windowstyle ( 1 | 2 | 4 | 8 | 16 | 512 )
    app.hirnwort.hWnd&=createwindow(0,$apptitle,%maxx/4,%maxy/4,%maxx/2.5,%maxy/2.5)
    app.hirnwort.sbarH&=create(Statuswindow,app.hirnwort.hWnd&,Bereit.)
    app.hirnwort.inpH&=CreatemultiEdit(app.hirnwort.hWnd&,Unglaublich.,0,0,Width(app.hirnwort.hWnd&),-1)
    app.hirnwort.outpH&=CreateMultiEdit(app.hirnwort.hWnd&,Unglaublich.,0,0,Width(app.hirnwort.hWnd&),-1)
    app.hirnwort.owp&=swl(app.hirnwort.hWnd&,-4, Procaddr(app.hirnwort.wProc,4))
    sendmessage(app.hirnwort.outpH&,197,1,0)

endproc

proc app.hirnwort.main

    declare _msg&
    app.hirnwort.reDrw
    setfocus(app.hirnwort.inpH&)

    Whilenot app.hirnwort.ex&

        getmessage
        _msg&=%message

        if _msg&==16

            app.hirnwort.ex&=1

        elseif _msg&==273

            app.hirnwort.texterCore gettext$(app.hirnwort.inpH&),app.hirnwort.outpH&

        endif

    Wend

endproc

proc app.hirnwort.texterCore

    parameters s$,h&
    declare c&,ns$,i&,os$
    s$=translate$(s$,  , )
    os$=s$
    s$=translate$(s$,., )
    s$=translate$(s$,,, )
    s$=translate$(s$,!, )
    s$=translate$(s$,?, )
    c&=len(s$)-len(translate$(s$, ,))//countsubstr
    casenot c& : return
    c&+
    for i&=1 to c& do begin
    ns$=ns$+(.jumble(substr$(s$,i&, )))+
    end
    ns$=.dupliSign(os$,ns$,.)
    ns$=.dupliSign(os$,ns$,,)
    ns$=.dupliSign(os$,ns$,!)
    ns$=.dupliSign(os$,ns$,?)
    settext h&,trim$(ns$)
    return

    proc .jumble

        parameters s$
        declare l&,c$,p&
        l&=len(s$)
        case l&<4 : return s$
        l&=l&-2

        whileloop l&

            p&=rnd(l&)+2
            c$=mid$(s$,P&,1)
            s$=del$(s$,p&,1)
            s$=ins$(c$,s$,rnd(l&)+2)

        wend

        return s$

    endproc

    proc .dupliSign

        parameters s$,ns$,sig$
        declare p&,c$
        p&=instr(sig$,s$)

        while p&

            c$=mid$(s$,p&,1)
            s$=del$(s$,p&,1)
            s$=ins$( ,s$,p&)
            ns$=ins$(sig$,ns$,p&)
            ns$=del$(ns$,p&+1,1)
            p&=instr(sig$,s$)

        wend

        return ns$

    endproc

endproc

proc app.hirnwort.kill

    swl(app.hirnwort.hWnd&,-4,app.hirnwort.owp&)

endproc

proc app.hirnwort.reDrw

    declare yy&
    swp(app.hirnwort.sbarH&,0,0,0,0,0,28)
    invrec(app.hirnwort.sbarH&,0,0)
    updwin(app.hirnwort.sbarH&)
    yy&=(height(app.hirnwort.hWnd&)-height(app.hirnwort.sbarH&)+2)/2
    swp(app.hirnwort.inpH&,0,0,0,width(app.hirnwort.hWnd&)+1,yy&,20)
    swp(app.hirnwort.outph&,0,0,yy&,width(app.hirnwort.hWnd&)

n>1,yy&,20) endproc

salvo.

hirnwort.exe	201 kB

Hochgeladen:	05/02/06

Downloadcounter:
		Download

Uucngallbih aebr it seicnht To stmimen! I jleaenflds knan jdeen Sechiss reading whom I here type

I hfofe It's all right all Andreen ganeuso! How sheit it with you from? Peoirbrt it - its wkliirch lsitug! I for menien Tiel wrdee jlanfdlees ONLY NOCH shloce Bätgiree veesarsfn - vlleciieht vresteht one mcih then besesr!

Nico
Madysa

with dineem etsern Baeirtg hsat You zewi Flheer.
The ertse and the lzette Bshctaube msseün on the rgchtiien Poostiin sheetn bleebin.
with Mskaoi and rassK hsat You the vssgeren.

Nico Madysa

is Yes kalr the You wdeeir on me rahcumekn mssut! can You you nhict time jnmead aendren dfaür auscsuhen?

with dieesm Ksrauewdlceh ists still ecilgnedih shcon almost alike wvieleie Bhbcetasun because tlhctsaicäh smmietn, and wviieele nchit. Eneheisdtcnt is dcoh the Fun Fktaor. I bhelate it me asuidrklücch to Qeelulxtte eebsno so To Veifeöflehtcnrn!

RGH

I bhelate it me asuidrklücch to Qeelulxtte eebsno so To Veifeöflehtcnrn!

Aebr btite only dnan, wnen Dien XPSE then disee acuh leesn and kokrert vebeirarten can!

Gurß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Frank
Abbing

already amazing...