Terminal control/Preserve screen: Difference between revisions
Content added Content deleted
No edit summary |
(→{{header|REXX}}: added the REXX language. -- ~~~~) |
||
Line 69: | Line 69: | ||
print "\033[?1049l"</lang> |
print "\033[?1049l"</lang> |
||
=={{header|REXX}}== |
|||
This version only works with PC/REXX. |
|||
<lang rexx>/*REXX pgm saves the screen contents, clear it, write +++, restore orig.*/ |
|||
parse value scrsize() with sd sw . /*determine how big the screen is*/ |
|||
parse value cursor(1,1) with r_ c_ /*find where the cursor is also. */ |
|||
do original=1 for sd /*get the original screen content*/ |
|||
@line.original=scrread(original,1,sw) |
|||
end |
|||
'CLS' /*start with a clean slate. */ |
|||
do 20 |
|||
say copies('+',60) |
|||
end |
|||
'CLS' /*start with a clean slate, again*/ |
|||
do restore=1 for sd /*restore the original screen. */ |
|||
call scrwrite restore,1,strip(@line.restore,'T') |
|||
end |
|||
call cursor r_,c_ /*restore the original cursor pos*/ |
|||
/*stick a fork in it, we're done.*/</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |