15 lines
289 B
Text
15 lines
289 B
Text
10 PRINT CHR$(11);
|
|
20 FOR Y=0 TO 71
|
|
30 FOR X=0 TO 79
|
|
40 GOSUB 100
|
|
50 NEXT:NEXT:END
|
|
100 XP=X/79*2.7-2
|
|
110 YP=Y/71*2-1
|
|
120 IT=0:XX=0:YY=0
|
|
130 XTEMP=XX*XX - YY*YY + XP
|
|
140 YY=2*XX*YY + YP
|
|
150 XX=XTEMP
|
|
160 IT=IT+1
|
|
170 IF XX*XX+YY*YY<4 AND IT<20 THEN 130
|
|
180 IF IT=20 THEN PSET(X,Y)
|
|
190 RETURN
|