Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

{$a-}
 program test(input,output);
var i:integer;foo:text;
begin
close(foo);
while not eof(input) do
  begin
  output^ := input^;
  put(output);
  get(input);
  end;
close(input);
close(output);
end.