'mandel v 2.0 'jfox@airmail.net CLS maxcolor=if(bpp>8,30,16) leftside=-2 top=1.25 xside=2.5 yside=-2.5 xscale=xside/xmax yscale=yside/ymax FOR y=1 to ymax/2 FOR x=1 to xmax cx=x*xscale+leftside cy=y*yscale+top zx=0 zy=0 cc=0 WHILE (zx*zx+zy*zy<4 and cc8,RGBF(cc/30,cc/30,cc/30),cc) PSET x,y,rc PSET x,ymax-y,rc NEXT NEXT BEEP PEN ON REPEAT:UNTIL PEN(0) PEN OFF