Here's a little 8-liner that fills the screen using NO random numbers (only sin+cos)
About the speed setting, lower=better quality (0=best, 20=worst)
hide mouse : sync on : sync rate 0 : a=0 : ink rgb(255,128,32),0 : input "Speed: ", speed : speed=abs(speed)+1 : cls
do : ink rgb(int(sin(a)*255),int(sin(a)*128),0),0 : old_x=300+sin(int(sin(a)^cos(a*sin(a^cos(a)))*120))*240 : old_y=160+int(sin(a)*120)
a=a+speed : x=300+sin(int(sin(a)^cos(a*sin(a^cos(a)))*120))*240 : y=160+int(sin(a)*120) : circle x,y,4 : line x,y,old_x,old_y : ink rgb(0,0,int(sin(a)*255)),0
circle y,x,4 : line y,x,old_y,old_x : op_x=300+(300-x) : op_y=160+(160-y) : ink rgb(int(sin(a)*255),0,int(sin(a)*255)),0 : circle op_x,op_y,4 : line op_x,op_y,old_x,old_y
ink rgb(int(sin(a)*64),128,int(sin(a^cos(a*10)))),0 : circle y,x,4 : line op_y,op_x,old_y,old_x
ink rgb(int(sin(a)*128),int(sin(a+45)*128),int(sin(a+90)*128)),0 : line 0,0,320+sin(a)*320,240-(cos(a)*239) : line 639,0,320+sin(a)*320,240-(cos(a)*239) : line 639,479,320+sin(a)*320,240-(cos(a)*239) : line 0,479,320+sin(a)*320,240-(cos(a)*239)
if a/100 = int(a/100) then center text 320-(sin(a)*220),220+(cos(a)*220),"DARKBASIC RULEZZZ!!!"
sync : loop
Quote: "
Amd 2500+ | 1024mb pc2700 | A7N8X-X | Geforce4 ti 4200 128mb"