20行目にGOTO @Rとありますが 今の状態だと何もしなくてもRに処理が飛ぶ筈です GLINE直後にGCLSがあるので描いたと思ったらすぐ消えてしまうわけです 本当にやりたい事は何でしょうか？ ボタンを押したらカーソルが動いて そのたびにGLINEで線を描きたい とかでしょうか？ それだと、ボタンの処理等必要な処理を書き加える必要があるのでアドバイスも変わってきますよ