Data commit

Task/Binary-strings/ZX-Spectrum-Basic/binary-strings.basic

@@ -0,0 +1,13 @@
+10 REM create two strings
+20 LET s$ = "Hello"
+30 LET t$ = "Bob"
+40 REM choose any random character
+50 LET c = INT(RND*256)
+60 REM add the character to the string
+70 LET s$ = s$ + CHR$(c)
+80 REM check if the string is empty
+90 IF s$ = "" THEN PRINT "String is empty"
+100 REM compare two strings
+110 IF s$ = t$ THEN PRINT "Strings are the same"
+120 REM print characters 2 to 4 of a string (a substring)
+130 PRINT s$(2 TO 4)