chgdisp 1
	mouse -1
	gsel 0,-1
	bgscr 3,dispx,dispy,0,0,0
	a="  "
	repeat
		wait 1
		rnd x1,dispx
		rnd y1,dispy
		rnd r,256
		rnd g,256
		rnd b,256
		color r,g,b
		rnd mode,100
		if mode {
			rnd c,65536;107
			wpoke a,0,c;+32
			pos x1,y1
			mes a
		} else {
			rnd x2,dispx
			rnd y2,dispy
			boxf x1,y1,x2,y2
		}
	loop