SUB getDifference (b1!, b2!)
    r! = (b2 - b1) MOD 360!
    IF r >= 180! THEN r = r - 360!
    PRINT USING "#######.######    #######.######    #######.######"; b1; b2; r
END SUB

PRINT "     Bearing 1         Bearing 2        Difference"
CALL getDifference(20!, 45!)
CALL getDifference(-45!, 45!)
CALL getDifference(-85!, 90!)
CALL getDifference(-95!, 90!)
CALL getDifference(-45!, 125!)
CALL getDifference(-45!, 145!)
CALL getDifference(-45!, 125!)
CALL getDifference(-45!, 145!)
CALL getDifference(29.4803, -88.6381)
CALL getDifference(-78.3251, -159.036)
CALL getDifference(-70099.74233810938#, 29840.67437876723#)
CALL getDifference(-165313.6666297357#, 33693.9894517456#)
CALL getDifference(1174.838051059846#, -154146.6649012476#)