control program