'GPS Data Playback Example
func main()

  dim fname as string
  dim tch as integer
  dim tstr as string
  dim oldgpstime as string
  oldgpstime=""
  
  fname=".LogData.txt"   '<---- File name of data file
  
   CreateForm()

   'First Open the File
   if FileOpen(1,fname,Open) = 0 then 
      msgbox("File IO Error",0,"Open File")
      End
   endif
   
   Print "Start Replay"


loop:
   if FileEOF(1) = 1 then
      FileClose 1
      Print "End Replay"
      end
   endif
   
   tch=FileRead(1)
   tstr = chr(tch)
   GPSload tstr
   strif oldgpstime <> GPSTime() then
       oldgpstime = GPSTime()
       if GPSdone() = 1 then
           FormLabel 6,20,10,200,20,GPSdate()+"   "+GPStime()
           FormLabel 7,100,40,100,20,GPSlongitude()+" "+GPSlongitudehem()
           FormLabel 8,100,60,100,20,+GPSlatitude()+" "+GPSlatitudehem()
	   FormLabel 9,100,80,70,20,GPSSatellites()
	   FormLabel 10,100,100,70,20,GPSAltitude()
	   FormLabel 11,100,120,70,20,GPSCourse()
	   FormLabel 12,100,140,70,20,GPSSpeed()
	   pause 1000
       endif
   endif
   

   if FormButton(CloseBut,0) = 1 then
       End
   endif

   goto loop

endfunc


func CreateForm()
        gconst CloseBut 0

        FormFont "-",9,1
        FormButton CloseBut,80,170,70,20,"Close"

        FormBGColor 200,150,150
        FormCls

	FormLabel 0,10,40,80,20,"Longitude"
	FormLabel 1,10,60,80,20,"Latitude"
        FormLabel 2,10,80,80,20,"Satellites"
	FormLabel 3,10,100,80,20,"Altitude"
	FormLabel 4,10,120,80,20,"Course"
	FormLabel 5,10,140,80,20,"Speed"

	

endfunc