utilizar funcoes otimizadas do harbour para substr,at e len