rem scribble
rem latch
rem 8/03/2008
 
set display mode 800,600,32
sync on
sync rate 60
 
cls rgb(255,255,255)
ink 0,0
 
x2=rnd(screen width()+20)-10
y2=rnd(screen height()+20)-10
do
   ox=x2
   oy=y2
   x2=rnd(screen width()+20)-10
   y2=rnd(screen height()+20)-10
 
   line ox,oy,x2,y2
 
   sync
loop