Data update

Task/Mandelbrot-set/Aquarius-BASIC/mandelbrot-set-1.basic

@@ -0,0 +1,19 @@
+10 PRINT CHR$(11);
+20 CS=12288+1024
+30 FOR Y=0 TO 24
+40 FOR X=0 TO 39
+50 GOSUB 100:POKE CS,COL
+60 CS=CS+1
+70 NEXT
+80 NEXT
+90 END
+100 XP=X/39*2.7-2
+110 YP=Y/24*2-1
+120 IT=0:XX=0:YY=0
+130 XTEMP=XX*XX - YY*YY + XP
+140 YY=2*XX*YY + YP
+150 XX=XTEMP
+160 IT=IT+1
+170 IF XX*XX+YY*YY<4 AND IT<20 THEN 130
+180 COL=IT AND 15:IF IT=20 THEN COL=0
+190 RETURN

Task/Mandelbrot-set/Aquarius-BASIC/mandelbrot-set-2.basic

@@ -0,0 +1,15 @@
+10 PRINT CHR$(11);
+20 FOR Y=0 TO 71
+30 FOR X=0 TO 79
+40 GOSUB 100
+50 NEXT:NEXT:END
+100 XP=X/79*2.7-2
+110 YP=Y/71*2-1
+120 IT=0:XX=0:YY=0
+130 XTEMP=XX*XX - YY*YY + XP
+140 YY=2*XX*YY + YP
+150 XX=XTEMP
+160 IT=IT+1
+170 IF XX*XX+YY*YY<4 AND IT<20 THEN 130
+180 IF IT=20 THEN PSET(X,Y)
+190 RETURN

Task/Mandelbrot-set/Atari-BASIC/mandelbrot-set.basic

@@ -0,0 +1,18 @@
+10 GRAPHICS 7+16
+20 FOR Y=0 TO 95
+30 FOR X=0 TO 159
+40 GOSUB 100
+50 NEXT X
+60 NEXT Y
+70 GOTO 70
+100 XP=X/159*2.7-2
+110 YP=Y/95*2-1
+120 IT=0:XX=0:YY=0
+130 XTEMP=XX*XX-YY*YY+XP
+140 YY=2*XX*YY+YP
+150 XX=XTEMP
+160 IT=IT+1
+170 IF XX*XX+YY*YY<4 AND IT<20 THEN 130
+180 COLOR 1:IF IT=20 THEN COLOR 3
+190 PLOT X,Y
+200 RETURN

Task/Mandelbrot-set/FreeBASIC/mandelbrot-set.basic

@@ -51,6 +51,8 @@ for x=0 to 639
     next y
 next x
 
+bsave "mandel.bmp",0
+
 while inkey=""
 wend
 end