A large commit.
[pdp8.git] / sw / src / pascal / COPY.PS
CommitLineData
81e70d48
PH
1PROGRAM COPY(INPUT,OUTPUT);
2 VAR C: CHAR;
3BEGIN
4 WHILE NOT EOF DO
5 BEGIN
6 WHILE NOT EOLN DO
7 BEGIN READ(C); WRITE(C) END;
8 READLN; WRITELN
9 END
10END.