100 SCREEN 1
110 WINDOW (-2.72, 1.6)-(2.72, -1.6)
115 CLS
120 X = 0
130 Y = 0
140 FOR W = -2.1 TO 1.7 STEP .01
150 FOR WW = -1.6 TO 1.6 STEP .01
160 FF = FF + 1
170 IF FF > 3 THEN FF = 1
180 X = 0
190 Y = 0
200 FOR XX = 1 TO 6 STEP 1
210 IF ABS(X) > 100000! THEN XX = 9
220 IF ABS(Y) > 100000! THEN XX = 9
230 Y = (2 * X * Y) + WW
240 X = (X ^ 2) - (Y ^ 2) + W
250 IF ((X ^ 2) + (Y ^ 2)) > 4 THEN XX = 9
260 IF XX = 6 THEN PRESET (W, WW), FF
270 NEXT XX
280 NEXT WW
290 NEXT W
300 FOR ZZ = 1 TO 10000
310 NEXT ZZ
320 SYSTEM