code:

---

IF Open(1, 'file.txt', 2) = 0
  if open (2,'newfile.txt',5)=0
    $line = ReadLine(1)
    WHILE @ERROR = 0
      $line=rtrim($line)
      $rc=writeline(2,$line)
      $line = ReadLine(1)
    LOOP
    $rc=close(2)
  endif
  $rc=close(1)
ENDIF

---

code:

---

Open(1,"c:\temp\Filein.txt")
Open (2,"c:\temp\Fileout.txt",5)
$x = split(ReadLine(1))
WHILE $x
Writeline (2,$x[ubound$x)]+@crlf)
$x = split(ReadLine(1))
LOOP
Close(1)
Close(2)

---