RosettaCodeData/Task/Angle-difference-between-two-bearings/IS-BASIC/angle-difference-between-two-bearings.basic
2023-07-01 13:44:08 -04:00

6 lines
179 B
Text

100 INPUT PROMPT "1. angle: ":A1
110 INPUT PROMPT "2. angle: ":A2
120 LET B=MOD(A2-A1,360)
130 IF B>180 THEN LET B=B-360
140 IF B<-180 THEN LET B=B+360
150 PRINT "Difference: ";B