4045 IF VY(J)=0 THEN 4060