X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fsrc%2Fpascal%2FMODTST.PS;fp=sw%2Fsrc%2Fpascal%2FMODTST.PS;h=14ef94bd30fce679bffd330e3a096d51aea6fe9a;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/src/pascal/MODTST.PS b/sw/src/pascal/MODTST.PS
new file mode 100644
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.