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

1 files changed, 34 insertions, 0 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