5 cls
10 scale#=1/240
15 zerox=gramaxx/2
20 zeroy=gramaxy/2
30 maxit=32
35 t=timer
40 for x=0 to 2*zerox-1
50 cr#=(x-zerox)*scale#
60 for y=0 to zeroy
70 ci#=(zeroy-y)*scale#
80 zr#=0
90 zi#=0
100 for i=1 to maxit
110 br#=cr#+zr#*zr#-zi#*zi#
120 zi#=ci#+2*zr#*zi#
130 zr#=br#
140 if zr#*zr#+zi#*zi#>4 then goto 170
150 next i
160 goto 190
170 pset(x,y),1+(i mod 15)
180 pset(x,2*zeroy-y),1+(i mod 15)
190 next y
200 next x
210 print "Time needed:"timer-t"seconds."
