s SOH=$C(1)
 s TCPPORT="|TCP|81"
 s PORT=3001
 s TIMEOUT=3
 open TCPPORT:(:PORT:"S"):TIMEOUT

 // далее в цикле ожидаем когда будет передан символ $C(1) - <SOH>

U10A s La=$$TCPREAD1^ONLLIB
 g:La="-1" U10A
 g:La'=SOH U10A

U10Z q
 // затем читаем строки 

U10C s satz=$$TCPREAD2^ONLLIB
 i satz="-1"  g U10Z //Таймаут
 // идет разбор строки
 ;
 i Ltyp="L" d // при определенном условии (последняя строка)
  .// в конце должен быть символ $C(4) <EOT>
  .s Leot=$$TCPREAD1^ONLLIB
  .// обработка данных   
 i Ltyp="L" i Leot=EOT g U10A //новый цикл
 g U10C
U10Z  q

 // рутина ONLLIB
ONLLIB
TCPREAD2
 s TCPready=0
 s TCPstart=""
 s TCPstop=$C(13)
U05I  u TCPPORT r *A:TCPtimeout
 i '$T s TCPstr="-1" g U05Z
 i TCPready=0 i A=TCPstart s TCPready=1
 i TCPstart'="" i TCPready=0 g U05I
 s TCPstr=TCPstr_A
 i A=TCPstop g U05Z
 g U05I

TCPREAD1
 u TCPPORT r *A:TCPtimeout
 i '$T s TCPstr="-1" g U05Z
 s A=$C(A)
 s TCPstr=A
U05Z u 0
 s TCPstr=$TR(TCPstr,NUL,"")
 q TCPstr