GOTOで無限ループさせてるのが怪しいかなーと思います。DATAの読み込み位置は自動では戻らないので、2回目以降のループではREADできるDATAがなくなってしまうはずです。