sync on:cls
            sync rate 30
 
            do
for background=1 to 1000
   dot rnd(640),rnd(480)
next background
 
 ink rgb(rnd(255), rnd(255), rnd(255)),1
 
   left=rnd(640)
   top=rnd(480)
   right=(left+50)
   bottom=(top+50)
 
 
 
 
    sync
loop