Initial data commit

Task/Substring/Applesoft-BASIC/substring.basic

@@ -0,0 +1,19 @@
+0 READ N, M, S$ : L = LEN(S$) : GOSUB 1 : END : DATA 5,11,THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG,J,FOX
+
+REM          starting from   n   characters in and of   m   length;
+1 PRINT MID$(S$,N,M)
+
+REM          starting from   n   characters in,   up to the end of the string;
+2 PRINT RIGHT$(S$,L-N+1)
+
+REM          whole string minus the last character;
+3 PRINT LEFT$(S$,L-1)
+
+REM          starting from a known   character   within the string and of   m   length;
+4 READ F$ :GOSUB 6
+
+REM          starting from a known   substring   within the string and of   m   length.
+5 READ F$
+
+6 FOR I = 1 TO L : IF MID$(S$,I,LEN(F$)) = F$ THEN PRINT MID$(S$,I,M) : RETURN
+7 NEXT : RETURN