With DEC4 change it to this for the Longitude ...And do the same thing with the Latitude.Code:;----[convert Longitude Sexagesimal to Decimal Degrees]------------------------- Aint = LonMinDec : GOSUB ItoFA ; decimal portion of Minutes Bint = 10000 : GOSUB ItoFB ; divided by 10000 GOSUB fpdiv Bint = LonMin : GOSUB ItoFB ; add whole portion of Minutes GOSUB fpadd Bint = 60 : GOSUB ItoFB ; divide by 60 GOSUB fpdiv Bint = LonDeg : GOSUB ItoFB ; add degrees GOSUB fpadd IF LonDir = "W" THEN ; if west of Prime Meridian @ MOVE?FF32 AARGB2, BARGB2 ; copy Float AARG to BARG Aint = 0 : GOSUB ItoFA ; subtract from 0 to negate GOSUB fpsub ENDIF Bint = 180 : GOSUB ItoFB ; add 180 GOSUB fpadd
Bookmarks