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