More enhanced code management and DesktopEnvironment experiments

1 files changed, 0 insertions, 34 deletions

diff --git a/ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb b/ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb
deleted file mode 100644
index 80e9599..0000000
--- a/ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb
+++ /dev/null
@@ -1,34 +0,0 @@
-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