CLS
iii=0
RANDOMIZE TIMER
'x = 60
'y = 60
WHILE iii<100000
r = RND
IF (r <= .01) THEN
a = 0: b = 0: c = 0: d = .16: e = 0: f = 0
ELSEIF r > .01 AND r <= .86 THEN
a = .85: b = .04: c = -.04: d = .85: e = 0: f = 1.6
ELSEIF r > .86 AND r <= .93 THEN
a = .2: b = -.26: c = .23: d = .22: e = 0: f = 1.6
ELSE
a = -.15: b = .28: c = .26: d = .24: e = 0: f = .44
END IF
newx = (a * x) + (b * y) + e
newy = (c * x) + (d * y) + f
x = newx
y = newy
PSET x*50+150, y*50, 2
' print x,y
iii=iii+1
WEND