'GPS Data Player1
func main()
  dim tch as integer
  dim tstr as string
  dim oldgpstime as string
  oldgpstime=""

 
  'First Open the File
   if FileOpen(1,".LogData.txt",Open) = 0 then
      msgbox("File IO Error",0,"Open File")
      End
   endif
   
Loop:
   if FileEOF(1) = 1 then
      FileClose 1
      Print
      Print
      Print "End of Data"
      end
   endif
      

   tch=FileRead(1)
   tstr = chr(tch)
   GPSload tstr
   strif oldgpstime <> GPSTime() then
        oldgpstime = GPSTime()
   	consolecls
        print GPSdate(),GPStime()
        print
        print "Longitude :  ",GPSlongitude()+" "+GPSlongitudehem()
        print "Latitude :   ",GPSlatitude()+" "+GPSlatitudehem()
        print "Satellites : ",GPSSatellites()
        print "Altitude :   ",GPSAltitude()
        print "Course :     ",GPSCourse()
        print "Speed :      ",GPSSpeed()
        pause 100
   endif
   
   
   goto Loop
    

endfunc