16 lines
303 B
Plaintext
16 lines
303 B
Plaintext
if peek("argument") then
|
|
filename$ = peek$("argument")
|
|
else
|
|
filename$ = "data.txt"
|
|
end if
|
|
|
|
dim tok$(1)
|
|
a = open(filename$)
|
|
if not a error "Could not open '" + filename$ + "' for reading"
|
|
while(not eof(a))
|
|
line input #a a$
|
|
void = token(a$, tok$())
|
|
if val(tok$(3)) > 6 print a$
|
|
wend
|
|
close a
|