Revision as of 21:02, 17 February 2023 (view source) Jjuanhdez (talk \| contribs) (Longest common substring in various dialects BASIC (QBasic, Run BASIC and True BASIC)) ← Older edit		Revision as of 16:42, 20 April 2023 (view source) JPD (talk \| contribs) m (→‎using FreePascal) Newer edit →
Line 1,735: FOR k := length ( S1 ) - j DOWNTO 1 DO BEGIN S := Copy(S1 [, ( j + 1 ) .., ( k + j + 1 ) ]) ; IF ( pos ( S, S2 ) > 0 ) AND

Longest common substring (view source)