1 files changed, 0 insertions, 27 deletions
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()