> option list
PicoMite MMBasic Version 5.09.00RC3
OPTION COLORCODE ON
>

'GPS - Test v0.1
'
'OPEN comspec$ AS GPS [,timezone_offset] [,monitor]
''The sentences interpreted are GPRMC, GNRMC, GPGGA and GNGGA.
'The timezone_offset parameter is used to convert UTC as received from the
'GPS to the local timezone. If omitted the timezone will default to UTC. The
'timezone_offset can be a any number between -12 and 14 allowing the time to
'be set correctly even for the Chatham Islands in New Zealand (UTC +12:45).
'If the monitor parameter is set to 1 then all GPS input is directed to the
'console. This can be stopped by closing the GPS channel.
'
'PRINT #GPS, expre etcssion [[,; ]expression]
'Outputs a NMEA string to an opened GPS device. The string must start with a
'$ character and end with a * character. The checksum is automatically
'calculated and appended to the string together with the CR/LF characters.
'
'GPS()
'
'https://www.waveshare.com/wiki/Pico-GPS-L76B
'Modul: waveshare - Pico-GPS-L76B, GP0 Tx pin, GP1 Rx pin
'
Dim lat, long As float
Dim latg, latm, longg, longm As integer
Dim lats, longs As float
Dim latd$, longd$ As string
SetPin GP1, GP0, COM1
'Open "COM1:9600" As GPS,+2,1
Open "COM1:9600" As GPS,+2,0
Do While (GPS(valid)<>1) And (GPS(fix)<>1)
 If Inkey$="x" Then Exit Do
Loop
'Close GPS
Pause 500
'SetPin GP1, GP0, COM1
'Open "COM1:9600" As GPS,+1,0
Do
  Print "GPS Valid:", GPS(valid)
  Print "GPS FIX:", GPS(FIX)
  Print GPS(DATE), GPS(TIME)
  Print "Satellites: ", GPS(SATELLITES)
  'https://de.wikipedia.org/wiki/Dilution_of_Precision
  Print "DOP (top 1.0 - bad 10.0):", GPS(DOP)
  'https://gibs.bkg.bund.de/geoid/gserlaeuter_g.php
  'https://de.wikipedia.org/wiki/Geoid
  Print "Altitude: ", GPS(ALTITUDE), "GEOID:", GPS(GEOID)
  Print "Speed:", GPS(SPEED)
  Print "Track:", GPS(TRACK)
  lat =GPS(LATITUDE)
  long=GPS(LONGITUDE)
  Print "Latitude: ", lat, "Longitude:", long
  If lat<0 Then
     lat=lat*-1
     latd$="S"
  Else
     latd$="N"
  EndIf
  If long<0 Then
     long=long*-1
     longd$="W"
  Else
     longd$="E"
  EndIf
  latg=Fix(lat)
  latm=Fix((lat-latg)*60)
  lats=(((lat-latg)*60)-latm)*60
  longg=Fix(long)
  longm=Fix((long-longg)*60)
  longs=(((long-longg)*60)-longm)*60
  Print ,,Str$(latg)+Chr$(176);
  Print ""+Str$(latm)+Chr$(39);
  Print ""+Str$(lats,2,2,"0")+Chr$(34)+latd$;
  Print ,,,Str$(longg)+Chr$(176);
  Print ""+Str$(longm)+Chr$(39);
  Print ""+Str$(longs,2,2,"0")+Chr$(34)+longd$
  Pause 1000
Loop                                                                  

[34] Open "COM1:9600" As GPS,+1,0
Error : Pins not set for COM1

PRINT #GPS, expression[[,; ]expression] ... etc
Outputs a NMEA string to an opened GPS device. The string must start with a
$ character and end with a * character. The checksum is automatically
calculated and appended to the string together with the CR/LF characters.