8692 GOSUB 8140 : X=EXP(X)