If NOT @LOGONMODE
	Break ON
EndIf
Dim $SO
$SO = SetOption("Explicit","On")
$SO = SetOption("NoMacrosInStrings","On")
$SO = SetOption("NoVarsInStrings","On")
$SO = SetOption("WrapAtEOL","On")

Dim $InputFile, $OutputFile, $Handle1, $Handle2, $Line
$InputFile = "file1.txt"
$OutputFile = "file2.txt"

;Open first file for read, if fails, end code
$Handle1 = FreeFileHandle()
If Open($Handle1,$InputFile,2) = 0
	;Open second file for write, if fails, close first file, end code
	$Handle2 = FreeFileHandle()
	If Open($Handle2,$OutputFile,5) = 0
		;Read line after line until error code indicates there are no lines anymore
		$Line = ReadLine($Handle1)
		While @ERROR = 0
			;If NOT event 560 occurred, write line to second file
			If NOT Split($Line,",")[5] = "560"
				$SO = WriteLine($Handle2,$Line + Chr(13) + Chr(10))
			EndIf
		$Line = ReadLine($Handle1)
		Loop
		;Close files
		$SO = Close($Handle1)
		$SO = Close($Handle2)
	Else
		$SO = Close($Handle1)
		? "Error opening File2"
		? "Error " + @ERROR + ": " + @SERROR
	EndIf
Else
	? "Error opening File1"
	? "Error " + @ERROR + ": " + @SERROR
EndIf