11 lines
173 B
Text
11 lines
173 B
Text
f = freefile
|
|
filename$ = "data.txt"
|
|
open f, filename$
|
|
|
|
dim tok$(1)
|
|
while not eof(f)
|
|
tok$[] = readline(f)
|
|
if (right(tok$[], 4)) > 6 then print tok$[]
|
|
end while
|
|
close f
|
|
end
|