projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ac2d72e02e1c69b863a30cd5d42bcc6d51a6ccbd
[pdp8.git]
/
CONV16.PS
1
PROGRAM 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
25
BEGIN
26
READ(X);
27
WRITE(X,"=");
28
P(X)
29
END.