Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
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