extern fint userchar_c(fchar,fint *,fint *,fchar,fchar);