Garmin 16-HVS GPS Receiver
alias ParseStr(11) = ALTUNIT
alias ParseStr(12) = GIODAL
alias ParseStr(13) = GEOUNIT
alias ParseStr(14) = AGE
alias ParseStr(15) = DIFFREF
alias ParseStr(16) = ASTERISK
alias ParseStr(17) = CHCKSUM
alias ParseStr(18) = CRLF
' Store the ParseStrd elements of the $GPGGA string as
' short strings.
DataTable(Parsed,1,-1)
Datainterval
(0,1,sec,10)
Sample(1,GPGGA,STRING)
Sample(1,TIME,STRING)
Sample(1,LAT,STRING)
Sample(1,HEMINS,STRING)
Sample(1,LONGI,STRING)
Sample(1,HEMIEW,STRING)
Sample(1,QUAL,STRING)
Sample(1,NUMSATS,STRING)
Sample(1,HDP,STRING)
Sample(1,ALTDE,STRING)
Sample(1,ALTUNIT,STRING)
Sample(1,GIODAL,STRING)
Sample(1,GEOUNIT,STRING)
Sample(1,AGE,STRING)
Sample(1,DIFFREF,STRING)
Sample(1,ASTERISK,STRING)
Sample(1,CHCKSUM,STRING)
Sample(1,CRLF,STRING)
endtable
' Store GPS $GPGGA string as a complete string
DataTable (GGA,1,-1)
DataInterval
(0,1,Sec,10)
Sample (1, GPSData, string)
EndTable
'Main Program
BeginProg
SerialOpen
(com1,1200,0,0,2000)
Scan
(1,Sec,0,0)
bytes = SerialInChk (com1)
SerialIn
(GPSData,com1,20,13,100)
splitstr
(ParseStr(1),GPSData,chr(44),18,5)
Serialflush
(com1)
CallTable
GGA
CallTable
Parsed
NextScan
SerialClose
(com1)
EndProg
7
