cName = "Zakaria" >lnLenCName = LEN( cName) >DIMENSION aLetters( lnLenCName) >FOR i = 1 to lnLenCName > aLetters[ i] = SUBSTR( cName, i, 1) > ? aLetters[ i] + CHR(13) >ENDFOR>
cName = "Zakaria" DIMENSION aLetters( LEN( cName)) FOR i = 1 to ALEN(aLetters) && ALEN(aLetters) IS faster respect to a lnLenCName read aLetters[ i] = SUBSTR( cName, i, 1) ? aLetters[ i] + CHR(13) ENDFOR