Data commit

Task/Substring/Commodore-BASIC/substring.basic

@@ -0,0 +1,30 @@
+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