extern fint irco_prnumber_c(fchar);