A large commit.

[pdp8.git] / sw / src / pascal / COPY.PS

diff --git a/sw/src/pascal/COPY.PS b/sw/src/pascal/COPY.PS
new file mode 100644 (file)
index 0000000..1562f68
--- /dev/null
+++ b/sw/src/pascal/COPY.PS
@@ -0,0 +1,10 @@
+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.