エラーに関係無いけどTHENとGOTOが続いているのは意味ないと思ふ