** si lo usas al menos escribime para contarme si te sirvio! (yo lo uso) * el pasword termina cargado en NCLAVE
private nag, pass pass="" nclave="" do while .T. clear type @ 13,45 say padr(replicate("*",len(pass)),10) color w+/n nag=inkey(0,'H') if nag=13 *pass="" *nclave="" * loop exit endif if between(nag,48,123).and.len(pass)<11 &&57 pass=pass+chr(nag) endif
if nag=127 pass=left(pass,len(pass)-1) endif if nag=27 return endif enddo *susp