Dim arg$(20)
SetPin 10,8:Pin(10) = 1
SPI OPEN 5000000, 3, 8
Pin(10) = 0
b=SPI(&h3b)
GPS:
GoSub GPS2
If arg$(0) = "GPRMC" Then 'GPRMC contains lat, lon
If arg$(2) = "A" Then 'A means locked to satellite
Lat = Val(Mid$(arg$(3), 3)) 'latitude in decimal
Lon = Val(Mid$(arg$(5), 4)) 'longitude in decimal
EndIf
EndIf

Print lat,lon
Pause 500
GoTo GPS
GPS2:
Do
Do While Chr$(SPI(0))<> "$":Loop 'wait for the start
For i = 0 To 20
arg$(i) = "" 'clear ready for data
Do 'loops until specific exit
x$=Chr$(SPI(0)) 'get the character
If x$="," Then Exit 'new data field, increment i
If x$="*" Then Return 'we have all data so return
arg$(i) = arg$(i) + x$ 'add to the data
Loop 'loop back for next char.
Next i 'move to the next data field
Loop

I/O Pins
For 28 pin chips pin 25 will become the clock output, pin 14 will be the data in (MISO) and pin 3 will become
the data out (MOSI). For 44 pin chips pin 14 is the clock, pin 41 the data in and pin 20 the data out.
When the SPI CLOSE command is used these pins will be returned to a “not configured” state. Then can then
be configured as per normal using SETPIN.
An SPI enable signal is often used to select a slave and “prime” it for data transfer. This signal is not generated
by this function and (if required) should be generated using the PIN function on another pin.

Lat = Val(Mid$(arg$(3), 3)) 'latitude in decimal
Lon = Val(Mid$(arg$(5), 4)) 'longitude in decimal
...
Print lat,lon