20 lines
456 B
Text
20 lines
456 B
Text
10 CLS : REM 10 HOME for Applesoft BASIC
|
|
20 F$ = "TH"
|
|
30 S$ = "THE THREE TRUTHS"
|
|
40 GOSUB 110: REM COUNT SUBSTRING
|
|
50 PRINT R
|
|
60 F$ = "ABAB"
|
|
70 S$ = "ABABABABAB"
|
|
80 GOSUB 110: REM COUNT SUBSTRING
|
|
90 PRINT R
|
|
100 END
|
|
110 R = 0
|
|
120 F = LEN(F$)
|
|
130 S = LEN(S$)
|
|
140 IF F > S THEN RETURN
|
|
150 IF F = 0 THEN RETURN
|
|
160 IF F = S AND F$ = S$ THEN R = 1: RETURN
|
|
170 FOR I = 1 TO S - F
|
|
180 IF F$ = MID$(S$, I, F) THEN R = R + 1: I = I + F - 1
|
|
190 NEXT I
|
|
200 RETURN
|