to bitfilltest
	clearScreen
	disableLineSmooth
	box
	PenUp setXY -100 -100
	bmp=BitCopy 200 200
	BitFill bmp (BitMaxX bmp)*0.6 (BitMaxY bmp)*0.6
	Home
	setXY -100 -100
	BitPaste bmp
	Home
	PenDown
end