MODULE copy; (*DEE 2013-12-11*)
  (* Software Tools in Pascal, Exercise 1-1. *)
  FROM ST IMPORT getc, putc;
  FROM STchars IMPORT ENDFILE, character;

  (* copy: copy input to output *)
  PROCEDURE copy;
    VAR c: character;
  BEGIN
    WHILE (getc(c) # ENDFILE)  DO
      putc(c)
    END
  END copy;

BEGIN (* Main program. *)
  copy
END copy.