te mando una rutina con lo que deseas:
set exact on
set cursor off
define window password at 0,0 size 6,25 none nomini noclose nofloa color rgb(,,,192,192,192)
move wind password cente
clave=""
acti wind password
@ .75,4.5 say "CLAVE DE ACCESO" font "ms sanf serif",10 Style "BT" color +w
@ 3,9 to 4.5,20 pen 1 COLOR RGB(128,128,128,255,255,255)
@ 4.6,8.9 to 4.6,20.1 pen 2 color +w
@ 4.65,8.8 to 4.65,20.1 pen 2 color +w
@ 2.9,8.815 to 4.65,8.815 pen 1 color rgb(128,128,128,255,255,255)
@ 2.9,8.7 to 4.75,8.7 pen 1 color rgb(128,128,128,255,255,255)
@ 2.85,8.7 to 2.85,20.20 pen 2 color rgb(128,128,128,255,255,255)
@ 2.9,20.05 to 4.75,20.05 color +W pen 1
@ 2.85,20.1 to 4.8,20.1 color +w pen 2
@ 3.1,9.3 fill to 3.4,19.5 color ,rgb(255,255,255,255,255)
@ 3.2,9.3 GET miclave SIZE 1.150,9.28 DEFAULT "" FONT "FoxFont", 10 ;
STYLE "B" WHEN .F. COLOR ,RGB(128,0,0,255,255,255)
read cycle show pide_cl() modal
rele wind password
set cursor on
set exact off
Procedure pide_cl
do while .t.
set console off
wait to mwait
set console on
clave=clave+mwait
if lastkey()=27 .or. lastkey()=13
exit
endif
if len(mwait)>0
miclave=miclave+"*"
show get miclave
endif
if len(clave)=10
exit
endif
enddo
ojala y te sirva en caso de alguna duda, hablame