extern fint mtwritec_c(fint *,fchar);