XPSE

 {$CLEQ}
declare d$
d$="fGW @ EBn"
cls
print lower$(d$)+" : @ becomes correctly dargestellt"
print small(d$)+ ":  @ becomes through ' ersetzt"
waitinput

nproc small(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