10 lines
288 B
Text
10 lines
288 B
Text
10 LET t$="ABABABABAB": LET p$="ABAB": GO SUB 1000
|
|
20 LET t$="THE THREE TRUTHS": LET p$="TH": GO SUB 1000
|
|
30 STOP
|
|
1000 PRINT t$: LET c=0
|
|
1010 LET lp=LEN p$
|
|
1020 FOR i=1 TO LEN t$-lp+1
|
|
1030 IF (t$(i TO i+lp-1)=p$) THEN LET c=c+1: LET i=i+lp-1
|
|
1040 NEXT i
|
|
1050 PRINT p$;"=";c''
|
|
1060 RETURN
|