> *---Get Password > hideword = "" > password = "" > mkey = "" > > > DO WHILE .T. > hideword = LEFT(hideword+SPACE(8),8) > @ 2,22 GET hideword PICTURE "XXXXXXXX" > CLEAR GETS > hideword = RTRIM(hideword) > > mkey = INKEY(0,"H") > > DO CASE > CASE mkey < 0 > LOOP > CASE mkey = 13 .OR. mkey = 10 > EXIT > CASE mkey = 27 > *---IF [Esc] was hit start over > producer = " " > EXIT > CASE mkey = 127 > *---BACKSPACE > IF LEN(password) > 1 > hideword = LEFT(hideword,LEN(hideword)-1) > password = LEFT(password,LEN(password)-1) > ELSE > hideword = "" > password = "" > ENDIF > OTHERWISE > hideword = hideword + "*" > password = password + CHR(mkey) > ENDCASE > ENDDO >wait WINDOW hideword >wait WINDOW password >>