Terminal control/Inverse video: Difference between revisions
({{header|AWK}}) |
(→{{header|PicoLisp}}: Added PureBasic) |
||
Line 24: | Line 24: | ||
(call "tput" "sgr0") |
(call "tput" "sgr0") |
||
(prinl "ghi")</lang> |
(prinl "ghi")</lang> |
||
=={{header|PureBasic}}== |
|||
<lang PureBasic>If OpenConsole() |
|||
ConsoleColor(0, 15) ;use the colors black (background) and white (forground) |
|||
PrintN("Inverse Video") |
|||
ConsoleColor(15, 0) ;use the colors white (background) and black (forground) |
|||
PrintN("Normal Video") |
|||
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input() |
|||
CloseConsole() |
|||
EndIf</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
Revision as of 23:37, 9 June 2011
You are encouraged to solve this task according to the task description, using any language you may know.
The task is to display a word in inverse video followed by a word in normal video.
AWK
<lang awk>BEGIN { system ("tput rev") print "foo" system ("tput sgr0") print "bar" }</lang>
BASIC
ZX Spectrum Basic
<lang basic>10 INVERSE 1 20 PRINT "FOO"; 30 INVERSE 0 40 PRINT "BAR"</lang>
PicoLisp
<lang PicoLisp>(prin "abc") (call "tput" "rev") (prin "def") # These three chars are displayed in reverse video (call "tput" "sgr0") (prinl "ghi")</lang>
PureBasic
<lang PureBasic>If OpenConsole()
ConsoleColor(0, 15) ;use the colors black (background) and white (forground) PrintN("Inverse Video") ConsoleColor(15, 0) ;use the colors white (background) and black (forground) PrintN("Normal Video") Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input() CloseConsole()
EndIf</lang>
Tcl
This only works on Unix terminals. <lang tcl># Get how the terminal wants to do things... set videoSeq(reverse) [exec tput rev] set videoSeq(normal) [exec tput rmso] proc reverseVideo str {
global videoSeq return "$videoSeq(reverse)${str}$videoSeq(normal)"
}
- The things to print
set inReverse "foo" set inNormal "bar"
- Print those words
puts "[reverseVideo $inReverse] $inNormal"</lang>
UNIX Shell
<lang sh>#!/bin/sh tput rev # foo is reversed echo 'foo' tput sgr0 # bar is normal video echo 'bar'</lang>