sub replace_choice {
    $level[$levelselect]->Label(
				-text=>"$logicchoice"
				)->grid(
					-row=>1,
					-column=>0,
					-columnspan=>5,
					-sticky=>"nw"
					);
}