KX,KYの初期化の指示を忘れていました。 WHILE～ のすぐあとくらいに KX=X:KY=Y といれてみてください。