10	!
	!	LOG BASE E
	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E  V06C
	!
20	INPUT C
30	S,A = 0
40	X = (C-1)/(C+1)
50	FOR N = 1 TO 100
60	P = 1
70	FOR J = 1 TO 2*N-1
80	P = P * X
90	NEXT J
100	S = S + P/(2*N-1)
110	IF ABS(S-A) < 1E - 6
	THEN 150
120	A = S
130	NEXT N
140	PRINT "DID NOT CONVERGE"
145	GOTO 160
150	PRINT "DID CONVERGE"
160	PRINT "S ="2 * S,"LOG(X) ="LOG(C)
170	GOTO 10
220	END