XPSE

 {$CLEQ}
declarar d$
d$="fGW @ EBn"
cls
imprimir lower$(d$)+" : @ se korrekt dargestellt"
imprimir klein(d$)+ ":  @ se por ' ersetzt"
waitinput

nproc klein(cadena c){

    c=lower(c)
    volver c

}

NPROC LOWER

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

    WHILELOOP LEN(S$)\4+1

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

    WEND

    RETORNO S$

ENDPROC