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