Clipper/FiveWin - Ayuda con clipper 5.3b

Hola listeros: saludos a todos, mi consulta es la siguiente, estoy programando en clipper 5.3b, sin fivewin, y necesito ingresar un a password al sistema el problema es que al hacer el get me aparecen los caracteres reales en pantalla, lo que yo necesito es que me aparezca cualquier caracter que yo necesite, existe alguna forma de hacer esto en clipper 5.3b, sin husar fivewin.

Saludos de Chile

roberto

Hola Roberto:

swp=0
DO WHIL SWP=0
CUENTA=0
PASO=""
SETCOLOR(COLOJ)
@ 7,37 SAY "²²²²²²"
SETCOLOR(CASEO)
DO WHIL CUENTA<6
K=INKEY()
DO CASE
CASE K>31 .AND. K<122
PASO=PASO+CHR(K+DE)
CUENTA=CUENTA+1
@ 7,36+CUENTA SAY CHR(8)
ENDCASE
ENDD
IF ABOR=7
SALIR=1
SALIDOS()
ENDI
PASO=UPPE(PASO)
LOCA FOR PASO=HYMCLAV
IF EOF()
SETCOLOR(COLOI)
@ 21,67 SAY "Clave errada"
SETCOLOR(CASEO)
MUSI()
FIL1=21 ;COL1=67 ;FIL2=21 ;COL2=78 ;ASEO1() ;ABOR=ABOR+1
ELSE
SWP=1
USUACOD=HYMCODI ;USUANOM=HYMUSUA ;USUAAUT=HYMNIVE
IF HYMPRIN=" "
LPT:="LPT1"
ELSE
LPT:=HYMPRIN
ENDI
CON=1 ;K=0
DO WHIL CON<200
CON=CON+1
K=INKEY()
IF K#0
EXIT
ENDI
ENDD
ENDI
ENDD

Espero que te sirva.

Suerte