3005 IF VX(I)<0 THEN 3040