1 files changed, 58 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb
new file mode 100644
index 0000000..235664f
--- /dev/null
+++ b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb
@@ -0,0 +1,58 @@
+Module App_MathQuiz
+    Public MQ_1stNum As Integer
+    Public MQ_2ndNum As Integer
+    Public MQ_Operation As String
+    Public MQ_ShouldResult As Integer
+    Public OperationChooser As Integer
+
+    Public Sub MQ_Start()
+        Console.DefaultPrompt = "> "
+        ResetLine("MathQuiz for ShiftOS")
+        NewLine("Answer basic arithmatical question and you'll get codepoints based on the answer")
+        NewLine(Nothing)
+        MQ_GiveQuestion()
+        Console.CurrentInterpreter = "mathquiz"
+        Console.ShouldChange = True
+        Console_Interpreters()
+    End Sub
+
+    Public Sub MQ_GiveQuestion()
+        Dim RandomNum As New Random
+        MQ_1stNum = RandomNum.Next(1, 10)
+        MQ_2ndNum = RandomNum.Next(1, 10)
+        OperationChooser = RandomNum.Next(1, 5)
+        Select Case OperationChooser
+            Case 1
+                MQ_Operation = " + "
+                MQ_ShouldResult = MQ_1stNum + MQ_2ndNum
+            Case 2
+                While MQ_2ndNum > MQ_1stNum
+                    MQ_2ndNum = RandomNum.Next(1, 10)
+                End While
+                MQ_Operation = " - "
+                MQ_ShouldResult = MQ_1stNum - MQ_2ndNum
+            Case 3
+                MQ_Operation = " * "
+                MQ_ShouldResult = MQ_1stNum * MQ_2ndNum
+            Case 4
+                MQ_Operation = " / "
+                MQ_ShouldResult = MQ_1stNum / MQ_2ndNum
+            Case Else
+                MQ_Operation = " + "
+                MQ_ShouldResult = MQ_1stNum + MQ_2ndNum
+        End Select
+        NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?")
+    End Sub
+
+    Public Sub MQ_CheckAnswer()
+        Dim TheAnswer As Integer = command
+        If TheAnswer = MQ_ShouldResult Then
+            NewLine("You got the right answer! You got " & MQ_ShouldResult & " Codepoint(s)")
+            ChangeCP(True, MQ_ShouldResult)
+            MQ_GiveQuestion()
+        Else
+            NewLine("You got the wrong answer! Try again")
+            MQ_GiveQuestion()
+        End If
+    End Sub
+End Module