September 2017 Update

Task/Substring/BASIC/substring-2.basic

@@ -1,13 +1,30 @@
-10 LET A$="abcdefghijklmnopqrstuvwxyz"
-15 LET n=10: LET m=7
-20 PRINT A$(n TO n+m-1)
-30 PRINT A$(n TO )
-40 PRINT A$( TO LEN (A$)-1)
-50 FOR i=1 TO LEN (A$)
-60 IF A$(i)="g" THEN PRINT A$(i TO i+m-1): LET i=LEN (A$): GO TO 70
-70 NEXT i
-80 LET B$="ijk"
-90 FOR i=1 TO LEN (A$)-LEN (B$)+1
-100 IF A$(i TO i+LEN (B$)-1)=B$ THEN PRINT A$(i TO i+m-1): LET i=LEN (A$)-LEN (B$)+1:  GO TO 110
-110 NEXT i
-120 STOP
+10 REM SUBSTRING ... ROSETTACODE.ORG
+20 A$ = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
+30 X$ = "J" : S$ = "FOX"
+40 N = 5: M = 11
+50 PRINT "THE STRING:"
+60 PRINT A$
+70 PRINT
+80 PRINT "SUBSTRING STARTING FROM" N "CHARACTERS IN AND OF" M "LENGTH:"
+90 PRINT MID$(A$,N,M)
+100 PRINT
+110 PRINT "STARTING FROM" N "CHARACTERS IN, UP TO THE END OF THE STRING:"
+120 PRINT RIGHT$(A$,LEN(A$)+1-N)
+130 PRINT
+140 PRINT "WHOLE STRING MINUS LAST CHARACTER:"
+150 PRINT LEFT$(A$,LEN(A$)-1)
+160 PRINT
+170 PRINT "STARTING FROM '";X$;"' AND OF" M "LENGTH:"
+180 I = 1
+190 IF MID$(A$,I,1)=X$ THEN 220
+200 I = I+1
+210 GOTO 190
+220 PRINT RIGHT$(A$,LEN(A$)+1-I)
+230 PRINT
+240 PRINT "STARTING FROM '";S$;"' AND OF" M "LENGTH:"
+250 I = 1
+260 IF MID$(A$,I,LEN(S$))=S$ THEN 290
+270 I = I+1
+280 GOTO 260
+290 PRINT RIGHT$(A$,LEN(A$)+1-I)
+300 END