Change this
Code:

    While @Error = 0
      $2 = Split($R,CHR(9))
      If InStr($2[1],$Date)
        $Nul = Open(2,'C:\TEMP\Compile.TXT',5)
        While @Error = 0
          $Nul = Writeline(2,$R+@crlf)
          $R Readline(1)
        Loop
      EndIf
      $R = Readline(1)
    Loop

To this
Code:

        $Nul = Open(2,'C:\TEMP\Compile.TXT',5)
        While @Error = 0
          $Nul = Writeline(2,$R+@crlf)
          $R Readline(1)
        Next
Code: