NMEAPosC 84Plus

// NMEAPOSC for TI-83, TI-83 Plus, TI-84 Plus series, TI-84 Plus C Silver Edition
// NMEA 0183 GGA sentence in Str9
// L₆ contents, in Ans, contains previously determined string positions; else, recalculates them
:Ans→L₆
:If 4=dim(L₆
:Goto C
:{0,0}
:If "GGA"≠sub(Str9,4,3
:Return
:0→D
:{7,14,inString(sub(Str9,19,length(Str9)-19),",")+19}→L₆
:{L₆(2),L₆(3),L₆(3)+1,2L₆(3)+2-L₆(2)}→L₆
:Lbl C
:.01expr(sub(Str9,L₆(1)+1,L₆(2)-L₆(1)-2→D
:.01expr(sub(Str9,L₆(3)+1,L₆(4)-L₆(3)-2→P
:{(1-2("S"=sub(Str9,L₆(2)+1,1)))(int(D)+fPart(D)/.6),(1-2("W"=sub(Str9,L₆(4)+1,1)))(int(D)+fPart(D)/.6