extern fint getpro_c(fchar,fint *);