5216 IF VX(J+N)=-1 THEN VX(J+N)=P