break on
IF Open(1, 'C:\testout.txt',5) = 0
  IF Open(2, 'C:\testin.txt') = 0
    $x = ReadLine(2)
    WHILE @ERROR = 0
      $=WriteLine(1, $x + ",10" + @CRLF)
      $x = ReadLine(2)
    LOOP
    $=Close (2)
    $=Close (1)
  ELSE
    BEEP
    ? "C:\testin.txt file not opened, error code: [" + @ERROR + "]"
  ENDIF
ELSE
  BEEP
  ? "C:\testout.txt file not opened, error code: [" + @ERROR + "]"
ENDIF
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.