200byteDemoChallenge!

Nice website and thanks Benyboy!

Though on your website, your "Cygnus Entry 2" isn't mine, its Koriolis'. I reduced it to 247 for him ;)

My four entries are:

Graphics 640,480Repeat;o=320;p=240For i#=0To 360f#=Sin(i)*128s=Sgn(Cos(i))For x#=0To 8Step .04b#=(x^2)-64a#=((8-x)^2)-64For e=a To -a;c#=Rnd((e/2)+f+(b*(b/400)))*6SetColor 64-c,c,c;Plot o+e*s,p+b;Plot o+e*s,p-b;Next;Next;Flip;Next;Until Keyhit(27)

Graphics 640,480b#=0d#=128Repeat;x#=320y#=240;o=x;p=y;a#=-b*5For c#=1To 750;e#=Sin(c+b*30)SetColor d+e*d,d+Cos(c+b*30)*d,d-e*d;DrawLine o,p,x,y;o=x;p=y;x=x+Sin(a)*c;y=y+Cos(a)*c;a=a+90+Sin(b);b=b+.01Next;b=b-7.4Flip;Cls;Until KeyDown(27)

Graphics 640,480b#=0d#=128Repeat;x#=320y#=240o=x;p=y;a#=-b*5For c#=1To 750 Step .2;e#=Sin(c+b*30)SetColor d+e*d,d+Cos(c+b*30)*d,d-e*d;DrawLine o,p,x,y;o=x;p=y;x=x+Sin(a)*c;y=y+Cos(a)*c;a=a+30+Sin(b);b=b+.002Next;b=b-7.45Flip;Cls;Until KeyDown(27)

e#=128f#=512g#=360Graphics f,f;Repeat;For x#=-1To 1 Step .01For y#=-1To 1 Step .01o#=(x*Sin(a))+y*Cos(a)p#=(y*Sin(a))-x*Cos(a)q#=o*f;SetColor e+Sin(q)*f,Cos(q)*f,g-Cos(q)*f;Plot f/2+o*e+Sin(y*g)*20,f/2+p*e/2-Cos(x*g)*40Next;Next;a:+1Flip;Cls;Forever