Initial data commit

Task/Colour-bars-Display/PureBasic/colour-bars-display-2.basic

@@ -0,0 +1,24 @@
+DataSection
+  ;Black, Red, Green, Blue, Magenta, Cyan, Yellow, White
+  Data.i  0, 12, 10, 9, 13, 11, 14, 15
+EndDataSection
+
+Dim colors(7)
+For c = 0 To 7
+  Read.i colors(c)
+Next
+
+If OpenConsole()
+  ;The console display is 80 columns wide by 25 rows
+  For r = 0 To 24
+    For c = 0 To 7
+      ConsoleColor(colors(c), colors(c))
+      Print(Space(80 / 8))
+    Next
+  Next
+  EnableGraphicalConsole(1)
+  ConsoleLocate(0, 0)
+
+  ConsoleTitle("Press ENTER to exit"): Input()
+  CloseConsole()
+EndIf