Anonymous user
Terminal control/Inverse video: Difference between revisions
Added Pascal (ncurses) example
(Added 6502 assembly example) |
(Added Pascal (ncurses) example) |
||
Line 251:
Hello
- : 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}}==
| |||