****************************************************************************
*                                                                          *
*	SUBBROUTINE PWENCODE (INPKEY,OUTKEY)                               *
*                                                                          *
*	PURPOSE : ENCODE THE PASSWORD CHARACTER STRING 'INPKEY' AND RETURN *
*	          IT IN THE PARAMETER 'OUTKEY'                             *
*                                                                          *
****************************************************************************

	SUBROUTINE PWENCODE (INPKEY,OUTKEY)

	IMPLICIT INTEGER (A-Z)
	CHARACTER INPKEY(9)
	INTEGER*4 INTCODE(9),TEMPCODE
	BYTE OUTKEY(9)

******  TRANSLATE CHARACTERS IN THE PASSWORD TO CORRESPONDING INTEGERS  ******

	DO 100 I=1,9
	INTCODE(I) = ICHAR(INPKEY(I)) - I * I
  100	CONTINUE

******  INTERCHANGE ELEMENTS IN THE ARRAY  ******

	TEMPCODE   = INTCODE(1)
	INTCODE(1) = INTCODE(3)
	INTCODE(3) = INTCODE(5)
	INTCODE(5) = INTCODE(6)
	INTCODE(6) = INTCODE(8)
	INTCODE(8) = TEMPCODE

******  PUT THE INTEGER CODES BACK INTO A CHARACTER (BYTE) FORMAT  ******

	DO 200 I=1,9
	OUTKEY(I) = INTCODE(I)
  200	CONTINUE

******  RETURN BACK TO THE MAIN PROGRAM  ******

	RETURN 
	END