Add Mandelbrot set example.

examples/mandelbrot.bas

@@ -0,0 +1,36 @@
+5 GR
+10 C1 = 64
+11 CA = 8
+12 CB = 8
+20 C4 = 4*C1
+30 XR = 40
+40 YR = 40
+50 MC = 15
+60 RN = -2*C1
+70 RX = 1*C1
+80 IN = -5*C1/4
+90 IX = 5*C1/4
+100 RD = (RX - RN)/(XR - 1)
+110 ID = (IX - IN)/(YR - 1)
+120 I = IN
+130 FOR Y = 0 TO YR - 1
+140     R = RN
+150     FOR X = 0 TO XR - 1
+160         ZR = 0
+170         ZI = 0
+180         CT = 0
+190         R2 = 0
+200         I2 = 0
+220             TR = R2 - I2 + R
+230             TI = ZR*2/CA*ZI/CB + I
+240             ZR = TR
+250             ZI = TI
+260             R2 = ZR/CA*ZR/CB
+270             I2 = ZI/CA*ZI/CB
+280             CT = CT + 1
+290         IF CT < MC AND R2 + I2 < C4 GOTO 220
+300         COLOR=15-CT:PLOT X,Y
+310         R = R + RD
+320     NEXT X
+340     I = I + ID
+350 NEXT Y

main.c

@@ -1597,7 +1597,6 @@ int16_t main(void)
 {
     int16_t blink;
 
-
     // Clear stored program.
     new_statement();