Anonymous user
Character codes: Difference between revisions
→{{header|Modula-3}}
Line 439:
message char hex"c3" & char hex"a8"; % since C3 A8 is the UTF-8 encoding for "è"
end</lang>
=={{header|Modula-2}}==
<lang Modula-2>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.</lang>
Producing the output:
<lang Modula-2>jan@Beryllium:~/modula/rosetta$ ./asc
a 97 1</lang>
=={{header|Modula-3}}==
Line 444 ⟶ 467:
<lang modula3>ORD('a') (* Returns 97 *)
VAL(97, CHAR); (* Returns 'a' *)</lang>
=={{header|MUMPS}}==
<lang MUMPS>WRITE $ASCII("M")
| |||