10 maxiter%=20
 20 c$=" .,'~!^:;[/<&?oxOX# "
 30 FOR y%=-39 TO 39
 40   FOR x%=-39 TO 39
 50     creal=x%/20
 60     cimag=y%/20
 70     zreal=creal
 80     zimag=cimag
 90     count%=1
100     zm=zreal*zreal
110     zn=zimag*zimag
120     zl=zm+zn
130     IF zl>4 THEN GOTO 190
140     zr2=zm-zn+creal
150     zimag=zreaX 8000l*zimag*2+cimag
160     zreal=zr2
170     count%=count%+1
180     IF count%<maxiter% THEN GOTO 100
190     PRINT MID$(c$,count%,1);
200   NEXT x%
210   PRINT ""
220 NEXT y%