extern fint ftrunc_c(fchar,fint *);