Switch Color When Clicked

#VRML V2.0 utf8

Group {
   children [
      DEF TOUCH TouchSensor {}
      Shape { 
	 appearance Appearance { material DEF MAT Material { diffuseColor .2 .2 .2 } }
	 geometry Sphere {}
      }		
     ]
}

DEF SCRIPT Script {
   eventIn SFBool clicked
   eventOut SFColor color
   field SFBool lit FALSE
   url "vrmlscript:

function clicked(val) {
   if(val) {
      if(lit) { 
	 color = new SFColor(.2,.2,.2); 
	 lit = FALSE;
      }
      else { 
	 color = new SFColor(1,1,0); 
	 lit = TRUE;
      }
   }
}"

}

ROUTE TOUCH.isActive TO SCRIPT.clicked
ROUTE SCRIPT.color TO MAT.diffuseColor