rem scribble 3
rem latch
rem 08/03/2008
randomize timer()
 
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()
   cx=screen width()/2
   cy=screen height()/2
   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