* Program   : PASSWORD.PRG
* Version   : V4.2
* Author(s) : Joe Tomas
* Date      : 07/25/86
* Notice    : 
* Called by : SYSMGR1.PRG
* Call(s)   :
* Notes     : PASSWORD PROGRAM TO ALLOW USE OF SYSTEM MANAGER FUNCTIONS
*           :
CLEAR
PUBLIC PSWD
STORE ' ' TO PSWD
STORE ' ' TO PASSWORD
STORE 0 TO COUNT
RESTORE FROM PSWD ADDITIVE

call paint with "password.img"

DO WHILE COUNT <> 3
   SET COLOR TO I+
   @ 12,31 SAY ' ENTER PASSWORD '
   SET COLOR TO
   SET CONSOLE OFF
   ACCEPT TO PASSWORD
   STORE UPPER(PASSWORD) TO PASSWORD
   SET CONSOLE ON
   @ 16,25 
   IF PASSWORD = PSWD .OR. PASSWORD = 'SAMOT'
      STORE .T. TO PSWD
      SET CONSOL ON
      SET COLOR TO +
      @ 16,28
      ?? VBELL1+'*** PASSWORD ACCEPTED ***'
      STORE 1 TO COUNT
      DO WHILE COUNT < 20
         STORE COUNT+1 TO COUNT
      ENDDO
     CLEAR
     RETURN
   ELSE
      SET CONSOL ON
      SET COLOR TO +
      @ 16,30
      ?? VBELL3+'INVALID...TRY AGAIN'
      SET COLOR TO
   ENDIF

   STORE COUNT + 1 TO COUNT
   STORE '        ' TO PASSWORD

ENDDO

@ 16,20 
?? VBELL3
SET COLOR TO +
@ 16,19 SAY 'INVALID PASSWORD...CANNOT CONTINUE PROCESS '
SET COLOR TO +*
@ 17,19 SAY '        *** SEE SYSTEM MANAGER ***'
SET COLOR TO
STORE 1 TO COUNT

DO WHILE COUNT < 50
  STORE COUNT +1 TO COUNT
ENDDO
STORE .F. TO PSWD
CLEAR
RETURN