Terminal control/Preserve screen

The task is to clear the screen, output something on the display, and then restore the screen to the preserved state that it was in before the task was carried out. There is no requirement to change the font or kerning in this task, however character decorations and attributes are expected to be preserved. If the implementer decides to change the font or kerning during the display of the temporary screen, then these settings need to be restored prior to exit.

BBC BASIC

Works with: BBC BASIC for Windows

The screen is saved as a bitmap: <lang bbcbasic> PRINT "This is the original screen"

     OSCLI "GSAVE """ + @tmp$ + "bbcsave"""
     WAIT 200
     CLS
     PRINT "This is the new screen, following a CLS"
     WAIT 200
     OSCLI "DISPLAY """ + @tmp$ + "bbcsave"""</lang>

C

For Xterm. "Allow alternate screen buffer" must be enabled by the popup menu.<lang C>#include <stdio.h>

include <unistd.h>

int main() { int i; printf("\033[?1049h\033[H"); printf("Alternate screen buffer\n"); for (i = 5; i; i--) { printf("\rgoing back in %d...", i); fflush(stdout); sleep(1); } printf("\033[?1049l");

return 0; }</lang>

JavaScript

<lang javascript>(function() { var orig= document.body.innerHTML document.body.innerHTML= ; setTimeout(function() { document.body.innerHTML= 'something'; setTimeout(function() { document.body.innerHTML= orig; }, 1000); }, 1000); })();</lang>

This implementation assumes that Javascript is running in the browser.

This task does not admit sample output, but you can demonstrate this solution for yourself using the chrome browser: control-shift-J then copy and paste the above into the command line, and hit enter.

Mathematica

<lang Mathematica>Run["tput smcup"] (* Save the display *) Run["echo Hello"] Pause[5] (* Wait five seconds *) Run["tput rmcup"] </lang>

Nim

Translation of: Python

<lang nim>import os

echo "\e[?1049h\e[H" echo "Alternate buffer!"

for i in countdown(5, 1):

 echo "Going back in: ", i
 sleep 1000

echo "\e[?1049l"</lang>

Perl 6

<lang perl6>print "\e[?1049h\e[H"; say "Alternate buffer!";

for 5,4...1 {

   print "\rGoing back in: $_";
   sleep 1;

}

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

PicoLisp

<lang PicoLisp>#!/usr/bin/picolisp /usr/lib/picolisp/lib.l

(call 'tput "smcup") (prinl "something") (wait 3000) (call 'tput "rmcup")

(bye)</lang>

Python

Similar to the C example above:

<lang Python>#!/usr/bin/env python

import time

print "\033[?1049h\033[H" print "Alternate buffer!"

for i in xrange(5, 0, -1):

   print "Going back in:", i
   time.sleep(1)

print "\033[?1049l"</lang>

Racket

lang racket

(require racket/system) (define (flash str)

 (system "tput smcup")
 (displayln str)
 (sleep 2)
 (system "tput rmcup")
 (void))

(flash "Hello world.") </lang>

REXX

This version only works with PC/REXX and Personal 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)        /*write a score of sixty bucks.  */ 
            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>

This REXX program makes use of SCRSIZE REXX program (or BIF) which is used to determine the screen size of the terminal (console).
The SCRSIZE.REX REXX program is included here ──► SCRSIZE.REX.

Tcl

On Unix terminals only, with the help of tput: <lang tcl># A helper to make code more readable proc terminal {args} {

   exec /usr/bin/tput {*}$args >/dev/tty

}

Save the screen with the "enter_ca_mode" capability, a.k.a. 'smcup'

terminal smcup

Some indication to users what is happening...

puts "This is the top of a blank screen. Press Return/Enter to continue..." gets stdin

Restore the screen with the "exit_ca_mode" capability, a.k.a. 'rmcup'

terminal rmcup</lang>

UNIX Shell

Works with: Bourne Shell

Works with: bash

<lang sh>#!/bin/sh tput smcup # Save the display echo 'Hello' sleep 5 # Wait five seconds tput rmcup # Restore the display</lang>

XPL0

<lang XPL0>include c:\cxpl\codes; \intrinsic 'code' declarations

proc SetPage(P); \Select active display page for video screen int P; int CpuReg; [CpuReg:= GetReg; \access CPU registers CpuReg(0):= $0500 + P; \call BIOS interrupt $10, function 5 SoftInt($10); ]; \SetPage

[SetPage(1); \enable page 1 text display screen Clear; \clear screen and output something Text(0, "Hit any key to restore original screen. "); if ChIn(1) then []; \wait for keystroke SetPage(0); \restore original, default text screen, page 0 ]</lang>

Z80 Assembly

Using the Amstrad CPC firmware:

<lang z80> org $3000

txt_output: equ $bb5a scr_clear: equ $bc14 wait_char: equ $bb06 scr_get_loc: equ $bc0b scr_set_off: equ $bc05

push bc push de push hl push af

call scr_get_loc ; save this value just in case the push hl ; original screen has been scrolled vertically

ld hl,$c000 ; copy screen to block 1 ld de,$4000 ld bc,$4000 ldir

call scr_clear ld hl,text

print: ld a,(hl) cp 0 jr z,key call txt_output inc hl jr print

key: call wait_char pop hl call scr_set_off ld hl,$4000 ; restore screen ld de,$c000 ld bc,$4000 ldir pop af pop hl pop de pop bc ret

text: defm "This is some text. Please press a key.\0"</lang>