ync on
For y= 0 to 99
  r= 255- (y/3)*10
  if r<0 then r=0
  g= 255- (y/2)*10
  if g<0 then g=0
  b= 255- (y/4)*10
  ink rgb(r,g,b),0
 
  For x= 1 to 400
    s= sin((x/400.)*360)*20
    dot x,y+s
  Next x
Next y
 
set text font "impact",1
set text size 50
ink rgb(255,255,255),0
center text 200,25,"Dark Basic Challenges"
 
get image 1,1,25,400,75
cls:wait 10
 
paste image 1,120,190
sync
wait key
 
for n = 1 to 100
 paste image 1,rnd(640),rnd(480)
 sync
next n
 
save image "wavysig.jpg",1