REM Display an ASCII fractal.

FLOAT k,x,y,m,r,j
LET k=1
FOR y= -16 TO 15
    FOR x=0 TO 78
        PRINT CHR(((int)k&15)+32)
        LET m=r=0
        FOR k=0 TO 111
            LET j=r*r-m*m-2+x/25
            LET m=2*r*m+y/10
            LET r=j
            IF j*j+m*m>11 THEN
                BREAK
            ENDIF
        NEXT
    NEXT
    NL
NEXT

Return to M4BASIC