C-FOCAL,1969

01.05 C COMPLEX ROOTS OF REAL INTEGERS
01.10 T !,"X^P-N=0",!
01.15 E
01.20 A ?P N?,!
01.21 S IM=FLOG(FABS[N])/P
01.22 S N=FEXP(IM)*FSGN(N)
01.40 F I=0,P-1; D 2
01.50 F I=0,P-1; D 3
01.60 T !!; G 1.2

02.10 S X(I)=N*FCOS(I*2*3.14159/P)
02.20 S Y(I)=N*FSIN(I*2*3.14159/P)

03.10 T %1,"W",I,"=",%6.03,X(I)," +",Y(I),"*I",!
*