TI-82 coding

[Diroga]

I', making a basic movent program in TI-82 BASIC, but this runs really slow. is there to speed it up?

Code:

:8->X
:5->Y
:ClrHome
:Output(Y,X,"X")
:Lbl 1
:If getkey=26
:Then
:ClrHome
:Output(Y,X,"X")
:X+1->X
:End
:
:If getkey=24
:Then
:ClrHome
:Output(Y,X,"X")
:X-1->X
:End
:Goto 1

[Frenkel]

I would do something like

Code:

getkey->Z
If Z=24
Then
..
End
If Z=26
Then
..
End

[Diroga]

thank you much faster