File: COPY.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM COPY(INPUT,OUTPUT);
    VAR C: CHAR;
BEGIN
  WHILE NOT EOF DO
    BEGIN
      WHILE NOT EOLN DO
        BEGIN READ(C); WRITE(C) END;
      READLN; WRITELN
    END
END.

---