All one-way commands are not separated into each own module

9 files changed, 232 insertions, 199 deletions

diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Codepoint.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Codepoint.vb
new file mode 100644
index 0000000..e23f372
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Codepoint.vb
@@ -0,0 +1,5 @@
+Module Com_Codepoint
+    Public Sub Codepoint()
+        NewLine(Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet")
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb
new file mode 100644
index 0000000..81f0822
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb
@@ -0,0 +1,40 @@
+Module Com_Date
+    Public Sub Terminal_Date()
+        If Strings.AvailableFeature(24) = 1 Then
+            NewLine("The date is " & Date.Now.DayOfYear & " days since the first day of the year")
+            AdvancedCommand = False
+            Console.BadCommand = False
+        ElseIf Strings.AvailableFeature(24) = 3 Then
+            If Strings.AvailableFeature(25) = 1 Then
+                Dim TheWeek As String = Date.Now.DayOfYear / 7
+                NewLine("The date is " & TheWeek.Substring(0, 2) & " weeks since the first week of the year")
+                AdvancedCommand = False
+                Console.BadCommand = False
+            ElseIf Strings.AvailableFeature(25) = 3 Then
+                If Strings.AvailableFeature(26) = 1 Then
+                    NewLine("The date is " & Date.Now.Month & " months since the first month of the year")
+                    AdvancedCommand = False
+                    Console.BadCommand = False
+                ElseIf Strings.AvailableFeature(26) = 3 Then
+                    If Strings.AvailableFeature(27) = 1 Then
+                        NewLine("The year is " & Date.Now.Year)
+                        AdvancedCommand = False
+                        Console.BadCommand = False
+                    ElseIf Strings.AvailableFeature(27) = 3 Then
+                        If Strings.AvailableFeature(28) = 1 Then
+                            NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month)
+                            AdvancedCommand = False
+                            Console.BadCommand = False
+                        ElseIf Strings.AvailableFeature(28) = 3 Then
+                            If Strings.AvailableFeature(29) = 1 Then
+                                NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year)
+                                AdvancedCommand = False
+                                Console.BadCommand = False
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Help.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Help.vb
new file mode 100644
index 0000000..67d0d41
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Help.vb
@@ -0,0 +1,110 @@
+Module Com_Help
+    Public Sub Help()
+        NewLine("ShiftOS Help Manual")
+        NewLine(Nothing)
+        NewLine("You can type 'help' to get all available commands and its corresponding action.")
+        If Strings.AvailableFeature(0) = 1 Then
+            NewLine("To get help on each command, you can type 'man [command]'")
+            NewLine(Nothing)
+        Else
+            NewLine(Nothing)
+        End If
+        If Strings.AvailableFeature(9) = 1 Then
+            NewLine("BC          Basic Calculator for simple calculation")
+        End If
+        If Strings.AvailableFeature(16) = 1 Then
+            NewLine("CD          Changes directory to a selected one")
+        End If
+        If Strings.AvailableFeature(1) = 1 Then
+            NewLine("CLEAR       Clear the terminal")
+        End If
+        NewLine("CODEPOINT   Display Codepoint(s) from your wallet")
+        NewLine("COLOR       Changes Terminal Text And Background color To the corresponding choice")
+        NewLine("COLORS      Shows available colors support For the terminal")
+        If Strings.AvailableFeature(22) = 1 Then
+            NewLine("COWSAY      Spawn a cow And saying anything you want")
+        End If
+        If Strings.AvailableFeature(24) = 1 Then
+            NewLine("DATE        Displays date in days since first day of the year format")
+        ElseIf Strings.AvailableFeature(24) = 3 Then
+            If Strings.AvailableFeature(25) = 1 Then
+                NewLine("DATE        Displays date in weeks since first week of the year format")
+            ElseIf Strings.AvailableFeature(25) = 3 Then
+                If Strings.AvailableFeature(26) = 1 Then
+                    NewLine("DATE        Displays date in months since first month of the year format")
+                ElseIf Strings.AvailableFeature(26) = 3 Then
+                    If Strings.AvailableFeature(27) = 1 Then
+                        NewLine("DATE        Displays date in year format format")
+                    ElseIf Strings.AvailableFeature(27) = 3 Then
+                        If Strings.AvailableFeature(28) = 1 Then
+                            NewLine("DATE        Displays date in MM/YYYY format")
+                        ElseIf Strings.AvailableFeature(28) = 3 Then
+                            If Strings.AvailableFeature(29) = 1 Then
+                                NewLine("DATE        Displays date in general DD/MM/YYYY format")
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+        If Strings.AvailableFeature(16) = 1 Then
+            NewLine("DEL         Delete a selected file from the directory")
+            NewLine("DIR         Displays subdirectories And files In a directory")
+        End If
+        NewLine("GUESS       Runs 'Guess the Number' application")
+        NewLine("HELP        Shows all commands available and its corresponding action")
+        If Strings.AvailableFeature(20) = 1 Then
+            NewLine("HOSTNAME    Sets the name of current hostname/computer name with a new one")
+        End If
+        If Strings.AvailableFeature(4) = 1 Then
+            NewLine("INFOBAR     Displays informations about current session such as current app, current user, current time, etc.")
+        End If
+        If Strings.AvailableFeature(0) = 1 Then
+            NewLine("MAN         Shows a command, its corresponding action, and its example usage")
+        End If
+        If Strings.AvailableFeature(16) = 1 Then
+            NewLine("MKDIR       Creating a directory")
+        End If
+        If Strings.AvailableFeature(16) = 1 Then
+            NewLine("PWD         Display current directory navigated on ShiftOS")
+        End If
+        If Strings.AvailableFeature(2) = 1 Then
+            NewLine("PRINT       Prints a corresponding text entered in the command")
+        End If
+        NewLine("REBOOT      Terminate and re-run ShiftOS session")
+        If Strings.AvailableFeature(21) = 1 Then
+            NewLine("REV         Turn any sentences you want and making it reversed")
+        End If
+        If Strings.AvailableFeature(16) = 1 Then
+            NewLine("RMDIR       Deleting a directory")
+        End If
+        If Strings.AvailableFeature(8) = 1 Then
+            NewLine("SHIFTFETCH  Shows informations about your computer")
+        End If
+        NewLine("SHIFTORIUM  A software center for upgrading features on ShiftOS")
+        NewLine("SHUTDOWN    Terminate ShiftOS session")
+        NewLine("SU          Runs terminal as super user")
+        If Strings.AvailableFeature(17) = 1 Then
+            NewLine("TEXTPAD     Simple text-editor for ShiftOS")
+        End If
+        If Strings.AvailableFeature(5) = 1 Then
+            NewLine("TIME        Display the current time in the form of seconds since midnight")
+        ElseIf Strings.AvailableFeature(5) = 3 Then
+            If Strings.AvailableFeature(6) = 1 Then
+                NewLine("TIME        Display the current time in the form of minutes since midnight")
+            ElseIf Strings.AvailableFeature(6) = 3 Then
+                If Strings.AvailableFeature(7) = 1 Then
+                    NewLine("TIME        Display the current time in the form of hours since midnight")
+                ElseIf Strings.AvailableFeature(7) = 3 Then
+                    If Strings.AvailableFeature(12) = 1 Then
+                        NewLine("TIME        Display the current time in the form of PM and AM format")
+                    End If
+                End If
+            End If
+        End If
+        If Strings.AvailableFeature(20) = 1 Then
+            NewLine("USERNAME    Sets the name of current user with a new one")
+        End If
+        NewLine("VER         Printing current version of ShiftOS TheRevival")
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Pwd.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Pwd.vb
new file mode 100644
index 0000000..2e97969
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Pwd.vb
@@ -0,0 +1,5 @@
+Module Com_Pwd
+    Public Sub Pwd()
+        NewLine(Console.CurrentDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!"))
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Shiftfetch.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Shiftfetch.vb
new file mode 100644
index 0000000..569d14d
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Shiftfetch.vb
@@ -0,0 +1,32 @@
+Module Com_Shiftfetch
+    Public Sub Shiftfetch()
+        If Strings.OnceInfo(0) = "Yes" Then
+            NewLine("                 :^!7?JJJJJ?7!^:                  root@" & Strings.ComputerInfo(0))
+        Else
+            NewLine("                 :^!7?JJJJJ?7!^:                  " & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0))
+        End If
+        NewLine("            .~?PB###BGP555PGB###BP?~.             ----------------------")
+        NewLine("        .!P#&B57^..:: ^~~!!~^::~7YG&#5!.          OS: ShiftOS TheRevival")
+        NewLine("       .?#@G7: .^               :^::!5&#?.        Host: " & Environment.MachineName)
+        NewLine("     .?#@5^  !                   .^!!..J&#?       Kernel: " & My.Resources.CurrentVersion)
+        NewLine("    B@G^ .J                        : 7?..J@G:     Uptime : N/ A")
+        NewLine("   ~&@Y  7         ~PB&#Y:.           ~G7 ~&&^    Packages: " & Strings.ComputerInfo(4))
+        NewLine("  ^&@Y  Y         5#5??YB@&B~          .GJ :&&:   Shell: sos-justshell")
+        NewLine("  G@B  ?         5P      ^YB!           .#! ~@G   Window Manager: -")
+        NewLine(" ^@@! :          @Y   .:::^~:.           7#  Y@^  Window Manager Theme: -")
+        NewLine(" 7@@: !          B@&BBBBGPPB@#Y.         :&^ ^@?  Terminal: shiftos-terminal")
+        NewLine(" ?@@: 7          :??7~:.    5@@5         :&^ .&?  Terminal Font: Consolas, 11pt")
+        NewLine(" ~@@! !@    G#&B!.          Y@@B         7#.  Y~  CPU: " & My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
+        NewLine("  B@G  B@J   ...~&G.       7@@@?        .#?   7   GPU: N/A")
+        Dim TripleDigitRAM As String
+        TripleDigitRAM = (My.Computer.Info.TotalPhysicalMemory / 1024 / 1024 / 1024)
+        NewLine("  ~&@? ^@Y       !G#57~~!YB@#Y^        .GP   ..   Memory: " & TripleDigitRAM.Substring(0, 4) & " GB")
+        NewLine("   !@@7 ~#J        5#&&BG57^          ~BY         Codepoint: " & Strings.ComputerInfo(2))
+        NewLine("    ~#@Y .5P~                       ^5G~          ")
+        NewLine("     .J&#! ^JY!:.                ^?P5!            ")
+        NewLine("       :J&B?..!JYY7!~::...::~!7Y5Y7:              ")
+        NewLine("         .7PBP?^::~!?JJJJJJJ?7~:                  ")
+        NewLine("            .~?55Y?!^:...                         ")
+        NewLine("                 .:~~^~^^::.                      ")
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Su.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Su.vb
new file mode 100644
index 0000000..2602187
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Su.vb
@@ -0,0 +1,10 @@
+Module Com_Su
+    Public Sub Terminal_Su()
+        If Strings.OnceInfo(0) = "Yes" Then
+            NewLine("You already in root mode!")
+        Else
+            Strings.OnceInfo(0) = "Yes"
+            Terminal_AssignPrompt()
+        End If
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb
new file mode 100644
index 0000000..17cc2b3
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb
@@ -0,0 +1,25 @@
+Module Com_Time
+    Public Sub Terminal_Time()
+        If Strings.AvailableFeature(5) = 1 Then
+            NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds passed since midnight")
+        ElseIf Strings.AvailableFeature(5) = 3 Then
+            If Strings.AvailableFeature(6) = 1 Then
+                NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " minutes passed since midnight")
+            ElseIf Strings.AvailableFeature(6) = 3 Then
+                If Strings.AvailableFeature(7) = 1 Then
+                    NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight")
+                ElseIf Strings.AvailableFeature(7) = 3 Then
+                    If Strings.AvailableFeature(12) = 1 Then
+                        If Date.Now.Hour < 12 Then
+                            NewLine("The time is " & TimeOfDay.Hour & " AM")
+                        Else
+                            NewLine("The time is " & TimeOfDay.Hour - 12 & " PM")
+                        End If
+                    ElseIf Strings.AvailableFeature(23) = 1 Then
+                        NewLine("The time is " & TimeOfDay.Hour & ":" & TimeOfDay.Minute)
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Ver.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Ver.vb
new file mode 100644
index 0000000..8b2de41
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Ver.vb
@@ -0,0 +1,5 @@
+Module Com_Ver
+    Public Sub Terminal_Version()
+        NewLine("ShiftOS TheRevival version " & My.Resources.CurrentVersion)
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/TerminalInternalApps.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/TerminalInternalApps.vb
index 8b544a0..0167f72 100644
--- a/ShiftOS-TheRevival/Terminal Applications/Internal/TerminalInternalApps.vb
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/TerminalInternalApps.vb
@@ -84,151 +84,7 @@
     End Sub
 
     Public Sub DateTerm()
-        If Strings.AvailableFeature(24) = 1 Then
-            NewLine("The date is " & Date.Now.DayOfYear & " days since the first day of the year")
-            AdvancedCommand = False
-            Console.BadCommand = False
-        ElseIf Strings.AvailableFeature(24) = 3 Then
-            If Strings.AvailableFeature(25) = 1 Then
-                Dim TheWeek As String = Date.Now.DayOfYear / 7
-                NewLine("The date is " & TheWeek.Substring(0, 2) & " weeks since the first week of the year")
-                AdvancedCommand = False
-                Console.BadCommand = False
-            ElseIf Strings.AvailableFeature(25) = 3 Then
-                If Strings.AvailableFeature(26) = 1 Then
-                    NewLine("The date is " & Date.Now.Month & " months since the first month of the year")
-                    AdvancedCommand = False
-                    Console.BadCommand = False
-                ElseIf Strings.AvailableFeature(26) = 3 Then
-                    If Strings.AvailableFeature(27) = 1 Then
-                        NewLine("The year is " & Date.Now.Year)
-                        AdvancedCommand = False
-                        Console.BadCommand = False
-                    ElseIf Strings.AvailableFeature(27) = 3 Then
-                        If Strings.AvailableFeature(28) = 1 Then
-                            NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month)
-                            AdvancedCommand = False
-                            Console.BadCommand = False
-                        ElseIf Strings.AvailableFeature(28) = 3 Then
-                            If Strings.AvailableFeature(29) = 1 Then
-                                NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year)
-                                AdvancedCommand = False
-                                Console.BadCommand = False
-                            End If
-                        End If
-                    End If
-                End If
-            End If
-        End If
-    End Sub
 
-    Public Sub Help()
-        NewLine("ShiftOS Help Manual")
-        NewLine(Nothing)
-        NewLine("You can type 'help' to get all available commands and its corresponding action.")
-        If Strings.AvailableFeature(0) = 1 Then
-            NewLine("To get help on each command, you can type 'man [command]'")
-            NewLine(Nothing)
-        Else
-            NewLine(Nothing)
-        End If
-        If Strings.AvailableFeature(9) = 1 Then
-            NewLine("BC          Basic Calculator for simple calculation")
-        End If
-        If Strings.AvailableFeature(16) = 1 Then
-            NewLine("CD          Changes directory to a selected one")
-        End If
-        If Strings.AvailableFeature(1) = 1 Then
-            NewLine("CLEAR       Clear the terminal")
-        End If
-        NewLine("CODEPOINT   Display Codepoint(s) from your wallet")
-        NewLine("COLOR       Changes Terminal Text And Background color To the corresponding choice")
-        NewLine("COLORS      Shows available colors support For the terminal")
-        If Strings.AvailableFeature(22) = 1 Then
-            NewLine("COWSAY      Spawn a cow And saying anything you want")
-        End If
-        If Strings.AvailableFeature(24) = 1 Then
-            NewLine("DATE        Displays date in days since first day of the year format")
-        ElseIf Strings.AvailableFeature(24) = 3 Then
-            If Strings.AvailableFeature(25) = 1 Then
-                NewLine("DATE        Displays date in weeks since first week of the year format")
-            ElseIf Strings.AvailableFeature(25) = 3 Then
-                If Strings.AvailableFeature(26) = 1 Then
-                    NewLine("DATE        Displays date in months since first month of the year format")
-                ElseIf Strings.AvailableFeature(26) = 3 Then
-                    If Strings.AvailableFeature(27) = 1 Then
-                        NewLine("DATE        Displays date in year format format")
-                    ElseIf Strings.AvailableFeature(27) = 3 Then
-                        If Strings.AvailableFeature(28) = 1 Then
-                            NewLine("DATE        Displays date in MM/YYYY format")
-                        ElseIf Strings.AvailableFeature(28) = 3 Then
-                            If Strings.AvailableFeature(29) = 1 Then
-                                NewLine("DATE        Displays date in general DD/MM/YYYY format")
-                            End If
-                        End If
-                    End If
-                End If
-            End If
-        End If
-        If Strings.AvailableFeature(16) = 1 Then
-            NewLine("DEL         Delete a selected file from the directory")
-            NewLine("DIR         Displays subdirectories And files In a directory")
-        End If
-        NewLine("GUESS       Runs 'Guess the Number' application")
-        NewLine("HELP        Shows all commands available and its corresponding action")
-        If Strings.AvailableFeature(20) = 1 Then
-            NewLine("HOSTNAME    Sets the name of current hostname/computer name with a new one")
-        End If
-        If Strings.AvailableFeature(4) = 1 Then
-            NewLine("INFOBAR     Displays informations about current session such as current app, current user, current time, etc.")
-        End If
-        If Strings.AvailableFeature(0) = 1 Then
-            NewLine("MAN         Shows a command, its corresponding action, and its example usage")
-        End If
-        If Strings.AvailableFeature(16) = 1 Then
-            NewLine("MKDIR       Creating a directory")
-        End If
-        If Strings.AvailableFeature(16) = 1 Then
-            NewLine("PWD         Display current directory navigated on ShiftOS")
-        End If
-        If Strings.AvailableFeature(2) = 1 Then
-            NewLine("PRINT       Prints a corresponding text entered in the command")
-        End If
-        NewLine("REBOOT      Terminate and re-run ShiftOS session")
-        If Strings.AvailableFeature(21) = 1 Then
-            NewLine("REV         Turn any sentences you want and making it reversed")
-        End If
-        If Strings.AvailableFeature(16) = 1 Then
-            NewLine("RMDIR       Deleting a directory")
-        End If
-        If Strings.AvailableFeature(8) = 1 Then
-            NewLine("SHIFTFETCH  Shows informations about your computer")
-        End If
-        NewLine("SHIFTORIUM  A software center for upgrading features on ShiftOS")
-        NewLine("SHUTDOWN    Terminate ShiftOS session")
-        NewLine("SU          Runs terminal as super user")
-        If Strings.AvailableFeature(17) = 1 Then
-            NewLine("TEXTPAD     Simple text-editor for ShiftOS")
-        End If
-        If Strings.AvailableFeature(5) = 1 Then
-            NewLine("TIME        Display the current time in the form of seconds since midnight")
-        ElseIf Strings.AvailableFeature(5) = 3 Then
-            If Strings.AvailableFeature(6) = 1 Then
-                NewLine("TIME        Display the current time in the form of minutes since midnight")
-            ElseIf Strings.AvailableFeature(6) = 3 Then
-                If Strings.AvailableFeature(7) = 1 Then
-                    NewLine("TIME        Display the current time in the form of hours since midnight")
-                ElseIf Strings.AvailableFeature(7) = 3 Then
-                    If Strings.AvailableFeature(12) = 1 Then
-                        NewLine("TIME        Display the current time in the form of PM and AM format")
-                    End If
-                End If
-            End If
-        End If
-        If Strings.AvailableFeature(20) = 1 Then
-            NewLine("USERNAME    Sets the name of current user with a new one")
-        End If
-        NewLine("VER         Printing current version of ShiftOS TheRevival")
     End Sub
 
     Public Sub Manual(Command As String)
@@ -389,59 +245,4 @@
                 NewLine("MAN : Invalid command")
         End Select
     End Sub
-
-    Public Sub Shiftfetch()
-        If Strings.OnceInfo(0) = "Yes" Then
-            NewLine("                 :^!7?JJJJJ?7!^:                  root@" & Strings.ComputerInfo(0))
-        Else
-            NewLine("                 :^!7?JJJJJ?7!^:                  " & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0))
-        End If
-        NewLine("            .~?PB###BGP555PGB###BP?~.             ----------------------")
-        NewLine("        .!P#&B57^..:: ^~~!!~^::~7YG&#5!.          OS: ShiftOS TheRevival")
-        NewLine("       .?#@G7: .^               :^::!5&#?.        Host: " & Environment.MachineName)
-        NewLine("     .?#@5^  !                   .^!!..J&#?       Kernel: " & My.Resources.CurrentVersion)
-        NewLine("    B@G^ .J                        : 7?..J@G:     Uptime : N/ A")
-        NewLine("   ~&@Y  7         ~PB&#Y:.           ~G7 ~&&^    Packages: " & Strings.ComputerInfo(4))
-        NewLine("  ^&@Y  Y         5#5??YB@&B~          .GJ :&&:   Shell: sos-justshell")
-        NewLine("  G@B  ?         5P      ^YB!           .#! ~@G   Window Manager: -")
-        NewLine(" ^@@! :          @Y   .:::^~:.           7#  Y@^  Window Manager Theme: -")
-        NewLine(" 7@@: !          B@&BBBBGPPB@#Y.         :&^ ^@?  Terminal: shiftos-terminal")
-        NewLine(" ?@@: 7          :??7~:.    5@@5         :&^ .&?  Terminal Font: Consolas, 11pt")
-        NewLine(" ~@@! !@    G#&B!.          Y@@B         7#.  Y~  CPU: " & My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
-        NewLine("  B@G  B@J   ...~&G.       7@@@?        .#?   7   GPU: N/A")
-        Dim TripleDigitRAM As String
-        TripleDigitRAM = (My.Computer.Info.TotalPhysicalMemory / 1024 / 1024 / 1024)
-        NewLine("  ~&@? ^@Y       !G#57~~!YB@#Y^        .GP   ..   Memory: " & TripleDigitRAM.Substring(0, 4) & " GB")
-        NewLine("   !@@7 ~#J        5#&&BG57^          ~BY         Codepoint: " & Strings.ComputerInfo(2))
-        NewLine("    ~#@Y .5P~                       ^5G~          ")
-        NewLine("     .J&#! ^JY!:.                ^?P5!            ")
-        NewLine("       :J&B?..!JYY7!~::...::~!7Y5Y7:              ")
-        NewLine("         .7PBP?^::~!?JJJJJJJ?7~:                  ")
-        NewLine("            .~?55Y?!^:...                         ")
-        NewLine("                 .:~~^~^^::.                      ")
-    End Sub
-
-    Public Sub TimeTerm()
-        If Strings.AvailableFeature(5) = 1 Then
-            NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds passed since midnight")
-        ElseIf Strings.AvailableFeature(5) = 3 Then
-            If Strings.AvailableFeature(6) = 1 Then
-                NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " minutes passed since midnight")
-            ElseIf Strings.AvailableFeature(6) = 3 Then
-                If Strings.AvailableFeature(7) = 1 Then
-                    NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight")
-                ElseIf Strings.AvailableFeature(7) = 3 Then
-                    If Strings.AvailableFeature(12) = 1 Then
-                        If Date.Now.Hour < 12 Then
-                            NewLine("The time is " & TimeOfDay.Hour & " AM")
-                        Else
-                            NewLine("The time is " & TimeOfDay.Hour - 12 & " PM")
-                        End If
-                    ElseIf Strings.AvailableFeature(23) = 1 Then
-                        NewLine("The time is " & TimeOfDay.Hour & ":" & TimeOfDay.Minute)
-                    End If
-                End If
-            End If
-        End If
-    End Sub
 End Module