Initial data commit

Task/Binary-strings/FutureBasic/binary-strings-1.basic

@@ -0,0 +1,48 @@
+// Pascal Strings (limited to 255 characters)
+print "----------------------"
+print "Pascal String Examples"
+print "----------------------"
+
+// Dimension strings and iterator
+Str255 s, a
+short  i
+
+// Create string
+s = "Hello, world!"
+
+// Get length of string using length byte at 0 index
+print @"Length of \"Hello, world!\" is "; s[0]; @" characters."
+
+// String destruction
+s = ""
+
+// String comparison
+if s == "Hello, world!" then print "Strings are equal"
+
+// Copying string
+a = s
+
+// Check If empty
+if s == "" then print "String is empty"
+
+// 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" )
+    a = left$( a, i -1 ) + "universe" + mid$( a, i + 5 )
+  end if
+next
+print a
+
+// Join strings
+s = "See " + "you " + "later."
+print s
+print : print
+
+HandleEvents