NMEAPosC 85/86

// NMEAPosC for TI-85 and TI-86
// NMEA 0183 GGA sentence in gpsdata
// temp contents, in Ans, contains previously determined string positions; else, recalculates them
:Ans→temp
:If dimL temp==4
:Goto C
:{0,0}
:If sub(gpsdata,4,3)≠"GGA"
:Return
:19→P
:{7,14}→temp
:Repeat sub(gpsdata,P,1)==","
:P+1→P
:End
:P→temp(dimL temp+1
:{temp(2),temp(3),temp(3)+2,2*temp(3)+3-temp(2)}→temp
:Lbl C
:sub(gpsdata,temp(1)+1,temp(2)-temp(1)-1)→tlat
:St►Eq(tlat,Lat
:evalF(Lat,x,1)/100→Lat
:sub(gpsdata,temp(3)+1,temp(4)-temp(3)-1)→tlon
:St►Eq(tlon,Lon
:evalF(Lon,x,1)/100→Lon
:{(1-2(sub(gpsdata,temp(2)+1,1)=="S"))(int Lat+fPart Lat/.6),(1-2(sub(gpsdata,temp(4)+1,1)=="S"))(int Lon+fPart Lon/.6