DrawImageRect query

Sure-

Global use_key=28, up_key=200, down_key=208, left_key=203,right_key=205,fire_key=157, exit_key=1
screenx=800
screeny=600

map=CreateImage(1600,1200)
x=800
y=600
SetBuffer ImageBuffer(map)
Color 255,255,0
Oval 0,0,1600,1200,1
Color 0,0,0
Oval 500,500,200,200,1
Oval 1100,500,200,200,1
Rect 600,900,400,50,1


Graphics screenx,screeny,16,0
While Not KeyDown(exit_key)
	SetBuffer BackBuffer()
	Cls
	If KeyDown(right_key) x=x-5
	If KeyDown(left_key) x=x+5
	If KeyDown(up_key) y=y+5
	If KeyDown(down_key) y=y-5
	DrawBlockRect map,0,0,x,y,800,600
	Flip
Wend