to bitpastefasttest
	setUpdateGraph false
	clearScreen
	box
	bmp=BitCopy 100 100
	clearScreen
	PenUp
	while [not Key?]
	[	setXY 700*rnd-400 500*rnd-300
		BitPasteFast bmp
	]
	Home
	PenDown
end