9 lines
162 B
Text
9 lines
162 B
Text
readinput:=proc(filename)
|
|
local line,file;
|
|
file:="";
|
|
line:=readline(filename);
|
|
while line<>0 do
|
|
line:=readline(filename);
|
|
file:=cat(file,line);
|
|
end do;
|
|
end proc;
|