CLEAR USE bb COPY TO ARRAY arr DIMENSION arr[ALEN(arr)] LOCAL larr[ALEN(arr, 1), 2] FOR lnj = 1 TO ALEN(arr, 1) larr[lnj, 1] = arr[lnj] larr[lnj, 2] = VAL(CHRTRAN(arr[lnj], "ABCDEFGHIJGLMNOPQRSTUVWXYZ", "")) ENDFOR ASORT(larr, 2) ? RTRIM(arr[1]) FOR lnj = 2 TO ALEN(arr) ?? "-" + ALLTRIM(larr[lnj, 1]) ENDFOR