extern fint cftsi_getc_c(fint *,fint *,fint *,fint *);