Terminal control/Inverse video: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
(→{{header|Ruby}}: Added Ruby) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 67:
return DllCall( "SetConsoleTextAttribute", UPtr, hConsole, UShort, Attributes)
}</lang>
=={{header|AWK}}==
<lang awk>BEGIN {
Line 256 ⟶ 257:
parseFrench=:;:,#.*."3,(C.A.)/\/&.:;: NB. just kidding! More output.
</lang>
=={{header|Julia}}==
Line 328:
print "normal\n";</lang>
=={{header|Perl 6}}==▼
<lang perl6>say "normal";▼
run "tput", "rev";▼
say "reversed";▼
run "tput", "sgr0";▼
say "normal";</lang>▼
=={{header|Phix}}==
<lang Phix>--
Line 360 ⟶ 354:
print "\033[7mReversed\033[m Normal"</lang>
=={{header|Racket}}==
Line 375 ⟶ 368:
(charterm-display "World"))
</lang>
(formerly Perl 6)
▲<lang perl6>say "normal";
▲run "tput", "rev";
▲say "reversed";
▲run "tput", "sgr0";
▲say "normal";</lang>
=={{header|REXX}}==
Line 395 ⟶ 396:
{{Works with|Ubuntu|14.04}}
<lang ruby>puts "\033[7mReversed\033[m Normal"</lang>
=={{header|Scala}}==
{{Works with|Ubuntu|14.04}}
| |||