678行目のREPEATの前です。REPEAT～UNTILの間でSP[I]の値を 変更しているのでその前にDAP[SP[I]]を0にします。