18 lines
386 B
Text
18 lines
386 B
Text
MODULE asc;
|
|
|
|
IMPORT InOut;
|
|
|
|
VAR letter : CHAR;
|
|
ascii : CARDINAL;
|
|
|
|
BEGIN
|
|
letter := 'a';
|
|
InOut.Write (letter);
|
|
ascii := ORD (letter);
|
|
InOut.Write (11C); (* ASCII TAB *)
|
|
InOut.WriteCard (ascii, 8);
|
|
ascii := ascii - ORD ('0');
|
|
InOut.Write (11C); (* ASCII TAB *)
|
|
InOut.Write (CHR (ascii));
|
|
InOut.WriteLn
|
|
END asc.
|