visionmercer/qb64-include
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

a start

Browse source
This commit is contained in:
visionmercer 2022-03-18 18:33:58 +01:00
commit 0741413c93
11 changed files with 144 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
consolecolor.bm Normal file
View file

@ -0,0 +1,8 @@
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