Box the compass: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,259: / Line 1,259: @@
 .37    32        North by west
 .38    1         North</pre>
+==={{header|Chipmunk Basic}}===
+{{works with|Chipmunk Basic|3.6.4}}
+<syntaxhighlight lang="qbasic">100 dim names$(31)
+restore 300
+for c = 0 to ubound(names$)
+read a$
+names$(c) = a$
+next c
+dim degrees(32)
+restore 380
+for c = 0 to ubound(degrees)
+read b
+degrees(c) = b
+next c
+for i = 0 to ubound(degrees)
+j = int((degrees(i)+5.625)/11.25)
+if j > 31 then j = j-32
+print using "####.##";degrees(i);
+print using "  ##  ";j;
+print names$(j)
+next i
+end
+data "North","North by east","North-northeast","Northeast by north"
+data "Northeast","Northeast by east","East-northeast","East by north"
+data "East","East by south","East-southeast","Southeast by east"
+data "Southeast","Southeast by south","South-southeast","South by east"
+data "South","South by west","South-southwest","Southwest by south"
+data "Southwest","Southwest by west","West-southwest","West by south"
+data "West","West by north","West-northwest","Northwest by west","Northwest"
+data "Northwest by north","North-northwest","North by west","North"
+data 0,16.87,16.88,33.75,50.62,50.63,67.5,84.37,84.38,101.25
+data 118.12,118.13,135,151.87,151.88,168.75,185.62,185.63,202.5,219.37
+data 219.38,236.25,253.12,253.13,270,286.87,286.88,303.75,320.62,320.63
+data 337.5,354.37,354.388</syntaxhighlight>
+{{out}}
+<pre>Same as FreeBASIC entry.</pre>
+==={{header|GW-BASIC}}===
+{{works with|PC-BASIC|any}}
+{{works with|BASICA}}
+{{works with|Chipmunk Basic}}
+{{works with|QBasic}}
+{{works with|MSX BASIC}}
+<syntaxhighlight lang="qbasic">100 dim n$(31)
+restore 300
+for c = 0 to 31
+read a$
+n$(c) = a$
+next c
+dim d(32)
+restore 380
+for c = 0 to 32
+read b
+d(c) = b
+next c
+for i = 0 to 32
+j = int((d(i)+5.625)/11.25)
+if j > 31 then j = j-32
+print using "####.##";d(i);
+print using "  ##  ";j;
+print n$(j)
+next i
+end
+data "North","North by east","North-northeast","Northeast by north"
+data "Northeast","Northeast by east","East-northeast","East by north"
+data "East","East by south","East-southeast","Southeast by east"
+data "Southeast","Southeast by south","South-southeast","South by east"
+data "South","South by west","South-southwest","Southwest by south"
+data "Southwest","Southwest by west","West-southwest","West by south"
+data "West","West by north","West-northwest","Northwest by west","Northwest"
+data "Northwest by north","North-northwest","North by west","North"
+data 0,16.87,16.88,33.75,50.62,50.63,67.5,84.37,84.38,101.25
+data 118.12,118.13,135,151.87,151.88,168.75,185.62,185.63,202.5,219.37
+data 219.38,236.25,253.12,253.13,270,286.87,286.88,303.75,320.62,320.63
+data 337.5,354.37,354.38</syntaxhighlight>
+{{out}}
+<pre>Same as FreeBASIC entry.</pre>
+==={{header|MSX Basic}}===
+{{works with|MSX BASIC|any}}
+The [[#GW-BASIC|GW-BASIC]] solution works without any changes.
+==={{header|Quite BASIC}}===
+{{works with|BASICA}}
+{{works with|Chipmunk Basic}}
+<syntaxhighlight lang="qbasic">100 array n$
+for c = 0 to 31
+read a$
+let n$(c) = a$
+next c
+array d
+for c = 0 to 33
+read b
+let d(c) = b
+next c
+for i = 1 to 33
+let j = int((d(i)+5.625)/11.25)
+if j > 31 then let j = j-32
+print d(i);"  ";j;"  ";n$(j)
+next i
+end
+data "North","North by east","North-northeast","Northeast by north"
+data "Northeast","Northeast by east","East-northeast","East by north"
+data "East","East by south","East-southeast","Southeast by east"
+data "Southeast","Southeast by south","South-southeast","South by east"
+data "South","South by west","South-southwest","Southwest by south"
+data "Southwest","Southwest by west","West-southwest","West by south"
+data "West","West by north","West-northwest","Northwest by west","Northwest"
+data "Northwest by north","North-northwest","North by west","North"
+data 0,16.87,16.88,33.75,50.62,50.63,67.5,84.37,84.38,101.25
+data 118.12,118.13,135,151.87,151.88,168.75,185.62,185.63,202.5,219.37
+data 219.38,236.25,253.12,253.13,270,286.87,286.88,303.75,320.62,320.63
+data 337.5,354.37,354.38</syntaxhighlight>
+{{out}}
+<pre>Same as FreeBASIC entry.</pre>
 =={{header|Befunge}}==
 <syntaxhighlight lang="befunge">>>::"}"9**\4+3%79*9*5-*79*9*5--+:5>>>06p:55+%68*+v