プログラムを見直したところ 必要な処理が抜けていたので追加しました。 18行目:KEYCHR$="" 不要な処理があったので削除しました。 "U","D","L","R","E"以外の文字が 入力された時の処理として FLAG=0としてましたが必要ない処理でした。 (FLAGの値が0であるため0にする必要がない) 上のプログラムは修正済みです。