;
PROGRAMsystemLATLONGFXNEWS:2
999P
1,1,"Use Earth radius of"
3,3,"F1 6378.14km"
3,4,"F2 3437.75Nm"
3,5,"F3 Other.."
1KP:
:K:K=0
K79K69K59
K=79:6378.14R:10800R:
K=59::"":1,1,"Earth radius":?R:
1,1,"Calculate"
3,3,"F1 Distance"
3,4,"F2 Lat/Long"
1JP:
:J:J=0
8(J10)J
J1J2
1,1,"Travel along"
1,3,"F1 Line of Long (NS)"
1,4,"F2 Line of Lat (EW)"
J=1:1,5,"F3 Great circle":
1KP:
:K:K=0
8(K10)K
K<1K>4J
"":1,1,"Start position"
"":1,2,"Lat1 [N=, S=]":?A
"":1,5,"Long1 [E=, W=]":?C
K=2
2ЩRAG
2ЩRG
J=1
""
1,7,"End position"
"":1,7,"Lat2 [N=, S=]":?B
"":1,7,"Long2 [E=, W=]":?D
K=1
C=D
A>B
ABT
GT360S
GSN
BAT
GT360N
GNS
(CD)180
4"Longditude Error"
G(180AB)360N
G(180AB)360S
51,2,"SOLN: Distance if"
51,3,"start heading due"
1,4,"North="
7,4,N
1,5,"South="
7,5,S
K=2
A=B
C>D
CDT
GT360W
GWE
DCT
GT360E
GEW
T>180360TT
4"Latitude Error"
51,2,"SOLN: Distance if"
51,3,"start heading due"
1,4,"East="
6,4,E
1,5,"West="
6,5,W
K=3
G(ABAB(CD))360S
51,2,"SOLN: Shortest"
51,3,"via great circle"
1,5,"Dist="
6,5,S
'if j=1
J=2
"":1,1,"Distance to travel"
K=1
"":1,2,"[N=, S=]":?S
360SGT
ATA
360(A360(A360))A
A270:A360A:
A>90:180AA
C0:180CC:C180C:
K=2
"":1,2,"[E=, W=]":?S
360SGT
CTC
360(C360(C360))C
C>180:C360C:
51,2,"SOLN: Final position"
1,4,"Lat ="
9,4,A
A<0
7,4,"S"
7,4,"N"
1,5,"Long="
9,5,C
C<0
7,5,"W"
7,5,"E"
'if j=2
K3
61,6,"="
63,6,T
61,7,"C="
63,7,G
4" Program finished "
""
6" More like this from"
""
5" www.charliewatson"
5" .com/fxcg/"FXN