lparameters tcText1, tcText2 #define MAXCHARS 65535 h1 = fopen(tcText1,12) && tcText2 appended to tcText1 h2 = fopen(tcText2) =fseek(h1,0,2) *=fputs(h1,'') && insert CRLF at end do while !feof(h2) =fwrite(h1,fread(h2,MAXCHARS),MAXCHARS) enddo =fclose(h1) and fclose(h2)Cetin