if chatstr="'checkers" then
	clearpaint
	clearlooseprops
	dim g as integer
	dim x as integer
	dim y as integer
	dim m as integer
	dim n as integer
	m=0
	n=0
	g=48
	penfront false
	penfill  true
	for x=g to g*8 step g
		m=m+1
		if m=2 then m=0
		for y=g to g*8 step g
			n=n+1	
			if n=2 then n=0	
			if m=n then
				pencolor RGB(255,0,0)
			else
				pencolor RGB(0,0,0)
			end if
			DRAWNTHLINE array (x-g,y-g,x,y-g,x,y,x-g,y)
		next y
	next x
	for y=0 to 2
		m=y
		if m=2 then m=0
		for x=g/2 to g*8-g/2 step g*2
			ADDLOOSEPROP 60048,x-22+m*g,g/2-22+y*g
			delay 300
		next x
	next y
	for y=-1 to 1
		m=abs(y)
		for x=g/2 to g*8-g/2 step g*2
			ADDLOOSEPROP 60049,x-22+m*g,g/2-22+y*g+g*6
			delay 300
		next x
	next y
	ADDLOOSEPROP 60035,g*8+22,0
	ADDLOOSEPROP 60034,g*8+66,0
	chatstr=""
end if