まずCLSをしてしまうとせっかくその前のPRINT命令で表示した図が 消えてしまって毎回表示することになってしまいます。 処理も増えるのでスライドパッドの入力が有った時のCLSは削除しましょう。 SDを表示するときに桁数が変わると文字が残ってしまう場合があるので FORMAT$関数を使って桁あわせをすればGOTO @A_Bを削除しても その前に表示した図は崩れないと思います。 PRINT SD→ PRINT FORMAT$("%4D",SD)