A large commit.
[pdp8.git] / sw / src / pascal / CONV16.PS
CommitLineData
81e70d48
PH
1PROGRAM CONVERSION(INPUT,OUTPUT);
2
3 CONST B=16;
4 VAR X: INTEGER;
5
6 PROCEDURE Q(X: INTEGER);
7 BEGIN
8 IF X<10 THEN WRITE(X:1)
9 ELSE CASE X OF
10 10: WRITE("A");
11 11: WRITE("B");
12 12: WRITE("C");
13 13: WRITE("D");
14 14: WRITE("E");
15 15: WRITE("F");
16 END
17 END;
18
19 PROCEDURE P(X: INTEGER);
20 BEGIN
21 IF X>=B THEN P(X DIV B);
22 Q(X MOD B)
23 END;
24
25BEGIN
26 READ(X);
27 WRITE(X,"=");
28 P(X)
29END.