Terminal control/Inverse video: Difference between revisions
Content added Content deleted
(Added 6502 assembly example) |
(Added Pascal (ncurses) example) |
||
Line 251: | Line 251: | ||
Hello |
Hello |
||
- : unit = ()</lang> |
- : unit = ()</lang> |
||
=={{header|Pascal}}== |
|||
{{works with|Free_Pascal}} |
|||
{{libheader|Curses}} |
|||
Using Free Pascal and ncurses. On some systems linking to the libtinfo library may be necessary. |
|||
<lang pascal>program InverseVideo; |
|||
{$LINKLIB tinfo} |
|||
uses |
|||
ncurses; |
|||
begin |
|||
initscr; |
|||
attron(A_REVERSE); |
|||
printw('reversed'); |
|||
attroff(A_REVERSE); |
|||
printw(' normal'); |
|||
refresh; |
|||
getch; |
|||
endwin; |
|||
end. |
|||
</lang> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |