他には5行目のLOCATE I,はLOCATE 0,IとしてY軸方向の 表示位置指定に変更して下さい。 十字キーをスキャンスしてYPOSを加減算する処理は FOR～NEXTの外に出して下さい。 WENDの前にVSYNC 1を入れて処理待ちをしないと とんでもないスピードで画面が切り替わってしまいます。