* PARSE.PRG
*--- Example comma-separated list
LineRead = '100,200,"Three Hundred",400'

*--- Parse list, placing each element in an array
myArray  = GetParmList(LineRead)

*--- Print array values
for x=1 to len(myArray)
    ? myArray[x]
next x
return

        *---*
Function GetParmList(plist)
return &('{'+plist+'}')