2022-09-19 01:27:48 +02:00
|
|
|
$if ConsoleColor = undefined then
|
|
|
|
|
$let ConsoleColor = defined
|
2022-03-18 18:33:58 +01:00
|
|
|
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
|
2022-09-19 01:27:48 +02:00
|
|
|
End Sub
|
|
|
|
|
$end if
|
