Click above to get retro games delivered to your door ever month!

 C_QINPUT()

 DESCRIPTION

 C_QINPUT() allows a user to enter characters without seeing the
 actual characters displayed on the screen.  This can be used for
 data entry prompts such as passwords where the program should not
 show the actual text typed on the screen.

 SYNTAX

 C_QINPUT(row, col, length [,echo_char])

 PARAMETERS

 row (N) col (N) are the starting row and column to begin data entry.

 length (N) is the length (1 to 80 characters) of the string to input.

 echo_char (C) is the character to display on the screen ("*", "!",
 etc.) to hide the real character entered.  If echo_char is not
 specified, the actual character entered is displayed.

 DEFAULT KEY DEFINITIONS AND ACTIONS

 KEY PRESSED    ACTION TAKEN BY C_QINPUT()
 -----------    --------------------------
 ENTER          Exit and return the character string
 ESCAPE         Exit and return a null string ("")
 LT-ARROW       Move cursor left one character
 RT-ARROW       Move cursor right one character
 HOME           Move cursor to the first character of the string
 END            Move cursor to the last character of the string
 SPACE BAR      Move cursor right one and overwrite character
 BACK SPACE     Move cursor left one character and overwrite character

 RETURNS

 C_QINPUT() returns the character string entered if the ENTER key is
 pressed, or a null string ("") if the ESCAPE key is pressed.

 EXAMPLES

 store space(10) to userid, password    && Get User ID and Password
 do while .t.
   @ 1,0 say "Enter User Id: "        && Use C_QINPUT() to get
   @ 2,0 say "Enter Password:"        && the User Id/Password
   userid = c_qinput(1,16,10)         && Echo real character typed for Id
   password = c_qinput(2,16,10,"*")   && Echo asterisk for password
   seek userid + password             && See if Id and Password are valid
   if !found()
     ? "Invalid LogOn"
     loop
   endif
 enddo