Ed,

>>Your command gives me an error message "String is too long".
>>Meanwhile I created my own program (and inserted Description at the top)
>>
>>

>>********************************************************************
>>*  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
>>

>>
>
>You can simplify this considerably = try
>
>_CLIPTEXT = CHRTRAN(FILETOSTR('Description.txt'),CHR(10),'')
>KEYBOARD "{Ctrl+V}" PLAIN

Yes, thank you, Ed.

Actually, I modified my program a little to insert ttoc(datetime()) in 6 line (Modified by...)

for i=1 to lnLines
 _CLIPTEXT=_CLIPTEXT+ALLTRIM(mline(lcString,1,_mline))+;
   iif(i=6," Nadya Nosonovsky "+ttoc(datetime()),'')+CF_CR
next

So, it's still useful.