14 lines
364 B
Text
14 lines
364 B
Text
|
real B1, B2, Ang;
|
||
|
|
[Text(0, " Bearing 1 Bearing 2 Difference");
|
||
|
|
loop [B1:= RlIn(1);
|
||
|
|
B2:= RlIn(1);
|
||
|
|
Ang:= B2 - B1;
|
||
|
|
while Ang > 180. do Ang:= Ang - 360.;
|
||
|
|
while Ang < -180. do Ang:= Ang + 360.;
|
||
|
|
CrLf(0);
|
||
|
|
RlOut(0, B1); ChOut(0, 9);
|
||
|
|
RlOut(0, B2); ChOut(0, 9);
|
||
|
|
RlOut(0, Ang);
|
||
|
|
];
|
||
|
|
]
|