Terminal control/Display an extended character: Difference between revisions

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

<lang Action!>PROC Main()

BYTE CHBAS=$02F4 ;Character Base Register

CHBAS=$CC ;set the international character set

Position(2,2)

Put(8) ;print the GBP currency sign

RETURN</lang>

{{out}}

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

<pre>

£

</pre>