Function AusgabeText(_self, iYPos,iAusrichtung,cText,nTextHoehe)
//-DEFAULTSCRIPT-//
// ---------------------------
// nderung der Maklervereinbarung
// ---------------------------
// 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 := ""
  FOR n := 1 TO 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
  NEXT n

ENDIF

RETURN