' Fichier eu sur : http://miklp.free.fr

CLS
SCREEN 12
WINDOW (-6.4, -4.8)-(6.4, 4.8)
PAINT (0, 0), 2
FOR a = -6.4 TO 6.4 STEP .01
FOR b = -4.8 TO 4.8 STEP .01
q = (a ^ 2 + b ^ 3) / 4
IF ((a ^ 2 + b ^ 3) - 4 * INT(q)) < 2 THEN PSET (a, b), 9
IF INKEY$ = CHR$(27) THEN END
NEXT
NEXT
DO
LOOP UNTIL INKEY$ <> ""