Terminal control/Inverse video: Difference between revisions
Content added Content deleted
m (→{{header|Tcl}}: Slightly clearer version) |
|||
| Line 1: | Line 1: | ||
{{draft task}} |
{{draft task}} |
||
The task is to display a word in inverse video followed by a word in normal video. |
The task is to display a word in inverse video followed by a word in normal video. |
||
=={{header|BASIC}}== |
|||
=== {{header|ZX Spectrum Basic}} === |
|||
<lang basic> |
|||
10 INVERSE 1 |
|||
20 PRINT "FOO"; |
|||
30 INVERSE 0 |
|||
40 PRINT "BAR" |
|||
</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
||
Revision as of 01:21, 12 November 2010
Terminal control/Inverse video is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.
The task is to display a word in inverse video followed by a word in normal video.
BASIC
ZX Spectrum Basic
<lang basic> 10 INVERSE 1 20 PRINT "FOO"; 30 INVERSE 0 40 PRINT "BAR" </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>