2680 IF VX(I)<0 THEN 2730