Terminal control/Display an extended character: Difference between revisions
m (→{{header|ZX Spectrum Basic}}: whitespace) |
|||
Line 29: | Line 29: | ||
The ZX Spectrum uses a modified ascii character set that has a uk pound sign at character number 96: |
The ZX Spectrum uses a modified ascii character set that has a uk pound sign at character number 96: |
||
<lang basic> |
<lang basic>10 PRINT CHR$(96);</lang> |
||
10 PRINT CHR$(96); |
|||
</lang> |
|||
=={{header|J}}== |
=={{header|J}}== |
Revision as of 14:58, 27 December 2010
The task is to display an extended (non ascii) character onto the terminal. For this task, we will display a £ (GBP currency sign).
Ada
<lang ada>with Ada.Text_IO; use Ada.Text_IO; with Ada.Characters.Latin_1;
procedure Pound is begin
Put(Ada.Characters.Latin_1.Pound_Sign);
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;</lang>
BASIC
ZX Spectrum Basic
The ZX Spectrum uses a modified ascii character set that has a uk pound sign at character number 96:
<lang basic>10 PRINT CHR$(96);</lang>
J
<lang J> '£' £
'札幌'
札幌</lang>
Locomotive Basic
<lang basic>10 PRINT CHR$(163)</lang>
PicoLisp
<lang PicoLisp>(prinl (char 26413) (char 24140)) # Sapporo </lang> Output:
札幌
PureBasic
<lang PureBasic>Print(Chr(163))</lang>
£