blob: 6cd200e8e56cc84572b2444a874b5f49b8ac4c58 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
Module Com_Colors
Public Sub Colors()
NewLine("TERMINAL SUPPORTED COLORS")
NewLine(Nothing)
NewLine(Nothing)
If Strings.AvailableFeature(10) = "1" Then
NewLine("0 = Black 8 = Gray")
Else
NewLine("0 = Black 8 = ???")
End If
If Strings.AvailableFeature(14) = "1" Then
NewLine("1 = Blue 9 = Light Blue")
NewLine("2 = Green A = Light Green")
Else
If Strings.AvailableFeature(13) = "1" Then
NewLine("1 = ??? 9 = Light Blue")
NewLine("2 = Green A = ???")
Else
NewLine("1 = ??? 9 = ???")
NewLine("2 = ??? A = ???")
End If
End If
If Strings.AvailableFeature(15) = "1" Then
NewLine("3 = Aqua B = Light Aqua")
Else
NewLine("3 = ??? B = ???")
End If
If Strings.AvailableFeature(14) = "1" Then
NewLine("4 = Red C = Light Red")
ElseIf Strings.AvailableFeature(13) = "1" Then
NewLine("4 = ??? C = Light Red")
Else
NewLine("4 = ??? C = ???")
End If
If Strings.AvailableFeature(15) = "1" Then
NewLine("5 = Purple D = Light Purple")
NewLine("6 = Yellow E = Dark Yellow")
Else
NewLine("5 = ??? D = ???")
NewLine("6 = ??? E = ???")
End If
If Strings.AvailableFeature(10) = "1" Then
NewLine("7 = Dark Gray F = White")
Else
NewLine("7 = ??? F = White")
End If
End Sub
End Module
|
