extern fint pgcurs_c(float *,float *,fchar);