CLS
generate_set (- 1.500, 0.500, - 1, 1, 100, 51, 64)

PROC generate_set (xmin, xmax, ymin, ymax, x%, y%, max%)
    xstep := (xmax - xmin) / (x% - 1)
    ystep := (ymax - ymin) / (y% - 1)
    j% := 1
    FOR y := ymin TO ymax STEP ystep DO
        i% := 1
        FOR x := xmin TO xmax STEP xstep DO
            foo% := mandelbrot% (x, y, max%)
            IF foo% >= max% THEN
                PRINT "#";
            ELSE
                PRINT ". " (foo% MOD 2 + 1);
            ENDIF
            i% := i% + 1
        NEXT x
        PRINT
        j% := j% + 1
    NEXT y
ENDPROC generate_set

FUNC mandelbrot% (r, i, max%)
    zr := 0; zi := 0
    FOR n% := 1 TO max% DO
        zr2 := zr * zr; zi2 := zi * zi
        IF (zr2 + zi2) > 4 DO RETURN n%
        zi := 2 * zr * zi + i
        zr := zr2 + - zi2 + r
    NEXT n%
    RETURN n%
ENDFUNC mandelbrot%