local lcSourceFile,lnFileHandle1,lnFileHandle2,lnStr,lnPageLenght,lcStr,lcGetStr,lcSymbol
lcStr=''
lnPageLenght= 60  && кол-во строк на странице
lcSymbol='~' && используемый в тексте символ-разделитель страниц
lcSourceFile=getfile('TXT')
if empty(lcSourceFile)
 =messagebox('Не выбран файл', 64 ,' Отмена')
 cancel
endif
lnFileHandle1=fopen(lcSourceFile)
if lnFileHandle1< 0 
 =messagebox('Ошибка открытия исходного файла', 16 ,' Ошибка')
 cancel
endif
lnFileHandle2=fcreate('c:\tmp.txt') && файл, куды пишем
if lnFileHandle2< 0 
 =messagebox('Ошибка открытия файла-приемника', 16 ,' Ошибка')
 =fclose(lnFileHandle1)
 cancel
endif
lnStr= 0 
Вариант= 2  && варианты реализации
do while !feof(lnFileHandle1)
 lcGetStr=fget(lnFileHandle1, 600 )
 lcOffset=at(lcSymbol,lcGetStr)
 if lcOffset> 0  && символ найден
  if Вариант= 1 
   *** Если строка должна дробиться символом-разделителем на  2  
   =fputs(lnFileHandle2,left(lcGetStr,lcOffset- 1 )+chr( 12 ))
   lcStr=substr(lcgetStr,lcOffset+ 1 )
   lnStr=IIF(empty(lcStr), 0 , 1 )
   =IIF(!empty(lcStr),fputs(lnFileHandle2,lcStr),.f.) && остаток строки переносится на след страницу отдельной строкой
   else
   *** перед строкой, содержащей разделитель, нужно вставить разрыв страницы
   =fputs(lnFileHandle2,chr( 12 )+lcGetStr)
   lnStr= 1 
  ***
  endif

  else
  lnStr=lnStr+ 1 
  =fputs(lnFileHandle2,lcGetStr+IIF(lnStr>=lnPageLenght,chr( 12 ),''))
  if lnStr>=lnPageLenght
   lnStr= 0 
  endif
 endif
enddo
=fclose(lnFileHandle1)
=fclose(lnFileHandle2)
=messagebox('Копирование завершено', 64 ,' Ok')