OPTION ARITHMETIC COMPLEX
SET WINDOW -2.5,2.5,-2.5,2.5
LET i=SQR(-1)
INPUT m
FOR x=-2.5 TO 2.5 STEP 0.01
   FOR y=-2.5 TO 2.5 STEP 0.01
      LET z=x+i*y
      IF ABS(z)<=0.02 THEN GOTO 1
      FOR k=0 TO 100
         LET z=(1-1/m)*z+1/(m*z^(m-1))
      NEXT k
      FOR k=1 TO m
         LET r=COS(2*PI*k/m)+i*SIN(2*PI*k/m)
         IF ABS(z-r)<=0.1 THEN
            SET LINE COLOR k+1
            EXIT FOR
         END IF
      NEXT k
      PLOT LINES:x,y
1    NEXT y
  NEXT x
END