25 lines
490 B
Plaintext
25 lines
490 B
Plaintext
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
|