projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
1562f6805bbbec1693b40ab9d6b871b19d980a49
[pdp8.git]
/
COPY.PS
1
PROGRAM COPY(INPUT,OUTPUT);
2
VAR C: CHAR;
3
BEGIN
4
WHILE NOT EOF DO
5
BEGIN
6
WHILE NOT EOLN DO
7
BEGIN READ(C); WRITE(C) END;
8
READLN; WRITELN
9
END
10
END.