Data commit

Task/Department-numbers/FreeBASIC/department-numbers.basic

@@ -0,0 +1,24 @@
+' version 15-08-2017
+' compile with: fbc -s console
+
+Dim As Integer fire, police, sanitation
+
+Print "police fire sanitation"
+Print "----------------------"
+
+For police = 2 To 7 Step 2
+    For fire = 1 To 7
+        If fire = police Then Continue For
+        sanitation = 12 - police - fire
+        If sanitation = fire Or sanitation = police Then Continue For
+        If sanitation >= 1 And sanitation <= 7 Then
+            Print Using "   #     #       # "; police; fire; sanitation
+        End If
+    Next
+Next
+
+' empty keyboard buffer
+While Inkey <> "" : Wend
+Print : Print "hit any key to end program"
+Sleep
+End