Considere o trecho de programa abaixo:

0010 DEFINE DATA LOCAL
0020 1 CAMPO (A10)
0030 END-DEFINE
0040 *
0050 MOVE 'CASA VERDE' TO CAMPO
0060 *
0070 IF CAMPO = SCAN('V?R')
0080 WRITE 'ACHOU'
0090 ELSE
0100 WRITE 'NAO ACHOU'
0110 *
0120 IF CAMPO = SCAN('VER')
0130 WRITE 'ACHOU'
0140 ELSE
0150 WRITE 'NAO ACHOU'
0160 END

Ao executar o programa acima, os valores mostrados na tela são, respectivamente: