Added MySelect subprogram... still not good