3 /COMPLEX RAISED TO INTEGER OR REAL
5 / VERSION 5A 4-26-77 MH
9 /C^D=R^D*EXP(D*I*THETA)
14 /ENTER IN STARTF,EXIT IN STARTE
72 JGE .+3 /SKIP IF RESULT IS POS
73 FNEG /IF NOT,MAKE IT POS
74 FSUB LOWLIM /TEST FOR ZERO
75 JGE .+5 /JUMP IF NOT 0
76 FCLA /ASSUME RESULT SHOULD BE 0
78 /RETURN RESULT IN #CAC AND STARTE
87 LOWLIM, F 0.000009 /NUMBERS >= 1.E-5 OK