エラーが発生しているのは、 READ A$ の部分です。ループの数だけ、つまり、7*12=84回READ しようとしたら、DATA が7個しかない為に発生しています。 DATA の内容を変更しない場合、READ A$ をDATA の数だけ、つまり7回だけ呼び出すようにしないといけません。 つまり、I で繰り返している最中に呼び出すようにします。 また、A$ の内容は1文字ではないので、単純に比較することはできません。 よっぱらいさんのいうように、MID$ で比較するべき文字を抜き出す必要があります。