PC Toledo

Ao tentar compilar um programa com a função VALID() dá a seguinte mensagem de erro:

UNDEFINED SYMBOLS AFTER LIBRARY SEARCH
'VALID'

Se alguém souber me ajudar, agradeço muito. Segue abaixo código fonte:

DO WHILE .T.
CLEAR SCREEN
BORDA = CHR(201) + CHR(205) + CHR(187) + CHR(186) + ;
CHR(188) + CHR(205) + CHR(200) + CHR(186) + ;
CHR(176)
@ 1,1,20,78 BOX BORDA
@ 03,03 TO 18,76
@ 4,4 CLEAR TO 17,75
VPRODUTO = SPACE(30)
VCUSTO = 0
VVENDA = 0
VLUCRO = 0
VFIM = SPACE(01)
@ 06,06 SAY "NOME DO PRODUTO: " GET VPRODUTO PICT "@!"
@ 08,06 SAY "PREÇO DE CUSTO: " GET VCUSTO PICT "99,999,999.99"
@ 10,06 SAY "PREÇO DE VENDA: " GET VVENDA PICT "99,999,999.99"
@ 12,06 SAY "LUCRO DA VENDA: "
READ
VLUCRO = VVENDA - VCUSTO
@ 12,23 SAY VLUCRO PICT "99,999,999.99"
@ 16,12 SAY "DESEJA CONTINUAR [S/N]" GET VFIM PICT "@!"
VALID(VFIM$"SN")
READ
IF VFIM="S"
LOOP
ELSE
EXIT
ENDIF
ENDDO
CLEAR
@ 12,35 SAY "ACABOU !!!!!!!"

Ola,

O VALID não é uma função e sim uma cláusula do get. em vez de

@ 16,12 SAY "DESEJA CONTINUAR [S/N]" GET VFIM PICT "@!"
VALID(VFIM$"SN")

tente

@ 16,12 SAY "DESEJA CONTINUAR [S/N]" GET VFIM PICT "@!"
VALID VFIM$"SN"

[]s
Manoel Angeiras

Bastou colocar na mesma linha do GET e funcionou
o exercício estava errado!!!

vlw pela ajuda!!!

@ 16,12 SAY "DESEJA CONTINUAR [S/N]" GET VFIM PICT "@!"
VALID VFIM$"SN"

o correto seria:

@ 16,12 SAY "DESEJA CONTINUAR [S/N]" GET VFIM PICT "@!" ;
VALID VFIM$"SN"

para vc continuar o comando na linha seguinte.