LOCAL laString(3,1) AS CHARACTER, lnX AS INTEGER

laString[1] = "A,B,C"
laString[2] = "D,E,F"
laString[3] = "G,H,I"
CLEAR
* pass each element of the array to the DisplayMessage function
FOR lnX = 1 TO 3 STEP 1
	DisplayMessage( laString[lnX] )
ENDFOR

FUNCTION DisplayMessage
	LPARAMETERS tcMessage
* solution A
	LOCAL lnTotal AS INTEGER, laMessage(1) ,lnX AS INTEGER
* solution b
*	LOCAL lnX AS INTEGER,lnTotal AS INTEGER, laMessage(1) AS CHARACTER
* solution C
*	PRIVATE lnX
*	LOCAL lnTotal AS INTEGER, laMessage(1) AS CHARACTER,lnX AS INTEGER
	* split the message into an array
	lnTotal = ALINES(laMessage, tcMessage,",")

	* display each part of the passed parameter
	FOR lnX = 1 TO lnTotal STEP 1
		?? laMessage[lnX]
	ENDFOR

ENDFUNC