$blob=open(1,"myfile.txt")
$blob=open(2,"output.txt",5)
$blob=writeline(2,'"')
do
 $line=readline(1)
 if instr($line,"FAX:")
  $line=$line+chr(10)
 endif
 $file=$file+" "+$line
until @error
$blob=close(1)
 $file=split(substr($file,2),chr(10))
 for each $record in $file
  $record='"'+join(split(join(split($record,"FAX:"),'","'),"Tel:"),'","')+'"'
  $blob=writeline(2,$line)
 next
$blob=close(2)