プログラム全体を見て無いので何とも言えませんが FOR-NEXTのループをGOTOで抜けさせてるのが悪いのでは(BREAKで強制的に止める命令がありますよ)。