XProfan

var x%=5

imprimir X%

var y=x
imprimir y

Declarar X%,X!,X$,X&
USERMESSAGES 16
Ventana de Estilo 28
Ventana (%maxX/2-160),(%maxY/2-120)-320,240

Proc SetX

    X%=5
    X!=5
    X$="5"
    X&=5

ENDPROC

Mientras que 1

    WaitInput
    Case %Umessage=16:Romper

    If IsKey($65)

        Imprimir "X"
        SetX

    ElseIf IsKey($58)

        Imprimir "5"
        SetX

    ElseIf IsKey($35)

        Imprimir "X"
        SetX

    EndIf

EndWhile

end