rem scribble 2
rem latch
rem 08/03/2008
 
set display mode 800,600,32
sync on
sync rate 60
cls rgb(255,255,255)
ink 0,0
 
for rx=1 to screen width()/4
   cx=rnd(screen width())
   cy=rnd(screen height())
   for ry=0 to 500
      inc ang#,.5
      x#=rx*cos(ang#)+cx
      y#=ry*sin(ang#)+cy
      dot x#,y#
   next ry
next rx
 
sync
 
wait key