Limpar a última mensagem enviada ao terminal de vídeo.
CLEAR MESSAGE
Quando se deseja limpar as mensagens enviadas pelo comando MESSAGE.
Na execução de comandos MESSAGE sucessivos, cada comando MESSAGE se encarrega de limpar a mensagem anterior.
CLEAR MESSAGE limpa exatamente o que o MESSAGE anterior exibiu, isto é, envia um MESSAGE com uma cadeia de brancos do tamanho da cadeia enviada pelo último MESSAGE.
O exemplo a seguir mostra-nos a utilização do comando CLEAR MESSAGE, MESSAGE e SAY . Note que os comandos MESSAGE seguidos limpam a mensagem anterior mas quando se necessita imprimir outra expressão na linha de mensagem com outro comando que não o MESSAGE é preciso limpar a linha de mensagem.
MESSAGE "Teste do Comando CLEAR MESSAGE"
WAIT "Tecle algo" TO k
MESSAGE "Esta Mensagem é MENOR que a ANTERIOR"
WAIT "Tecle algo" TO k
** Retire a próxima linha e verifique o resultado
CLEAR MESSAGE
@ 1,1 SAY "Ok LIMPOU"
O exemplo a seguir mostra-nos a simulação de um comando CLEAR MESSAGE.
mensagem = "Simula CLEAR MESSAGE"
MESSAGE mensagem
WAIT "Tecle algo" TO k
MESSAGE SPACE(LEN(mensagem)) && CLEAR MESSAGE
$NOSCREEN, @ ... SAY, MESSAGE, SET ATRIBUTE, SET DEVICE e SET MESSAGE