buffer 1:picload "0.png"
buffer 2:picload "arf.bmp"
dim data,512*92
	repeat 92
	ccnt=cnt
		repeat 512
		gsel 1
		pget cnt,ccnt
		r=ginfo_r
		g=ginfo_g
		b=ginfo_b
		gsel 2
		pget cnt,ccnt
		r2=ginfo_r
		poke data,w,r
		w++
		poke data,w,g
		w++
		poke data,w,b
		w++
		poke data,w,r2
		w++
		loop
	loop

bsave "dataao",data,512*92*4
end