そうですね。読み込んでる先のDATA文をよく数えてみると多分何がおかしいか分かると思います。 それでも分からない場合は、READのすぐ後にQと読み込んだ変数二つを毎回プリントか、DIALOGで表示してみると分かりやすいかも知れません。