TEXT to m.lcMyText noshow
0AD0AD0012123AD0012312AD0012341AD00AD0010123
12AD0012123AD0012312AD0012341AD00AD0010123AD0012123AD0012312AD0012341AD00AD001
ENDTEXT
lcTemp1 = Sys(2015)+'.txt'
lcTemp2 = Sys(2015)+'.txt'

************************** look here ***************************
Strtofile(m.lcMytext+'A',m.lcTemp1)

*!*	lcTemp1 = 'bigfile.txt' && 138Mb
*!*	lcTemp1 = 'bigfile.tx2' && 26Mb
*!*	lcTemp2 = 'bigfile.ou2'

#Define MAXBUFFER 5

lhIn = Fopen(m.lcTemp1)
lhOut = Fcreate(m.lcTemp2)
Set Step On 
Do While Not Feof(m.lhIn )
  lcBuffer = Fread(m.lhIn, MAXBUFFER)
  Do Case
    Case Right(lcBuffer,3) = 'AD0'
      Fseek(m.lhIn, -3, 1)
      lcBuffer = Left(lcBuffer,Len(lcBuffer)-3)
    Case Right(lcBuffer,2) = 'AD'
      Fseek(m.lhIn, -2, 1)
      lcBuffer = Left(lcBuffer,Len(lcBuffer)-2)
    Case Right(lcBuffer,1) = 'A'
      Fseek(m.lhIn, -1, 1)
      lcBuffer = Left(lcBuffer,Len(lcBuffer)-1)
  Endcase
  Fwrite(m.lhOut,Strtran(lcBuffer,'AD00','BR77'),MAXBUFFER)
Enddo
Fclose(m.lhIn)
Fclose(m.lhOut)
Modify Comm (m.lcTemp2)
Erase (m.lcTemp1)
Erase (m.lcTemp2)