Initial data commit

Task/String-comparison/BASIC256/string-comparison.basic

@@ -0,0 +1,26 @@
+function StringCompare(s1, s2, ignoreCase)
+    if ignoreCase then
+        s = lower(s1)
+        t = lower(s2)
+    else
+        s = s1
+        t = s2
+    end if
+    if s < t then return " comes before "
+    if s = t then return " is equal to "
+    return " comes after "
+end function
+
+s1 = "Dog" : s2 = "Dog"
+print s1; StringCompare(s1, s2, False); s2
+s2 = "Cat"
+print s1; StringCompare(s1, s2, False); s2
+s2 = "Rat"
+print s1; StringCompare(s1, s2, False); s2
+s2 = "dog"
+print s1; StringCompare(s1, s2, False); s2
+print s1; StringCompare(s1, s2, True); s2; " if case is ignored"
+s1  = "Dog" : s2 = "Pig"
+s3 = StringCompare(s1, s2, False)
+if s3 <> " is equal to " then print s1; " is not equal to "; s2
+end