home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / armbob / armbob_1 / ARMBOB / !ArmBob / progs / h / hidden < prev    next >
Encoding:
Text File  |  1995-04-05  |  591 b   |  20 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.  
  7. hidden_input(c)
  8. {
  9.  local r,buf;
  10.  r = newvector(8);
  11.  buf = @(newstring(64));
  12.  r[0] = buf+(1<<30)+(1<<31);
  13.  r[1] = 64;     /* length of buffer           */
  14.  r[2] = 32;     /* lowest character accepted  */
  15.  r[3] = 126;    /* highest character accepted */
  16.  r[4] = c;      /* echo character             */
  17.  swi("OS_ReadLine",r);
  18.  return($(buf));
  19. }
  20.