Terminal control/Preserve screen: Difference between revisions
Content added Content deleted
mNo edit summary |
|||
Line 155: | Line 155: | ||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
{{trans| |
{{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 |