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);
       ];
]