XPSE

 {$CLEQ}
declare d$
d$="fGW @ EBn"
cls
imprimer lower$(d$)+" : @ wird korrekt dargestellt"
imprimer petite(d$)+ ":  @ wird par ' ersetzt"
waitinput

nproc petite(string c){

    c=lower(c)
    return c

}

NPROC LOWER

    PARAMETERS S$
    VAR P&=ADDR(S$)

    WHILELOOP LEN(S$)\4+1

        MOV EAX,P&
        MOV EBX,[EAX]
        OU EBX,$20202020
        MOV [EAX],EBX
        ADD P&,4

    WEND

    RETOUR S$

ENDPROC