10 max = 20 ' maximum nbr of params
30 '
40 DIM arg$(max) ' used to hold the data items
50 '
60 OPEN "COM1:4800" AS #1
70 '
200 DO ' loop forever
210 GOSUB 1000 ' get the next line
220 IF arg$(0) = "GPRMC" THEN ' GPRMC contains lat/long
230 IF arg$(2) = "A" THEN ' A means locked on to satellites
240 PRINT "Latitude = "; arg$(3); " "; arg$(4);
250 PRINT " longitude = "; arg$(5); " "; arg$(6)
260 ELSE
270 PRINT "GPS searching..."
280 ENDIF
290 ENDIF
300 LOOP
310 '
320 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
330 ' subroutine to load the GPS data items into
340 ' the array arg$(). returns with the array full
1000 DO ' subroutine start
1005 DO WHILE INPUT$(1, #1) <> "$" : LOOP ' wait for the start
1010 FOR i = 0 TO max
1020 arg$(i) = "" ' clear ready for data
1030 DO ' loops until a specific exit
1040 x$ = INPUT$(1, #1) ' get the character
1050 IF x$ = "," THEN EXIT ' new data item, increment i
1060 IF x$ = "*" THEN RETURN ' we have all the data so return
1070 arg$(i) = arg$(i) + x$ ' add to the data
1080 LOOP ' keep going
1090 NEXT i ' increment i
1100 PRINT "Corrupt data..." ' exceeded max data items
1110 LOOP