IF !EMPTY(observe.comment) lnLines=ALINES(aLinez,observe.comment) lcHoldLines = "" FOR i = 1 TO lnLines IF LEFTC(aLinez(i),4) <> "--- " lcHoldlines = lcHoldlines + ALLT(aLinez(i)) + CHR(13) ENDIF ENDFOR IF !EMPTY(lcHoldlines) REPLACE observor.comment WITH lcHoldlines ENDIF ENDIF