19 lines
535 B
Plaintext
19 lines
535 B
Plaintext
10 A$ = "THIS, THAT, AND THE OTHER THING"
|
|
20 S$ = "TH"
|
|
30 DEF FN S(P) = MID$(A$, P, LEN(S$)) = S$
|
|
40 PRINT A$ : PRINT
|
|
|
|
110 S$(1) = "STARTS"
|
|
120 S$(0) = "DOES NOT START"
|
|
130 PRINT S$(FN S(1))" WITH "S$ : PRINT
|
|
|
|
210 R$ = "" : FOR I = 1 TO LEN(A$) - LEN(S$) : IF FN S(I) THEN R$ = R$ + STR$(I) + " "
|
|
220 NEXT I
|
|
230 IF LEN(R$) = 0 THEN PRINT "DOES NOT CONTAIN "S$
|
|
240 IF LEN(R$) THEN PRINT "CONTAINS "S$" LOCATED AT POSITION "R$
|
|
250 PRINT
|
|
|
|
310 E$(1) = "ENDS"
|
|
320 E$(0) = "DOES NOT END"
|
|
330 PRINT E$(FN S(LEN(A$) - LEN(S$) + 1))" WITH "S$
|