SCREEN 12
CLS
VIEW (0, 0)-(639, 479)
WINDOW (-4, 0)-(6, 10)
RANDOMIZE TIMER
x = 0
y = 0
WHILE INKEY$ = ""
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 = .23: e = .05: 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, y), 2

WEND
SCREEN 0