10 SCREEN 1
500 WINDOW (-4, 2.6)-(4, -2.6)
550 c = 1.9
600 i = 2.0311
700 k = 0
800 l = .01
1000 IF i < -2 THEN GOTO 1100 ELSE GOTO 1150
1100 i = 2.0311
1110 c = c - .0311
1150 i = i - .0311
1160 a = c
1170 b = i
1200 IF a < -2 THEN GOTO 5000 ELSE GOTO 1300
1300 k = k + 1
1400 IF k < 9 THEN GOTO 1700 ELSE GOTO 1500
1500 k = 0
1550 GOTO 1000
1700 e = ((3 * (a ^ 4)) + (6 * (a ^ 2) * (b ^ 2)) + (3 * (b ^ 4)))
1710 p1 = ((2 * (a ^ 5)) - (2 * (a ^ 3) * (b ^ 2))) / e
1720 o1 = (-4 * (a ^ 4) * (b)) / e
1730 p2 = (12 * (a ^ 3) * (b ^ 2)) / e
1740 o2 = ((6 * (a ^ 4) * (b)) - (6 * (a ^ 2) * (b ^ 3))) / e
1750 p3 = ((-6 * (a ^ 3) * (b ^ 2)) + (6 * (a) * (b ^ 4))) / e
1760 o3 = (12 * (a ^ 2) * (b ^ 3)) / e
1770 p4 = (-4 * (a) * (b ^ 4)) / e
1780 o4 = ((-2 * (a ^ 2) * (b ^ 3)) + (2 * (b ^ 5))) / e
1790 p5 = ((a ^ 2) - (b ^ 2)) / e
1800 o5 = (-2 * (a) * (b)) / e
1810 m = p1 + p2 + p3 + p4 + p5
1820 u = o1 + o2 + o3 + o4 + o5
1900 a = m
2000 b = u
2100 IF (m / l) > .9999 AND m / l < 1.001 THEN PSET (c, i)
2200 IF (m / l) > .9999 AND m / l < 1.001 THEN GOTO 1000
2230 l = m
2400 GOTO 1300
5000 END