Oops. I forgot to put in the part that displays the coords: Lbl Looper PxlText "X="&string(yy)&" Y="&string(xx),1,1 ' Use this area do draw new cursor position 0 -> k While k=0 getKey() -> k EndWhile ' Use this area to erase old cursor postion If k=338:yy+yystep -> yy If k=344:yy-yystep -> yy If k=264:Return Goto Looper