June 2018 Update

Task/Box-the-compass/Ring/box-the-compass.ring

@@ -0,0 +1,32 @@
+# Project : Box the compass
+# Date    : 2017/12/31
+# Author : Gal Zsolt (~ CalmoSoft ~)
+# Email   : <calmosoft@gmail.com>
+
+names = ["North", "North by east", "North-northeast",
+               "Northeast by north", "Northeast", "Northeast by east", "East-northeast",
+               "East by north", "East", "East by south", "East-southeast",
+               "Southeast by east", "Southeast", "Southeast by south", "South-southeast",
+               "South by east", "South", "South by west", "South-southwest",
+               "Southwest by south", "Southwest", "Southwest by west", "West-southwest",
+               "West by south", "West", "West by north", "West-northwest",
+               "Northwest by west", "Northwest", "Northwest by north", "North-northwest",
+               "North by west", "North"]
+
+degrees = [0, 16.87, 16.88, 33.75, 50.62, 50.63,
+                67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135, 151.87, 151.88, 168.75,
+                185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270,
+                286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38]
+
+for i = 1 to len(degrees)
+     j = floor((degrees[i] + 5.625) / 11.25)
+    if j > 31
+       j = j - 32
+    ok
+    see "" + degrees[i] + " " + j + " "
+    if j != 0
+       see "" + names[j+1] + nl
+    else
+       see "" + names[len(names)] + nl
+    ok
+next