xHarbour - duas maneiras de fazer um loop em uma string pegando cada caracter da mesma

Usando o tradicional FOR

Local I, cNome
cNome := "Edson Mundin Ferreira"
For I = 1 To Len(cNome)
? SubStr(cNome, I, 1)
Next I 

Usando o FOR EACH

Local C, cNome
cNome := "Edson Mundin Ferreira"
For Each cLetra IN cNome
? cLetra
Next