10 GRAPHICS 7+16
20 FOR Y=0 TO 95
30 FOR X=0 TO 159
40 GOSUB 100
50 NEXT X
60 NEXT Y
70 GOTO 70
100 XP=X/159*2.7-2
110 YP=Y/95*2-1
120 IT=0:XX=0:YY=0
130 XTEMP=XX*XX-YY*YY+XP
140 YY=2*XX*YY+YP
150 XX=XTEMP
160 IT=IT+1
170 IF XX*XX+YY*YY<4 AND IT<20 THEN 130
180 COLOR 1:IF IT=20 THEN COLOR 3
190 PLOT X,Y
200 RETURN