プログラムスロットの取得は1回行えば良いので プログラムの冒頭でBACKTRACE命令とCHKCHR関数で プログラムスロット番号を取得してすぐCLSをしてしまえば 目では認識できないほどの時間で処理されますので COLOR 0をしなくても良いかなと思います。