RosettaCodeData/Task/Angle-difference-between-two-bearings/Befunge/angle-difference-between-two-bearings.bf

012pv1   2      3        4              5         6           7    8
    >&:v   >859**%:459**1-`#v_     >12g!:12p#v_\-:459**1-`#v_     >.>
       >0`#^_8v             >859**-^                       >859**-^
       ^:+**95<                              >                      ^