***********************************************************
*                                                         *
*	PROGRAM PWCREATE                                  *
*                                                         *
*	PURPOSE : CHANGE THE CURRENT PASSWORD CODE WITH   *
*	          A NEW PASSWORD CODE...                  *
*                                                         *
***********************************************************

	PROGRAM PWCREATE

	IMPLICIT INTEGER (A-Z)
	CHARACTER PASSWORD(9)
	BYTE NEWCODE(9), OLDCODE(9)

	WRITE (*,10)
  10	FORMAT (' PWCREATE> ENTER PASSWORD : ',$)
	
	CALL NOECHO(PASSWORD)

	CALL PWENCODE(PASSWORD,NEWCODE)

	OPEN (UNIT=21,FILE='PASSWD.DAT',STATUS='OLD',SHARED)
	READ (21,20) OLDCODE
  20	FORMAT (9A1)
	REWIND 21
	WRITE (21,20) NEWCODE
	CLOSE (UNIT=21,STATUS='KEEP')

	STOP 
	END