HI Gerry:

This code accept a password of ten characters on the position 4,10

m.option = 0
m.password = ""
m.position = 10
DO WHILE m.option <> 13 .AND. m.position < 20
m.option = INKEY()
IF m.option < 32 .OR. m.option > 126
LOOP
ENDIF
@ 04,m.position SAY "*"
m.position = m.position = 1
m.password = m.password + CHR( m.option )
ENDDO

Best regards...