Words containing "the" substring: Difference between revisions

==={{header|BASIC256}}===

<syntaxhighlight lang="vb">f = freefile

open f, "i:\unixdict.txt"

while not eof(f)

a$ = read (f)

if length(a$) > 11 and instr(a$, "the") then print a$

end while

close f</syntaxhighlight>

{{out}}

<pre>Same as BASIC entry.</pre>

==={{header|GW-BASIC}}===

{{works with|PC-BASIC|any}}

{{works with|QBasic}}

<syntaxhighlight lang="qbasic">10 OPEN "unixdict.txt" FOR INPUT AS #1

20 WHILE NOT EOF(1)

30 LINE INPUT #1, A$

40 IF LEN(A$) > 11 AND INSTR(A$,"the") THEN PRINT A$

50 WEND

60 CLOSE #1

70 END</syntaxhighlight>

{{out}}

<pre>Same as BASIC entry.</pre>

==={{header|QBasic}}===

{{works with|QBasic|1.1}}

<syntaxhighlight lang="qbasic">OPEN "unixdict.txt" FOR INPUT AS #1

WHILE NOT EOF(1)

LINE INPUT #1, W$

IF LEN(W$) > 11 AND INSTR(W$, "the") THEN PRINT W$

WEND

CLOSE #1

END</syntaxhighlight>

{{out}}

<pre>Same as BASIC entry.</pre>