10	!
	!	SIN
	!
	!	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
45	S1 = -1
50	FOR N = 1 TO 20
60	S1 = -S1
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 + S1 * 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,"SIN(X) ="SIN(X)
210	GOTO 10
220	END