8400 IF UB<=EXP(-X) THEN X=BE*X : RETURN ELSE 8384