Trocar o dispositivo de saída: tela ou impressora .
SET DEVICE TO SCREEN | print
Possibilita que durante a impressão de um relatório (SET PRINT ON) seja possível retornar o controle ao terminal sem cancelar a impressão.
O exemplo a seguir mostra-nos como fazer durante uma impressão, o controle retornar ao terminal, possibilitando, que o usuário execute qualquer tipo de tarefa até que SET DEVICE TO PRINT seja executado.
O relatório só será impresso efetivamente após a execução do comando SET PRINT OFF.
PROG
SET PRINT ON
? "Isto será impresso na impressora padrão"
SET DEVICE TO SCREEN
? "Isto será impresso no vídeo"
ACCEPT "Qual seu equipamento " TO equipa
SET DEVICE TO PRINT
? "Isto será impresso na impressora padrão"
? "O equipamento informado foi ", equipa
SET PRINT OFF
EJECT, SET PRINT, SET PRINTER.