#include "fbgfx.bi"

type img

	i as FB.IMAGE ptr = imagecreate(256,256)

end type


screenres 640,480,32

dim as img tmp


for y as integer = 0 to 255

	for x as integer = 0 to 255

		pset tmp.i,(x,y), rgb( (x xor y), (x xor y), (x xor y) )

	next

next


put(0,0),tmp.i


sleep