Try this:

procedure cit_parola
on key label entern return
caracter=" "
pass=""
@1,5 say "Introdu parola:"
for i=1 to 15
@2,i+8 to 2,23 color W/w
@2,i+8 get caracter;
picture 'x';
color b/b,x/w;
read
if not isalpha (caracter) and caracter#" "
exit
endif
pass=pass+caracter
@2,i+8 say '*' color n/w
caracter=' '
next
return

Alina Panaghiu