10	!
	!	COMPLEX EXP
	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVESITY
	!	ON PDP 11/45
	!	VERSION RSTS/E  V06C
	!
20	INPUT X1,X2
25	PRINT "FACTORIAL","REAL POWER","IMAG POWER","REAL SUM","IMAG SUM"
30	S1,S2,A1,A2 = 0
35	P1,F = 1
36	P2 = 0
40	FOR N = 0 TO 100
45	IF N = 0 
	THEN 100
50	T1 = P1 * X1 - P2 * X2
	\ T2 = P2 * X1 + P1 * X2
70	F = F * N
80	P1 = T1
90	P2 = T2
100	S1 = S1 + P1/F
110	S2 = S2 + P2/F
115	PRINT F,P1,P2,S1,S2
120	IF ABS(A1 - S1) > 1E - 6
	THEN 132
130	IF ABS(A2 - S2) < 1E - 6
	THEN 170
132	A1 = S1
134	A2 = S2
140	NEXT N
150	PRINT "DID NOT CONVERGE."
160	GOTO 180
170	PRINT "DID CONVERGE."
180	PRINT "SUM ="S1" +"S2"I"
190	PRINT "EXP ="EXP(X1) * COS(X2)" +"EXP(X1) * SIN(X2)"I"
200	GOTO 10
210	END