set display mode 1024,768,32
sync on : sync rate 85
load image "w.jpg",1
make memblock from image 1,1
width = memblock dword(1,0)
height = memblock dword(1,4)
for x = 1 to width/2
for y = 1 to height
location = ((y-1)*width + x - 1)*4 + 12
rem set each pixel in the image to a random color
write memblock dword 1,location,rgb(rnd(255),rnd(255),rnd(255))
next x
next y
rem create a new image from memblock data
make image from memblock 3,1
do
sprite 1,mousex(),mousey(),4
sprite 2,mousex()+width+5,mousey(),3
sync
loop