C_TEXT($buffer;$result;$Text)
$buffer:=""
$result:=""

Repeat 

$err:=TCP_Receive (TCPID;$buffer)
$err:=TCP_State (TCPID;vState)
$result:=$result+$buffer

Until ((vState=0) | ($err#0))