10 GRAPHICS 8:COLOR 1
20 SQRT2=SQR(2)
30 SX=3/320:SY=2/192
40 FOR X=62 TO 319
50 FOR Y=0 TO 96
60 GOSUB 1000
70 IF Z=0 THEN PLOT X,Y:PLOT X,192-Y
75 PRINT X,Y,N
80 NEXT Y
90 NEXT X
100 IF PEEK(764)=255 THEN 100
110 END 
1000 REM SPRAWDZAMY Z
1010 ZX=0:ZY=0:N=0
1020 RX=SX*X-2:RY=SY*Y-1
1030 N=0
1040 NZX=ZX^2-ZY^2
1050 NZY=2*ZX*ZY
1060 ZX=NZX+RX
1070 ZY=NZY+RY
1080 IF (SQR(ZX^2+ZY^2)>=SQRT2) THEN Z=1:RETURN 
1090 IF (N>50) THEN Z=0:RETURN 
1100 N=N+1
1110 GOTO 1040