{ Copyright (C) 1981 by Bell Laboratories, Inc., and Whitesmiths Ltd. }
{ text -- process text lines (interim version 1) }
procedure text (var inbuf : string);
begin
	put(inbuf)
end;