cls rgb(black)
n=255:r=(2*pi)/235:x=0:v=0:t=0:sz=200:s=0:sw=scrw/sz:sh=scrh/sz:offset=scrh/4.5
scrw=320 'mm.hres
scrh=240 'mm.vres
do
  for i=50 to n
    for j=50 to n
     u=sin(i+v)+sin(r*i+x)
     v=cos(i+v)+cos(r*i+x)
     x=u+t
     pixel scrw/2+u*offset,scrh/2+v*offset,rgb(i,j,100)
    next j
  next i
  t=t+.025
loop