Terminal control/Display an extended character

The task is to display an extended (non ascii) character onto the terminal. For this task, we will display a £ (GBP currency sign).

Terminal control/Display an extended character is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

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>

PicoLisp

<lang PicoLisp>(prinl (char 26413) (char 24140)) # Sapporo </lang> Output:

札幌

PureBasic

<lang PureBasic>Print(Chr(163))</lang>

£