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