XProfan

var x%=5

print X%

var y=x
print y

Declare X%,X!,X$,X&
USERMESSAGES 16
Window Style 28
Window (%maxX/2-160),(%maxY/2-120)-320,240

Proc SetX

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

ENDPROC

While 1

    WaitInput
    Case %Umessage=16:Break

    If IsKey($65)

        Print "X"
        SetX

    ElseIf IsKey($58)

        Print "5"
        SetX

    ElseIf IsKey($35)

        Print "X"
        SetX

    EndIf

EndWhile

end