200byteDemoChallenge!

a variation on my previous one: Nucleus, 242 bytes

Graphics 640,480Repeat;x=x+2;b=b+1Cls;For c=0 To 359w=100*Sin(c+x)h=15*Cos(c+b)y=y+1e#=Sin(c*c+x)d#=Cos(c*c+b)SetRotation c*e;DrawOval 200*e+320,200*d+240,h*d,h*d;DrawOval w*Sin(c*c+x)+320,w*Cos(c*c+x)+240,h*e,h*e;Next;Flip;Until KeyDown(27)

And also: Twin Nucleus:

Graphics 640,480Repeat;x=x+2;b=b+1Cls;For c=0 To 359w=100*Sin(c+x)h=15*Cos(c+b)y=y+1e#=Sin(c*c+x)d#=Cos(c*c+b)SetRotation c*e;DrawOval 200*e+320,200*d+240,h*d,h*d;DrawOval w*d*Sin(c*c+x)+320,w*d*Cos(c*c+x)+240,h*e,h*e;Next;Flip;Until KeyDown(27)

which is 246