PARAMETER pozice0, inp_string
PRIVAT m_text, m_ind, m_delka
*
m.m_text = ''
m.m_ind = m.pozice0
m.m_delka = LEN(m.inp_string)
DO WHILE SUBSTR(m.inp_string, m.m_ind, 1) # '|'
  m.m_text = m.m_text + SUBSTR(m.inp_string, m.m_ind, 1)
  m.m_ind = m.m_ind + 1
  IF m.m_ind > m.m_delka
    EXIT
  ENDIF
ENDDO
RETURN m_text
