Terminal control/Preserve screen: Difference between revisions
Added Wren
(Added Forth implementation) |
(Added Wren) |
||
Line 469:
sleep 5 # Wait five seconds
tput rmcup # Restore the display</lang>
=={{header|Wren}}==
{{trans|C}}
<lang ecmascript>import "io" for Stdout
import "timer" for Timer
var ESC = "\u001B"
System.write("%(ESC)[?1049h%(ESC)[H")
System.print("Alternate screen buffer")
for (i in 5..1) {
var s = (i != 1) ? "s" : ""
System.write("\rGoing back in %(i) second%(s)...")
Stdout.flush()
Timer.sleep(1000)
}
System.write("%(ESC)[?1049l")</lang>
=={{header|XPL0}}==
| |||