precision 4

define s1 = 0, s2 = 0

dim b1[20, -45, -85, -95, -45, -45, 29.4803, -78.3251]
dim b2[45, 45, 90, 90, 125, 145, -88.6381, -159.036]

arraysize s1, b1
arraysize s2, b2

if s1 = s2 then

	for i = 0 to s1 - 1

		let r = (b2[i] - b1[i]) % 360

		if r >= 180 then

			let r = r - 360

		endif

		print "bearing 1: ", b1[i], " bearing 2: ", b2[i], " difference: ", r

	next i

endif