command1_clik x=val (text1.text) if x mod 2= 0 then list2.addlitam x else list1.addlitem x end if text1.text="" end sub command2_cilik list1.clear list2.clear