LN DLL to convert Text (i.e. field with domain tctxtn) to String

function extern domain tcmcs.s512 gp.cus.dll0200.convert.text.field.to.value(
domain tcmcs.st20m i.text.variable)
{
string l.text.buffer(200, 10) mb
string l.return.value(512) mb
long l.number.of.text.lines
long i

l.return.value = ""
l.number.of.text.lines = text.to.buf(i.text.variable,
     language$,
             10, l.text.buffer)
if l.number.of.text.lines > 0 then
for i = 1 to l.number.of.text.lines
l.return.value = l.return.value & " " & trim$(l.text.buffer(1,i))
endfor
endif
return(l.return.value)
}