DIMENSION myArray[2]
myArray[1] = "Element 1"
myArray[2] = "Element 2"

LIST MEMO LIKE myArray

CREATE CURSOR mycursor (cmemo M)

APPEND BLANK
*-- Save array to memo
SAVE TO MEMO mycursor.cMemo ALL LIKE myArray

RELEASE myArray

LIST MEMO LIKE myArray        && myArray not shown since it is released

*-- Restore array from memo field
RESTORE FROM MEMO myCursor.cMemo

LIST MEMO LIKE myArray