extern fint tralog_c(fchar,fchar);