Initial data commit

Task/Binary-strings/Yabasic/binary-strings.basic

@@ -0,0 +1,36 @@
+// Rosetta Code problem: http://rosettacode.org/wiki/Binary_strings
+// by Galileo, 07/2022
+
+// Create string
+s$ = "Hello, world"
+
+// String destruction
+s$ = ""
+
+// String comparison
+If s$ = "Hello, world" print "Equal String"
+
+// Copying string
+a$ = s$
+
+// Check If empty
+If s$ = "" 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$