home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / armbob / !ArmBob / progs / h / hidden < prev    next >
Encoding:
Text File  |  1994-06-06  |  590 b   |  19 lines
  1. /**************************************************** 
  2.  *  Hidden input - returns input but only echoes the 
  3.  *  character c for each input character. Useful
  4.  *  for passwords.    GCW 02/03/94
  5.  ***************************************************/
  6. hidden_input(c)
  7. {
  8.  local r,buf;
  9.  r = newvector(8);
  10.  buf = @(newstring(64));
  11.  r[0] = buf+(1<<30)+(1<<31);
  12.  r[1] = 64;     /* length of buffer           */
  13.  r[2] = 32;     /* lowest character accepted  */
  14.  r[3] = 126;    /* highest character accepted */
  15.  r[4] = c;      /* echo character             */
  16.  swi("OS_ReadLine",r);
  17.  return($(buf));
  18. }
  19.