CodepointSystem module, ColorSystem module, Completing TerminalInternalApps migrating to modules

4 files changed, 52 insertions, 19 deletions

diff --git a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb
index 24a6435..3f91782 100644
--- a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb
+++ b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb
@@ -19,16 +19,6 @@ Module TerminalExternalApps
     Public TextPad_FileName As String
     Public TextPad_TempText As New Timer
 
-    Public Sub ChangeCP(Addition As Boolean, NeededCP As Integer)
-        Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
-        If Addition = True Then
-            TempCP = TempCP + NeededCP
-        Else
-            TempCP = TempCP - NeededCP
-        End If
-        Strings.ComputerInfo(2) = Convert.ToString(TempCP)
-    End Sub
-
     Public Sub AppHost(App As Object, UseToolBar As Boolean)
         Select Case App
             Case "bc"
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