1 R=240; M=1.0; N=25; GSCREEN(G_ENABLE, 480, 480)
2 LOOP X, R*2+1, -R
3 LOOP Y, R*2+1, -R
4 (ZX, ZY) = (0.0, 0.0)
5 LOOP I, N
6 (CX, CY) = (ITOF(X-R/2), ITOF(Y)) * (M/ITOF(R), M/ITOF(R))
7 (ZX, ZY) = (ZX*ZX - ZY*ZY, ZX*ZY + ZY*ZX) + (CX, CY)
8 D = ZX*ZX + ZY*ZY
9 (D > 4.0): GONEXT; LOOPEND; GONEXT 2
10 DISCARD
11 C = GCOLOR(I * 10, (N - I) * 10); GPOINT(X + R, Y + R, C)
12 LOOPEND Y; GFLUSH(); LOOPEND X
