Initial data commit

Task/Empty-string/QBasic/empty-string.basic

@@ -0,0 +1,16 @@
+SUB IsEmpty (s AS STRING)
+    IF LEN(s) = 0 THEN
+	PRINT "String is empty"
+    ELSE
+	PRINT "String is not empty"
+    END IF
+	IF s = "" THEN PRINT "yes, the string is empty"
+    IF s <> "" THEN PRINT "no, the string is not empty"
+END SUB
+
+DIM s AS STRING  ' implicitly assigned an empty string
+IsEmpty (s)
+t$ = ""          ' explicitly assigned an empty string
+IsEmpty (t$)
+u$ = "not empty"
+IsEmpty (u$)