clearvariables()
filereadclose("c:\users\public\documents\iss\modiss.txt")
definearray($adate,3,"")
definearray($atime,3,"")
definearray($aampm,3,"")
definearray($aduration,3,"")
definearray($aelevation,3,"")
definearray($astartdirection,3,"")
definearray($aenddirection,3,"")
$issdate=0
$arraycounter=0
$sortcounter=0
$fillarray=0
$thenumber=1
$result=0
$y=0
$z=0
$v1=0


if ($month=9)
  $mymonth="Sep"
ELSEif ($month=10)
  $mymonth="Oct"
ELSEif ($month=11)
  $mymonth="Nov"
ELSEif ($month=12)
  $mymonth="Dec"
endif

$todaydate=$mymonth+" "+$day+", "+$year
$todaydate="Sep 29, 2015"



# Enter the full path and name of the files to be used
$VZFile ="C:\users\public\documents\iss\iss.txt"
$ModVZFile ="C:\users\public\documents\iss\modiss.txt"

# The full path and name of the HTML scrubber program.
$ScrubProg ="C:\users\public\documents\iss\HTMLScrub.exe"

FileDelete($VZFile) #Clears the file and prevents adding to it needlessly
FileWrite($VZFile,HTTPGet("http://spotthestation.nasa.gov/sightings/xml_files/United_States_Florida_Tampa.xml" ))
FileReadClose($ModVZFile)
Sleep(2000)
Exec($Scrubprog) #Modifies $VZFile.txt and creates $VZModFile.txt
Sleep(3000) #May need to be adjusted depending on file size.
FileReadReset($ModVZFile)

filereadclose("c:\users\public\documents\iss\modiss.txt")
$x=FileReadEnd("c:\users\public\documents\iss\modiss.txt")

$r=0
$rr=0
$rrr=0
$rrrr=0
$rrrrr=0
repeatwhile($x=0)
  $line=FileReadLine("c:\users\public\documents\iss\modiss.txt")
  $v1=IndexOf($line,"Date")
  $v2=IndexOf($line,"Time")
  $v3=IndexOf($line,"Duration")
  $v4=Indexof($line,"Maximum")
  $v5=Indexof($line,"Approach")
  $v6=Indexof($line,"Departure")


  if ($v1=0)
    $r=1
    $v9=Indexof($line,"day")#DATE
    $issdate = (substring($line,$v9+4,12))
  ELSEif ($v2=0 and $r=1) #TIME
    $isstime = (substring($line,6,4))
    $ampm = (substring($line,11,2))
    $rr=1
  ELSEif ($v3=0 and $rr=1)#DURATION

    $v7=Indexof($line,"&lt")
    $duration = (substring($line,10,$v7-10))
    $rrr=1
  ELSEif ($v4=0 and $rrr=1) #MAXIMUM ELEVATION

    $elevation = (substring($line,20,3))
    $rrrr=1
  ELSEif ($v5=0 and $rrrr=1) #START DIRECTION

    $v8=Indexof($line,"above ")
    $v9=Indexof($line," &lt")
    $v8a=$v9-$v8
    # print ($v9-$v8)

    $startdirection = (substring($line,$v8+6,$v8a-6))
    $rrrrr=1
  ELSEif ($v6=0 and $rrrrr=1) #END DIRECTION
    $v10=Indexof($line,"above ")
    $v11=Indexof($line," &lt")
    $v11a=$v11-$v10
    $enddirection = (substring($line,$v10+6,$v11a-6))
    $fillarray=1


  endif

  if ($issdate = $todaydate and $fillarray=1)
  print ($issdate +" "+$todaydate)
    goto(arrayfill)
  ELSE
    #Print ("no")
    $fillarray=0
  endif

  $x=FileReadEnd("c:\users\public\documents\iss\modiss.txt")


ENDrepeatwhile

goto(programend)

:arrayfill
$adate[$arraycounter]=$issdate
$atime[$arraycounter]=$isstime
$aampm[$arraycounter]=$ampm
$aduration[$arraycounter]=$duration
$aelevation[$arraycounter]=$elevation
$astartdirection[$arraycounter]=$startdirection
$aenddirection[$arraycounter]=$enddirection
$arraycounter = $arraycounter +1
$fillarray=0
return

:programend
repeatwhile($result < $arraycounter)
  print ($arraycounter)
  print ($adate[$result])
  print ($atime[$result])
  print ($aduration[$result])
  print ($aelevation[$result])
  print ($astartdirection[$result])
  print ($aenddirection[$result])
  $result=$result+1
endrepeatwhile

sleep(5000)
$list=0
filereadclose("c:\users\public\documents\iss\modiss.txt")
halt