Terminal control/Display an extended character: Difference between revisions

=={{header|11l}}==

=={{header|ACL2}}==

=={{header|Action!}}==

BYTE CHBAS=$02F4 ;Character Base Register

Position(2,2)

Put(8) ;print the GBP currency sign

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Display_an_extended_character.png Screenshot from Atari 8-bit computer]

=={{header|Ada}}==

with Ada.Characters.Latin_1;

begin

Put(Ada.Characters.Latin_1.Pound_Sign);

Ada allows Unicode characters in the source, and provides output functions on "wide characters".

procedure Unicode is

begin

Put("札幌");

=={{header|Arturo}}==

{{out}}

You can print a literal "£".

You can print a "£" using the escape sequences that match the encoding of your terminal.

|}

=={{header|BaCon}}==

LET c$ = UTF8$(0xA3)

=={{header|BASIC}}==

==={{header|Applesoft BASIC}}===

Poke the glyph onto the hi-res screen.

20 HGR

30 FOR I = 8192 TO 16383 STEP 1024

==={{header|BASIC256}}===

# or

==={{header|IS-BASIC}}===

or

==={{header|QBasic}}===

' or

PRINT CHR$(156)

==={{header|True BASIC}}===

! or

PRINT CHR$(163)

The ZX Spectrum uses a modified ascii character set that has a uk pound sign at character number 96:

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

You can print a literal £ if it is available in the default ANSI code page:

But to be on the safe side you can do this:

=={{header|bc}}==

You can print a literal "£".

"

=={{header|beeswax}}==

=={{header|Befunge}}==

Example output of a pound character in Code page 437:

Example output of a pound character in ISO-8859-1:

=={{header|Bracmat}}==

=={{header|C}}==

{{trans|AWK}}

int

puts("\302\243"); /* if your terminal is utf-8 */

return 0;

=={{header|C sharp}}==

{

static void Main()

System.Console.WriteLine("£");

}

Output:

<pre>£</pre>

=={{header|C++}}==

int main()

std::cout << static_cast<char>(163); // pound sign

return 0;

=={{header|Clojure}}==

=={{header|COBOL}}==

{{works with|OpenCOBOL}}

PROGRAM-ID. Display-Pound.

GOBACK

=={{header|Common Lisp}}==

(format t "札幌~%")

(format t "~C~%" (code-char #x00A3))

=={{header|D}}==

Assuming unicode support on the terminal

void main() {

writeln('\u00A3');

<pre>£</pre>

=={{header|Dc}}==

Assuming unicode support on the terminal

=={{header|EchoLisp}}==

;; simplest

(display "£")

;; CSS enhancement

(display "£" "color:blue;font-size:2em")

{{out}}

<span style="color:blue;font-size:2em">

The emerging ANS Forth 20xx standard includes an XCHAR wordset which allows manipulation of non-ASCII character sets such as Unicode.

=={{header|FreeBASIC}}==

=={{header|Go}}==

import "fmt"

func main() {

fmt.Println("£")

=={{header|Haskell}}==

module Main where

main = do

putStrLn "£"

putStrLn "札幌"

=={{header|Icon}} and {{header|Unicon}}==

Write a given character number, say '163', using <code>char</code> to convert the integer into a string.

procedure main ()

write ("£ " || char (163)) # £

end

=={{header|J}}==

£

'札幌'

=={{header|Java}}==

import java.io.UnsupportedEncodingException;

writer.println("札幌");

}

=={{header|Julia}}==

{{trans|C}}

println("\302\243"); # works if your terminal is utf-8

=={{header|Kotlin}}==

=={{header|Lasso}}==

Result:

<pre> £ </pre>

=={{header|Locomotive Basic}}==

=={{header|Lua}}==

Lua requires an extension module for UTF-8 support. However, the '£' symbol specified for this task is part of extended ASCII (codes 128 - 255) which can be accessed in the same way as normal ASCII.

=={{header|Mathematica}}/{{header|Wolfram Language}}==

=={{header|NetRexx}}==

options replace format comments java crossref symbols binary

say (Rexx GBP).d2c

return

{{out}}

<pre>

=={{header|Nim}}==

echo "札幌"

import unicode

=={{header|Objeck}}==

function : Main(args : String[]) ~ Nil {

"£"->PrintLine();

}

=={{header|Pascal}}==

uses crt;

begin

write(chr( 163 ));

end.

=={{header|Perl}}==

# OK as is

say "\N{FULLWIDTH POUND SIGN}";

say "\x{FFE1}";

=={{header|Phix}}==

See demo\HelloUTF8.exw for a (not very pretty) way to do that programmaticaly.<br>

The following assumes you have done that manually, and saved the source code file in UTF-8 format.

<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"£"</span><span style="color: #0000FF;">)</span>

Output:

<pre>£</pre>

=={{header|Picat}}==

println("£"),

println(chr(163)),

println("太極拳"), % Tàijíquán

{{out}}

=={{header|PicoLisp}}==

Output:

<pre>札幌</pre>

=={{header|PL/I}}==

=={{header|PureBasic}}==

<pre>£</pre>

=={{header|Python}}==

Python 2:

<pre>£</pre>

Alternatively, as any Unicode character is legal in Python code:

<pre>£</pre>

=={{header|R}}==

{{out}}

<pre>£</pre>

=={{header|Racket}}==

#lang racket

(display "£")

=={{header|Raku}}==

(formerly Perl 6)

To demonstrate we're not limited to Latin-1, we'll print the fullwidth variant.

say "\x[FFE1]";

say "\c[FULLWIDTH POUND SIGN]";

=={{header|REXX}}==

/* [↓] this SAY will display the £ glyph (if the term supports it).*/

say '£' /*this assumes the pound sign glyph is displayable on the terminal. */

/*this program can execute correctly on an EBCDIC or ASCII machine.*/

{{out|output|text=:}}

<pre>

=={{header|Ring}}==

# Project : Terminal control/Display an extended character

see "£"

Output:

<pre>

=={{header|Ruby}}==

=={{header|Scala}}==

println("£")

println("札幌")

=={{header|Seed7}}==

A [http://seed7.sourceforge.net/libraries/console.htm#write%28ref_console_file,in_string%29 write]

include "console.s7i";

# the program waits until Return/Enter is pressed.

readln;

=={{header|Sidef}}==

say "\x{FFE1}";

say "\N{FULLWIDTH POUND SIGN}";

=={{header|Tcl}}==

Provided the system encoding has a “£” symbol in it, this works:

Tcl can output all unicode characters in the BMP, but only if the consumer of the output (terminal, etc.) is able to understand those characters in its current encoding will the output actually make sense. Strictly, this is not a limitation of Tcl but of the environment in which it is placed.

=={{header|Verilog}}==

initial begin

$display("£");

end

=={{header|Wren}}==

=={{header|Xidel}}==

http://videlibri.sourceforge.net/xidel.html

£

xidel -s -e 'json("""\\u00a3""")' --xquery 'json("&quot;\\u00a3&quot;")'

£

=={{header|XPL0}}==

ChOut(0, $9C) \code for IBM PC's extended (OEM) character set

=={{header|Yabasic}}==

=={{header|zkl}}==

If you output device support UTF-8 then: