' ----------------------------- Web ----------------------

BackColor 30

CLS

ForeColor 33

Num=10000

a=-.001

b =.3

c =.2

BackColor 33

CLS

x = 0

y = 0

FOR i = 1 TO Num

ForeColor 2*i+1

PSET(300+x,180+y)

xx = y - (ABS(b*x)+1)/(x+y+c)

yy = a - x

x = xx

y = yy

NEXT i

FOR k=1 TO 10^6

NEXT k