XPSE

 {$CLEQ}
declare d$
d$="fGW @ EBn"
cls
print lower$(d$)+" : @ wird korrekt dargestellt"
print klein(d$)+ ":  @ wird durch ' ersetzt"
waitinput

nproc klein(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]
        OR EBX,$20202020
        MOV [EAX],EBX
        ADD P&,4

    WEND

    RETURN S$

ENDPROC