|
|
|
For those REXXes that don't have the '''scrsize''' BIF, the '''SCRSIZE.REX''' REXX program is included here ──► [[SCRSIZE.REX]]. <br><br>
=={{header|Ring}}==
{{incorrect|Ring|char(33) is not escape}}
<lang ring>
# Project : Terminal control/Preserve screen
load "stdlib.ring"
see char(33) + "[?1049h\" + char(33) + "[H" + nl
see "Alternate screen buffer" + nl
for i = 5 to 1 step -1
see "going back in " + i + "..." + nl
sleep(1)
next
see char(33) + "[?1049l" + nl
</lang>
Output:
<pre>
![?1049h\![H
Alternate screen buffer
going back in 5...
going back in 4...
going back in 3...
going back in 2...
going back in 1...
![?1049l
</pre>
=={{header|Scala}}==
|