1 MA=20
2 D=20
5 C$=" .,'~!^:;[/<&?oxOX# "
6 FOR Y=-39 TO 39
7 FOR X=-39 TO 39
8 LET CR=X/D:LET CI=Y/D
9 LET ZR=CR:LET ZI=CI:LET CN=1
10 LET ZM=ZR*ZR:LET ZN=ZI*ZI:LET ZL=ZM+ZN
11 IF ZL>4 THEN GOTO 15
12 LET ZB=ZM-ZN+CR:LET ZI=ZR*ZI*2+CI
13 LET ZR=ZB:LET CN=CN+1
14 IF CN<MA THEN GOTO 10
15 PRINT MID$(C$,1+CN,1);
16 NEXT X
17 PRINT
18 REM on some bwbasic REM line 17
19 NEXT Y
