Terminal Display Driver added, migrating Shiftorium functions into Module

ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb

@@ -0,0 +1,24 @@
+Module SaveLoadSystem
+
+    Public Sub NewGameMode()
+        Strings.AvailableFeature(0) = "0"
+        Strings.AvailableFeature(1) = "0"
+        Strings.AvailableFeature(2) = "2"
+        Strings.AvailableFeature(3) = "2"
+    End Sub
+
+    Public Sub FreeRoamMode()
+        Strings.AvailableFeature(0) = "1"
+        Strings.AvailableFeature(1) = "1"
+        Strings.AvailableFeature(2) = "1"
+        Strings.AvailableFeature(3) = "1"
+    End Sub
+
+    Public Sub GodMode()
+        Strings.ComputerInfo(2) = 9999
+        Strings.AvailableFeature(0) = "0"
+        Strings.AvailableFeature(1) = "0"
+        Strings.AvailableFeature(2) = "2"
+        Strings.AvailableFeature(3) = "2"
+    End Sub
+End Module

ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb

@@ -35,8 +35,7 @@ Public Class ShiftOSMenu
             Case "Free Roam Mode"
                 Try
                     Strings.IsFree = True
-                    Strings.AvailableFeature(0) = "0"
+                    FreeRoamMode()
-                    Strings.AvailableFeature(1) = "0"
                     Terminal.Show()
                     Close()
                 Catch ex As Exception
@@ -107,8 +106,7 @@ Public Class ShiftOSMenu
     Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
         If Label2.Text = "Debug it your way" Then
             Strings.IsFree = True
-            Strings.AvailableFeature(0) = "0"
+            GodMode()
-            Strings.AvailableFeature(1) = "0"
             Terminal.Show()
             Close()
         End If

ShiftOS-TheRevival/MainForms/Shiftoriums.vb

@@ -1,6 +1,89 @@
 Module Shiftoriums
-    Public Sub InstallFeature(IsCLI As Boolean, Feature As String, Codepoint As Integer)
+    Public prompt As String
+
+    Public Sub Shiftorium_ListFeatures()
+        Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine
+        If Strings.AvailableFeature(0) = "0" Then
+            Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual (man | 20 CP)"
+        End If
+        If Strings.AvailableFeature(1) = "0" Then
+            Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Clear Terminal Screen (clear | 25 CP)"
+        Else
+            If Strings.AvailableFeature(2) = "0" Then
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Print Terminal Screen (print | 30 CP)"
+            Else
+                If Strings.AvailableFeature(3) = "0" Then
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Terminal Display Driver (termdspdrv | 50 CP)"
+                End If
+            End If
+        End If
+    End Sub
+
+    Public Sub Shiftorium_InformationFeatures()
+        'ManHeader is for the ShiftOS Help Manual header and the 'Cost' footer, kinda like template-ish
+        Dim ManHeader(1) As String
+        'ManHeader(0) = Insert any feature here for the Case prompt
+        ManHeader(1) = "Cost: "
+        Select Case prompt
+            Case "man"
+                If Strings.AvailableFeature(0) = "0" Then
+                    ManHeader(0) = "ShiftOS Help Manual (command: man)"
+                    ManHeader(1) = "20 CP"
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows up any further help instruction on each command, its corresponding action and its example if necessary" & Environment.NewLine & Environment.NewLine & ManHeader(1)
+                    Terminal.BadCommand = False
+                End If
+            Case "clear"
+                If Strings.AvailableFeature(1) = "0" Then
+                    ManHeader(0) = "Clear Terminal Screen (command: clear)"
+                    ManHeader(1) = "25 CP"
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Clears the terminal screen" & Environment.NewLine & Environment.NewLine & ManHeader(1)
+                    Terminal.BadCommand = False
+                End If
+            Case "print"
+                If Strings.AvailableFeature(2) = "0" Then
+                    ManHeader(0) = "Print Command (command: print)"
+                    ManHeader(1) = "30 CP"
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Prints a corresponding text entered in the command" & Environment.NewLine & Environment.NewLine & ManHeader(1)
+                    Terminal.BadCommand = False
+                End If
+            Case "termdspdrv"
+                If Strings.AvailableFeature(3) = "0" Then
+                    ManHeader(0) = "Terminal Display Driver"
+                    ManHeader(1) = "50 CP"
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Display driver for ShiftOS' Terminal to utilize advantages such as Infobar, ASCII-based applications" & Environment.NewLine & Environment.NewLine & ManHeader(1)
+                    Terminal.BadCommand = False
+                End If
+            Case Else
+                Terminal.BadCommand = False
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
+        End Select
+    End Sub
+
+    Public Sub Shiftorium_DetectInstallFeatures()
+        Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Installing feature..."
+        Select Case prompt
+            Case "man"
+                Shiftorium_InstallFeatures(True, "man", 0, 20)
+                Terminal.BadCommand = False
+            Case "clear"
+                Shiftorium_InstallFeatures(True, "clear", 1, 25)
+                Terminal.BadCommand = False
+            Case "print"
+                Shiftorium_InstallFeatures(True, "print", 2, 30)
+                Terminal.BadCommand = False
+            Case "termdspdrv"
+                Shiftorium_InstallFeatures(True, "termdspdrv", 3, 50)
+                Terminal.BadCommand = False
+            Case Else
+                Terminal.BadCommand = False
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
+        End Select
+    End Sub
+
+    Public Sub Shiftorium_InstallFeatures(IsCLI As Boolean, Feature As String, FeatureRow As Integer, Codepoint As Integer)
         Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
+        Select Case Strings.AvailableFeature(FeatureRow)
+            Case "0"
                 If TempCP >= Codepoint Then
                     Dim success As Boolean = False
                     Select Case Feature
@@ -9,6 +92,15 @@
                             success = True
                         Case "clear"
                             Strings.AvailableFeature(1) = "1"
+                            Strings.AvailableFeature(2) = "0"
+                            success = True
+                        Case "print"
+                            Strings.AvailableFeature(2) = "1"
+                            Strings.AvailableFeature(3) = "0"
+                            success = True
+                        Case "termdspdrv"
+                            Strings.AvailableFeature(3) = "1"
+                            'Strings.AvailableFeature(3) = "0"
                             success = True
                     End Select
                     If success = False Then
@@ -27,5 +119,14 @@
                         Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint"
                     End If
                 End If
+            Case "1"
+                If IsCLI = True Then
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature has already been installed"
+                End If
+            Case "2"
+                If IsCLI = True Then
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is not available"
+                End If
+        End Select
     End Sub
 End Module

ShiftOS-TheRevival/MainForms/Strings.vb

@@ -3,8 +3,9 @@
     Public Shared ComputerInfo(3) As String
     Public Shared IsFree As Boolean
     Public Shared OnceInfo(0) As String
-    Public Shared AvailableFeature(1) As String
+    Public Shared AvailableFeature(3) As String
     Public Shared CLIInterpreter As String
+    Public Shared SaveFile As String
 
     'STRING CATEGORIZATION WRITING RULES!
     'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS!
@@ -34,11 +35,15 @@
     '2 = Codepoint (0.2) (default : 0)
     '3 = Story Chapter (0.2) (default : 0 for New Game)
     '
-    'AvailableFeature (Default is defined on the Story Mode, Free Mode automatically assigns every available feature to 1)Strings:
+    'AvailableFeature (Default is defined on the Story Mode, Free Mode automatically assigns every available feature to 1, Unavailable in the Shiftorium assigned as 2) Strings:
     '0 = MAN command [Manual on each command] (0.2) (default : 0)
     '1 = CLEAR command [Clearing the screen] (0.2) (default : 0)
+    '2 = PRINT command [Printing a string] (0.2.2) (default : 0)
+    '3 = Terminal Display Driver [Dependencies for advanced terminal applications] (0.2.2) (default : 0)
     '
     'Features bought hierarchy :
     'ShiftOS Help Manual (MAN) (20 CP)
     'Terminal Clear (CLEAR) (25 CP)
+    '>Terminal Print (PRINT) (30 CP)
+    '>>Terminal Display Driver (50 CP)
 End Class

ShiftOS-TheRevival/MainForms/Terminal.vb

@@ -17,7 +17,7 @@ Public Class Terminal
         If Strings.IsFree = True Then
             Strings.ComputerInfo(0) = "shiftos"
             Strings.ComputerInfo(1) = "user"
-            Strings.ComputerInfo(2) = 0
+            'Strings.ComputerInfo(2) = 0
             PrintPrompt()
             AssignPrompt()
         Else
@@ -119,11 +119,15 @@ Public Class Terminal
                     TextBox1.Text = TextBox1.Text & Environment.NewLine & "CLEAR       Clear the terminal"
                 End If
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "CODEPOINT   Display Codepoint(s) from your wallet"
+                TextBox1.Text = TextBox1.Text & Environment.NewLine & "GUESS       Runs 'Guess the Number' application"
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "HELP        Shows all commands available and its corresponding action"
                 If Strings.AvailableFeature(0) = 1 Then
                     TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN         Shows a command, its corresponding action, and its example usage"
                 End If
-                TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTORIUM  Terminate ShiftOS session"
+                If Strings.AvailableFeature(2) = 1 Then
+                    TextBox1.Text = TextBox1.Text & Environment.NewLine & "PRINT       Prints a corresponding text entered in the command"
+                End If
+                TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTORIUM  A software center for upgrading features on ShiftOS"
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHUTDOWN    Terminate ShiftOS session"
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "SU          Runs terminal as super user"
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "VER         Printing current version of ShiftOS TheRevival"
@@ -143,7 +147,7 @@ Public Class Terminal
                 ShiftOSMenu.Show()
                 Close()
             Case "ver"
-                TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS TheRevival version 0.1.1"
+                TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS TheRevival version " & My.Resources.CurrentVersion
                 AdvancedCommand = False
                 BadCommand = False
         End Select
@@ -175,21 +179,37 @@ Public Class Terminal
                             TempUsage = TempUsage & "codepoint"
                             TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine
                             BadCommand = False
+                        Case "guess"
+                            TempUsage = TempUsage & "guess"
+                            TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine
+                            BadCommand = False
                         Case "help"
                             TempUsage = TempUsage & "help"
-                            TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Shows all commands available in the terminal and its brief explanation of action" & Environment.NewLine
+                            TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine
                             BadCommand = False
                         Case "man"
+                            If Strings.AvailableFeature(0) = "1" Then
                                 TempUsage = TempUsage & "man [command]"
-                            TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Shows up a manual on each corresponding command and its example of action" & Environment.NewLine & Environment.NewLine & "[COMMAND] Any command that you want to get the manual for" & Environment.NewLine & Environment.NewLine & "Example: man help"
+                                TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine
+                                BadCommand = False
+                            End If
+                        Case "print"
+                            If Strings.AvailableFeature(2) = "1" Then
+                                TempUsage = TempUsage & "print [text]"
+                                TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine
+                                BadCommand = False
+                            End If
+                        Case "shiftorium"
+                            TempUsage = TempUsage & "shiftorium [option] [featureName]"
+                            TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine
                             BadCommand = False
                         Case "shutdown"
                             TempUsage = TempUsage & "shutdown"
-                            TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Terminate ShiftOS session" & Environment.NewLine
+                            TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine
                             BadCommand = False
                         Case "ver"
                             TempUsage = TempUsage & "ver"
-                            TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Displays current version of ShiftOS TheRevival" & Environment.NewLine
+                            TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine
                             BadCommand = False
                         Case Else
                             TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
@@ -200,59 +220,27 @@ Public Class Terminal
                 Dim prompt As String = command.Replace("shiftorium ", "")
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium ShiftOS Center"
                 If prompt Like "info *" Then
-                    prompt = command.Replace("shiftorium info ", "")
+                    Shiftoriums.prompt = command.Replace("shiftorium info ", "")
-                    'ManHeader is for the ShiftOS Help Manual header and the 'Cost' footer, kinda like template-ish
+                    Shiftorium_InformationFeatures()
-                    Dim ManHeader(1) As String
-                    'ManHeader(0) = Insert any feature here for the Case prompt
-                    ManHeader(1) = "Cost: "
-                    Select Case prompt
-                        Case "man"
-                            ManHeader(0) = "ShiftOS Help Manual (command: man)"
-                            ManHeader(1) = "20 CP"
-                            TextBox1.Text = TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows up any further help instruction on each command, its corresponding action and its example if necessary" & Environment.NewLine & Environment.NewLine & ManHeader(1)
-                            BadCommand = False
-                        Case "clear"
-                            ManHeader(0) = "Clear Terminal Screen (command: clear)"
-                            ManHeader(1) = "25 CP"
-                            TextBox1.Text = TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Clears the terminal screen" & Environment.NewLine & Environment.NewLine & ManHeader(1)
-                            BadCommand = False
-                        Case Else
-                            BadCommand = False
-                            TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
-                    End Select
                 End If
                 If prompt Like "install *" Then
-                    prompt = command.Replace("shiftorium install ", "")
+                    Shiftoriums.prompt = command.Replace("shiftorium install ", "")
-                    Select Case prompt
+                    Shiftorium_DetectInstallFeatures()
-                        Case "man"
-                            InstallFeature(True, "man", 20)
-                            BadCommand = False
-                        Case "clear"
-                            InstallFeature(True, "clear", 25)
-                            BadCommand = False
-                        Case Else
-                            BadCommand = False
-                            TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
-                    End Select
                 End If
                 If prompt = "list" Then
-                    TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine
+                    Shiftorium_ListFeatures()
-                    If Strings.AvailableFeature(0) = "0" Then
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual (20 CP)"
-                    End If
-                    If Strings.AvailableFeature(1) = "0" Then
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "Clear Terminal Screen (25 CP)"
-                    End If
                     BadCommand = False
                 End If
             End If
             If command Like "print *" Then
+                If Strings.AvailableFeature(2) = "1" Then
                     TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(6)
                     Dim printed As String = command.Replace("print ", "")
                     ''It has the same issue, only displays in lowercase
                     'TextBox1.Text = TextBox1.Text & Environment.NewLine & printed
                     BadCommand = False
                 End If
+            End If
             AdvancedCommand = False
         End If
 
@@ -301,6 +289,9 @@ Public Class Terminal
 
         If e.KeyCode = Keys.Enter Then
             e.SuppressKeyPress = True
+            If TextBox1.ReadOnly = True Then
+
+            Else
                 ReadCommand()
                 If ChangeInterpreter = True Then
                     DoChildCommand()
@@ -311,6 +302,7 @@ Public Class Terminal
                     PrintPrompt()
                     TextBox1.Select(TextBox1.Text.Length, 0)
                 End If
+            End If
 
             'If command = "clear" Then
             '    PrintPrompt()

ShiftOS-TheRevival/My Project/Resources.Designer.vb

@@ -95,5 +95,81 @@ Namespace My.Resources
                 Return ResourceManager.GetString("man_codepoint", resourceCulture)
             End Get
         End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to Runs the &apos;Guess the Number&apos; application..
+        '''</summary>
+        Friend ReadOnly Property man_guess() As String
+            Get
+                Return ResourceManager.GetString("man_guess", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to Shows all commands available in the terminal and its brief explanation of action.
+        '''</summary>
+        Friend ReadOnly Property man_help() As String
+            Get
+                Return ResourceManager.GetString("man_help", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to Shows up a manual on each corresponding command and its example of action
+        '''
+        '''[COMMAND] Any command that you want to get the manual for
+        '''
+        '''Example: man help.
+        '''</summary>
+        Friend ReadOnly Property man_man() As String
+            Get
+                Return ResourceManager.GetString("man_man", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to .
+        '''</summary>
+        Friend ReadOnly Property man_print() As String
+            Get
+                Return ResourceManager.GetString("man_print", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to A software center for upgrading features in ShiftOS
+        '''
+        '''[OPTION] Shiftorium execute mode
+        '''LIST    Printing a list of available upgrade in ShiftOS
+        '''INFO    Displays informations such as description, instruction, and example command
+        '''INSTALL Install the selected feature to ShiftOS (if the Codepoints are either equal or more to required)
+        '''
+        '''[featureName] Feature name
+        '''
+        '''Example: shiftorium install man, shiftorium info clear.
+        '''</summary>
+        Friend ReadOnly Property man_shiftorium() As String
+            Get
+                Return ResourceManager.GetString("man_shiftorium", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to Terminate ShiftOS session.
+        '''</summary>
+        Friend ReadOnly Property man_shutdown() As String
+            Get
+                Return ResourceManager.GetString("man_shutdown", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to Displays current version of ShiftOS TheRevival.
+        '''</summary>
+        Friend ReadOnly Property man_ver() As String
+            Get
+                Return ResourceManager.GetString("man_ver", resourceCulture)
+            End Get
+        End Property
     End Module
 End Namespace

ShiftOS-TheRevival/My Project/Resources.resx

@@ -130,4 +130,25 @@
   <data name="man_codepoint" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
   </data>
+  <data name="man_guess" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\guess.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_help" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\help.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_man" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\man.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\print.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_shiftorium" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\shiftorium.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_shutdown" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\shutdown.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="man_ver" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\man manuals\ver.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
 </root>

ShiftOS-TheRevival/Resources/man Manuals/guess.txt

@@ -0,0 +1 @@
+Runs the 'Guess the Number' application.

ShiftOS-TheRevival/Resources/man Manuals/help.txt

@@ -0,0 +1 @@
+Shows all commands available in the terminal and its brief explanation of action

ShiftOS-TheRevival/Resources/man Manuals/man.txt

@@ -0,0 +1,5 @@
+Shows up a manual on each corresponding command and its example of action
+
+[COMMAND] Any command that you want to get the manual for
+
+Example: man help

ShiftOS-TheRevival/Resources/man Manuals/print.txt

@@ -0,0 +1 @@
+Prints a corresponding text entered in the command

ShiftOS-TheRevival/Resources/man Manuals/shiftorium.txt

@@ -0,0 +1,10 @@
+A software center for upgrading features in ShiftOS
+
+[OPTION] Shiftorium execute mode
+LIST    Printing a list of available upgrade in ShiftOS
+INFO    Displays informations such as description, instruction, and example command
+INSTALL Install the selected feature to ShiftOS (if the Codepoints are either equal or more to required)
+
+[featureName] Feature name
+
+Example: shiftorium install man, shiftorium info clear

ShiftOS-TheRevival/Resources/man Manuals/shutdown.txt

@@ -0,0 +1 @@
+Terminate ShiftOS session

ShiftOS-TheRevival/Resources/man Manuals/ver.txt

@@ -0,0 +1 @@
+Displays current version of ShiftOS TheRevival

ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj

@@ -105,6 +105,7 @@
     <Compile Include="MainForms\IntroStory.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="MainForms\SaveLoadSystem.vb" />
     <Compile Include="MainForms\Shiftoriums.vb" />
     <Compile Include="MainForms\ShiftOSMenu.vb">
       <SubType>Form</SubType>
@@ -197,6 +198,13 @@
     <None Include="Resources\CurrentVersion.txt" />
     <Content Include="Resources\man Manuals\clear.txt" />
     <Content Include="Resources\man Manuals\codepoint.txt" />
+    <Content Include="Resources\man Manuals\guess.txt" />
+    <Content Include="Resources\man Manuals\help.txt" />
+    <Content Include="Resources\man Manuals\man.txt" />
+    <Content Include="Resources\man Manuals\print.txt" />
+    <Content Include="Resources\man Manuals\shiftorium.txt" />
+    <Content Include="Resources\man Manuals\shutdown.txt" />
+    <Content Include="Resources\man Manuals\ver.txt" />
     <Content Include="ShiftOS.ico" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />