home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST106.PRG < prev    next >
Encoding:
Text File  |  1989-10-20  |  962 b   |  46 lines
  1. ********************
  2.  
  3. FUNCTION Password
  4.  
  5.    PARAMETERS _passt, _passl, _passb, _passr
  6.    
  7.    IF PCOUNT() = 0
  8.       _passt = 13
  9.       _passl =  2
  10.       _passb = 16
  11.       _passr = 44
  12.    ENDIF
  13.  
  14.    IF PCOUNT() = 2
  15.       _passb = _passt + 3
  16.       _passr = _passl + 42
  17.    ENDIF
  18.  
  19.    PRIVATE _temp, _one, _two, _return
  20.  
  21.    _return = .T.
  22.    Windowpush(_passt, _passl, _passb, _passr)
  23.    _temp = SPACE(15)
  24.    CLEAR GETS
  25.    @ _passt+1, _passl + 3 SAY "Leave Blank to keep old Password"
  26.    @ _passt+2, _passl + 3 SAY "Enter New Password: " GET _temp PICT "XXXXXXXXXXXXXXX"
  27.    READ
  28.    IF LASTKEY() = 27
  29.       _return = .F.
  30.    ELSE
  31.       IF UPDATED()
  32.          scrpass = GENPASS(_temp)
  33.       ENDIF
  34.       Clear_area()
  35.       @ _passt+2, _passl + 3 SAY "Enter Times for Password: " GET scrtimes PICT "##"
  36.       READ
  37.       IF LASTKEY() = 27
  38.          _return = .F.
  39.       ENDIF
  40.    ENDIF
  41.    Windowpop()
  42.    RETURN(_return)
  43.  
  44. * End of File
  45.  
  46.