3610 IF NV=1 THEN X=X-XKP