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