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