4030 IF VY(I)=0 THEN 4065