Initial data commit

Task/Binary-strings/Run-BASIC/binary-strings.basic

@@ -0,0 +1,33 @@
+' Create string
+s$ = "Hello, world"
+
+' String destruction
+s$ = ""
+
+' String comparison
+If s$ = "Hello, world" then print "Equal String"
+
+' Copying string
+a$ = s$
+
+' Check If empty
+If s$ = "" then print "String is MT"
+
+' Append a byte
+s$ = s$ + Chr$(65)
+
+' Extract a substring
+a$ = Mid$(s$, 1, 5)   ' bytes 1 -> 5
+
+'substitute string "world" with "universe"
+a$ = "Hello, world"
+for i = 1 to len(a$)
+    if mid$(a$,i,5)="world" then
+        a$=left$(a$,i-1)+"universe"+mid$(a$,i+5)
+    end if
+next
+print a$
+
+'join strings
+s$ = "See " + "you " + "later."
+print s$