NMEA 85/86

// v1.1
// No support for message chaining
// v1.1 fixes garbage output without checksum
:{0}->nmeaout
:1->y
:For(x,1,lngth gpsdata
:If sub(gpsdata,x,1)=","
:Then
:x+1->nmeaout(y)
:y+1->y
:End
:End
:If sub(gpsdata,lngth gpsdata-2,1)=="*"
:Then
:lngth gpsdata-1->nmeaout(y
:nmeaout(y)+3->nmeaout(y+1
:End
:Pause "Done."
:For x,1,dimL nmeaout-1                               //Display message segments that aren't of zero length
:If nmeaout(x+1)-nmeaout(x)>1                         //Check if segment is of zero length
:Then
:Disp sub(gpsdata,nmeaout(x),nmeaout(x+1)-nmeaout(x)
:Else
:Disp "NUL"
:End
:End