373 IF ND<0 THEN KE=1