{$B4 4 block buffers -- declare before program statement}
PROGRAM copyText(input,output); {$L-}
(* A simple text file copy program. *)
CONST maxlinelength = 132 (* we will wrap long lines *);
VAR   linelength : integer;
BEGIN
  WHILE NOT EOF(input) DO
    BEGIN
      linelength := 0;
      WHILE NOT EOLN(input) DO
	BEGIN
	  output^ := input^;
	  PUT(output);
	  GET(input);
	  linelength := linelength + 1;
	  IF linelength >= maxlinelength THEN
	    BEGIN
	      writeln(output);
	      write(output,'-->');
	      linelength := 3
	    END
	END;
      WRITELN(output);
      READLN(input)
    END
END.