Data update

Task/Determine-sentence-type/QBasic/determine-sentence-type.basic

@@ -0,0 +1,24 @@
+DECLARE FUNCTION SentenceType$ (s AS STRING)
+
+Dim spam(3) As String
+spam(0) = "hi there, how are you today?"
+spam(1) = "I'd like to present to you the washing machine 9001."
+spam(2) = "You have been nominated to win one of these!"
+spam(3) = "Just make sure you don't break it"
+
+For i = 0 To UBound(spam)
+    Print spam(i); " -> "; SentenceType$(spam(i))
+Next i
+
+Function SentenceType$ (s As String)
+    Select Case Right$(s, 1)
+        Case "?"
+            SentenceType$ = "Q"
+        Case "!"
+            SentenceType$ = "E"
+        Case "."
+            SentenceType$ = "S"
+        Case Else
+            SentenceType$ = "N"
+    End Select
+End Function