繰り返しになりますが、16行目はJANP=10ではなくJP=0です。