3645 IF X>0 THEN VY(I)=1