home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / bbs / dbbs50.lbr / PASSCHG.CZD / PASSCHG.CMD
OS/2 REXX Batch file  |  1988-03-31  |  640b  |  22 lines
  1. ********** GET THE PASSWORD *********
  2. STORE T TO WRONG
  3. DO WHILE WRONG
  4. ACCEPT 'Enter a 4 to 8 character password' TO PASSWORD1
  5. STORE !(PASSWORD1) TO PASSWORD1
  6. IF LEN(PASSWORD1)<4 .OR. LEN(PASSWORD1)>8
  7.    ? '*** 4-8 characters, please! ***'
  8.    LOOP
  9. ELSE
  10.    ACCEPT '      Enter it again to make sure' TO PASSWORD2
  11.    IF PASSWORD1=!(PASSWORD2)
  12.       STORE F TO WRONG
  13.    ELSE
  14.       ? CHR(7)+'*** NO MATCH, TRY AGAIN ***'
  15.    ENDIF
  16. ENDIF
  17. ?
  18. ? '*** WRITE DOWN YOUR PASSWORD SO THAT YOU WILL NOT FORGET IT ***'
  19. ?
  20. ENDDO while wrong
  21.  
  22.