１５行目のLNE(S$)-1の-1をとれば正常に動作しますね。 ただちょっと全体的にロジックが変に複雑化してしまってるところがあるんで、もうちょっと上手く書けばスッキリと正しい動作に出来るとは思うんですが。 まあでもとりあえず今は動くことが先決なんだと思いますし、とりあえずはそんな感じですね。