
Decompor um nome em códigos fonéticos.
FONETV (<exp.C1>,<vetor>)
|
<exp.C1> |
representa o nome a decompor. |
|
<vetor> |
representa o nome do vetor que receberá os códigos fonéticos. |
Devolve o número de códigos fonéticos encontrados na cadeia <nome> e guardados no vetor cadeia <vetor> que deve ter um número de elementos suficientes para contê-los e tamanho de elemento >=8.
declare fons[10] = space (8)
n = fonetv ("JOSE DA SILVA", fons)
for j=1 to n
? fons [j] && exibirá 85200000 e 4E611000
next
