10 lines
213 B
Text
10 lines
213 B
Text
procedure process_line_by_line(integer fn)
|
|
object line
|
|
while 1 do
|
|
line = gets(fn)
|
|
if atom(line) then
|
|
exit
|
|
end if
|
|
-- process the line
|
|
end while
|
|
end procedure
|