home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / decus / RB123 / password.prg < prev    next >
Text File  |  1995-05-28  |  1KB  |  68 lines
  1. * Program   : PASSWORD.PRG
  2. * Version   : V4.2
  3. * Author(s) : Joe Tomas
  4. * Date      : 07/25/86
  5. * Notice    : 
  6. * Called by : SYSMGR1.PRG
  7. * Call(s)   :
  8. * Notes     : PASSWORD PROGRAM TO ALLOW USE OF SYSTEM MANAGER FUNCTIONS
  9. *           :
  10. CLEAR
  11. PUBLIC PSWD
  12. STORE ' ' TO PSWD
  13. STORE ' ' TO PASSWORD
  14. STORE 0 TO COUNT
  15. RESTORE FROM PSWD ADDITIVE
  16.  
  17. call paint with "password.img"
  18.  
  19. DO WHILE COUNT <> 3
  20.    SET COLOR TO I+
  21.    @ 12,31 SAY ' ENTER PASSWORD '
  22.    SET COLOR TO
  23.    SET CONSOLE OFF
  24.    ACCEPT TO PASSWORD
  25.    STORE UPPER(PASSWORD) TO PASSWORD
  26.    SET CONSOLE ON
  27.    @ 16,25 
  28.    IF PASSWORD = PSWD .OR. PASSWORD = 'SAMOT'
  29.       STORE .T. TO PSWD
  30.       SET CONSOL ON
  31.       SET COLOR TO +
  32.       @ 16,28
  33.       ?? VBELL1+'*** PASSWORD ACCEPTED ***'
  34.       STORE 1 TO COUNT
  35.       DO WHILE COUNT < 20
  36.          STORE COUNT+1 TO COUNT
  37.       ENDDO
  38.      CLEAR
  39.      RETURN
  40.    ELSE
  41.       SET CONSOL ON
  42.       SET COLOR TO +
  43.       @ 16,30
  44.       ?? VBELL3+'INVALID...TRY AGAIN'
  45.       SET COLOR TO
  46.    ENDIF
  47.  
  48.    STORE COUNT + 1 TO COUNT
  49.    STORE '        ' TO PASSWORD
  50.  
  51. ENDDO
  52.  
  53. @ 16,20 
  54. ?? VBELL3
  55. SET COLOR TO +
  56. @ 16,19 SAY 'INVALID PASSWORD...CANNOT CONTINUE PROCESS '
  57. SET COLOR TO +*
  58. @ 17,19 SAY '        *** SEE SYSTEM MANAGER ***'
  59. SET COLOR TO
  60. STORE 1 TO COUNT
  61.  
  62. DO WHILE COUNT < 50
  63.   STORE COUNT +1 TO COUNT
  64. ENDDO
  65. STORE .F. TO PSWD
  66. CLEAR
  67. RETURN
  68.