XOBWPWD ;ALB/MJK - HWSC :: Private Password APIs ; 09/13/10 4:00pm
Source file <XOBWPWD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDIT | ; -- edit PASSWORD from DD
|
|
| CLR | ; -- clear to continue
|
|
| SET(XOBH,XOBTALK) | ; -- set password in entry
|
|
| DEL | ; -- make sure delete is desired
|
|
| DIRUT | ; -- set abort flag
|
|
| ASK() | ; -- setup to ask user for password
|
|
| REASK(XOBH) | ; -- reask user for password
|
|
| GET() | ; -- get user input and process for '^' and ''
|
|
| ACCEPT(TO) | ; -- read user input character a time; force exit on '^'; echo '*' back
|
|
| ENCRYP(XOBX) | ; -- Kernel encode
|
|
| DECRYP(XOBH) | ; -- Kernel decode
|
