Okay, I am not too clear on the last part, but saving the coordinates to an Appvar I can do:

`.0:Return`

Send(4,"UCoord→V

{V→X

{V+2→Y

Repeat A=15

iPart(V,X

iPart(V+2,Y

Line(X,Y,6,6,2

DispGraph

Line(X,Y,6,6,2

Repeat A

getKey→A

End

X+A=3

-A=2

-A=5

+A=6

-A=7

+A=8

If >90

X

→X

Y+A=5

+A=6

-A=7

-A=8

-A=4

+A=1

If >58

Y

→Y

End

Stop

That will move a rectangle around the screen saving the coordinates to the appvar Coord. To be honest, though, you only need two bytes for the coordinates here >.>