option explicit

dim blnClicked1
dim blnClicked2
dim blnClicked3
dim blnClicked4
dim blnClicked5


Sub window_onload
dim td
for each td in document.getElementsByTagName("td")
	if left(td.id,2)="td" then
		td.style.cursor="hand"
	end if
next
End Sub

Sub tdA1_onclick
	tdA1.style.cursor="default"
	tdA1.style.backgroundColor="red"
	tdA1.style.color="white"
	blnClicked1=true
End Sub

Sub tdB1_onclick
	tdB1.style.cursor="default"
	tdB1.style.backgroundColor="lightgreen"
	tdB1.style.color="black"
	blnClicked1=true
End Sub

Sub tdC1_onclick
	
	tdC1.style.cursor="default"
	tdC1.style.backgroundColor="red"
	tdC1.style.color="white"
	blnClicked1=true
End Sub

Sub tdA2_onclick
	tdA2.style.cursor="default"
	tdA2.style.backgroundColor="lightgreen"
	tdA2.style.color="black"
	blnClicked2=true
End Sub

Sub tdB2_onclick
	tdB2.style.cursor="default"
	tdB2.style.backgroundColor="red"
	tdB2.style.color="white"
	blnClicked2=true
End Sub

Sub tdC2_onclick
	
	tdC2.style.cursor="default"
	tdC2.style.backgroundColor="red"
	tdC2.style.color="white"
	blnClicked2=true
End Sub

Sub tdA3_onclick
	tdA3.style.cursor="default"
	tdA3.style.backgroundColor="red"
	tdA3.style.color="white"
	blnClicked3=true
End Sub

Sub tdB3_onclick
	tdB3.style.cursor="default"
	tdB3.style.backgroundColor="red"
	tdB3.style.color="white"
	blnClicked3=true
End Sub

Sub tdC3_onclick
	
	tdC3.style.cursor="default"
	tdC3.style.backgroundColor="lightgreen"
	tdC3.style.color="black"
	blnClicked3=true
End Sub

Sub tdA4_onclick
	tdA4.style.cursor="default"
	tdA4.style.backgroundColor="red"
	tdA4.style.color="white"
	blnClicked4=true
End Sub

Sub tdB4_onclick
	tdB4.style.cursor="default"
	tdB4.style.backgroundColor="red"
	tdB4.style.color="white"
	blnClicked4=true
End Sub

Sub tdC4_onclick
	
	tdC4.style.cursor="default"
	tdC4.style.backgroundColor="lightgreen"
	tdC4.style.color="black"
	blnClicked4=true
End Sub

Sub tdA5_onclick
	tdA5.style.cursor="default"
	tdA5.style.backgroundColor="lightgreen"
	tdA5.style.color="black"
	blnClicked5=true
End Sub

Sub tdB5_onclick
	tdB5.style.cursor="default"
	tdB5.style.backgroundColor="red"
	tdB5.style.color="white"
	blnClicked5=true
End Sub

Sub tdC5_onclick
	
	tdC5.style.cursor="default"
	tdC5.style.backgroundColor="red"
	tdC5.style.color="white"
	blnClicked5=true
End Sub