Sub GPSGetHDOP(gga)
'jump from GPS_GPSDecoded event
'gga is the serial.InputString
'reference = "$GPGGA,161229.487,3723.2475,N,12158.3416,W,1,07,1.0,9.0,M,,,,0000*18"
ErrorLabel(HDOPErr)
Dim r1, r2
r1 = StrIndexOf(gga,"$GPGGA",0)
r2 = StrIndexOf(gga, "*", r1 + 6)
If r1 <> -1 AND r2 <> -1 Then
gga=SubString(gga,r1,r2-r1)
data() = StrSplit(gga, ",")
hdopval = data(8)
quality = posfix(data(6))
End If
HDOPErr:
End Sub
'posfix(0)="Not fixed"
'posfix(1)="GPS SPS"
'posfix(2)="DGPS SPS"
'posfix(3)="DGPS PPS"