皆さん、凡ミスでしたねすみません><　上げる前にしっかり見ろと言う話ですねｰ ｰ; あと、プログラムを書き換えました。メインループが出来ていないのでGOTOに変えました。でき次第GOSUBに書き換えていくつもりです。 皆さん本当にお騒がせしました。