Character codes: Difference between revisions
Content added Content deleted
Line 439: | Line 439: | ||
message char hex"c3" & char hex"a8"; % since C3 A8 is the UTF-8 encoding for "è" |
message char hex"c3" & char hex"a8"; % since C3 A8 is the UTF-8 encoding for "è" |
||
end</lang> |
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}}== |
=={{header|Modula-3}}== |
||
Line 444: | Line 467: | ||
<lang modula3>ORD('a') (* Returns 97 *) |
<lang modula3>ORD('a') (* Returns 97 *) |
||
VAL(97, CHAR); (* Returns 'a' *)</lang> |
VAL(97, CHAR); (* Returns 'a' *)</lang> |
||
=={{header|MUMPS}}== |
=={{header|MUMPS}}== |
||
<lang MUMPS>WRITE $ASCII("M") |
<lang MUMPS>WRITE $ASCII("M") |