{ Dessine l'ensemble de mandelbrot... en texte! }

FOR Y=0 TO 40 [
  FOR X=0 TO 78 [
    CA=X/78*3-2 :
    CB=Y/40*2.5-1.25 :

    ZA=0 : ZB=0 :
    ITERATION=40 :
    WHILE (ITERATION>0) * (ZA*ZA+ZB*ZB<400) [
      ZZ=ZA*ZA-ZB*ZB+CA :
      ZB=2*ZA*ZB+CB :
      ZA=ZZ :
      ITERATION=ITERATION-1
    ] :

    IF ITERATION MOD 8 = 7 [ PRINT "*" ] :
    IF ITERATION MOD 8 = 6 [ PRINT "." ] :
    IF ITERATION MOD 8 = 5 [ PRINT "#" ] :
    IF ITERATION MOD 8 = 4 [ PRINT "o" ] :
    IF ITERATION MOD 8 = 3 [ PRINT "@" ] :
    IF ITERATION MOD 8 = 2 [ PRINT " " ] :
    IF ITERATION MOD 8 = 1 [ PRINT "O" ] :
    IF ITERATION MOD 8 = 0 [ PRINT "^" ]

  ] :
  PRINT "\n"
]