SCAR Code:
var
i: integer;
Deg: extended;
procedure CompassPos;
begin
Deg := rs_GetCompassAngleDegrees; // why call deg if you didn't use it here
begin // |
for i := 0 to 3 do // |
case i of // |
0 : if not(InRange(round(Deg), 315, 45)) then //<----
MakeCompass('N');
1 : if not(InRange(round(Deg), 45, 135)) then
MakeCompass('E');
2 : if not(InRange(round(Deg), 135, 225)) then
MakeCompass('S');
3 : if not(InRange(round(Deg), 225, 315)) then
MakeCompass('W');
end;
MakeCompass(FloatToStr(Deg));
end;
end;