iterat=100;n=200;
x1=-1.5;x2=1.5;
y1=-1.5;y2=1.5;
c=-0.12256117+0.744861771 I;
deltax=(x2-x1)/n;
deltay=(y2-y1)/n;
f[z_]:=z^2+c;
t=Table[{If[0<=(y-(y1+y2)/2)<deltay,Print[N[100(x-x1)/(x2-x1),4],"  %"]];
   k=0;z=x + I y;
   While[k<iterat,{z=f[z];erg=Abs[z];If[erg>5,k=iterat,k++]}
];
If[erg>2,f,{x,y}]}[[1]],{x,x1,x2,deltax},{y,y1,y2,deltay}];
tt=Cases[Flatten[t,1],{_,_}];
bild=ListPlot[tt,ImageSize->{400,300}];