3015 IF KE=0 THEN NXX=NXX+ND : VX(I)=0