C TITLE W R D C H 2
C CHANGES FLOATING POINT WORD IN ANY SECTOR
DIMENSION IPAR(10)
1 NS=NANSWR('SECTOR NUMBER?')
IF(NS.LT.1)CALL EXIT
INDEX=NANSWR('WORD INDEX?')
TYPE 110
110 FORMAT(1X,'NEW VALUE?'/)
ACCEPT 111,VALUE
111 FORMAT(F)
CALL DIO(NS,1,IPAR,1)
IPAR(INDEX)=VALUE
CALL DIO(NS,0,IPAR,1)
CALL DIO(NS,2,IPAR,1)
GO TO 1
END