>******************************************************************** >* Description.......: Function InsertDescription >* Calling Samples...: >* Parameter List....: >* Created by........: George Tasker 12/28/99 >* Modified by.......: Nadya Nosonovsky 12/28/99 >******************************************************************** >#DEFINE CF_CR CHR(13) >local lcString, lnLines, i, lnMemoWidth >lcString=FileToStr('Description.txt') >lnLines=memlines(lcString) >lnMemoWidth=set('memowidth') && Save original settings >set memowidth to 255 >_CLIPTEXT=CF_CR >_mline=0 >for i=1 to lnLines > _CLIPTEXT=_CLIPTEXT+ALLTRIM(mline(lcString,1,_mline))+CF_CR >next >KEYBOARD "{CTRL+V}" PLAIN >set memowidth to lnMemoWidth && Restore original settings >>