Quite BASIC -- The Mandelbrot set

Output

Canvas

BASIC Program

REM Mandelbrot Set Project
REM Quite BASIC Math Project
REM ------------------------ 
CLS
PRINT "This program plots a graphical representation of the famous Mandelbrot set.  It takes a while to finish so have patience and don't have too high expectations;  the graphics resolution is not very high on our canvas."
REM Initialize the color palette
GOSUB 3000
REM L is the maximum iterations to try
LET L = 100
FOR I = 0 TO 124
FOR J = 0 TO 124
REM Map from pixel coordinates (I,J) to math (U,V)
LET U = I / 62.5 - 1.5
LET V = J / 62.5 -1
LET X = U
LET Y = V
LET N = 0
REM Inner iteration loop starts here 
LET R = X * X
LET Q = Y * Y
IF R + Q > 4 OR N >= L THEN GOTO 2190
LET Y = 2 * X * Y + V
LET X = R - Q + U
LET N = N + 1
GOTO 2120
REM Compute the color to plot
IF N < 10 THEN LET C = "black" ELSE LET C = P[ROUND(8 * (N-10) / (L-10))]
PLOT I, J, C 
NEXT J
NEXT I
REM Subroutine -- Set up Palette
ARRAY P
LET P[0] = "black"
LET P[1] = "magenta"
LET P[2] = "blue"
LET P[3] = "green"
LET P[4] = "cyan"
LET P[5] = "red"
LET P[6] = "orange"
LET P[7] = "yellow"
LET P[8] = "white"
RETURN
      
  

Controls

Line:

Expr:

Value:

>QUITE BASIC
>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC
>