Terminal control/Preserve screen: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 97:
return 0;
}</lang>
=={{header|Common Lisp}}==
{{trans|C}}
Line 213 ⟶ 214:
print("$ESC[?1049l")
}</lang>
=={{header|M2000 Interpreter}}==
M2000 Console can used for graphics also. Here is a small example how we can preserve attributes. We use Hold to save temporary console bitmap, and Release to restore old console bitmap. These statements used for animation too.
Line 268 ⟶ 270:
</lang>
=={{header|Mathematica}}==
Line 300 ⟶ 301:
print "\033[?1049l";</lang>
=={{header|Perl 6}}==▼
<lang perl6>print "\e[?1049h\e[H";▼
say "Alternate buffer!";▼
for 5,4...1 {▼
print "\rGoing back in: $_";▼
sleep 1;▼
}▼
print "\e[?1049l";</lang>▼
=={{header|Phix}}==
Line 369 ⟶ 359:
(flash "Hello world.")
</lang>
(formerly Perl 6)
▲<lang perl6>print "\e[?1049h\e[H";
▲say "Alternate buffer!";
▲for 5,4...1 {
▲ print "\rGoing back in: $_";
▲ sleep 1;
▲}
▲print "\e[?1049l";</lang>
=={{header|REXX}}==
| |||