sync on
r=4
 
for x=5 to 320
cls
for y=20 to 320
ink rgb(rnd(50)+200,rnd(50)+200,rnd(50)+200),0
 line x,y,oldx*r,oldy
next y
oldx=sin(y)
oldy=x
sync
next x