Read a file one line at a time,
as opposed to reading the entire file at once.



Related tasks

 Read a file character by character
 Input loop.


procedure main()
f := open("input.txt","r") | stop("cannot open file ",fn)
while line := read(f) 
close(f)
end