8408 IF UB<X^(AL-1) THEN X=BE*X : RETURN ELSE 8384