11 lines
143 B
Text
11 lines
143 B
Text
MODULE Ascii;
|
|
IMPORT Out;
|
|
VAR
|
|
c: CHAR;
|
|
d: INTEGER;
|
|
BEGIN
|
|
c := CHR(97);
|
|
d := ORD("a");
|
|
Out.Int(d,3);Out.Ln;
|
|
Out.Char(c);Out.Ln
|
|
END Ascii.
|