Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - fdbm5.for
There are 8 other files named fdbm5.for in the archive. Click here to see a list.
	OPEN(UNIT=1,MODE='IMAGE',ACCESS='SEQIN',FILE='DBMSF.REL')
	OPEN(UNIT=20,MODE='IMAGE',ACCESS='SEQOUT',FILE='DBMSF.REL')
100	READ(1,END=200)J
C	CHANGE "FUNCT%" TO "FUNCT."
	IF ((J.AND."037777777777).EQ."014636533027)
     1	J=(J.AND."740000000000)+"014636533025
C	CHANGE SBIND TO %SBIND
	IF ((J.AND."037777777777).EQ."00436201216)
     1  J=(J.AND."740000000000)+"036240501216
	WRITE(20)J
	GOTO 100
200	CLOSE(UNIT=20)
	END