
Determinar que os campos de entrada do comando GET serão exibidos em vídeo reverso.
SET INTENSITY on | OFF
Quando, SET INTENSITY OFF, os GETs são apresentados com o tipo de vídeo determinado no comando SET ATRIBUTE. Quando ligado (ON) os GETs são apresentados em vídeo reverso.
O exemplo a seguir mostra-nos a utilização deste comando.
PROG
var_num = 0
var_cad = ""
@ 10,10 SAY "Digite um valor Numerico" GET var_num PIC "999,99"
@ 11,10 SAY "Digite um valor caractere" GET var_cad PIC "XXXXXXX"
READ
SET INTENSITY ON
@ 13,10 SAY "Digite um valor Numerico" GET var_num PIC "999,99"
@ 14,10 SAY "Digite um valor caractere" GET var_cad PIC "XXXXXXX"
READ
@ ... GET e SET DELIMITERS.
