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

2 files changed, 34 insertions, 27 deletions

diff --git a/ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb b/ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb
new file mode 100644
index 0000000..80e9599
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb
@@ -0,0 +1,34 @@
+Imports System.IO
+
+Module App_TextPad
+    Public Sub TextPad_CheckExist(TxtFileName As String)
+        If File.Exists(Console.CurrentDirectory & "\" & TxtFileName) = True Then
+            Console.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & TxtFileName)
+        End If
+    End Sub
+
+    Public Sub TextPad_GenerateCP_SavedFile()
+        Select Case Console.TextBox1.TextLength
+            Case 1 To 9
+                Dim GetCP As New Random
+                Dim GotCP As Integer = GetCP.Next(1, 3)
+                ChangeCP(True, GotCP)
+            Case 10 To 99
+                Dim GetCP As New Random
+                Dim GotCP As Integer = GetCP.Next(4, 26)
+                ChangeCP(True, GotCP)
+            Case 100 To 999
+                Dim GetCP As New Random
+                Dim GotCP As Integer = GetCP.Next(27, 251)
+                ChangeCP(True, GotCP)
+            Case 1000 To 9999
+                Dim GetCP As New Random
+                Dim GotCP As Integer = GetCP.Next(252, 2501)
+                ChangeCP(True, GotCP)
+        End Select
+    End Sub
+
+    Public Sub TextPad_WarnFile()
+        NewLine("Type any filename after 'textpad'!, ex: textpad text.txt")
+    End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/External/TerminalExternalApps.vb b/ShiftOS-TheRevival/Terminal Applications/External/TerminalExternalApps.vb
index 20188ed..24a6435 100644
--- a/ShiftOS-TheRevival/Terminal Applications/External/TerminalExternalApps.vb
+++ b/ShiftOS-TheRevival/Terminal Applications/External/TerminalExternalApps.vb
@@ -294,33 +294,6 @@ Module TerminalExternalApps
         End Try
     End Sub
 
-    Public Sub TextPad_CheckExist(TxtFileName As String)
-        If File.Exists(Console.CurrentDirectory & "\" & TxtFileName) = True Then
-            Console.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & TxtFileName)
-        End If
-    End Sub
-
-    Public Sub TextPad_GenerateCP_SavedFile()
-        Select Case Console.TextBox1.TextLength
-            Case 1 To 9
-                Dim GetCP As New Random
-                Dim GotCP As Integer = GetCP.Next(1, 3)
-                ChangeCP(True, GotCP)
-            Case 10 To 99
-                Dim GetCP As New Random
-                Dim GotCP As Integer = GetCP.Next(4, 26)
-                ChangeCP(True, GotCP)
-            Case 100 To 999
-                Dim GetCP As New Random
-                Dim GotCP As Integer = GetCP.Next(27, 251)
-                ChangeCP(True, GotCP)
-            Case 1000 To 9999
-                Dim GetCP As New Random
-                Dim GotCP As Integer = GetCP.Next(252, 2501)
-                ChangeCP(True, GotCP)
-        End Select
-    End Sub
-
     Public Sub ShiftoriumFX_DisplayPackages()
         Console.TextBox1.Text = "Shiftorium FX!" & Environment.NewLine & "The place to shiftisize the ShiftOS" & Environment.NewLine & Environment.NewLine & "Available Package(s)"
         Shiftorium_ListFeatures()