Terminal control/Preserve screen: Difference between revisions

Content added Content deleted
mNo edit summary
Line 155: Line 155:


=={{header|Perl}}==
=={{header|Perl}}==
{{trans|Python}}
{{trans|C}}
<lang perl>
<lang perl>
print "\033[?1049h\033[H";
print "\033[?1049h\033[H";
Line 177: Line 177:


print "\e[?1049l";</lang>
print "\e[?1049l";</lang>

=={{header|PicoLisp}}==
=={{header|PicoLisp}}==
<lang PicoLisp>#!/usr/bin/picolisp /usr/lib/picolisp/lib.l
<lang PicoLisp>#!/usr/bin/picolisp /usr/lib/picolisp/lib.l