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