'------------------------------------ fern ----------------------------

CLEAR

BackColor 33

CLS

DIM a(4),b(4),c(4),d(4),e(4),f(4),p(4)

a(1)=0:a(2)=.85:a(3)=.2:a(4)=-.15

b(1)=0:b(2)=.04:b(3)=-.26:b(4)=.28

c(1)=0:c(2)=-.04:c(3)=.23:c(4)=.26

d(1)=.16:d(2)=.85:d(3)=.22:d(4)=.24

e(1)=0:e(2)=0:e(3)=0:e(4)=0

f(1)=0:f(2)=1.6:f(3)=1.6:f(4)=.44

x=0: y=0: numits = 30000

ForeColor 355

FOR n=1 TO numits

k = INT(4*RND-.00001)+1

xx=a(k)*x+b(k)*y+e(k)

yy=c(k)*x+d(k)*y+f(k)

x=xx: y=yy

IF n > 10 THEN PSET(100+50*y,200-50*x)

IF INKEY$ <>"" THEN esc

NEXT n

esc: