function AusgabeText(_self,iYPos,iAusrichtung,cText,nTextHoehe)
//-DEFAULTSCRIPT-//
// ---------------------------
// Beratungsprotokoll
// ---------------------------
// da innerhalb einer oTab das '&'-Zeichen 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 0
