8660 XLN=X : X=LOG(X) : GOSUB 8140