まだちょっとしか見てませんが、動きは良い感じだと思います〜。 とりあえずちょっとソース見てみて気になったところや改良点あげてみますねー。 1 インデントの間違えがあった。 2 iとlだけ小文字なのがちょっと気になった。 3 IFの条件のSX>0.6 || SX<-0.6とかは、ABS(SX)>0.6と書くことが出来る。 4 SPANIMで定義番号を変えている箇所があるがSPCHRでいいんじゃないかな? 簡単にですがこんな感じが気になりました。もうちょっとしっかり見れば流れの方も調整出来るかもしれませんが、そんな感じです。参考になれば〜。