heres my first twenty liner which was written in exactly 2 minutes from executing dark basic pro. ( not bad eh!) just replace the music filename with another one. could be used as a screen saver!!!
load music "new_handbags_gladrags.mp3",1
play music 1
do
box 0,0,640,480,rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255))
for t=0 to 255
set gamma t,t,t
sleep 0.1
next t
sleep 3000
for t=255 to 0 step -1
set gamma t,t,t
sleep 0.1
next t
loop
I have a word of advice...
..don't piss on an electric fence!