RESTORE SCREEN*
 Exibe uma tela guardada
------------------------------------------------------------------------------

 Sintaxe

     RESTORE SCREEN [FROM <cTela>]

 Argumentos

     FROM <cTela> especifica a expressao caractere a ser exibida na
     tela.

 Descriçao

     RESTORE SCREEN é um comando sinônimo da funçao RESTSCREEN() que
     re-exibe uma tela previamente gravada, e é utilizada juntamente com o
     comando SAVE SCREEN para evitar qua a tela original escrita com os
     comandos @...SAY, @...GET seja re-escrita.

     Este comando opera de duas formas, dependendo se a cláusula FROM for
     especificada ou nao.  Caso ela seja especificada, a tela será
     recuperada de <cTela>.  <cTela> é uma expressao caractere, geralmente
     uma variável à qual foi atribuída uma imagem de tela pelo comando SAVE
     SCREEN.  Caso a cláusula FROM nao seja especificada, a tela é
     recuperada do buffer de telas gravadas padrao que foi criado pelo
     comando SAVE SCREEN especificado sem a cláusula TO.

     Para gravar e recuperar o conteúdo parcial das telas, ao invés de seu
     conteúdo completo, use as funçoes SAVESCREEN() e RESTSCREEN().

     RESTORE SCREEN é um comando de compatibilidade e, portanto,
     desaconselhado.  Ele está superado pela funçao RESTSCREEN(), a qual
     pode recuperar telas parciais, bem como telas completas.

     -----------------------------------------------------------------------
     . Aviso

     Os comandos e funçoes SAVE SCREEN, RESTORE SCREEN, SAVESCREEN(), e
     RESTSCREEN() nao sao aceitos quando ANSI.OBJ ou IBMANSI.OBJ estiverem
     linkados ao programa corrente.
     -----------------------------------------------------------------------

 Exemplos

     O exemplo abaixo exibe uma pequena caixa de mensagem usando os comandos
     SAVE e RESTORE SCREEN:

     IF FileAlert()
        COPY FILE Them.txt TO My.txt
     ELSE
        BREAK
     ENDIF

     FUNCTION FileAlert
        LOCAL lAnswer = .F., cScreen
        SAVE SCREEN TO cScreen
        @ 10, 10 CLEAR TO 12, 54
        @ 10, 10 TO 12, 54 DOUBLE
        @ 11, 12 SAY "Arquivo existe, sobreescreve? (s/n)? ";
           GET lAnswer PICTURE "@!" VALID lAnswer $ "SN"
        READ
        RESTORE SCREEN FROM cScreen
        RETURN lAnswer == "S"

 Arquivos:  Biblioteca CLIPPER.LIB.
 To download this example - click here.

See Also: RESTORE SAVE RESTSCREEN() SAVESCREEN()