10 lines
162 B
Text
10 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;
|