Data update

Task/Julia-set/BBC-BASIC/julia-set.basic

@@ -0,0 +1,18 @@
+      DIM Pix&(11)
+      $^Pix&(0)="@$%#*+=-:. " : REM Let's inverse :-)
+      FOR Y=-1.0 TO 1.0 STEP 1/15
+        FOR X=-1.5 TO 1.5 STEP 3/100
+          ZR=X
+          ZI=Y
+          I%=0
+          WHILE I% < 100
+            ZR1=ZR * ZR - ZI * ZI - .79
+            ZI=ZR * ZI * 2 + .15
+            ZR=ZR1
+            IF ZR * ZR + ZI * ZI > 4 EXIT WHILE
+            I%+=1
+          ENDWHILE
+          VDU Pix&(I% / 10)
+        NEXT
+        PRINT
+      NEXT