11 lines
No EOL
424 B
Text
11 lines
No EOL
424 B
Text
$if ConsoleColor = undefined then
|
|
$let ConsoleColor = defined
|
|
Sub ConsoleColor (Colour As _Unsigned Long)
|
|
Select Case Colour
|
|
Case 0 TO 255
|
|
Print Chr$(27) + "[38;5;" + _Trim$(Str$(Colour)) + "m";
|
|
Case Is > 255
|
|
Print Chr$(27) + "[38;2;" + _Trim$(Str$(_Red32(Colour))) + ";" + _Trim$(Str$(_Green32(Colour))) + ";" + _Trim$(Str$(_Blue32(Colour))) + "m";
|
|
End Select
|
|
End Sub
|
|
$end if |