home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a087 / 6.ddi / PASSWORD.PR_ / PASSWORD.bin
Encoding:
Text File  |  1994-02-02  |  1.4 KB  |  37 lines
  1. ****** Password Entry Screen Example
  2. ****** Created by Rickcau on 1/29/94
  3. SET TALK OFF
  4. DEFINE WINDOW PASS FROM 1,1 to 6,20 TITLE 'Enter Password'
  5. PASSWORD="TEST"
  6. WAIT WINDOW 'This program is an example of how to implement a'+chr(13)+;
  7.             'password entry screen.'+chr(13)+'Press any key to continue.'
  8.  
  9. passkeyed='        '               
  10. pass=''
  11. count=0
  12. key=0
  13. set cursor off
  14. ACTIVATE WINDOW PASS
  15. MOVE WINDOW PASS CENTER
  16. @ 1,1 SAY "ENTER PASSWORD " 
  17. @ 2,1 GET PASSKEYED WHEN check()
  18. read CYCLE
  19. RELEASE WINDOW PASS                       && Release the PASS window from memory
  20.  
  21. func check                                && when function for PASSKEYED
  22. do while KEY # 13
  23.    count =count +1                        && count key strokes
  24.    key=inkey(0)                              && wait for key press
  25.    pass=UPPER(alltrim(pass+chr(key)))     && Store the character of each Key Typed
  26.    PASSKEYED=stuff(PASSKEYED,count,1,'*') && Fill PassKeyed with *'s
  27.    show get PASSKEYED                     && Display * to screen
  28. enddo
  29. DO CASE
  30.    CASE PASS=PASSWORD                     && Display a WAIT WINDOW with 'Password Valid'
  31.         wait window 'Password Valid!' nowait
  32.         clear read                        && Terminate Read
  33.    CASE PASS!=PASSWORD                    && Display a WAIT WINDOW with 'Password Invalid'
  34.         WAIT WINDOW 'Password Invalid.' nowait
  35.         CLEAR READ                        && Terminate Read
  36. ENDCASE  
  37.