code:
INPUT "TARGET LATITUDE",a
INPUT "TARGET LONGITUDE",o
GPS.OPEN
GR.OPEN 255, 0, 0, 0
GR.ORIENTATION 0
GR.SCREEN w, h
sp = h/7
pad = 0.25 * sp
x = 20
loop:
GR.TEXT.SIZE sp - 2*pad
GR.COLOR 255,0,255,0,1
y = 1*sp + sp - pad
GR.TEXT.DRAW p, x,y, "TLATITUDE: " + FORMAT$("##%.#####", a
y = 2*sp + sp - pad
GPS.LATITUDE latitude
GR.TEXT.DRAW p, x,y, "Latitude: " + FORMAT$("##%.#####", latitude)
y = 3*sp + sp - pad
GPS.LONGITUDE longitude
GR.TEXT.DRAW p, x, y, "Longitude: " + FORMAT$("##%.#####", longitude)
y = 4*sp + sp - pad
GR.TEXT.DRAW p, x, y, "TLONGITUDE: " + FORMAT$("##%.#####", O)
y = 5*sp + sp - pad
GPS.ALTITUDE altitude
GR.TEXT.DRAW p, x, y, "Altitude: " + FORMAT$("#####", altitude)
GR.RENDER
PAUSE 5000
GR.CLS
GOTO loop
ONERROR:
END
Code end