function AusgabeText(_self, iYPos,iAusrichtung,cText,nTextHoehe)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'Vermittlerabrechnung'
// -----------------------------------------

// da innerhalb einer oTab das '&'-Zeicehn nicht ausgedruckt wird, muß diese
// methode es eben zu Fuß erledigen

LOCAL n
LOCAL cTextZeile

IF ! Empty(cText)	
  cTextZeile := ""
  n := 1
  while n <= Len(cText)
    IF Asc(SubStr(cText,n,1)) == 13 .or. Asc(SubStr(cText,n,1)) == 10	// CR LF
      n := n + 1
      _SELF:txt_gerichtet(iYPos,iAusrichtung,cTextZeile)
       iYPos := iYPos + nTextHoehe
       cTextZeile := ""
    ELSEIF n == Len(cText)	// Textende
      cTextZeile := cTextZeile + SubStr(cText,n,1)
      _SELF:txt_gerichtet(iYPos,iAusrichtung,cTextZeile)
    ELSE
      cTextZeile := cTextZeile + SubStr(cText,n,1)
    ENDIF
    n := n + 1
  enddo
ENDIF

return 0
