{windows.i}

  DEF VAR ReturnValue AS INTEGER NO-UNDO.
  DEF VAR fill-in_login AS CHAR FORMAT "x(16)" LABEL "Login" NO-UNDO.  
  DEF VAR fill-in_password AS CHAR FORMAT "x(16)" LABEL "Password" NO-UNDO.
  
  DEF FRAME zz
    fill-in_login       COLON 15
    fill-in_password    COLON 15
    WITH THREE-D SIDE-LABELS.

  UPDATE fill-in_login fill-in_password
    WITH FRAME zz
    EDITING:
    READKEY.

    IF FRAME-FIELD = "fill-in_password" THEN
      RUN SendMessage{&A} IN hpApi (fill-in_password:HWND, 
                                {&EM_SETPASSWORDCHAR}, 
                                ASC("*"),
                                0,
                                OUTPUT ReturnValue).
    APPLY LASTKEY.
  END.