Terminal control/Display an extended character: Difference between revisions
Content added Content deleted
(Added Ada) |
m (Added Ada unicode example.) |
||
Line 13: | Line 13: | ||
Put(Ada.Characters.Latin_1.Pound_Sign); |
Put(Ada.Characters.Latin_1.Pound_Sign); |
||
end Pound;</lang> |
end Pound;</lang> |
||
Ada allows Unicode characters in the source, and provides output functions on "wide characters". |
|||
<lang ada>with Ada.Wide_Text_IO; use Ada.Wide_Text_IO; |
|||
procedure Unicode is |
|||
begin |
|||
Put("札幌"); |
|||
end Unicode;</ada> |
|||
=={{header|BASIC}}== |
=={{header|BASIC}}== |