10 SCREEN 1
20 PRINT "X^(REAL A,IMAGINARY B)"
30 PI = 3.14159265359#
40 PRINT "X=3"
50 X = 3
60 PRINT "A=6"
70 A = 6
80 PRINT "B=8"
90 B = 8
100 F = X ^ A
110 PRINT "LOG OF X TIMES IMAGINARY"
120 PRINT "POWER = ANGLE."
130 PRINT "X ^ REAL POWER = MAGNITUDE."
140 PRINT "COSINE OF ANGLE TIMES"
150 PRINT "MAGNITUDE = REAL ANSWER."
160 PRINT "SINE OF ANGLE TIMES"
170 PRINT "MAGNITUDE = IMAGINARY ANSWER."
180 H = (LOG(X)) * B
190 PRINT X; "^("; A; ","; B; ")="; F; "ANGLE"; H
200 C = (COS(H)) * F
210 S = (SIN(H)) * F
220 PRINT "= ALSO ("; C; ","; S; ")"
230 PRINT "FOR NEGATIVE NUMBERS FIND THE"
240 PRINT "ANSWER FOR POSITIVE NUMBER THEN ADD"
250 PRINT "3.14159265359 TO THE ANGLE"
260 PRINT "OR FOR RECTANGULAR -1 TIMES THE"
270 PRINT "REAL AND IMAGINARY ANSWER."
272 PRINT "TO CONVERT REC. TO POLAR, SQUARE AND"
273 PRINT "ADD BOTH NUMBERS. FIND SQUARE ROOT IS"
274 PRINT "MAGNITUDE. DIVIDE  REC. IMAGINARY"
275 PRINT "BY REC. REAL. FIND ARCTANGENT FOR"
280 PRINT "ANGLE."
340 FOR Z = 1 TO 700000
350 NEXT Z
360 SYSTEM