10 PLAY "mbgeeeeeo3go4eel2el4"
20 PLAY "mbo3go4eeefgaddl2dl4"
30 CLS
40 SCREEN 1
50 WINDOW (-3.4, 2)-(3.4, -2)
55 CLS
60 X = 0
70 Y = 0
80 FOR W = -1.7 TO 1.7 STEP .02
90 FOR WW = -1.6 TO 1.6 STEP .02
100 X = W
110 Y = WW
120 FOR XX = 1 TO 17 STEP 1
130 IF ABS(X) > 100000! THEN XX = 18
140 IF ABS(Y) > 100000! THEN XX = 18
150 Y = (2 * X * Y) + .333
160 X = (X ^ 2) - (Y ^ 2) - .865
170 IF ((X ^ 2) + (Y ^ 2)) > 4 THEN XX = 18
180 FF = FF + 1
190 IF FF > 3 THEN FF = 1
200 IF XX = 17 THEN PRESET (W, WW), FF
210 NEXT XX
220 NEXT WW
230 NEXT W
235 PLAY "mfgeeeeeo3go4eel2el4"
236 PLAY "mfo3go4eeefgaddl2dl4"
240 FOR ZZ = 1 TO 100000
250 NEXT ZZ
260 SYSTEM