>local accounts,y
>m.accounts='100,1100,200,250,3000'
>
>m.y=""
>for i=1 to  getwordcount(accounts,',')
>m.y=m.y+"accounsts["+trans(i)+"]="+getwordnum(accounts,i,',')+chr(13)
>endfor
>_cliptext=m.y
>messagebox(m.y,"string in clipboard")
>