ここだけ見ると明らかに違うところはなさそうですが、先に２と当たってしまっているとか？ 103行目あたりに、 LOCATE 0,0：？SPHITSP(1) を入れてみると何か分かるかも。 あ、ちなみにSPCOLはSPSETしたあとに一回だけ書けばよいので、ループ内で何度も実行する必要はありません。