sForward='0,0,0,255,255,255' sReverse='' FOR n=1 TO ALINE(aItem,m.sForward,',') STORE ","+aItem[m.n]+m.sReverse TO sReverse ENDFOR ? SUBSTR(m.sReverse,2)