set display mode 1024, 768, 32
hide mouse
sync on
sync rate 100
dim p(11, 20) as dword
 
for y=0 to 20
  for x=0 to 11
    read c
    if c=0 then p(x,y)=rgb(0,0,0)
    if c=1 then p(x,y)=rgb(0,1,0)
    if c=2 then p(x,y)=rgb(255,255,255)
  next y
next x
 
mag as float
d as integer
mag=5
d=0
 
dim m (5) as float
white as dword
white=rgb(255,255,255)
gd=1
g=200
rd=-1
r=100
 
do
  cls
  d=d+1
  for i=0 to 5
    m(i)=sin(d+i*4)*10
  next
 
  xc=mousex()
  yc=mousey()
 
 
 
lock pixels
  for y=0 to 20
    for x=0 to 11
       for i=0 to 5
         if p(x,y)=white
           dot (m(i)*x)+xc+rnd(10),(m(i)*y)+yc+rnd(10), rgb(r,g,i*50)
         endif
       next i
    next y
  next x
unlock pixels
 
  sync
if g=254 or g=1 then gd=-gd
g=g+gd
 
if r=254 or r=1 then rd=-rd
r=r+rd
 
loop
 
`mouse pointer
data  1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
data  1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
data  1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
data  1, 2, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0
data  1, 2, 2, 2, 1, 0, 0, 0, 0, 0, 0, 0
data  1, 2, 2, 2, 2, 1, 0, 0, 0, 0, 0, 0
data  1, 2, 2, 2, 2, 2, 1, 0, 0, 0, 0, 0
data  1, 2, 2, 2, 2, 2, 2, 1, 0, 0, 0, 0
data  1, 2, 2, 2, 2, 2, 2, 2, 1, 0, 0, 0
data  1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 0, 0
data  1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 0
data  1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1
data  1, 2, 2, 2, 1, 2, 2, 1, 0, 0, 0, 0
data  1, 2, 2, 1, 1, 2, 2, 1, 0, 0, 0, 0
data  1, 2, 1, 0, 0, 1, 2, 2, 1, 0, 0, 0
data  1, 1, 0, 0, 0, 1, 2, 2, 1, 0, 0, 0
data  1, 0, 0, 0, 0, 0, 1, 2, 2, 1, 0, 0
data  0, 0, 0, 0, 0, 0, 1, 2, 2, 1, 0, 0
data  0, 0, 0, 0, 0, 0, 0, 1, 2, 2, 1, 0
data  0, 0, 0, 0, 0, 0, 0, 1, 2, 2, 1, 0
data  0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0