3650 IF X<0 THEN VY(I)=-1 : VX(I)=-X