well this didn't work:

Code:
$OpenReorgFile  = Open(3,$ReorgFile,2)
$PhoneDirFile   = @ScriptDir + '\Balad_Telephone_Book.csv'
$OutputFile     = @ScriptDir + '\Morale_Call_Output.csv'
$OpenOutputFile = Open(5,$OutputFile,5)

If $OpenReorgFile = 0 AND $OpenOutputFile = 0
  $rLine = ReadLine(3)
  Do
    $rArrLine = Split($rLine+',,,,',',')
    ? '1:  ' + $rArrLine[4]
      $handle = FreeFileHandle()
      If Open($handle,$PhoneDirFile,2) = 0
        $pdLine   = ReadLine(4)
        If @ERROR <> 0
          ? 'Error: ' + @ERROR + ' -- ' + @SERROR
        Endif
        sleep 5
        While @ERROR = 0
          $pdArrLine = Split($pdLine+',,,,',',')
          ? '2:  ' + $pdArrLine[4]
          $pdLine = ReadLine(4)
        Loop
        $ = Close(4)
      Endif
    $rLine = ReadLine(3)
  Until @ERROR <> 0
Else
  ? 'Error: ' + @ERROR + ' -- ' + @SERROR
Endif

$ = Close(3)
$ = Close(5)


...this code won't even allow me to parse the file the first time...