Function Timestamp(timezone As Word , Plusneg As Byte)as String
Local X As Byte
Local Timez As String * 8 : Local Datez As String * 8 : Local Dayz As String * 4
Local Tmp As String * 2 : Local Tmp1 As String * 2 : Local Tmp2 As String * 2
Local Sissec As Long

 Timez = Commapos(1 , "GPRMC")
 Timez = Left(timez , 6)
  Tmp = Left(timez , 2)
  Tmp1 = Mid(timez , 3 , 2)
  Tmp2 = Right(timez , 2)
  Timez = Tmp + ":" + Tmp1 + ":" + Tmp2

 Datez = Commapos(9 , "GPRMC")
  Datez = Left(datez , 6)
  Tmp = Left(datez , 2)
  Tmp1 = Mid(datez , 3 , 2)
  Tmp2 = Right(datez , 2)
 Datez = Tmp + "/" + Tmp1 + "/" + Tmp2

 Sissec = Syssec(timez , Datez)
 Timezone = Timezone * 3600
 If Plusneg = 0 Then Sissec = Sissec - Timezone
 If Plusneg = 1 Then Sissec = Sissec + Timezone

   Datez = Date(sissec)
   Timez = Time(sissec)

X = Dayofweek(sissec)
Select Case X
   Case 0 : Dayz = "MON "
   Case 1 : Dayz = "TUE "
   Case 2 : Dayz = "WED "
   Case 3 : Dayz = "THU "
   Case 4 : Dayz = "FRI "
   Case 5 : Dayz = "SAT "
   Case 6 : Dayz = "SUN "
End Select

Timestamp = Dayz + Timez + " " + Datez + " " + Valid

 End Function



 

 Function Odo(startlat As Single , Startlon As Single , Startalt As String ) As String
 Local Tempstring As String * 10 : Local Y As Byte
 Dim Temp As Single : Dim Total As Single
 Dim Alti As Single
 Dim Store(6) As Single
 Dim Initflag As Byte
 Dim Togglebit As Bit
Alti = Val(startalt)


if Initflag < 3 then
Store(1) = Startlat
Store(2) = Startlon
Store(3) = Startlat
Store(4) = Startlon
Store(5) = Alti
Store(6) = Alti
incr Initflag
endif

If Togglebit = 0 Then
   Store(1) = Startlat
   Store(2) = Startlon
   Store(5) = Alti
End If
If Togglebit = 1 Then
   Store(3) = Startlat
   Store(4) = Startlon
   Store(6) = Alti
End If

Temp = 3ddistance(store(1) , Store(2) , Store(3) , Store(4) , Store(5) , Store(6))
Total = Total + Temp
Toggle Togglebit
Tempstring = Str(total)
Y = Charpos(tempstring , "." )
Y = Y + 3
Tempstring = Left(tempstring , Y)
Tempstring = Tempstring + " ODO"
Odo = Tempstring
End Function

 Function Deviation(starthead As String)as String * 7
 Local Tmp As Integer : Local Stmp As String * 6
 Tmp = Val(starthead)

 ''togglebit is global - toggled on each gps read.
 If Togglebit = 0 Then Tmp3(1) = Val(starthead)
 If Togglebit = 1 Then Tmp3(2) = Val(starthead)

Tmp = Tmp3(1) - Tmp3(2)
Tmp = Abs(tmp)

'this is to get rid of the 360 - 0 degree crossover / rollover.
If Tmp => 180 Then
Tmp = 360 - Tmp
 End If

Stmp = Str(tmp)
Deviation = Stmp + "  "
 
End Function

 

Function Deviation(starthead As String)as String * 7
  Local Tmp As Integer : Local Stmp As String * 6
  Tmp = Val(starthead)

  ''togglebit is global - toggled on each gps read.
  If Togglebit = 0 Then Tmp3(1) = Val(starthead)
  If Togglebit = 1 Then Tmp3(2) = Val(starthead)

 Tmp = Tmp3(1) - Tmp3(2)
 Tmp = Abs(tmp)

'this is to get rid of the 360 - 0 degree crossover / rollover.
If Tmp => 180 Then
 Tmp = 360 - Tmp
  End If

 Stmp = Str(tmp)
 Deviation = Stmp + "  "
   
End Function
 

Sub genKML()
   local  a as byte

   print  "<?xml version=";chr(34);"1.0";chr(34);" encoding=";chr(34);"UTF-8";chr(34);"?>"
   print  "<kml xmlns=";chr(34);"http://www.opengis.net/kml/2.2";chr(34);
   print " xmlns:gx=";chr(34);"http://www.google.com/kml/ext/2.2";chr(34);">"
   print  "<Document>"
   print  "<LookAt> <longitude>";
   print fencelon(1);
   print  "</longitude> <latitude>";
   print fencelatt(1);
   print  "</latitude> <range>1300.000000</range> </LookAt>"
   print  "<Folder>"

   for a = 1 to index
      print  "<Placemark>"
      print "<name>";a;"</name>"
      print"<Point> <coordinates>"
      print fencelon(a);
      print ",";
      print fencelatt(a);
      print  "</coordinates></Point></Placemark>  "
   next a
   print  "</Folder>  </Document></kml>"

   wait 10     'just for testing

end sub