5 REM --- ASCII-ART MANDELBROT SET ----
6 PRINT CHR$(12);
7 REM TERMINAL WIDHT= 80 !!!
10 FOR Y=-12 TO 12:FOR X=-39 TO 39
30 CA=X*0.0458:CB=Y*0.08333:A=CA:B=CB
70 FOR I=0 TO 15
80 T=A*A-B*B+CA:B=2*A*B+CB:A=T:IF (A*A+B*B)>4 GOTO 200
120 NEXT I:PRINT " ";:GOTO 210
200 IF I>9 THEN I=I+7
205 PRINT CHR$(48+I);
210 NEXT X:PRINT:NEXT Y