From cf1bf85e01c8d99f052c09b72d2fb2bbbc0b99b0 Mon Sep 17 00:00:00 2001
From: FloppyDiskDrive <ibmpcdos5@gmail.com>
Date: Thu, 21 Sep 2017 17:16:49 -0500
Subject: Added the SOS code (VB and C#)

Very, very incomplete (C# isn't *remotely* complete.)
---
 ShiftOS/QuickChatStory.vb | 89 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 89 insertions(+)
 create mode 100644 ShiftOS/QuickChatStory.vb

(limited to 'ShiftOS/QuickChatStory.vb')

diff --git a/ShiftOS/QuickChatStory.vb b/ShiftOS/QuickChatStory.vb
new file mode 100644
index 0000000..6a0f910
--- /dev/null
+++ b/ShiftOS/QuickChatStory.vb
@@ -0,0 +1,89 @@
+Public Class QuickChatStory
+
+    Dim UndecidedName As String = "Hacker101"
+    Public i = 0
+    Public qcmain() As String = {UndecidedName & " joined", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 UndecidedName & " > Hi", _
+                 "Marattiopsida", _
+                 "Polypodiopsida"}
+
+    Private Sub QuickChatStory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        MsgBox("Hacker")
+    End Sub
+End Class
\ No newline at end of file
-- 
cgit v1.2.3