PC Toledo

Esta funcao eh mto boa gente, ela da hints, ou seja dicas a cada get que o usuario pressina aparece uma dica, eh mto bom quanto seu sistema tem campos que o usuario (como na maoria das vezes), nao consegue interpretar sozinho.
vale a penal.
ae vai.

/*ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ PROGRAMA EXEMPLO DE COMO MOSTRAR DICAS (HINTS) NO CLIPPER ³
³ SEM PRECISAR DE MUITO MISTERIO...! ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
³ AUTOR: ANDERSON CARDOSO SILVA ³
³ WWW: www.caclipper.cjb.net ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ*/

CLS

cNOME := SPACE(30)
cENDE := SPACE(35)
cBAIRRO := SPACE(20)
cTRAB := "S"
cPROF := SPACE(20)

@ 10,10 SAY "NOME.....:" GET cNOME WHEN DICA(11,10,"Digite seu nome")
@ 11,10 SAY "TRABALHA.:" GET cTRAB PICT "@!" WHEN DICA(12,10,"Voce trabalha? S/N") VALID cTRAB $ "SN"
@ 12,10 SAY "PROFISSAO:" GET cPROF WHEN ( DICA(13,10,"Entao, digite sua Profissao") .AND. cTRAB="S" )
@ 13,10 SAY "ENDERECO.:" GET cENDE WHEN DICA(14,10,"Digite seu endereco")
@ 14,10 SAY "BAIRRO...:" GET cBAIRRO WHEN DICA(15,10,"Digite seu bairro") VALID DICAFINAL()
SAVE SCREEN TO LIMPADICA // Coloque esta linha exatamente como est  antes do READ
READ
RESTORE SCREEN FROM LIMPADICA // Coloque esta linha exatamente como est  depois do READ


// FUNCOES PARA A DICA
FUNCTION DICA(Y,X,cDICA)
RESTORE SCREEN FROM LIMPADICA
FOR T=1 TO LEN(GETLIST)
GETLIST[T]:DISPLAY()
NEXT
@ Y,X CLEA TO Y+2,X+LEN(cDICA)+2
@ Y,X TO Y+2,X+LEN(cDICA)+2
@ Y+1,X+1 SAY cDICA
RETURN .T.

FUNCTION DICAFINAL()
RESTORE SCREEN FROM LIMPADICA
FOR T=1 TO LEN(GETLIST)
GETLIST[T]:DISPLAY()
NEXT
SAVE SCREEN TO LIMPADICA
RETURN .T.

Muito boa. :)Pos

valew, se vc tiver alguma posta ae tb...

check this too
wow realy hot!
http://nencyalba.info/movies/avi/135312