A large commit.

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

diff --git a/sw/src/pascal/MODTST.PS b/sw/src/pascal/MODTST.PS
new file mode 100644 (file)
index 0000000..14ef94b
--- /dev/null
+++ b/sw/src/pascal/MODTST.PS
@@ -0,0 +1,5 @@
+PROGRAM MODTEST(INPUT,OUTPUT);
+VAR N: INTEGER;
+BEGIN WHILE NOT EOF DO
+        BEGIN READ(N); WRITELN(N, N MOD 4) END
+END.