20 lines
681 B
Plaintext
20 lines
681 B
Plaintext
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
|