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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement