C	TITLE  W R D C H 3
	INTEGER ANSWER
C		CHANGES ALPHA WORD IN ANY SECTOR
	DIMENSION IPAR(10)
1	NS=NANSWR('SECTOR NUMBER?')
	IF(NS.LT.1)CALL EXIT
	INDEX=NANSWR('WORD INDEX?')
	IVALUE=ANSWER('NEW VALUE?')
	CALL DIO(NS,1,IPAR,1)
	IPAR(INDEX)=IVALUE
	CALL DIO(NS,0,IPAR,1)
	CALL DIO(NS,2,IPAR,1)
	GO TO 1
	END

