extern fint listctrl_c(fint *);