2785 IF VX(I)<0 THEN 2830