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

diff --git a/sw/src/pascal/CONV16.PS b/sw/src/pascal/CONV16.PS
new file mode 100644
index 0000000..ac2d72e
--- /dev/null
+++ b/sw/src/pascal/CONV16.PS
@@ -0,0 +1,29 @@
+PROGRAM CONVERSION(INPUT,OUTPUT);
+
+   CONST B=16;
+   VAR  X: INTEGER;
+
+   PROCEDURE Q(X: INTEGER);
+      BEGIN
+        IF X<10 THEN WRITE(X:1)
+                ELSE CASE X OF
+                        10: WRITE("A");
+                        11: WRITE("B");
+                        12: WRITE("C");
+                        13: WRITE("D");
+                        14: WRITE("E");
+                        15: WRITE("F");
+                     END
+        END;
+
+   PROCEDURE P(X: INTEGER);
+      BEGIN
+        IF X>=B THEN P(X DIV B);
+        Q(X MOD B)
+      END;
+
+BEGIN
+   READ(X);
+   WRITE(X,"=");
+   P(X)
+END.