ok that first one killed my brain lol.
The last one's cool but I think fading across the screen would be cooler.
Always fun to see a bit of trig though... I'm doing maths at college, it's nice to have a break :p
EDIT:
I meant kinda like this:
cls rgb(155,155,255)
hide mouse
sync on
sync rate 60
do
for x=0 to 320
r=(sin((timer()/10)+x)*100)+155
g=(sin((timer()/10)+x)*-100)+155
b=(cos((timer()/10)+x)*100)+155
ink rgb(r,g,b),0
line x,0,x,480
line 640-x,0,640-x,480
sync
next x
loop
But then I realised that it resulted in something that looked alarmingly like those terrible backgrounds that preteen girls use on powerpoint for their presentations, and hung my head in shame.
http://jamesmason01.googlepages.com/index.htm