4 lines
75 B
Text
4 lines
75 B
Text
procedure main(arglist)
|
|
m := open(arglist[1],"m")
|
|
while write(read(m))
|
|
end
|