1 REM MANDELBROT
2 REM Written by:
3 REM Johan Tibbelin
4 REM [email protected]
5 TRAP 110
10 GRAPHICS 11
20 FOR Y=0 TO 191
25 Y0=((2/192)*Y)-1
30 FOR X=0 TO 79
40 X0=(3.5/80)*X-2.5
50 X1=0:Y1=0:I=0:B=0
55 IF X1*X1+Y1*Y1>=2*2 AND I>40 THEN 110
56 IF I>40 THEN B=1:GOTO 110
60 XTEMP=X1*X1-Y1*Y1+X0
70 Y1=2*X1*Y1+Y0
80 X1=XTEMP
90 I=I+1
100 GOTO 55
110 C1=INT(I/15):C=I-C1*15+1
115 IF B=1 THEN C=0
120 COLOR C:PLOT X,Y
125 TRAP 110
130 NEXT X:NEXT Y
140 GOTO 140