C TITLE W R D C H 1
C CHANGES INTEGER WORD IN ANY SECTOR
DIMENSION IPAR(10)
1 NS=NANSWR('SECTOR NUMBER?')
IF(NS.LT.1)CALL EXIT
INDEX=NANSWR('WORD INDEX?')
IVALUE=NANSWR('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