Terminal control/Inverse video: Difference between revisions

Display a word in inverse video   (or reverse video)   followed by a word in normal video.

<br><br>

 

=={{header|6502 Assembly}}==

SYS680

</pre>

 

; *** labels ***

.byte $92 ; the REVERSE OFF control code

.null " normal" ; null terminated string

 

=={{header|Ada}}==

 

procedure Reverse_Video is

Put (Norm_Video & " Normal");

end Reverse_Video;

 

=={{header|AutoHotkey}}==

Call SetConsoleTextAttribute() to change foreground and background colors.

hConsole := DllCall( "GetStdHandle", int, STDOUT := -11 )

 

SetConsoleTextAttribute(hConsole, Attributes){

return DllCall( "SetConsoleTextAttribute", UPtr, hConsole, UShort, Attributes)

 

=={{header|AWK}}==

system ("tput rev")

print "foo"

system ("tput sgr0")

print "bar"

 

=={{header|Axe}}==

A delay is added because the screen redraws with the normal font after the program exits.

 

Disp "INVERTED"

Fix 2

Disp "REGULAR",i

 

=={{header|BaCon}}==

PRINT "a word"

COLOR RESET

 

=={{header|BASIC}}==

 

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

 

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

COLOUR 15 : REM White foreground

PRINT "Inverse";

COLOUR 128+15 : REM White background

COLOUR 0 : REM Black foreground

Alternative method using 'VDU code' strings:

normal$ = CHR$(17)+CHR$(128+15)+CHR$(17)+CHR$(0)

 

==={{header|Commodore BASIC}}===

Commodore computers have defined a "reverse" character set in character ROM. This can be accessed through control characters reserved in the ASCII (PETSCII) character table. To enable reverse characters, print CHR$(18) ("Reverse On"). Reverse characters will continue until a "Reverse Off" CHR$(146) is printed, or until a newline (carriage return CHR$(13)) which may also occur at the end of a print statement.

 

10 print chr$(18);"reverse on";chr$(146);" reverse off"

20 print

50 print chr$(18);"this is reversed... ":print "this is not."

60 print

 

 

==={{header|FreeBASIC}}===

Locate 2, 2 : Print "Video inverso"

Color 15, 0 ' usa los colores negro (fondo) y blanco (primer plano)

Locate 3, 2 : Print "Video normal"

 

 

The firmware routine at &bb9c (TXT INVERSE) swaps the current Locomotive BASIC PEN and PAPER colors:

 

 

==={{header|PureBasic}}===

ConsoleColor(0, 15) ;use the colors black (background) and white (forground)

PrintN("Inverse Video")

Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()

CloseConsole()

 

==={{header|Run BASIC}}===

x$ = shell$("tput mr

echo 'foo'")

x$ = shell$("tput me

echo 'bar'")

 

==={{header|Sinclair ZX81 BASIC}}===

Inverse video is available from the keyboard (accessed with <code>SHIFT</code><code>9</code>), so the normal way to do this would be just

but with the 'foo' in inverse video and the 'bar' in normal video.

 

If this won't work (say, if we may want to use inverse video with string variables rather than string literals), we can use a small subroutine—relying on the fact that the ZX81 character set uses the high bit of each character code to select normal or inverse video.

20 GOSUB 50

30 PRINT S$;"BAR"

60 LET S$(I)=CHR$ (128+CODE S$(I))

70 NEXT I

Note that this subroutine assumes the source string is not already in inverse video: if it could be, you will need to test each character before you attempt to convert it.

 

 

==={{header|Yabasic}}===

// o también

print reverse "Video inverso"

 

 

==={{header|ZX Spectrum Basic}}===

20 PRINT "FOO";

30 INVERSE 0

 

=={{header|Befunge}}==

Assuming a terminal with support for ANSI escape sequences.

 

=={{header|C}}==

 

int main()

 

return 0;

 

=={{header|COBOL}}==

PROGRAM-ID. terminal-reverse-video.

 

 

GOBACK

 

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

==={{header|ncurses}}===

To interface the ncurses C library from Lisp, the ''croatoan'' library is used.

(with-screen (scr :input-blocking t :input-echoing nil :cursor-visible nil)

(add-string scr "Reverse" :attributes '(:reverse))

(add-string scr " Normal" :attributes '())

(refresh scr)

 

=={{header|Forth}}==

Developed with Gforth 0.7.9

: Normal #27 emit "[m" type ;

 

: test cr Reverse ." Reverse " cr Normal ." Normal " ;

test

 

=={{header|FunL}}==

 

 

=={{header|Go}}==

===External command===

 

import (

cmd.Stdout = os.Stdout

return cmd.Run()

===ANSI escape codes===

 

import "fmt"

func main() {

fmt.Println("\033[7mRosetta\033[m Code")

===Ncurses===

{{libheader|Curses}}

 

import (

s.Println(" Code")

s.GetChar()

 

=={{header|J}}==

Use the definitions given in [[Terminal_control/Coloured_text#J]]

;:';:,#.*."3,(C.A.)/\/&.:;:' NB. some output beforehand

attributes REVERSEVIDEO NB. does as it says

attributes OFF NB. no more blinky flashy

parseFrench=:;:,#.*."3,(C.A.)/\/&.:;: NB. just kidding! More output.

 

=={{header|Julia}}==

Use within the Julia REPL command line.

 

println(WHITE_FG, BLACK_BG, "Normal")

println(WHITE_BG, BLACK_FG, "Reversed")

println(WHITE_FG, BLACK_BG, "Normal")

 

=={{header|Kotlin}}==

{{Works with|Ubuntu|14.04}}

 

fun main(args: Array<String>) {

println("\u001B[7mInverse\u001B[m Normal")

 

=={{header|Lasso}}==

 

 

Run["echo foo"] (* is displayed in reverse mode *)

Run["tput me"]

 

=={{header|Nim}}==

 

 

=={{header|OCaml}}==

Using the library [http://forge.ocamlcore.org/projects/ansiterminal/ ANSITerminal] in the interactive loop:

 

 

# open ANSITerminal ;;

# print_string [Inverse] "Hello\n" ;;

Hello

 

=={{header|Pascal}}==

{{libheader|Curses}}

Using Free Pascal and ncurses. On some systems linking to the libtinfo library may be necessary.

{$LINKLIB tinfo}

uses

endwin;

end.

 

=={{header|Perl}}==

Like Raku.

system "tput rev";

print "reversed\n";

system "tput sgr0";

 

=={{header|Phix}}==

 

=={{header|PicoLisp}}==

(call "tput" "rev")

(prin "def") # These three chars are displayed in reverse video

(call "tput" "sgr0")

 

=={{header|Python}}==

 

 

=={{header|Quackery}}==

 

 

[ $ 'print("\033[m", end="")' python ] is regulartext ( --> )

 

inversetext say "inverse video"

 

 

=={{header|Racket}}==

#lang racket

(require (planet neil/charterm:3:0))

(charterm-normal)

(charterm-display "World"))

 

=={{header|Raku}}==

(formerly Perl 6)

run "tput", "rev";

say "reversed";

run "tput", "sgr0";

 

=={{header|REXX}}==

This version only works with PC/REXX and Personal Rexx.

@day = 'day'

@night = 'night'

call scrwrite , 1+length(@day), @night, , , 112 /* " " " black " white.*/

 

 

=={{header|Ring}}==

nverse = char(17)+char(128)+char(17)+char(15)

normal = char(17)+char(128+15)+char(17)+char(0)

see inverse + " inverse " + normal + " video"

 

=={{header|Ruby}}==

{{Works with|Ubuntu|14.04}}

 

=={{header|Scala}}==

{{Works with|Ubuntu|14.04}}

println("\u001B[7mInverse\u001B[m Normal")

 

=={{header|Standard ML}}==

 

=={{header|Tcl}}==

This only works on Unix terminals.

set videoSeq(reverse) [exec tput rev]

set videoSeq(normal) [exec tput rmso]

 

# Print those words

 

=={{header|TPP}}==

This is inverse

--revoff

 

=={{header|UNIX Shell}}==

{{works with|Bourne Shell}}

 

tput mr # foo is reversed

echo 'foo'

tput me # bar is normal video

 

If the system supports terminfo, then <code>tput rev</code> and <code>tput sgr0</code> also work. (All recent systems have terminfo, except NetBSD, but [http://blog.netbsd.org/tnf/entry/terminfo_has_replaced_termcap NetBSD 6 will have terminfo].) The shorter names <code>mr</code> and <code>me</code> are the backward-compatible names from termcap.

If the terminal cannot do reverse video, then ''tput'' will fail with a message to standard error.

 

 

Some programs use the ''standout mode'', which might look exactly like reverse video. (The escape sequences might be identical!)

 

echo 'foo'

tput se # exit standout mode

 

If the system supports terminfo, then <code>tput smso</code> and <code>tput rmso</code> also work.

 

==={{header|C Shell}}===

echo 'foo'

tput me

 

=={{header|Wren}}==

 

=={{header|XPL0}}==

it provides many combinations of foreground and background colors.

 

[Attrib($70);

Text(6, "Inverse");

Text(6, " Video");

CrLf(6);

 

=={{header|zkl}}==

There is no explicit support for terminals/video. But, assuming an ANSI terminal:

 

{{omit from|ACL2}}