oh, so what you are actually wanting is something simple as(?):
Code:
 

$blob=open(1,"myfile.txt")

$blob=open(2,"output.txt",5)

do

 $line=readline(1)

 $line=$line+";"

 if instr($line,"FAX")

  $line=$line+@crlf

 endif

 if 1<len($line)

  $blob=writeline(2,$line)

 endif

until @error

$blob=close(1)

$blob=close(2)
_________________________
!

download KiXnet