DIMENSION Array1(5) Array1(1)='h' Array1(2)='e' Array1(3)='l' Array1(4)='l' Array1(5)='o' ? Proc1(@Array) PROCEDURE Proc1 LPARAMETERS paArray LOCAL lcResult, lnCnt lcResult = "" FOR lnCnt = 1 to ALEN(paArray, 1) lcResult = lcResult + paArray(lnCnt) ENDFOR RETURN lcResult