**************************************************************************
*                                                                        *
*	PROGRAM TSTPW                                                    *
*                                                                        *
*	PURPOSE : CALL SUBROUTINE PASSWORD AND RECEIVE AN ERROR FLAG     *
*	          INDICATING WHETHER OR NOT THE PASSWORD WAS CORRECTLY   *
* 	          GIVEN                                                  *
*                                                                        *
**************************************************************************

	PROGRAM TSTPW

	LOGICAL ERROR

	CALL PASSWORD(ERROR)

	WRITE (*,10) ERROR
   10  	FORMAT (' ERROR = ',L1)

	STOP
	END