'------------------------------- Galaxy --------------------

BackColor 30

CLS

ForeColor 33

Num=20000

a =15

b =-10

BackColor 33

CLS

x = 1

y = 1

FOR i = 1 TO Num

ForeColor 2*i+1

PSET(250+x,200+y)

xx = SGN(x+y)*SQR(ABS(x^2-y^2))

yy = SGN(x-y)*SQR(ABS(x*y))

x = xx+a

y = yy+b

NEXT i

FOR k=1 TO 10^6

NEXT k