#define cr chr(13) #define lf chr(10) n=adir(aa, "*.prg") create cursor mm (m m) appe blank for i=1 to n appe memo m from (aa(i,1)) repl m with strt(m, cr+lf+cr+lf, cr+lf) copy memo m to (aa(i,1)) endfYou'd better look at the hex dump of at least one of your .prg files to see what combination of cr and lf it has at the end of line, and replace it with cr+lf - guess you'll have to change the second parameter of the strtran() a little. HTH