diff options
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/Internal/Com_Color.vb | 3 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/Internal/Com_Colors.vb | 48 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/Internal/Com_Manual.vb (renamed from ShiftOS-TheRevival/TerminalApplications/Internal/TerminalInternalApps.vb) | 10 |
3 files changed, 52 insertions, 9 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Color.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Color.vb new file mode 100644 index 0000000..ac9d52e --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Color.vb @@ -0,0 +1,3 @@ +Module Com_Color + +End Module diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Colors.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Colors.vb new file mode 100644 index 0000000..867bdcc --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Colors.vb @@ -0,0 +1,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 = 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 diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/TerminalInternalApps.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Manual.vb index f4bba89..a3c7de9 100644 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/TerminalInternalApps.vb +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Manual.vb @@ -1,12 +1,4 @@ -Module TerminalInternalApps - Public Sub Cowsay_Say(Say As String) - - End Sub - - Public Sub DateTerm() - - End Sub - +Module Com_Manual Public Sub Manual(Command As String) 'MAN command starts with this kinda format 'ShiftOS Help Manual |