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