Longest common substring: Difference between revisions

=={{header|Applesoft BASIC}}==

{{trans|BASIC256}}

<lang gwbasic> 0 A$ = "thisisatest":B$ = "testing123testing": GOSUB 100"LONGEST COMMON SUBSTRING": PRINT R$;: END

100 LET R$ = ""

110 LET A = LEN (A$)

120 LET B = LEN (B$)

130 IF A = 0 OR B = 0 THEN RETURN

140 FOR B = B TO 1 STEP - 1

150 FOR J = B TO 1 STEP - 1

160 FOR K = 1 TO A

170 IF MID$ (A$,K,J) < > LEFT$ (B$,J) THEN NEXT K

180 LET R$ = LEFT$ (B$,J)

190 IF A > K THEN RETURN

200 NEXT J

210 LET B$ = MID$ (B$,2)

220 NEXT B

230 LET R$ = ""

240 RETURN</lang>

{{out}}

<pre>

test

</pre>