' Progam InsectX2.bas

'---------------------------- Insect2 -----------------------------

BackColor 30

CLS

ForeColor 33

Num=5000

a =1.9

BackColor 33

CLS

x = 0

y = 0

FOR i = 1 TO Num

ForeColor 2*i+1

PSET(300+x,170+y)

xx = y - SQR(a*x^2+1)

yy = a - x

x = xx

y = yy

NEXT i

FOR k=1 TO 10^6

NEXT k